课程设计--超市销售系统管理.doc

附件 1 课程设计报告封面 （A4）2013-2014学年第1学期.NET课程设计报告课题名称： 超市销售系统管理 班级文专计算111-1学号201090609139姓名单正岩| 课题完成时间：2013年12月23日 对应提交的电子文档打包文件名称(准确填写)：_=以下部分为教师填写区，请勿填写=成绩评定：软件运行_软件基本功能_软件提高功能_ 软件部分成绩_文档结构_文档理论_文档撰写_ 文档部分成绩_ 总成绩_备注一、课程设计目的：课程设计为学生提供一个及动手又动脑，独立实践的机会，将课本上的VB理论知识和实践有机的结合起来。锻炼学生的分析解决实际问题的能力。提高用VB编程实现具体问题的能力。二、课程设计的题目：VB超市销售管理系统课程设计简介：这个超市销售管理系统主要实现了商品信息和销售信息以及员工信息的添加、删除、修改和查询。用户在登录系统之后可以在提示下做想进行的操作。登陆后可以在删除修改等操作，方便了超市销售管理。三、设计说明：超市销售管理系统商品信息查询销售信息查询员工信息查询【超市销售管理系统】商品信息查询 （商品号）（商品名称）（厂商）（商品类型）（单价）销售记录查询（销售记录号）（销售金额）（销售人）（商品名称）员工信息查询（员工号）（姓名）（性别）（籍贯）整个销售系统目前实现了商品、销售、员工信息的增删查改功能。进入系统后，可以选择想要查询的信息点入，进入另一个界面后进行相关操作。对商品信息查询的时候输入商品号即会出现商品相关择 “是”或“否”确定是否删除。当用户点击“修改”时，弹出对话框“确定呀修改记录？”同样选择“是”或“否”决定是否修改记录。查询时，输入商品号，或者销售记录号。可以查到想要的信息。点击退出则回到登录界面。整个系统涵盖三个可查询的大信息。再入进行操作。设计界面清雅脱俗，给人清新的感觉。源代码 超市销售系统登录源代码：Public Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入正确的用户名, 11, 错误信息ElseIf Text2.Text = ThenMsgBox 请输入正确的密码, 11, 错误信息End IfIf Text1.Text = xlf And Text2.Text = xiong ThenLoad Form2Form2.Show 1Unload Form1ElseMsgBox 用户名或密码错误, 11, 错误信息End IfEnd Sub退出系统源代码：Private Sub Command2_Click()EndEnd Sub进入商品信息查询、销售信息查询、员工信息查询代码：Private Sub Command1_Click()Load Form3Form3.Show 1Unload Form1End SubPrivate Sub Command2_Click()Load Form4Form4.Show 1Unload Form2End SubPrivate Sub Command3_Click()Load Form5Form5.Show 1Unload Form3End Sub对商品信息的添加的代码Public msgPrivate Sub Command1_Click()vb_msg = MsgBox(请输入要添加的数据, vbOKCancel)If vb_msg = vbCancel ThenExit SubEnd IfData1.Recordset.AddNewData1.Recordset.Fields(商品号) = Val(Text1.Text)Data1.Recordset.Fields(商品名称) = Text2.TextData1.Recordset.Fields(厂商) = Text3.TextData1.Recordset.Fields(商品类型) = Val(Text4.Text)Data1.Recordset.Fields(单价) = Val(Text5.Text)End Sub对商品信息删除的代码Private Sub Command2_Click()Dim X As IntegerX = MsgBox(你确定要删除记录吗?, vbYesNo)If X = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd IfEnd IfEnd Sub对商品信息修改的代码：Private Sub Command3_Click()Dim areturn As Integerareturn = MsgBox(你确定要修改记录吗?, vbYesNo)If areturn = vbYes ThenData1.Recordset.EditData1.Recordset.Fields(商品号) = Val(Text1.Text)Data1.Recordset.Fields(商品名称) = Text2.TextData1.Recordset.Fields(商品类型) = Text3.TextData1.Recordset.Fields(单价) = Val(Text4.Text)Data1.Recordset.UpdateEnd IfEnd Sub对商品信息查询的代码：Private Sub Command4_Click()msg = InputBox(请输入商品号, 查找记录)Data1.Recordset.FindFirst 商品号 = & msg & If Data1.Recordset.NoMatch ThenMsgBox 没有你所找商品!ElseMsgBox 合您查找条件的商品为 & Data1.Recordset.Fields(1)End IfEnd Sub“退出”的代码Private Sub Command5_Click()Form2.ShowForm3.HideEnd Sub 要查看“上一个”的代码Private Sub Command6_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirstMsgBox (已经是第一条记录了!)End IfEnd Sub 要查看“下一个“的代码Private Sub Command7_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastMsgBox (已经是最后一条记录了!)End IfEnd Sub 对销售信息进行操作的源代码Public msg 公共消息框 “添加”Private Sub Command1_Click()vb_msg = MsgBox(请输入要添加的数据, vbOKCancel)If vb_msg = vbCancel ThenExit SubEnd IfData1.Recordset.AddNewData1.Recordset.Fields(销售记录号) = Val(Text1.Text)Data1.Recordset.Fields(商品名称) = Text2.TextData1.Recordset.Fields(销售金额) = Text3.TextData1.Recordset.Fields(销售人) = Val(Text4.Text)End Sub “删除”Private Sub Command2_Click()Dim X As IntegerX = MsgBox(你确定要删除记录吗?, vbYesNo)If X = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd IfEnd IfEnd Sub “修改”Private Sub Command3_Click() X = MsgBox(你确定要修改记录吗?, vbYesNo)If X = vbYes ThenData1.Recordset.EditData1.Recordset.Fields(销售记录号) = Val(Text1.Text)Data1.Recordset.Fields(商品名称) = Val(Text2.Text)Data1.Recordset.Fields(销售金额) = Val(Text3.Text)Data1.Recordset.Fields(销售人) = Val(Text4.Text)Data1.Recordset.UpdateEnd IfEnd Sub “查询”Private Sub Command4_Click()msg = InputBox(请输入销售记录号, 查找记录)Data1.Recordset.FindFirst 销售记录号 = & msg & If Data1.Recordset.NoMatch ThenMsgBox 没有你所找商品!Else“退出”Private Sub Command5_Click()Form2.ShowForm4 .HideEnd Sub“上一个”Private Sub Command6_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirstMsgBox (已经是第一条记录了!)End IfEnd Sub “下一个”Private Sub Command7_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastMsgBox (已经是最后一条记录了!)End IfEnd Sub对员工信息进行操作的代码 “添加”Private Sub Command1_Click()vb_msg = MsgBox(请输入要添加的数据, vbOKCancel)If vb_msg = vbCancel ThenExit SubEnd IfData1.Recordset.AddNewData1.Recordset.Fields(员工号) = Val(Text1.Text)Data1.Recordset.Fields(姓名) = Text2.TextData1.Recordset.Fields(性别) = Text3.TextData1.Recordset.Fields(籍贯) = Val(Text4.Text)End Sub “删除”Private Sub Command2_Click()Dim X As IntegerX = MsgBox(你确定要删除记录吗?, vbYesNo)If X = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd IfEnd IfEnd Sub “修改”Private Sub Command3_Click()areturn = MsgBox(你确定要修改记录吗?, vbYesNo)If areturn = vbYes ThenData1.Recordset.EditData1.Recordset.Fields(员工号) = Val(Text1.Text)Data1.Recordset.Fields(姓名) = Val(Text2.Text)Data1.Recordset.Fields(性别) = Val(Text3.Text)Data1.Recordset.Fields(籍贯) = Val(Text4.Text)Data1.Recordset.UpdateEnd Sub “查询”Private Sub Command4_Click()msg = InputBox(请输入员工号, 查找记录)Data1.Recordset.FindFirst 销售记录号为= & msg & If Data1.Recordset.NoMatch ThenMsgBox 没有你所找人!ElseMsgBox 合您查找条件的人为 & Data1.Recordset.Fields(1)End IfEnd Sub“退出”Private Sub Command5_Click()Form1.ShowForm5.HideEnd Sub “上一个”Private Sub Command6_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData1.Recordset.Mo