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

《课程设计--超市销售系统管理》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、附件1课程设计报告封面（A4）2013-2014学年第1学期.NET课程设计报告课题名称：超市销售系统管理班级文专计算111-1学号9姓名单正岩

2、课题完成时间：2013年12月23日对应提交的电子文档打包文件名称(准确填写)：__________________________________________________________==============以下部分为教师填写区，请勿填写==============成绩评定：软件运行______软件基本功能_______软件提高功能______软件部分成绩________

3、文档结构______文档理论___________文档撰写__________文档部分成绩________总成绩_____________备注一、课程设计目的：课程设计为学生提供一个及动手又动脑，独立实践的机会，将课本上的VB理论知识和实践有机的结合起来。锻炼学生的分析解决实际问题的能力。提高用VB编程实现具体问题的能力。二、课程设计的题目：VB超市销售管理系统课程设计简介：这个超市销售管理系统主要实现了商品信息和销售信息以及员工信息的添加、删除、修改和查询。用户在登录系统之后可以在提示下做想进行的操作。登陆后可以在删除修改等操

4、作，方便了超市销售管理。三、设计说明：超市销售管理系统商品信息查询销售信息查询员工信息查询【超市销售管理系统】{商品信息查询}{（商品号）（商品名称）（厂商）（商品类型）（单价）}{销售记录查询}{（销售记录号）（销售金额）（销售人）（商品名称）}{员工信息查询}{（员工号）（姓名）（性别）（籍贯）}整个销售系统目前实现了商品、销售、员工信息的增删查改功能。进入系统后，可以选择想要查询的信息点入，进入另一个界面后进行相关操作。对商品信息查询的时候输入商品号即会出现商品相关择“是”或“否”确定是否删除。当用户点击“修改”时，弹出对话

5、框“确定呀修改记录？”同样选择“是”或“否”决定是否修改记录。查询时，输入商品号，或者销售记录号。可以查到想要的信息。点击退出则回到登录界面。整个系统涵盖三个可查询的大信息。再入进行操作。设计界面清雅脱俗，给人清新的感觉。源代码超市销售系统登录源代码：PublicSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入正确的用户名",11,"错误信息"ElseIfText2.Text=""ThenMsgBox"请输入正确的密码",11,"错误信息"EndIfIfText1.Text="xlf

6、"AndText2.Text="xiong"ThenLoadForm2Form2.Show1UnloadForm1ElseMsgBox"用户名或密码错误",11,"错误信息"EndIfEndSub退出系统源代码：PrivateSubCommand2_Click()EndEndSub进入商品信息查询、销售信息查询、员工信息查询代码：PrivateSubCommand1_Click()LoadForm3Form3.Show1UnloadForm1EndSubPrivateSubCommand2_Click()LoadForm4Form

7、4.Show1UnloadForm2EndSubPrivateSubCommand3_Click()LoadForm5Form5.Show1UnloadForm3EndSub对商品信息的添加的代码PublicmsgPrivateSubCommand1_Click()vb_msg=MsgBox("请输入要添加的数据",vbOKCancel)Ifvb_msg=vbCancelThenExitSubEndIfData1.Recordset.AddNewData1.Recordset.Fields("商品号")=Val(Text1.Tex

8、t)Data1.Recordset.Fields("商品名称")=Text2.TextData1.Recordset.Fields("厂商")=Text3.TextData1.Recordset.Fields("商品类型")=Val(Text4.Text)Data1.Recordset.Fields("单价")=Val(Text5.Text)EndSub对商品信息删除的代码PrivateSubCommand2_Click()DimXAsIntegerX=MsgBox("你确定要删除记录吗?",vbYesNo)IfX=vbYesTh

9、enData1.Recordset.DeleteData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndIfEndIfEndSub对商品信息修改的代码：