基于access数据库开发商场管理系统

《基于access数据库开发商场管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、基于Access数据库开发商场管理系统摘要：目前在商场里要处理大量的商品信息，更需要及时更新和反馈销售的商品信息，同时需要合理有效的数据库结构来存储各种各样商品的信息，有效的程序结构支持各种数据操作的执行显得很重要。基于Access数据库开发商场管理系统，该系统能对商场的运营情况做随时的了解，从而提高商场的运营效率。　　关键词：Access数据库商场管理报表　　　　引言　　商场的商品管理是商场日常管理的重要内容，利用商场管理系统，商场能够把商品采购（生产）、销售和库存很好的结合起来，及时有效地把销售状况反馈到采购（

2、生产）部门，使得商场可以更好的做到合理采购（生产）、及时销售、保持安全库存量以及减少商品积压，从而提高商场运作的总体效率。更重要的是通过它可以随时对商场某一时间段的销售情况进行查询，使管理者能够及时的获取商场整体运营情况。　　1.需求分析　　根据商场在运营中遇到的实际情况，商场管理系统应具有以下功能：必须对库存的商品的类型、数量、条形码、规格型号等信息进行记录；商品入库时系统要自动进行记录，同时修改库存等相关信息；商品销售出后也要系统自动进行记录，同时修改相关信息。系统还要提供一系列的报表，以及对各项资料记录可以进

3、行查询，为管理者提供参考。最后，系统还应允许管理者对商品信息和库存信息进行添加和修改，以适应各种需求。　　2.系统的设计与实现　　2.1系统功能　　商场管理系统主要包括5个模块的内容：系统设置、基本信息、商品流转、查询、报表。每个子模块又分几个子模块来完成对应的功能，系统所有功能模块如下图图1所示。　　2.2主要数据表设计　　员工资料表：员工ID、姓名、职位、性别、籍贯、年龄、民族、健康状况、婚姻状况、身份证号、家庭地址、号码、家庭、备注。　　供货商资料表：供货商ID、公司名称、姓名、职务、公司、公司地址、城市、省

4、份、国家、公司、备注。　　商品资料表：商品ID、条形码、拼音码、商品名称、计量单位、商品品牌、规格型号、所属类别、库存数量、采购单价、零售单价、最高库存、最低库存、商品产地、供货商ID、备注。　　采购（生产）商品表：采购单ID、商品ID、供货商ID、采购数量、采购单价、采购金额、采购日期、采购员工ID、备注。　　销售商品表：销售ID、销售时间、优惠折扣、优惠原因、金额、应收账款、是否结账、付款方式、销售员工ID、备注。　　损耗（退货）商品表：商品ID、条形码、拼音码、商品名称、计量单位、商品品牌、规格型号、所属类别

5、、损耗（退货）数量、采购单价、处理方式、商品产地、供货商ID、备注。　　通过公共字段建立表和表之间的关系，并实施参照完整性。　　2.3窗体设计　　设计的窗体有：商场管理系统主窗体、系统设置窗体、员工资料管理窗体、商品资料管理、供货商资料管理、采购（生产）商品管理窗体、销售商品管理窗体。每个窗体的界面都要求对用户友好，方便用户输入、修改相关数据，窗体设计为有模式弹出窗体，保证关闭当前窗体后才能对其它窗体进行操作。　　2.4查询的创建　　创建的查询都可以以查询窗体的形式实现，这样查询的时候人机交互比较好。创建的查询有：

6、供货商资料查询、商品资料查询、采购（生产）商品查询、销售商品查询。　　2.5报表的创建　　根据商场的实际需要，创建日销售统计报表、月销售统计报表、年销售统计报表、需采购（生产）商品报表。　　2.6部分主要代码　　2.6.1在“销售商品管理”窗体内的“选择商品”按钮的单击事件中的代码如下　　PrivateSub选择商品_Click()　　OnErrorGoToErr_选择商品_Click　　‘判断”销售ID”文本框是否为空　　IfIsNull(Me![销售ID])=TrueThen　　‘弹出提示”销售ID”文本框不可

7、以为空信息　　MsgBox”请输入”销售ID”,不可为空!”,vbOKOnly,”输入”销售ID””　　‘把光标置于”销售ID”文本框内　　Me![销售ID].SetFocus　　‘退出子过程　　ExitSub　　ElseIfIsNull(Me![销售员工ID])=TrueThen　　MsgBox”请输入”销售员工ID”,不可为空!”,vbOKOnly,”输入”销售员工ID””　　Me![销售员工ID].SetFocus　　ExitSub　　Else　　‘把窗体中”销售ID”文本框内的值赋予VarArray(0)　

8、　VarArray(0)=Me![销售ID]　　VarArray(1)=Me![销售员工ID]　　‘打开”商品资料查询”窗体　　DoCmd.OpenForm”商品资料查询”,acNormal,,,,ace![计算金额].Enabled=True　　Exit_选择商品_Click:　　ExitSub　　Err_选择商品_Click:　　MsgBoxErr.De