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

1070 lines
39 KiB
Plaintext
Raw Permalink 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_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;
showmessage(inttostr(shen_query_type));
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.
Reference in New Issue View Git Blame Copy Permalink