📄 breakadd.~dfm
字号:
Font.Style = []
MaxLength = 18
ParentFont = False
TabOrder = 6
end
object FlatEdit6: TFlatEdit
Tag = 9
Left = 536
Top = 82
Width = 160
Height = 20
ColorFlat = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
MaxLength = 18
ParentFont = False
TabOrder = 8
end
object FlatComboBox2: TFlatComboBox
Tag = 6
Left = 536
Top = 51
Width = 160
Height = 22
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 14
Items.Strings = (
#20225#19994#38271#26399#21644#21512#21516#24037#65288#19968#24180#20197#19978')'
#20225#19994#30701#26399#21512#21516#24037#65288#19968#24180#20197#19979#65289
#20010#20307#24037#21830#25143
#33258#30001#32844#19994#32773
#26426#20851#20107#19994#32844#24037
#26426#20851#20107#19994#32844#24037#21442#21152#20225#19994
#20891#36716#25991#32844#21442#21152#20225#19994
#20854#20182' ')
ParentFont = False
TabOrder = 5
ItemIndex = -1
end
object DateEdit2: TDateEdit
Tag = 10
Left = 85
Top = 112
Width = 132
Height = 21
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
NumGlyphs = 2
ParentFont = False
TabOrder = 9
end
object DateEdit3: TDateEdit
Tag = 13
Left = 86
Top = 144
Width = 131
Height = 21
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
NumGlyphs = 2
ParentFont = False
TabOrder = 12
end
object FlatComboBox3: TFlatComboBox
Tag = 11
Left = 291
Top = 111
Width = 160
Height = 22
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 14
Items.Strings = (
#22266#23450#24037
#21512#21516#24037
#20020#26102#24037
#20892#27665#24037)
ParentFont = False
TabOrder = 10
ItemIndex = -1
end
object DateEdit1: TDateEdit
Tag = 4
Left = 85
Top = 53
Width = 132
Height = 21
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
NumGlyphs = 2
ParentFont = False
TabOrder = 3
end
object FlatComboBox6: TFlatComboBox
Tag = 16
Left = 85
Top = 180
Width = 364
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 = 15
ItemIndex = -1
OnChange = FlatComboBox6Change
end
object FlatEdit8: TFlatEdit
Tag = 12
Left = 534
Top = 112
Width = 162
Height = 20
TabStop = False
ColorFocused = clBtnFace
ColorBorder = clWhite
ColorFlat = clBtnFace
ParentColor = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
MaxLength = 8
ParentFont = False
ReadOnly = True
TabOrder = 11
Text = #20013#26029
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 217
Width = 746
Height = 160
Align = alClient
Caption = #27599#24180#30340#32564#36153#24773#20917#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object DBGrid1: TDBGrid
Left = 2
Top = 14
Width = 742
Height = 144
Align = alClient
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnKeyPress = DBGrid1KeyPress
Columns = <
item
Expanded = False
FieldName = 'iscode'
ReadOnly = True
Title.Caption = #31038#20250#20445#38556#21495
Visible = False
end
item
Expanded = False
FieldName = 'psname'
ReadOnly = True
Title.Caption = #32844#24037#22995#21517
Visible = False
end
item
Expanded = False
FieldName = 'psseno'
ReadOnly = True
Title.Caption = #20154#21592#20869#30721
Visible = False
end
item
Color = clMoneyGreen
Expanded = False
FieldName = 'yearno'
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#22522#25968#24635#39069
Width = 136
Visible = True
end
item
Color = clMoneyGreen
Expanded = False
FieldName = 'cymonths'
Title.Caption = #26412#24180#32564#36153#24635#26376#25968
Width = 104
Visible = True
end
item
Expanded = False
FieldName = 'cypj'
ReadOnly = True
Title.Caption = #26376#24179#22343#32564#36153#25968
Visible = False
end
item
Color = clMoneyGreen
Expanded = False
FieldName = 'nextyearjs'
Title.Caption = #19979#21322#24180#26376#22522#25968
Visible = False
end>
end
end
object Panel2: TPanel
Left = 0
Top = 377
Width = 746
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
object Panel3: TPanel
Left = 464
Top = 0
Width = 282
Height = 41
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object FlatButton1: TFlatButton
Tag = 1
Left = 111
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
TabOrder = 0
OnClick = FlatButton1Click
end
object FlatButton7: TFlatButton
Tag = 2
Left = 201
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
TabOrder = 1
OnClick = FlatButton1Click
end
object FlatButton8: TFlatButton
Left = 9
Top = 6
Width = 91
Height = 27
Caption = #26032#22686#20013#26029#20154#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
Visible = False
OnClick = FlatButton8Click
end
end
end
end
inherited Panel10: TPanel
Width = 746
inherited Bevel1: TBevel
Width = 746
end
inherited Panel11: TPanel
Left = 724
end
end
inherited ImageList1: TImageList
Left = 224
Top = 0
end
inherited ActionList1: TActionList
Left = 224
Top = 0
end
inherited PopupMenu1: TPopupMenu
Left = 224
Top = 0
end
inherited XPMenu1: TXPMenu
Left = 224
Top = 0
end
object RMD: TRxMemoryData
FieldDefs = <>
Left = 176
object RMDiscode: TStringField
FieldName = 'iscode'
end
object RMDpsname: TStringField
FieldName = 'psname'
end
object RMDpsseno: TIntegerField
FieldName = 'psseno'
end
object RMDyearno: TIntegerField
FieldName = 'yearno'
end
object RMDcpsum: TFloatField
FieldName = 'cpsum'
end
object RMDcymonths: TIntegerField
FieldName = 'cymonths'
end
object RMDcypj: TFloatField
FieldName = 'cypj'
end
object RMDnextyearjs: TFloatField
FieldName = 'nextyearjs'
end
object RMDindustry: TIntegerField
FieldName = 'industry'
end
end
object DataSource1: TDataSource
DataSet = RMD0
Left = 296
end
object RMD0: TRxMemoryData
FieldDefs = <>
Left = 400
object StringField3: TStringField
FieldName = 'iscode'
end
object StringField4: TStringField
FieldName = 'psname'
end
object IntegerField4: TIntegerField
FieldName = 'psseno'
end
object IntegerField5: TIntegerField
FieldName = 'yearno'
end
object FloatField3: TFloatField
FieldName = 'cpsum'
end
object IntegerField6: TIntegerField
FieldName = 'cymonths'
end
object FloatField4: TFloatField
FieldName = 'cypj'
end
object RMD0nextyearjs: TFloatField
FieldName = 'nextyearjs'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -