strcnn = "select userid as 用户工号, username as 用户姓名,userjibie as 用户级别 from userinfo"
With conuser
If .State = adStateOpen Then
.Close
End If
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = App.Path & "\jinbin.mdb"
.ConnectionTimeout = 10
.Open
End With
With rstuser
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.ActiveConnection = conuser
.Open strcnn, Options:=adCmdText
Set Adouser.Recordset = rstuser
dtguserinfo.ReBind
End With
End Sub
3:统计多次票根
代码分析:
Private Sub cmdexit_Click()
checkfrm.Hide
Unload Me
End Sub
Private Sub cmdok_Click()
'30元二次票根
Dim je30_2, billb30_2, bille30_2, zs30_2 As Long
billb30_2 = Val(txt30b1.Text)
bille30_2 = Val(txt30e1.Text)
If bille30_2 = 0 Then
je30_2 = 0
Else
je30_2 = (bille30_2 - billb30_2 + 1) * 30
End If
datafrm.txtje30temp.Text = je30_2
If bille30_2 = 0 Then
zs30_2 = 0
Else
zs30_2 = (bille30_2 - billb30_2 + 1)
End If
datafrm.txtzs30temp.Text = zs30_2
datafrm.txt30b1temp.Text = billb30_2
datafrm.txt30e1temp.Text = bille30_2
'30元三次票根
Dim je30_3, billb30_3, bille30_3, zs30_3 As Long
billb30_3 = Val(txt30b2.Text)
bille30_3 = Val(txt30e2.Text)
If bille30_3 = 0 Then
je30_3 = 0
Else
je30_3 = (bille30_3 - billb30_3 + 1) * 30
End If
datafrm.txtje30temp1.Text = je30_3
If bille30_3 = 0 Then
zs30_3 = 0
Else
zs30_3 = (bille30_3 - billb30_3 + 1)
End If
datafrm.txtzs30temp1.Text = zs30_3
datafrm.txt30b2temp.Text = billb30_3
datafrm.txt30e2temp.Text = bille30_3
'20元二次票根
Dim je20_2, billb20_2, bille20_2, zs20_2 As Long
billb20_2 = Val(txt20b1.Text)
bille20_2 = Val(txt20e1.Text)
If bille20_2 = 0 Then
je20_2 = 0
Else
je20_2 = (bille20_2 - billb20_2 + 1) * 20
End If
datafrm.txtje20temp.Text = je20_2
If bille20_2 = 0 Then
zs20_2 = 0
Else
zs20_2 = (bille20_2 - billb20_2 + 1)
End If
datafrm.txtzs20temp.Text = zs20_2
datafrm.txt20b1temp.Text = billb20_2
datafrm.txt20e1temp.Text = bille20_2
'20元三次票根
Dim je20_3, billb20_3, bille20_3, zs20_3 As Long
billb20_3 = Val(txt20b2.Text)
bille20_3 = Val(txt20e2.Text)
If bille20_3 = 0 Then
je20_3 = 0
Else
je20_3 = (bille20_3 - billb20_3 + 1) * 20
End If
datafrm.txtje20temp1.Text = je20_3
If bille20_3 = 0 Then
zs20_3 = 0
Else
zs20_3 = (bille20_3 - billb20_3 + 1)
End If
datafrm.txtzs20temp1.Text = zs20_3
datafrm.txt20b2temp.Text = billb20_3
datafrm.txt20e2temp.Text = bille20_3
'15元二次票根
Dim je15_2, billb15_2, bille15_2, zs15_2 As Long
billb15_2 = Val(txt15b1.Text)
bille15_2 = Val(txt15e1.Text)
If bille15_2 = 0 Then
je15_2 = 0
Else
je15_2 = (bille15_2 - billb15_2 + 1) * 15
End If
