📄 main.frm
字号:
Tab(0).ControlCount= 2
TabCaption(1) = "车辆管理"
TabPicture(1) = "main.frx":29C8A
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Command7"
Tab(1).Control(1)= "Command6"
Tab(1).Control(2)= "Command5"
Tab(1).Control(3)= "danweiGrid"
Tab(1).Control(4)= "kDanwei"
Tab(1).Control(5)= "kZizhong"
Tab(1).Control(6)= "kChepai"
Tab(1).Control(7)= "chepaiGrid"
Tab(1).Control(8)= "Label46"
Tab(1).Control(9)= "Label45"
Tab(1).Control(10)= "Label44"
Tab(1).Control(11)= "Label43"
Tab(1).ControlCount= 12
TabCaption(2) = "货物管理"
TabPicture(2) = "main.frx":29CA6
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Command9"
Tab(2).Control(1)= "Command8"
Tab(2).Control(2)= "kshangpin"
Tab(2).Control(3)= "shangpinGrid"
Tab(2).Control(4)= "Label47"
Tab(2).ControlCount= 5
Begin VB.CommandButton Command9
Caption = "删除"
Height = 375
Left = -69840
TabIndex = 126
Top = 6360
Width = 735
End
Begin VB.CommandButton Command8
Caption = "添加"
Height = 375
Left = -70920
TabIndex = 125
Top = 6360
Width = 735
End
Begin VB.TextBox kshangpin
BackColor = &H00FFC0C0&
Height = 375
Left = -73680
TabIndex = 124
Top = 6360
Width = 2535
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid shangpinGrid
Height = 5535
Left = -74880
TabIndex = 122
Top = 480
Width = 5895
_ExtentX = 10398
_ExtentY = 9763
_Version = 393216
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.CommandButton Command7
Caption = "删除"
Height = 375
Left = -70920
TabIndex = 120
Top = 4320
Width = 975
End
Begin VB.CommandButton Command6
Caption = "修改"
Height = 375
Left = -72360
TabIndex = 119
Top = 4320
Width = 975
End
Begin VB.CommandButton Command5
Caption = "添加"
Height = 375
Left = -73800
TabIndex = 118
Top = 4320
Width = 975
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid danweiGrid
Height = 2055
Left = -74760
TabIndex = 117
Top = 4800
Width = 5895
_ExtentX = 10398
_ExtentY = 3625
_Version = 393216
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.TextBox kDanwei
BackColor = &H00FFC0C0&
Height = 285
Left = -73680
MaxLength = 50
TabIndex = 116
Top = 3960
Width = 3975
End
Begin VB.TextBox kZizhong
Alignment = 2 'Center
BackColor = &H00FFC0C0&
Height = 285
Left = -70920
MaxLength = 10
TabIndex = 114
Top = 3480
Width = 1215
End
Begin VB.TextBox kChepai
BackColor = &H00FFC0C0&
Height = 285
Left = -73680
MaxLength = 20
TabIndex = 112
Top = 3480
Width = 1575
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid chepaiGrid
Height = 2655
Left = -74760
TabIndex = 110
Top = 600
Width = 5895
_ExtentX = 10398
_ExtentY = 4683
_Version = 393216
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.Frame Frame13
Caption = "收货单位"
Height = 3255
Left = 120
TabIndex = 101
Top = 3720
Width = 6135
Begin VB.CommandButton Command4
Caption = "删除"
Height = 375
Left = 4680
TabIndex = 109
Top = 2520
Width = 1095
End
Begin VB.CommandButton Command3
Caption = "添加"
Height = 375
Left = 3480
TabIndex = 108
Top = 2520
Width = 975
End
Begin VB.TextBox ttShouHuo
BackColor = &H00FFC0C0&
Height = 375
Left = 240
MaxLength = 20
TabIndex = 105
Top = 2520
Width = 3015
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid shouHuoGrid
Height = 1935
Left = 120
TabIndex = 103
Top = 360
Width = 5775
_ExtentX = 10186
_ExtentY = 3413
_Version = 393216
FillStyle = 1
SelectionMode = 1
AllowUserResizing= 3
RowSizingMode = 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
End
Begin VB.Frame Frame12
Caption = "发货单位"
Height = 3135
Left = 120
TabIndex = 100
Top = 480
Width = 6135
Begin VB.CommandButton Command2
Caption = "删除"
Height = 375
Left = 4680
TabIndex = 107
Top = 2520
Width = 975
End
Begin VB.CommandButton Command1
Caption = "添加"
Height = 375
Left = 3480
TabIndex = 106
Top = 2520
Width = 975
End
Begin VB.TextBox ttFahuo
BackColor = &H00FFC0C0&
Height = 375
Left = 240
MaxLength = 20
TabIndex = 104
Top = 2520
Width = 3015
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid faHuoGrid
Height = 1935
Left = 120
TabIndex = 102
Top = 360
Width = 5775
_ExtentX = 10186
_ExtentY = 3413
_Version = 393216
FillStyle = 1
SelectionMode = 1
AllowUserResizing= 3
RowSizingMode = 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
End
Begin VB.Label Label47
Caption = "货物名称："
Height = 255
Left = -74760
TabIndex = 123
Top = 6360
Width = 1095
End
Begin VB.Label Label46
Caption = "KG"
Height = 255
Left = -69600
TabIndex = 121
Top = 3480
Width = 495
End
Begin VB.Label Label45
Caption = "所属单位："
Height = 255
Left = -74760
TabIndex = 115
Top = 3960
Width = 1095
End
Begin VB.Label Label44
Caption = "自重："
Height = 255
Left = -71640
TabIndex = 113
Top = 3480
Width = 735
End
Begin VB.Label Label43
Caption = "车牌号码："
Height = 255
Left = -74760
TabIndex = 111
Top = 3480
Width = 975
End
End
Begin VB.Frame Frame6
Caption = "查询结果"
Height = 5295
Left = -74880
TabIndex = 14
Top = 2280
Width = 11775
Begin VB.CommandButton commDaochu
Caption = "导出至EXCEL"
Height = 495
Left = 9960
TabIndex = 75
Top = 4680
Width = 1455
End
Begin VB.CommandButton commQingkong
Caption = "清空数据库"
Enabled = 0 'False
Height = 495
Left = 8280
TabIndex = 74
Top = 4680
Width = 1455
End
Begin VB.CommandButton commShanchu
Caption = "删除记录"
Enabled = 0 'False
Height = 495
Left = 6600
TabIndex = 73
Top = 4680
Width = 1455
End
Begin VB.TextBox Text2
Height = 285
Left = 4440
TabIndex = 70
Text = "0"
Top = 4785
Width = 1335
End
Begin VB.TextBox Text1
Height = 285
Left = 1560
TabIndex = 69
Text = "0"
Top = 4785
Width = 1335
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid Grid2
Height = 4215
Left = 240
TabIndex = 58
Top = 360
Width = 11295
_ExtentX = 19923
_ExtentY = 7435
_Version = 393216
SelectionMode = 1
AllowUserResizing= 3
RowSizingMode = 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.Label Label32
Caption = "收费总额："
Height = 255
Left = 3480
TabIndex = 72
Top = 4800
Width = 975
End
Begin VB.Label Label31
Caption = "交易总额："
Height = 255
Left = 600
TabIndex = 71
Top = 4800
Width = 1095
End
End
Begin VB.Frame Frame5
Caption = "查询条件"
Height = 1815
Left = -74880
TabIndex = 13
Top = 360
Width = 11535
Begin VB.TextBox ttSid
Alignment = 2 'Center
BackColor = &H00008000&
ForeColor = &H0000FFFF&
Height = 285
Left = 7080
TabIndex = 68
Top = 1080
Width = 2415
End
Begin VB.ComboBox cooSby
Height = 315
Left = 7080
TabIndex = 66
Top = 480
Width = 2415
End
Begin VB.CommandButton commDy
Caption = "打印(&P)"
Enabled = 0 'False
Height = 495
Left = 10080
TabIndex = 64
Top = 1080
Width = 975
End
Begin VB.CommandButton commCha
Caption = "查询(&F)"
Height = 495
Left = 10080
TabIndex = 63
Top = 360
Width = 975
End
Begin VB.ComboBox cooShangpin
BackColor = &H00008000&
ForeColor = &H0000FFFF&
Height = 315
Left = 4080
TabIndex = 62
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -