📄 formacc.frm
字号:
Height = 375
Left = -66360
TabIndex = 13
Top = 1680
Width = 1215
End
Begin VB.TextBox TxtOppTel
Height = 375
Left = -68760
TabIndex = 12
Top = 1080
Width = 2175
End
Begin VB.TextBox TxtRemark
Height = 1455
Left = -73440
MultiLine = -1 'True
TabIndex = 11
Top = 3000
Width = 6855
End
Begin VB.CommandButton CmdAdd
Caption = "记录"
Height = 375
Left = -66360
TabIndex = 10
Top = 1080
Width = 1215
End
Begin VB.OptionButton OptQue
Caption = "按车辆ID查询："
Height = 495
Index = 0
Left = 240
TabIndex = 9
Top = 600
Value = -1 'True
Width = 1935
End
Begin VB.OptionButton OptQue
Caption = "按司机ID查询："
Height = 495
Index = 1
Left = 240
TabIndex = 8
Top = 1080
Width = 1935
End
Begin VB.OptionButton OptQue
Caption = "按事故日期查询："
Height = 495
Index = 2
Left = 240
TabIndex = 7
Top = 1560
Width = 1935
End
Begin VB.OptionButton OptQue
Caption = "按备注查询："
Height = 495
Index = 3
Left = 240
TabIndex = 6
Top = 2160
Width = 1935
End
Begin VB.CommandButton CmdBack
Caption = "返回"
Height = 375
Left = 8520
TabIndex = 5
Top = 3960
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox TxtPlace
Height = 375
Left = -73440
TabIndex = 4
Top = 2040
Width = 2175
End
Begin MSComCtl2.DTPicker DTPQueDate
Height = 375
Left = 2280
TabIndex = 22
Top = 1680
Width = 2175
_ExtentX = 3836
_ExtentY = 661
_Version = 393216
Format = 20774913
CurrentDate = 38718
End
Begin MSComCtl2.DTPicker DTPDate
Height = 375
Left = -73440
TabIndex = 39
Top = 1560
Width = 2175
_ExtentX = 3836
_ExtentY = 661
_Version = 393216
Format = 20774913
CurrentDate = 38718
End
Begin MSComctlLib.ListView LvResult
Height = 3255
Left = 120
TabIndex = 3
Top = 600
Visible = 0 'False
Width = 9735
_ExtentX = 17171
_ExtentY = 5741
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 7
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "违章记录号"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "违章车辆ID"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "司机ID"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "违章原因"
Object.Width = 1766
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "违章日期"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "违章罚款（元）"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "备注"
Object.Width = 2540
EndProperty
End
Begin VB.Label Label8
Caption = "对方负担金额（元）："
Height = 375
Index = 6
Left = -70680
TabIndex = 38
Top = 2640
Width = 2175
End
Begin VB.Label Label8
Caption = "公司负担金额（元）："
Height = 375
Index = 5
Left = -70680
TabIndex = 36
Top = 2160
Width = 2175
End
Begin VB.Label Label8
Caption = "事故对象身份证号："
Height = 375
Index = 4
Left = -70680
TabIndex = 34
Top = 720
Width = 1695
End
Begin VB.Label Label8
Caption = "保险理陪金额（元）："
Height = 375
Index = 3
Left = -70680
TabIndex = 32
Top = 1680
Width = 2175
End
Begin VB.Label Label8
Caption = "事故对象姓名："
Height = 375
Index = 2
Left = -74760
TabIndex = 30
Top = 2520
Width = 1455
End
Begin VB.Label Label1
Caption = "事故车辆ID："
Height = 255
Index = 0
Left = -74760
TabIndex = 28
Top = 720
Width = 1215
End
Begin VB.Label Label2
Caption = "事故司机ID："
Height = 255
Index = 0
Left = -74760
TabIndex = 27
Top = 1200
Width = 1215
End
Begin VB.Label Label4
Caption = "事故日期："
Height = 255
Index = 0
Left = -74760
TabIndex = 26
Top = 1560
Width = 1215
End
Begin VB.Label Label8
Caption = "事故对象电话(手机)："
Height = 375
Index = 0
Left = -70680
TabIndex = 25
Top = 1200
Width = 2055
End
Begin VB.Label Label10
Caption = "备注："
Height = 375
Index = 0
Left = -74760
TabIndex = 24
Top = 3000
Width = 735
End
Begin VB.Label Label8
Caption = "事故地点："
Height = 375
Index = 1
Left = -74760
TabIndex = 23
Top = 2040
Width = 1455
End
End
End
Attribute VB_Name = "FormAcc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'返回按钮
Private Sub CmdBack_Click()
Me.LvResult.Visible = False
Me.CmdBack.Visible = False
End Sub
'删除按钮
Private Sub CmdDel_Click()
If MsgBox("确定要删除选定档案吗？", vbOKCancel, "删除事故记录") = vbOK Then
Adodc1.Recordset.Delete
MsgBox "删除成功！", , "删除事故记录"
CmdEmpty_Click
End If
Exit Sub
End Sub
'清空按钮
Private Sub CmdEmpty_Click()
Me.DTPDate.Value = Format(Now, "yyyy-mm-dd")
Me.TxtPlace.Text = ""
Me.TxtOppName.Text = ""
Me.TxtOppNum.Text = ""
Me.TxtOppTel.Text = ""
Me.TxtInsPay.Text = ""
Me.TxtComPay.Text = ""
Me.TxtOppPay.Text = ""
Me.TxtRemark.Text = ""
End Sub
'修改按钮
Private Sub CmdMod_Click()
DataGrid1.Columns(1).Text = Me.CmbCarID.Text
DataGrid1.Columns(2).Text = Me.CmbDriverID.Text
DataGrid1.Columns(3).Text = Me.DTPDate.Value
DataGrid1.Columns(4).Text = Me.TxtPlace.Text
DataGrid1.Columns(5).Text = Me.TxtOppName.Text
DataGrid1.Columns(6).Text = Me.TxtOppNum.Text
DataGrid1.Columns(7).Text = Me.TxtOppTel.Text
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -