frm_rpair.frm
来自「汽修厂管理软件」· FRM 代码 · 共 1,041 行 · 第 1/3 页
FRM
1,041 行
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Frm_Repair
Caption = "维修养护"
ClientHeight = 7200
ClientLeft = 2430
ClientTop = 1740
ClientWidth = 10800
Icon = "frm_Rpair.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7200
ScaleWidth = 10800
Begin VB.ComboBox Comb_ZhuangTai
Appearance = 0 'Flat
Height = 300
Left = 9120
TabIndex = 31
Text = "维修"
Top = 1680
Width = 1455
End
Begin VB.TextBox Txt_JieCheYuan
Appearance = 0 'Flat
BackColor = &H80000004&
Height = 270
Left = 7080
Locked = -1 'True
TabIndex = 29
Top = 1680
Width = 1095
End
Begin VB.TextBox Txt_Date
Appearance = 0 'Flat
BackColor = &H80000004&
Height = 270
Left = 4560
TabIndex = 27
Text = "Text1"
Top = 1680
Width = 1335
End
Begin VB.TextBox Txt_Sum
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000004&
Height = 270
Left = 1680
Locked = -1 'True
TabIndex = 25
Text = "Text1"
Top = 5865
Width = 1095
End
Begin MSFlexGridLib.MSFlexGrid Grid_Labor
Height = 3015
Left = 5760
TabIndex = 23
Top = 2640
Width = 4695
_ExtentX = 8281
_ExtentY = 5318
_Version = 393216
Appearance = 0
End
Begin VB.CommandButton Cmd_Begin
Caption = "开始修理"
Height = 375
Left = 2520
TabIndex = 21
Top = 6480
Width = 1215
End
Begin VB.Frame Frame2
Height = 615
Left = 5760
TabIndex = 18
Top = 2040
Width = 4695
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid2
Height = 30
Left = 0
TabIndex = 22
Top = 600
Width = 4455
_ExtentX = 7858
_ExtentY = 53
_Version = 393216
End
Begin VB.CommandButton Cmd_Labor
Caption = "调整修改人工"
Height = 255
Left = 1800
TabIndex = 20
Top = 240
Width = 1695
End
Begin VB.Label Label5
Caption = "人工费"
Height = 255
Left = 120
TabIndex = 19
Top = 240
Width = 975
End
End
Begin VB.Frame Frame1
Height = 615
Left = 600
TabIndex = 15
Top = 2040
Width = 5055
Begin VB.CommandButton Cmd_AddPart
Caption = "调整修改"
Height = 255
Left = 1800
TabIndex = 16
Top = 240
Width = 1575
End
Begin VB.Label Label4
Caption = "材料费"
Height = 255
Left = 360
TabIndex = 17
Top = 240
Width = 1215
End
End
Begin MSFlexGridLib.MSFlexGrid Grid_Part
Height = 3015
Left = 600
TabIndex = 14
Top = 2640
Width = 5055
_ExtentX = 8916
_ExtentY = 5318
_Version = 393216
Appearance = 0
End
Begin VB.CommandButton Cmd_Exit
Caption = "退出"
Height = 375
Left = 8760
TabIndex = 13
ToolTipText = "查看是否为老客户"
Top = 6480
Width = 1215
End
Begin VB.CommandButton Cmd_Delete
Caption = "删除该项"
Height = 375
Left = 6600
TabIndex = 12
Top = 6480
Width = 1335
End
Begin VB.CommandButton Cmd_Finished
Caption = "出厂结算"
Height = 375
Left = 4440
TabIndex = 11
Top = 6480
Width = 1335
End
Begin VB.CommandButton CMd_PrintGujia
Caption = "打印估价单"
Height = 375
Left = 480
TabIndex = 10
Top = 6480
Width = 1455
End
Begin VB.TextBox txt_Custom
Appearance = 0 'Flat
BackColor = &H80000004&
Height = 270
Left = 1560
Locked = -1 'True
TabIndex = 7
Text = "Text2"
Top = 1680
Width = 1935
End
Begin VB.TextBox Txt_CarParameter
Appearance = 0 'Flat
BackColor = &H80000004&
Height = 270
Left = 1560
Locked = -1 'True
TabIndex = 5
Text = "Text1"
Top = 1200
Width = 8895
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 3
Top = 6945
Width = 10800
_ExtentX = 19050
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.CommandButton Cmd_CarSeacrh
Caption = "来车查询"
Height = 255
Left = 3840
TabIndex = 2
Top = 840
Width = 1215
End
Begin VB.ComboBox Comb_Car
Height = 300
Left = 1560
TabIndex = 1
Text = "粤A"
Top = 840
Width = 2175
End
Begin VB.Label Label8
Caption = "状态"
Height = 255
Left = 8400
TabIndex = 30
Top = 1680
Width = 615
End
Begin VB.Label Label7
Caption = "接车员:"
Height = 255
Left = 6240
TabIndex = 28
Top = 1680
Width = 855
End
Begin VB.Label labelTime
Caption = "送修时间"
Height = 255
Left = 3720
TabIndex = 26
Top = 1680
Width = 855
End
Begin VB.Label Label6
Caption = "元"
Height = 255
Left = 3000
TabIndex = 24
Top = 5880
Width = 495
End
Begin VB.Label Label16
Caption = "元 "
Height = 255
Left = 3120
TabIndex = 9
Top = 5040
Width = 615
End
Begin VB.Label Label15
Caption = "合计金额:"
Height = 255
Left = 600
TabIndex = 8
Top = 5880
Width = 855
End
Begin VB.Label Label3
Caption = "联系人"
Height = 255
Left = 600
TabIndex = 6
Top = 1800
Width = 735
End
Begin VB.Label Label2
Caption = "基本配置"
Height = 255
Left = 480
TabIndex = 4
Top = 1320
Width = 855
End
Begin VB.Label Label1
Caption = "车牌"
Height = 255
Left = 480
TabIndex = 0
Top = 840
Width = 615
End
End
Attribute VB_Name = "Frm_Repair"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mRsRepairing As Recordset
Dim mRsCarRecord As Recordset
Dim mQueryCar As QueryDef
Private Sub Cmd_CarRecord_Click()
frm_CarRecord.Show
End Sub
Private Sub Cmd_Begin_Click()
Dim mRs As Recordset
Set mRs = DBSGRG.OpenRecordset("Select 状态 from 待修表 where 车牌 = '" & _
Comb_Car.Text & "'", dbOpenDynaset) '将它借用于carRecord
If mRs.RecordCount = 0 Then
mRs.Close
MsgBox "您还没有为该车作入厂登记", vbCritical, STRGARAGE
Exit Sub
End If
With mRs
.Edit
.Fields("状态") = "维修"
.Update
End With
Comb_ZhuangTai.Text = "维修"
mRs.Close
End Sub
Private Sub Cmd_CarSeacrh_Click()
Dim pmCarNum As Parameter
Dim mRsCarRecord As Recordset
Dim objLoop As Object
STRCURRENTCARNUMBER = Comb_Car.Text
Set pmCarNum = DBSGRG.QueryDefs("用车牌查找车记录").Parameters![carnum]
pmCarNum = STRCURRENTCARNUMBER
Set mRsCarRecord = DBSGRG.QueryDefs("用车牌查找车记录").OpenRecordset
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?