unit u_op_seai_query;

interface

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

type
  Tfrm_op_seai_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;
    Label28: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    Label24: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label26: TLabel;
    Label25: TLabel;
    Label31: 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;
    wwDBLookupCombo3: TwwDBLookupCombo;
    wwDBLookupCombo52: TwwDBLookupCombo;
    RxDBLookupCombo5: TRxDBLookupCombo;
    RxDBLookupCombo6: TRxDBLookupCombo;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    RxDBLookupCombo7: TRxDBLookupCombo;
    RxDBLookupCombo8: TRxDBLookupCombo;
    RxDBLookupCombo9: TRxDBLookupCombo;
    RxDBLookupCombo11: TRxDBLookupCombo;
    RxDBLookupCombo20: TRxDBLookupCombo;
    wwDBComboBox3: TwwDBComboBox;
    wwDBComboBox4: TwwDBComboBox;
    wwDBComboBox5: TwwDBComboBox;
    wwDBComboBox6: TwwDBComboBox;
    wwDBComboBox7: TwwDBComboBox;
    wwDBComboBox8: TwwDBComboBox;
    wwDBComboBox9: TwwDBComboBox;
    wwDBComboBox10: TwwDBComboBox;
    wwDBComboBox11: TwwDBComboBox;
    wwDBComboBox12: TwwDBComboBox;
    wwDBComboBox13: TwwDBComboBox;
    wwDBComboBox14: TwwDBComboBox;
    wwDBComboBox15: TwwDBComboBox;
    wwDBComboBox16: TwwDBComboBox;
    wwDBComboBox17: TwwDBComboBox;
    wwDBComboBox18: TwwDBComboBox;
    wwDBComboBox19: TwwDBComboBox;
    wwDBComboBox20: TwwDBComboBox;
    wwDBComboBox21: TwwDBComboBox;
    wwDBComboBox22: TwwDBComboBox;
    wwDBComboBox23: TwwDBComboBox;
    wwDBComboBox24: TwwDBComboBox;
    wwDBComboBox25: TwwDBComboBox;
    wwDBComboBox26: TwwDBComboBox;
    wwDBComboBox27: TwwDBComboBox;
    wwDBComboBox28: TwwDBComboBox;
    RxDBLookupCombo10: TRxDBLookupCombo;
    RxDBLookupCombo12: TRxDBLookupCombo;
    wwDBComboBox29: TwwDBComboBox;
    wwDBComboBox32: TwwDBComboBox;
    RxDBLookupCombo13: TRxDBLookupCombo;
    wwDBComboBox30: TwwDBComboBox;
    Edit5: TEdit;
    wwDBComboBox37: TwwDBComboBox;
    Edit8: TEdit;
    wwDBComboBox38: TwwDBComboBox;
    Edit9: TEdit;
    t_sys_queryfields: TADOQuery;
    t_sys_queryfields1: 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;
    t_sys_query: TADOQuery;
    t_sys_query1: TDataSource;
    t_sys_query_detail: TADOQuery;
    t_sys_query_detail1: TDataSource;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2SQ_ID: TdxDBGridMaskColumn;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridPickColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridPickColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    Label37: TLabel;
    wwDBComboBox41: TwwDBComboBox;
    Edit10: TEdit;
    Label38: TLabel;
    wwDBComboBox42: TwwDBComboBox;
    Edit11: TEdit;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure FormShow(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 }
  public
    { Public declarations }
  end;

var
  frm_op_seai_query: Tfrm_op_seai_query;
  seai_query_limited:string;
  seai_query_table:integer;

implementation

uses u_op_seai, my_sys_function, u_ch_fee_seai_sales, u_ch_fee_check_seai,
  u_op_seai_close, u_rp_tai_seai, u_rp_rp_seai, u_rp_fee_modify,
  u_rp_zou_seai, u_rp_fen_seai, u_data_share, u_main, u_op_seai_apply;

{$R *.dfm}

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

