You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

856 lines
22 KiB
Plaintext

11 months ago
object frm_ch_genleg_start: Tfrm_ch_genleg_start
Left = 173
Top = 236
Width = 913
Height = 528
Caption = #24448#26469#24080#21021#22987#21270
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object bsSkinPanel1: TbsSkinPanel
Left = 0
Top = 0
Width = 905
Height = 41
TabOrder = 0
SkinData = frm_main.bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel1'
Align = alTop
object bsSkinPanel4: TbsSkinPanel
Left = 1
Top = 1
Width = 264
Height = 39
TabOrder = 0
SkinData = frm_main.bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel4'
Align = alLeft
object Label1: TLabel
Left = 170
Top = 8
Width = 12
Height = 13
Caption = #24180
Transparent = True
end
object Label6: TLabel
Left = 240
Top = 9
Width = 12
Height = 13
Caption = #26376
Transparent = True
end
object Label7: TLabel
Left = 12
Top = 9
Width = 60
Height = 13
Caption = #21021#22987#21270#26376#20221
Transparent = True
end
object cbYear: TwwDBComboBox
Left = 76
Top = 5
Width = 92
Height = 21
ShowButton = True
Style = csDropDown
MapList = False
AllowClearKey = False
AutoDropDown = True
ShowMatchText = True
DropDownCount = 8
ItemHeight = 0
Items.Strings = (
'2006'
'2007'
'2008'
'2009'
'2010'
'2011'
'2012'
'2013'
'2014'
'2015'
'2016'
'2017'
'2018'
'2019'
'2020')
Sorted = False
TabOrder = 0
UnboundDataType = wwDefault
end
object cbmonth: TwwDBComboBox
Left = 186
Top = 5
Width = 47
Height = 21
ShowButton = True
Style = csDropDown
MapList = False
AllowClearKey = False
AutoDropDown = True
ShowMatchText = True
DropDownCount = 8
ItemHeight = 0
Items.Strings = (
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12')
Sorted = False
TabOrder = 1
UnboundDataType = wwDefault
end
end
object bsSkinButton3: TbsSkinButton
Left = 480
Top = 8
Width = 77
Height = 25
TabOrder = 1
SkinData = frm_main.bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #21021#22987#21270
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton3Click
end
object bsSkinButton1: TbsSkinButton
Left = 564
Top = 8
Width = 77
Height = 25
TabOrder = 2
SkinData = frm_main.bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #36864' '#20986
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton1Click
end
end
object bsSkinPageControl1: TbsSkinPageControl
Left = 0
Top = 41
Width = 905
Height = 453
ActivePage = bsSkinTabSheet5
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabIndex = 0
TabOrder = 1
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clBtnText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultItemHeight = 20
SkinData = frm_main.bsSkinData1
SkinDataName = 'tab'
object bsSkinTabSheet5: TbsSkinTabSheet
Caption = #24448#26469#24635#36134
object DBGridEhGenleg: TDBGridEh
Left = 0
Top = 0
Width = 903
Height = 431
Align = alClient
AllowedOperations = [alopUpdateEh]
DataSource = t_ch_genleg1
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clBtnText
FooterFont.Height = 14
FooterFont.Name = 'Arial'
FooterFont.Style = []
FooterRowCount = 1
RowLines = 1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBtnText
TitleFont.Height = 14
TitleFont.Name = 'Arial'
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = #32047#35745#20511#26041
Footers = <>
Width = 98
end
item
EditButtons = <>
FieldName = #32047#35745#36151#26041
Footers = <>
Width = 86
end
item
EditButtons = <>
FieldName = #32047#35745#20313#39069
Footers = <>
Width = 100
end
item
EditButtons = <>
FieldName = 'USD'#32047#35745#20511#26041
Footers = <>
Width = 90
end
item
EditButtons = <>
FieldName = 'USD'#32047#35745#36151#26041
Footers = <>
Width = 95
end
item
EditButtons = <>
FieldName = 'USD'#32047#35745#20313#39069
Footers = <>
Width = 89
end
item
EditButtons = <>
FieldName = 'RMB'#32047#35745#20511#26041
Footers = <>
end
item
EditButtons = <>
FieldName = 'RMB'#32047#35745#36151#26041
Footers = <>
end
item
EditButtons = <>
FieldName = 'RMB'#32047#35745#20313#39069
Footers = <>
end>
end
end
object bsSkinTabSheet4: TbsSkinTabSheet
Caption = #38134#34892#29616#37329#24448#26469#24635#36134
object DBGridEhBank: TDBGridEh
Left = 0
Top = 0
Width = 903
Height = 431
Align = alClient
AllowedOperations = [alopUpdateEh]
DataSource = t_ch_bank_genleg1
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clBtnText
FooterFont.Height = 14
FooterFont.Name = 'Arial'
FooterFont.Style = []
FooterRowCount = 1
FrozenCols = 1
RowLines = 1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBtnText
TitleFont.Height = 14
TitleFont.Name = 'Arial'
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'BANK'
Footers = <>
Title.Caption = #38134#34892
Width = 161
end
item
EditButtons = <>
FieldName = #32047#35745#20511#26041
Footers = <>
Width = 98
end
item
EditButtons = <>
FieldName = #32047#35745#36151#26041
Footers = <>
Width = 86
end
item
EditButtons = <>
FieldName = #32047#35745#20313#39069
Footers = <>
Width = 100
end
item
EditButtons = <>
FieldName = 'USD'#32047#35745#20511#26041
Footers = <>
Width = 90
end
item
EditButtons = <>
FieldName = 'USD'#32047#35745#36151#26041
Footers = <>
Width = 95
end
item
EditButtons = <>
FieldName = 'USD'#32047#35745#20313#39069
Footers = <>
Width = 89
end
item
EditButtons = <>
FieldName = 'RMB'#32047#35745#20511#26041
Footers = <>
end
item
EditButtons = <>
FieldName = 'RMB'#32047#35745#36151#26041
Footers = <>
end
item
EditButtons = <>
FieldName = 'RMB'#32047#35745#20313#39069
Footers = <>
end>
end
end
end
object t_ch_genleg: TkbmMemTable
DesignActivation = True
AttachedAutoRefresh = True
AttachMaxCount = 1
FieldDefs = <>
IndexDefs = <>
SortOptions = []
PersistentBackup = False
ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
FilterOptions = []
Version = '3.05'
LanguageID = 0
SortID = 0
SubLanguageID = 1
LocaleID = 1024
AfterInsert = t_ch_genlegAfterInsert
Left = 152
Top = 220
object t_ch_genlegField: TFloatField
FieldName = #32047#35745#20511#26041
OnChange = t_ch_genlegFieldChange
end
object t_ch_genlegField2: TFloatField
FieldName = #32047#35745#36151#26041
OnChange = t_ch_genlegFieldChange
end
object t_ch_genlegField3: TFloatField
FieldName = #32047#35745#20313#39069
end
object t_ch_genlegUSD: TFloatField
FieldName = 'USD'#32047#35745#20511#26041
OnChange = t_ch_genlegUSDChange
end
object t_ch_genlegUSD2: TFloatField
FieldName = 'USD'#32047#35745#36151#26041
OnChange = t_ch_genlegUSDChange
end
object t_ch_genlegUSD3: TFloatField
FieldName = 'USD'#32047#35745#20313#39069
end
object t_ch_genlegRMB: TFloatField
FieldName = 'RMB'#32047#35745#20511#26041
OnChange = t_ch_genlegRMBChange
end
object t_ch_genlegRMB2: TFloatField
FieldName = 'RMB'#32047#35745#36151#26041
OnChange = t_ch_genlegRMBChange
end
object t_ch_genlegRMB3: TFloatField
FieldName = 'RMB'#32047#35745#20313#39069
end
end
object t_ch_bank_genleg: TkbmMemTable
DesignActivation = True
AttachedAutoRefresh = True
AttachMaxCount = 1
FieldDefs = <>
IndexDefs = <>
SortOptions = []
PersistentBackup = False
ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
FilterOptions = []
Version = '3.05'
LanguageID = 0
SortID = 0
SubLanguageID = 1
LocaleID = 1024
AfterInsert = t_ch_genlegAfterInsert
Left = 328
Top = 172
object FloatField1: TFloatField
FieldName = #32047#35745#20511#26041
OnChange = t_ch_genlegFieldChange
end
object FloatField2: TFloatField
FieldName = #32047#35745#36151#26041
OnChange = t_ch_genlegFieldChange
end
object FloatField3: TFloatField
FieldName = #32047#35745#20313#39069
end
object FloatField4: TFloatField
FieldName = 'USD'#32047#35745#20511#26041
OnChange = t_ch_genlegUSDChange
end
object FloatField5: TFloatField
FieldName = 'USD'#32047#35745#36151#26041
OnChange = t_ch_genlegUSDChange
end
object FloatField6: TFloatField
FieldName = 'USD'#32047#35745#20313#39069
end
object t_ch_bank_genlegField: TStringField
FieldName = #38134#34892#20195#30721
Size = 2
end
object t_ch_bank_genlegField2: TStringField
FieldName = #38134#34892#21517#31216
Size = 30
end
object t_ch_bank_genlegBANK: TStringField
FieldKind = fkLookup
FieldName = 'BANK'
LookupDataSet = frm_data_share.t_sys_bank
LookupKeyFields = #20195#30721
LookupResultField = #38134#34892#21517#31216
KeyFields = #38134#34892#20195#30721
Size = 30
Lookup = True
end
object t_ch_bank_genlegRMB: TFloatField
FieldName = 'RMB'#32047#35745#20511#26041
OnChange = t_ch_genlegRMBChange
end
object t_ch_bank_genlegRMB2: TFloatField
FieldName = 'RMB'#32047#35745#36151#26041
OnChange = t_ch_genlegRMBChange
end
object t_ch_bank_genlegRMB3: TFloatField
FieldName = 'RMB'#32047#35745#20313#39069
end
end
object t_ch_genleg1: TDataSource
DataSet = t_ch_genleg
Left = 240
Top = 364
end
object t_ch_bank_genleg1: TDataSource
DataSet = t_ch_bank_genleg
Left = 452
Top = 288
end
object t_ch_genleg_n: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
AfterInsert = t_ch_bank_genleg_nAfterInsert
Parameters = <>
SQL.Strings = (
'select * from t_ch_genleg')
Left = 52
Top = 304
object t_ch_genlegDSDesigner: TIntegerField
FieldName = #24180
end
object t_ch_genlegDSDesigner2: TSmallintField
FieldName = #26376
end
object t_ch_genlegDSDesigner3: TBCDField
FieldName = #24180#21021#20511#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_genlegDSDesigner4: TBCDField
FieldName = #24180#21021#36151#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_genlegDSDesigner5: TBCDField
FieldName = #24180#21021#20313#39069
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_genlegDSDesigner6: TBCDField
FieldName = #26412#26376#20511#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_genlegDSDesigner7: TBCDField
FieldName = #26412#26376#36151#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_genlegDSDesigner8: TBCDField
FieldName = #26412#26376#20313#39069
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object BCDField1: TBCDField
FieldName = 'USD'#24180#21021#20511#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object BCDField2: TBCDField
FieldName = 'USD'#24180#21021#36151#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object BCDField3: TBCDField
FieldName = 'USD'#24180#21021#20313#39069
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_genlegUSD4: TBCDField
FieldName = 'USD'#26412#26376#20511#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_genlegUSD5: TBCDField
FieldName = 'USD'#26412#26376#36151#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_genlegUSD6: TBCDField
FieldName = 'USD'#26412#26376#20313#39069
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_genlegDSDesigner9: TBCDField
FieldName = #32047#35745#20511#26041
Precision = 18
Size = 2
end
object t_ch_genlegDSDesigner10: TBCDField
FieldName = #32047#35745#36151#26041
Precision = 18
Size = 2
end
object t_ch_genlegDSDesigner11: TBCDField
FieldName = #32047#35745#20313#39069
Precision = 18
Size = 2
end
object t_ch_genlegUSD7: TBCDField
FieldName = 'USD'#32047#35745#20511#26041
Precision = 18
Size = 2
end
object t_ch_genlegUSD8: TBCDField
FieldName = 'USD'#32047#35745#36151#26041
Precision = 18
Size = 2
end
object t_ch_genlegUSD9: TBCDField
FieldName = 'USD'#32047#35745#20313#39069
Precision = 18
Size = 2
end
object t_ch_genleg_nRMB: TBCDField
FieldName = 'RMB'#26412#26376#20511#26041
Precision = 18
Size = 2
end
object t_ch_genleg_nRMB2: TBCDField
FieldName = 'RMB'#26412#26376#36151#26041
Precision = 18
Size = 2
end
object t_ch_genleg_nRMB3: TBCDField
FieldName = 'RMB'#26412#26376#20313#39069
Precision = 18
Size = 2
end
object t_ch_genleg_nRMB4: TBCDField
FieldName = 'RMB'#32047#35745#20511#26041
Precision = 18
Size = 2
end
object t_ch_genleg_nRMB5: TBCDField
FieldName = 'RMB'#32047#35745#36151#26041
Precision = 18
Size = 2
end
object t_ch_genleg_nRMB6: TBCDField
FieldName = 'RMB'#32047#35745#20313#39069
Precision = 18
Size = 2
end
end
object t_ch_bank_genleg_n: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
AfterInsert = t_ch_bank_genleg_nAfterInsert
Parameters = <>
SQL.Strings = (
'select * from t_ch_bank_genleg where '#38134#34892#20195#30721'<>'#39#29616#37329#39)
Left = 292
Top = 264
object t_ch_bank_genlegDSDesigner: TIntegerField
FieldName = #24180
end
object t_ch_bank_genlegDSDesigner2: TSmallintField
FieldName = #26376
end
object t_ch_bank_genlegDSDesigner3: TStringField
FieldName = #38134#34892#20195#30721
Size = 10
end
object t_ch_bank_genlegDSDesigner4: TStringField
FieldName = #38134#34892#21517#31216
end
object t_ch_bank_genlegDSDesigner5: TBCDField
FieldName = #24180#21021#20511#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegDSDesigner6: TBCDField
FieldName = #24180#21021#36151#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegDSDesigner7: TBCDField
FieldName = #24180#21021#20313#39069
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegDSDesigner8: TBCDField
FieldName = #26412#26376#20511#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegDSDesigner9: TBCDField
FieldName = #26412#26376#36151#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegDSDesigner10: TBCDField
FieldName = #26412#26376#20313#39069
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegUSD: TBCDField
FieldName = 'USD'#24180#21021#20511#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegUSD2: TBCDField
FieldName = 'USD'#24180#21021#36151#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegUSD3: TBCDField
FieldName = 'USD'#24180#21021#20313#39069
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegUSD4: TBCDField
FieldName = 'USD'#26412#26376#20511#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegUSD5: TBCDField
FieldName = 'USD'#26412#26376#36151#26041
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object t_ch_bank_genlegUSD6: TBCDField
FieldName = 'USD'#26412#26376#20313#39069
DisplayFormat = '#,##0.00;-0.00'
Precision = 18
Size = 2
end
object StringField1: TStringField
FieldKind = fkLookup
FieldName = 'BANK'
LookupDataSet = frm_data_share.t_sys_bank
LookupKeyFields = #20195#30721
LookupResultField = #38134#34892#21517#31216
KeyFields = #38134#34892#20195#30721
Size = 60
Lookup = True
end
object t_ch_bank_genlegDSDesigner11: TBCDField
FieldName = #32047#35745#20511#26041
Precision = 18
Size = 2
end
object t_ch_bank_genlegDSDesigner12: TBCDField
FieldName = #32047#35745#36151#26041
Precision = 18
Size = 2
end
object t_ch_bank_genlegDSDesigner13: TBCDField
FieldName = #32047#35745#20313#39069
Precision = 18
Size = 2
end
object t_ch_bank_genlegUSD7: TBCDField
FieldName = 'USD'#32047#35745#20511#26041
Precision = 18
Size = 2
end
object t_ch_bank_genlegUSD8: TBCDField
FieldName = 'USD'#32047#35745#36151#26041
Precision = 18
Size = 2
end
object t_ch_bank_genlegUSD9: TBCDField
FieldName = 'USD'#32047#35745#20313#39069
Precision = 18
Size = 2
end
object t_ch_bank_genleg_nRMB: TBCDField
FieldName = 'RMB'#26412#26376#20511#26041
Precision = 18
Size = 2
end
object t_ch_bank_genleg_nRMB2: TBCDField
FieldName = 'RMB'#26412#26376#36151#26041
Precision = 18
Size = 2
end
object t_ch_bank_genleg_nRMB3: TBCDField
FieldName = 'RMB'#26412#26376#20313#39069
Precision = 18
Size = 2
end
object t_ch_bank_genleg_nRMB4: TBCDField
FieldName = 'RMB'#32047#35745#20511#26041
Precision = 18
Size = 2
end
object t_ch_bank_genleg_nRMB5: TBCDField
FieldName = 'RMB'#32047#35745#36151#26041
Precision = 18
Size = 2
end
object t_ch_bank_genleg_nRMB6: TBCDField
FieldName = 'RMB'#32047#35745#20313#39069
Precision = 18
Size = 2
end
end
end