object frm_rp_op_ttl: Tfrm_rp_op_ttl Left = 75 Top = 143 Width = 1186 Height = 642 Align = alClient Caption = #32508#21512#32479#35745 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Visible = True OnClose = FormClose PixelsPerInch = 96 TextHeight = 12 object main_pool: TPanel Left = 0 Top = 0 Width = 1170 Height = 604 Align = alClient BevelInner = bvLowered TabOrder = 0 object Panel1: TPanel Left = 2 Top = 2 Width = 1166 Height = 29 Align = alTop BevelInner = bvLowered TabOrder = 0 object Label11: TLabel Left = 20 Top = 9 Width = 48 Height = 12 Caption = #24320#33337#26085#26399 Transparent = True end object Label12: TLabel Left = 178 Top = 9 Width = 12 Height = 12 Caption = #33267 Transparent = True end object Label1: TLabel Left = 319 Top = 9 Width = 48 Height = 12 Caption = #36134#40836#26085#26399 Transparent = True end object Label213: TLabel Left = 488 Top = 10 Width = 48 Height = 12 Caption = #22996#25176#21333#20301 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False Transparent = True end object bsSkinButton1: TbsSkinButton Left = 828 Top = 2 Width = 75 Height = 25 TabOrder = 0 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 = #26816#32034#25968#25454 NumGlyphs = 2 Spacing = 1 OnClick = bsSkinButton1Click end object bsSkinButton2: TbsSkinButton Left = 906 Top = 1 Width = 75 Height = 25 TabOrder = 1 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 = #23384#20026#25991#20214 NumGlyphs = 2 Spacing = 1 OnClick = bsSkinButton2Click end object bsSkinButton3: TbsSkinButton Left = 984 Top = 1 Width = 75 Height = 25 TabOrder = 2 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 = #25171#21360 NumGlyphs = 2 Spacing = 1 OnClick = bsSkinButton3Click end object bsSkinButton4: TbsSkinButton Left = 1063 Top = 0 Width = 75 Height = 25 TabOrder = 3 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 = #20851#38381 NumGlyphs = 2 Spacing = 1 OnClick = bsSkinButton4Click end object wwDBDateTimePicker1: TwwDBDateTimePicker Left = 72 Top = 5 Width = 102 Height = 20 CalendarAttributes.Font.Charset = DEFAULT_CHARSET CalendarAttributes.Font.Color = clWindowText CalendarAttributes.Font.Height = -11 CalendarAttributes.Font.Name = 'MS Sans Serif' CalendarAttributes.Font.Style = [] Epoch = 1950 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ShowButton = True TabOrder = 4 end object wwDBDateTimePicker2: TwwDBDateTimePicker Left = 194 Top = 5 Width = 117 Height = 20 CalendarAttributes.Font.Charset = DEFAULT_CHARSET CalendarAttributes.Font.Color = clWindowText CalendarAttributes.Font.Height = -11 CalendarAttributes.Font.Name = 'MS Sans Serif' CalendarAttributes.Font.Style = [] Epoch = 1950 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ShowButton = True TabOrder = 5 end object wwDBDateTimePicker3: TwwDBDateTimePicker Left = 371 Top = 6 Width = 110 Height = 20 CalendarAttributes.Font.Charset = DEFAULT_CHARSET CalendarAttributes.Font.Color = clWindowText CalendarAttributes.Font.Height = -11 CalendarAttributes.Font.Name = 'MS Sans Serif' CalendarAttributes.Font.Style = [] Epoch = 1950 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ShowButton = True TabOrder = 6 end object RxDBLookupCombo57: TRxDBLookupCombo Left = 540 Top = 4 Width = 170 Height = 20 DropDownCount = 20 DropDownWidth = 200 DisplayAllFields = True Color = clWhite DisplayEmpty = '<'#26080'>' Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 LookupField = #23458#25143#31616#31216 LookupDisplay = #20195#30721';'#23458#25143#31616#31216 LookupSource = frm_data_share.t_crm_client_weituo1 ParentFont = False TabOrder = 7 end object CheckBox1: TCheckBox Left = 719 Top = 6 Width = 97 Height = 17 Caption = #26174#31034#36153#29992#26126#32454 TabOrder = 8 end end object dxDBGrid2: TdxDBGrid Left = 2 Top = 31 Width = 1166 Height = 543 Bands = < item end> DefaultLayout = True HeaderPanelRowCount = 1 KeyField = 'ORDNO' ShowGroupPanel = True ShowSummaryFooter = True SummaryGroups = < item DefaultGroup = True SummaryItems = < item ColumnName = 'dxDBGrid2Column8' SummaryType = cstCount end item ColumnName = 'dxDBGrid2Column12' SummaryType = cstSum end item ColumnName = 'dxDBGrid2Column14' SummaryType = cstSum end item ColumnName = 'dxDBGrid2Column18' SummaryType = cstCount end> Name = 'dxDBGrid2SummaryGroup2' end> SummarySeparator = ', ' Align = alClient Color = clWhite TabOrder = 1 DataSource = memtbl1 Filter.Active = True Filter.Criteria = {00000000} OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks] ShowRowFooter = True object dxDBGrid2Column8: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 100 BandIndex = 0 RowIndex = 0 FieldName = #23458#25143#21517#31216 end object dxDBGrid2Column19: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 110 BandIndex = 0 RowIndex = 0 FieldName = #36134#21333#21040#26399#26085 end object dxDBGrid2Column18: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 100 BandIndex = 0 RowIndex = 0 FieldName = #23458#25143#36134#26399 SummaryFooterType = cstCount SummaryType = cstCount end object dxDBGrid2Column3: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 100 BandIndex = 0 RowIndex = 0 FieldName = #24320#33337#26085#26399 end object dxDBGrid2Column17: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 100 BandIndex = 0 RowIndex = 0 FieldName = #33337#21517 end object dxDBGrid2Column13: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 100 BandIndex = 0 RowIndex = 0 FieldName = #33322#27425 end object dxDBGrid2Column16: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 100 BandIndex = 0 RowIndex = 0 FieldName = #20027#25552#21333#21495 end object dxDBGrid2Column12: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 74 BandIndex = 0 RowIndex = 0 FieldName = 'USD' SummaryFooterType = cstSum end object dxDBGrid2Column14: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 68 BandIndex = 0 RowIndex = 0 FieldName = 'RMB' SummaryFooterType = cstSum end object dxDBGrid2Column9: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 100 BandIndex = 0 RowIndex = 0 FieldName = #36153#29992#21517#31216 end object dxDBGrid2Column10: TdxDBGridColumn HeaderAlignment = taCenter Width = 100 BandIndex = 0 RowIndex = 0 FieldName = #37329#39069 end object dxDBGrid2Column11: TdxDBGridColumn HeaderAlignment = taCenter ReadOnly = True Width = 76 BandIndex = 0 RowIndex = 0 FieldName = #24065#21035 end end object Panel2: TPanel Left = 2 Top = 574 Width = 1166 Height = 28 Align = alBottom TabOrder = 2 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 = 513 Top = 178 end object ADOQueryFee: TADOQuery Connection = frm_main.db Parameters = <> Left = 120 Top = 360 end object ADOQuerySelect: TADOQuery Connection = frm_main.db Parameters = <> SQL.Strings = ( 'select fee.'#23458#25143#21517#31216',fee.'#24065#21035',t_export.'#25597#36135#20154',t_export.'#22996#25176#32534#21495',v_y_li_bill.'#22996#25176 + #21333#20301',v_y_li_bill.'#24212#25910#37329#39069',v_y_li_bill.'#24212#20184#37329#39069',v_y_li_bill.'#24212#24471#21033#28070 ',case when v_y_li_bill.'#24212#25910#37329#39069'<>0 then v_y_li_bill.'#24212#24471#21033#28070'/v_y_li_bi' + 'll.'#24212#25910#37329#39069' else 0 end as '#21033#28070#29575 ',sum(fee.'#37329#39069'*fee.'#27719#29575') '#37329#39069',sum(fee.'#32467#31639#37329#39069'*fee.'#27719#29575') '#32467#31639#37329#39069 'from t_ch_accept fee' 'left Join t_export on t_export.'#36816#32534#21495'=fee.'#36816#32534#21495 'left Join v_y_li_bill on v_y_li_bill.'#36816#32534#21495'=fee.'#36816#32534#21495 'where t_export.'#24320#33337#26085#26399'>='#39'2012-12-23'#39'and t_export.'#24320#33337#26085#26399'<='#39'2012-01-22'#39 'group by fee.'#23458#25143#21517#31216',fee.'#24065#21035',t_export.'#25597#36135#20154',t_export.'#22996#25176#32534#21495',v_y_li_bill' + '.'#22996#25176#21333#20301',v_y_li_bill.'#24212#25910#37329#39069',v_y_li_bill.'#24212#20184#37329#39069',v_y_li_bill.'#24212#24471#21033#28070 ',case when v_y_li_bill.'#24212#25910#37329#39069'<>0 then v_y_li_bill.'#24212#24471#21033#28070'/v_y_li_bi' + 'll.'#24212#25910#37329#39069' else 0 end ') Left = 208 Top = 328 end object memtbl1: TDataSource DataSet = memtbl Left = 264 Top = 224 end object SaveDialog: TSaveDialog Left = 328 Top = 264 end object ADOQuerysum: TADOQuery Connection = dbsub Parameters = <> SQL.Strings = ( ' Select' ' sum('#27611#21033#28070') '#27611#21033#28070 ' from v_op_bscard' ' where '#20027#25552#21333#21495'=:'#20027#25552#21333#21495' and '#36153#29992#29366#24577'='#39#36153#29992#23553#24080#39) Left = 392 Top = 328 end object memtbl: TkbmMemTable DesignActivation = True AttachedAutoRefresh = True AttachMaxCount = 1 FieldDefs = < item Name = #25597#36135#20154 DataType = ftString Size = 20 end item Name = #20027#25552#21333#21495 DataType = ftString Size = 20 end item Name = #24320#33337#26085#26399 DataType = ftString Size = 20 end item Name = #32467#31639#26085#26399 DataType = ftString Size = 20 end item Name = #27611#21033#28070 DataType = ftFloat end item Name = #36229#26399#22825#25968 DataType = ftInteger end item Name = #21327#35758#22825#25968 DataType = ftInteger end item Name = #32534#21495 DataType = ftString Size = 20 end item Name = #23454#38469#36229#26399#22825#25968 DataType = ftInteger end item Name = #22996#25176#21333#20301 DataType = ftString Size = 20 end item Name = #36229#26399#26376 DataType = ftString Size = 10 end item Name = #25552#25104#27604#20363 DataType = ftFloat end item Name = #25552#25104 DataType = ftFloat end> IndexDefs = <> SortOptions = [] PersistentBackup = False ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy] FilterOptions = [] Version = '3.05' LanguageID = 0 SortID = 0 SubLanguageID = 1 LocaleID = 1024 Left = 695 Top = 303 object memtblORDNO: TIntegerField FieldName = 'ORDNO' end object memtblch_id: TIntegerField FieldName = 'ch_id' end object memtblField: TStringField FieldName = #32534#21495 end object memtblField2: TStringField FieldName = #22996#25176#21333#20301 end object memtblField3: TStringField FieldName = #20027#25552#21333#21495 end object memtblField4: TDateField FieldName = #24320#33337#26085#26399 end object memtblField5: TStringField FieldName = #33337#21517 Size = 60 end object memtblField6: TStringField FieldName = #33322#27425 end object memtblField7: TStringField FieldName = #21368#36135#28207 Size = 60 end object memtblField8: TStringField FieldName = #30446#30340#22320 Size = 60 end object memtblField9: TStringField FieldName = #23458#25143#21517#31216 end object memtblField10: TStringField FieldName = #36153#29992#21517#31216 end object memtblField11: TFloatField FieldName = #37329#39069 end object memtblField12: TStringField FieldName = #24065#21035 end object memtblField13: TStringField FieldName = #26631#20934 Size = 60 end object memtblField14: TStringField FieldName = #23458#25143#36134#26399 Size = 100 end object memtblField15: TDateField FieldName = #36134#21333#21040#26399#26085 end object memtblUSD: TFloatField FieldName = 'USD' end object memtblRMB: TFloatField FieldName = 'RMB' end end object dbsub: TADOConnection ConnectionString = 'Provider=SQLOLEDB.1;Password=ds20040201;Persist Security Info=Tr' + 'ue;User ID=sa;Initial Catalog=dongshengdata_jf;Data Source=LJP\S' + 'QL2005;Use Procedure for Prepare=1;Auto Translate=True;Packet Si' + 'ze=4096;Workstation ID=LJP;Use Encryption for Data=False;Tag wit' + 'h column collation when possible=False' ConnectionTimeout = 30 LoginPrompt = False Provider = 'SQLOLEDB.1' Left = 644 Top = 263 end end