procedure Tfrm_op_seai_query.bsSkinButton10Click(Sender: TObject);
begin
  Edit1.text:='';
  Edit2.text:='';
  Edit3.text:='';
  Edit4.text:='';
  wwDBComboBox1.text:='';
  wwDBComboBox2.text:='';
  wwDBDateTimePicker1.Clear;
  wwDBDateTimePicker2.Clear;
  wwDBDateTimePicker3.Clear;
  wwDBDateTimePicker4.Clear;
  wwDBComboBox3.text:='';
  RxDBLookupCombo20.ClearValue;
  RxDBLookupCombo2.ClearValue;
  RxDBLookupCombo1.ClearValue;
  RxDBLookupCombo9.ClearValue;
  RxDBLookupCombo8.ClearValue;
  RxDBLookupCombo11.ClearValue;
  RxDBLookupCombo7.ClearValue;
  wwDBLookupCombo3.text:='';
  wwDBLookupCombo52.text:='';
  RxDBLookupCombo4.ClearValue;
  RxDBLookupCombo3.ClearValue;
  RxDBLookupCombo6.ClearValue;
  RxDBLookupCombo5.ClearValue;
  RxDBLookupCombo10.ClearValue;
  RxDBLookupCombo12.ClearValue;
  RxDBLookupCombo13.ClearValue;
  Edit5.text:='';
end;

procedure Tfrm_op_seai_query.FormShow(Sender: TObject);
begin
  wwDBComboBox15.text:='模糊';
  wwDBComboBox16.text:='模糊';
  wwDBComboBox4.text:='模糊';
  wwDBComboBox5.text:='模糊';
  wwDBComboBox41.text:='模糊';
  wwDBComboBox42.text:='模糊';
  wwDBComboBox17.text:='等于';
  wwDBComboBox7.text:='等于';
  wwDBComboBox18.text:='大于';
  wwDBComboBox6.text:='小于';
  wwDBComboBox11.text:='小于';
  wwDBComboBox19.text:='大于';
  wwDBComboBox10.text:='等于';
  wwDBComboBox20.text:='等于';
  wwDBComboBox21.text:='等于';
  wwDBComboBox22.text:='等于';
  wwDBComboBox23.text:='等于';
  wwDBComboBox24.text:='等于';
  wwDBComboBox25.text:='等于';
  wwDBComboBox26.text:='模糊';
  wwDBComboBox27.text:='模糊';
  wwDBComboBox9.text:='等于';
  wwDBComboBox8.text:='等于';
  wwDBComboBox12.text:='等于';
  wwDBComboBox13.text:='等于';
  wwDBComboBox14.text:='等于';
  wwDBComboBox28.text:='等于';
  wwDBComboBox29.text:='等于';
  wwDBComboBox30.text:='模糊';
  wwDBComboBox32.text:='等于';
  wwDBComboBox37.text:='模糊';
  wwDBComboBox38.text:='等于';
  
  frm_data_share.t_code_state.Filtered:=false;
  frm_data_share.t_code_state.Filter:='业务种类='+''''+'海运进口'+'''';
  frm_data_share.t_code_state.Filtered:=true;
  frm_data_share.t_crm_client_ship.requery;
  frm_data_share.t_crm_client_changzhan.requery;
  frm_data_share.t_crm_client_truck.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_crm_client_huodai.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('业务状态').asstring);
    frm_data_share.t_code_state.next;
  end;
  wwDBComboBox1.Items.Add('业务封帐');
  t_sys_query.Parameters.ParamByName('查询类型').Value:='海运进口';
  t_sys_query.Parameters.ParamByName('录入人').Value:=employee;
  t_sys_query.open;
  t_sys_query_detail.open;
  t_sys_queryfields.open;
  wwDBComboBox39.ItemIndex:=0;
end;

procedure Tfrm_op_seai_query.bsSkinButton1Click(Sender: TObject);
var
  str:widestring;
  str_date:string;
begin
  str:='';
  if bsSkinTabSheet2.Showing then
  begin
    str:=query_tiaojian(1,str,'t_op_seai.业务编号',wwDBComboBox15.text,Edit1.text);
    str:=query_tiaojian(1,str,'t_op_seai.委托编号',wwDBComboBox4.text,Edit4.text);
    str:=query_tiaojian(1,str,'t_op_seai.主提单号',wwDBComboBox16.text,Edit2.text);
    str:=query_tiaojian(1,str,'t_op_seai.报关单号',wwDBComboBox41.text,Edit10.text);
    str:=query_tiaojian(1,str,'t_op_seai.报检单号',wwDBComboBox42.text,Edit11.text);
    str:=query_tiaojian(1,str,'t_op_seai.合同号',wwDBComboBox5.text,Edit3.text);
    str:=query_tiaojian(1,str,'t_op_seai.业务状态',wwDBComboBox17.text,wwDBComboBox1.text);
    str:=query_tiaojian(1,str,'t_op_seai.费用状态',wwDBComboBox7.text,wwDBComboBox2.text);
    str:=query_tiaojian(1,str,'t_op_seai.进口日期',wwDBComboBox18.text,wwDBDateTimePicker1.text);
    str:=query_tiaojian(1,str,'t_op_seai.进口日期',wwDBComboBox6.text,wwDBDateTimePicker2.text);
    str:=query_tiaojian(1,str,'t_op_seai.会计期间',wwDBComboBox19.text,wwDBDateTimePicker3.text);
    str:=query_tiaojian(1,str,'t_op_seai.会计期间',wwDBComboBox11.text,wwDBDateTimePicker4.text);
    str:=query_tiaojian(1,str,'t_op_seai.装运方式',wwDBComboBox20.text,wwDBComboBox3.text);
    str:=query_tiaojian(1,str,'t_op_seai.航线',wwDBComboBox10.text,RxDBLookupCombo20.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_seai.委托单位',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_seai.船公司',wwDBComboBox9.text,RxDBLookupCombo1.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_seai.报关行',wwDBComboBox22.text,RxDBLookupCombo9.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_seai.货代公司',wwDBComboBox8.text,RxDBLookupCombo8.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_seai.承运车队',wwDBComboBox23.text,RxDBLookupCombo11.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_seai.场站',wwDBComboBox12.text,RxDBLookupCombo7.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_seai.卸货港',wwDBComboBox26.text,wwDBLookupCombo3.text);
    str:=query_tiaojian(1,str,'t_op_seai.装货港',wwDBComboBox27.text,wwDBLookupCombo52.text);
    str:=query_tiaojian(1,str,'t_op_seai.客服员',wwDBComboBox24.text,RxDBLookupCombo4.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_seai.揽货人',wwDBComboBox14.text,RxDBLookupCombo3.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_seai.操作员',wwDBComboBox25.text,RxDBLookupCombo6.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_seai.录入人',wwDBComboBox13.text,RxDBLookupCombo5.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_seai.货物名称',wwDBComboBox32.text,RxDBLookupCombo13.DisplayValues[1]);
    str:=query_tiaojian(1,str,'t_op_seai.发票号',wwDBComboBox30.text,Edit5.text);
    str:=query_tiaojian(1,str,'t_op_seai.销售部门',wwDBComboBox28.text,RxDBLookupCombo10.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_seai.操作部门',wwDBComboBox29.text,RxDBLookupCombo12.DisplayValue);
    str:=query_tiaojian(1,str,'t_op_seai.箱号封号',wwDBComboBox37.text,Edit8.text);
    str:=query_tiaojian(2,str,'t_op_seai.周次',wwDBComboBox38.text,Edit9.text);
  end
  else
  begin
    if query_wanneng_error(t_sys_query_detail)then
    begin
      showmessage('‘或’的条件必须在2个以上！！');
      exit;
    end;
    str:=query_wanneng(t_sys_query_detail);
  end;
  
  case seai_query_table of
    1,10:
    begin
      if seai_query_limited<>'no'then
      begin
        if trim(str)='' then
        begin
          str:='where '+open_data(seai_query_limited,'t_op_seai.录入人','t_op_seai.操作员','t_op_seai.客服员','no','no');
        end
        else
        begin
          str:=str+' and '+open_data(seai_query_limited,'t_op_seai.录入人','t_op_seai.操作员','t_op_seai.客服员','no','no');
        end;
      end;
    end;
    2:
    begin
      if seai_query_limited<>'no'then
      begin
        if trim(str)='' then
        begin
          str:='where '+open_data(seai_query_limited,'t_op_seai.揽货人','no','no','no','no');
        end
        else
        begin
          str:=str+' and '+open_data(seai_query_limited,'t_op_seai.揽货人','no','no','no','no');
        end;
      end;
    end;
    3,5,6,7,8:
    begin
      if seai_query_limited<>'no'then
      begin
        if trim(str)='' then
        begin
          str:='where '+open_data(seai_query_limited,'t_op_seai.揽货人','t_op_seai.操作员','t_op_seai.客服员','no','no');
        end
        else
        begin
          str:=str+' and '+open_data(seai_query_limited,'t_op_seai.揽货人','t_op_seai.操作员','t_op_seai.客服员','no','no');
        end;
      end;
    end;
  end;
  
  case seai_query_table of
    1:
    begin
      frm_op_seai.t_op_seai.close;
      frm_op_seai.t_op_seai.sql.clear;
      frm_op_seai.t_op_seai.sql.add('select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc'));
      frm_op_seai.t_op_seai.Open;
      if frm_op_seai.t_op_seai.IsEmpty then
      begin
        showmessage('没有检索出所需数据！！');
        exit;
      end;
    end;
    2:
    begin
      frm_ch_fee_seai_sales.t_op_seai.Close;
      frm_ch_fee_seai_sales.t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc');
      frm_ch_fee_seai_sales.t_op_seai.Open;
      if frm_ch_fee_seai_sales.t_op_seai.IsEmpty then
      begin
        showmessage('没有检索出所需数据！！');
        exit;
      end;
    end;
    3:
    begin
      frm_ch_fee_check_seai.t_op_seai.Close;
      frm_ch_fee_check_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc');
      frm_ch_fee_check_seai.t_op_seai.Open;
      if frm_ch_fee_check_seai.t_op_seai.IsEmpty then
      begin
        showmessage('没有检索出所需数据！！');
        exit;
      end;
    end;
    4:
    begin
      frm_op_seai_close.t_op_seai.close;
      frm_op_seai_close.t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc');
      frm_op_seai_close.t_op_seai.Open;
      frm_op_seai_close.t_ch_accept.open;
      frm_op_seai_close.t_ch_pay.open;
      frm_op_seai_close.t_op_gain.OPEN;
      if frm_op_seai_close.t_op_seai.IsEmpty then
      begin
        showmessage('没有检索出所需数据！！');
        exit;
      end;
    end;
    5:
    begin
      frm_rp_tai_seai.p_query_table.close;
      frm_rp_tai_seai.p_query_table.Parameters.ParamByName('SQLStr').value:=
          'SELECT t_op_seai.*, t_op_gain.应收USD, t_op_gain.已收USD,(t_op_gain.应收USD-t_op_gain.已收USD)'
          +' AS 未收USD,t_op_gain.应收RMB, t_op_gain.已收RMB,(t_op_gain.应收RMB-t_op_gain.已收RMB)'
          +' AS 未收RMB, t_op_gain.合计应收,t_op_gain.合计已收,(t_op_gain.合计应收-t_op_gain.合计已收)'
          +' AS 合计未收,t_op_gain.应付USD, t_op_gain.已付USD, (t_op_gain.应付USD-t_op_gain.已付USD)'
          +' AS 未付USD,t_op_gain.应付RMB, t_op_gain.已付RMB,(t_op_gain.应付RMB- t_op_gain.已付RMB)'
          +' AS 未付RMB,t_op_gain.合计应付,t_op_gain.合计已付,(t_op_gain.合计应付-t_op_gain.合计已付)'
          +' AS 合计未付,t_op_gain.利润USD, t_op_gain.利润RMB, t_op_gain.毛利润, t_op_gain.利润率'
          +' FROM t_op_seai left JOIN t_op_gain ON t_op_seai.编号 = t_op_gain.编号 '
          +str+default_sort(54,'t_op_seai','','desc');
      frm_rp_tai_seai.p_query_table.Open;
      if frm_rp_tai_seai.p_query_table.IsEmpty then
      begin
        showmessage('没有检索出所需数据！！');
        exit;
      end;
    end;
    6:
    begin
      frm_rp_rp_seai.p_detail.close;
      frm_rp_rp_seai.p_detail.Parameters.ParamByName('SQLStr').value:=
           'SELECT t_op_seai.*, t_op_gain.应收USD, t_op_gain.已收USD,(t_op_gain.应收USD-t_op_gain.已收USD)'
          +' AS 未收USD,t_op_gain.应收RMB, t_op_gain.已收RMB,(t_op_gain.应收RMB-t_op_gain.已收RMB)'
          +' AS 未收RMB, t_op_gain.合计应收,t_op_gain.合计已收,(t_op_gain.合计应收-t_op_gain.合计已收)'
          +' AS 合计未收,t_op_gain.应付USD, t_op_gain.已付USD, (t_op_gain.应付USD-t_op_gain.已付USD)'
          +' AS 未付USD,t_op_gain.应付RMB, t_op_gain.已付RMB,(t_op_gain.应付RMB- t_op_gain.已付RMB)'
          +' AS 未付RMB,t_op_gain.合计应付,t_op_gain.合计已付,(t_op_gain.合计应付-t_op_gain.合计已付)'
          +' AS 合计未付,t_op_gain.利润USD, t_op_gain.利润RMB, t_op_gain.毛利润, t_op_gain.利润率'
          +' FROM t_op_seai left JOIN t_op_gain ON t_op_seai.编号 = t_op_gain.编号 '
          +str+default_sort(54,'t_op_seai','','desc');
      frm_rp_rp_seai.p_detail.Open;
      if frm_rp_rp_seai.p_detail.IsEmpty then
      begin
        showmessage('没有检索出所需数据！！');
        exit;
      end;
    end;
    7:
    begin
      if frm_rp_zou_seai.bsSkinCheckRadioBox1.Checked then
        str_date:='会计期间'
      else
        str_date:='进口日期';
      frm_rp_zou_seai.p_lirun.close;
      frm_rp_zou_seai.p_lirun.Parameters.ParamByName('SQLStr').value:=
        'SELECT SUBSTRING(CONVERT(char(15),t_op_seai.'+str_date+',111),1,7) AS 月份,'
        +'SUM(dbo.t_op_gain.毛利润) AS 毛利润,'
        +'sum(t_op_seai.箱TEU) as 箱TEU,count(t_op_seai.编号) as 票数'
        +' FROM t_op_seai left JOIN t_op_gain'
        +' ON t_op_seai.编号 =t_op_gain.编号 '
        +str
        +' GROUP BY SUBSTRING(CONVERT(char(15),t_op_seai.'+str_date+',111),1,7)'
        +' order by SUBSTRING(CONVERT(char(15),'+str_date+', 111), 1, 7)';      
      frm_rp_zou_seai.p_lirun.Open;
    end;
    8:
    begin
      {frm_rp_fen_seai.p_client.close;
      frm_rp_fen_seai.p_client.Parameters.ParamByName('SQLStr').value:=
         'SELECT t_op_seai.箱TEU,t_op_seai.委托单位'
        +',t_op_seai.操作员,t_op_seai.操作部门,t_op_seai.揽货人,t_op_seai.销售部门'
        +',t_op_seai.船公司,t_op_seai.航线,t_op_seai.装运方式'
        +',t_op_gain.毛利润 FROM t_op_seai left JOIN t_op_gain ON '
        +'t_op_seai.编号 =t_op_gain.编号 '
        +str;       
      frm_rp_fen_seai.p_client.Open;   }
      fen_seai_str:=str;
    end;
    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_seai.close;
      frm_rp_fee_modify.p_seai.Parameters.ParamByName('SQLStr').value:=
        'SELECT t_op_seai.*, v_ch_fee_modify_sum.利润调整 AS 利润调整 '
        +'FROM t_op_seai INNER JOIN '
        +'v_ch_fee_modify_sum ON t_op_seai.编号 = v_ch_fee_modify_sum.编号 '+str+default_sort(54,'t_op_seai','','desc');
      frm_rp_fee_modify.p_seai.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;
    10:
    begin
      frm_op_seai_apply.t_op_seai.close;
      frm_op_seai_apply.t_op_seai.sql.clear;
      frm_op_seai_apply.t_op_seai.sql.add('select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc'));
      frm_op_seai_apply.t_op_seai.Open;
      if frm_op_seai_apply.t_op_seai.IsEmpty then
      begin
        showmessage('没有检索出所需数据！！');
        exit;
      end;
    end; 
  end;  
  close;  
end;

procedure Tfrm_op_seai_query.RxDBLookupCombo14Change(Sender: TObject);
begin
  query_str_int.text:='';
  query_bit.text:='';
  query_date.text:='';
  if t_sys_queryfields.Locate('字段名称',RxDBLookupCombo14.DisplayValue,[])then
  begin
    wwDBComboBox40.ItemIndex:=-1;
    wwDBComboBox40.Items.Clear;
    if (t_sys_queryfields.FieldByName('类型').asstring='varchar') then
    begin
      query_str_int.Visible:=true;
      query_bit.Visible:=false;
      query_date.Visible:=false;
      wwDBComboBox40.Items.Add('等于');
      wwDBComboBox40.Items.Add('不等于');
      wwDBComboBox40.Items.Add('模糊');
      wwDBComboBox40.ItemIndex:=2;
    end;
    if (t_sys_queryfields.FieldByName('类型').asstring='int') then
    begin
      query_str_int.Visible:=true;
      query_bit.Visible:=false;
      query_date.Visible:=false;
      wwDBComboBox40.Items.Add('等于');
      wwDBComboBox40.Items.Add('不等于');
      wwDBComboBox40.Items.Add('大于');
      wwDBComboBox40.Items.Add('小于');
      wwDBComboBox40.ItemIndex:=0; 
    end;
    if (t_sys_queryfields.FieldByName('类型').asstring='bit') then
    begin
      query_str_int.Visible:=false;
      query_bit.Visible:=true;
      query_date.Visible:=false;
      wwDBComboBox40.Items.Add('等于');
      wwDBComboBox40.Items.Add('不等于');
      wwDBComboBox40.ItemIndex:=0;
    end;
    if (t_sys_queryfields.FieldByName('类型').asstring='date') then
    begin
      query_str_int.Visible:=false;
      query_bit.Visible:=false;
      query_date.Visible:=true;
      wwDBComboBox40.Items.Add('等于');
      wwDBComboBox40.Items.Add('不等于');
      wwDBComboBox40.Items.Add('大于');
      wwDBComboBox40.Items.Add('小于');
      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_seai_query.bsSkinButton2Click(Sender: TObject);
begin
  if RxDBLookupCombo14.DisplayValue='' then
  begin
    showmessage('请输入条件名称！！');
    exit;
  end;
  if wwDBComboBox39.ItemIndex=-1 then
  begin
    showmessage('请输入条件关系！！');
    exit;
  end;
  if wwDBComboBox40.ItemIndex=-1 then
  begin
    showmessage('请输入查询类型！！');
    exit;
  end;

  if query_str_int.Visible then
  begin
    if query_str_int.text='' then
    begin
      showmessage('请输入条件值！！');
      exit;
    end;
    if (t_sys_queryfields.FieldByName('类型').asstring='int') then
    begin
      try
        strtoint(query_str_int.text);
      except
        showmessage('条件值只能输入数字！！');
        exit;
      end;
    end;
  end;
  if query_bit.Visible then
  begin
    if query_bit.ItemIndex=-1 then
    begin
      showmessage('请输入条件值！！');
      exit;
    end;
  end;
  if query_date.Visible then
  begin
    if query_date.text='' then
    begin
      showmessage('请输入条件值！！');
      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['表']:=t_sys_queryfields['表'];
  t_sys_query_detail['字段名']:=t_sys_queryfields['字段名称'];
  if query_str_int.Visible then
  begin
    t_sys_query_detail['条件值']:=query_str_int.text;
  end;
  if query_bit.Visible then
  begin
    t_sys_query_detail['条件值']:=query_bit.text;
  end;
  if query_date.Visible then
  begin
    t_sys_query_detail['条件值']:=query_date.text;
  end;
  t_sys_query_detail['字段类型']:=t_sys_queryfields['类型'];
  t_sys_query_detail['条件关系']:=wwDBComboBox39.text;
  t_sys_query_detail['查询类型']:=wwDBComboBox40.text;
  t_sys_query_detail.post;
end;

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

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

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

procedure Tfrm_op_seai_query.t_sys_queryAfterInsert(DataSet: TDataSet);
begin
  t_sys_query['查询类型']:='海运进口';
  t_sys_query['录入人']:=employee;
  t_sys_query['录入日期']:=date;
end;

procedure Tfrm_op_seai_query.t_sys_query_detailAfterScroll(
  DataSet: TDataSet);
begin
  if (t_sys_query_detail.fieldbyname('字段类型').asstring='varchar') then
  begin
    dxDBGrid1Column3.Items.Clear;
    dxDBGrid1Column3.Items.Add('等于');
    dxDBGrid1Column3.Items.Add('不等于');
    dxDBGrid1Column3.Items.Add('模糊');
  end;
  if (t_sys_query_detail.fieldbyname('字段类型').asstring='int') then
  begin
    dxDBGrid1Column3.Items.Clear;
    dxDBGrid1Column3.Items.Add('等于');
    dxDBGrid1Column3.Items.Add('不等于');
    dxDBGrid1Column3.Items.Add('大于');
    dxDBGrid1Column3.Items.Add('小于');
  end;
  if (t_sys_query_detail.fieldbyname('字段类型').asstring='bit') then
  begin
    dxDBGrid1Column3.Items.Clear;
    dxDBGrid1Column3.Items.Add('等于');
    dxDBGrid1Column3.Items.Add('不等于');
  end;
  if (t_sys_query_detail.fieldbyname('字段类型').asstring='date') then
  begin
    dxDBGrid1Column3.Items.Clear;
    dxDBGrid1Column3.Items.Add('等于');
    dxDBGrid1Column3.Items.Add('不等于');
    dxDBGrid1Column3.Items.Add('大于');
    dxDBGrid1Column3.Items.Add('小于');
  end; 
end;

procedure Tfrm_op_seai_query.t_sys_query_detailBeforePost(
  DataSet: TDataSet);
begin
  if t_sys_query_detail.fieldbyname('字段类型').asstring='int' then
  begin
    try
      strtoint(t_sys_query_detail.fieldbyname('条件值').asstring);
    except
      showmessage('条件值只能输入数字！！');
      abort;
    end;
  end;
  if t_sys_query_detail.fieldbyname('字段类型').asstring='date' then
  begin
    try
      strtodate(t_sys_query_detail.fieldbyname('条件值').asstring);
    except
      showmessage('条件值只能输入日期！！');
      abort;
    end;
  end;
  if t_sys_query_detail.fieldbyname('字段类型').asstring='bit' then
  begin
    if (t_sys_query_detail.fieldbyname('条件值').asstring<>'否')
    and(t_sys_query_detail.fieldbyname('条件值').asstring<>'是')then
    begin
      showmessage('条件值只能输入是\否！！');
      abort;
    end;
  end;

  if (t_sys_query_detail.fieldbyname('条件关系').asstring<>'且')
  and(t_sys_query_detail.fieldbyname('条件关系').asstring<>'或')then
  begin
    showmessage('条件关系只能输入且\或！！');
    abort;
  end;

  if (dxDBGrid1Column3.Items.IndexOf(t_sys_query_detail.fieldbyname('查询类型').asstring)=-1)
  and (t_sys_query_detail.state<>dsinsert) then
  begin
    showmessage('查询类型只能输入'+dxDBGrid1Column3.Items.text+'！！');
    abort;
  end;
end;

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

procedure Tfrm_op_seai_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;

end.