vb商场管理系统

《vb商场管理系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB语言课程设计报告一、设计目的2二、软硬件环境2三、总体设计思路（功能模块图）3四、各部分（各模块）功能介绍、设计界面（抓图）4五、部分程序清单（带有较详细的注释）9六、设计总结（课程设计心得与体会）12七、参考文献13八、教师评语14一.设计目的随着社会的发展，人民生活水平不断的提高，商场的客容量不断增加，原本的原始管理系统已不能满足管理要求，新的方便快捷的管理系统为满足商家的要求，以计算机网络为基础的管理系统取代了原有的系统。本系统本着提高管理效率，方便管理步骤。创造更好的管理环境。提供了以下四个步骤：销售管理、进货

2、管理、退货管理以及员工管理。同时也具备了查询、添加、删除等功能。:、软硬件环境硬件环境：校内机房微机（图书馆五楼）软件环境：Windowsxp,VB6.0三.总体设计思路（功能模块图）用户密码******

3、四、各部分（各模块）功能介绍、设计界面（抓图）冠用户登录界面用尸名登录口令正确？欢迎使用本程序IljI销售管理进货管理员工管理退货管理旨首页欢迎使用本系统刁S3S3S冠销售添加口叵冈销售日期商品单价iS商品名0筒品漏寻1金昌名称1►109209300102冰金200▼1卜1►[千万销售編5品单价▲203r按裔品名称按销售

4、扁号少㈡“查询退出...品名称300200500亠■■士•销售查询商關号iw2012-2-22冰衣心池印紙年帕209202・进货添加13回冈厂家名称进货编号商品编号进货成本进货数量吉林红金豆有限公司农夫山泉售价联系电话张大宝生产厂家杭州娃哈哈集t厂冰地址朝阳区宽平大路2154进货总额

5、900►憂豔麥k001201002202冰！tb0032031IT®-保存退出«员工添加口回区）2012-12-222012-6-3012012-7-18I1?损中华凉席久久報滕保存退出退岀五、部分程序清单(带有较详细的注释)1,首页代码：P

6、rivateSube_Click()销售查询.Show注释：显示销售查询EndSubPrivateSubLCIickO进货管理.ShowEndSubPrivateSubg_Click()进货查询.ShowEndSubPrivateSubh_Click()员工管理.ShowEndSubPrivateSubLCIickO员工查询.ShowEndSubPrivateSubj_Click()退货管理.ShowEndSubPrivateSubk_Click()退货查询.ShowEndSubPrivateSubLCIickO销售添加.

7、ShowEndSubPrivateSubm_Click()进货添加.ShowEndSubPrivateSubn_Click()员工添加.ShowEndSubPrivateSubo_Click()退货添加.ShowEndSubPrivateSubx_Click()销售管理.ShowEndSub2,销售查询代码:PrivateSubCommand1_Click()IfOptionl.ValueThenAdodcl.RecordSource=Hselect*from销售管理where商品名称=,H+Trim仃ext7.Text)

8、+“'orderby商品编号”Adodcl.RefreshElselfOption2.ValueThenAdodcl.RecordSource="select*from销售管理where销售编号='H+Trim(Text8.Text)4-'"orderby商品编号”Adodcl.RefreshEndIfEndSubPrivateSubCommand2_Click()首页.ShowUnload销售查询EndSub1,进货添加代码:PrivateSubCommand1_Click()Adodcl.Recordset.AddNe

9、wEndSubPrivateSubCommand2_Click()首页.ShowUnload进货添加EndSubPrivateSubCommand3_Click()Adodcl.Recordset.UpdateEndSub2,员工管理代码:PrivateSubCommandl_Click()注释：首记录Adodc1.Recordset.MoveFirstEndSubPrivateSubCommand2_Click()注释：尾记录Adodc1.Recordset.MoveLastEndSubPrivateSubCommand

10、3_Click()IfAdodc1.Recordset.BOFThenMsgBox“已到记录头”ElseAdodc1.Recordset.MovePreviousEndIfEndSubPrivateSubCommand4_Click()IfAdodcl.Recordset.EOFThenMsgBox"已