精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
search(sqlstr)
If rs.RecordCount <> 0 Then
MsgBox \重复的供应商编号\
供应商数据表（provider）读取字段等于“供应商编号”文本框的所有信息，赋值给一个变量“sqlstr”，通过search（sqlstr）传参到已在模块定义好的查询语句进行查询。如果在供应商数据表（provider）已存在该“供应商编号”返回值为1，如果不存在返回值为0。通过IF判断语句判断如果返回行数不等于 0 则会弹出“重复的供应商编号”提示。
5.5供应商查询及删除 FrmPSel
查询时，将根据条件直接列出符合条件的供应商清单。 从数据库检查供应商编号是否存在实现的代码如下：
sqlstr = \ Set rs = search(sqlstr) If rs.RecordCount <> 0 Then
MsgBox \重复的供应商编号\
查询供应商信息时，首先打开供应商表，从供应商数据表（provider）读取字段等于“供应商编号”文本框的所有信息，赋值给一个变量“sqlstr”，通过search（sqlstr）传参到已在模块定义好的查询语句进行查询。如果在供应商数据表（provider）已存在该“供应商编号”返回值为1，如果不存在返回值为0。
如果该供应商没有给超市提供商品了，管理员可以把该供应商删除。删除功能实现的代码如下：
If MsgBox(\确定删除此供应商么？\vbOKCancel) = vbOK Then rs.Delete rs.MoveFirst MsgBox \删除成功\End If
rs.MoveFirst方法将当前记录位置移动到 Recordset 中的第一个记录。并提示\删除成功\信息。如果选择“取消”就不会进行删除操作。
5.6员工信息的添加FrmEmployee
员工信息添加时，首先会判定员工编号是否为空，然后判定员工编号是否重复，再则判定员工姓名是否为空，最后判定员工职务是否为空。若为空或编号重复，则给
16
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
予相应提示并返回。否则打开员工信息表，并将记录指针移到最后一条记录，添加一条新记录，然后关闭员工信息表，即实现了员工信息的添加。流程图如下图5-4所示：
图 5-4 员工添加流程图 结束 关闭员工信息表 添加一条新记录 是 打开员工信息表 职务是否合法 姓名是否合法 是 输入姓名 否 编号是否合法 输入员工编号 否 是 输入职务 否
员工职务可以为员工档案添加时选择不同的职务，下拉选项框ComboBox,通过该下拉框的List属性可以把该超市的选用到的员工职务事先添加进去，这样可以实现下拉框多重选择。输入员工相信息后通过“确定”选项，就可以把员工档案添加成功。实现代码如下：
sqlstr = \
17
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
& \ Set rs = search(sqlstr) MsgBox \添加成功！\代码解释：
INSERT INTO：可以把一条记录或多条记录添加到指定的数据库表中。Values后的每个值，代表是添加的每个记录的值。
5.7员工信息的查询和删除 FrmESel
删除员工信息时，首先给出警告提示，在确认删除的情况下，打开员工信息表，按员工编号找到相应的记录，调用函数，将该条记录删除即可，最后关闭员工信息。
实现代码如下： '根据用户要求查询
sqlstr = \ If TxtEId.Text <> \
sqlstr = sqlstr & \ End If
If TxtEName.Text <> \
sqlstr = sqlstr & \ End If
If CmbBy.Text <> \请选择职务\ sqlstr = sqlstr & \ End If
Set rs = search(sqlstr) If rs.RecordCount <> 0 Then CmdUpDate.Enabled = True CmdDel.Enabled = True End If
Set DataGrid1.DataSource = rs End Sub
删除员工代码如下 Private Sub CmdDel_Click() '删除员工
If MsgBox(\确定删除此员工么？\
18
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
rs.Delete rs.MoveFirst MsgBox \删除成功\ End If End Sub
5.8商品信息添加 FrmMCHD
添加商品信息时，首先要求输入商品编号，并判断编号是否合法，若不合法，提示重新输入，否则输入商品名称并判断合法性，若不合法，提示重新输入，否则，输入商品数量，价格等相关信息，揭开商品信息表，将记录指针移到表尾，调用增加记录函数，曾一条新记录，关闭商品信息表，即实现了商品信息的增加。
商品信息添加流程图如图5-5所示：
输入商品编号 否 编号是否合法 是 输入商品名称 否 名称是否合法 是 输入数量 选择商品类别 打开商品信息表 添加一条新记录 关闭商品信息表 结束 图 5-5 商品添加流程图
19
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
商品添加代码如下： If TxtMCHId = \
MsgBox \请输入商品编号\ TxtMCHId.SetFocus Exit Sub End If
'判断是否有此商品了
sqlstr = \\从数据库中查找
Set rs = search(sqlstr)
If rs.RecordCount <> 0 Then
MsgBox \此编号已经使用！\ Exit Sub End If
If TxtMCHName = \
MsgBox \请输入商品名称\ TxtMCHName.SetFocus Exit Sub End If
If TxtMCHNum = \
MsgBox \请输入商品数量\ TxtMCHNum.SetFocus Exit Sub End If
If TxtMCHSP = \
MsgBox \请输入商品销售价格\ TxtMCHSP.SetFocus Exit Sub End If
If TxtMCHMP = \
MsgBox \请输入商品会员价格\ TxtMCHMP.SetFocus Exit Sub End If
If TxtMCHPP = \
MsgBox \请输入商品进货价格\ TxtMCHPP.SetFocus Exit Sub End If
If TxtMCHCR.Text < 0 Or TxtMCHCR.Text > 100 Then MsgBox \请输入0-100之间的数\ TxtMCHCR.Text = 0
20