毕业设计（论文）VB6.0超市进存销系统设计与实现设计.doc

《毕业设计（论文）VB6.0超市进存销系统设计与实现设计.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）VB6.0超市进存销系统设计与实现设计.doc（30页珍藏版）》请在三一办公上搜索。

1、江 西 农 业 大 学本 科 生 毕 业 论 文（设 计）题目：超市进存销系统设计与实现 学 号： 05020911 姓 名： 年 级： 02级计科（1）班 学 院： 计算机与信息工程学院 系 别： 计算机科学与技术 专 业： 计算机科学与技术 完成日期： 2006-5-20 指导教师： 摘要：论文主要介绍了系统所要完成的功能和开发的过程。系统采用Microsoft Office中的Access 2000来设计数据库，并使用VB6.0作为开发工具进行开发。运行环境为WINDOWS 2000或者WINDOWS XP.。首先对系统进行可行性研究及需求分析，可行性研究中主要包含了对操作，技术等可行性

2、的研究，需求分析中主要是对系统的功能分析后对系统的模块进行分析与数据库的设计.。而后对一些窗体进行设计与实现，最后对系统进行分析，提出系统中存在的问题，以及对系统的改进方案和未来几十年系统的可能发展方向。关键词：数据库，进销存管理，出库,入库，仓库管理Abstract: The paper mainly introduced the system must complete function and development process. The system uses in Microsoft Office Access 2,000 to design the database, and

3、uses VB6.0 to carry on the development as the development kit. The movement environment is WINDOWS 2,000 or WINDOWS XP. First conducted the feasibility study and the demand analysis to the system, in the feasibility study mainly contains to has operated, the technology and so on feasible the researc

4、h, in the demand analysis mainly was carries on the analysis and the database design after the system functional analysis to the system module. But after carries on the design and the realization to some windows, finally carries on the analysis to the system, proposed in the system exists question,

5、as well as to system improvement program and future several dozens year systematic possible development direction. Key word: database, enters sells saves the management, leaves the storehouse, goes into storage, storage management目录第一章 系统分析1.1 问题定义 51.2 可行性研究 5第二章 需求分析5第三章 总体设计3.1 系统模块设计 83.2 数据库设计

6、10第四章 系统的设计与实现 4.1 建立主窗体 15 4.2 建立登陆窗体 16 4.3 建立用户管理介面 19第五章系统存在的问题 26 第六章系统的改进与扩展 27结束语 28致谢 29参考文献 30 第一章. 系统分析1.1 问题定义： 随着WTO的加入和我国工业的迅猛发展，为了抓住机遇，在竞争占得先机，作为生产企业的一个必不可少的重要环节超市进销存管理的信息化、计算机化也就迫在眉捷了。开发超市进销存管理系统即有宏观上的意义，那就是顺应时代信息化、现代化潮流，提高效益，促进国民经济结构优化；也有微观上的意义，那就是可以提高管理的现代化程序，加强管理的信息化手段，提高工作效率，增加单位效

7、益。对于从事商业的活动的超市来说，都需要采购商品，存储商品以及销售商品。对于这样的工作流程，建立一个合适的超市进销存管理系统是十分必要的。 1.2 可行性研究：（1） 技术可行性：本系统需求硬件环境：cpu：586及其以上的微机和兼容机。内存：内存至少16M。硬盘：3.2G 以上。 软件环境：操作系统：Windows98、Windows2000、WindowsXP。设计语言：Microsoft Visual basic6.0。数据库：Access 2000。现在阶段技术完全可行。（2） 经济可行性：超市进销存管理系统按分类、分级的模式对仓库进行全面的管理和监控，缩短了超市信息流转时间，使企业的

8、物资管理层次分明、井然有序，为采购、销售提供依据；智能化的预警功能可自动提示存货的短缺、超储等异常状况；系统还可进行材料超市ABC分类汇总，减少资金积压。完善的超市管理功能，可对企业的存货进行全面的控制和管理，降低超市成本，增强企业的市场竞争力。（3） 操作可行性 本系统操作简单，适应于各类群体。 第二章 需求分析2.1系统需求分析 进销存管理系统能够及时将数据快速转化为超市信息，为管理者提供决策依据。本系统对超市中常见的采购、库存、销售等商业活动以及相关的供应商和客户等基本信息进行管理，自动生成采购交易单、销售交易单、查询历史记录和销售记录；维护产品信息、客户信息和供应商信息等。系统设计不具

9、体针对某一个超市，具有一定的普适性。根据超市进销存的具体情况，系统主要功能设计有： 系统管理：用户管理、客户管理、仓库管理。 商品管理：类目管理、商品信息管理、流通管理。 日常业务：交易管理、财务管理。 查询管理：商品信息查询、流通信息查询、交易信息查询、财务信息查询。2.2 系统流程图 图2-1 演示了超市进销存管理系统的大致流程结构。商品仓库 采购入库 销售出库供货商购货商 采购退货 销售退货财务管理图2-1系统流程图2.3 业务流程图进销存管理系统业务流程图如图2-2:系统管理员仓库管理 客户管理数据库交易管理员商品管理员 商品信息 交易单 财务报表财务管理员图2-2业务流程图2.4 系

10、统结构图根据系统需要实现的主要功能，可以得到如图2-3所示的管理仓库系统的系统结构图。进销存管理系统 查询财务管理系统管理商品管理交易管理流通信息商品管理 类目管理 客户管理 仓库管理 用户管理商品信息查询流通信息查询交易信息查询财务信息查询 图2.3 系统结构图第三章 总体设计3.1 系统模块设计本系统主要由4个模块组成。3.1.1. 系统管理模块该模块包括系统用户信息、客户信息、仓库信息的数据操作：添加、删除、该模块信息由系统管理员操作。 系统用户信息：分为系统管理员、商品管理员、交易管理员和财务管理员。 仓库信息：包含仓库编号、名称以及说明。 客户信息：分为供应商和购货商两类。在商品入库

11、时需要提供供应商的信息，商品出库时需要提供购货商的信息。3.1.2 商品管理模块该模块包含所有商品信息的操作与管理，以及商品入库以及商品出库等信息处理。 商品类目管理：系统对商品进行相应的分类，以方便管理。管理员可以创建和编辑商品类目。 商品信息管理：包含完整的商品信息，设置商品的数量上限和数量下限，一旦过线，出现相应的信息。数据操作包括添加、删除等。 商品流通信息管理：商品交易成功则表示商品从仓库进货或者出货，因此商品信息中的当前数量应做相应的改变，这部分操作将在商品管理员确认交易单时完成。3.1.3. 交易管理模块该模块由交易管理员操作，交易分为商品采购和销售。 采购是从供应商处获取购货信

12、息，商品销售是将库存商品销售给购货商。交易管理员填写交易单，提交给商品和财务管理中心，同时处理从中反馈的信息。 提交交易单：交易订单记录相关的商品、客户、负责人、金额、日期等信息，提交给商品管理员以及财务管理员等待确认，提交是交易订单状态为“已提交”，确认后将相应地更新交易订单的状态，商品管理员确认后状态为“仓库确认”，财务管理员确认后，状态变为“财务确认”，如果两者都已确认，则为“完整确认”，表示交易完成。 采购退货单：对于劣质商品需要退货时，采购管理员先添写退货单，得到商品管理员的确认后，才能将商品退货出库。 销售退货单：销售出去的商品退货时，需要填写销售退货单。3.1.4 财务管理模块该

13、模块对超市与客户间的经济往来进行记录和管理，由财务管理员进行操作。 付款信息：记录与供应商之间的财务往来，如交易金额、付款方式等。 收款信息：记录与购货商的财务往来。 财务统计：对超市资金的进入进行统计分析。3.1.5查询模块该模块对超市与客户间的操作记录进行查询。 商品信息查询：对已商品属性的查询，如商品名，商品ID等。 流通信息查询：对商品的来源与去向等进行查询。 交易信息查询：对超市交易信息进行统计查询。 财务信息查询：对超市资金的进入进行统计查询。3.2 数据库设计 根据部分数据对象及其属性，可得如图3.1实体联系图.供货商购货商商品仓库提供出售客户ID客户名称用户名仓库描述仓库ID仓

14、库名用户ID用户类型图3.1 实体联系图 根据进销存的业务情况，本系统采用Access作为后台数据库。数据库的名称为jinxiaocun.mdb。数据库包含有9个表：用户管理表Users表、客户管理表Customer表、仓库管理表warehouse表、商品类目表category表、商品信息表goods表、商品流通信息表goodstrans表、交易事务表transinfo表、财务信息表billinfo表以及交易状态表。1. Users表此表用来保存系统用户的信息，并且只能由系统管理员操作管理。系统用户分为4类，分别执行各自的任务。字 段数据类型说 明UserID文本系统用户IDUserName文

15、本管理员姓名Password文本登录密码UserType文本管理员类型:1-系统管理员;2-商品管理员;3-交易管理员;4-财务管理员ModifyDate日期/时间资料修改时间2. Customer表Customer表用来存储所有客户的信息,包括客户ID、名称、帐户、地址等，系统在商品交易的时候就会根据此表的信息进行操作。字 段数据类型说 明CustomerID数字客户编号CustomerName文本客户名称CustomerType文本客户类型：表示供应商；表示购货商ContactName文本联系人Phone文本联系电话Descr文本客户说明ModifyDate日期/时间更新时间3. ware

16、house表系统对仓库进行编号管理，每种商品入库的时候都要确定其仓库编号。字 段数据类型说 明warehouseID数字仓库编号warehousename文本仓库名称warehousedescr文本仓库说明4. category表进销存系统对商品进行分类，方便管理。此表的数据操作由商品管理员来完成，包括添加、删除。字 段数据类型说 明typeID数字商品类目编号Typename文本商品类目名称descr文本描述5. goods表此表包含了系统中所有的商品信息，由商品管理员对其进行添加、删除等数据操作。在添加商品的时候都要求设置该种商品的最高和最低数量，一旦当前的商品数量超过这个范围，则会提醒管

17、理员。交易管理员将交易单提交到商品管理员，等待确认，一旦确认后，此表中的商品当前数量也将做相应修改。字 段数据类型说 明GoodsID数字商品编号GoodsName 文本商品名称TypeID数字商品类型编号Price货币商品单价Stocknum数字商品数量Unit文本计量单位Numlow数字商品数量下限Numhigh数字商品数量上限warehouseID数字商品所在仓库编号6. goodstrans表该表为商品流通信息表，记录商品交易后对应的入库或出库信息。由商品管理员进行操作，一旦确认交易管理员的交易表单，将保存商品流通信息到该表中。字 段数据类型说 明goodstrandID数字商品流通编

18、号Goodstranstype文本商品流通类型：1表示采购入库；2表示销售退货入库；3表示销售出库。4表示采购退货出库Transaction数字交易单编号WarehouseID数字商品流通所在仓库编号Modifydate日期/时间更新时间UserID文本操作人7. transinfo表该表为交易事务表，记录所有的商品交易信息，由商品管理员进行管理。字 段数据类型说 明TransactionID数字交易IDtranactiontype文本交易类型：1表示采购；2表示采购退货；3表示销售；4表示销售退货GoodsID数字事务相关商品的IDGoodsprice货币商品的单价Goodsnum数字商品数

19、量Goodsamount货币交易的总价CustomerID文本交易相关的客户IDModifydate日期/时间更新日期UserID文本操作人Status文本商品交易状态8. billinfo表 该表记录系统的财务信息。每次商品交易都涉及到财务，财务管理通过验证交易管理员提交的交易表单以及涉及与客户间的帐单交易，以收集财务交易信息保存到该表中。字 段数据类型说 明BillID数字帐单编号Billtype文本收款类型：1表示销售收款；2表示采购退货收款；3表示采购付款；4表示销售退货付款TransactionID数字交易单编号CustomerID数字交易单中的客户编号GoodsID数字交易单中的商

20、品编号Amount货币交易金额Payway文本付款方式Modifydate日期/时间更新时间UserID文本操作人Descry文本说明9. 交易状态表交易状态说 明未提交交易管理员填写交易管理信息表单，但尚未提交已提交交易管理员将交易单提交，包括商品管理员和财务管理员，等待确认仓库确认商品管理员根据商品现有情况确认交易单后的状态财务确认财务管理员根据财务情况确认交易单后的状态完整确认“仓库确认”和“财务确认”都通过后的状态第四章 系统设计与实现 本节介绍系统的详细设计。 前面已经建好了数据库，接下来通过创建一个个类模块来处理所有的数据库调用和操作， 下面在“项目”中添加一个公有模块，Optio

21、n ExplicitPublic Conn As ADODB.Connection 标记连接对象Public select_menu As String 标记所选择的菜单Public userID As String 标记当前用户IDPublic userpwd As String 标记用户权限Public Sub Con()Set Conn = New ADODB.Connection Const ConStr = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= Conn.Connectio

22、nString = ConStr + App.Path + jinxiaocun.mdb Conn.CursorLocation = adUseClient Conn.ConnectionTimeout = 5000 Conn.OpenEnd Sub4.1 建立主窗体主窗体作为本系统的功能入口,根据系统用户的类型允许进入到相应的操作界面,单击工具栏中的添加窗体，为这个工程添加一个文档窗体作为主窗体。在添加好的窗体中，单击鼠标右键，从弹出的快捷菜单中选择“菜单编辑器”命令，进行编辑，添加所要的菜单如图菜单编辑器4-1。图4-1菜单编辑器设计好的主窗体如4-2.4-2主窗体为主窗体添加代码如下:P

23、rivate Sub menubill_Click() 调用财务管理窗体frmbill.ShowEnd SubPrivate Sub menucategory_Click() 调用商品类目窗体frmcategory.ShowEnd SubPrivate Sub menucustomer_Click() 调用客户管理窗体frmcustomer.ShowEnd SubPrivate Sub menugoodsinfo_Click() 调用商品信息窗体frmgoodsinfo.ShowEnd SubPrivate Sub menugoodstrans_Click() 调用商品交易窗体frmgoods

24、trans.ShowEnd SubPrivate Sub menutrans_Click() 调用交易信息窗体frmtransinfo.ShowEnd SubPrivate Sub menuuser_Click() 调用用户管理窗体frmuser.ShowEnd SubPrivate Sub menuwarehouse_Click() 调用仓库管理窗体frmwarehouse.ShowEnd Sub4.2 建立登陆窗体 添加窗体为工程添加一个窗体，在工具栏中选择“添加窗体”命令，添加窗体。设置窗体属性如图4-3所示图4-3窗体属性 建立界面该模块作为系统的入口,先验证用户信息,根据用户类型给出

25、系统功能入口.在”项目”中新建窗体frmlogin.vb,界面如图5-4图。单击确定按钮,检验用户输入的信息(用户ID和用户密码),如果正确,将用户引导至主界面.本界面用了两个标签，两个文本框，两个按钮。 图4-4登陆窗体界面添加代码如下Option ExplicitPrivate Sub cmd_ok_Click()Static pwdcount As Integer 定义整型变量pwdcount = pwdcount + 1 If pwdcount = 3 ThenEndEnd IfDim sql As String 定义字符串变量Dim rs As New ADODB.Recordset

26、If Trim(username.Text = ) Then MsgBox 请您输入用户名和密码!, vbOKOnly + vbExclamation, 警告username.SetFocusElsesql = select * from users where userid = & username.Text & rs.Open sql, Conn, adOpenKeyset, adLockPessimistic If rs.EOF = True Then MsgBox 没有这个用户,请您重新输入!, vbOKOnly + vbExclamation, 警告 username.SetFocu

27、s Else If Trim(rs.Fields(1) = Trim(pwd.Text) Then userID = username.Text userpwd = rs.Fields(1) rs.CloseUnload Mefrmmain.Show 连接到主窗体Else MsgBox 密码不正确,请您重新输入!, vbOKOnly + vbExclamation, 警告pwd.Text = End IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()Dim X0 As Long Dim Y0 As Long 让窗体居中 X0 = Screen.Width

28、Y0 = Screen.Height X0 = (X0 - Me.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0 Dim C As String Set Conn = New ADODB.Connection 连接数据库 C = provider=Microsoft.Jet.oledb.3.51;data source= & App.Path & jinxiaocun.mdb Conn.Open C 打开数据库End Sub4.3 建立用户管理界面该部分是对系统用户信息的管理，由系统管理员进行操作，包括用户的添加、删除以及用户分类。在项目

29、中添加新窗体frmuser.vb，添加3个按钮用于数据更新操作，有添加、删除、退出。一个MSFlexGrid1用于显示用户信息，界面设计如图4-6图。4-6图用户管理界面系统用户共分为4类，在Combo1控件list属性中添加4条记录：系统管理员、商品管理员、交易管理员、财物管理员。添加代码如下Dim rs As New ADODB.RecordsetDim sql As String 【添加】代码如下：Private Sub cmd_add_Click() 添加用户信息 If Trim(Text1.Text) = Then MsgBox 用户ID不能为空！ Text1.SetFocus Ex

30、it Sub End If If Trim(Text2.Text) = Then MsgBox 用户姓名不能为空！ Text2.SetFocus Exit Sub End If If Trim(Text3.Text) = Then MsgBox 用户密码不能为空！ Text3.SetFocus Exit Sub End If sql = select * from users rs.Open sql, Conn, adOpenKeyset, adLockPessimistic Dim i As Integer rs.MoveFirst For i = 0 To rs.RecordCount -

31、 1 If rs.Fields(0) = Trim(Text1.Text) Then MsgBox 你的ID已有人使用，请重新输入！ Text1.SetFocus rs.Close Exit Sub End If If rs.Fields(0) = Trim(Text2.Text) Then MsgBox 您的用户名已有人使用，请重新输入！ Text1.SetFocus rs.Close Exit Sub End If rs.MoveNextNext rs.MoveLast rs.AddNew rs.Fields(0) = Trim(Text1.Text) rs.Fields(1) = Tri

32、m(Text2.Text) rs.Fields(2) = Trim(Text3.Text) rs.Fields(3) = Trim(Combo1.Text) rs.Update displaygrid rs.Close MsgBox 添加成功！ Exit SubEnd Sub【删除】代码如下：Private Sub cmd_del_Click() 删除用户信息 If MsgBox(您确认要删除此用户吗？, vbYesNo) = vbYes Then sql = select * from users rs.Open sql, Conn, adOpenKeyset, adLockPessimis

33、tic Dim i As Integer rs.MoveFirst For i = 0 To rs.RecordCount - 1 If rs.Fields(0) = Trim(Text1.Text) Then rs.Delete rs.Update displaygrid rs.Close Exit Sub End If rs.MoveNext Next rs.Close MsgBox 无法删除，可能用户已被删除! Exit SubEnd IfEnd SubPrivate Sub Form_Load()Combo1.ListIndex = 0Con sql = select * from u

34、sers rs.Open sql, Conn, adOpenKeyset, adLockPessimistic displaygrid rs.CloseEnd SubPublic Sub setgrid() With MSFlexGrid1 .Cols = 4 .Rows = rs.RecordCount + 1 .ScrollBars = flexScrollBarBoth .FixedCols = 1 Dim i As Integer For i = 0 To .Cols - 1 .ColWidth(i) = 1500 Next For i = 0 To .Rows - 1 .RowHei

35、ght(i) = 315 NextEnd WithEnd SubPublic Sub setgridhead() With MSFlexGrid1 .Row = 0 .Col = 0 .Text = 用户ID .Col = 1 .Text = 用户名 .Col = 2 .Text = 用户密码 .Col = 3 .Text = 用户类型End WithEnd SubPublic Sub displaygrid()setgridsetgridheadDim i As Integer With MSFlexGrid1 .Row = 0If Not rs.EOF Thenrs.MoveFirst F

36、or i = 0 To rs.RecordCount - 1 .Row = .Row + 1 .Col = 0 .Text = rs.Fields(0) .Col = 1 .Text = rs.Fields(1) .Col = 2 .Text = rs.Fields(2) .Col = 3 .Text = rs.Fields(3) rs.MoveNext NextEnd IfEnd WithEnd SubPrivate Sub MSFlexGrid1_Click() With MSFlexGrid1 Dim getrow As String getrow = .Row If getrow =

37、0 Then Exit Sub End If Text1.Text = .TextMatrix(getrow, 0) Text2.Text = .TextMatrix(getrow, 1) Text3.Text = .TextMatrix(getrow, 2) Label5.Caption = .TextMatrix(getrow, 3) Dim i As Integer Combo1.ListIndex = 0 For i = 0 To 3 If Label5.Caption = Combo1.Text Then Combo1.ListIndex = i Exit Sub End If Co

38、mbo1.ListIndex = Combo1.ListIndex + 1 NextEnd WithEnd Sub第五章 存在的问题 存在的问题经过指导老师和同学的共同测试，设计的“超市进存销系统”基本上达到了设计要求。但是也存在一些问题主要是：一、由于系统只是经过短时间、小规模调试运行，投入正常使用后，在长时间、大量数据下运行，其稳定性如何，还有待进一步调整。二、在功能设计上，我们感到由于时间仓促和水平有限，与现代超市管理的要求还有很大的距离，还需要进一步充实和规范。三、在运行调试中，不能使库存中的相同的货物信息累计在一起，但初次设计软件总有考虑不周全的地方，这也是本次设计最为遗憾之处。四、

39、作为一个产品，其完美的外型设计会起到画龙点睛的作用，就本系统而言，在这个方面我们还做的不够。第六章系统的改进与扩展 本案例中设计的系统基本上包含了日常超市进销存中常用的功能,基本能够满足超市的日常的业务需求。但是，为了提高系统的运行效率，完善系统的功能，增强超市的信息的安全性，还可以从以下几个方面对本系统进行改进和扩展。 （1）完善用户管理和权限管理功能：权限管理可以通过角色定义来实现。在系统中定义几种不同的角色，每种角色的功能权限对应系统中不同的可用菜单项。每种角色的权限，由系统管理员设置。每登记一个新用户时，需要设置其相应的角色。这样，当用户登陆时，不但需要检查其密码，还要检查其用户权限，然后根据用户权限设置系统的菜单结构。 （2）增加日志功能：当用户登陆时，系统在后台记录下登陆的时间和登陆的名称，将这些信息写入到日志文件中。当用户登录成功进行各种操作时，系统在后台也会记录下操作时间、用户名称、操作类型等信息，写入到日志文件中。这样，当超市的系统发现问题的时候，系统管理员可以通过查看日志文件来确认问题产生的根源。 （3）增加报表功能：利用PrintGrid控件可以方便地生成和打印报表，但该控件不是VisualBasic中自带控件，需要安装才能使用。 （4）增加采购和销售对库存的自动盘点功能：本案例中库存盘点是需要人工干预的，当超市的销