📄 paydeclare.~dfm
字号:
inherited paydeclare_form: Tpaydeclare_form
Left = 4
Top = 80
Width = 800
Height = 572
Caption = #31038#20445#30452#36890#36710'-'#32564#36153#24037#36164#30003#25253
Font.Charset = ANSI_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Menu = nil
OldCreateOrder = True
Position = poOwnerFormCenter
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
inherited StatusBar1: TStatusBar
Top = 523
Width = 792
Height = 22
Panels = <
item
Width = 200
end
item
Width = 200
end
item
Width = 50
end>
end
inherited Panel1: TPanel
Top = 82
Width = 792
Height = 441
inherited Splitter1: TSplitter
Left = 185
Width = 3
Height = 441
Color = clBtnFace
ParentColor = False
end
inherited Panel2: TPanel
Width = 185
Height = 441
inherited TreeViewCP1: TTreeViewCP
Width = 185
Height = 441
Font.Charset = ANSI_CHARSET
Font.Height = -12
Font.Name = #23435#20307
HideSelection = False
Images = ImageList3
ParentFont = False
ReadOnly = True
OnChange = TreeViewCP1Change
OnChanging = TreeViewCP1Changing
end
end
inherited Panel3: TPanel
Left = 188
Width = 604
Height = 441
object Panel4: TPanel
Left = 0
Top = 407
Width = 604
Height = 34
Align = alBottom
TabOrder = 0
object Label9: TLabel
Left = 166
Top = 11
Width = 75
Height = 13
AutoSize = False
Caption = #32564#36153#24037#36164#24635#39069
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 6
Top = 10
Width = 63
Height = 13
AutoSize = False
Caption = #21442#20445#24635#20154#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object E_totrewage: TEdit
Left = 243
Top = 8
Width = 85
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object E_totemployee: TEdit
Left = 68
Top = 7
Width = 89
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
end
end
object Panel5: TPanel
Left = 0
Top = 0
Width = 604
Height = 407
Align = alClient
Caption = 'Panel5'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 602
Height = 405
Align = alClient
DataSource = DataSource1
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnColEnter = DBGrid1ColEnter
OnColExit = DBGrid1ColExit
OnEnter = DBGrid1Enter
OnKeyDown = DBGrid1KeyDown
OnKeyUp = DBGrid1KeyUp
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Expanded = False
FieldName = 'iscode'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #31038#20250#20445#38556#21495
Width = 115
Visible = True
end
item
Expanded = False
FieldName = 'psname'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #22995' '#21517
Width = 67
Visible = True
end
item
Expanded = False
FieldName = 'agcardno'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #25163#20876#32534#21495
Width = 61
Visible = True
end
item
Expanded = False
FieldName = 'ttwage'
Title.Alignment = taCenter
Title.Caption = #19978#24180#24037#36164#24635#39069
Width = 79
Visible = True
end
item
Expanded = False
FieldName = 'months'
Title.Alignment = taCenter
Title.Caption = #19978#24180#24037#36164#24635#26376#25968
Width = 89
Visible = True
end
item
Expanded = False
FieldName = 'rewage'
Title.Alignment = taCenter
Title.Caption = #32564#36153#22522#25968
Width = 74
Visible = True
end
item
Expanded = False
FieldName = 'currewage'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #24403#21069#32564#36153#22522#25968
Visible = True
end>
end
end
end
end
inherited ControlBar1: TControlBar
Width = 792
Height = 82
AutoSize = True
inherited ToolBar1: TToolBar
ButtonHeight = 18
ButtonWidth = 60
Font.Charset = ANSI_CHARSET
Font.Height = -12
Font.Name = #23435#20307
List = True
ParentFont = False
ShowCaptions = True
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #25805#20316'(&O)'
Grouped = True
MenuItem = M_edit
end
object ToolButton2: TToolButton
Left = 53
Top = 0
AutoSize = True
Caption = #31995#32479'(&S)'
Grouped = True
MenuItem = M_system
end
end
inherited ToolBar2: TToolBar
Width = 286
ButtonWidth = 57
Font.Charset = ANSI_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Images = ImageList4
List = True
ParentFont = False
ParentShowHint = False
ShowCaptions = True
ShowHint = True
object TB_save: TToolButton
Left = 0
Top = 0
Hint = #20445#23384#32844#24037#32564#36153#24037#36164#30003#25253#20449#24687
AutoSize = True
Caption = ' '#20445#23384
ImageIndex = 0
OnClick = Save_butExecute
end
object TB_cancel: TToolButton
Left = 61
Top = 0
Hint = #21462#28040#20445#23384#65292#24674#22797#21040#20462#25913#21069#30340#29366#24577
AutoSize = True
Caption = ' '#21462#28040
ImageIndex = 1
OnClick = Cancel_butExecute
end
object ToolButton3: TToolButton
Left = 122
Top = 0
Hint = #24110#21161
Action = help_but
AutoSize = True
Caption = ' '#24110#21161
end
object ToolButton4: TToolButton
Left = 183
Top = 0
Width = 9
ImageIndex = 6
Style = tbsSeparator
end
object TB_exit: TToolButton
Left = 192
Top = 0
Hint = #36864#20986#24403#21069#27169#22359
AutoSize = True
Caption = ' '#36864#20986
ImageIndex = 2
OnClick = Exit_butExecute
end
end
object ToolBar3: TToolBar
Left = 374
Top = 54
Width = 371
Height = 22
ButtonHeight = 17
Caption = 'ToolBar3'
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
object Label4: TLabel
Left = 0
Top = 2
Width = 48
Height = 17
Caption = #30003#25253#24180#24230
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object FE_year: TFlatMaskEdit
Left = 48
Top = 2
Width = 47
Height = 17
ColorFlat = clBtnFace
ParentColor = True
AutoSize = False
BorderStyle = bsNone
Color = clBtnFace
EditMask = '!9999;1;_'
MaxLength = 4
TabOrder = 2
Text = ' '
OnChange = FE_yearChange
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -