📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmMain
BackColor = &H80000001&
Caption = "车辆收费管理系统"
ClientHeight = 7800
ClientLeft = 165
ClientTop = 735
ClientWidth = 9960
LinkTopic = "Form1"
ScaleHeight = 7800
ScaleWidth = 9960
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 33
Top = 7485
Width = 9960
_ExtentX = 17568
_ExtentY = 556
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 1
Object.Width = 7832
MinWidth = 7832
Picture = "FrmMain.frx":0000
TextSave = "2007-06-23"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 6068
MinWidth = 6068
Picture = "FrmMain.frx":0415
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 360
Left = 0
TabIndex = 32
Top = 0
Width = 9960
_ExtentX = 17568
_ExtentY = 635
ButtonWidth = 1349
ButtonHeight = 582
Appearance = 1
Style = 1
TextAlignment = 1
ImageList = "toolbarImg16"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 11
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "进入"
Key = "TB_IN"
ImageKey = "in"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "离开"
Key = "TB_OUT"
ImageKey = "out"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找"
Key = "TB_SEARCH"
ImageKey = "search"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "用户"
Key = "TB_USER"
ImageKey = "user"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "操作"
Key = "TB_OP_SEARCH"
ImageKey = "history"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "TB_ABOUT"
ImageKey = "help"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "TB_EXIT"
ImageKey = "exit"
EndProperty
EndProperty
End
Begin VB.PictureBox picBody
BackColor = &H80000005&
Height = 6660
Left = 0
ScaleHeight = 6600
ScaleWidth = 9915
TabIndex = 26
Top = 750
Width = 9975
Begin ParkingCharge.ucAbout ucAbout1
Height = 2595
Left = 6150
TabIndex = 34
Top = 3570
Width = 3120
_ExtentX = 5503
_ExtentY = 4577
End
Begin ParkingCharge.ucSearchResult ucSearchResult1
Height = 2775
Left = 225
TabIndex = 31
Top = 3510
Width = 2700
_ExtentX = 4763
_ExtentY = 4895
End
Begin ParkingCharge.ucSearch ucSearch1
Height = 2895
Left = 1380
TabIndex = 30
Top = 3465
Width = 4185
_ExtentX = 7382
_ExtentY = 5106
End
Begin ParkingCharge.ucExit ucExit1
Height = 2895
Left = 4155
TabIndex = 29
Top = 180
Width = 4575
_ExtentX = 8070
_ExtentY = 5106
End
Begin ParkingCharge.ucEnter ucEnter1
Height = 2655
Left = 270
TabIndex = 28
Top = 165
Width = 3495
_ExtentX = 6165
_ExtentY = 4683
End
End
Begin VB.Frame FrameRecord
BackColor = &H80000005&
Caption = "访客登记"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4215
Left = 3480
TabIndex = 0
Top = 1920
Width = 5895
Begin VB.OptionButton Option2
BackColor = &H80000005&
Caption = "女"
Height = 375
Left = 2400
TabIndex = 21
Top = 960
Width = 975
End
Begin VB.OptionButton Option1
BackColor = &H80000005&
Caption = "男"
Height = 375
Left = 1560
TabIndex = 20
Top = 960
Value = -1 'True
Width = 975
End
Begin VB.CommandButton CmdRecord
Caption = "确定"
Height = 375
Left = 4560
TabIndex = 8
Top = 3600
Width = 1095
End
Begin VB.TextBox TextRemark
Height = 735
Left = 1560
MultiLine = -1 'True
TabIndex = 7
Top = 2640
Width = 4215
End
Begin VB.TextBox TextReason
Height = 975
Left = 1560
MultiLine = -1 'True
TabIndex = 6
Top = 1440
Width = 4215
End
Begin VB.TextBox TextName
Height = 375
Left = 1560
TabIndex = 2
Top = 480
Width = 2055
End
Begin VB.Label Label5
BackColor = &H80000005&
Caption = "备注： （可选）"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 360
TabIndex = 5
Top = 2640
Width = 1095
End
Begin VB.Label Label4
BackColor = &H80000005&
Caption = "来访原因："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 4
Top = 1440
Width = 1335
End
Begin VB.Label Label2
BackColor = &H80000005&
Caption = "性别："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 3
Top = 960
Width = 855
End
Begin VB.Label Label1
BackColor = &H80000005&
Caption = "姓名："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 1
Top = 480
Width = 855
End
End
Begin VB.Frame FrameQuery
Caption = "访客查询"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4215
Left = 1800
TabIndex = 9
Top = 1320
Visible = 0 'False
Width = 5895
Begin VB.TextBox TxtQueryRecID
Height = 375
Left = 2280
TabIndex = 24
Top = 3360
Width = 2055
End
Begin VB.OptionButton OptionQuery
Caption = "按记录员查询："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Index = 4
Left = 240
TabIndex = 23
Top = 3360
Width = 2175
End
Begin VB.ComboBox CmbQuerySex
Height = 300
ItemData = "FrmMain.frx":082B
Left = 2280
List = "FrmMain.frx":0835
Style = 2 'Dropdown List
TabIndex = 22
Top = 1040
Width = 1335
End
Begin VB.OptionButton OptionQuery
Caption = "按来访原因查询："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Index = 3
Left = 240
TabIndex = 17
Top = 2040
Width = 2895
End
Begin VB.OptionButton OptionQuery
Caption = "按时间查询："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Index = 2
Left = 240
TabIndex = 16
Top = 1560
Width = 1935
End
Begin VB.OptionButton OptionQuery
Caption = "按性别查询："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Index = 1
Left = 240
TabIndex = 15
Top = 1000
Width = 1935
End
Begin VB.OptionButton OptionQuery
Caption = "按姓名查询："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -