?? frmcheliang.frm
字號:
TabIndex = 13
Top = 960
Width = 1695
End
Begin VB.TextBox Text3
Height = 285
Index = 3
Left = -67800
TabIndex = 12
Top = 960
Width = 855
End
Begin VB.TextBox Text3
Height = 285
Index = 4
Left = -66000
TabIndex = 11
Top = 960
Width = 975
End
Begin VB.TextBox Text3
Height = 285
Index = 5
Left = -73680
TabIndex = 10
Top = 1440
Width = 1695
End
Begin VB.TextBox Text3
Height = 285
Index = 6
Left = -70440
TabIndex = 9
Top = 1440
Width = 1695
End
Begin VB.TextBox Text3
Height = 285
Index = 7
Left = -67800
TabIndex = 8
Top = 1440
Width = 2775
End
Begin VB.TextBox Text3
Height = 285
Index = 8
Left = -73680
TabIndex = 7
Top = 1920
Width = 1695
End
Begin VB.TextBox Text3
Height = 285
Index = 9
Left = -70440
TabIndex = 6
Top = 1920
Width = 1695
End
Begin VB.Label Label39
AutoSize = -1 'True
Caption = "車輛編號"
Height = 195
Left = 1320
TabIndex = 88
Top = 480
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "車輛編號"
Height = 195
Left = -73200
TabIndex = 69
Top = 720
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "車牌號"
Height = 195
Left = -73200
TabIndex = 68
Top = 1200
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "車型"
Height = 195
Left = -69120
TabIndex = 67
Top = 1200
Width = 360
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "引擎號碼"
Height = 195
Left = -73200
TabIndex = 66
Top = 1800
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "駕駛員"
Height = 195
Left = -69240
TabIndex = 65
Top = 1800
Width = 540
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "用途"
Height = 195
Left = -73200
TabIndex = 64
Top = 2520
Width = 360
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "購買日期"
Height = 195
Left = -73200
TabIndex = 63
Top = 3240
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "購買價格"
Height = 195
Left = -69480
TabIndex = 62
Top = 3240
Width = 720
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "使用單位"
Height = 195
Left = -73200
TabIndex = 61
Top = 3960
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "使用日期"
Height = 195
Left = 1320
TabIndex = 60
Top = 840
Width = 720
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "使用事由"
Height = 195
Left = 1320
TabIndex = 59
Top = 3240
Width = 720
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "使用單位"
Height = 195
Left = 1320
TabIndex = 58
Top = 1320
Width = 720
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "車牌號"
Height = 195
Left = 1320
TabIndex = 57
Top = 1800
Width = 540
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "起始時間"
Height = 195
Left = 1320
TabIndex = 56
Top = 2280
Width = 720
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "截止時間"
Height = 195
Left = 6120
TabIndex = 55
Top = 2280
Width = 720
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "行駛里程"
Height = 195
Left = 1320
TabIndex = 54
Top = 2760
Width = 720
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "車輛編號"
Height = 195
Left = -74520
TabIndex = 53
Top = 600
Width = 720
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "駕駛員"
Height = 195
Left = -74400
TabIndex = 52
Top = 960
Width = 540
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "所屬部門"
Height = 195
Left = -71400
TabIndex = 51
Top = 960
Width = 720
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "車型"
Height = 195
Left = -68280
TabIndex = 50
Top = 960
Width = 360
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "車牌號"
Height = 195
Left = -66600
TabIndex = 49
Top = 960
Width = 540
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "事故發生日期"
Height = 195
Left = -74880
TabIndex = 48
Top = 1440
Width = 1080
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "事故發生地點"
Height = 195
Left = -71640
TabIndex = 47
Top = 1440
Width = 1080
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "損壞程度"
Height = 195
Left = -68640
TabIndex = 46
Top = 1440
Width = 720
End
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "公司負擔金額"
Height = 195
Left = -74880
TabIndex = 45
Top = 1920
Width = 1080
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "保險理賠金額"
Height = 195
Left = -71640
TabIndex = 44
Top = 1920
Width = 1080
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "對方賠償金額"
Height = 195
Left = -74880
TabIndex = 43
Top = 2280
Width = 1080
End
Begin VB.Label Label28
AutoSize = -1 'True
Caption = "本人負責金額"
Height = 195
Left = -71640
TabIndex = 42
Top = 2280
Width = 1080
End
Begin VB.Label Label29
AutoSize = -1 'True
Caption = "對方姓名"
Height = 195
Left = -74520
TabIndex = 41
Top = 2760
Width = 720
End
Begin VB.Label Label30
AutoSize = -1 'True
Caption = "對方年齡"
Height = 195
Left = -71280
TabIndex = 40
Top = 2760
Width = 720
End
Begin VB.Label Label31
AutoSize = -1 'True
Caption = "對方住址"
Height = 195
Left = -74520
TabIndex = 39
Top = 3120
Width = 720
End
Begin VB.Label Label32
AutoSize = -1 'True
Caption = "對方電話"
Height = 195
Left = -68640
TabIndex = 38
Top = 2760
Width = 720
End
Begin VB.Label Label33
AutoSize = -1 'True
Caption = "對方單位"
Height = 195
Left = -68640
TabIndex = 37
Top = 3120
Width = 720
End
Begin VB.Label Label34
AutoSize = -1 'True
Caption = "對方車型"
Height = 195
Left = -74520
TabIndex = 36
Top = 3480
Width = 720
End
Begin VB.Label Label35
AutoSize = -1 'True
Caption = "對方車號"
Height = 195
Left = -71280
TabIndex = 35
Top = 3480
Width = 720
End
Begin VB.Label Label36
AutoSize = -1 'True
Caption = "對方損壞程度"
Height = 195
Left = -69000
TabIndex = 34
Top = 3480
Width = 1080
End
Begin VB.Label Label37
AutoSize = -1 'True
Caption = "事故概要"
Height = 195
Left = -74520
TabIndex = 33
Top = 3840
Width = 720
End
Begin VB.Label Label38
AutoSize = -1 'True
Caption = "事故解決"
Height = 195
Left = -74520
TabIndex = 32
Top = 4560
Width = 720
End
End
End
Attribute VB_Name = "frmcheliang"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs_dengji As New ADODB.Recordset
Dim rs_shiyong As New ADODB.Recordset
Dim rs_shigu As New ADODB.Recordset
Private Sub cmdadd_Click()
Dim i As Integer
On Error GoTo adderror
If cmdadd.Caption = "增加記錄" Then '當此按鈕的狀態為為“增加記錄”時
cmdadd.Caption = "確定" '按鈕名稱改為“確定”
cmddel.Enabled = False '刪除與修改按鈕不可用
cmdmodify.Enabled = False
cmdcancel.Enabled = True
Select Case SSTab1.Tab '判斷將要發生變化的是哪個tab
Case 0
For i = 0 To 8
Text1(i).Enabled = True '各文本框可用
Text1(i).Text = "" '文本框內容設為空
Next i
Case 1
For i = 0 To 7
Text2(i).Enabled = True
Text2(i).Text = ""
Next i
Case 2
For i = 0 To 21
Text3(i).Enabled = True
Text3(i).Text = ""
Next i
End Select
Else '當按鈕的狀態為“確定”時
Select Case SSTab1.Tab
Case 0
If Trim(Text1(0).Text) = "" Then
MsgBox "車輛編號不能為空", vbOKOnly + vbExclamation, ""
Text1(0).SetFocus
Exit Sub
End If
If Not IsDate(Text1(6).Text) Then
MsgBox "請按照yyyy-mm-dd格式輸入購買日期", vbOKOnly + vbExclamation, ""
Text1(6).SetFocus
Exit Sub
End If
If Not IsNumeric(Text1(7).Text) Then
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -