1、课题名称课题名称： 超市销售系统管理 一、课程设计目的：一、课程设计目的： 课程设计为学生提供一个及动手又动脑，独立实践的机会，将课 本上的 VB 理论知识和实践有机的结合起来。 锻炼学生的分析解决实 际问题的能力。提高用 VB 编程实现具体问题的能力。 二、课程设计的题目：VB 超市销售管理系统课程设计 简介： 这个超市销售管理系统主要实现了商品信息和销售信息以 及员工信息的添加、删除、修改和查询。用户在登录系统之后可以在 提示下做想进行的操作。登陆后可以在删除修改等操作， 方便了超市 销售管理。 三、设计说明：三、设计说明： 【超市销售管理系统】 商品信息查询 （商品号） （商品名称） （
2、厂商） （商品类型） （单价） 销售记录查询（销售记录号） （销售金额） （销售人） （商品名称） 员工信息查询（员工号） （姓名） （性别） （籍贯） 整个销售系统目前实现了商品、 销售、 员工信息的增删查改功能。 进入系统后，可以选择想要查询的信息点入，进入另一个界面后进行 相关操作。对商品信息查询的时候输入商品号即会出现商品相关择 “是”或 “否”确定是否删除。当用户点击“修改”时， 弹出对话框 “确 定呀修改记录？”同样选择“是”或“否”决定是否修改记录。查询 时，输入商品号，或者销售记录号。可以查到想要的信息。点击退出 则回到登录界面。 整个系统涵盖三个可查询的大信息。 再入进行操作
3、。 设计界面清雅脱俗，给人清新的感觉。 超市销售 管理系统 商品信息查询 销售信息查询 员工信息查询 源代码源代码 超市销售系统登录源代码：超市销售系统登录源代码： Public Sub Command1_Click() If Text1.Text = “ Then MsgBox “请输入正确的用户名“, 11, “错误信息“ ElseIf Text2.Text = “ Then MsgBox “请输入正确的密码“, 11, “错误信息“ End If If Text1.Text = “xlf“ And Text2.Text = “xiong“ Then Load Form2 Form2.Sh
4、ow 1 Unload Form1 Else MsgBox “用户名或密码错误“, 11, “错误信息“ End If End Sub 退出系统源代码：退出系统源代码： Private Sub Command2_Click() End End Sub 进入商品信息查询、销售信息查询、进入商品信息查询、销售信息查询、员工信息查询代码员工信息查询代码： Private Sub Command1_Click() Load Form3 Form3.Show 1 Unload Form1 End Sub Private Sub Command2_Click() Load Form4 Form4.Show
5、 1 Unload Form2 End Sub Private Sub Command3_Click() Load Form5 Form5.Show 1 Unload Form3 End Sub 对商品信息的添加的代码对商品信息的添加的代码 Public msg Private Sub Command1_Click() vb_msg = MsgBox(“请输入要添加的数据“, vbOKCancel) If vb_msg = vbCancel Then Exit Sub End If Data1.Recordset.AddNew Data1.Recordset.Fields(“商品号“) = V
6、al(Text1.Text) Data1.Recordset.Fields(“商品名称“) = Text2.Text Data1.Recordset.Fields(“厂商“) = Text3.Text Data1.Recordset.Fields(“商品类型“) = Val(Text4.Text) Data1.Recordset.Fields(“单价“) = Val(Text5.Text) End Sub 对商品信息删除的代码对商品信息删除的代码 Private Sub Command2_Click() Dim X As Integer X = MsgBox(“你确定要删除记录吗?“, vbYesNo) If X = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If End If End Sub 对商品信息修改的代码：对商品信息修改的代码： Pri
