整个系统开发包括两个部分：一部分是数据库设计，另一部分是VB前台界面。其中实现的功能有优大功：商品存取数据录入、商品库存数据查询、销售数据录入、商品购买数据单、交接班结转清、销售业绩查询汇总。
在现代化的社会中，超市将发挥越来越重要的作用。超市管理工作已经渗透到超市日常工作的方面，无论是其自身还是所发挥的作用。随着时代的进步，超市也逐渐变得庞大起来，为了超市的创新、发展以及经济效益，如何管理好超市商品的进出，成为管理超市中的一个大的问题。
为了实现企业的信息化建设，与人员的分工明确。开发本系统，实现了从供应商到顾客的一条龙管理，使领导与员工任务明确，各负其责，逐层上报的原则，使每一道程序都有专人看管，并且解决了超市工作人员工作强度大的问题。
在此之前先介绍一下登录界面的设计，用户登录系统后点击进入进入系统，点击退出则系统退出.界面如图5.1所示。
图5.1 系统登录图
代码如下所示:
Private Sub Command1_Click()
Dim a As New Form2 定义下一界面为a
a.Show 显示下一界面
End Sub
Private Sub Command2_Click()
End 界面退出
End Sub
在该模块中主要对系统中的主要功能选择，功能如图5.2所示。
商品存商品购买数据单 商品存取货数据录入
若图片无法显示请联系QQ752018766
销售业绩查询汇总 超市收费系统
商品库存数据查询
交接班结转清
图5.2超市收费系统
超市收费系统功能模块图如图5.3所示。
若图片无法显示请联系QQ752018766
图5.3 超市收费系统功能模块图
当用户进入系统以后，可以看到想选择使用的功能，进入其中可进行显示录入查询功能，并把结果保存到数据库中的相关表中。
部分代码如下：
Private Sub Command1_Click()
Dim B As New Form3
B.Show
End Sub
Private Sub Command2_Click()
Dim E As New Form5
E.Show
End Sub
Private Sub Command4_Click()
Dim F As New Form6
F.Show
End Sub
Private Sub Command5_Click()
Dim D As New Form4
D.Show
End Sub
Private Sub Command6_Click()
Dim G As New Form7
G.Show
End Sub
Private Sub Command7_Click()
Dim X As New Form1
X.Show
说明:在此界面代码主要是点击按钮进入其他界面.
(1)在文本框中分别添加相应的数据，单击“添加”按钮如图5.4所示，完成添加信息任务。
当想要查询某些信息时，在相应文本框中输入数据，点击查询则在界面显示所查询的信息。
若图片无法显示请联系QQ752018766
图5.4商品存取货数据录入模块图
（3）部分代码如下：
（3）部分代码如下：
Private Sub Command1_Click()
Textbox1.Text = ""
Textbox2.Text = ""
Textbox3.Text = ""
Textbox4.Text = ""
Textbox5.Text = ""
Textbox6.Text = ""
Textbox1.focus
End Sub
说明:以上代码实现数据清空功能
Private Sub Command2_Click()
If Trim(Text1.Text) <> "" Then
If str = "" Then
str = "员工编号='" + Trim(Text1.Text) + "'"
Else
str = str + "and员工编号='" + Trim(Text1.Text) + "'"
End If
End If
If Trim(Text2.Text) <> "" Then
If str = "" Then
str = "仓库编号='" + Trim(Text2.Text) + "'"
Else
str = str + "and仓库编号='" + Trim(Text2.Text) + "'"
End If
End If
If Trim(Text3.Text) <> "" Then
If str = "" Then
str = "取货数量='" + Trim(Text3.Text) + "'"
Else
str = str + "and取货数量='" + Trim(Text3.Text) + "'"
End If
End If
If Trim(Text4.Text) <> "" Then
If str = "" Then
str = "存货数量='" + Trim(Text4.Text) + "'"
Else
str = str + "and存货数量='" + Trim(Text4.Text) + "'"
End If
End If
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>