📄 workdlg.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form WorkDlg
BorderStyle = 3 'Fixed Dialog
Caption = "维修项目"
ClientHeight = 6315
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 9375
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6315
ScaleWidth = 9375
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 270
Left = 6240
TabIndex = 4
Text = "合计:"
Top = 5880
Width = 975
End
Begin VB.TextBox TextSum
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 270
Left = 7320
TabIndex = 3
Top = 5880
Width = 1575
End
Begin Project1.RepairGrid RepairGrid1
Height = 3015
Left = 360
TabIndex = 2
Top = 2760
Width = 8535
_ExtentX = 15055
_ExtentY = 5741
End
Begin MSComctlLib.ImageList Image
Left = 1320
Top = 5280
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin MSComctlLib.Toolbar Toolbar
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 0
Top = 0
Width = 9375
_ExtentX = 16536
_ExtentY = 1111
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Appearance = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 17
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增加"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "放弃"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
ImageIndex = 7
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增行"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删行"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "材料"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "完工"
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
EndProperty
EndProperty
BorderStyle = 1
End
Begin Project1.WorkHead WorkHead
Height = 5505
Left = 120
TabIndex = 1
Top = 720
Width = 9150
_ExtentX = 16140
_ExtentY = 9710
End
Begin MSComDlg.CommonDialog PrintDlg
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Attribute VB_Name = "WorkDlg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private WithEvents m_PrintDlg As PrintViewWin
Attribute m_PrintDlg.VB_VarHelpID = -1
Private m_DoMode As PopupMode
Private m_FindCode As String
Private p_CarProject As CarProject
Private m_ReWorkSub_1 As ADODB.Recordset
Private m_ReWorkSub_2 As ADODB.Recordset
Public Event ChangeSum(ByVal Id As Long, ByVal sum As Double)
Event Update()
Private Sub Form_Activate()
'Toolbar.Buttons.Item(4).Enabled = False
'Toolbar.Buttons.Item(5).Enabled = False
'Toolbar.Buttons.Item(6).Enabled = False
Select Case m_DoMode
Case PM_ADD
Toolbar.Buttons.Item(10).Enabled = False
Toolbar.Buttons.Item(11).Enabled = False
Toolbar.Buttons.Item(13).Enabled = False
Toolbar.Buttons.Item(15).Enabled = False
Case PM_EDIT
Toolbar.Buttons.Item(8).Enabled = False
Toolbar.Buttons.Item(7).Enabled = False
' Toolbar.Buttons.Item(10).Enabled = True
' Toolbar.Buttons.Item(11).Enabled = True
' Toolbar.Buttons.Item(13).Enabled = True
Case PM_VIWE
'WorkHead.Enabled = False
RepairGrid1.Enabled = False
Toolbar.Buttons.Item(4).Enabled = False
Toolbar.Buttons.Item(5).Enabled = False
Toolbar.Buttons.Item(6).Enabled = False
Toolbar.Buttons.Item(7).Enabled = False
Toolbar.Buttons.Item(8).Enabled = False
Toolbar.Buttons.Item(10).Enabled = False
Toolbar.Buttons.Item(11).Enabled = False
End Select
End Sub
Private Sub Form_Load()
If m_DoMode = PM_EDIT Or m_DoMode = PM_VIWE Then
If WorkHead.FindData(m_FindCode, g_Conn) Then
TextSum.Text = FormatNumber(WorkHead.RepairSum)
WorkHead.Enabled = False
WorkHead.ShowData
RepairGrid1.LoadRepairItem g_Conn, WorkHead.GetWorkId()
Else
MsgBox "该维修单已不存在,请联系软件代理商", vbCritical Or vbOKOnly, "错误"
Unload Me
End If
Else
RepairGrid1.Enabled = False
WorkHead.ClearData
WorkHead.ShowData
End If
RepairGrid1.ShowData
End Sub
Public Function DoModal(DoMode As PopupMode, Optional ByRef FindCode As String) As ReturnCode
If DoMode = PM_EDIT Or DoMode = PM_VIWE Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -