VB高速公路票据管理系统(一)毕业论文(6)

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 （科教范文网 fw.nseac.com编辑发布）
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

End Sub

Private Sub Form_Load()

'计算当前的日期
rwdate = CStr(Format(Date, "yyyy-MM-dd"))

With datafrm
.ScaleWidth = 8400
.ScaleHeight = 7400
.Height = 6000
End With

DTPriqi.Format = dtpCustom
DTPriqi.CustomFormat = "yyyy年MM月dd日"
DTPriqi = rwdate
txtrq.Text = rwdate

Combostation.AddItem "天津收费站"
Combostation.AddItem "军粮城收费站"
Combostation.AddItem "滨海收费站"
Combobz.AddItem "一" （科教范文网http://fw.ΝsΕΑc.com编辑）
Combobz.AddItem "二"
Combobz.AddItem "三"
Combobz.AddItem "四"
Combobc.AddItem "白"
Combobc.AddItem "夜"
End S