《课程设计--超市销售系统管理.docx》由会员分享，可在线阅读，更多相关《课程设计--超市销售系统管理.docx（23页珍藏版）》请在三一文库上搜索。
1、附件 1 课程设计报告封面 （A4）2013-2014学年第1学期.NET课程设计报告课题名称： 超市销售系统管理 班级文专计算111-1学号201090609139姓名单正岩| 课题完成时间：2013年12月23日 对应提交的电子文档打包文件名称(准确填写)：_=以下部分为教师填写区，请勿填写=成绩评定：软件运行_软件基本功能_软件提高功能_ 软件部分成绩_文档结构_文档理论_文档撰写_ 文档部分成绩_ 总成绩_备注一、课程设计目的：课程设计为学生提供一个及动手又动脑，独立实践的机会，将课本上的VB理论知识和实践有机的结合起来。锻炼学生的分析解决实际问题的能力。提高用VB编程实现具体问题的能
2、力。二、课程设计的题目：VB超市销售管理系统课程设计简介：这个超市销售管理系统主要实现了商品信息和销售信息以及员工信息的添加、删除、修改和查询。用户在登录系统之后可以在提示下做想进行的操作。登陆后可以在删除修改等操作，方便了超市销售管理。三、设计说明：超市销售管理系统商品信息查询销售信息查询员工信息查询【超市销售管理系统】商品信息查询 （商品号）（商品名称）（厂商）（商品类型）（单价）销售记录查询（销售记录号）（销售金额）（销售人）（商品名称）员工信息查询（员工号）（姓名）（性别）（籍贯）整个销售系统目前实现了商品、销售、员工信息的增删查改功能。进入系统后，可以选择想要查询的信息点入，进入另一
3、个界面后进行相关操作。对商品信息查询的时候输入商品号即会出现商品相关择 “是”或“否”确定是否删除。当用户点击“修改”时，弹出对话框“确定呀修改记录？”同样选择“是”或“否”决定是否修改记录。查询时，输入商品号，或者销售记录号。可以查到想要的信息。点击退出则回到登录界面。整个系统涵盖三个可查询的大信息。再入进行操作。设计界面清雅脱俗，给人清新的感觉。源代码 超市销售系统登录源代码：Public Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请输入正确的用户名", 11, "错误信息&quo
4、t;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(
5、)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 =
6、 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("商品类型&qu
7、ot;) = 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
8、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
9、("商品类型") = Text3.TextData1.Recordset.Fields("单价") = Val(Text4.Text)Data1.Recordset.UpdateEnd IfEnd Sub对商品信息查询的代码：Private Sub Command4_Click()msg = InputBox("请输入商品号", "查找记录")Data1.Recordset.FindFirst "商品号 ='" & msg & "'"If Da
10、ta1.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.Record
11、set.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(&quo
12、t;请输入要添加的数据", 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("销售人") = Va
13、l(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("你确定要
14、修改记录吗?", 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.Rec
15、ordset.UpdateEnd IfEnd Sub “查询”Private Sub Command4_Click()msg = InputBox("请输入销售记录号", "查找记录")Data1.Recordset.FindFirst "销售记录号 ='" & msg & "'"If Data1.Recordset.NoMatch ThenMsgBox "没有你所找商品!"Else“退出”Private Sub Command5_Click()Form2.Sho
16、wForm4 .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 ("已
17、经是最后一条记录了!")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.
18、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.Reco
19、rdset.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("
20、性别") = 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.
21、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.MoveFirstMsgBox (&quo
22、t;已经是第一条记录了!")End IfEnd Sub“下一个”Private Sub Command7_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastMsgBox ("已经是最后一条记录了!")End IfEnd Sub五、运行结果：数据报表商品信息表:销售记录表:员工信息表：七、课程设计体会：在做课程设计之前，整个人对课程设计的流程可谓是一头雾水。在结课之前，我们学了VB的数据库制作。在课上积累的基础上，我开始了数据库课程设计的制作。设计时，最
23、初想到的是界面如何更加美观。在好奇心的驱使下，到网上下载好多图片作为背景。慢慢地，开始读入编程阶段。要进入一个系统，最开始需要写一段代码运行进入系统。这让我想起了平常的很多登录界面，比如QQ登录。每次人的登录界面，现在终于自己面临设计界面，刚开始确实迷茫，但是想想平常的很多界面的运行方式方法问题就迎楞而解了。在添加、删除、修改、查询这一方面的代码是不尽相同的。为了实现这些功能，我查找了书上的各个章节的练习题，希望能够找到点灵感。终于功夫不负有心人，我也成功地让这些按钮能够运行。并且还输入了提示功能。以免在进行操作的时候出现误删或者乱加的情况。总而言之，这次的课程设计让我体验了编写城中的酸与苦。也学到了很多东西。