📄 frmwx.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form frmWX
Caption = "维修单信息"
ClientHeight = 5445
ClientLeft = 45
ClientTop = 345
ClientWidth = 8160
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5445
ScaleWidth = 8160
WindowState = 2 'Maximized
Begin VB.TextBox txtJLDW
Height = 372
Left = 7680
TabIndex = 20
Top = 6000
Visible = 0 'False
Width = 252
End
Begin VB.TextBox txtWZMC
Height = 372
Left = 7200
TabIndex = 19
Top = 6000
Visible = 0 'False
Width = 252
End
Begin VB.TextBox txtWZDM
Height = 372
Left = 360
TabIndex = 18
Top = 6480
Visible = 0 'False
Width = 252
End
Begin VB.TextBox txt_YWDM
Height = 372
Left = 0
TabIndex = 17
Top = 6480
Visible = 0 'False
Width = 252
End
Begin VB.TextBox txtM_DATE
Height = 372
Left = 480
TabIndex = 16
Top = 6000
Visible = 0 'False
Width = 252
End
Begin VB.TextBox txtM_NO
Height = 372
Left = 0
TabIndex = 15
Top = 6000
Visible = 0 'False
Width = 252
End
Begin VB.Frame Frame1
Caption = "维修单基本信息："
Height = 1920
Index = 0
Left = 120
TabIndex = 2
Top = 0
Width = 7932
Begin VB.ComboBox Combo1
Height = 288
Index = 2
Left = 3360
Style = 2 'Dropdown List
TabIndex = 30
Top = 1080
Width = 1812
End
Begin VB.TextBox txtItem
Height = 270
Index = 6
Left = 6120
MaxLength = 20
TabIndex = 29
Top = 1080
Width = 1572
End
Begin VB.CommandButton cmdCANCEL
Caption = "取消维修单"
Height = 375
Left = 3720
TabIndex = 26
Top = 1440
Width = 1812
End
Begin VB.CommandButton cmdOK
Caption = "确定维修单"
Height = 375
Left = 1680
TabIndex = 25
Top = 1440
Width = 1692
End
Begin VB.TextBox txtItem
Height = 270
Index = 5
Left = 960
MaxLength = 20
TabIndex = 23
Top = 1080
Width = 1572
End
Begin VB.TextBox txtItem
Height = 270
Index = 4
Left = 6120
MaxLength = 20
TabIndex = 21
Top = 720
Width = 1572
End
Begin VB.ComboBox Combo1
Height = 288
Index = 1
Left = 6120
Style = 2 'Dropdown List
TabIndex = 14
Top = 360
Width = 1572
End
Begin VB.TextBox txtItem
Height = 270
Index = 3
Left = 3360
MaxLength = 20
TabIndex = 11
Top = 720
Width = 1812
End
Begin VB.TextBox txtItem
Height = 270
Index = 2
Left = 960
MaxLength = 20
TabIndex = 7
Top = 720
Width = 1572
End
Begin VB.TextBox txtItem
Height = 270
Index = 0
Left = 7920
MaxLength = 20
TabIndex = 5
Top = 1080
Visible = 0 'False
Width = 372
End
Begin VB.ComboBox Combo1
Height = 288
Index = 0
Left = 3360
Style = 2 'Dropdown List
TabIndex = 4
Top = 360
Width = 1812
End
Begin VB.TextBox txtItem
Height = 270
Index = 1
Left = 960
MaxLength = 20
TabIndex = 3
Top = 360
Width = 1572
End
Begin VB.Label Label2
Caption = "支付方式："
Height = 252
Index = 14
Left = 2640
TabIndex = 28
Top = 1080
Width = 1092
End
Begin VB.Label Label2
Caption = "预付比例："
Height = 252
Index = 13
Left = 5400
TabIndex = 27
Top = 1080
Width = 1092
End
Begin VB.Label Label2
Caption = "折扣比例："
Height = 252
Index = 7
Left = 240
TabIndex = 24
Top = 1080
Width = 1092
End
Begin VB.Label Label2
Caption = "汽车类型："
Height = 252
Index = 6
Left = 5400
TabIndex = 22
Top = 720
Width = 1092
End
Begin VB.Label Label2
Caption = "汽车型号："
Height = 252
Index = 1
Left = 240
TabIndex = 13
Top = 720
Width = 1092
End
Begin VB.Label Label2
Caption = "车主姓名："
Height = 252
Index = 4
Left = 2640
TabIndex = 12
Top = 720
Width = 1092
End
Begin VB.Label Label2
Caption = "业 务 员："
Height = 252
Index = 3
Left = 2640
TabIndex = 9
Top = 360
Width = 1092
End
Begin VB.Label Label2
Caption = "车牌号码："
Height = 252
Index = 2
Left = 5400
TabIndex = 8
Top = 360
Width = 1092
End
Begin VB.Label Label2
Caption = "日 期："
Height = 252
Index = 5
Left = 240
TabIndex = 6
Top = 360
Width = 1092
End
End
Begin VB.Frame Frame1
Caption = "配件信息"
Height = 3252
Index = 1
Left = 120
TabIndex = 0
Top = 2040
Width = 7932
Begin MSFlexGridLib.MSFlexGrid msgList
Height = 2892
Left = 120
TabIndex = 1
Top = 240
Width = 7692
_ExtentX = 13573
_ExtentY = 5106
_Version = 393216
Cols = 4
FixedCols = 2
AllowUserResizing= 1
End
End
Begin VB.Label lblTitle
Caption = "生 产 配 料 单 设 置 信 息 列 表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 252
Left = 480
TabIndex = 10
Top = 240
Visible = 0 'False
Width = 5532
End
End
Attribute VB_Name = "frmWX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public txtSQL As String
Dim mrc As adodb.Recordset
Dim MsgText As String
'用户的读写权限标识
Dim mintRW As Integer
'状态条中显示的时间信息
Public msBarText As String
Public reportSQL As String
Public Sub RecordFind()
'
End Sub
Public Sub RecordRefresh()
'显示数据
msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")
ShowData
End Sub
Public Sub RecordAdd()
If gintPLLISTmode = 1 Then
If Trim(txtItem(0)) <> "" And Trim(Combo1(1)) <> "" And Trim(Combo1(0)) <> "" Then
txtSQL = "select * from outh where outh_no ='" & Trim(txtItem(0)) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
MsgBox "已经存在相同编号的维修单记录！", vbOKOnly + vbExclamation, "警告"
txtItem(0).SetFocus
mrc.Close
Exit Sub
End If
frmWX1.txtM_NO = Trim(txtItem(0))
frmWX1.txtM_DATE = Trim(txtItem(1))
frmWX1.txtKHDM = Trim(Combo1(1))
frmWX1.txtLB = Trim(txtItem(4))
frmWX1.txtREB = Trim(txtItem(5))
frmWX1.txtYWDM = Trim(Combo1(0).ItemData(Combo1(0).ListIndex))
gintPLmode = 1
frmWX1.Show 1
Else
MsgBox "请设置配料单的所有选项!", vbOKOnly, "警告"
Exit Sub
End If
ElseIf gintPLLISTmode = 2 Then
frmWX1.txtM_NO = Trim(txtItem(0))
frmWX1.txtM_DATE = Trim(txtItem(1))
frmWX1.txtKHDM = Trim(Combo1(1))
frmWX1.txtLB = Trim(txtItem(4))
frmWX1.txtREB = Trim(txtItem(5))
frmWX1.txtYWDM = Trim(Combo1(0).ItemData(Combo1(0).ListIndex))
gintPLmode = 1
frmWX1.Show 1
End If
End Sub
'删除记录
Public Sub RecordDelete()
Dim txtSQL As String
Dim intCount As Integer
Dim mrc As adodb.Recordset
Dim MsgText As String
If Trim(msgList.TextMatrix(1, 1)) <> "" Then
If MsgBox("真的要删除编号为" & Trim(msgList.TextMatrix(msgList.Row, 2)) & "的配件记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
intCount = msgList.Row
txtSQL = "delete outh from outh inner join dm_ck on outh.ckdm = dm_ck.dm where outh.outh_no ='" & Trim(msgList.TextMatrix(intCount, 1)) & "' and outh.wzdm = '" & Trim(msgList.TextMatrix(intCount, 2)) & "' and dm_ck.mc = '" & Trim(msgList.TextMatrix(intCount, 4)) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
frmWX.txtSQL = "select outh.outh_no,dm_wz.dm,dm_wz.mc,dm_ck.mc,outh.qihao,outh.sl,outh.out_danj,outh.o_zk,outh.o_zke from outh inner join dm_wz on outh.wzdm = dm_wz.dm inner join dm_ck on outh.ckdm = dm_ck.dm where outh_no = '" & frmWX1.txtM_NO & "'"
ShowData
End If
End If
End Sub
Public Sub RecordEdit()
Dim intCount As Integer
If msgList.Rows > 1 Then
gintPLmode = 2
intCount = msgList.Row
If intCount > 0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -