hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '48f045977c'
${ noResults }
DS6JIEFENG/财务管理/u_ch_balance_query.pas

1028 lines
41 KiB
Plaintext
Raw Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

{$INCLUDE t_main.inc}
unit u_ch_balance_query;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, RxLookup, wwdbdatetimepicker,inifiles,
StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, ComCtrls, bsSkinTabs;
type
Tfrm_ch_balance_query = class(TForm)
bsSkinGroupBox1: TbsSkinGroupBox;
Label6: TLabel;
Label3: TLabel;
Label9: TLabel;
Label2: TLabel;
Label5: TLabel;
Label11: TLabel;
Label14: TLabel;
Label4: TLabel;
Label8: TLabel;
Label10: TLabel;
Label1: TLabel;
Label7: TLabel;
wwDBComboBox15: TwwDBComboBox;
Edit2: TEdit;
wwDBComboBox4: TwwDBComboBox;
Edit4: TEdit;
wwDBComboBox21: TwwDBComboBox;
RxDBLookupCombo2: TRxDBLookupCombo;
wwDBComboBox14: TwwDBComboBox;
wwDBComboBox11: TwwDBComboBox;
wwDBComboBox6: TwwDBComboBox;
RxDBLookupCombo1: TRxDBLookupCombo;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBDateTimePicker4: TwwDBDateTimePicker;
RxDBLookupCombo3: TRxDBLookupCombo;
RxDBLookupCombo4: TRxDBLookupCombo;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBDateTimePicker1: TwwDBDateTimePicker;
Edit1: TEdit;
wwDBComboBox1: TwwDBComboBox;
wwDBComboBox17: TwwDBComboBox;
wwDBComboBox2: TwwDBComboBox;
wwDBComboBox18: TwwDBComboBox;
wwDBComboBox19: TwwDBComboBox;
wwDBComboBox5: TwwDBComboBox;
wwDBComboBox3: TwwDBComboBox;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
Label12: TLabel;
Label13: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
wwDBComboBox7: TwwDBComboBox;
Edit3: TEdit;
wwDBComboBox8: TwwDBComboBox;
Edit5: TEdit;
wwDBComboBox16: TwwDBComboBox;
Edit6: TEdit;
wwDBComboBox9: TwwDBComboBox;
Edit7: TEdit;
wwDBComboBox10: TwwDBComboBox;
wwDBDateTimePicker5: TwwDBDateTimePicker;
wwDBComboBox12: TwwDBComboBox;
wwDBDateTimePicker6: TwwDBDateTimePicker;
wwDBDateTimePicker7: TwwDBDateTimePicker;
wwDBComboBox13: TwwDBComboBox;
wwDBDateTimePicker8: TwwDBDateTimePicker;
wwDBComboBox20: TwwDBComboBox;
wwDBComboBox24: TwwDBComboBox;
RxDBLookupCombo5: TRxDBLookupCombo;
wwDBComboBox22: TwwDBComboBox;
RxDBLookupCombo6: TRxDBLookupCombo;
RxDBLookupCombo7: TRxDBLookupCombo;
wwDBComboBox23: TwwDBComboBox;
wwDBComboBox25: TwwDBComboBox;
RxDBLookupCombo8: TRxDBLookupCombo;
bsSkinTabSheet2: TbsSkinTabSheet;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
wwDBComboBox26: TwwDBComboBox;
Edit8: TEdit;
wwDBComboBox27: TwwDBComboBox;
Edit9: TEdit;
wwDBComboBox28: TwwDBComboBox;
Edit10: TEdit;
wwDBComboBox29: TwwDBComboBox;
Edit11: TEdit;
wwDBComboBox30: TwwDBComboBox;
wwDBDateTimePicker9: TwwDBDateTimePicker;
wwDBComboBox31: TwwDBComboBox;
wwDBDateTimePicker10: TwwDBDateTimePicker;
wwDBComboBox32: TwwDBComboBox;
wwDBDateTimePicker11: TwwDBDateTimePicker;
wwDBComboBox33: TwwDBComboBox;
wwDBDateTimePicker12: TwwDBDateTimePicker;
RxDBLookupCombo9: TRxDBLookupCombo;
wwDBComboBox34: TwwDBComboBox;
RxDBLookupCombo10: TRxDBLookupCombo;
wwDBComboBox35: TwwDBComboBox;
wwDBComboBox36: TwwDBComboBox;
RxDBLookupCombo11: TRxDBLookupCombo;
wwDBComboBox37: TwwDBComboBox;
RxDBLookupCombo12: TRxDBLookupCombo;
bsSkinTabSheet3: TbsSkinTabSheet;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
wwDBComboBox38: TwwDBComboBox;
Edit12: TEdit;
wwDBComboBox39: TwwDBComboBox;
Edit13: TEdit;
Edit14: TEdit;
wwDBComboBox40: TwwDBComboBox;
Edit15: TEdit;
wwDBComboBox41: TwwDBComboBox;
wwDBComboBox42: TwwDBComboBox;
wwDBDateTimePicker13: TwwDBDateTimePicker;
wwDBComboBox43: TwwDBComboBox;
wwDBDateTimePicker14: TwwDBDateTimePicker;
wwDBDateTimePicker15: TwwDBDateTimePicker;
wwDBComboBox44: TwwDBComboBox;
wwDBDateTimePicker16: TwwDBDateTimePicker;
wwDBComboBox45: TwwDBComboBox;
wwDBComboBox46: TwwDBComboBox;
RxDBLookupCombo13: TRxDBLookupCombo;
wwDBComboBox47: TwwDBComboBox;
RxDBLookupCombo14: TRxDBLookupCombo;
RxDBLookupCombo15: TRxDBLookupCombo;
wwDBComboBox48: TwwDBComboBox;
RxDBLookupCombo16: TRxDBLookupCombo;
wwDBComboBox49: TwwDBComboBox;
bsSkinTabSheet4: TbsSkinTabSheet;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
wwDBComboBox50: TwwDBComboBox;
Edit16: TEdit;
wwDBComboBox51: TwwDBComboBox;
Edit17: TEdit;
Edit18: TEdit;
wwDBComboBox52: TwwDBComboBox;
Edit19: TEdit;
wwDBComboBox53: TwwDBComboBox;
wwDBComboBox54: TwwDBComboBox;
wwDBDateTimePicker17: TwwDBDateTimePicker;
wwDBComboBox55: TwwDBComboBox;
wwDBDateTimePicker18: TwwDBDateTimePicker;
wwDBDateTimePicker19: TwwDBDateTimePicker;
wwDBComboBox56: TwwDBComboBox;
wwDBDateTimePicker20: TwwDBDateTimePicker;
wwDBComboBox57: TwwDBComboBox;
wwDBComboBox58: TwwDBComboBox;
RxDBLookupCombo17: TRxDBLookupCombo;
wwDBComboBox59: TwwDBComboBox;
RxDBLookupCombo18: TRxDBLookupCombo;
RxDBLookupCombo19: TRxDBLookupCombo;
wwDBComboBox60: TwwDBComboBox;
RxDBLookupCombo20: TRxDBLookupCombo;
wwDBComboBox61: TwwDBComboBox;
bsSkinGroupBox2: TbsSkinGroupBox;
Label61: TLabel;
wwDBComboBox62: TwwDBComboBox;
Edit20: TEdit;
Label62: TLabel;
wwDBComboBox63: TwwDBComboBox;
RxDBLookupCombo21: TRxDBLookupCombo;
Label63: TLabel;
wwDBComboBox64: TwwDBComboBox;
wwDBDateTimePicker21: TwwDBDateTimePicker;
Label64: TLabel;
wwDBComboBox65: TwwDBComboBox;
wwDBDateTimePicker22: TwwDBDateTimePicker;
Label65: TLabel;
wwDBComboBox66: TwwDBComboBox;
Edit21: TEdit;
Label66: TLabel;
wwDBComboBox67: TwwDBComboBox;
Edit22: TEdit;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
Label67: TLabel;
Edit23: TEdit;
Label68: TLabel;
Edit24: TEdit;
Label69: TLabel;
Edit25: TEdit;
Label70: TLabel;
Edit26: TEdit;
Label71: TLabel;
wwDBComboBox68: TwwDBComboBox;
RxDBLookupCombo22: TRxDBLookupCombo;
Label72: TLabel;
Label73: TLabel;
wwDBComboBox69: TwwDBComboBox;
wwDBDateTimePicker23: TwwDBDateTimePicker;
wwDBDateTimePicker24: TwwDBDateTimePicker;
wwDBComboBox70: TwwDBComboBox;
Label74: TLabel;
wwDBComboBox71: TwwDBComboBox;
Edit27: TEdit;
procedure FormShow(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure wwDBComboBox15KeyPress(Sender: TObject; var Key: Char);
private
procedure loadFindIni ;
procedure writeFindIni ;
{ Private declarations }
public
{ Public declarations }
end;
var
frm_ch_balance_query: Tfrm_ch_balance_query;
balance_query_type:integer;
implementation
uses u_ch_balance_accept, u_ch_balance_pay, my_sys_function, u_data_share,
u_main,
{$IFDEF SFLIUCHENG}u_ch_balance_accept_deng, u_ch_balance_accept_hexiao, u_ch_balance_accept_check,{$ENDIF}
u_rp_ch_balance_accept, u_rp_ch_balance_pay, u_rp_ch_balance_detail;
{$R *.dfm}
procedure Tfrm_ch_balance_query.FormShow(Sender: TObject);
begin
loadFindIni;
wwDBComboBox15.text:='ģ<><C4A3>';
wwDBComboBox17.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox2.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox18.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox70.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox19.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox5.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox21.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox4.text:='ģ<><C4A3>';
wwDBComboBox3.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox6.text:='С<><D0A1>';
wwDBComboBox69.text:='С<><D0A1>';
wwDBComboBox11.text:='С<><D0A1>';
wwDBComboBox14.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox7.text:='ģ<><C4A3>';
wwDBComboBox16.text:='ģ<><C4A3>';
wwDBComboBox10.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox20.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox24.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox25.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox8.text:='ģ<><C4A3>';
wwDBComboBox9.text:='ģ<><C4A3>';
wwDBComboBox12.text:='С<><D0A1>';
wwDBComboBox13.text:='С<><D0A1>';
wwDBComboBox22.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox23.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox66.text:='ģ<><C4A3>';
wwDBComboBox67.text:='ģ<><C4A3>';
wwDBComboBox26.text:='ģ<><C4A3>';
wwDBComboBox28.text:='ģ<><C4A3>';
wwDBComboBox30.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox32.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox35.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox36.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox27.text:='ģ<><C4A3>';
wwDBComboBox29.text:='ģ<><C4A3>';
wwDBComboBox31.text:='С<><D0A1>';
wwDBComboBox33.text:='С<><D0A1>';
wwDBComboBox34.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox37.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox38.text:='ģ<><C4A3>';
wwDBComboBox39.text:='ģ<><C4A3>';
wwDBComboBox40.text:='ģ<><C4A3>';
wwDBComboBox41.text:='ģ<><C4A3>';
wwDBComboBox42.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox43.text:='С<><D0A1>';
wwDBComboBox44.text:='С<><D0A1>';
wwDBComboBox45.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox46.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox47.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox48.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox49.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox50.text:='ģ<><C4A3>';
wwDBComboBox51.text:='ģ<><C4A3>';
wwDBComboBox52.text:='ģ<><C4A3>';
wwDBComboBox53.text:='ģ<><C4A3>';
wwDBComboBox54.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox55.text:='С<><D0A1>';
wwDBComboBox56.text:='С<><D0A1>';
wwDBComboBox57.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox58.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox59.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox60.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox61.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox62.text:='ģ<><C4A3>';
wwDBComboBox63.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox64.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox65.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox68.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox71.text:='ģ<><C4A3>';
frm_data_share.t_crm_client_all.requery;
frm_data_share.t_code_currency.requery;
frm_data_share.t_sys_bank.requery;
frm_data_share.t_sys_employee.requery;
end;
procedure Tfrm_ch_balance_query.bsSkinButton10Click(Sender: TObject);
begin
Edit2.text:='';
wwDBComboBox1.text:='';
Edit1.text:='';
wwDBDateTimePicker1.Clear;
wwDBDateTimePicker3.Clear;
RxDBLookupCombo4.ClearValue;
Edit4.text:='';
RxDBLookupCombo2.ClearValue;
RxDBLookupCombo1.ClearValue;
wwDBDateTimePicker2.Clear;
wwDBDateTimePicker4.Clear;
RxDBLookupCombo3.ClearValue;
Edit22.text:='';
Edit21.text:='';
Edit3.text:='';
Edit5.text:='';
Edit6.text:='';
Edit7.text:='';
Edit8.text:='';
Edit9.text:='';
Edit10.text:='';
Edit11.text:='';
Edit12.text:='';
Edit13.text:='';
Edit14.text:='';
Edit15.text:='';
Edit16.text:='';
Edit17.text:='';
Edit18.text:='';
Edit19.text:='';
wwDBDateTimePicker5.Clear;
wwDBDateTimePicker6.Clear;
wwDBDateTimePicker7.Clear;
wwDBDateTimePicker8.Clear;
wwDBDateTimePicker9.Clear;
wwDBDateTimePicker10.Clear;
wwDBDateTimePicker11.Clear;
wwDBDateTimePicker12.Clear;
wwDBDateTimePicker13.Clear;
wwDBDateTimePicker14.Clear;
wwDBDateTimePicker15.Clear;
wwDBDateTimePicker16.Clear;
wwDBDateTimePicker17.Clear;
wwDBDateTimePicker18.Clear;
wwDBDateTimePicker19.Clear;
wwDBDateTimePicker20.Clear;
RxDBLookupCombo5.ClearValue;
RxDBLookupCombo6.ClearValue;
RxDBLookupCombo7.ClearValue;
RxDBLookupCombo8.ClearValue;
RxDBLookupCombo9.ClearValue;
RxDBLookupCombo10.ClearValue;
RxDBLookupCombo11.ClearValue;
RxDBLookupCombo12.ClearValue;
RxDBLookupCombo13.ClearValue;
RxDBLookupCombo14.ClearValue;
RxDBLookupCombo15.ClearValue;
RxDBLookupCombo16.ClearValue;
RxDBLookupCombo17.ClearValue;
RxDBLookupCombo18.ClearValue;
RxDBLookupCombo19.ClearValue;
RxDBLookupCombo20.ClearValue;
Edit20.text:='';
RxDBLookupCombo21.ClearValue;
wwDBDateTimePicker21.text:='';
wwDBDateTimePicker22.text:='';
Edit27.text:='';
wwDBComboBox27.text:='';
end;
procedure Tfrm_ch_balance_query.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_balance_query.bsSkinButton1Click(Sender: TObject);
var
shen_string,op_string,aa_str,bb_str:widestring;
begin
writeFindIni;
shen_string:='';
op_string:='';
case balance_query_type of
1:
begin
shen_string:='where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD><EFBFBD>'+'''';
end;
2:
begin
shen_string:='where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD><EFBFBD>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+'''';
end;
3,6:
begin
shen_string:='where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+'''';
end;
4,7:
begin
shen_string:='where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+'''';
end;
5:
begin
shen_string:='where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD><EFBFBD>'+'''';
end;
8:
begin
shen_string:='where 1=1 ';
end;
end;
aa_str:=query_tiaojian(1,aa_str,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox62.text,Edit20.text);
aa_str:=query_tiaojian(1,aa_str,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox63.text,RxDBLookupCombo21.DisplayValues[0]);
aa_str:=query_tiaojian(1,aa_str,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox64.text,wwDBDateTimePicker21.text);
aa_str:=query_tiaojian(1,aa_str,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox65.text,wwDBDateTimePicker22.text);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>',wwDBComboBox67.text,Edit22.text);
shen_string:=query_tiaojian(1,shen_string,'<27>ʵ<EFBFBD>״̬',wwDBComboBox17.text,wwDBComboBox1.text);
shen_string:=query_tiaojian(2,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox2.text,Edit1.text);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox18.text,wwDBDateTimePicker1.text);
shen_string:=query_tiaojian(1,shen_string,'ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>',wwDBComboBox70.text,wwDBDateTimePicker24.text);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox19.text,wwDBDateTimePicker3.text);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox5.text,RxDBLookupCombo4.DisplayValues[0]);
shen_string:=query_tiaojian(1,shen_string,'ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>',wwDBComboBox4.text,Edit4.text);
shen_string:=query_tiaojian(1,shen_string,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]);
shen_string:=query_tiaojian(1,shen_string,'<27>ұ<EFBFBD>',wwDBComboBox3.text,RxDBLookupCombo1.DisplayValues[0]);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox6.text,wwDBDateTimePicker2.text);
shen_string:=query_tiaojian(1,shen_string,'ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>',wwDBComboBox69.text,wwDBDateTimePicker23.text);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox11.text,wwDBDateTimePicker4.text);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox14.text,RxDBLookupCombo3.DisplayValues[0]);
shen_string:=query_tiaojian(1,shen_string,'<27><>ע',wwDBComboBox71.text,Edit27.text);
if shen_string='' then
shen_string:='where '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no')
else
shen_string:=shen_string+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no');
if (Edit2.text<>'')and(Edit21.text<>'') then
begin
if shen_string='' then
shen_string:='where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> between '+''''+Edit2.text+''''+' and '+''''+Edit21.text+''''
else
shen_string:=shen_string+' and <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> between '+''''+Edit2.text+''''+' and '+''''+Edit21.text+'''';
end
else
begin
shen_string:=query_tiaojian(1,shen_string,'<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox15.text,Edit2.text);
shen_string:=query_tiaojian(1,shen_string,'<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox66.text,Edit21.text);
end;
if bsSkinTabSheet1.Showing then
begin
op_string:=query_tiaojian(1,op_string,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox7.text,Edit3.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox16.text,Edit6.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox10.text,wwDBDateTimePicker5.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox20.text,wwDBDateTimePicker8.text);
op_string:=query_tiaojian(1,op_string,'<27>ͷ<EFBFBD>Ա',wwDBComboBox24.text,RxDBLookupCombo5.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD>Ա',wwDBComboBox25.text,RxDBLookupCombo8.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox8.text,Edit5.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox9.text,Edit7.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox12.text,wwDBDateTimePicker6.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox13.text,wwDBDateTimePicker7.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox22.text,RxDBLookupCombo6.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'¼<><C2BC><EFBFBD><EFBFBD>',wwDBComboBox23.text,RxDBLookupCombo7.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox68.text,RxDBLookupCombo22.DisplayValue);
if Edit23.Text<>'' then begin
if trim(op_string)<>'' then begin
op_string:=op_string+' and (t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit23.text+'%'+''' or t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit23.text+'%'+''' or t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit23.text+'%'+''')';
end else begin
op_string:=' where (t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit23.text+'%'+''' or t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit23.text+'%'+''' or t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit23.text+'%'+''')';
end;
end;
if trim(op_string)<>''then
begin
op_string:='(select <20><><EFBFBD><EFBFBD> from t_op_seae '+op_string+')';
end;
end;
if bsSkinTabSheet2.Showing then
begin
op_string:=query_tiaojian(1,op_string,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox26.text,Edit8.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox28.text,Edit10.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox30.text,wwDBDateTimePicker9.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox32.text,wwDBDateTimePicker11.text);
op_string:=query_tiaojian(1,op_string,'<27>ͷ<EFBFBD>Ա',wwDBComboBox35.text,RxDBLookupCombo10.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD>Ա',wwDBComboBox36.text,RxDBLookupCombo11.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox27.text,Edit9.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox29.text,Edit11.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox31.text,wwDBDateTimePicker10.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox33.text,wwDBDateTimePicker12.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox34.text,RxDBLookupCombo9.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'¼<><C2BC><EFBFBD><EFBFBD>',wwDBComboBox37.text,RxDBLookupCombo12.DisplayValues[0]);
if Edit24.Text<>'' then begin
if trim(op_string)<>'' then begin
op_string:=op_string+' and (t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit24.text+'%'+''' or t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit24.text+'%'+''' or t_op_seai.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit24.text+'%'+''')';
end else begin
op_string:=' where (t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit24.text+'%'+''' or t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit24.text+'%'+''' or t_op_seai.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit24.text+'%'+''')';
end;
end;
if trim(op_string)<>''then
op_string:='(select <20><><EFBFBD><EFBFBD> from t_op_seai '+op_string+')';
end;
if bsSkinTabSheet3.Showing then
begin
op_string:=query_tiaojian(1,op_string,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox38.text,Edit12.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>',wwDBComboBox41.text,Edit15.text);
op_string:=query_tiaojian(1,op_string,'ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox39.text,Edit13.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>',wwDBComboBox40.text,Edit14.text);
op_string:=query_tiaojian(1,op_string,'һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox42.text,wwDBDateTimePicker13.text);
op_string:=query_tiaojian(1,op_string,'һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox43.text,wwDBDateTimePicker14.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox45.text,wwDBDateTimePicker16.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox44.text,wwDBDateTimePicker15.text);
op_string:=query_tiaojian(1,op_string,'<27>ͷ<EFBFBD>Ա',wwDBComboBox46.text,RxDBLookupCombo13.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD>Ա',wwDBComboBox49.text,RxDBLookupCombo16.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox47.text,RxDBLookupCombo14.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'¼<><C2BC><EFBFBD><EFBFBD>',wwDBComboBox48.text,RxDBLookupCombo15.DisplayValues[0]);
if Edit25.Text<>'' then begin
if trim(op_string)<>'' then begin
op_string:=op_string+' and (t_op_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit25.text+'%'+''' or t_op_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit25.text+'%'+''' or t_op_aire.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit25.text+'%'+''')';
end else begin
op_string:=' where (t_op_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit25.text+'%'+''' or t_op_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit25.text+'%'+''' or t_op_aire.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit25.text+'%'+''')';
end;
end;
if trim(op_string)<>''then
op_string:='(select <20><><EFBFBD><EFBFBD> from t_op_aire '+op_string+')';
end;
if bsSkinTabSheet4.Showing then
begin
op_string:=query_tiaojian(1,op_string,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox50.text,Edit16.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>',wwDBComboBox53.text,Edit19.text);
op_string:=query_tiaojian(1,op_string,'ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox51.text,Edit17.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>',wwDBComboBox52.text,Edit18.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox54.text,wwDBDateTimePicker17.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox55.text,wwDBDateTimePicker18.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox57.text,wwDBDateTimePicker20.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox56.text,wwDBDateTimePicker19.text);
op_string:=query_tiaojian(1,op_string,'<27>ͷ<EFBFBD>Ա',wwDBComboBox58.text,RxDBLookupCombo17.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD>Ա',wwDBComboBox61.text,RxDBLookupCombo20.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox59.text,RxDBLookupCombo18.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'¼<><C2BC><EFBFBD><EFBFBD>',wwDBComboBox60.text,RxDBLookupCombo19.DisplayValues[0]);
if Edit26.Text<>'' then begin
if trim(op_string)<>'' then begin
op_string:=op_string+' and (t_op_airi.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit26.text+'%'+''' or t_op_airi.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit26.text+'%'+''' or t_op_airi.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit26.text+'%'+''')';
end else begin
op_string:=' where (t_op_airi.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit26.text+'%'+''' or t_op_airi.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit26.text+'%'+''' or t_op_airi.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit26.text+'%'+''')';
end;
end;
if trim(op_string)<>''then
op_string:='(select <20><><EFBFBD><EFBFBD> from t_op_airi '+op_string+')';
end;
if (balance_query_type=6)or(balance_query_type=7) then
begin
if trim(op_string)<>''then
begin
if trim(shen_string)='' then
shen_string:='where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where <20><><EFBFBD><EFBFBD>='+''''+inttostr(balance_query_type-3)+''''
+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+op_string+')'
else
shen_string:=shen_string+' and <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where <20><><EFBFBD><EFBFBD>='+''''+inttostr(balance_query_type-3)+''''
+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+op_string+')' ;
end;
end
else if (balance_query_type<>8) then
begin
if trim(op_string)<>''then
begin
if trim(shen_string)='' then
shen_string:='where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where <20><><EFBFBD><EFBFBD>='+''''+inttostr(balance_query_type)+''''
+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+op_string+')'
else
shen_string:=shen_string+' and <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where <20><><EFBFBD><EFBFBD>='+''''+inttostr(balance_query_type)+''''
+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+op_string+')' ;
end;
end;
{
if (balance_query_type=8) then begin
if trim(op_string)<>''then
begin
if trim(shen_string)='' then
shen_string:='where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+op_string+')'
else
shen_string:=shen_string+' and <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+op_string+')' ;
end;
end;
}
if aa_str<>''then
begin
if trim(shen_string)='' then
shen_string:='where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in (select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_check '+aa_str+')'
else
shen_string:=shen_string+' and <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in (select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_check '+aa_str+')';
end;
case balance_query_type of
{$IFDEF SFLIUCHENG}
1:
begin
frm_ch_balance_accept_deng.t_ch_balance.Close;
frm_ch_balance_accept_deng.t_ch_balance.sql.clear;
frm_ch_balance_accept_deng.t_ch_balance.sql.add('select * from t_ch_balance '+shen_string+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_balance_accept_deng.t_ch_balance.open;
if frm_ch_balance_accept_deng.t_ch_balance.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
2:
begin
frm_ch_balance_accept_hexiao.t_ch_balance.Close;
frm_ch_balance_accept_hexiao.t_ch_balance.sql.clear;
frm_ch_balance_accept_hexiao.t_ch_balance.sql.add('select * from t_ch_balance '+shen_string+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_balance_accept_hexiao.t_ch_balance.open;
if frm_ch_balance_accept_hexiao.t_ch_balance.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
{$ENDIF}
3:
begin
frm_ch_balance_accept.t_ch_balance.Close;
frm_ch_balance_accept.t_ch_balance.sql.clear;
frm_ch_balance_accept.t_ch_balance.sql.add('select * from t_ch_balance '+shen_string+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_balance_accept.t_ch_balance.open;
if frm_ch_balance_accept.t_ch_balance.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
4:
begin
frm_ch_balance_pay.t_ch_balance.Close;
frm_ch_balance_pay.t_ch_balance.sql.clear;
frm_ch_balance_pay.t_ch_balance.sql.add('select * from t_ch_balance '+shen_string+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_balance_pay.t_ch_balance.open;
if frm_ch_balance_pay.t_ch_balance.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
{$IFDEF SFLIUCHENG}
5:
begin
frm_ch_balance_accept_check.t_ch_balance.Close;
frm_ch_balance_accept_check.t_ch_balance.sql.clear;
frm_ch_balance_accept_check.t_ch_balance.sql.add('select * from t_ch_balance '+shen_string+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_balance_accept_check.t_ch_balance.open;
if frm_ch_balance_accept_check.t_ch_balance.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
{$ENDIF}
6:
begin
frm_rp_ch_balance_accept.p_detail.Close;
frm_rp_ch_balance_accept.p_detail.Parameters.ParamByName('SQLStr').value:=
'select * from t_ch_balance '+shen_string+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc';
frm_rp_ch_balance_accept.p_detail.open;
frm_rp_ch_balance_accept.p_detail_fee.Close;
frm_rp_ch_balance_accept.p_detail_fee.Parameters.ParamByName('SQLStr').value:=
'select * from v_fee_do_bscard_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+') order by <20><><EFBFBD><EFBFBD> desc';
frm_rp_ch_balance_accept.p_detail_fee.open;
frm_rp_ch_balance_accept.p_detail_bill.Close;
frm_rp_ch_balance_accept.p_detail_bill.Parameters.ParamByName('SQLStr').value:=
'select <20><><EFBFBD><EFBFBD>,ҵ<><D2B5>״̬,<2C><><EFBFBD><EFBFBD>״̬,<2C>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,װ<>˷<EFBFBD>ʽ,ί<>е<EFBFBD>λ,'+
'<27><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,װ<><D7B0><EFBFBD><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><>װ<EFBFBD><D7B0>,¼<><C2BC><EFBFBD><EFBFBD>, ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'+
'<27><><EFBFBD><EFBFBD>Ա,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ͷ<EFBFBD>Ա,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> as <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>㷽ʽ,<2C><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>,<2C><><EFBFBD><EFBFBD>,'+
' SUM(case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,SUM(case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then 0 else ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD> '+
'from v_fee_do_bscard_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+') '+
'Group by <20><><EFBFBD><EFBFBD>,ҵ<><D2B5>״̬,<2C><><EFBFBD><EFBFBD>״̬,<2C>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,װ<>˷<EFBFBD>ʽ,ί<>е<EFBFBD>λ,'+
'<27><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,װ<><D7B0><EFBFBD><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><>װ<EFBFBD><D7B0>,¼<><C2BC><EFBFBD><EFBFBD>, ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, '+
'<27><><EFBFBD><EFBFBD>Ա,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ͷ<EFBFBD>Ա,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>㷽ʽ,<2C><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>,<2C><><EFBFBD><EFBFBD> '+
'order by <20><><EFBFBD><EFBFBD> desc';
frm_rp_ch_balance_accept.p_detail_bill.open;
frm_rp_ch_balance_accept.p_sales.Close;
frm_rp_ch_balance_accept.p_sales.Parameters.ParamByName('SQLStr').value:=
'select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ұ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_sales where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in ('
+'select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+') group by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ұ<EFBFBD> order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ұ<EFBFBD>';
frm_rp_ch_balance_accept.p_sales.open;
if StrToBool(get_parameters_value(83,'false')) then begin
frm_rp_ch_balance_accept.p_currency.Close;
frm_rp_ch_balance_accept.p_currency.Parameters.ParamByName('SQLStr').value:=
'select sum(<28><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>'
+',count(<28>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_ch_balance '+shen_string;
frm_rp_ch_balance_accept.p_currency.open;
end else begin
frm_rp_ch_balance_accept.p_currency.Close;
frm_rp_ch_balance_accept.p_currency.Parameters.ParamByName('SQLStr').value:=
'select <20>ұ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+',count(<28>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+' group by <20>ұ<EFBFBD> order by <20>ұ<EFBFBD>';
frm_rp_ch_balance_accept.p_currency.open;
end;
frm_rp_ch_balance_accept_str:=shen_string;
frm_rp_ch_balance_accept.RadioGroup1Click(Sender);
if frm_rp_ch_balance_accept.p_detail.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
7:
begin
frm_rp_ch_balance_pay.p_detail.Close;
frm_rp_ch_balance_pay.p_detail.Parameters.ParamByName('SQLStr').value:=
'select * from t_ch_balance '+shen_string+' order by <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> desc';
frm_rp_ch_balance_pay.p_detail.open;
frm_rp_ch_balance_pay.p_detail_fee.Close;
frm_rp_ch_balance_pay.p_detail_fee.Parameters.ParamByName('SQLStr').value:=
'select * from v_fee_do_bscard_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+') order by <20><><EFBFBD><EFBFBD> desc';
frm_rp_ch_balance_pay.p_detail_fee.open;
frm_rp_ch_balance_pay.p_detail_bill.Close;
frm_rp_ch_balance_pay.p_detail_bill.Parameters.ParamByName('SQLStr').value:=
'select <20><><EFBFBD><EFBFBD>,ҵ<><D2B5>״̬,<2C><><EFBFBD><EFBFBD>״̬,<2C>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,װ<>˷<EFBFBD>ʽ,ί<>е<EFBFBD>λ,'+
'<27><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,װ<><D7B0><EFBFBD><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><>װ<EFBFBD><D7B0>,¼<><C2BC><EFBFBD><EFBFBD>, ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'+
'<27><><EFBFBD><EFBFBD>Ա,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ͷ<EFBFBD>Ա,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> as <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>㷽ʽ,<2C><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>,<2C><><EFBFBD><EFBFBD>,'+
' SUM(case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,SUM(case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then 0 else ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD> '+
'from v_fee_do_bscard_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+') '+
'Group by <20><><EFBFBD><EFBFBD>,ҵ<><D2B5>״̬,<2C><><EFBFBD><EFBFBD>״̬,<2C>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,װ<>˷<EFBFBD>ʽ,ί<>е<EFBFBD>λ,'+
'<27><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,װ<><D7B0><EFBFBD><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><>װ<EFBFBD><D7B0>,¼<><C2BC><EFBFBD><EFBFBD>, ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, '+
'<27><><EFBFBD><EFBFBD>Ա,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ͷ<EFBFBD>Ա,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>㷽ʽ,<2C><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>,<2C><><EFBFBD><EFBFBD> '+
'order by <20><><EFBFBD><EFBFBD> desc';
frm_rp_ch_balance_pay.p_detail_bill.open;
frm_rp_ch_balance_pay.p_sales.Close;
frm_rp_ch_balance_pay.p_sales.Parameters.ParamByName('SQLStr').value:=
'select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ұ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_sales where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> in ('
+'select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+') group by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ұ<EFBFBD> order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ұ<EFBFBD>';
frm_rp_ch_balance_pay.p_sales.open;
if StrToBool(get_parameters_value(83,'false')) then begin
frm_rp_ch_balance_pay.p_currency.Close;
frm_rp_ch_balance_pay.p_currency.Parameters.ParamByName('SQLStr').value:=
'select sum(<28><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>'
+',count(<28>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_ch_balance '+shen_string;
frm_rp_ch_balance_pay.p_currency.open;
end else begin
frm_rp_ch_balance_pay.p_currency.Close;
frm_rp_ch_balance_pay.p_currency.Parameters.ParamByName('SQLStr').value:=
'select <20>ұ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+',count(<28>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+' group by <20>ұ<EFBFBD> order by <20>ұ<EFBFBD>';
frm_rp_ch_balance_pay.p_currency.open;
end;
frm_rp_ch_balance_pay_str:=shen_string;
frm_rp_ch_balance_pay.RadioGroup1Click(Sender);
if frm_rp_ch_balance_pay.p_detail.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
8:
begin
if op_string<>'' then
bb_str:=' and <20><><EFBFBD><EFBFBD> in '+op_string
else
bb_str:=' and 1=1 ';
frm_rp_ch_balance_detail.p_detail_fee.Close;
frm_rp_ch_balance_detail.p_detail_fee.Parameters.ParamByName('SQLStr').value:=
'select * from v_fee_do_bscard_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+') '+bb_str+' order by <20><><EFBFBD><EFBFBD> desc';
frm_rp_ch_balance_detail.p_detail_fee.open;
frm_rp_ch_balance_detail.p_detail_bill.Close;
frm_rp_ch_balance_detail.p_detail_bill.Parameters.ParamByName('SQLStr').value:=
'select <20><><EFBFBD><EFBFBD>,ҵ<><D2B5>״̬,<2C><><EFBFBD><EFBFBD>״̬,<2C>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,װ<>˷<EFBFBD>ʽ,ί<>е<EFBFBD>λ,'+
'<27><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,װ<><D7B0><EFBFBD><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><>װ<EFBFBD><D7B0>,¼<><C2BC><EFBFBD><EFBFBD>, ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'+
'<27><><EFBFBD><EFBFBD>Ա,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ͷ<EFBFBD>Ա,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> as <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>㷽ʽ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>,<2C><><EFBFBD><EFBFBD>,'+
' SUM(case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,SUM(case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then 0 else ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD> '+
'from v_fee_do_bscard_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+') '+bb_str+
'Group by <20><><EFBFBD><EFBFBD>,ҵ<><D2B5>״̬,<2C><><EFBFBD><EFBFBD>״̬,<2C>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,װ<>˷<EFBFBD>ʽ,ί<>е<EFBFBD>λ,'+
'<27><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,װ<><D7B0><EFBFBD><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><>װ<EFBFBD><D7B0>,¼<><C2BC><EFBFBD><EFBFBD>, ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, '+
'<27><><EFBFBD><EFBFBD>Ա,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ͷ<EFBFBD>Ա,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>㷽ʽ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>,<2C><><EFBFBD><EFBFBD> '+
'order by <20><><EFBFBD><EFBFBD> desc';
frm_rp_ch_balance_detail.p_detail_bill.open;
frm_rp_ch_balance_detail.p_detail.Close;
frm_rp_ch_balance_detail.p_detail.Parameters.ParamByName('SQLStr').value:=
'select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,'+
' SUM(case <20><><EFBFBD><EFBFBD> when ''<27><>'' then (case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'+
' SUM(case <20><><EFBFBD><EFBFBD> when ''<27><>'' then (case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then 0 else ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> end) else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>, '+
' SUM(case <20><><EFBFBD><EFBFBD> when ''<27><>'' then (case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) else 0 end) as <20>Ѹ<EFBFBD><D1B8><EFBFBD>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'+
' SUM(case <20><><EFBFBD><EFBFBD> when ''<27><>'' then (case ԭʼ<D4AD>ұ<EFBFBD> when ''USD'' then 0 else ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> end) else 0 end) as <20>Ѹ<EFBFBD><D1B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD> '+
'from v_fee_do_bscard_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD> from t_ch_balance '+shen_string+') '+bb_str+
'Group by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> '+
'order by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> ';
frm_rp_ch_balance_detail.p_detail.open;
if frm_rp_ch_balance_detail.p_detail_fee.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
end;
close;
end;
procedure Tfrm_ch_balance_query.wwDBComboBox15KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
key:=#0;
frm_ch_balance_query.bsSkinButton1Click(Sender);
end;
end;
procedure Tfrm_ch_balance_query.loadFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
i:integer ;
begin
mysec:=inttostr(balance_query_type) ;
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'chbalancequery.ini');
try
canload:=findini.ReadBool(mysec,mysec,false);
bsSkinCheckRadioBox1.Checked:=canload ;
if canload then
begin
with bsSkinGroupBox1 do
for i:=0 to ControlCount-1 do
begin
tmpname:=Controls[i].Name ;
if Controls[i] is TwwDBComboBox then
(Controls[i] as TwwDBComboBox).Text:=findini.ReadString(mysec,TmpName,'') else
if Controls[i] is TEdit then
(Controls[i] as TEdit).Text:=findini.ReadString(mysec,TmpName,'') else
if Controls[i] is TwwDBDateTimePicker then
(Controls[i] as TwwDBDateTimePicker).Date:=strtodate(findini.ReadString(mysec,TmpName,'')) else
if Controls[i] is TRxDBLookupCombo then
(Controls[i] as TRxDBLookupCombo).Value:=findini.ReadString(mysec,TmpName,'') ;
end ;
with bsSkinGroupBox2 do
for i:=0 to ControlCount-1 do
begin
tmpname:=Controls[i].Name ;
if Controls[i] is TwwDBComboBox then
(Controls[i] as TwwDBComboBox).Text:=findini.ReadString(mysec,TmpName,'') else
if Controls[i] is TEdit then
(Controls[i] as TEdit).Text:=findini.ReadString(mysec,TmpName,'') else
if Controls[i] is TwwDBDateTimePicker then
(Controls[i] as TwwDBDateTimePicker).Date:=strtodate(findini.ReadString(mysec,TmpName,'')) else
if Controls[i] is TRxDBLookupCombo then
(Controls[i] as TRxDBLookupCombo).Value:=findini.ReadString(mysec,TmpName,'') ;
end ;
with bsSkinPageControl1 do
for i:=0 to ControlCount-1 do
begin
tmpname:=Controls[i].Name ;
if Controls[i] is TwwDBComboBox then
(Controls[i] as TwwDBComboBox).Text:=findini.ReadString(mysec,TmpName,'') else
if Controls[i] is TEdit then
(Controls[i] as TEdit).Text:=findini.ReadString(mysec,TmpName,'') else
if Controls[i] is TwwDBDateTimePicker then
(Controls[i] as TwwDBDateTimePicker).Date:=strtodate(findini.ReadString(mysec,TmpName,'')) else
if Controls[i] is TRxDBLookupCombo then
(Controls[i] as TRxDBLookupCombo).Value:=findini.ReadString(mysec,TmpName,'') ;
end ;
end else
begin
end ;
finally
findini.free;
end ;
end;
procedure Tfrm_ch_balance_query.writeFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
i:integer ;
begin
canload:=bsSkinCheckRadioBox1.Checked ;
mysec:=inttostr(balance_query_type) ;
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'chbalancequery.ini');
try
findini.WriteBool(mysec,mysec,canload);
if canload then
begin
with bsSkinGroupBox1 do
for i:=0 to ControlCount-1 do
begin
tmpname:=Controls[i].Name ;
if Controls[i] is TwwDBComboBox then
findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBComboBox).Text) else
if Controls[i] is TEdit then
findini.WriteString(mysec,TmpName,(Controls[i] as TEdit).Text) else
if Controls[i] is TwwDBDateTimePicker then
findini.WriteString(mysec,TmpName,datetostr((Controls[i] as TwwDBDateTimePicker).Date)) else
if Controls[i] is TRxDBLookupCombo then
findini.writeString(mysec,TmpName,(Controls[i] as TRxDBLookupCombo).Value) ;
end ;
with bsSkinGroupBox2 do
for i:=0 to ControlCount-1 do
begin
tmpname:=Controls[i].Name ;
if Controls[i] is TwwDBComboBox then
findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBComboBox).Text) else
if Controls[i] is TEdit then
findini.WriteString(mysec,TmpName,(Controls[i] as TEdit).Text) else
if Controls[i] is TwwDBDateTimePicker then
findini.WriteString(mysec,TmpName,datetostr((Controls[i] as TwwDBDateTimePicker).Date)) else
if Controls[i] is TRxDBLookupCombo then
findini.writeString(mysec,TmpName,(Controls[i] as TRxDBLookupCombo).Value) ;
end ;
with bsSkinPageControl1 do
for i:=0 to ControlCount-1 do
begin
tmpname:=Controls[i].Name ;
if Controls[i] is TwwDBComboBox then
findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBComboBox).Text) else
if Controls[i] is TEdit then
findini.WriteString(mysec,TmpName,(Controls[i] as TEdit).Text) else
if Controls[i] is TwwDBDateTimePicker then
findini.WriteString(mysec,TmpName,datetostr((Controls[i] as TwwDBDateTimePicker).Date)) else
if Controls[i] is TRxDBLookupCombo then
findini.writeString(mysec,TmpName,(Controls[i] as TRxDBLookupCombo).Value) ;
end ;
end ;
finally
findini.free;
end ;
end;
end.
Reference in New Issue View Git Blame Copy Permalink