DONGSHENG6/空运业务/u_op_airi_query.pas

{$INCLUDE t_main.inc}
unit u_op_airi_query;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, wwdbdatetimepicker, Mask,
  wwdbedit, Wwdotdot, Wwdbcomb, RxLookup, StdCtrls, ComCtrls, bsSkinTabs,
  ADODB, DB, RxMemDS, dxExEdtr, dxTL, dxDBCtrl, dxDBGrid, dxCntner,
  dxDBTLCl, dxGrClms, wwdblook,inifiles;

type
  Tfrm_op_airi_query = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    Label10: TLabel;
    Label9: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label20: TLabel;
    Label124: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label19: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label18: TLabel;
    Label26: TLabel;
    Label32: TLabel;
    Edit1: TEdit;
    RxDBLookupCombo2: TRxDBLookupCombo;
    RxDBLookupCombo3: TRxDBLookupCombo;
    RxDBLookupCombo4: TRxDBLookupCombo;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    wwDBComboBox1: TwwDBComboBox;
    wwDBComboBox2: TwwDBComboBox;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    RxDBLookupCombo1: TRxDBLookupCombo;
    RxDBLookupCombo5: TRxDBLookupCombo;
    RxDBLookupCombo6: TRxDBLookupCombo;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    RxDBLookupCombo9: TRxDBLookupCombo;
    wwDBComboBox4: TwwDBComboBox;
    wwDBComboBox5: TwwDBComboBox;
    wwDBComboBox6: TwwDBComboBox;
    wwDBComboBox7: TwwDBComboBox;
    wwDBComboBox9: TwwDBComboBox;
    wwDBComboBox11: TwwDBComboBox;
    wwDBComboBox13: TwwDBComboBox;
    wwDBComboBox14: TwwDBComboBox;
    wwDBComboBox15: TwwDBComboBox;
    wwDBComboBox16: TwwDBComboBox;
    wwDBComboBox17: TwwDBComboBox;
    wwDBComboBox18: TwwDBComboBox;
    wwDBComboBox19: TwwDBComboBox;
    wwDBComboBox21: TwwDBComboBox;
    wwDBComboBox22: TwwDBComboBox;
    wwDBComboBox24: TwwDBComboBox;
    wwDBComboBox25: TwwDBComboBox;
    wwDBComboBox26: TwwDBComboBox;
    wwDBComboBox27: TwwDBComboBox;
    wwDBComboBox28: TwwDBComboBox;
    RxDBLookupCombo10: TRxDBLookupCombo;
    RxDBLookupCombo12: TRxDBLookupCombo;
    wwDBComboBox29: TwwDBComboBox;
    wwDBComboBox8: TwwDBComboBox;
    RxDBLookupCombo8: TRxDBLookupCombo;
    wwDBComboBox32: TwwDBComboBox;
    RxDBLookupCombo13: TRxDBLookupCombo;
    wwDBComboBox38: TwwDBComboBox;
    Edit9: TEdit;
    t_sys_queryfields: TADOQuery;
    t_sys_queryfields1: TDataSource;
    t_sys_query: TADOQuery;
    t_sys_query1: TDataSource;
    t_sys_query_detail: TADOQuery;
    t_sys_query_detail1: TDataSource;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinPanel2: TbsSkinPanel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    RxDBLookupCombo14: TRxDBLookupCombo;
    wwDBComboBox39: TwwDBComboBox;
    wwDBComboBox40: TwwDBComboBox;
    query_bit: TwwDBComboBox;
    query_str_int: TEdit;
    query_date: TwwDBDateTimePicker;
    RxDBLookupList1: TRxDBLookupList;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridPickColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridPickColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2SQ_ID: TdxDBGridMaskColumn;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label17: TLabel;
    wwDBComboBox3: TwwDBComboBox;
    wwDBComboBox10: TwwDBComboBox;
    Label21: TLabel;
    wwDBComboBox12: TwwDBComboBox;
    RxDBLookupCombo7: TRxDBLookupCombo;
    Label41: TLabel;
    wwDBComboBox46: TwwDBComboBox;
    RxDBLookupCombo18: TRxDBLookupCombo;
    Label27: TLabel;
    wwDBComboBox30: TwwDBComboBox;
    RxDBLookupCombo11: TRxDBLookupCombo;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    Label52: TLabel;
    wwDBComboBox57: TwwDBComboBox;
    RxDBLookupCombo21: TRxDBLookupCombo;
    Label24: TLabel;
    Label25: TLabel;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    wwDBComboBox20: TwwDBComboBox;
    wwDBComboBox23: TwwDBComboBox;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure RxDBLookupCombo14Change(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure RxDBLookupList1DblClick(Sender: TObject);
    procedure wwDBComboBox15KeyPress(Sender: TObject; var Key: Char);
    procedure t_sys_queryAfterInsert(DataSet: TDataSet);
    procedure t_sys_query_detailAfterScroll(DataSet: TDataSet);
    procedure t_sys_query_detailBeforePost(DataSet: TDataSet);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
  private
    { Private declarations }
    procedure loadFindIni ;
    procedure writeFindIni ;
  public
    { Public declarations }
  end;

var
  frm_op_airi_query: Tfrm_op_airi_query;
  airi_query_limited:string;
  airi_query_table:integer;

implementation

uses u_data_share, u_op_airi, {$IFDEF XSGUANLI}u_ch_fee_airi_sales,{$ENDIF} u_ch_fee_check_airi,
  u_op_airi_close, my_sys_function, {$IFDEF YWTAIZHANG}u_rp_tai_airi,{$ENDIF} u_rp_rp_airi,
  {$IFDEF TBQITA}u_rp_zou_airi, u_rp_fen_airi, {$ENDIF}u_rp_fee_modify, u_main,
  u_ch_fee_Recheck_airi;

{$R *.dfm}

procedure Tfrm_op_airi_query.FormShow(Sender: TObject);
begin
  wwDBComboBox15.text:='ģ<><C4A3>';
  wwDBComboBox16.text:='ģ<><C4A3>';
  wwDBComboBox4.text:='ģ<><C4A3>';
  wwDBComboBox5.text:='ģ<><C4A3>';
  wwDBComboBox17.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox7.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox18.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox6.text:='С<><D0A1>';
  wwDBComboBox11.text:='С<><D0A1>';
  wwDBComboBox19.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox21.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox22.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox24.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox25.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox26.text:='ģ<><C4A3>';
  wwDBComboBox27.text:='ģ<><C4A3>';
  wwDBComboBox9.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox8.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox13.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox14.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox28.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox29.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox32.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox38.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox3.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox12.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox46.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox30.text:='<27><><EFBFBD><EFBFBD>';
  wwDBComboBox57.text:='<27><><EFBFBD><EFBFBD>';
  loadfindini;
  frm_data_share.t_code_state.Filtered:=false;
  frm_data_share.t_code_state.Filter:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+'''';
  frm_data_share.t_code_state.Filtered:=true;
  frm_data_share.t_crm_client_hangkong.requery;
  frm_data_share.t_crm_client_baoguan.requery;
  frm_data_share.t_crm_client_weituo.requery;
  frm_data_share.t_crm_client_daili.requery;
  frm_data_share.t_code_state.first;
  while not frm_data_share.t_code_state.eof do
  begin
    wwDBComboBox1.Items.Add(frm_data_share.t_code_state.fieldbyname('ҵ<><D2B5>״̬').asstring);
    frm_data_share.t_code_state.next;
  end;
  wwDBComboBox1.Items.Add('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  wwDBComboBox1.Items.Add('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_sys_query.Parameters.ParamByName('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>').Value:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
  t_sys_query.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD>').Value:=employee;
  t_sys_query.open;
  t_sys_query_detail.open;
  t_sys_queryfields.open;
  wwDBComboBox39.ItemIndex:=0;
end;

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

procedure Tfrm_op_airi_query.bsSkinButton10Click(Sender: TObject);
begin
  Edit1.text:='';
  Edit2.text:='';
  Edit3.text:='';
  Edit4.text:='';
  Edit9.text:='';
  wwDBLookupCombo2.text:='';
  wwDBLookupCombo1.text:='';
  wwDBComboBox1.text:='';
  wwDBComboBox2.text:='';
  wwDBComboBox10.text:='';
  wwDBDateTimePicker1.Clear;
  wwDBDateTimePicker2.Clear;
  wwDBDateTimePicker3.Clear;
  wwDBDateTimePicker4.Clear;

  wwDBDateTimePicker5.Clear;
  wwDBDateTimePicker6.Clear;

  RxDBLookupCombo2.ClearValue;
  RxDBLookupCombo1.ClearValue;
  RxDBLookupCombo9.ClearValue;
  RxDBLookupCombo8.ClearValue;
  RxDBLookupCombo4.ClearValue;
  RxDBLookupCombo3.ClearValue;
  RxDBLookupCombo6.ClearValue;
  RxDBLookupCombo5.ClearValue;
  RxDBLookupCombo10.ClearValue;
  RxDBLookupCombo12.ClearValue;
  RxDBLookupCombo13.ClearValue;
  RxDBLookupCombo7.ClearValue;
  RxDBLookupCombo18.ClearValue;
  RxDBLookupCombo11.ClearValue;
  RxDBLookupCombo21.ClearValue;
end;

procedure Tfrm_op_airi_query.bsSkinButton1Click(Sender: TObject);
var
  str:widestring;
  str_date:string;
begin
  writeFindIni;
  str:='';
  if bsSkinTabSheet2.Showing then
  begin
    str:=query_tiaojian(1,str,'t_op_airi.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox15.text,Edit1.text);
    str:=query_tiaojian(1,str,'t_op_airi.ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox4.text,Edit4.text);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>',wwDBComboBox16.text,Edit2.text);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>',wwDBComboBox5.text,Edit3.text);
    str:=query_tiaojian(1,str,'t_op_airi.ҵ<><D2B5>״̬',wwDBComboBox17.text,wwDBComboBox1.text);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD>״̬',wwDBComboBox7.text,wwDBComboBox2.text);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox18.text,wwDBDateTimePicker1.text);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox6.text,wwDBDateTimePicker2.text);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox19.text,wwDBDateTimePicker3.text);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox11.text,wwDBDateTimePicker4.text);

    str:=query_tiaojian(1,str,'t_op_airi.ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox23.text,wwDBDateTimePicker5.text);
    str:=query_tiaojian(1,str,'t_op_airi.ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox20.text,wwDBDateTimePicker6.text);

    str:=query_tiaojian(1,str,'t_op_airi.ί<>е<EFBFBD>λ',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD>չ<EFBFBD>˾',wwDBComboBox9.text,RxDBLookupCombo1.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox22.text,RxDBLookupCombo9.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD>',wwDBComboBox8.text,RxDBLookupCombo8.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_airi.ʼ<><CABC><EFBFBD>۴<EFBFBD><DBB4><EFBFBD>',wwDBComboBox26.text,wwDBLookupCombo2.text);
    str:=query_tiaojian(1,str,'t_op_airi.Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>',wwDBComboBox27.text,wwDBLookupCombo1.text);
    str:=query_tiaojian(1,str,'t_op_airi.<2E>ͷ<EFBFBD>Ա',wwDBComboBox24.text,RxDBLookupCombo4.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox14.text,RxDBLookupCombo3.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD>Ա',wwDBComboBox25.text,RxDBLookupCombo6.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_airi.¼<><C2BC><EFBFBD><EFBFBD>',wwDBComboBox13.text,RxDBLookupCombo5.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>',wwDBComboBox28.text,RxDBLookupCombo10.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox29.text,RxDBLookupCombo12.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox32.text,RxDBLookupCombo13.DisplayValues[1]);
    str:=query_tiaojian(2,str,'t_op_airi.<2E>ܴ<EFBFBD>',wwDBComboBox38.text,Edit9.text);
    str:=query_tiaojian(1,str,'t_op_airi.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox3.text,wwDBComboBox10.text);
    str:=query_tiaojian(1,str,'t_op_airi.<2E>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox12.text,RxDBLookupCombo7.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_airi.ҵ<><D2B5><EFBFBD><EFBFBD>Դ',wwDBComboBox46.text,RxDBLookupCombo18.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_airi.<2E><>Դ<EFBFBD><D4B4>ϸ',wwDBComboBox30.text,RxDBLookupCombo11.DisplayValue);

    if Trim(RxDBLookupCombo21.DisplayValues[1])<>'' then
    begin
      if str='' then
        str:=' where t_op_Airi.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_ch_fee where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+Trim(RxDBLookupCombo21.DisplayValues[1])+''')'
      else
         str:=str+' and t_op_Airi.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from  t_ch_fee where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+Trim(RxDBLookupCombo21.DisplayValues[1])+''')';
    end;


  end
  else
  begin
    if query_wanneng_error(t_sys_query_detail)then
    begin
      showmessage('<27><><EFBFBD>򡯵<EFBFBD><F2A1AFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2<EFBFBD><32><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
      exit;
    end;
    str:=query_wanneng(t_sys_query_detail);
  end;

  case airi_query_table of
    1:
    begin
      if airi_query_limited<>'no'then
      begin
        if trim(str)='' then
        begin
          str:='where '+open_data(airi_query_limited,'t_op_airi.¼<><C2BC><EFBFBD><EFBFBD>','t_op_airi.<2E><><EFBFBD><EFBFBD>Ա','t_op_airi.<2E>ͷ<EFBFBD>Ա','no','no');
        end
        else
        begin
          str:=str+' and '+open_data(airi_query_limited,'t_op_airi.¼<><C2BC><EFBFBD><EFBFBD>','t_op_airi.<2E><><EFBFBD><EFBFBD>Ա','t_op_airi.<2E>ͷ<EFBFBD>Ա','no','no');
        end;
      end;
    end;
    2:
    begin
      if airi_query_limited<>'no'then
      begin
        if trim(str)='' then
        begin
          str:='where '+open_data(airi_query_limited,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
        end
        else
        begin
          str:=str+' and '+open_data(airi_query_limited,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
        end;
      end;
    end;
    3,4,5,6,7,8,13:
    begin
      if airi_query_limited<>'no'then
      begin
        if trim(str)='' then
        begin
          str:='where '+open_data(airi_query_limited,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','t_op_airi.<2E><><EFBFBD><EFBFBD>Ա','t_op_airi.<2E>ͷ<EFBFBD>Ա','no','no');
        end
        else
        begin
          str:=str+' and '+open_data(airi_query_limited,'t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','t_op_airi.<2E><><EFBFBD><EFBFBD>Ա','t_op_airi.<2E>ͷ<EFBFBD>Ա','no','no');
        end;
      end;
    end;
  end;
  case airi_query_table of
    1:
    begin
      if (not frm_op_airi.t_op_airi.IsEmpty) and (frm_op_airi.t_op_airi.sql.Text<>'') then
        frm_op_airi.airipsqlstr:=frm_op_airi.t_op_airi.sql.Text;

      frm_op_airi.t_op_airi.close;
      frm_op_airi.t_op_airi.sql.clear;
      if not bsSkinCheckRadioBox2.Checked then
        frm_op_airi.t_op_airi.sql.add('select * from t_op_airi where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_airi '+str+')'+default_sort(56,'t_op_airi','','desc'))
      else begin
        str:=StringReplace(str,'t_op_airi','t_op_aire_assistant',[rfReplaceAll]);
        frm_op_airi.t_op_airi.sql.add('select * from t_op_airi where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_aire_assistant '+str+')'+default_sort(56,'t_op_airi','','desc'))
      end;
//      frm_op_airi.t_op_airi.sql.add('select * from t_op_airi '+str+default_sort(56,'t_op_airi','','desc'));
      frm_op_airi.t_op_airi.Open;
      if frm_op_airi.t_op_airi.IsEmpty then
      begin
        showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
        exit;
      end;
    end;
    {$IFDEF XSGUANLI}
    2:
    begin
      frm_ch_fee_airi_sales.t_op_airi.Close;
      frm_ch_fee_airi_sales.t_op_airi.Parameters.ParamByName('SQLStr').value:='select * from t_op_airi '+str+default_sort(56,'t_op_airi','','desc');
      frm_ch_fee_airi_sales.t_op_airi.Open;
      if frm_ch_fee_airi_sales.t_op_airi.IsEmpty then
      begin
        showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
        exit;
      end;
    end;
    {$ENDIF}
    3:
    begin
      frm_ch_fee_check_airi.t_op_airi.Close;
      frm_ch_fee_check_airi.t_op_airi.Parameters.ParamByName('SQLStr').value:='select * from t_op_airi '+str+default_sort(56,'t_op_airi','','desc');
      frm_ch_fee_check_airi.t_op_airi.Open;
      if frm_ch_fee_check_airi.t_op_airi.IsEmpty then
      begin
        showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
        exit;
      end;
    end;
    4:
    begin
      frm_op_airi_close.t_op_airi.close;
      frm_op_airi_close.t_op_airi.sql.text:='select * from t_op_airi '+str+default_sort(56,'t_op_airi','','desc');
      frm_op_airi_close.t_op_airi.Open;
      if frm_op_airi_close.t_op_airi.IsEmpty then
      begin
        showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
        exit;
      end;
    end;
    {$IFDEF YWTAIZHANG}
    5:
    begin
      str:='SELECT t_op_airi.*, t_op_gain.Ӧ<><D3A6>USD, t_op_gain.<2E><><EFBFBD><EFBFBD>USD,(t_op_gain.Ӧ<><D3A6>USD-t_op_gain.<2E><><EFBFBD><EFBFBD>USD)'
          +' AS δ<><CEB4>USD,t_op_gain.Ӧ<><D3A6>RMB, t_op_gain.<2E><><EFBFBD><EFBFBD>RMB,(t_op_gain.Ӧ<><D3A6>RMB-t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)'
          +' AS δ<><CEB4>RMB, t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>,(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>)'
          +' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain.Ӧ<><D3A6>USD, t_op_gain.<2E>Ѹ<EFBFBD>USD, (t_op_gain.Ӧ<><D3A6>USD-t_op_gain.<2E>Ѹ<EFBFBD>USD)'
          +' AS δ<><CEB4>USD,t_op_gain.Ӧ<><D3A6>RMB, t_op_gain.<2E>Ѹ<EFBFBD>RMB,(t_op_gain.Ӧ<><D3A6>RMB- t_op_gain.<2E>Ѹ<EFBFBD>RMB)'
          +' AS δ<><CEB4>RMB,t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>,(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>)'
          +' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain.<2E><><EFBFBD><EFBFBD>USD, t_op_gain.<2E><><EFBFBD><EFBFBD>RMB, t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>, t_op_gain.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
          +' FROM t_op_airi left JOIN t_op_gain ON t_op_airi.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
          +str+default_sort(56,'t_op_airi','','desc');

      frm_rp_tai_airi.p_query_table.close;
      frm_rp_tai_airi.p_query_table.Parameters.ParamByName('SQLStr').value:=str;
      frm_rp_tai_airi.p_query_table.Open;
      if frm_rp_tai_airi.p_query_table.IsEmpty then
      begin
        showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
        exit;
      end;
    end;
    {$ENDIF}
    6:
    begin
      frm_rp_rp_airi.p_detail.close;
      frm_rp_rp_airi.p_detail.Parameters.ParamByName('SQLStr').value:=
           'SELECT t_op_airi.*, t_op_gain.Ӧ<><D3A6>USD, t_op_gain.<2E><><EFBFBD><EFBFBD>USD,(t_op_gain.Ӧ<><D3A6>USD-t_op_gain.<2E><><EFBFBD><EFBFBD>USD)'
          +' AS δ<><CEB4>USD,t_op_gain.Ӧ<><D3A6>RMB, t_op_gain.<2E><><EFBFBD><EFBFBD>RMB,(t_op_gain.Ӧ<><D3A6>RMB-t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)'
          +' AS δ<><CEB4>RMB, t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>,(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>)'
          +' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain.Ӧ<><D3A6>USD, t_op_gain.<2E>Ѹ<EFBFBD>USD, (t_op_gain.Ӧ<><D3A6>USD-t_op_gain.<2E>Ѹ<EFBFBD>USD)'
          +' AS δ<><CEB4>USD,t_op_gain.Ӧ<><D3A6>RMB, t_op_gain.<2E>Ѹ<EFBFBD>RMB,(t_op_gain.Ӧ<><D3A6>RMB- t_op_gain.<2E>Ѹ<EFBFBD>RMB)'
          +' AS δ<><CEB4>RMB,t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>,(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>)'
          +' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain.<2E><><EFBFBD><EFBFBD>USD, t_op_gain.<2E><><EFBFBD><EFBFBD>RMB, t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>, t_op_gain.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
          +' FROM t_op_airi left JOIN t_op_gain ON t_op_airi.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
          +str+default_sort(56,'t_op_airi','','desc');
      frm_rp_rp_airi.p_detail.Open;
      if frm_rp_rp_airi.p_detail.IsEmpty then
      begin
        showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
        exit;
      end;
    end;
    {$IFDEF TBQITA}
    7:
    begin
      if frm_rp_zou_airi.bsSkinCheckRadioBox1.Checked then
        str_date:='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'
      else
        str_date:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      frm_rp_zou_airi.p_lirun.close;
      frm_rp_zou_airi.p_lirun.Parameters.ParamByName('SQLStr').value:=
        'SELECT SUBSTRING(CONVERT(char(15),t_op_airi.'+str_date+',111),1,7) AS <20>·<EFBFBD>,'
        +'SUM(dbo.t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>) AS ë<><C3AB><EFBFBD><EFBFBD>,'
        +'sum(t_op_airi.<2E>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>) as <20>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>,count(t_op_airi.<2E><><EFBFBD><EFBFBD>) as Ʊ<><C6B1>'
        +' FROM t_op_airi left JOIN t_op_gain'
        +' ON t_op_airi.<2E><><EFBFBD><EFBFBD> =t_op_gain.<2E><><EFBFBD><EFBFBD> '
        +str
        +' GROUP BY SUBSTRING(CONVERT(char(15),'+str_date+',111),1,7)'
        +' order by SUBSTRING(CONVERT(char(15),'+str_date+', 111), 1, 7)';
      frm_rp_zou_airi.p_lirun.Open;
    end;
    8:
    begin
     { frm_rp_fen_airi.p_client.close;
      frm_rp_fen_airi.p_client.Parameters.ParamByName('SQLStr').value:=
         'SELECT t_op_airi.<2E>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD> as <20><>TEU,t_op_airi.ί<>е<EFBFBD>λ'
        +',t_op_airi.<2E><><EFBFBD><EFBFBD>Ա,t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_airi.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_airi.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>'
        +',t_op_airi.<2E><><EFBFBD>չ<EFBFBD>˾'
        +',t_op_gain.ë<><C3AB><EFBFBD><EFBFBD> FROM t_op_airi left JOIN t_op_gain ON '
        +'t_op_airi.<2E><><EFBFBD><EFBFBD> =t_op_gain.<2E><><EFBFBD><EFBFBD> '
        +str;
      frm_rp_fen_airi.p_client.Open; }
      fen_airi_str:=str;
    end;
    {$ENDIF}
    9:
    begin
     { frm_rp_fee_modify.t_ch_fee_modify.close;
      frm_rp_fee_modify.a_shen_delete.close;
      frm_rp_fee_modify.a_shen_modify_old.close;
      frm_rp_fee_modify.a_shen_modify_new.close;
      frm_rp_fee_modify.p_airi.close;
      frm_rp_fee_modify.p_airi.Parameters.ParamByName('SQLStr').value:=
        'SELECT t_op_airi.*, v_ch_fee_modify_sum.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
        +'FROM t_op_airi INNER JOIN '
        +'v_ch_fee_modify_sum ON t_op_airi.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_sum.<2E><><EFBFBD><EFBFBD> '+str+' order by t_op_airi.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc';
      frm_rp_fee_modify.p_airi.open;
      frm_rp_fee_modify.t_ch_fee_modify.open;
      frm_rp_fee_modify.a_shen_delete.open;
      frm_rp_fee_modify.a_shen_modify_old.open;
      frm_rp_fee_modify.a_shen_modify_new.open;   }
    end;
    13:
    begin
      frm_ch_fee_recheck_airi.t_op_airi.Close;
      frm_ch_fee_recheck_airi.t_op_airi.Parameters.ParamByName('SQLStr').value:='select * from t_op_airi '+str+default_sort(56,'t_op_airi','','desc');
      frm_ch_fee_recheck_airi.t_op_airi.Open;
      if frm_ch_fee_recheck_airi.t_op_airi.IsEmpty then
      begin
        showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
        exit;
      end;
    end;
  end;
  close;
end;

procedure Tfrm_op_airi_query.RxDBLookupCombo14Change(Sender: TObject);
begin
  query_str_int.text:='';
  query_bit.text:='';
  query_date.text:='';
  if t_sys_queryfields.Locate('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[])then
  begin
    wwDBComboBox40.ItemIndex:=-1;
    wwDBComboBox40.Items.Clear;
    if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='varchar') then
    begin
      query_str_int.Visible:=true;
      query_bit.Visible:=false;
      query_date.Visible:=false;
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      wwDBComboBox40.Items.Add('ģ<><C4A3>');
      wwDBComboBox40.ItemIndex:=2;
    end;
    if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='int') then
    begin
      query_str_int.Visible:=true;
      query_bit.Visible:=false;
      query_date.Visible:=false;
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
      wwDBComboBox40.Items.Add('С<><D0A1>');
      wwDBComboBox40.ItemIndex:=0; 
    end;
    if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='bit') then
    begin
      query_str_int.Visible:=false;
      query_bit.Visible:=true;
      query_date.Visible:=false;
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      wwDBComboBox40.ItemIndex:=0;
    end;
    if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='date') then
    begin
      query_str_int.Visible:=false;
      query_bit.Visible:=false;
      query_date.Visible:=true;
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
      wwDBComboBox40.Items.Add('С<><D0A1>');
      wwDBComboBox40.ItemIndex:=0;
    end;  
  end
  else
  begin
    query_str_int.Visible:=false;
    query_bit.Visible:=false;
    query_date.Visible:=false;
  end;
end;

procedure Tfrm_op_airi_query.bsSkinButton2Click(Sender: TObject);
begin
  if RxDBLookupCombo14.DisplayValue='' then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD>');
    exit;
  end;
  if wwDBComboBox39.ItemIndex=-1 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>');
    exit;
  end;
  if wwDBComboBox40.ItemIndex=-1 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD>ͣ<EFBFBD><CDA3><EFBFBD>');
    exit;
  end;

  if query_str_int.Visible then
  begin
    if query_str_int.text='' then
    begin
      showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>');
      exit;
    end;
    if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='int') then
    begin
      try
        strtoint(query_str_int.text);
      except
        showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
        exit;
      end;
    end;
  end;
  if query_bit.Visible then
  begin
    if query_bit.ItemIndex=-1 then
    begin
      showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>');
      exit;
    end;
  end;
  if query_date.Visible then
  begin
    if query_date.text='' then
    begin
      showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>');
      exit;
    end;
  end;
  if t_sys_query.IsEmpty then
  begin
    t_sys_query.Insert;
    t_sys_query.post;
  end; 
  t_sys_query_detail.Append;
  t_sys_query_detail['<27><>']:=t_sys_queryfields['<27><>'];
  t_sys_query_detail['<27>ֶ<EFBFBD><D6B6><EFBFBD>']:=t_sys_queryfields['<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>'];
  if query_str_int.Visible then
  begin
    t_sys_query_detail['<27><><EFBFBD><EFBFBD>ֵ']:=query_str_int.text;
  end;
  if query_bit.Visible then
  begin
    t_sys_query_detail['<27><><EFBFBD><EFBFBD>ֵ']:=query_bit.text;
  end;
  if query_date.Visible then
  begin
    t_sys_query_detail['<27><><EFBFBD><EFBFBD>ֵ']:=query_date.text;
  end;
  t_sys_query_detail['<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_queryfields['<27><><EFBFBD><EFBFBD>'];
  t_sys_query_detail['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ']:=wwDBComboBox39.text;
  t_sys_query_detail['<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>']:=wwDBComboBox40.text;
  t_sys_query_detail.post;
end;

procedure Tfrm_op_airi_query.bsSkinButton4Click(Sender: TObject);
begin
  if not t_sys_query_detail.IsEmpty then
    t_sys_query_detail.Delete;
end;

procedure Tfrm_op_airi_query.RxDBLookupList1DblClick(Sender: TObject);
begin
  RxDBLookupCombo14.DisplayValue:=RxDBLookupList1.DisplayValue;
end;

procedure Tfrm_op_airi_query.wwDBComboBox15KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    frm_op_airi_query.bsSkinButton1Click(Sender);
  end;
end;

procedure Tfrm_op_airi_query.t_sys_queryAfterInsert(DataSet: TDataSet);
begin
  t_sys_query['<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
  t_sys_query['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_sys_query['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
end;

procedure Tfrm_op_airi_query.t_sys_query_detailAfterScroll(
  DataSet: TDataSet);
begin
  if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='varchar') then
  begin
    dxDBGrid1Column3.Items.Clear;
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    dxDBGrid1Column3.Items.Add('ģ<><C4A3>');
  end;
  if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='int') then
  begin
    dxDBGrid1Column3.Items.Clear;
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
    dxDBGrid1Column3.Items.Add('С<><D0A1>');
  end;
  if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='bit') then
  begin
    dxDBGrid1Column3.Items.Clear;
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  end;
  if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='date') then
  begin
    dxDBGrid1Column3.Items.Clear;
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
    dxDBGrid1Column3.Items.Add('С<><D0A1>');
  end;  
end;

procedure Tfrm_op_airi_query.t_sys_query_detailBeforePost(
  DataSet: TDataSet);
begin
  if t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='int' then
  begin
    try
      strtoint(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring);
    except
      showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
      abort;
    end;
  end;
  if t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='date' then
  begin
    try
      strtodate(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring);
    except
      showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
      abort;
    end;
  end;
  if t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='bit' then
  begin
    if (t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring<>'<27><>')
    and(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring<>'<27><>')then
    begin
      showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<5C>񣡣<EFBFBD>');
      abort;
    end;
  end;

  if (t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ').asstring<>'<27><>')
  and(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ').asstring<>'<27><>')then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵֻ<CFB5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<5C>򣡣<EFBFBD>');
    abort;
  end;

  if (dxDBGrid1Column3.Items.IndexOf(t_sys_query_detail.fieldbyname('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>').asstring)=-1)
  and (t_sys_query_detail.state<>dsinsert) then
  begin
    showmessage('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+dxDBGrid1Column3.Items.text+'<27><><EFBFBD><EFBFBD>');
    abort;
  end;
end;

procedure Tfrm_op_airi_query.bsSkinButton6Click(Sender: TObject);
begin
  t_sys_query.Insert;
  t_sys_query.post;
end;

procedure Tfrm_op_airi_query.bsSkinButton9Click(Sender: TObject);
begin
  while not t_sys_query_detail.eof do
  begin
    t_sys_query_detail.Delete;
  end;
  if not t_sys_query.Eof then
    t_sys_query.delete;
end;

procedure Tfrm_op_airi_query.loadFindIni;
var
  findini:tinifile ;
  mysec,tmpname:string;
  canload:boolean ;  //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
  i:integer ;
begin
  mysec:=inttostr(airi_query_table) ;
  findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'Airequery.ini');
  try
    canload:=findini.ReadBool(mysec,mysec,false);
    bsSkinCheckRadioBox1.Checked:=canload ;
    if canload then
    begin
      with bsSkinTabSheet2 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 TwwDBLookupCombo then
           (Controls[i] as TwwDBLookupCombo).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
{
      wwDBComboBox15.text:='ģ<><C4A3>';
      wwDBComboBox16.text:='ģ<><C4A3>';
      wwDBComboBox41.text:='ģ<><C4A3>';
      wwDBComboBox42.text:='ģ<><C4A3>';

      wwDBComboBox33.text:='ģ<><C4A3>';
      wwDBComboBox34.text:='ģ<><C4A3>';
      wwDBComboBox4.text:='ģ<><C4A3>';
      wwDBComboBox5.text:='ģ<><C4A3>';
      wwDBComboBox35.text:='ģ<><C4A3>';
      wwDBComboBox36.text:='ģ<><C4A3>';
      wwDBComboBox37.text:='ģ<><C4A3>';
      wwDBComboBox17.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox7.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox18.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox6.text:='С<><D0A1>';
      wwDBComboBox11.text:='С<><D0A1>';
      wwDBComboBox19.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox51.text:='С<><D0A1>';
      wwDBComboBox50.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox10.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox20.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox21.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox22.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox23.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox24.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox25.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox26.text:='ģ<><C4A3>';
      wwDBComboBox27.text:='ģ<><C4A3>';
      wwDBComboBox9.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox8.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox12.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox13.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox14.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox28.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox29.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox30.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox32.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox38.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox43.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox45.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox46.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox47.text:='ģ<><C4A3>';
      wwDBComboBox49.text:='<27><><EFBFBD><EFBFBD>';
      wwDBComboBox52.text:='<27><><EFBFBD><EFBFBD>';
}      
    end ;
   finally
    findini.free;
  end ;
end;

procedure Tfrm_op_airi_query.writeFindIni;
var
  findini:tinifile ;
  mysec,tmpname:string;
  canload:boolean ;  //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
  i:integer ;
begin
  canload:=bsSkinCheckRadioBox1.Checked ;
  mysec:=inttostr(airi_query_table) ;
  findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'Airequery.ini');
  try
    findini.WriteBool(mysec,mysec,canload);
    
    if canload then
    begin
      with bsSkinTabSheet2 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 TwwDBLookupCombo then
           findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBLookupCombo).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.