hanxuntao
/
DONGSHENG6
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 '9abf05a513'
${ noResults }
DONGSHENG6/财务管理/u_ch_shen_query.pas

1069 lines
39 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
{$INCLUDE t_main.inc}
unit u_ch_shen_query;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, DB,inifiles,
BusinessSkinForm, bsSkinCtrls, RxLookup, wwdbdatetimepicker, ComCtrls,
bsSkinTabs, wwdblook;
type
Tfrm_ch_shen_query = class(TForm)
bsSkinButton1: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinGroupBox1: TbsSkinGroupBox;
Label6: TLabel;
wwDBComboBox15: TwwDBComboBox;
Edit2: TEdit;
Label3: TLabel;
wwDBComboBox4: TwwDBComboBox;
Edit4: TEdit;
wwDBComboBox21: TwwDBComboBox;
RxDBLookupCombo2: TRxDBLookupCombo;
Label9: TLabel;
Label2: TLabel;
Label5: TLabel;
Label11: TLabel;
Label14: TLabel;
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;
Label4: TLabel;
Label8: TLabel;
Label10: TLabel;
Label1: TLabel;
Label7: TLabel;
wwDBComboBox3: TwwDBComboBox;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinTabSheet4: TbsSkinTabSheet;
Label12: TLabel;
wwDBComboBox7: TwwDBComboBox;
Edit3: TEdit;
Label13: TLabel;
wwDBComboBox8: TwwDBComboBox;
Edit5: TEdit;
Label15: TLabel;
wwDBComboBox16: TwwDBComboBox;
Edit6: TEdit;
Label16: TLabel;
wwDBComboBox9: TwwDBComboBox;
Edit7: TEdit;
Label17: TLabel;
wwDBComboBox10: TwwDBComboBox;
wwDBDateTimePicker5: TwwDBDateTimePicker;
Label18: TLabel;
wwDBComboBox12: TwwDBComboBox;
wwDBDateTimePicker6: TwwDBDateTimePicker;
wwDBDateTimePicker7: TwwDBDateTimePicker;
wwDBComboBox13: TwwDBComboBox;
Label19: TLabel;
wwDBDateTimePicker8: TwwDBDateTimePicker;
wwDBComboBox20: TwwDBComboBox;
Label20: TLabel;
Label21: TLabel;
wwDBComboBox24: TwwDBComboBox;
RxDBLookupCombo5: TRxDBLookupCombo;
Label22: TLabel;
wwDBComboBox22: TwwDBComboBox;
RxDBLookupCombo6: TRxDBLookupCombo;
RxDBLookupCombo7: TRxDBLookupCombo;
wwDBComboBox23: TwwDBComboBox;
Label23: TLabel;
wwDBComboBox25: TwwDBComboBox;
Label24: TLabel;
RxDBLookupCombo8: TRxDBLookupCombo;
Label25: TLabel;
wwDBComboBox26: TwwDBComboBox;
Edit8: TEdit;
Label26: TLabel;
wwDBComboBox27: TwwDBComboBox;
Edit9: TEdit;
Label27: TLabel;
wwDBComboBox28: TwwDBComboBox;
Edit10: TEdit;
Label28: TLabel;
wwDBComboBox29: TwwDBComboBox;
Edit11: TEdit;
Label29: TLabel;
wwDBComboBox30: TwwDBComboBox;
wwDBDateTimePicker9: TwwDBDateTimePicker;
Label30: TLabel;
wwDBComboBox31: TwwDBComboBox;
wwDBDateTimePicker10: TwwDBDateTimePicker;
Label31: TLabel;
wwDBComboBox32: TwwDBComboBox;
wwDBDateTimePicker11: TwwDBDateTimePicker;
Label32: TLabel;
wwDBComboBox33: TwwDBComboBox;
wwDBDateTimePicker12: TwwDBDateTimePicker;
RxDBLookupCombo9: TRxDBLookupCombo;
wwDBComboBox34: TwwDBComboBox;
Label33: TLabel;
RxDBLookupCombo10: TRxDBLookupCombo;
wwDBComboBox35: TwwDBComboBox;
Label34: TLabel;
Label35: TLabel;
wwDBComboBox36: TwwDBComboBox;
RxDBLookupCombo11: TRxDBLookupCombo;
Label36: TLabel;
wwDBComboBox37: TwwDBComboBox;
RxDBLookupCombo12: TRxDBLookupCombo;
Label37: TLabel;
wwDBComboBox38: TwwDBComboBox;
Edit12: TEdit;
Label38: TLabel;
wwDBComboBox39: TwwDBComboBox;
Edit13: TEdit;
Edit14: TEdit;
wwDBComboBox40: TwwDBComboBox;
Label39: TLabel;
Edit15: TEdit;
wwDBComboBox41: TwwDBComboBox;
Label40: TLabel;
Label41: TLabel;
wwDBComboBox42: TwwDBComboBox;
wwDBDateTimePicker13: TwwDBDateTimePicker;
Label42: TLabel;
wwDBComboBox43: TwwDBComboBox;
wwDBDateTimePicker14: TwwDBDateTimePicker;
wwDBDateTimePicker15: TwwDBDateTimePicker;
wwDBComboBox44: TwwDBComboBox;
Label43: TLabel;
wwDBDateTimePicker16: TwwDBDateTimePicker;
wwDBComboBox45: TwwDBComboBox;
Label44: TLabel;
Label45: TLabel;
wwDBComboBox46: TwwDBComboBox;
RxDBLookupCombo13: TRxDBLookupCombo;
Label46: TLabel;
wwDBComboBox47: TwwDBComboBox;
RxDBLookupCombo14: TRxDBLookupCombo;
RxDBLookupCombo15: TRxDBLookupCombo;
wwDBComboBox48: TwwDBComboBox;
Label47: TLabel;
RxDBLookupCombo16: TRxDBLookupCombo;
wwDBComboBox49: TwwDBComboBox;
Label48: TLabel;
Label49: TLabel;
wwDBComboBox50: TwwDBComboBox;
Edit16: TEdit;
Label50: TLabel;
wwDBComboBox51: TwwDBComboBox;
Edit17: TEdit;
Edit18: TEdit;
wwDBComboBox52: TwwDBComboBox;
Label51: TLabel;
Edit19: TEdit;
wwDBComboBox53: TwwDBComboBox;
Label52: TLabel;
Label53: TLabel;
wwDBComboBox54: TwwDBComboBox;
wwDBDateTimePicker17: TwwDBDateTimePicker;
Label54: TLabel;
wwDBComboBox55: TwwDBComboBox;
wwDBDateTimePicker18: TwwDBDateTimePicker;
wwDBDateTimePicker19: TwwDBDateTimePicker;
wwDBComboBox56: TwwDBComboBox;
Label55: TLabel;
wwDBDateTimePicker20: TwwDBDateTimePicker;
wwDBComboBox57: TwwDBComboBox;
Label56: TLabel;
Label57: TLabel;
wwDBComboBox58: TwwDBComboBox;
RxDBLookupCombo17: TRxDBLookupCombo;
Label58: TLabel;
wwDBComboBox59: TwwDBComboBox;
RxDBLookupCombo18: TRxDBLookupCombo;
RxDBLookupCombo19: TRxDBLookupCombo;
wwDBComboBox60: TwwDBComboBox;
Label59: TLabel;
RxDBLookupCombo20: TRxDBLookupCombo;
wwDBComboBox61: TwwDBComboBox;
Label60: TLabel;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
Label61: TLabel;
wwDBComboBox65: TwwDBComboBox;
RxDBLookupCombo21: TRxDBLookupCombo;
Label62: TLabel;
wwDBComboBox62: TwwDBComboBox;
RxDBLookupCombo22: TRxDBLookupCombo;
Label63: TLabel;
wwDBComboBox63: TwwDBComboBox;
RxDBLookupCombo23: TRxDBLookupCombo;
Label64: TLabel;
wwDBComboBox64: TwwDBComboBox;
RxDBLookupCombo24: TRxDBLookupCombo;
Label66: TLabel;
Label67: TLabel;
wwDBComboBox67: TwwDBComboBox;
wwDBDateTimePicker21: TwwDBDateTimePicker;
wwDBDateTimePicker22: TwwDBDateTimePicker;
wwDBComboBox68: TwwDBComboBox;
Label65: TLabel;
wwDBComboBox66: TwwDBComboBox;
Edit20: TEdit;
Label68: TLabel;
wwDBComboBox69: TwwDBComboBox;
Edit21: TEdit;
bsSkinTabSheet5: TbsSkinTabSheet;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
Label79: TLabel;
Label80: TLabel;
Label81: TLabel;
wwDBComboBox70: TwwDBComboBox;
Edit22: TEdit;
wwDBComboBox71: TwwDBComboBox;
Edit23: TEdit;
wwDBComboBox72: TwwDBComboBox;
Edit24: TEdit;
wwDBComboBox73: TwwDBComboBox;
Edit25: TEdit;
wwDBComboBox74: TwwDBComboBox;
wwDBDateTimePicker23: TwwDBDateTimePicker;
wwDBComboBox75: TwwDBComboBox;
wwDBDateTimePicker24: TwwDBDateTimePicker;
wwDBDateTimePicker25: TwwDBDateTimePicker;
wwDBComboBox76: TwwDBComboBox;
wwDBDateTimePicker26: TwwDBDateTimePicker;
wwDBComboBox77: TwwDBComboBox;
wwDBComboBox78: TwwDBComboBox;
RxDBLookupCombo25: TRxDBLookupCombo;
wwDBComboBox79: TwwDBComboBox;
RxDBLookupCombo26: TRxDBLookupCombo;
RxDBLookupCombo27: TRxDBLookupCombo;
wwDBComboBox80: TwwDBComboBox;
wwDBComboBox81: TwwDBComboBox;
RxDBLookupCombo28: TRxDBLookupCombo;
wwDBComboBox82: TwwDBComboBox;
RxDBLookupCombo29: TRxDBLookupCombo;
Label82: TLabel;
Label83: TLabel;
wwDBComboBox83: TwwDBComboBox;
wwDBDateTimePicker27: TwwDBDateTimePicker;
wwDBDateTimePicker28: TwwDBDateTimePicker;
wwDBComboBox84: TwwDBComboBox;
Label84: TLabel;
wwDBComboBox85: TwwDBComboBox;
RxDBLookupCombo30: TRxDBLookupCombo;
Label85: TLabel;
wwDBComboBox86: TwwDBComboBox;
wwDBComboBox87: TwwDBComboBox;
Label86: TLabel;
Edit31: TEdit;
Label87: TLabel;
wwDBComboBox88: TwwDBComboBox;
Edit26: TEdit;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
private
procedure loadFindIni ;
procedure writeFindIni ;
{ Private declarations }
public
{ Public declarations }
end;
var
frm_ch_shen_query: Tfrm_ch_shen_query;
shen_query_type:integer;
shen_query_limited:string;
shen_query_op_limited:string;
implementation
uses u_main, my_sys_function, {$IFDEF FPSHENQING}u_ch_invoice_shen,u_ch_invoice_check,{$ENDIF}
u_ch_invoice, u_data_share, {$IFDEF FFLIUCHENG}u_ch_check_shen, u_ch_check_check,{$ENDIF}
u_ch_balance_pay, u_ch_balance_accept{$IFDEF SFLIUCHENG}, u_ch_accept_shen{$ENDIF};
{$R *.dfm}
procedure Tfrm_ch_shen_query.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_shen_query.FormShow(Sender: TObject);
begin
loadFindIni;
wwDBComboBox15.text:='ģ<><C4A3>';
wwDBComboBox17.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox87.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox2.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox18.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox84.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox83.text:='С<><D0A1>';
wwDBComboBox19.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox5.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox85.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox21.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox4.text:='ģ<><C4A3>';
wwDBComboBox3.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox6.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>';
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:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox63.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox64.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox65.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox66.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox67.text:='С<><D0A1>';
wwDBComboBox68.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox69.text:='С<><D0A1>';
//
wwDBComboBox70.text:='ģ<><C4A3>';
wwDBComboBox71.text:='ģ<><C4A3>';
wwDBComboBox72.text:='ģ<><C4A3>';
wwDBComboBox73.text:='ģ<><C4A3>';
wwDBComboBox74.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox75.text:='С<><D0A1>';
wwDBComboBox76.text:='С<><D0A1>';
wwDBComboBox77.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox78.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox79.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox80.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox81.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox82.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox88.text:='ģ<><C4A3>';
case shen_query_type of
1,2,3,7:
begin
Label3.Caption:='<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>';
wwDBComboBox1.Items.Clear;
wwDBComboBox1.Items.Add('<27><><EFBFBD>뿪Ʊ');
wwDBComboBox1.Items.Add('<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
wwDBComboBox1.Items.Add('<27><>׼<EFBFBD><D7BC>Ʊ');
wwDBComboBox1.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox1.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>');
wwDBComboBox1.Items.Add('<27><>׼<EFBFBD>޸<EFBFBD>');
wwDBComboBox1.Items.Add('<27><>ֹ<EFBFBD>޸<EFBFBD>');
wwDBComboBox1.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ');
end;
4,5,6:
begin
Label3.Caption:='<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>';
wwDBComboBox1.Items.Clear;
wwDBComboBox1.Items.Add('<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>');
wwDBComboBox1.Items.Add('<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
wwDBComboBox1.Items.Add('<27><>׼֧<D7BC><D6A7>');
wwDBComboBox1.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox1.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>');
wwDBComboBox1.Items.Add('<27><>׼<EFBFBD>޸<EFBFBD>');
wwDBComboBox1.Items.Add('<27><>ֹ<EFBFBD>޸<EFBFBD>');
wwDBComboBox1.Items.Add('֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
frm_data_share.t_crm_client_all.requery;
frm_data_share.t_code_currency.requery;
frm_data_share.t_sys_employee.requery;
end;
procedure Tfrm_ch_shen_query.bsSkinButton10Click(Sender: TObject);
begin
Edit2.text:='';
wwDBComboBox1.text:='';
wwDBComboBox86.text:='';
Edit1.text:='';
wwDBDateTimePicker1.Clear;
wwDBDateTimePicker3.Clear;
RxDBLookupCombo4.ClearValue;
RxDBLookupCombo30.ClearValue;
Edit4.text:='';
RxDBLookupCombo2.ClearValue;
RxDBLookupCombo1.ClearValue;
wwDBDateTimePicker2.Clear;
wwDBDateTimePicker4.Clear;
RxDBLookupCombo3.ClearValue;
Edit3.text:='';
Edit6.text:='';
wwDBDateTimePicker5.Clear;
wwDBDateTimePicker8.Clear;
RxDBLookupCombo5.ClearValue;
RxDBLookupCombo8.ClearValue;
Edit5.text:='';
Edit7.text:='';
wwDBDateTimePicker6.Clear;
wwDBDateTimePicker7.Clear;
RxDBLookupCombo6.ClearValue;
RxDBLookupCombo7.ClearValue;
Edit8.text:='';
Edit10.text:='';
wwDBDateTimePicker9.Clear;
wwDBDateTimePicker11.Clear;
RxDBLookupCombo10.ClearValue;
RxDBLookupCombo11.ClearValue;
Edit9.text:='';
Edit11.text:='';
wwDBDateTimePicker10.Clear;
wwDBDateTimePicker12.Clear;
RxDBLookupCombo9.ClearValue;
RxDBLookupCombo12.ClearValue;
RxDBLookupCombo21.ClearValue;
RxDBLookupCombo22.ClearValue;
RxDBLookupCombo23.ClearValue;
RxDBLookupCombo24.ClearValue;
wwDBDateTimePicker21.Clear;
wwDBDateTimePicker22.Clear;
wwDBDateTimePicker28.Clear;
wwDBDateTimePicker27.Clear;
Edit20.text:='';
Edit21.text:='';
Edit22.text:='';
Edit23.text:='';
Edit24.text:='';
Edit25.text:='';
Edit31.text:='';
RxDBLookupCombo21.ClearValue;
wwDBDateTimePicker23.text:='';
wwDBDateTimePicker24.text:='';
wwDBDateTimePicker25.text:='';
wwDBDateTimePicker26.text:='';
RxDBLookupCombo25.ClearValue;
RxDBLookupCombo26.ClearValue;
RxDBLookupCombo27.ClearValue;
RxDBLookupCombo28.ClearValue;
RxDBLookupCombo29.ClearValue;
end;
procedure Tfrm_ch_shen_query.bsSkinButton1Click(Sender: TObject);
var
shen_string,op_string:widestring;
begin
writeFindIni;
shen_string:='';
op_string:='';
//shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox15.text,Edit2.text);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD>״̬',wwDBComboBox17.text,wwDBComboBox1.text);
shen_string:=query_tiaojian(1,shen_string,'<27>տʽ',wwDBComboBox87.text,wwDBComboBox86.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,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox84.text,wwDBDateTimePicker28.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><EFBFBD><EFBFBD>',wwDBComboBox68.text,wwDBDateTimePicker22.text);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox67.text,wwDBDateTimePicker21.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,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox85.text,RxDBLookupCombo30.DisplayValues[0]);
shen_string:=query_tiaojian(1,shen_string,Label3.caption,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,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox83.text,wwDBDateTimePicker27.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><>Ʊ̧ͷ',wwDBComboBox88.text,Edit21.text);
case shen_query_type of
4: begin
if (Edit20.text<>'')and(Edit21.text<>'') then
begin
if shen_string='' then
shen_string:='where <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> between '+''''+Edit20.text+''''+' and '+''''+Edit21.text+''''
else
shen_string:=shen_string+' and <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> between '+''''+Edit20.text+''''+' and '+''''+Edit21.text+'''';
end
else
begin
shen_string:=query_tiaojian(1,shen_string,'<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',wwDBComboBox66.text,Edit20.text);
shen_string:=query_tiaojian(1,shen_string,'<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',wwDBComboBox69.text,Edit21.text);
end;
shen_string:=query_tiaojian(1,shen_string,'<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',wwDBComboBox68.text,wwDBDateTimePicker22.text);
shen_string:=query_tiaojian(1,shen_string,'<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',wwDBComboBox67.text,wwDBDateTimePicker21.text);
end;
end;
if (Edit2.text<>'')and(Edit1.text<>'') then
begin
if shen_string='' then
shen_string:='where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> between '+''''+Edit2.text+''''+' and '+''''+Edit1.text+''''
else
shen_string:=shen_string+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> between '+''''+Edit2.text+''''+' and '+''''+Edit1.text+'''';
end
else
begin
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox15.text,Edit2.text);
shen_string:=query_tiaojian(1,shen_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox2.text,Edit1.text);
end;
if shen_query_limited<>'no'then
begin
if trim(shen_string)='' then
shen_string:='where '+open_data(shen_query_limited,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
else
shen_string:=shen_string+' and '+open_data(shen_query_limited,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
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>',wwDBComboBox65.text,RxDBLookupCombo21.DisplayValue);
if trim(op_string)<>''then
begin
if shen_query_op_limited<>'no'then
begin
if trim(op_string)='' then
op_string:='where '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
op_string:=op_string+' and '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
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]);
op_string:=query_tiaojian(1,op_string,'<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox64.text,RxDBLookupCombo22.DisplayValue);
if trim(op_string)<>''then
begin
if shen_query_op_limited<>'no'then
begin
if trim(op_string)='' then
op_string:='where '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
op_string:=op_string+' and '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
op_string:='(select <20><><EFBFBD><EFBFBD> from t_op_seai '+op_string+')';
end;
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]);
op_string:=query_tiaojian(1,op_string,'<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox63.text,RxDBLookupCombo23.DisplayValue);
if trim(op_string)<>''then
begin
if shen_query_op_limited<>'no'then
begin
if trim(op_string)='' then
op_string:='where '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
else
op_string:=op_string+' and '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no');
end;
op_string:='(select <20><><EFBFBD><EFBFBD> from t_op_aire '+op_string+')';
end;
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]);
op_string:=query_tiaojian(1,op_string,'<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox62.text,RxDBLookupCombo22.DisplayValue);
if trim(op_string)<>''then
begin
if shen_query_op_limited<>'no'then
begin
if trim(op_string)='' then
op_string:='where '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
else
op_string:=op_string+' and '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no');
end;
op_string:='(select <20><><EFBFBD><EFBFBD> from t_op_airi '+op_string+')';
end;
end;
if bsSkinTabSheet5.Showing then
begin
op_string:=query_tiaojian(1,op_string,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox70.text,Edit22.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox72.text,Edit24.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox74.text,wwDBDateTimePicker23.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox77.text,wwDBDateTimePicker26.text);
op_string:=query_tiaojian(1,op_string,'<27>ͷ<EFBFBD>Ա',wwDBComboBox78.text,RxDBLookupCombo25.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD>Ա',wwDBComboBox81.text,RxDBLookupCombo28.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox71.text,Edit23.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox73.text,Edit25.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox75.text,wwDBDateTimePicker24.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox76.text,wwDBDateTimePicker25.text);
op_string:=query_tiaojian(1,op_string,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox79.text,RxDBLookupCombo26.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'¼<><C2BC><EFBFBD><EFBFBD>',wwDBComboBox80.text,RxDBLookupCombo27.DisplayValues[0]);
op_string:=query_tiaojian(1,op_string,'<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox82.text,RxDBLookupCombo29.DisplayValue);
if Edit31.Text<>'' then begin
if trim(op_string)<>'' then begin
op_string:=op_string+' and (V_op_bscard_All.<2E><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD> like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit31.text+'%'+''')';
end else begin
op_string:=' where (V_op_bscard_All.<2E><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD> like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit31.text+'%'+''')';
end;
end;
if trim(op_string)<>''then
begin
if shen_query_op_limited<>'no'then
begin
if trim(op_string)='' then
op_string:='where '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
op_string:=op_string+' and '+open_data(shen_query_op_limited,'¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
op_string:='(select <20><><EFBFBD><EFBFBD> from V_op_bscard_All '+op_string+')';
end;
end;
case shen_query_type of
1,2,3,7:
begin
if trim(op_string)<>''then
begin
if trim(shen_string)='' then
shen_string:='where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where (<28><><EFBFBD><EFBFBD>='+''''+'1'+'''' +'or <20><><EFBFBD><EFBFBD>='+''''+'7'+''''+')'
+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+op_string+')'
else
shen_string:=shen_string+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where (<28><><EFBFBD><EFBFBD>='+''''+'1'+'''' +'or <20><><EFBFBD><EFBFBD>='+''''+'7'+''''+')'
// shen_string:=shen_string+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where <20><><EFBFBD><EFBFBD>='+''''+'1'+''''
+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+op_string+')' ;
end;
end;
8,9:
begin
if trim(op_string)<>''then
begin
if trim(shen_string)='' then
shen_string:='where <20><><EFBFBD><EFBFBD><EFBFBD><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><EFBFBD><EFBFBD><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;
4,5,6:
begin
if trim(op_string)<>''then
begin
if trim(shen_string)='' then
shen_string:='where <20><><EFBFBD><EFBFBD><EFBFBD><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><EFBFBD><EFBFBD><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;
end;
case shen_query_type of
7:
if trim(shen_string)='' then
begin
shen_string:='WHERE (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NOT IN (SELECT DISTINCT t_ch_fee_do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_ch_fee_do INNER JOIN t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND'
+' t_ch_fee_do.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> >(t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) AND'
+' t_ch_fee_do.<2E><><EFBFBD><EFBFBD> = '+''''+'1'+''''+')) AND (<28><><EFBFBD><EFBFBD>״̬ = '+''''
+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'+''''+')';
end
else
begin
shen_string:=shen_string+' and (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NOT IN (SELECT DISTINCT t_ch_fee_do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_ch_fee_do INNER JOIN t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND'
+' t_ch_fee_do.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> >(t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) AND'
+' t_ch_fee_do.<2E><><EFBFBD><EFBFBD> = '+''''+'1'+''''+')) AND (<28><><EFBFBD><EFBFBD>״̬ = '+''''
+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'+''''+')';
end;
9:
if trim(shen_string)='' then
begin
shen_string:='WHERE (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NOT IN (SELECT DISTINCT t_ch_fee_do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_ch_fee_do INNER JOIN t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND'
+' t_ch_fee_do.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> >(t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) AND'
+' t_ch_fee_do.<2E><><EFBFBD><EFBFBD> = '+''''+'6'+''''+')) AND (<28><><EFBFBD><EFBFBD>״̬ = '+''''
+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')';
end
else
begin
shen_string:=shen_string+' and (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NOT IN (SELECT DISTINCT t_ch_fee_do.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_ch_fee_do INNER JOIN t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND'
+' t_ch_fee_do.ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> >(t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) AND'
+' t_ch_fee_do.<2E><><EFBFBD><EFBFBD> = '+''''+'6'+''''+')) AND (<28><><EFBFBD><EFBFBD>״̬ = '+''''
+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')';
end;
end;
case shen_query_type of
{$IFDEF FPSHENQING}
1:
begin
frm_ch_invoice_shen.t_ch_invoice_shen.Close;
frm_ch_invoice_shen.t_ch_invoice_shen.sql.clear;
frm_ch_invoice_shen.t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_invoice_shen.t_ch_invoice_shen.open;
if frm_ch_invoice_shen.t_ch_invoice_shen.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
close;
end;
2:
begin
frm_ch_invoice_check.t_ch_invoice_shen.Close;
frm_ch_invoice_check.t_ch_invoice_shen.sql.clear;
frm_ch_invoice_check.t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_invoice_check.t_ch_invoice_shen.open;
if frm_ch_invoice_check.t_ch_invoice_shen.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
end;
{$ENDIF}
3:
begin
frm_ch_invoice.t_ch_invoice_shen.Close;
frm_ch_invoice.t_ch_invoice_shen.sql.clear;
frm_ch_invoice.t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_invoice.t_ch_invoice_shen.open;
if frm_ch_invoice.t_ch_invoice_shen.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
end;
{$IFDEF FFLIUCHENG}
4:
begin
frm_ch_check_shen.t_ch_check.Close;
frm_ch_check_shen.t_ch_check.sql.clear;
frm_ch_check_shen.t_ch_check.sql.add('select * from t_ch_check '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_check_shen.t_ch_check.open;
if frm_ch_check_shen.t_ch_check.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
end;
5:
begin
frm_ch_check_check.t_ch_check.Close;
frm_ch_check_check.t_ch_check.sql.clear;
frm_ch_check_check.t_ch_check.sql.add('select * from t_ch_check '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_check_check.t_ch_check.open;
if frm_ch_check_check.t_ch_check.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
end;
{$ENDIF}
6:
begin
frm_ch_balance_pay.t_ch_check.Close;
frm_ch_balance_pay.t_ch_check.sql.clear;
frm_ch_balance_pay.t_ch_check.sql.add('select * from t_ch_check '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_balance_pay.t_ch_check.open;
if frm_ch_balance_pay.t_ch_check.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
end;
7:
begin
frm_ch_balance_accept.t_ch_invoice_shen.Close;
frm_ch_balance_accept.t_ch_invoice_shen.sql.clear;
frm_ch_balance_accept.t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_balance_accept.t_ch_invoice_shen.open;
if frm_ch_balance_accept.t_ch_invoice_shen.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
end;
{$IFDEF SFLIUCHENG}
8:
begin
frm_ch_accept_shen.t_ch_accept.Close;
frm_ch_accept_shen.t_ch_accept.sql.clear;
frm_ch_accept_shen.t_ch_accept.sql.add('select * from t_ch_accept '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_accept_shen.t_ch_accept.open;
if frm_ch_accept_shen.t_ch_accept.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
end;
{$ENDIF}
9:
begin
frm_ch_balance_accept.t_ch_accept_shen.Close;
frm_ch_balance_accept.t_ch_accept_shen.sql.clear;
frm_ch_balance_accept.t_ch_accept_shen.sql.add('select * from t_ch_accept '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
frm_ch_balance_accept.t_ch_accept_shen.open;
if frm_ch_balance_accept.t_ch_accept_shen.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
end;
end;
close;
end;
procedure Tfrm_ch_shen_query.loadFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
i,j:integer ;
begin
mysec:=inttostr(shen_query_type) ;
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'chshenquery.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 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_shen_query.writeFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
i,j:integer ;
begin
canload:=bsSkinCheckRadioBox1.Checked ;
mysec:=inttostr(shen_query_type) ;
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'chshenquery.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 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.