📄 frmfixcar.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmFixCar
BorderStyle = 3 'Fixed Dialog
Caption = "车辆维修记录更改"
ClientHeight = 4530
ClientLeft = 45
ClientTop = 330
ClientWidth = 5835
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4530
ScaleWidth = 5835
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox txtFixID
Height = 495
Left = 240
TabIndex = 19
Top = 3840
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton cmdOK
Height = 495
Left = 1200
Picture = "frmFixCar.frx":0000
Style = 1 'Graphical
TabIndex = 18
Top = 3840
Width = 1215
End
Begin VB.CommandButton cmdCancel
Height = 495
Left = 3240
Picture = "frmFixCar.frx":0540
Style = 1 'Graphical
TabIndex = 17
Top = 3840
Width = 1215
End
Begin VB.ComboBox Combo_FixDeep
Height = 300
ItemData = "frmFixCar.frx":0A92
Left = 1185
List = "frmFixCar.frx":0AAB
Style = 2 'Dropdown List
TabIndex = 16
Top = 1170
Width = 1455
End
Begin VB.TextBox txtFixContent
Appearance = 0 'Flat
Height = 330
Left = 1185
TabIndex = 13
Top = 1545
Width = 4275
End
Begin VB.TextBox txtFixName
Appearance = 0 'Flat
Height = 330
Left = 1185
TabIndex = 6
Top = 765
Width = 1695
End
Begin VB.TextBox txtFixMoney
Appearance = 0 'Flat
Height = 330
Left = 3765
TabIndex = 5
Top = 755
Width = 1695
End
Begin VB.TextBox txtFixNote
Appearance = 0 'Flat
Height = 1500
Left = 1200
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 4
Top = 1950
Width = 4275
End
Begin VB.TextBox txtFixLicense
Appearance = 0 'Flat
Height = 330
Left = 1185
TabIndex = 3
Top = 345
Width = 1695
End
Begin VB.TextBox txtFixMan
Appearance = 0 'Flat
Height = 330
Left = 3765
TabIndex = 2
Top = 1150
Width = 1695
End
Begin MSComCtl2.DTPicker DTPFixDate
Height = 330
Left = 3765
TabIndex = 1
Top = 360
Width = 1695
_ExtentX = 2990
_ExtentY = 582
_Version = 393216
Format = 27066369
CurrentDate = 38032
End
Begin VB.Label Label28
AutoSize = -1 'True
Caption = "损坏程度"
Height = 180
Left = 360
TabIndex = 15
Top = 1230
Width = 720
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "维修内容"
Height = 180
Left = 360
TabIndex = 14
Top = 1620
Width = 720
End
Begin VB.Label Label31
AutoSize = -1 'True
Caption = "车 牌 号"
Height = 180
Left = 360
TabIndex = 12
Top = 435
Width = 720
End
Begin VB.Label Label29
AutoSize = -1 'True
Caption = "费用名称"
Height = 180
Left = 360
TabIndex = 11
Top = 825
Width = 720
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "金 额"
Height = 180
Left = 3210
TabIndex = 10
Top = 825
Width = 450
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "经手人"
Height = 180
Left = 3150
TabIndex = 9
Top = 1215
Width = 540
End
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "日 期"
Height = 180
Left = 3210
TabIndex = 8
Top = 420
Width = 450
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "备 注"
Height = 180
Left = 465
TabIndex = 7
Top = 2070
Width = 540
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Height = 3435
Left = 180
TabIndex = 0
Top = 180
Width = 5475
End
End
Attribute VB_Name = "frmFixCar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim rst As New ADODB.Recordset
Dim strsql As String
If Me.txtFixLicense = "" Then '检查是否已添车牌号
MsgBox "车牌号一栏不得为空！", vbCritical, "车辆维修"
Exit Sub
End If
If Me.Combo_FixDeep.Text = "" Then '检查是否已添损坏程度
MsgBox "必须选出损坏程度！", vbCritical, "车辆维修"
Exit Sub
End If
If Me.txtFixName = "" Then '检查是否已添费用名称
MsgBox "请输入“费用名称”。", vbCritical, "车辆维修"
Exit Sub
End If
If Me.txtFixMoney = "" Then '检查是否已添金额
MsgBox "请输入“维修金额”。", vbCritical, "车辆维修"
Exit Sub
End If
If IsNumeric(Me.txtFixMoney) = False Then '检查“金额”是否为数字
MsgBox "维修金额必须填写金额数字！", vbExclamation, "车辆维修"
Exit Sub
End If
If MsgBox("确定要修改此条维修记录吗？", vbYesNo) = vbNo Then
Exit Sub '提问是否真要修改
End If
strsql = "select * from tbl_fixCar where FixID=" & Me.txtFixID
rst.Open strsql, CnnDataBase, adOpenStatic, adLockOptimistic
If rst.RecordCount <> 1 Then '准备修改车辆维修记录
MsgBox "车辆维修记录数据表中存在重复的此维修编号！", vbCritical, "数据库错误"
Exit Sub
End If
rst!FixLicense = Me.txtFixLicense '更改“车牌号”
rst!FixDate = Me.DTPFixDate.Value
rst!FixDeep = Me.Combo_FixDeep.Text
rst!FixName = Me.txtFixName
rst!FixMoney = Format(Me.txtFixMoney, "##0.00")
If Me.txtFixMan <> "" Then '修改“经手人”
rst!FixMan = Me.txtFixMan
End If
If Me.txtFixContent <> "" Then
rst!FixContent = Me.txtFixContent
End If
If Me.txtFixNote <> "" Then
rst!FixNote = Me.txtFixNote
End If
rst.Update '修改完成
MsgBox "此车辆维修记录修改成功！", , "修改完成"
Unload Me '关闭窗体
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -