VB+ORACL超市收费系统 第10页
If Trim(Text5.Text) <> "" Then
If str = "" Then
str = "存货日期='" + Format(Trim(Text2.Text), "yyyy.mm.dd") + "'"
Else
str = str + "and存货日期'" + Format(Trim(Text2.Text), "yyyy.mm.dd") + "'"
End If
End If
If Trim(Text6.Text) <> "" Then
If str = "" Then
str = "取货日期='" + Format(Trim(Text2.Text), "yyyy.mm.dd") + "'"
Else
str = str + "and取货日期'" + Format(Trim(Text2.Text), "yyyy.mm.dd") + "'"
End If
End If
If str <> "" Then
str = "select * from khb where" + str
DataGrid1.RecordSource = str
DataGrid1.Refresh
Else
DataGrid1.RecordSource = "select * from存取货表"
DataGrid.Refresh
End If
End Sub
Dim i As Integer
On Error GoTo adderror
If cmdadd.Caption = "添加" Then
cmdadd.Caption = "确定"
cmdadd.enableg = False
cmdcancel.Enabled = True
End Sub
说明:以上代码实现数据库数据与文本框连接，并实现数据添加功能
Private Sub Command3_Click()
Dim Y As New Form2
Y.Show
End Sub
说明:此段代码实现返回返回到超市收费系统功能界面的功能。
Private Sub Command4_Click()
Dim str As String
If Trim(Text1.Text) <> "" Then
If str = "" Then
str = "员工编号 ='" + Trim(Text1.Text) + "'"
End If
End If
If str <> "" Then
str = "select * from 存取货表 where " + Trim(str)
Adodc1.RecordSource = str
Adodc1.Refresh
Else
Adodc1.RecordSource = "select * from 存取货表"
Adodc1.Refresh
End If
End Sub
说明:以上代码实现数据查询功能,可依据输入的员工编号进行查询。
(4)若您所添加的数据有误，则点击“重置”按钮，重新添加数据。
(5) 若想返回重新选择其他模块则点击“返回” 按钮，返回到超市收费系统功能界面。
（1）本系统主要完成销售业绩信息查询功能，在Combo1文本框的下拉菜单中选择“查询所需要的依据项”，点击“查询”按钮进行查询。如图 5.5所示。
图5.5销售业绩查询汇总模块图
（2）部分代码如下：
Private Sub Command3_Click()
Dim strcon1 As String
On Error GoTo myerr
End If
Select Case Trim(Combo1.Text)
Case "员工编号"
strcon1 = "员工编号"
Case "商品编号"
strcon1 = "商品编号"
Case "销售数量"
strcon1 = "销售数量"
Case "销售日期"
strcon1 = "销售日期"
End Select
dataenv.rj05101.Open "select * from 销售表 where " & strcon1 & " "
dgdcx.DataMember = ""
dgdcx.Refresh
dataenv.rj05101.Requery
dgdcx.DataMember = "销售表"
dgdcx.Refresh
myerr
End Sub
说明：以上程序为查询功能，根据下拉菜单中的选项分情况查询。
Private Sub Command4_Click()
Dim Y As New Form2
Y.Show
说明：跳转页面，点击按钮进入下一页。
End Sub
Private Sub Form_Load()
Combo1.AddItem ("员工编号")
Combo1.AddItem ("商品编号")
Combo1.AddItem ("销售数量")
Combo1.AddItem ("销售日期")
Combo1.ListIndex = 0
End Sub
说明：设置下拉菜单选项。
（3）当想要返回上级菜单时，点击“返回”按钮，返回到超市收费系统功能界面。
在此VB界面与数据库连接仅以此为例。
（1）在VB设计界面点击菜单栏的“工程”按钮，选择部件并选中相应的选项，点击确定。如图 5.6所示。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>