📄 main.~dfm
字号:
object frmMain: TfrmMain
Left = 254
Top = 108
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
ClientHeight = 474
ClientWidth = 549
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
ShowHint = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 12
Top = 5
Width = 540
Height = 420
ActivePage = tsConsumption
MultiLine = True
RaggedRight = True
TabOrder = 0
OnChange = PageControl1Change
OnChanging = PageControl1Changing
object tsBaseOP: TTabSheet
Caption = #22522#26412#25805#20316
object btnOpen: TSpeedButton
Left = 509
Top = 25
Width = 16
Height = 25
Hint = #25171#24320#25509#25910#30340#25968#25454#25991#20214
Caption = '...'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
OnClick = btnOpenClick
end
object Label10: TLabel
Left = 8
Top = 8
Width = 54
Height = 12
Caption = #21345#21495#26684#24335':'
end
object Label4: TLabel
Left = 376
Top = 8
Width = 6
Height = 12
end
object btnRead: TButton
Left = 406
Top = 25
Width = 103
Height = 25
Caption = #35835#25968#25454'(&D)'
TabOrder = 1
OnClick = btnReadClick
end
object btnGetTime: TButton
Left = 406
Top = 58
Width = 120
Height = 25
Caption = #21462#22238#26102#38388'(&T)'
TabOrder = 2
OnClick = btnGetTimeClick
end
object btnSetTime: TButton
Left = 406
Top = 92
Width = 120
Height = 25
Caption = #35774#32622#26102#38388'(&S)'
TabOrder = 3
OnClick = btnSetTimeClick
end
object btnSetAdmin: TButton
Left = 406
Top = 125
Width = 120
Height = 25
Caption = #35774#32622#31649#29702#21345'(&M)'
TabOrder = 4
OnClick = btnSetAdminClick
end
object btnSetPWD: TButton
Left = 406
Top = 260
Width = 120
Height = 25
Caption = #35774#22791#23494#30721'(&P)'
TabOrder = 8
OnClick = btnSetPWDClick
end
object btnSetClockID: TButton
Left = 406
Top = 159
Width = 120
Height = 25
Caption = #26426#22120#32534#21495'(&I)'
TabOrder = 5
OnClick = btnSetClockIDClick
end
object btnSetMark: TButton
Left = 406
Top = 193
Width = 120
Height = 25
Caption = #26426#22120#26631#35782'(&M)'
TabOrder = 6
OnClick = btnSetMarkClick
end
object btnClockMode: TButton
Left = 406
Top = 361
Width = 120
Height = 25
Caption = #26426#22120#35774#32622'(&R)'
TabOrder = 11
OnClick = btnClockModeClick
end
object clbDevs: TCheckListBox
Left = 0
Top = 28
Width = 401
Height = 363
Columns = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ItemHeight = 19
ParentFont = False
PopupMenu = pmClocks
Sorted = True
TabOrder = 0
OnEnter = clbDevsEnter
end
object btnClearData: TButton
Left = 406
Top = 327
Width = 120
Height = 25
Caption = #28165#38500#25968#25454'(&C)'
TabOrder = 10
OnClick = btnClearDataClick
end
object btnMoneySum: TButton
Left = 406
Top = 293
Width = 120
Height = 25
Caption = #28040#36153#24635#37329#39069'(&U)'
TabOrder = 9
OnClick = btnMoneySumClick
end
object cbCardStyle: TComboBox
Left = 96
Top = 4
Width = 170
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 12
Text = #33258#21160#36716#25442
OnChange = cbCardStyleChange
Items.Strings = (
#33258#21160#36716#25442
#19981#36716#25442#26684#24335
#36716#25442#20026#26032'IC'#21345#26684#24335
#36716#25442#20026#26087'IC'#21345#26684#24335
#36716#25442#20026'ID'#21345#26684#24335)
end
object cbCmdVerifyFirst: TCheckBox
Left = 274
Top = 5
Width = 79
Height = 17
Caption = #21629#20196#26657#39564
TabOrder = 13
end
object btnRealCollect: TButton
Left = 406
Top = 226
Width = 120
Height = 25
Caption = #23454#26102#37319#38598'(&R)'
TabOrder = 7
OnClick = btnRealCollectClick
end
end
object tsLists: TTabSheet
Caption = #21517#21333#31649#29702
ImageIndex = 1
object plLists: TPanel
Left = 0
Top = 0
Width = 532
Height = 393
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 6
Top = 19
Width = 48
Height = 12
Caption = #21517#21333#31867#22411
end
object lbDeviceList: TLabel
Left = 489
Top = 20
Width = 30
Height = 12
Alignment = taRightJustify
Caption = '0 / 0'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 180
Top = 19
Width = 48
Height = 12
Caption = #19979#36733#26041#24335
end
object lvDeviceCards: TListView
Left = 1
Top = 48
Width = 530
Height = 288
Columns = <
item
Caption = #21345#21495
Width = 100
end
item
Caption = #24037#21495
Tag = 1
Width = 100
end
item
Caption = #22995#21517
Tag = 2
Width = 120
end>
FullDrag = True
HideSelection = False
MultiSelect = True
OwnerData = True
ReadOnly = True
RowSelect = True
PopupMenu = pmLists
TabOrder = 3
ViewStyle = vsReport
OnChange = lvDeviceCardsChange
OnColumnClick = lvDeviceCardsColumnClick
OnData = lvDeviceCardsData
OnDataFind = lvDeviceCardsDataFind
OnDblClick = lvDeviceCardsDblClick
OnDeletion = lvDeviceCardsDeletion
OnInsert = lvDeviceCardsInsert
OnKeyDown = lvDeviceCardsKeyDown
OnSelectItem = lvDeviceCardsSelectItem
end
object Panel3: TPanel
Left = 0
Top = 352
Width = 532
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 4
object btnClearDeviceList: TButton
Left = 200
Top = 8
Width = 30
Height = 25
Caption = #28165#38500
TabOrder = 4
OnClick = btnClearDeviceListClick
end
object btnReadDeviceCardList: TButton
Left = 88
Top = 8
Width = 51
Height = 25
Caption = #35835#35774#22791
TabOrder = 2
OnClick = btnReadDeviceCardListClick
end
object btnWriteDeviceCardList: TButton
Left = 144
Top = 8
Width = 51
Height = 25
Caption = #20889#35774#22791
PopupMenu = pmLists
TabOrder = 3
OnClick = btnWriteDeviceCardListClick
end
object btnDeviceAdd: TButton
Left = 8
Top = 8
Width = 35
Height = 25
Caption = #28155#21152
TabOrder = 0
OnClick = btnDeviceAddClick
end
object btnDeviceDelete: TButton
Left = 48
Top = 8
Width = 35
Height = 25
Caption = #21024#38500
Enabled = False
TabOrder = 1
OnClick = btnDeviceDeleteClick
end
object btnReadFile: TButton
Left = 416
Top = 8
Width = 51
Height = 25
Caption = #36733#20837
TabOrder = 6
OnClick = btnReadFileClick
end
object btnWriteFile: TButton
Left = 472
Top = 8
Width = 51
Height = 25
Caption = #21478#23384
TabOrder = 7
OnClick = btnWriteFileClick
end
object btnFindCard: TButton
Left = 235
Top = 8
Width = 30
Height = 25
Caption = #26597#25214
TabOrder = 5
OnClick = btnFindCardClick
end
end
object cbListKind: TComboBox
Left = 57
Top = 14
Width = 118
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
OnChange = cbListKindChange
Items.Strings = (
#30333#21517#21333
#40657#21517#21333
#38376#31105#36890#34892#21517#21333)
end
object cbUpdateAllDevice: TCheckBox
Left = 350
Top = 15
Width = 98
Height = 17
Caption = #26356#26032#25152#26377#26426#22120
Checked = True
State = cbChecked
TabOrder = 5
Visible = False
end
object btnReadList: TButton
Left = 458
Top = 9
Width = 60
Height = 25
Caption = #35835#21015#34920
TabOrder = 2
Visible = False
OnClick = btnReadListClick
end
object cbDispEmpId: TCheckBox
Left = 351
Top = 14
Width = 97
Height = 17
Caption = #21047#21345#26174#31034#24037#21495
TabOrder = 1
end
object cbxiazaiKind: TComboBox
Left = 235
Top = 14
Width = 110
Height = 20
ItemHeight = 12
ItemIndex = 0
TabOrder = 6
Text = #26222#36890#19979#36733
Items.Strings = (
#26222#36890#19979#36733
#20998#39029#19979#36733
#24191#25773#19979#36733)
end
end
end
object tsPeriods: TTabSheet
Caption = #38376#31105#26102#27573
ImageIndex = 2
object Panel8: TPanel
Left = 0
Top = 352
Width = 532
Height = 41
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -