《2022年销售系统报告 .pdf》由会员分享，可在线阅读，更多相关《2022年销售系统报告 .pdf（16页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、销售管理系统课程设计报告学院：西南大学育才学院班级：09 计软姓名、学号：名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 16 页 -超市销售管理系统1.1、应用背景最初的超市资料管理，都是靠人力来完成的。但近几年我国超市经营规模日趋扩大，销售额和门店数量大幅度增加，而且许多超市正在突破以食品为主的传统格局，向品种多样化发展。小型超市在业务上需要处理大量的库存信息，还要时刻更新产品的销售信息，不断添加商品信息，并对商品各种信息进行统计分析。因此，在超市管理中引进现代化的办公软件，实现超市庞大商品的控制和传输，从而方便销售行业的管理和决策，为超市和超市管理人员解除后顾之忧。1.2、
2、设计目标开发这个系统的目的就是帮助超市管理部门提高工作效率。通过本管理系统软件，能帮助超市工作人员利用计算机，极为方便的对超市的有关数据进行管理、输入、输出、查找、计费等有关操作，使杂乱的超市数据能够具体化、直观化、合理化等。2.1、系统数据流程图描述系统数据流程图如下所示。浏览与录入管理2.2、系统设计具体实现目的：设计系统结构，根据需求分析给出的功能得出系统体系结构。如划分超 市 管理 人 员登录商品基本信息数据库商品销售商品销售信息商品销售历史信息销售报表名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 16 页 -模块。目标：通过本系统软件，能帮助超市管理人员利用计算机，快
3、速方便的对商品信息管理进行维护、输入、输出、查找和计算销售商品总价的所需操作。运行环境操作系统：Windows2000/XP或更高的版本。2.3、模块具体分析商品销售系统的模块：主要用于商品基本信息的录入与销售。实体E-R 图如下：2.4、程序逻辑模块功能实现的算法流程图（数据录入）。数据录入模块流程图输入信息条件数据库显示提示信息退出不符 合条件销售管理系统商品录入库存信息登录销售前台商品销量名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 16 页 -定义数据库：商品基本信息：销售系统登录窗体：默认登录账号为pym密码为 pym 名师资料总结-精品资料欢迎下载-名师精心整理-第
4、 4 页，共 16 页 -功能：成功登录后可对系统进行管理代码为：Private Sub Command4_Click()If Nz(Text账号)=0 And Nz(Text密码)=0 Then MsgBox 账号、密码都为空，情重新输入！,vbCritical,错误提示 ElseIf Nz(Text账号)=0 Then Text 账号.SetFocus MsgBox 账号为空，情重新输入！,vbCritical,错误提示 Text 账户.SetFocus ElseIf Nz(Text密码)=0 Then MsgBox 密码为空，情重新输入！,vbCritical,错误提示 Text 密码.
5、SetFocus Else If UCase(Text账号.Value)=PYM And UCase(Text密码.Value)=PYM Then MsgBox 欢迎使用本系统！,vbInformation,成功 DoCmd.Close DoCmd.OpenForm 启动界面 ElseIf UCase(Text账号.Value)PYM And UCase(Text密码.Value)PYM Then MsgBox 账户、密码错误！,vbCritical,错误提示 ElseIf UCase(Text账号.Value)PYM Then MsgBox 账户错误！,vbCritical,错误提示 名师资
6、料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 16 页 -ElseIf UCase(Text密码.Value)PYM Then MsgBox 密码错误！,vbCritical,错误提示 End If End If End Sub 启动界面：代码为：Private Sub Command13_Click()DoCmd.OpenForm 库存信息界面 End Sub Private Sub Command14_Click()DoCmd.OpenForm 销售信息界面 End Sub Private Sub Command15_Click()DoCmd.OpenForm 销售前台界面 En
7、d Sub Private Sub Command17_Click()DoCmd.Close End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 16 页 -库存信息界面：可对现有商品进行查询、添加、修改，删除等命令代码：Private Sub Command8_Click()On Error GoTo Err_Command8_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar,acEditMenu,10,acMenuVer70 Exit_Command8_Click:Exit Sub E
8、rr_Command8_Click:MsgBox Err.Description Resume Exit_Command8_Click End Sub Private Sub Command18_Click()On Error GoTo Err_Command18_Click Screen.PreviousControl.SetFocus DoCmd.FindNext Exit_Command18_Click:Exit Sub Err_Command18_Click:MsgBox Err.Description Resume Exit_Command18_Click End Sub 名师资料总
9、结-精品资料欢迎下载-名师精心整理-第 7 页，共 16 页 -Private Sub Command19_Click()On Error GoTo Err_Command19_Click DoCmd.GoToRecord,acPrevious Exit_Command19_Click:Exit Sub Err_Command19_Click:MsgBox Err.Description Resume Exit_Command19_Click End Sub Private Sub Command20_Click()On Error GoTo Err_Command20_Click Dim s
10、tDocName As String Dim MyForm As Form stDocName=ChrW(21830)&ChrW(21697)Set MyForm=Screen.ActiveForm DoCmd.SelectObject acTable,stDocName,True DoCmd.PrintOut DoCmd.SelectObject acForm,MyForm.Name,False Exit_Command20_Click:Exit Sub Err_Command20_Click:MsgBox Err.Description Resume Exit_Command20_Clic
11、k End Sub Private Sub Command21_Click()On Error GoTo Err_Command21_Click DoCmd.DoMenuItem acFormBar,acEditMenu,8,acMenuVer70 DoCmd.PrintOut acSelection Exit_Command21_Click:Exit Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 16 页 -Err_Command21_Click:MsgBox Err.Description Resume Exit_Command21_Click End Sub Pr
12、ivate Sub Command22_Click()On Error GoTo Err_Command22_Click DoCmd.Close Exit_Command22_Click:Exit Sub Err_Command22_Click:MsgBox Err.Description Resume Exit_Command22_Click End Sub Private Sub Command23_Click()On Error GoTo Err_Command23_Click DoCmd.GoToRecord,acNext Exit_Command23_Click:Exit Sub E
13、rr_Command23_Click:MsgBox Err.Description Resume Exit_Command23_Click End Sub Private Sub Command24_Click()On Error GoTo Err_Command24_Click DoCmd.GoToRecord,acPrevious Exit_Command24_Click:Exit Sub Err_Command24_Click:MsgBox Err.Description 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 16 页 -Resume Exit_Command24
14、_Click End Sub Private Sub Command26_Click()On Error GoTo Err_Command26_Click DoCmd.GoToRecord,acNewRec Exit_Command26_Click:Exit Sub Err_Command26_Click:MsgBox Err.Description Resume Exit_Command26_Click End Sub Private Sub Command27_Click()On Error GoTo Err_Command27_Click DoCmd.DoMenuItem acFormB
15、ar,acRecordsMenu,acSaveRecord,acMenuVer70 Exit_Command27_Click:Exit Sub Err_Command27_Click:MsgBox Err.Description Resume Exit_Command27_Click End Sub Private Sub Command28_Click()On Error GoTo Err_Command28_Click DoCmd.DoMenuItem acFormBar,acEditMenu,8,acMenuVer70 DoCmd.DoMenuItem acFormBar,acEditM
16、enu,6,acMenuVer70 Exit_Command28_Click:Exit Sub Err_Command28_Click:MsgBox Err.Description 名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 16 页 -Resume Exit_Command28_Click End Sub Private Sub Combo29_AfterUpdate()查找与该控件匹配的记录。Dim rs As Object Set rs=Me.Recordset.Clone rs.FindFirst 商品编号 =&Me!Combo29&If Not rs.EOF Th
17、en Me.Bookmark=rs.Bookmark End sub 销售信息界面：可查询库存商品的进出价、进出量代码：Private Sub Combo9_AfterUpdate()查找与该控件匹配的记录。Dim rs As Object Set rs=Me.Recordset.Clone rs.FindFirst 商品编号 =&Me!Combo9&If Not rs.EOF Then Me.Bookmark=rs.Bookmark End Sub Private Sub Command11_Click()On Error GoTo Err_Command11_Click DoCmd.GoT
18、oRecord,acNext Exit_Command11_Click:名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 16 页 -Exit Sub Err_Command11_Click:MsgBox Err.Description Resume Exit_Command11_Click End Sub Private Sub Command12_Click()On Error GoTo Err_Command12_Click DoCmd.GoToRecord,acPrevious Exit_Command12_Click:Exit Sub Err_Command12_Cli
19、ck:MsgBox Err.Description Resume Exit_Command12_Click End Sub Private Sub Command13_Click()On Error GoTo Err_Command13_Click DoCmd.GoToRecord,acPrevious Exit_Command13_Click:Exit Sub Err_Command13_Click:MsgBox Err.Description Resume Exit_Command13_Click End Sub Private Sub Command14_Click()On Error
20、GoTo Err_Command14_Click DoCmd.GoToRecord,acNewRec Exit_Command14_Click:Exit Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 16 页 -Err_Command14_Click:MsgBox Err.Description Resume Exit_Command14_Click End Sub Private Sub Command15_Click()On Error GoTo Err_Command15_Click DoCmd.DoMenuItem acFormBar,acRecordsMen
21、u,acSaveRecord,acMenuVer70 Exit_Command15_Click:Exit Sub Err_Command15_Click:MsgBox Err.Description Resume Exit_Command15_Click End Sub Private Sub Command16_Click()On Error GoTo Err_Command16_Click DoCmd.DoMenuItem acFormBar,acEditMenu,8,acMenuVer70 DoCmd.DoMenuItem acFormBar,acEditMenu,6,acMenuVer
22、70 Exit_Command16_Click:Exit Sub Err_Command16_Click:MsgBox Err.Description Resume Exit_Command16_Click End Sub Private Sub Command21_Click()On Error GoTo Err_Command21_Click Dim stDocName As String stDocName=ChrW(-27392)&ChrW(21806)&ChrW(20449)&ChrW(24687)DoCmd.OpenReport stDocName,acPreview 名师资料总结
23、-精品资料欢迎下载-名师精心整理-第 13 页，共 16 页 -Exit_Command21_Click:Exit Sub Err_Command21_Click:MsgBox Err.Description Resume Exit_Command21_Click End Sub 销售前台：可对所有购买商品计算总价、找零等代码：Private Sub Combo 查询 _BeforeUpdate(Cancel As Integer)Dim k As Single,j As Integer,i As Single Dim s As Single i=之前商品总价.Value k=单品总价.Val
24、ue 前一类商品价.Value=k s=前一类商品价.Value i=i+s 之前商品总价.Value=i End Sub Private Sub Text 数量 _BeforeUpdate(Cancel As Integer)Dim i As Single 名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 16 页 -Dim s As Single Dim n As Single s=0 i=出售价.Value n=Text 数量.Value s=i*n 单品总价.Value=s End Sub Private Sub 结算 _Click()Dim s1 As Single,s
25、2 As Single,s As Single s=0 s1=Text 总价.Value s2=付款.Value s=s2-s1 找零.Value=s End Sub Private Sub 清空 _Click()前一类商品价.Value=0 付款.Value=0 找零.Value=Combo 查询.Value=单品总价.Value=0 之前商品总价.Value=0 Text 总价.Value=0 End Sub Private Sub Combo 查询 _AfterUpdate()查找与该控件匹配的记录。Dim rs As Object Set rs=Me.Recordset.Clone r
26、s.FindFirst 商品编号 =&Me!Combo查询&If Not rs.EOF Then Me.Bookmark=rs.Bookmark Text 数量.Value=1 Dim i As Single Dim s As Single Dim n As Single s=0 i=出售价.Value n=Text 数量.Value s=i*n 单品总价.Value=s 名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 16 页 -Dim j As Single Dim k As Single Dim m As Single j=单品总价.Value k=之前商品总价.Value m=j+k Text 总价.Value=m End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 16 页 -