录，系统会提示是否进行新货上柜，选择是后在库存中搜索该数据并显示相应内容，用户需要输入售价和上柜数量。如图4-13所示：
图4-13 柜存添加界面
11.销售查询界面，本界面设有快速查询功能。如图4-14所示：
图4-14 销售查询界面
12.退货查询界面，如图4-15所示：
第27页 共40页
图4-15 退货查询界面
13.每日结算界面（管理员），本界面管理员在选择售货员后，会把本日该售货员所销售的所有商品显示出来，并给出销售总额，与售货员所上交的金额一致后点交款结束本日的销售工作。如图4-16所示：
图4-16 每日结算（管理员）界面
14.数据库备份界面，如图4-17所示：
第28页 共40页
图4-17 数据备份界面
15.数据库还原界面，如图4-18所示：
图4-18 数据还原界面
16.密码修改界面，本界面进入后会直接显示该用户的密码问题，待用户的问题答案回答正确后方能进行密码修改，在修改密码时两次输入的新密码必须完全一样。如图4-19所示：
第29页 共40页
图4-19 密码修改界面
4.3前台售货员模块
1.销售界面，本界面是在顾客将所选商品拿到前台结账时，售货员输入商品的商品号，系统自动搜索该商品的相应信息并显示，售货员需要自行输入购买数量点击销售该记录会暂存，以此将顾客所选的全部商品录入，在录入过程中合计会随之累加，当全部录入完毕，在实收出输入顾客所付的金额，单击付款系统自动算出找零数值并显示，待对该顾客的全部服务完成后点击清空，会清空所有暂存信息，以便为下一位顾客服务。如图4-20所示：
图4-20销售界面
第30页 共40页
具体代码如下：
Imports System.Data Imports System.Data.OleDb Public Class 售货
Dim conn As New OleDbConnection(\超市管理系统.mdb\
Dim cmd柜存 As New OleDbCommand(\订货单表.订单号, 订货单表.商品号, 商品表.商品名, 商品表.类别号, 类别表.类别名, 柜存表.柜存数量, 订货单表.单位, 销售表.售价, 供应商表.供应商名 FROM ((类别表 INNER JOIN 商品表 ON 类别表.类别号 = 商品表.类别号) INNER JOIN ((供应商表 INNER JOIN 订货单表 ON 供应商表.供应商号 = 订货单表.供应商号) INNER JOIN 柜存表 ON 订货单表.订单号 = 柜存表.订单号) ON 商品表.商品号 = 订货单表.商品号) INNER JOIN 销售表 ON (订货单表.订单号 = 销售表.订单号) AND (商品表.商品号 = 销售表.商品号) ORDER BY 订货单表.订单号;\
Dim cmd销售 As New OleDbCommand(\销售表.商品号, 商品表.商品名, 销售表.数量, 销售表.售价, 用户表.姓名,销售表.销售日期 FROM 商品表 INNER JOIN (用户表 INNER JOIN 销售表 ON 用户表.编号 = 销售表.售货员号) ON 商品表.商品号 = 销售表.商品号;\
Dim cmd销售人员 As New OleDbCommand(\姓名 from 用户表 where 用户类别='售货员'\conn)
Dim daap柜存 As New OleDbDataAdapter(cmd柜存) Dim daap销售 As New OleDbDataAdapter(cmd销售)
Dim daap销售人员 As New OleDbDataAdapter(cmd销售人员) Dim dv柜存 As New DataView Dim dv销售 As New DataView Dim ds As New DataSet
Private Sub 售货_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
daap柜存.Fill(ds, \柜存表\ daap销售.Fill(ds, \销售表\ daap销售人员.Fill(ds, \用户表\
Cmb销售人员.DataSource = ds.Tables(\用户表\ Cmb销售人员.DisplayMember = \姓名\ ds.Tables(\销售表\
dv柜存 = ds.Tables(\柜存表\ dv销售 = ds.Tables(\销售表\ dg.DataSource = dv柜存 dg1.DataSource = dv销售
Dim keycolum() As DataColumn = {ds.Tables(\柜存表\编号\ ds.Tables(\柜存表\ Cmb销售人员.Text = yhm Label11.Text = yhbh Txt实收.Text = 0 End Sub
Private Sub Txt货号_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt商品号.TextChanged
dv柜存.RowFilter = \商品号 like '%\商品号.Text & \
第31页 共40页