datafrm.frm

一个票务管理软件

je5_3 = Val(txtje5temp1.Text)
zs5_3 = Val(txtzs5temp1.Text)
If bille5_1 = 0 Then
je5_1 = 0
Else
je5_1 = (bille5_1 - billb5_1 + 1) * 5
End If
If bille5_1 = 0 Then
zs5_1 = 0
Else
zs5_1 = (bille5_1 - billb5_1 + 1)
End If
If m_enable Then
datamfrm.txtje5.Text = je5_1 + je5_2 + je5_3
datamfrm.txtzs5.Text = zs5_1 + zs5_2 + zs5_3
Else
datamfrm.txtje5.Text = je5_1
datamfrm.txtzs5.Text = zs5_1
End If

'合计
Dim jehj, zshj As Long
jehj = je30_1 + je30_2 + je30_3 + je20_1 + je20_2 + je20_3 + je15_1 + je15_2 + je15_3 + je10_1 + je10_2 + je10_3 + je5_1 + je5_2 + je5_3
zshj = zs30_1 + zs30_2 + zs30_3 + zs20_1 + zs20_2 + zs20_3 + zs15_1 + zs15_2 + zs15_3 + zs10_1 + zs10_2 + zs10_3 + zs5_1 + zs5_2 + zs5_3
datamfrm.txtjehj.Text = jehj
datamfrm.txtzshj.Text = zshj

'小写金额
Dim xxje As Long
xxje = jehj
datamfrm.txtxx.Text = xxje


'不够7位数前面加"0"
txt5b.Text = Left("0000000", (7 - Len(Trim(CStr(txt5b.Text))))) + Trim(CStr(txt5b.Text))
txt5e.Text = Left("0000000", (7 - Len(Trim(CStr(txt5e.Text))))) + Trim(CStr(txt5e.Text))
txt5b1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt5b1temp.Text))))) + Trim(CStr(txt5b1temp.Text))
txt5e1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt5e1temp.Text))))) + Trim(CStr(txt5e1temp.Text))
txt5b2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt5b2temp.Text))))) + Trim(CStr(txt5b2temp.Text))
txt5e2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt5e2temp.Text))))) + Trim(CStr(txt5e2temp.Text))

txt10b.Text = Left("0000000", (7 - Len(Trim(CStr(txt10b.Text))))) + Trim(CStr(txt10b.Text))
txt10e.Text = Left("0000000", (7 - Len(Trim(CStr(txt10e.Text))))) + Trim(CStr(txt10e.Text))
txt10b1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt10b1temp.Text))))) + Trim(CStr(txt10b1temp.Text))
txt10e1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt10e1temp.Text))))) + Trim(CStr(txt10e1temp.Text))
txt10b2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt10b2temp.Text))))) + Trim(CStr(txt10b2temp.Text))
txt10e2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt10e2temp.Text))))) + Trim(CStr(txt10e2temp.Text))

txt15b.Text = Left("0000000", (7 - Len(Trim(CStr(txt15b.Text))))) + Trim(CStr(txt15b.Text))
txt15e.Text = Left("0000000", (7 - Len(Trim(CStr(txt15e.Text))))) + Trim(CStr(txt15e.Text))
txt15b1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt15b1temp.Text))))) + Trim(CStr(txt15b1temp.Text))
txt15e1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt15e1temp.Text))))) + Trim(CStr(txt15e1temp.Text))
txt15b2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt15b2temp.Text))))) + Trim(CStr(txt15b2temp.Text))
txt15e2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt15e2temp.Text))))) + Trim(CStr(txt15e2temp.Text))

txt20b.Text = Left("0000000", (7 - Len(Trim(CStr(txt20b.Text))))) + Trim(CStr(txt20b.Text))
txt20e.Text = Left("0000000", (7 - Len(Trim(CStr(txt20e.Text))))) + Trim(CStr(txt20e.Text))
txt20b1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt20b1temp.Text))))) + Trim(CStr(txt20b1temp.Text))
txt20e1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt20e1temp.Text))))) + Trim(CStr(txt20e1temp.Text))
txt20b2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt20b2temp.Text))))) + Trim(CStr(txt20b2temp.Text))
txt20e2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt20e2temp.Text))))) + Trim(CStr(txt20e2temp.Text))

txt30b.Text = Left("0000000", (7 - Len(Trim(CStr(txt30b.Text))))) + Trim(CStr(txt30b.Text))
txt30e.Text = Left("0000000", (7 - Len(Trim(CStr(txt30e.Text))))) + Trim(CStr(txt30e.Text))
txt30b1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt30b1temp.Text))))) + Trim(CStr(txt30b1temp.Text))
txt30e1temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt30e1temp.Text))))) + Trim(CStr(txt30e1temp.Text))
txt30b2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt30b2temp.Text))))) + Trim(CStr(txt30b2temp.Text))
txt30e2temp.Text = Left("0000000", (7 - Len(Trim(CStr(txt30e2temp.Text))))) + Trim(CStr(txt30e2temp.Text))

'判断是否有多次票根
If txt5b2temp.Text <> 0 Then
piao5 = CStr(txt5b.Text) & "-" & CStr(txt5e.Text) & "," & CStr(txt5b1temp.Text) & "-" & CStr(txt5e1temp.Text) & "," & CStr(txt5b2temp.Text) & "-" & CStr(txt5e2temp.Text)
ElseIf txt5b1temp.Text <> 0 Then
piao5 = CStr(txt5b.Text) & "-" & CStr(txt5e.Text) & "," & CStr(txt5b1temp.Text) & "-" & CStr(txt5e1temp.Text)
Else
piao5 = CStr(txt5b.Text) & "-" & CStr(txt5e.Text)
End If


If txt10b2temp.Text <> 0 Then
piao10 = CStr(txt10b.Text) & "-" & CStr(txt10e.Text) & "," & CStr(txt10b1temp.Text) & "-" & CStr(txt10e1temp.Text) & "," & CStr(txt10b2temp.Text) & "-" & CStr(txt10e2temp.Text)
ElseIf txt10b1temp.Text <> 0 Then
piao10 = CStr(txt10b.Text) & "-" & CStr(txt10e.Text) & "," & CStr(txt10b1temp.Text) & "-" & CStr(txt10e1temp.Text)
Else
piao10 = CStr(txt10b.Text) & "-" & CStr(txt10e.Text)
End If

If txt15b2temp.Text <> 0 Then
piao15 = CStr(txt15b.Text) & "-" & CStr(txt15e.Text) & "," & CStr(txt15b1temp.Text) & "-" & CStr(txt15e1temp.Text) & "," & CStr(txt15b2temp.Text) & "-" & CStr(txt15e2temp.Text)
ElseIf txt15b1temp.Text <> 0 Then
piao15 = CStr(txt15b.Text) & "-" & CStr(txt15e.Text) & "," & CStr(txt15b1temp.Text) & "-" & CStr(txt15e1temp.Text)
Else
piao15 = CStr(txt15b.Text) & "-" & CStr(txt15e.Text)
End If


If txt20b2temp.Text <> 0 Then
piao20 = CStr(txt20b.Text) & "-" & CStr(txt20e.Text) & "," & CStr(txt20b1temp.Text) & "-" & CStr(txt20e1temp.Text) & "," & CStr(txt20b2temp.Text) & "-" & CStr(txt20e2temp.Text)
ElseIf txt20b1temp.Text <> 0 Then
piao20 = CStr(txt20b.Text) & "-" & CStr(txt20e.Text) & "," & CStr(txt20b1temp.Text) & "-" & CStr(txt20e1temp.Text)
Else
piao20 = CStr(txt20b.Text) & "-" & CStr(txt20e.Text)
End If


If txt30b2temp.Text <> 0 Then
piao30 = CStr(txt30b.Text) & "-" & CStr(txt30e.Text) & "," & CStr(txt30b1temp.Text) & "-" & CStr(txt30e1temp.Text) & "," & CStr(txt30b2temp.Text) & "-" & CStr(txt30e2temp.Text)
ElseIf txt30b1temp.Text <> 0 Then
piao30 = CStr(txt30b.Text) & "-" & CStr(txt30e.Text) & "," & CStr(txt30b1temp.Text) & "-" & CStr(txt30e1temp.Text)
Else
piao30 = CStr(txt30b.Text) & "-" & CStr(txt30e.Text)
End If




'向数据库插入数据
If m_enable Then
strcnn = "insert into data(begin5,end5,begin10,end10,begin15,end15,begin20,end20,begin30,end30,begintwo5,endtwo5,beginthree5,endthree5,begintwo10,endtwo10,beginthree10,endthree10,begintwo15,endtwo15,beginthree15,endthree15,begintwo20,endtwo20,beginthree20,endthree20,begintwo30,endtwo30,beginthree30,endthree30,zs5,je5,zs10,je10,zs15,je15,zs20,je20,zs30,je30,hjzs,hjje,bz,bc,station,sxm,riqi,ph5,ph10,ph15,ph20,ph30,gonghao)" & _
"values('" & txt5b & "','" & txt5e & "','" & txt10b & "','" & txt10e & "','" & txt15b & "','" & txt15e & "','" & txt20b & "','" & txt20e & "','" & txt30b & "','" & txt30e & "','" & txt5b1temp & "','" & txt5e1temp & "','" & txt5b2temp & "','" & txt5e2temp & "','" & txt10b1temp & "','" & txt10e1temp & "','" & txt10b2temp & "','" & txt10e2temp & "','" & txt15b1temp & "','" & txt15e1temp & "','" & txt15b2temp & "','" & txt15e2temp & "','" & txt20b1temp & "','" & txt20e1temp & "','" & txt20b2temp & "','" & txt20e2temp & "','" & txt30b1temp & "','" & txt30e1temp & "','" & txt30b2temp & "','" & txt30e2temp & "','" & datamfrm.txtzs5 & "','" & datamfrm.txtje5 & "','" & datamfrm.txtzs10 & "','" & datamfrm.txtje10 & "','" & datamfrm.txtzs15 & "','" & datamfrm.txtje15 & "','" & datamfrm.txtzs20 & "','" & datamfrm.txtje20 & "','" & datamfrm.txtzs30 & "','" & datamfrm.txtje30 & "','" & datamfrm.txtzshj & "','" & datamfrm.txtjehj & "'," & _
"'" & Combobz.Text & "','" & Combobc.Text & "','" & Combostation.Text & "','" & txtsfname.Text & "',#" & rwdate & "#,'" & piao5 & "','" & piao10 & "','" & piao15 & "','" & piao20 & "','" & piao30 & "','" & txtgonghao1.Text & "')"
Else
strcnn = "insert into data(begin5,end5,begin10,end10,begin15,end15,begin20,end20,begin30,end30,zs5,je5,zs10,je10,zs15,je15,zs20,je20,zs30,je30,hjzs,hjje,bz,bc,station,sxm,riqi,ph5,ph10,ph15,ph20,ph30,gonghao)values('" & txt5b & "','" & txt5e & "','" & txt10b & "','" & txt10e & "','" & txt15b & "','" & txt15e & "','" & txt20b & "','" & txt20e & "','" & txt30b & "','" & txt30e & "','" & datamfrm.txtzs5 & "','" & datamfrm.txtje5 & "','" & datamfrm.txtzs10 & "','" & datamfrm.txtje10 & "','" & datamfrm.txtzs15 & "','" & datamfrm.txtje15 & "','" & datamfrm.txtzs20 & "','" & datamfrm.txtje20 & "','" & datamfrm.txtzs30 & "','" & datamfrm.txtje30 & "','" & datamfrm.txtzshj & "','" & datamfrm.txtjehj & "','" & Combobz.Text & "','" & Combobc.Text & "','" & Combostation.Text & "','" & txtsfname.Text & "',#" & rwdate & "#,'" & piao5 & "','" & piao10 & "','" & piao15 & "','" & piao20 & "','" & piao30 & "','" & txtgonghao1.Text & "')"
End If

With condata
If .State = adStateOpen Then
   .Close
End If
   .Provider = "microsoft.jet.oledb.4.0"
   .ConnectionString = App.Path & "\jinbin.mdb"
   .ConnectionTimeout = 10
   .Open
End With

With cmddata
   .ActiveConnection = condata
   .CommandType = adCmdText
   .CommandText = strcnn
   .Execute
End With

datamfrm.Label11.Caption = wt.Up(datamfrm.txtxx)


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 "一"
Combobz.AddItem "二"
Combobz.AddItem "三"
Combobz.AddItem "四"
Combobc.AddItem "白"
Combobc.AddItem "夜"
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

End Sub

Private Sub txtgonghao_LostFocus()
Dim cnnjinbin As New ADODB.Connection
Dim rstjinbin As New ADODB.Recordset

If Len(Trim(txtgonghao.Text)) <> 0 Then
With cnnjinbin
If .State = adStateOpen Then
   .Close
End If
   .Provider = "microsoft.jet.oledb.4.0"
   .ConnectionString = App.Path & "\jinbin.mdb"
   .Open
End With

With rstjinbin
If .State = adStateOpen Then
   .Close
End If
   .LockType = adLockReadOnly
   .CursorLocation = adUseClient
   .CursorType = adOpenDynamic
   .ActiveConnection = cnnjinbin
   .Source = "select top 1 * from data where gonghao='" & Trim(txtgonghao.Text) & "'order by bh desc"
   .Open
If .RecordCount <> 0 Then
Do Until .EOF
txtgonghao1.Text = Trim(.Fields!gonghao.Value)
txtsfname.Text = Trim(.Fields!sxm.Value)
txt5b.Text = Trim(.Fields!begin5.Value)
txt5e.Text = Trim(.Fields!end5.Value)
txt5b1temp.Text = Trim(.Fields!begintwo5.Value)
txt5e1temp.Text = Trim(.Fields!endtwo5.Value)
txt5b2temp.Text = Trim(.Fields!beginthree5.Value)
txt5e2temp.Text = Trim(.Fields!endthree5.Value)

txt10b.Text = Trim(.Fields!begin10.Value)
txt10e.Text = Trim(.Fields!end10.Value)
txt10b1temp.Text = Trim(.Fields!begintwo10.Value)
txt10e1temp.Text = Trim(.Fields!endtwo10.Value)
txt10b2temp.Text = Trim(.Fields!beginthree10.Value)
txt10e2temp.Text = Trim(.Fields!endthree10.Value)

txt15b.Text = Trim(.Fields!begin15.Value)
txt15e.Text = Trim(.Fields!end15.Value)
txt15b1temp.Text = Trim(.Fields!begintwo15.Value)
txt15e1temp.Text = Trim(.Fields!endtwo15.Value)
txt15b2temp.Text = Trim(.Fields!beginthree15.Value)
txt15e2temp.Text = Trim(.Fields!endthree15.Value)

txt20b.Text = Trim(.Fields!begin20.Value)
txt20e.Text = Trim(.Fields!end20.Value)
txt20b1temp.Text = Trim(.Fields!begintwo20.Value)
txt20e1temp.Text = Trim(.Fields!endtwo20.Value)
txt20b2temp.Text = Trim(.Fields!beginthree20.Value)
txt20e2temp.Text = Trim(.Fields!endthree20.Value)

txt30b.Text = Trim(.Fields!begin30.Value)
txt30e.Text = Trim(.Fields!end30.Value)
txt30b1temp.Text = Trim(.Fields!begintwo30.Value)
txt30e1temp.Text = Trim(.Fields!endtwo30.Value)
txt30b2temp.Text = Trim(.Fields!beginthree30.Value)
txt30e2temp.Text = Trim(.Fields!endthree30.Value)

.MoveNext
Loop
Else
MsgBox "输入的工号非法，请重新输入", vbOKOnly
txtgonghao.Text = ""
txtgonghao.SetFocus
Exit Sub
End If
End With
End If

If txt5e2temp.Text <> 0 Then
txt5b.Text = txt5e2temp.Text + 1
ElseIf txt5b2temp.Text <> 0 And txt5e2temp.Text = 0 Then
txt5b.Text = txt5b2temp.Text
ElseIf txt5b2temp.Text <> 0 Then
txt5b.Text = txt5b2temp.Text + 1
ElseIf txt5e1temp.Text <> 0 Then
txt5b.Text = txt5e1temp.Text + 1
ElseIf txt5b1temp.Text <> 0 And txt5e1temp.Text = 0 Then
txt5b.Text = txt5b1temp.Text
ElseIf txt5b1temp.Text <> 0 Then
txt5b.Text = txt5b1temp.Text + 1
ElseIf txt5e.Text <> 0 Then
txt5b.Text = txt5e.Text + 1
ElseIf txt5b.Text <> 0 And txt5e.Text = 0 Then
txt5b.Text = txt5b.Text
ElseIf txt5b.Text = 0 Then
txt5b.Text = ""
Else
txt5b.Text = txt5b.Text + 1
End If

If txt10e2temp.Text <> 0 Then
txt10b.Text = txt10e2temp.Text + 1
ElseIf txt10b2temp.Text <> 0 And txt10e2temp.Text = 0 Then
txt10b.Text = txt10b2temp.Text
ElseIf txt10b2temp.Text <> 0 Then
txt10b.Text = txt10b2temp.Text + 1
ElseIf txt10e1temp.Text <> 0 Then
txt10b.Text = txt10e1temp.Text + 1
ElseIf txt10b1temp.Text <> 0 And txt10e1temp.Text = 0 Then
txt10b.Text = txt10b1temp.Text
ElseIf txt10b1temp.Text <> 0 Then
txt10b.Text = txt10b1temp.Text + 1
ElseIf txt10e.Text <> 0 Then
txt10b.Text = txt10e.Text + 1
ElseIf txt10b.Text <> 0 And txt10e.Text = 0 Then
txt10b.Text = txt10b.Text
ElseIf txt10b.Text = 0 Then
txt10b.Text = ""
Else
txt10b.Text = txt10b.Text + 1
End If

If txt15e2temp.Text <> 0 Then
txt15b.Text = txt15e2temp.Text + 1
ElseIf txt15b2temp.Text <> 0 And txt15e2temp.Text = 0 Then
txt15b.Text = txt15b2temp.Text
ElseIf txt15b2temp.Text <> 0 Then
txt15b.Text = txt15b2temp.Text + 1
ElseIf txt15e1temp.Text <> 0 Then
txt15b.Text = txt15e1temp.Text + 1
ElseIf txt15b1temp.Text <> 0 And txt15e1temp.Text = 0 Then
txt15b.Text = txt15b1temp.Text
ElseIf txt15b1temp.Text <> 0 Then
txt15b.Text = txt15b1temp.Text + 1
ElseIf txt15e.Text <> 0 Then
txt15b.Text = txt15e.Text + 1
ElseIf txt15b.Text <> 0 And txt15e.Text = 0 Then
txt15b.Text = txt15b.Text
ElseIf txt15b.Text = 0 Then
txt15b.Text = ""
Else
txt15b.Text = txt15b.Text + 1
End If

If txt20e2temp.Text <> 0 Then
txt20b.Text = txt20e2temp.Text + 1
ElseIf txt20b2temp.Text <> 0 And txt20e2temp.Text = 0 Then
txt20b.Text = txt20b2temp.Text
ElseIf txt20b2temp.Text <> 0 Then
txt20b.Text = txt20b2temp.Text + 1
ElseIf txt20e1temp.Text <> 0 Then
txt20b.Text = txt20e1temp.Text + 1
ElseIf txt20b1temp.Text <> 0 And txt20e1temp.Text = 0 Then
txt20b.Text = txt20b1temp.Text
ElseIf txt20b1temp.Text <> 0 Then
txt20b.Text = txt20b1temp.Text + 1
ElseIf txt20e.Text <> 0 Then
txt20b.Text = txt20e.Text + 1
ElseIf txt20b.Text <> 0 And txt20e.Text = 0 Then
txt20b.Text = txt20b.Text
ElseIf txt20b.Text = 0 Then
txt20b.Text = ""
Else
txt20b.Text = txt20b.Text + 1
End If


If txt30e2temp.Text <> 0 Then
txt30b.Text = txt30e2temp.Text + 1
ElseIf txt30b2temp.Text <> 0 And txt30e2temp.Text = 0 Then
txt30b.Text = txt30b2temp.Text
ElseIf txt30b2temp.Text <> 0 Then
txt30b.Text = txt30b2temp.Text + 1
ElseIf txt30e1temp.Text <> 0 Then
txt30b.Text = txt30e1temp.Text + 1
ElseIf txt30b1temp.Text <> 0 And txt30e1temp.Text = 0 Then
txt30b.Text = txt30b1temp.Text
ElseIf txt30b1temp.Text <> 0 Then
txt30b.Text = txt30b1temp.Text + 1
ElseIf txt30e.Text <> 0 Then
txt30b.Text = txt30e.Text + 1
ElseIf txt30b.Text <> 0 And txt30e.Text = 0 Then
txt30b.Text = txt30b.Text
ElseIf txt30b.Text = 0 Then
txt30b.Text = ""
Else
txt30b.Text = txt30b.Text + 1
End If


If txt5b.Text = 0 Then
txt5b.Text = ""
End If

If txt10b.Text = 0 Then
txt10b.Text = ""
End If

If txt15b.Text = 0 Then
txt15b.Text = ""
End If

If txt20b.Text = 0 Then
txt20b.Text = ""
End If

If txt30b.Text = 0 Then
txt30b.Text = ""
End If


txt5e.Text = ""
txt5b1temp.Text = 0
txt5e1temp.Text = 0
txt5b2temp.Text = 0
txt5e2temp.Text = 0

txt10e.Text = ""
txt10b1temp.Text = 0
txt10e1temp.Text = 0
txt10b2temp.Text = 0
txt10e2temp.Text = 0

txt15e.Text = ""
txt15b1temp.Text = 0
txt15e1temp.Text = 0
txt15b2temp.Text = 0
txt15e2temp.Text = 0

txt20e.Text = ""
txt20b1temp.Text = 0
txt20e1temp.Text = 0
txt20b2temp.Text = 0
txt20e2temp.Text = 0

txt30e.Text = ""
txt30b1temp.Text = 0
txt30e1temp.Text = 0
txt30b2temp.Text = 0
txt30e2temp.Text = 0

End Sub