中小型超市销售管理系统的设计与实现
后台代码如下：
If Me.Adodc1.Recordset.BOF = False Then Me.Adodc1.Recordset.MoveFirst End If
While Not Me.Adodc1.Recordset.EOF If
Trim(Me.Text1.Text)
=
Trim(Me.Adodc1.Recordset.Fields(0))
And
Trim(Me.Text2.Text) = Trim(Me.Adodc1.Recordset.Fields(1)) Then
Select Case Trim(Me.Adodc1.Recordset.Fields(4)) Case \仓管员\进货管理.Show Case \管理员\超市销售管理.Show Case \收银员\ 销售系统.Show 'Case \经理\超市销售管理.Show
' Case \超市销售管理.Image1(3).Enabled = True: 超市销售管理.Frame2(3).Visible = True
'Case \ 超市销售管理.Image1(1).Enabled = True: 超市销售管理.Frame2(1).Visible = True
End Select Unload Me Exit Sub Else
Me.Adodc1.Recordset.MoveNext
6.2.2 进货管理窗口
本模块的主要功能是添加要进的商品信息、查询商品的库存信息、显示库存信息、显示进货信息、显示待进货信息、查询恢复、打印计划进货单。用户进入此模块，通过“显示库存信息”即可获得各种商品的库存数量、状态等信息。如果某种商品的状态为“警报”，就说明这种商品即将短缺，提醒相关人员要进货了。这一功能的实现是利用触发器完成的。在库存信息表上定义一个触发器，如果商品的库存量小于某个设定的值，
20
中小型超市销售管理系统的设计与实现
在进行这种商品的销售时就会引起触发事件，商品的库存状态显示为“警报”。如果用户想查看某一种商品的信息，不用打开库存信息表，只要在“查询商品信息”中输入待查询的商品编号即可。这样明显地提供了查询的效率，为用户赢得了时间。
图6-2 进货管理窗口
后台代码如下：
Dim con As ADODB.Connection Set con = New ADODB.Connection
con.Open \Security=SSPI;Persist Security Info=False;Initial Catalog=超市销售管理系统;Data Source=.\
Dim sql As String
sql = \into 进货信息表 values(getdate(),'\& Trim(dcmbJMerID.Text) & \& Trim(txtJMerNum.Text) & \& Trim(Me.txtJPri.Text) & \& Trim(Me.dcmbJpro.Text) & \
con.Execute sql
Me.Adodc_jinhuo.Refresh
21
中小型超市销售管理系统的设计与实现
Me.txtJxji.Text Val(Me.txtJPri))
= str(Val(Me.txtJxji.Text) + Val(Me.txtJMerNum) *
Dim sql1 As String
If Me.Adodc_kucun.Recordset.BOF = False Then Me.Adodc_kucun.Recordset.MoveFirst End If
While Not Me.Adodc_kucun.Recordset.EOF
If Trim(dcmbJMerID.Text) = Me.Adodc_kucun.Recordset.Fields(0) Then sql1 = \库存信息表 set 库存数量=库存数量+'\& CInt(txtJMerNum.Text) & \ where 商品编号='\
GoTo EXE End If
Me.Adodc_kucun.Recordset.MoveNext Wend
sql1 = \into 库存信息表(商品编号,库存数量) values('\& Trim(dcmbJMerID.Text) & \ \
EXE:
con.Execute sql1 Me.Adodc_kucun.Refresh
6.2.3系统总界面窗口
本窗口能够实现该系统所能实现的一切功能，是系统的核心窗口。为了方便系统管理员和超市经理进行操作，特别设置了导航栏，利用导航栏，用户可以快速方便地进入各个模块，完成相应的操作。
22
中小型超市销售管理系统的设计与实现
图6-3 系统总界面窗口
6.2.4销售管理窗口
此窗口是本系统最重要的窗口之一，主要功能是实现商品的销售。在使用时，依次输入商品的号码、数量，如果消费者是会员，系统会根据其等级给予相应的折扣，最后结账时打印出销售单。
图6-4 销售管理窗口
23
中小型超市销售管理系统的设计与实现
后台代码如下：
If Me.ckXsvip.Value = 1 Then
Set rs_vip = New ADODB.Recordset
rs_vip.Open \折扣,消费总额 from 会员信息表 where 会员卡号='\Trim(Me.txtXsVipID) & \
discount = rs_vip.Fields(0): xftotal = rs_vip.Fields(1) rs_vip.Close Set rs_vip = Nothing
subtotal = subtotal * discount / 10: xftotal = xftotal + subtotal
sql = \会员信息表 set 消费总额=\& Trim(str(xftotal)) & \where 会员卡号='\
conet.Execute sql
6.2.5商品管理窗口
此窗口的主要功能是对本超市的所有商品进行管理，可以对商品进行添加、修改、删除等操作，这是一个管理系统所必须具备的。由于市场的供求变化和季节的更替，同种商品的售价处于不断的变化之中，有时需要特殊处理。因此，本系统要有对商品的价格随时进行更新的功能。在商品“促销计划”窗口，可以实现对要促销的商品信息进行管理，包括促销的起始时间、截至时间、商品原价、促销价等；还可以添加、删除、修改促销商品。
图6-5 商品管理窗口
24