📄 beforeregister.dfm
字号:
object Label1: TLabel
Left = 38
Top = 33
Width = 65
Height = 12
AutoSize = False
Caption = #31038#20250#20445#38556#21495':'
end
object Label4: TLabel
Left = 282
Top = 40
Width = 77
Height = 12
AutoSize = False
Caption = #39318#27425#32564#36153#26102#38388':'
end
object Label5: TLabel
Left = 281
Top = 118
Width = 77
Height = 12
AutoSize = False
Caption = #32047#35745#32564#36153#26376#25968':'
end
object Label6: TLabel
Left = 282
Top = 80
Width = 77
Height = 12
AutoSize = False
Caption = #20013#26029#36215#27490#26102#38388':'
end
object Label8: TLabel
Left = 360
Top = 98
Width = 265
Height = 18
AutoSize = False
Caption = '( '#20363':1986.10-1988.1,1990.10-1992.1 0)'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 12
Top = 150
Width = 90
Height = 12
AutoSize = False
Caption = '2003'#24180#35843#25972#37329#39069':'
end
object FlatEdit1: TFlatEdit
Left = 104
Top = 30
Width = 121
Height = 20
TabStop = False
ColorFocused = clBtnFace
ColorFlat = clBtnFace
ParentColor = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object FlatEdit2: TFlatEdit
Left = 104
Top = 72
Width = 121
Height = 20
TabStop = False
ColorFocused = clBtnFace
ColorFlat = clBtnFace
ParentColor = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
end
object FlatEdit3: TFlatEdit
Left = 104
Top = 115
Width = 121
Height = 20
TabStop = False
ColorFocused = clBtnFace
ColorFlat = clBtnFace
ParentColor = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object FlatEdit5: TFlatEdit
Left = 360
Top = 116
Width = 177
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 = 5
OnChange = DateEdit1Change
end
object DateEdit1: TDateEdit
Left = 360
Top = 37
Width = 105
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
NumGlyphs = 2
ParentFont = False
TabOrder = 3
OnChange = DateEdit1Change
end
object FlatEdit4: TFlatEdit
Left = 360
Top = 78
Width = 177
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 = 4
OnChange = DateEdit1Change
end
object FlatEdit6: TFlatEdit
Left = 104
Top = 147
Width = 121
Height = 20
TabStop = False
ColorFocused = clBtnFace
ColorFlat = clBtnFace
ParentColor = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 6
end
end
end
inherited Panel10: TPanel
Width = 792
inherited Bevel1: TBevel
Width = 792
end
inherited Panel11: TPanel
Left = 770
end
end
inherited ImageList1: TImageList
Left = 368
Top = 8
end
inherited ActionList1: TActionList
Left = 432
Top = 8
end
inherited PopupMenu1: TPopupMenu
Left = 400
Top = 8
end
inherited XPMenu1: TXPMenu
Left = 344
Top = 8
end
object RMD1: TRxMemoryData
FieldDefs = <>
Left = 304
object RMD1iscode: TStringField
FieldName = 'iscode'
end
object RMD1psname: TStringField
FieldName = 'psname'
end
object RMD1psseno: TIntegerField
FieldName = 'psseno'
end
object RMD1yearno: TIntegerField
FieldName = 'yearno'
end
object RMD1cpsum: TFloatField
FieldName = 'cpsum'
end
object RMD1cymonths: TIntegerField
FieldName = 'cymonths'
end
object RMD1cypj: TFloatField
FieldName = 'cypj'
end
object RMD1cyints: TFloatField
FieldName = 'cyints'
end
object RMD1lysum: TFloatField
FieldName = 'lysum'
end
object RMD1lyints: TFloatField
FieldName = 'lyints'
end
object RMD1cyActual: TFloatField
FieldName = 'cyActual'
end
object RMD1cyrely: TFloatField
FieldName = 'cyrely'
end
object RMD1siinter: TFloatField
FieldName = 'siinter'
end
object RMD1lycycpints: TFloatField
FieldName = 'lycycpints'
end
object RMD1lycypsints: TFloatField
FieldName = 'lycypsints'
end
object RMD1lycpprin: TFloatField
FieldName = 'lycpprin'
end
object RMD1lypsprin: TFloatField
FieldName = 'lypsprin'
end
object RMD1lycpints: TFloatField
FieldName = 'lycpints'
end
object RMD1lypsints: TFloatField
FieldName = 'lypsints'
end
object RMD1cycpints: TFloatField
FieldName = 'cycpints'
end
object RMD1cypsints: TFloatField
FieldName = 'cypsints'
end
end
object DataSource1: TDataSource
DataSet = RMD
Left = 336
end
object RMD2: TRxMemoryData
FieldDefs = <>
Left = 368
object RMD2iscode: TStringField
FieldName = 'iscode'
end
object RMD2psname: TStringField
FieldName = 'psname'
end
object RMD2psseno: TStringField
FieldName = 'psseno'
end
object RMD2bgjfdate: TDateField
FieldName = 'bgjfdate'
end
object RMD2months: TIntegerField
FieldName = 'months'
end
object RMD2psdate: TDateField
FieldName = 'psdate'
end
end
object RMD: TRxMemoryData
FieldDefs = <>
Left = 304
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 RMDcyints: TFloatField
FieldName = 'cyints'
end
object RMDlysum: TFloatField
FieldName = 'lysum'
end
object RMDlyints: TFloatField
FieldName = 'lyints'
end
object RMDcyActual: TFloatField
FieldName = 'cyActual'
end
object RMDcyrely: TFloatField
FieldName = 'cyrely'
end
object RMDcycpints: TFloatField
FieldName = 'cycpints'
end
object RMDcypsints: TFloatField
FieldName = 'cypsints'
end
object RMDlycpints: TFloatField
FieldName = 'lycpints'
end
object RMDlypsints: TFloatField
FieldName = 'lypsints'
end
object RMDlycpprin: TFloatField
FieldName = 'lycpprin'
end
object RMDlypsprin: TFloatField
FieldName = 'lypsprin'
end
object RMDcyftcpfd: TFloatField
FieldName = 'cyftcpfd'
end
object RMDcypsarac: TFloatField
FieldName = 'cypsarac'
end
object RMDcyrelycpfd: TFloatField
FieldName = 'cyrelycpfd'
end
object RMDcyrelypsfd: TFloatField
FieldName = 'cyrelypsfd'
end
object RMDsiinter: TFloatField
FieldName = 'siinter'
end
object RMDlycycpints: TFloatField
FieldName = 'lycycpints'
end
object RMDlycypsints: TFloatField
FieldName = 'lycypsints'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -