DONGSHENG6/财务管理/u_ch_invhexiao_query.pas

{$INCLUDE t_main.inc}
unit u_ch_invhexiao_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;

type
  Tfrm_ch_invhexiao_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;
    wwDBComboBox6: TwwDBComboBox;
    RxDBLookupCombo1: TRxDBLookupCombo;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    RxDBLookupCombo4: TRxDBLookupCombo;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Edit1: TEdit;
    wwDBComboBox2: TwwDBComboBox;
    wwDBComboBox18: TwwDBComboBox;
    wwDBComboBox5: TwwDBComboBox;
    Label4: TLabel;
    Label10: TLabel;
    Label1: 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;
    Label7: TLabel;
    Label8: TLabel;
    wwDBComboBox1: TwwDBComboBox;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    wwDBComboBox11: TwwDBComboBox;
    Label11: TLabel;
    wwDBComboBox14: TwwDBComboBox;
    Edit20: 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 }
    shen_query_type:integer;
    shen_query_limited:string;
    shen_query_op_limited:string;

  end;

var
  frm_ch_invhexiao_query: Tfrm_ch_invhexiao_query;
implementation

uses u_main, my_sys_function, {$IFDEF FPSHENQING}u_ch_invoice_hexiao,{$ENDIF}
  u_data_share, u_ch_balance_pay;

{$R *.dfm}

procedure Tfrm_ch_invhexiao_query.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_ch_invhexiao_query.FormShow(Sender: TObject);
begin
  loadFindIni;
  wwDBComboBox15.text:='ģ<><C4A3>';
  wwDBComboBox2.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox18.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox1.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox5.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox21.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox4.text:='ģ<><C4A3>';
  wwDBComboBox14.text:='ģ<><C4A3>';
  wwDBComboBox3.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox6.text:='С<><D0A1>';
  wwDBComboBox11.text:='С<><D0A1>';
  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>';


  case shen_query_type of
    1,2,3,7:
    begin
      Label3.Caption:='<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>';
    end;
    4,5,6:
    begin
      Label3.Caption:='<27><><EFBFBD>غ<EFBFBD><D8BA><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_invhexiao_query.bsSkinButton10Click(Sender: TObject);
begin
  Edit2.text:='';
  Edit1.text:='';

  Edit4.text:='';
  Edit20.text:='';

  wwDBDateTimePicker1.Clear;
  RxDBLookupCombo4.ClearValue;
  Edit4.text:='';
  RxDBLookupCombo2.ClearValue;
  RxDBLookupCombo1.ClearValue;
  wwDBDateTimePicker2.Clear;

  wwDBDateTimePicker3.Clear;
  wwDBDateTimePicker4.Clear;

  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;
end;

procedure Tfrm_ch_invhexiao_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>',wwDBComboBox18.text,wwDBDateTimePicker1.text);
  shen_string:=query_tiaojian(1,shen_string,'<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',wwDBComboBox1.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,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><C6B1><EFBFBD><EFBFBD>',wwDBComboBox11.text,wwDBDateTimePicker4.text);


  if (trim(Edit4.text)<>'')and(trim(Edit20.text)<>'') then
  begin
    if shen_string='' then
      shen_string:='where <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> between '+''''+Edit4.text+''''+' and '+''''+Edit20.text+''''
    else
      shen_string:=shen_string+' and <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> between '+''''+Edit4.text+''''+' and '+''''+Edit20.text+'''';
  end
  else
  begin
    shen_string:=query_tiaojian(1,shen_string,'<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',wwDBComboBox4.text,Edit4.text);
    shen_string:=query_tiaojian(1,shen_string,'<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',wwDBComboBox14.text,Edit20.text);
  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;


  case shen_query_type of
    2:  shen_string:=query_tiaojian(3,shen_string,'<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>','<27><>');
  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;


  case shen_query_type of
    1,2:
    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 <20><><EFBFBD><EFBFBD>='+''''+'1'+''''
                      +' 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 <20><><EFBFBD><EFBFBD>='+''''+'1'+''''
                      +' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+op_string+')' ;
      end;
    end;
  end;


  case shen_query_type of
    1:
    begin
      frm_ch_invoice_hexiao.t_ch_invoice_hexiao.Close;
      frm_ch_invoice_hexiao.t_ch_invoice_hexiao.sql.clear;
      frm_ch_invoice_hexiao.t_ch_invoice_hexiao.sql.add('select * from t_ch_invoice_hexiao '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
      frm_ch_invoice_hexiao.t_ch_invoice_hexiao.open;
      if frm_ch_invoice_hexiao.t_ch_invoice_hexiao.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_balance_pay.t_ch_invoice_hexiao.Close;
      frm_ch_balance_pay.t_ch_invoice_hexiao.sql.clear;
      frm_ch_balance_pay.t_ch_invoice_hexiao.sql.add('select * from t_ch_invoice_hexiao '+shen_string+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
      frm_ch_balance_pay.t_ch_invoice_hexiao.open;
      if frm_ch_balance_pay.t_ch_invoice_hexiao.IsEmpty then
      begin
        showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
        exit;
      end;
      close;
    end;
  end;
  close;
end;


procedure Tfrm_ch_invhexiao_query.loadFindIni;
var
  findini:tinifile ;
  mysec,tmpname:string;
  canload:boolean ;  //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
  i: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_invhexiao_query.writeFindIni;
var
  findini:tinifile ;
  mysec,tmpname:string;
  canload:boolean ;  //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
  i: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.