📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmMain
BackColor = &H00FFC0FF&
Caption = "企业事务管理系统"
ClientHeight = 7845
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 7845
ScaleWidth = 11880
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox PicVehicle
BackColor = &H00C0C0FF&
Height = 7000
Left = 2880
ScaleHeight = 6945
ScaleWidth = 7245
TabIndex = 45
Top = 0
Visible = 0 'False
Width = 7300
Begin VB.CommandButton cmdVehicleDel
Height = 615
Left = 3870
Picture = "frmMain.frx":038A
Style = 1 'Graphical
TabIndex = 49
Top = 6120
Width = 1215
End
Begin VB.CommandButton cmdVehicleAdd
Height = 615
Left = 600
Picture = "frmMain.frx":0A1B
Style = 1 'Graphical
TabIndex = 48
Top = 6120
Width = 1215
End
Begin VB.CommandButton cmdVehicleExit
Height = 615
Left = 5520
Picture = "frmMain.frx":1056
Style = 1 'Graphical
TabIndex = 47
Top = 6120
Width = 1215
End
Begin VB.CommandButton cmdVehicleChange
Height = 615
Left = 2220
Picture = "frmMain.frx":1737
Style = 1 'Graphical
TabIndex = 46
Top = 6120
Width = 1215
End
Begin TabDlg.SSTab SSTab1
Height = 5295
Left = 300
TabIndex = 51
TabStop = 0 'False
Top = 600
Width = 6645
_ExtentX = 11721
_ExtentY = 9340
_Version = 393216
TabHeight = 520
BackColor = 12632319
ForeColor = 128
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "购车记录"
TabPicture(0) = "frmMain.frx":1EAD
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label6"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label7"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label9"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label10"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label11"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label12"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label13"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label14"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label15"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "MSFBuyCar"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "txtBuyCarID"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "txtType"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "txtBuyPrice"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "txtBelong"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "txtLicense"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "txtOutAir"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "txtEngineNo"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "txtDriver"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "DTPBuyDate"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "cmdBuyCarClear"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).ControlCount= 20
TabCaption(1) = "出车登记"
TabPicture(1) = "frmMain.frx":1EC9
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label16"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label17"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label18"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label19"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label20"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label23"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Label24"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "DTPOutStartTime"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "DTPOutEndTime"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "DTPOutStartDate"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "MSFOutCar"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "DTPOutEndDate"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "cmdOutClear"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "txtOutDep"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "txtOutDistance"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).Control(15)= "txtOutReason"
Tab(1).Control(15).Enabled= 0 'False
Tab(1).Control(16)= "txtOutNote"
Tab(1).Control(16).Enabled= 0 'False
Tab(1).Control(17)= "TxtOutPlace"
Tab(1).Control(17).Enabled= 0 'False
Tab(1).ControlCount= 18
TabCaption(2) = "维修记录"
TabPicture(2) = "frmMain.frx":1EE5
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label21"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Label25"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Label26"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Label27"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Label29"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Label31"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).Control(6)= "Label22"
Tab(2).Control(6).Enabled= 0 'False
Tab(2).Control(7)= "Label28"
Tab(2).Control(7).Enabled= 0 'False
Tab(2).Control(8)= "MSFFixCar"
Tab(2).Control(8).Enabled= 0 'False
Tab(2).Control(9)= "DTPFixDate"
Tab(2).Control(9).Enabled= 0 'False
Tab(2).Control(10)= "cmdFixClear"
Tab(2).Control(10).Enabled= 0 'False
Tab(2).Control(11)= "txtFixMan"
Tab(2).Control(11).Enabled= 0 'False
Tab(2).Control(12)= "txtFixLicense"
Tab(2).Control(12).Enabled= 0 'False
Tab(2).Control(13)= "txtFixNote"
Tab(2).Control(13).Enabled= 0 'False
Tab(2).Control(14)= "txtFixMoney"
Tab(2).Control(14).Enabled= 0 'False
Tab(2).Control(15)= "txtFixName"
Tab(2).Control(15).Enabled= 0 'False
Tab(2).Control(16)= "txtFixContent"
Tab(2).Control(16).Enabled= 0 'False
Tab(2).Control(17)= "Combo_FixDeep"
Tab(2).Control(17).Enabled= 0 'False
Tab(2).ControlCount= 18
Begin VB.ComboBox Combo_FixDeep
Height = 300
ItemData = "frmMain.frx":1F01
Left = -69780
List = "frmMain.frx":1F1A
Style = 2 'Dropdown List
TabIndex = 107
Top = 3240
Width = 1155
End
Begin VB.TextBox txtFixContent
Appearance = 0 'Flat
Height = 330
Left = -73980
TabIndex = 104
Top = 3985
Width = 5355
End
Begin VB.TextBox txtFixName
Appearance = 0 'Flat
Height = 330
Left = -73980
TabIndex = 96
Top = 3605
Width = 1395
End
Begin VB.TextBox txtFixMoney
Appearance = 0 'Flat
Height = 330
Left = -71940
TabIndex = 95
Top = 3605
Width = 1275
End
Begin VB.TextBox txtFixNote
Appearance = 0 'Flat
Height = 660
Left = -73980
TabIndex = 94
Top = 4365
Width = 4275
End
Begin VB.TextBox txtFixLicense
Appearance = 0 'Flat
Height = 330
Left = -73980
TabIndex = 93
Top = 3225
Width = 1395
End
Begin VB.TextBox txtFixMan
Appearance = 0 'Flat
Height = 330
Left = -69780
TabIndex = 92
Top = 3605
Width = 1155
End
Begin VB.CommandButton cmdFixClear
Caption = "清除"
Height = 450
Left = -69360
TabIndex = 90
Top = 4665
Width = 855
End
Begin VB.TextBox TxtOutPlace
Appearance = 0 'Flat
Height = 330
Left = -70320
TabIndex = 78
Top = 3645
Width = 1635
End
Begin VB.TextBox txtOutNote
Appearance = 0 'Flat
Height = 630
Left = -74160
TabIndex = 77
Top = 4425
Width = 4395
End
Begin VB.TextBox txtOutReason
Appearance = 0 'Flat
Height = 330
Left = -74160
TabIndex = 76
Top = 4005
Width = 3735
End
Begin VB.TextBox txtOutDistance
Appearance = 0 'Flat
Height = 330
Left = -69840
TabIndex = 75
Top = 4005
Width = 1155
End
Begin VB.TextBox txtOutDep
Appearance = 0 'Flat
Height = 330
Left = -70320
TabIndex = 74
Top = 3285
Width = 1635
End
Begin VB.CommandButton cmdOutClear
Caption = "清除"
Height = 450
Left = -69360
TabIndex = 72
Top = 4665
Width = 855
End
Begin VB.CommandButton cmdBuyCarClear
Caption = "清除"
Height = 330
Left = 5640
TabIndex = 71
Top = 4800
Width = 855
End
Begin MSComCtl2.DTPicker DTPBuyDate
Height = 330
Left = 1800
TabIndex = 61
Top = 3960
Width = 1455
_ExtentX = 2566
_ExtentY = 582
_Version = 393216
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -