object fra_ch_custbefbal_do: Tfra_ch_custbefbal_do Left = 0 Top = 0 Width = 565 Height = 467 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 0 object bsSkinGroupBox2: TbsSkinGroupBox Left = 0 Top = 0 Width = 565 Height = 371 TabOrder = 0 SkinDataName = 'groupbox' 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 = bvNone CaptionMode = True RollUpMode = False RollUpState = False NumGlyphs = 1 Spacing = 2 Caption = #39044#25910#36153#29992#32467#31639#26126#32454 Align = alClient object dxDBGrid12: TdxDBGrid Left = 0 Top = 22 Width = 565 Height = 349 Bands = < item end> DefaultLayout = True HeaderPanelRowCount = 1 KeyField = 'BFID' SummaryGroups = <> SummarySeparator = ', ' Align = alClient PopupMenu = PopupMenu2 TabOrder = 0 DataSource = t_ch_cust_befbal1 Filter.Criteria = {00000000} OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks] OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap] ShowGrid = False ShowPreviewGrid = False object dxDBGridMaskColumn59: TdxDBGridMaskColumn ReadOnly = True Width = 96 BandIndex = 0 RowIndex = 0 FieldName = #24080#21333#32534#21495 end object dxDBGridMaskColumn60: TdxDBGridMaskColumn ReadOnly = True Width = 54 BandIndex = 0 RowIndex = 0 FieldName = #29366#24577 end object dxDBGridMaskColumn61: TdxDBGridMaskColumn ReadOnly = True Width = 124 BandIndex = 0 RowIndex = 0 FieldName = #23458#25143#21517#31216 end object dxDBGridMaskColumn63: TdxDBGridMaskColumn ReadOnly = True Width = 35 BandIndex = 0 RowIndex = 0 FieldName = #24065#21035 end object dxDBGridColumn28: TdxDBGridColumn Caption = #23454#25910#37329#39069 ReadOnly = True Width = 83 BandIndex = 0 RowIndex = 0 FieldName = #32467#31639#37329#39069 end object dxDBGrid12Column6: TdxDBGridColumn Width = 54 BandIndex = 0 RowIndex = 0 FieldName = #26680#38144#24065#21035 end object dxDBGrid12Column7: TdxDBGridColumn Width = 81 BandIndex = 0 RowIndex = 0 FieldName = #26680#38144#37329#39069 end end object bs_text: TEdit Left = 322 Top = 144 Width = 121 Height = 22 ReadOnly = True TabOrder = 1 Visible = False end end object bsSkinGroupBox1: TbsSkinGroupBox Left = 0 Top = 371 Width = 565 Height = 96 TabOrder = 1 SkinData = frm_main.bsSkinData1 SkinDataName = 'groupbox' 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 = bvNone CaptionMode = True RollUpMode = False RollUpState = False NumGlyphs = 1 Spacing = 2 Caption = #23458#25143#39044#25910#36153#29992#21512#35745 Align = alBottom object dxDBGrid11: TdxDBGrid Left = 0 Top = 22 Width = 565 Height = 74 Bands = < item end> DefaultLayout = True HeaderPanelRowCount = 1 KeyField = #23458#25143#21517#31216 SummaryGroups = <> SummarySeparator = ', ' Align = alClient PopupMenu = PopupMenu3 TabOrder = 0 DataSource = t_ch_cust_befbal_sum1 Filter.Criteria = {00000000} OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks] object dxDBGrid11Column1: TdxDBGridColumn Width = 84 BandIndex = 0 RowIndex = 0 FieldName = #23458#25143#21517#31216 end object dxDBGrid11Column4: TdxDBGridColumn Width = 48 BandIndex = 0 RowIndex = 0 FieldName = #31867#22411 end object dxDBGrid11Column2: TdxDBGridColumn Width = 91 BandIndex = 0 RowIndex = 0 FieldName = #24065#21035 end object dxDBGrid11Column3: TdxDBGridColumn Sorted = csUp Width = 98 BandIndex = 0 RowIndex = 0 FieldName = #39044#25910#37329#39069 end end end object do_ban1: TDataSource Left = 64 Top = 148 end object PopupMenu1: TPopupMenu OwnerDraw = True Left = 492 Top = 64 object N1: TMenuItem Caption = #36153#29992#21015#34920#21462#28040#21152#20837 end end object XPMenu1: TXPMenu Font.Charset = GB2312_CHARSET Font.Color = clMenuText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Color = 15189677 IconBackColor = 15189677 MenuBarColor = 15189677 SelectColor = 14139102 SelectBorderColor = clHighlight SelectFontColor = clMenuText DisabledColor = clInactiveCaption SeparatorColor = 13485965 CheckedColor = clHighlight IconWidth = 24 DrawSelect = True UseSystemColors = False OverrideOwnerDraw = False Gradient = True FlatMenu = True AutoDetect = True Active = True Left = 21 Top = 92 end object t_ch_cust_befbal_sum: TADOQuery Connection = frm_main.db CursorType = ctStatic Parameters = < item Name = #23458#25143#21517#31216 Attributes = [paNullable] DataType = ftString NumericScale = 255 Precision = 255 Size = 20 Value = Null end> SQL.Strings = ( 'select '#23458#25143#21517#31216','#24065#21035',sum('#39044#25910#37329#39069') as '#39044#25910#37329#39069' from t_ch_cust_befbal' 'where '#23458#25143#21517#31216'=:'#23458#25143#21517#31216 'group by '#23458#25143#21517#31216','#24065#21035 '') Left = 456 Top = 244 end object t_ch_cust_befbal_sum1: TDataSource DataSet = t_ch_cust_befbal_sum Left = 384 Top = 320 end object t_ch_cust_befbal1: TDataSource DataSet = t_ch_cust_befbal Left = 200 Top = 244 end object t_ch_cust_befbal: TADOQuery Connection = frm_main.db CursorType = ctStatic Parameters = < item Name = #24080#21333#32534#21495 Attributes = [paNullable] DataType = ftString NumericScale = 255 Precision = 255 Size = 12 Value = Null end> SQL.Strings = ( 'select * from t_ch_cust_befbal' 'where '#24080#21333#32534#21495'=:'#24080#21333#32534#21495) Left = 84 Top = 228 end object PopupMenu2: TPopupMenu OwnerDraw = True Left = 492 Top = 156 object MenuItem1: TMenuItem Caption = #36153#29992#21015#34920#21462#28040#21152#20837 OnClick = MenuItem1Click end end object PopupMenu3: TPopupMenu OwnerDraw = True Left = 376 Top = 256 object N7: TMenuItem Caption = #36153#29992#21015#34920#21152#20837 Visible = False OnClick = N7Click end object N2: TMenuItem Caption = '-' end object N3: TMenuItem Caption = #36153#29992#37096#20998#21152#20837 OnClick = N3Click end end object t_ch_cust_befbalnew: TADOQuery Connection = frm_main.db CursorType = ctStatic Parameters = <> SQL.Strings = ( 'select top 0 * from t_ch_cust_befbal' '') Left = 136 Top = 292 end object t_rate: TRxMemoryData FieldDefs = < item Name = 'currency' DataType = ftString Size = 20 end item Name = 'rate' DataType = ftFloat end> Left = 214 Top = 356 end end