精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
Exit Sub End If
'销售价=销售价+包装率 If TXTMCHCP <> 0 Then
TxtMCHSP.Text = TxtMCHSP + TxtMCHSP * (TxtMCHCR.Text / 100) End If
If CmbType.Text = \请选择类型\ MsgBox \请选择类型\ CmbType.SetFocus Exit Sub End If
'添加新商品
sqlstr = \INTO merchandise Values ('\& TxtMCHId.Text & \& TxtMCHName & \\
Set rs = search(sqlstr)
'新商品入库,如果有此商品添加数量
sqlstr = \ Set rs = search(sqlstr)
If rs.RecordCount <> 0 Then
rs.Fields(\ rs.Update Else
sqlstr = \INTO stockpile Values ('\& TxtMCHId.Text & \& TxtMCHName & \
Set rs = search(sqlstr) End If
MsgBox \商品添加成功！\End Sub
以上为系统流程代码。
5.9会员信息添加
添加会员信息时，首先输入会员编号，并判断编号是否合法，若不合法，则提示重新输入编号，否则输入会员姓名，并判断姓名是否合法，若不合法，则提示重新输入姓名。否则输入会员电话，接着打开会员信息表，将记录指针移到表尾，调用记录添加函数，添加一条新记录，最后关闭会员信息表，即实现了会员信息的添加。会员信息添加功能的流程图如下图5-6所示：
21
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
图 5-4 员工添加流程图 关闭会员信息表 结束 添加一条新记录 移到表尾 输入会员电话 打开会员信息表 姓名是否合法 是 输入会员编号 否 编号是否合法 是 输入会员姓名 否
会员信息的添加代码如下： If TxtId.Text = \
MsgBox \请输入会员编号\ TxtId.SetFocus Exit Sub End If
sqlstr = \ Set rs = search(sqlstr) If rs.RecordCount <> 0 Then
22
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
MsgBox \此编号已经使用！\ Exit Sub End If
If TxtName.Text = \ MsgBox \请输入会员姓名\ TxtName.SetFocus Exit Sub End If
If TxtTel.Text = \ MsgBox \请输入电话号码\ TxtTel.SetFocus Exit Sub End If
If Len(TxtTel.Text) < 8 Or Len(TxtTel.Text) > 11 Then MsgBox \请输入正确的电话号码\ TxtTel.Text = \ TxtTel.SetFocus Exit Sub End If
If TxtAdd.Text = \ MsgBox \请输入会员地址\ TxtAdd.SetFocus Exit Sub End If
sqlstr = \ (memberid,mname,mtel,maddress,integral) Values ('\& TxtId.Text & \ Set rs = search(sqlstr)
MsgBox \添加成功\
6 超市管理系统的运行测试
6.1 登陆窗口Frmdl
功能介绍：本窗口主要是检查操作员输入的用户名及密码是否正确，如果正确，允许登录。如果错误，显示出错误提示。
23
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
操作方法：填写“用户名”与“密码”后，点击“登录”按钮进行验证，点击“注册”可以注册一个管理员，但是注册必须是超市管理系统已存在的员工。如果不是超市的员工，则不能注册。注册后的用户可以进入到超市管理系统，但是不能进行任何操作，须管理设置权限才能正常使用超市管理系统的每一个功能。
登陆窗口图如下所示：
图6-1 登陆窗口
说明：在下拉框里选择要登陆的帐号，然后在密码框输入框里输入该用户的密码。选择“确定“按钮后。首先会从数据库表“admin”表里取得字段“ID”等于用户选择的下拉框的值。把该查询语句做为参数通过search（）函数调用在已在模块定义好的查询函数。如果数据库存在这条记录，则返回的行数大于1 就会判断 输入在文本框的密码是否等于从数据库中读取到密码的值。如果密码相等，就会判断用户的权限，如果该用户的权限值等于“all”就会把菜单的值设为“True”。否则就会设为“False”，这样菜单其它功能就不能选择。然后就会过 MDIFrmMain.Show 弹出程序主窗口，Unload Me 关闭当前窗口。如果输入的密码不正确，会弹出“密码错误”提示。密码框值为空，并且光标返回。
6.2 超市管理系统主窗口MDIFrmMain
功能介绍：本窗本采用了VB里的MDI窗体设计，这样可以把每一个子窗体包含在该窗体中，子窗体不可以移出这个MDI 窗体[12]。设计一个工具栏，工具栏可以设置选项按钮，然后设计一个ImageList控件，该控件主要是实现工具栏上每个按钮图标的引用，首先把图标都引入到该控件上，然后通过工具栏属性每个按钮下标，索值来确定按钮，引用的是那个图标，并显示出来。
效果图如下所示：
24
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
图6-2 主窗口测试图
6.3 供应商添加FrmProvider
功能介绍：本窗口主要实现供应商的添加，输入的供应商编号首先会从数据库中读取，是否该供应商的编号已经存在，如果存在则要求管理员重新输入过供应商的编号。
操作方法：填写“供应商编号”，“供应商姓名”，“供应商电话”，“供应商地址”如果有一个输入框没输入就会弹出一个提示信息，要求输入该框的相应内容的信息。
供应商添加图如下所示：
图 6-3 供应商添加测试图
25