📄 beforeregister.~dfm
字号:
inherited BeforeRegister_frm: TBeforeRegister_frm
Left = 297
Top = 162
ActiveControl = FlatComboBox3
Caption = #21512#21516#24037#26377#20851#25968#25454#25972#29702
ClientHeight = 429
ClientWidth = 792
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
inherited Panel1: TPanel
Width = 792
Height = 403
Color = clBtnFace
object GroupBox1: TGroupBox
Left = 0
Top = 41
Width = 792
Height = 321
Align = alClient
Caption = #22266#23450#24037':'
TabOrder = 2
Visible = False
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 788
Height = 304
Align = alClient
DataSource = DataSource1
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'iscode'
ReadOnly = True
Title.Caption = #31038#20250#20445#38556#21495
Visible = True
end
item
Expanded = False
FieldName = 'psname'
ReadOnly = True
Title.Caption = #32844#24037#22995#21517
Visible = True
end
item
Expanded = False
FieldName = 'psseno'
ReadOnly = True
Title.Caption = #20154#21592#20869#30721
Visible = True
end
item
Expanded = False
FieldName = 'yearno'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #24180' '#20221
Visible = True
end
item
Color = clMoneyGreen
Expanded = False
FieldName = 'cpsum'
Title.Alignment = taCenter
Title.Caption = #26412#24180#32564#36153#24635#39069
Visible = True
end
item
Color = clMoneyGreen
Expanded = False
FieldName = 'cymonths'
PickList.Strings = (
'0'
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12')
Title.Caption = #26412#24180#20132#36153#24635#26376#25968
Width = 106
Visible = True
end
item
Expanded = False
FieldName = 'cypj'
Title.Caption = #26376#24179#22343#32564#36153#25968
Visible = True
end
item
Expanded = False
FieldName = 'cyActual'
Title.Caption = #24403#24180#23454#32564
Visible = False
end
item
Expanded = False
FieldName = 'cyints'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #26412#24180#21033#24687
Visible = False
end
item
Expanded = False
FieldName = 'lysum'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #21382#24180#20132#36153#24635#39069
Visible = False
end
item
Expanded = False
FieldName = 'lyints'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #21382#24180#21033#24687
Visible = False
end
item
Expanded = False
FieldName = 'cyrely'
Title.Caption = #24403#24180#34917#32564
Visible = False
end>
end
end
object Panel3: TPanel
Left = 0
Top = 362
Width = 792
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Panel4: TPanel
Left = 561
Top = 0
Width = 231
Height = 41
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object FlatButton1: TFlatButton
Left = 59
Top = 6
Width = 73
Height = 27
Caption = #20445' '#23384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabStop = True
TabOrder = 0
OnClick = FlatButton1Click
end
object FlatButton2: TFlatButton
Left = 155
Top = 6
Width = 73
Height = 27
Caption = #25918' '#24323
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabStop = True
TabOrder = 1
OnClick = FlatButton2Click
end
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 792
Height = 41
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label32: TLabel
Left = 469
Top = 14
Width = 100
Height = 13
AutoSize = False
Caption = #36755#20837#32844#24037#36523#20221#35777#21495':'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label31: TLabel
Left = 263
Top = 13
Width = 54
Height = 17
AutoSize = False
Caption = #36873#25321#32844#24037':'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object FlatSpeedButton1: TFlatSpeedButton
Left = 716
Top = 7
Width = 73
Height = 27
Caption = #26597' '#35810
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = FlatSpeedButton1Click
end
object Label7: TLabel
Left = 3
Top = 14
Width = 53
Height = 13
AutoSize = False
Caption = #36873#25321#21333#20301':'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object FlatEdit: TFlatEdit
Left = 572
Top = 10
Width = 126
Height = 20
ColorFlat = clBtnFace
ParentColor = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnKeyPress = FlatEditKeyPress
end
object FlatComboBox4: TFlatComboBox
Left = 317
Top = 8
Width = 145
Height = 21
Color = clWindow
ItemHeight = 13
TabOrder = 3
TabStop = False
Visible = False
ItemIndex = -1
end
object FlatComboBox2: TFlatComboBox
Left = 317
Top = 8
Width = 145
Height = 21
Color = clWindow
ItemHeight = 13
TabOrder = 4
TabStop = False
Visible = False
ItemIndex = -1
end
object FlatComboBox1: TFlatComboBox
Left = 317
Top = 10
Width = 145
Height = 22
Color = clWindow
DropDownCount = 30
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 14
ParentFont = False
TabOrder = 1
ItemIndex = -1
OnChange = FlatComboBox1Change
end
object FlatComboBox5: TFlatComboBox
Left = 57
Top = 9
Width = 145
Height = 21
Color = clWindow
ItemHeight = 13
TabOrder = 5
TabStop = False
Visible = False
ItemIndex = -1
end
object FlatComboBox3: TFlatComboBox
Left = 57
Top = 10
Width = 193
Height = 22
Color = clWindow
DropDownCount = 30
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 14
ParentFont = False
TabOrder = 0
ItemIndex = -1
OnChange = FlatComboBox3Change
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 41
Width = 792
Height = 321
Align = alClient
Caption = #21512#21516#24037':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
object Label3: TLabel
Left = 48
Top = 118
Width = 54
Height = 12
AutoSize = False
Caption = #20154#21592#20869#30721':'
end
object Label2: TLabel
Left = 50
Top = 75
Width = 53
Height = 12
AutoSize = False
Caption = #32844#24037#22995#21517':'
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -