object frm_ch_genleg_start: Tfrm_ch_genleg_start Left = 361 Top = 248 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