?? frmdriverlr.frm
字號(hào):
TabIndex = 28
Top = 1680
Width = 1260
End
Begin VB.Label Label6
Caption = "領(lǐng)證日期："
Height = 300
Left = 2850
TabIndex = 27
Top = 285
Width = 1260
End
Begin VB.Label Label7
Caption = "證件有效期："
Height = 300
Left = 2850
TabIndex = 26
Top = 630
Width = 1260
End
Begin VB.Label Label8
Caption = "駕齡："
Height = 300
Left = 2850
TabIndex = 25
Top = 975
Width = 1260
End
Begin VB.Label Label9
Caption = "準(zhǔn)駕車型："
Height = 300
Left = 2850
TabIndex = 24
Top = 1335
Width = 1260
End
Begin VB.Label Label10
Caption = "何時(shí)參加工作："
Height = 300
Left = 2850
TabIndex = 23
Top = 1680
Width = 1260
End
Begin VB.Label Label11
Caption = "聯(lián)系電話："
Height = 300
Left = 5640
TabIndex = 22
Top = 285
Width = 1260
End
Begin VB.Label Label12
Caption = "年檢記錄："
Height = 300
Left = 5640
TabIndex = 21
Top = 630
Width = 1260
End
Begin VB.Label Label13
Caption = "備注："
Height = 300
Left = 5640
TabIndex = 20
Top = 1335
Width = 1260
End
End
Begin VB.CommandButton cmdExit
Caption = "退 出(&E)"
Height = 330
Left = 7245
TabIndex = 0
Top = 2250
Width = 975
End
Begin VB.CommandButton cmdDelete
Caption = "刪 除(&D)"
Height = 330
Left = 1995
TabIndex = 3
Top = 2250
Width = 975
End
Begin VB.CommandButton cmdCancel
Caption = "取 消(&Q)"
Enabled = 0 'False
Height = 330
Left = 5235
TabIndex = 1
Top = 2250
Width = 975
End
Begin VB.CommandButton cmdUpdate
Caption = "修 改(&U)"
Height = 330
Left = 1035
TabIndex = 4
Top = 2250
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "添 加(&A)"
Height = 330
Left = 75
TabIndex = 5
Top = 2250
Width = 975
End
Begin VB.CommandButton cmdOk
Caption = "確 定(&O)"
Enabled = 0 'False
Height = 330
Left = 4275
TabIndex = 2
Top = 2250
Width = 975
End
End
Attribute VB_Name = "frmDriverlr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Private Sub cmdAdd_Click()
Unlockctl
Dim temp1
temp1 = CStr(Year(Now))
Adodc1.RecordSource = "select * from 駕駛員檔案 order by 駕駛員編號(hào)"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text1.Text = Year(Now) & Format(Val(Right(Adodc1.Recordset.Fields(0), 4) + 1), "0000")
Else
Text1.Text = Year(Now) & "0001"
End If
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Combo1.Text = ""
Text2.SetFocus
cmdOk.Enabled = True
cmdCancel.Enabled = True
cmdUpdate.Enabled = False
cmdDelete.Enabled = False
DTPicker1.Visible = True
Adodc1.Enabled = False
i = 1
End Sub
Private Sub cmdCancel_Click()
On Error Resume Next '當(dāng)沒有添加數(shù)據(jù)的時(shí)候 處理異常
Adodc1.Recordset.CancelUpdate
Adodc1.Refresh
Lockctl
Text1.Text = ""
cmdOk.Enabled = False
cmdCancel.Enabled = False
cmdAdd.Enabled = True
cmdUpdate.Enabled = True
cmdDelete.Enabled = True
Adodc1.Enabled = True
End Sub
Private Sub cmdDelete_Click()
If MsgBox("您確實(shí)要?jiǎng)h除記錄嗎？", vbOKCancel, "系統(tǒng)提示") = vbOK Then
adoCon.Execute ("delete from 駕駛員檔案 where 駕駛員編號(hào)='" & Text1 & "'")
MsgBox " 記錄已刪除！", , "系統(tǒng)提示"
Adodc1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Combo1.Text = ""
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdFind_Click()
Dim str As String
str = InputBox$("輸入你要查詢的駕駛員編號(hào)：", "系統(tǒng)提示")
If str = "" Then Exit Sub
Adodc1.RecordSource = "select * from 駕駛員檔案 where 駕駛員編號(hào)='" + str + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Text1.Text = Adodc1.Recordset.Fields(0)
Text2.Text = Adodc1.Recordset.Fields(1)
Text3.Text = Adodc1.Recordset.Fields(2)
DTPicker1.Value = Adodc1.Recordset.Fields(3)
Text4.Text = Adodc1.Recordset.Fields(4)
DTPicker2.Value = Adodc1.Recordset.Fields(5)
Text5.Text = Adodc1.Recordset.Fields(6)
Text6.Text = Adodc1.Recordset.Fields(7)
Combo1.Text = Adodc1.Recordset.Fields(8)
DTPicker3.Value = Adodc1.Recordset.Fields(9)
Text7.Text = Adodc1.Recordset.Fields(10)
Text8.Text = Adodc1.Recordset.Fields(11)
Text9.Text = Adodc1.Recordset.Fields(12)
cmdUpdate.Enabled = True
cmdDelete.Enabled = True
Else
MsgBox "沒有你需要的信息！", , "系統(tǒng)提示"
cmdUpdate.Enabled = False
cmdDelete.Enabled = False
End If
End Sub
Private Sub cmdOk_Click()
Select Case i
Case 1
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Combo1.Text = "" Then
MsgBox "每一項(xiàng)不能為空！", , "系統(tǒng)提示"
Exit Sub
End If
adoCon.Execute ("insert into 駕駛員檔案 values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & DTPicker1.Value & "','" & Text4 & "','" & DTPicker2.Value & "','" & Text5 & "','" & Text6.Text & "','" & Combo1.Text & "','" & DTPicker3.Value & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "')")
MsgBox "記錄添加成功！", , "系統(tǒng)提示"
Adodc1.Refresh
Case 2
adoCon.Execute ("update 駕駛員檔案 set 駕駛員編號(hào)='" & Text1.Text & "',姓名='" & Text2.Text & "',性別='" & Text3.Text & "',出生年月='" & DTPicker1.Value & "',駕駛證號(hào)='" & Text4.Text & "',領(lǐng)證日期='" & DTPicker1.Value & "',證件有效期='" & Text5.Text & "',駕齡='" & Text6.Text & "',準(zhǔn)駕車型='" & Combo1.Text & "',何時(shí)參加工作='" & DTPicker1.Value & "',聯(lián)系電話='" & Text7.Text & "',年檢記錄='" & Text8.Text & "',備注='" & Text9.Text & "' where 駕駛員編號(hào)='" & Text1.Text & "'")
MsgBox "記錄修改成功！", , "系統(tǒng)提示"
Adodc1.Refresh
End Select
Lockctl
cmdOk.Enabled = False
cmdCancel.Enabled = False
cmdAdd.Visible = True
cmdUpdate.Visible = True
cmdDelete.Visible = True
Adodc1.Enabled = True
End Sub
Private Sub cmdUpdate_Click()
Unlockctl
i = 2
cmdOk.Enabled = True
cmdCancel.Enabled = True
cmdAdd.Enabled = False
cmdDelete.Enabled = False
DTPicker1.Visible = True
Adodc1.Enabled = False
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = valiText(KeyAscii, Chr(13), True)
If KeyAscii = 13 Then DTPicker3.SetFocus
End Sub
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text4.SetFocus
End Sub
Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text5.SetFocus
End Sub
Private Sub DTPicker3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text7.SetFocus
End Sub
Private Sub Form_Load()
frmDriverlr.Width = 8460
frmDriverlr.Height = 3120
Adodc2.RecordSource = "select * from 車輛類型表"
Adodc2.Refresh
For i = 0 To Adodc2.Recordset.RecordCount - 1
Combo1.AddItem Adodc2.Recordset.Fields(0).Value
Adodc2.Recordset.MoveNext
Next
End Sub
Private Sub Lockctl()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
DTPicker3.Enabled = False
Text9.Enabled = False
Text8.Enabled = False
Combo1.Enabled = False
End Sub
Private Sub Unlockctl()
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
DTPicker1.Enabled = True
DTPicker2.Enabled = True
DTPicker3.Enabled = True
Text9.Enabled = True
Text8.Enabled = True
Combo1.Enabled = True
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If Text1.Text = "" Then
MsgBox "駕駛編號(hào)不能為空！", , "系統(tǒng)提示"
Text1.SetFocus
End If
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If Text2.Text = "" Then
MsgBox "姓名不能為空！！", , "系統(tǒng)提示"
Text2.SetFocus
End If
Text3.SetFocus
End If
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If Text3.Text = "" Then
MsgBox "性別不能為空！", , "系統(tǒng)提示"
Text3.SetFocus
End If
DTPicker1.SetFocus
End If
End Sub
Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If Text4.Text = "" Then
MsgBox "駕駛證號(hào)不能為空！！", , "系統(tǒng)提示"
Text4.SetFocus
End If
DTPicker2.SetFocus
End If
End Sub
Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If Text5.Text = "" Then
MsgBox "證件有效期不能為空！", , "系統(tǒng)提示"
Text5.SetFocus
End If
Text6.SetFocus
End If
End Sub
Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Combo1.SetFocus
End Sub
Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text8.SetFocus
End Sub
Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text9.SetFocus
End Sub
Private Sub Text9_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then cmdOk.SetFocus
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -