📄 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 + -