VB高速公路票据管理系统(七)

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 =

首页 上一页 4 5 6 7 8 9 10 下一页 尾页 7/10/10