📄 mainform.~dfm
字号:
object frmMain: TfrmMain
Left = 156
Top = 130
Width = 512
Height = 391
BorderIcons = [biSystemMenu]
Caption = '收费管理系统'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 0
Width = 504
Height = 345
Align = alClient
Caption = 'Panel2'
TabOrder = 0
object Panel11: TPanel
Left = 1
Top = 1
Width = 502
Height = 32
Align = alTop
TabOrder = 0
object lblConnection: TLabel
Left = 168
Top = 7
Width = 97
Height = 20
AutoSize = False
Caption = '网络连接状态'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblEmployeeName: TLabel
Left = 280
Top = 7
Width = 73
Height = 20
AutoSize = False
Caption = '收费人员'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblLoginTime: TLabel
Left = 376
Top = 7
Width = 113
Height = 20
AutoSize = False
Caption = '登录时间'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object Panel14: TPanel
Left = 1
Top = 33
Width = 502
Height = 312
Align = alTop
Caption = 'Panel14'
TabOrder = 1
object Panel15: TPanel
Left = 241
Top = 1
Width = 260
Height = 310
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label7: TLabel
Left = 16
Top = 61
Width = 48
Height = 16
Caption = '停车费:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 16
Top = 107
Width = 36
Height = 16
Caption = '付款:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 16
Top = 152
Width = 36
Height = 16
Caption = '找零:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 79
Top = 52
Width = 13
Height = 29
Caption = '$'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 80
Top = 97
Width = 13
Height = 29
Caption = '$'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 80
Top = 144
Width = 13
Height = 29
Caption = '$'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object edtOughtPay: TEdit
Left = 104
Top = 54
Width = 121
Height = 24
Color = clMenu
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object edtPayed: TEdit
Left = 104
Top = 103
Width = 121
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnKeyPress = edtPayedKeyPress
end
object edtChange: TEdit
Left = 105
Top = 150
Width = 121
Height = 24
Color = clMenu
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object pnlReadCard: TPanel
Left = 1
Top = 1
Width = 258
Height = 40
Align = alTop
Caption = '欢迎光临...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clOlive
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
object lblCard: TLabel
Left = 8
Top = 13
Width = 57
Height = 19
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
end
object Panel3: TPanel
Left = 1
Top = 192
Width = 258
Height = 117
Align = alBottom
Caption = 'Panel3'
TabOrder = 4
object lvError: TListView
Left = 1
Top = 1
Width = 256
Height = 115
Align = alClient
Color = clBackground
Columns = <
item
Width = 300
end>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
GridLines = True
ParentFont = False
SmallImages = iglMessage
TabOrder = 0
ViewStyle = vsReport
end
object msmDisplay: TMSComm
Left = 160
Top = 61
Width = 32
Height = 32
ControlData = {
2143341208000000ED030000ED03000001568A64000006000000010000040000
00020000802500000000080000000000000000003F00000001000000}
end
end
end
object Panel1: TPanel
Left = 1
Top = 1
Width = 240
Height = 310
Align = alLeft
Caption = 'Panel1'
TabOrder = 1
object Panel5: TPanel
Left = 1
Top = 1
Width = 238
Height = 56
Align = alTop
Caption = 'Panel5'
TabOrder = 0
object ToolBar1: TToolBar
Left = 1
Top = 1
Width = 236
Height = 56
ButtonHeight = 21
ButtonWidth = 67
Caption = 'ToolBar1'
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 2
Caption = '注销'
ImageIndex = 2
MenuItem = mmiLoginOut
end
object tbnFloodOff: TToolButton
Left = 67
Top = 2
AutoSize = True
Caption = '关照明系统'
ImageIndex = 0
OnClick = tbnFloodOffClick
end
object ToolButton2: TToolButton
Left = 138
Top = 2
Caption = '挡车器...'
ImageIndex = 0
MenuItem = mmiBlocker
Wrap = True
end
object tbnLockTicket: TToolButton
Left = 0
Top = 23
Caption = '票丢手续'
ImageIndex = 0
MenuItem = mmiLoseTicket
end
object tbnFloodOn: TToolButton
Left = 67
Top = 23
Caption = '开照明系统'
ImageIndex = 0
OnClick = tbnFloodOnClick
end
object ToolButton3: TToolButton
Left = 134
Top = 23
Caption = '查看数据库'
ImageIndex = 1
Visible = False
end
end
end
object Panel6: TPanel
Left = 1
Top = 57
Width = 238
Height = 252
Align = alClient
Caption = 'Panel6'
TabOrder = 1
object Panel4: TPanel
Left = 1
Top = 1
Width = 236
Height = 250
Align = alClient
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 123
Width = 60
Height = 13
Caption = '上班金额:'
end
object Label2: TLabel
Left = 16
Top = 148
Width = 60
Height = 13
Caption = '收到金额:'
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -