管理信息系统课程设计报告--超市门店进销存管理系统

1、目录1.系统背景资料1(1) 组织结构 .1(2) 业务功能 .1(3) 管理功能 .1(4) 业务功能与组合结构的关系 .1(5) 前台销售处理流程 .1(6) 后台进货、库存、销售管理流程 .22目标系统需求分析 .2(1) 系统目标 .2(2) 系统输入、输出信息分析 .2(3) 进销存数据处理流程 .2(4) 数据类需求分析 .33.目标系统设计 4(1) 系统功能结构设计 4(2) 系统数据库设计 .4(3) 系统主要功能模块设计 .64 系统实施 .7(1) 系统运行环境说明 .7(2) 系统主要功能模块界面和代码 75.系统操作说明 23(1) 系统运行环境 23(2) 系统安装

2、文件 23(3) 系统功能说明 23附录：课程设计分工说明 .241 系统背景资料本系统应用背景为一家中小超市门店。(1 )组织结构该门店规模较小，其组织结构关系如图:店长销售部门图1组织结构关系图(2)业务功能 业务功能主要包括：进货、销售和库存/盘点管理。(3)管理功能门店管理 I 厂I进货销售库存管理(4)业务功能与组合结构的关系业务功能与组织结构的关系如表所示进货销售库存/盘点店长店长助理销售部门表1业务功能与组织结构的关系表注：表中“”表示该项业务是对应组织的主要业务；“”表示该组织是参加协调该项业务的。(5) 前台销售处理流程图3 POS前台销售处理流程(6) 后台进货、库存、销售

3、管理流程:14 Z -I： K*砧-I*七助養)I.(齐业*一-ttw图4后台进货、库存、销售管理流程2 目标系统需求分析(1) 系统目标本仿真系统的设计目标是：验货单; 能通过键盘录入当前的销售商品和实收金额、采购清单、 自动结算应收金额和找零金额； 打印购物小票并更新库存； 能查询商品销售信息、采购清单、库存信息、验货单； 能根据验货单确认采购清单并更新库存。(2) 系统输入、输出信息分析输入信息有：当前销售商品信息、实收金额、入库商品信息。 输出信息有：购物小票、销售情况表和库存情况表。(3) 进销存数据处理流程图5进销存数据处理流程图(顶层)teSl*品. 时询；前阳尙目i,n is.

4、 it 5 图12小票样式 库存管理模块程序结构韦灯年商严信息并隊弃罡售暫b川劇. 丁 .|库存信剥着直并统讯图13验收到货模块程序结构图4 系统实施(1) 系统运行环境说明操作系统：Windows 2000/XP/Vista 数据管理系统：ACCESS 2000编程语言：VB 6.0(2) 系统主要功能模块界面和代码1.总控制模块程序设计系统总控模块程序1)窗体对象Frmlnit 属性：Name: FrmI nitBorderstyle:0-Z onePictured :享受大自然风景宽屏壁纸StarUpPositio n:2-屏幕中心代码：Public COVER As Boolea nP

5、rivate Sub For mn itialize()Me Labell.Top = Me.Height - 400Me Label1 丄 eft = (Me.Width - Me.Label1.Width) / 2Me.Label2.Top = (Me.Height + 800)Me Label2.Left = (Me.Width - Me.Label2.Width) / 2Me. Label1.Visible = FalseMe. Label2.Visible = FalseEnd SubPrivate Sub Form_Load()Dim n obtime As In teger n

6、obtime = 0End Sub2）计时器对象Timer1 属性：Interval:60代码：Private Sub Timer1_Timer()If n obtime = 0 The nn obtime = 1Me. Label1.Visible = TrueMe.Label2.Visible = TrueEnd IfIf Me.Label1.Top - 1500 0 ThenMe. Label1.Top = Me.Label1.Top - 20Me.Label2.Top = Me.Label2.Top - 20ElseUn load MeCOVER = TrueEnd IfEnd Sub

7、系统封面表单设计系统封面表单界面，如图所示，运行时字幕由下向上慢慢上升图14系统封面系统登录表单设计系统登录表单界面，如图所示:图15系统登录界面代码：Optio n Explicit强制变量声明Public OK As Boolea nDim txtSQL As Stri ngDim mrc As ADODB.RecordsetDim MsgText As Stri ngPrivate Sub Form_Load()Dim i As In tegeri = 0txtSQL = select * from收款员表Set mrc = ExecuteSQL(txtSQL, MsgText)With

8、 txtUserNameDo While Not mrc.EOFi = i + 1.AddItem Trim(mrc.Fields(收款员姓名)mrc.MoveNextLoop.ListI ndex = 0End Withmrc.CloseOK = FalseEnd SubPrivate Sub cmdCa ncel_Click()OK = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()txtSQL = select * from收款 员表 where 收款 员姓 名 =&txtUserName.Text & ”Set mrc = ExecuteSQL

9、(txtSQL, MsgText)If mrc.EOF = True The nMsgBox 没 有这个 用尸，请重 新 输入用 尸名！, vbOKOnly + vbExclamation,警告txtUserName.SetFocusElseIf Trim(mrc.Fields(”口令)=Trim(txtPassword.Text) The nOK = TrueMe.HideUserName = Trim(txtUserName.Text)UserOrder = mrc.Fields(”收款员代号)mrc.CloseElseMsgBox 输入密码不正确，请重新输入！ , vbOKO nly +

10、vbExclamation,警告txtPassword.SetFocustxtPassword.Text =End IfEnd IfEnd SubPrivate Sub txtPassword_Cha nge()End SubPrivate Sub txtUserName_Click() txtPassword.Text =End Sub系统菜单设计系统菜单采用菜单编辑器来完成:图16-1系统菜单编辑器*统初如设置 商品誚售 誚售商品信息查询 库存管理 退出图16-2系统菜单代码：正在运行中Private Sub MDIForm_Load()StatusBarl.Pa nels.ltem(l)

11、=End SubPrivate Sub mun basic_Click() 基本信息库.ShowEnd SubPrivate Sub mun billquery_Click()按单据号查询.ShowEnd SubPrivate Sub mun codequery_Click() 按商品代号查询.ShowEnd SubPrivate Sub mun dictio nary_Click() 商品词典.ShowEnd SubPrivate Sub mun parameter_Click() 运行参数.ShowEnd SubPrivate Sub mun pos_Click()收款员库.ShowEnd

12、 SubPrivate Sub mun quit_Click()EndEnd SubPrivate Sub mun sale_Click() 商品销售.ShowEnd SubPrivate Sub 出库表 _Click()frm出库表.ShowEnd SubPrivate Sub 库存查询 _Click()Form1.ShowEnd SubPrivate Sub 入库表 _Click() frm入库表.ShowEnd Sub2. 初始化模块设计基本信息表单运行界面，如图所示:图17基本信息表收款员表单运行界面 如图所示：图18收款员表商品词典表单运行界面 如图所示：图19商品词典表运行参数表单

13、运行界面如图20所示：图20运行参数表3. 商品销售模块设计 商品销售表单商品销售表单如图21所示:图21商品销售 代码：Dim txtSQL As Stri ngDim mrc As ADODB.RecordsetDim rec As ADODB.RecordsetDim MsgText As Stri ngPrivate Sub Combo1_Click()txtSQL = select * from商品 词典 表 where 商品 代号 =&Combol.Text & ”Set mrc = ExecuteSQL(txtSQL, MsgText)执行查询语句With MSHFIexGrid

14、l 将查询内容显示在表格控件中.Rows = .Rows + 1.TextMatrix(.Rows - 1,0) = mrc.Fields(O) & .TextMatrix(.Rows - 1, 1) = mrc.FieIds(1) & .TextMatrix(.Rows - 1,2) = mrc.Fields(2) & End WithText3.Text = mrc.Fields(2)mrc.Close 关闭数据集End SubPrivate Sub Comma nd1_Click()Dim Order As In tegerIf Text5 = The nMsgBox 实收不能为空!,

15、vbOKOnly, 提示Text5.SetFocusExit SubEnd IfIf Textl = The nMsgBox 总计不能为空！, vbOKOnly, 提示Exit SubEnd IftxtSQL = select 单据号from 运行参数表Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.MoveLastOrder = mrc.Fields( 单据号)mrc.AddNewmrc.Fields(O) = Order + 1Order = mrc.Fields(O)mrc.Updatemrc.ClosetxtSQL = select商品代号，商品名称，

16、单价，数量，金额，总计，实收，找零，时间，收款员代号，单据号from当前销售商品信息表Set mrc = ExecuteSQL(txtSQL, MsgText)With MSHFIexGrid1For i = 2 To .Rows - 1mrc.AddNewmrc.Fields(0) = .TextMatrix(i, 0)mrc.Fields(1) = .TextMatrix(i, 1)mrc.Fields(2) = .TextMatrix(i, 2)mrc.Fields(3) = .TextMatrix(i, 3)mrc.Fields(4) = .TextMatrix(i, 4)mrc.Fi

17、elds(5) = Text1.Textmrc.Fields(6) = Text5.Textmrc.Fields(7) = Text6.Textmrc.Fields(8) = Datemrc.Fields(9) = UserOrdermrc.Fields(10) = Ordermrc.Update将当前销售商品信息表复制到历史销售商品信息表txtSQL = select商品代号，商品名称，单价，数量，金额,总计，实收，找零，时间，收款员代号，单据号from历史销售商品信息表Set rec = ExecuteSQL(txtSQL, MsgText)rec.AddNewFor j = 0 To 1

18、0rec.Fields(j) = mrc.Fields(j)Next jrec.UpdateNext irec.Close mrc.CloseMSHFIexGridl.ClearTextl =Text3 =Text4 =Text5 =Text6 =End WithEnd SubPrivate Sub Comma nd2_Click()打印单据报表DataReport1.Show清空当前销售商品信息表txtSQL = select商品代号，商品名称，单价，数量，金额，总计，实收,找零,时间,收款员代号,单据号from当前销售商品信息表Set mrc = ExecuteSQL(txtSQL, Ms

19、gText)Do While Not mrc.EOFmrc.Deletemrc.MoveNextLoopmrc.CloseEnd SubPrivate Sub Comma nd3_Click()Un load MeEnd SubPrivate Sub Form_Load()Dim i As In tegeri = 0txtSQL = select * from商品词典表Set mrc = ExecuteSQL(txtSQL, MsgText) With CombolDo While Not mrc.EOFi = i + 1商品代号).AddItem Trim(mrc.Fields( mrc.M

20、oveNextLoopEnd Withmrc.CloseWith MSHFlexGridl.Rows = 2.CellAlig nment = 5.ColWidth(O) = 1500.ColWidth=2000.ColWidth(2) = 1200.ColWidth(3) = 1200.ColWidth =1500.TextMatrix(1,0)=商品代号.TextMatrix(1, 1)=商品名称.TextMatrix(1,2)=单价.TextMatrix(1,3)=数量.TextMatrix(1,4)=金额End WithText1.E nabled = FalseText3.E nab

21、led = FalseText6.E nabled = FalseEnd SubPrivate Sub Text4_Cha nge()If Text4 The nWith MSHFIexGrid1.TextMatrix(.Rows - 1,3) = Text4.Text.TextMatrix(.Rows - 1,4) = Text3.Text * Text4.TextTextl.Text = Val(Textl.Text) + Val(.TextMatrix(.Rows - 1,4)End WithEnd IfEnd SubPrivate Sub Text5_Cha nge()If Text5

22、 The nText6.Text = Text5.Text - Textl.Text End IfEnd Sub单据表单小票样式，如图所示：图22单据表单4. 销售商品信息查询模块设计 按商品代号查询表单如图所示：图23按商品代号查询表单 代码：Dim txtSQL As Stri ngDim mrc As ADODB.RecordsetDim MsgText As Stri ngPrivate Sub Comma nd1_Click()Un load MeEnd SubPrivate Sub Form_Load() With MSHFIexGrid1.Rows = 2.CellAlig nm

23、ent = 7.ColWidth(O) = 1500 .ColWidth=2000 .ColWidth(2) = 1200 .ColWidth(3) = 1200 .ColWidth =1500 .ColWidth(5) = 2500 .ColWidth(6) = 1200 End WithEnd SubPrivate Sub Text1_Cha nge()MSHFlexGrid1.CleartxtSQL = select 商品代号,商品名称,单价,数量,金额,时间，收款员 代号from 历史销售商品信息表Set mrc = ExecuteSQL(txtSQL, MsgText)Do Whil

24、e Not mrc.EOFIf mrc.Fields(”商品代号)=Textl.Text ThenWith MSHFIexGridl 将查询内容显示在表格控件中.Rows = .Rows + 1.TextMatrix(.Rows - 1, 0) = mrc.Fields(O) & .TextMatrix(.Rows -1,1) = mrc.Fields(1) & .TextMatrix(.Rows - 1,2) = mrc.Fields(2) & .TextMatrix(.Rows - 1, 3) = mrc.Fields(3) & .TextMatrix(.Rows - 1,4) = mrc

25、.Fields & .TextMatrix(.Rows - 1, 5) = mrc.Fields(5) & .TextMatrix(.Rows - 1,6) = mrc.Fields(6) & .TextMatrix(1, 0)=商品代号.TextMatrix(1, 1)=商品名称.TextMatrix(1,2)=单价.TextMatrix(1, 3)=数量.TextMatrix(1,4)=金额.TextMatrix(1, 5)=时间.TextMatrix(1,6)=收款员代号End WithEnd Ifmrc.MoveNextLoopmrc.CloseEnd Sub按单据号查询表单如图所示：

26、图24按单据号查询表单代码：Private Sub Text1_Cha nge()MSHFIexGrid1.CleartxtSQL = select商品代号,商品名称,单价,数量,金额,时间,单据号from历史销售商品信息表Set mrc = ExecuteSQL(txtSQL, MsgText)Do While Not mrc.EOFIf mrc.Fields(”单据号)=Textl.Text The nWith MSHFIexGridl 将查询内容显示在表格控件中.Rows = .Rows + 1.TextMatrix(.Rows - 1, 0) = mrc.Fields(O) & .Te

27、xtMatrix(.Rows -1,1) = mrc.Fields(1) & .TextMatrix(.Rows - 1,2) = mrc.Fields(2) & .TextMatrix(.Rows - 1, 3) = mrc.Fields(3) & .TextMatrix(.Rows - 1,4) = mrc.Fields & .TextMatrix(.Rows - 1, 5) = mrc.Fields(5) & .TextMatrix(.Rows - 1,6) = mrc.Fields(6) & .TextMatrix(1, 0)=商品代号.TextMatrix(1, 1)=商品名称.Te

28、xtMatrix(1,2)=单价.TextMatrix(1, 3)=数量.TextMatrix(1,4)=金额.TextMatrix(1, 5)=时间.TextMatrix(1,6)=单据号End WithEnd If mrc.MoveNextLoopmrc.CloseEnd Sub5. 库存管理模块设计 商品入库图25商品入库 代码：Private Sub cmdAdd_Click()Data1.Recordset. AddNewEnd SubPrivate Sub cmdDelete_Click()如果删除记录集的最后一条记录记录或记录集中唯一的记录Data1.Recordset.Dele

29、teDatal.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click()这仅对多用户应用程序才是需要的Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click()Data1.UpdateRecordData1.Recordset.Bookmark = Data1 .R ecordset.LastModifiedEnd SubPrivate Sub cmdClose_Click()Un load MeEnd SubPrivate Sub Data1_Error(DataErr As In teger, R

30、esp onse As In teger)这就是放置错误处理代码的地方如果想忽略错误，注释掉下一行代码如果想捕捉错误，在这里添加错误处理代码MsgBox 数据错误事件命中错误：& Error$(DataErr)Resp onse = 0 忽略错误End SubPrivate Sub Data1_Repositio n()Scree n.M ousePo in ter = vbDefaultOn Error Resume Next这将显示当前记录位置为动态集和快照+ 1)Data1.Caption=记录：& (Data1.Recordset.AbsolutePosition对于Table对象，当

31、记录集创建后并使用下面的行时，必须设置Index属性Data1.Caption=记录：& (Data1.Recordset.RecordCount(Data1.Recordset.Perce ntPosition * 0.01) + 1End SubPrivate Sub Data1_Validate(Action As In teger, Save As In teger) 这是放置验证代码的地方当下面的动作发生时，调用这个事件Select Case Acti onCase vbDataActi onM oveFirstCase vbDataActio nM ovePreviousCase

32、vbDataActio nM oveNextCase vbDataActi onM oveLastCase vbDataActio nAddNewCase vbDataActi on UpdateCase vbDataAction DeleteCase vbDataActi onFindCase vbDataActio nBookmarkCase vbDataActio nCloseEnd SelectScree n.M ousePo in ter = vbHourglassEnd Sub商品出库图26商品出库 代码：Private Sub cmdAdd_Click()Data1.Record

33、set. AddNewEnd SubPrivate Sub cmdDelete_Click()如果删除记录集的最后一条记录记录或记录集中唯一的记录Data1.Recordset.DeleteData1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click()这仅对多用户应用程序才是需要的Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click()Data1.UpdateRecordData1.Recordset.Bookmark = Data1 .R ecordset.LastModifiedEnd S

34、ubPrivate Sub cmdClose_Click()Un load MeEnd SubPrivate Sub Data1_Error(DataErr As In teger, Resp onse As In teger)这就是放置错误处理代码的地方如果想忽略错误，注释掉下一行代码如果想捕捉错误，在这里添加错误处理代码MsgBox 数据错误事件命中错误：& Error$(DataErr)Resp onse = 0 忽略错误End SubPrivate Sub Data1_Repositio n()Scree n.M ousePo in ter = vbDefaultOn Error Resume Next这将显示当前记录位置为动态集和快照+ 1)Data1.Caption=记录：& (Data1.Recordset.AbsolutePosition对于Table对象，当记录集创建后并使用下面的行时，必须设置Index属性Data1.Caption=记录：& (Data1.Recordset.RecordCount(Data1.Recordset.P