unit u_op_seae_history;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, dxExEdtr, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, DB, ADODB, dxDBTLCl, dxGrClms, RxLookup, StdCtrls,
  wwdbdatetimepicker;

type
  Tfrm_op_seae_history = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton5: TbsSkinButton;
    bsSkinNotebook1: TbsSkinNotebook;
    t_ch_fee: TADOQuery;
    t_ch_fee1: TDataSource;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    t_bill1: TDataSource;
    t_bill: TADOQuery;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinPanel3: TbsSkinPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label6: TLabel;
    Label1: TLabel;
    Label9: TLabel;
    RxDBLookupCombo2: TRxDBLookupCombo;
    Label3: TLabel;
    Edit4: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label10: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    dxDBGrid2: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridDateColumn;
    dxDBGrid1Column17: TdxDBGridDateColumn;
    dxDBGrid1Column18: TdxDBGridDateColumn;
    dxDBGrid1Column19: TdxDBGridMaskColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1Column22: TdxDBGridDateColumn;
    dxDBGrid1Column63: TdxDBGridMaskColumn;
    dxDBGrid1Column64: TdxDBGridMaskColumn;
    dxDBGrid1Column65: TdxDBGridDateColumn;
    dxDBGrid1Column66: TdxDBGridMaskColumn;
    dxDBGrid1Column67: TdxDBGridMaskColumn;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinPanel5: TbsSkinPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    RxDBLookupCombo1: TRxDBLookupCombo;
    Edit7: TEdit;
    Edit8: TEdit;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    dxDBGrid3: TdxDBGrid;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    dxDBGridMaskColumn10: TdxDBGridMaskColumn;
    dxDBGrid1Column62: TdxDBGridColumn;
    dxDBGridMaskColumn11: TdxDBGridMaskColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridMaskColumn18: TdxDBGridMaskColumn;
    dxDBGrid1Column41: TdxDBGridMaskColumn;
    dxDBGrid1Column47: TdxDBGridMaskColumn;
    dxDBGrid1Column48: TdxDBGridDateColumn;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinPanel7: TbsSkinPanel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    RxDBLookupCombo3: TRxDBLookupCombo;
    Edit11: TEdit;
    Edit12: TEdit;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    dxDBGrid4: TdxDBGrid;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGridMaskColumn19: TdxDBGridMaskColumn;
    dxDBGridMaskColumn20: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGridMaskColumn22: TdxDBGridMaskColumn;
    dxDBGridMaskColumn23: TdxDBGridMaskColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGrid1Column27: TdxDBGridMaskColumn;
    dxDBGrid1Column28: TdxDBGridMaskColumn;
    dxDBGrid1Column29: TdxDBGridMaskColumn;
    dxDBGrid1Column30: TdxDBGridDateColumn;
    bsSkinPanel8: TbsSkinPanel;
    bsSkinPanel9: TbsSkinPanel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Edit13: TEdit;
    Edit14: TEdit;
    RxDBLookupCombo4: TRxDBLookupCombo;
    Edit15: TEdit;
    Edit16: TEdit;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    dxDBGrid5: TdxDBGrid;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGridDateColumn4: TdxDBGridDateColumn;
    dxDBGridMaskColumn24: TdxDBGridMaskColumn;
    dxDBGridMaskColumn25: TdxDBGridMaskColumn;
    dxDBGridMaskColumn26: TdxDBGridMaskColumn;
    dxDBGridMaskColumn30: TdxDBGridMaskColumn;
    dxDBGridMaskColumn31: TdxDBGridMaskColumn;
    dxDBGridMaskColumn32: TdxDBGridMaskColumn;
    dxDBGridDateColumn5: TdxDBGridDateColumn;
    dxDBGridMaskColumn36: TdxDBGridMaskColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column24: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridDateColumn;
    op_type: TEdit;
    fee_type: TEdit;
    t_do_bill: TDataSource;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seae_history: Tfrm_op_seae_history;

implementation

uses u_main, my_sys_function, u_data_share;

{$R *.dfm}

procedure Tfrm_op_seae_history.bsSkinButton5Click(Sender: TObject);
begin
  CLOSE;
end;

procedure Tfrm_op_seae_history.FormShow(Sender: TObject);
begin
  bsSkinNotebook1.PageIndex:=strtoint(op_type.text);
end;

procedure Tfrm_op_seae_history.bsSkinButton10Click(Sender: TObject);
begin
  Edit1.text:='';
  Edit2.text:='';
  Edit3.text:='';
  Edit4.text:='';
  Edit5.text:='';
  Edit6.text:='';
  Edit7.text:='';
  Edit8.text:='';
  Edit9.text:='';
  Edit10.text:='';
  Edit11.text:='';
  Edit12.text:='';
  Edit13.text:='';
  Edit14.text:='';
  Edit15.text:='';
  Edit16.text:='';
  RxDBLookupCombo1.ClearValue;
  RxDBLookupCombo2.ClearValue;
  RxDBLookupCombo3.ClearValue;
  RxDBLookupCombo4.ClearValue;
  wwDBDateTimePicker1.Text:='';
  wwDBDateTimePicker2.Text:='';
  wwDBDateTimePicker3.Text:='';
  wwDBDateTimePicker4.Text:='';
end;


procedure Tfrm_op_seae_history.bsSkinButton2Click(Sender: TObject);
var
  str:widestring;
begin
  case bsSkinNotebook1.PageIndex of
    1:
    begin
      if Edit1.text<>''then
        str:=' where 业务编号 like '+''''+'%'+Edit1.text+'%'+'''';
      if Edit4.text<>''then
      begin
        if str=''then
          str:=' where 委托编号 like '+''''+'%'+Edit4.text+'%'+''''
        else
          str:=str+' and 委托编号 like '+''''+'%'+Edit4.text+'%'+'''';
      end;
      if Edit2.text<>''then
      begin
        if str=''then
          str:=' where 主提单号 like '+''''+'%'+Edit2.text+'%'+''''
        else
          str:=str+' and 主提单号 like '+''''+'%'+Edit2.text+'%'+'''';
      end;
      if Edit3.text<>''then
      begin
        if str=''then
          str:=' where 分提单号 like '+''''+'%'+Edit3.text+'%'+''''
        else
          str:=str+' and 分提单号 like '+''''+'%'+Edit3.text+'%'+'''';
      end;
      if RxDBLookupCombo2.DisplayValue<>''then
      begin
        if str=''then
          str:=' where 委托单位='+''''+RxDBLookupCombo2.DisplayValues[1]+''''
        else
          str:=str+' and 委托单位='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
      end;
      if wwDBDateTimePicker1.text<>''then
      begin
        if str=''then
          str:=' where 开船日期='+''''+wwDBDateTimePicker1.text+''''
        else
          str:=str+' and 开船日期='+''''+wwDBDateTimePicker1.text+'''';
      end;

      str:='select * from t_op_seae '+str+default_sort(53,'t_op_seae','','desc');
      t_bill.close;
      t_bill.sql.clear;
      t_bill.sql.add(str);
      t_bill.open;
    end;
    2:
    begin
      if Edit5.text<>''then
        str:=' where 业务编号 like '+''''+'%'+Edit5.text+'%'+'''';
      if Edit7.text<>''then
      begin
        if str=''then
          str:=' where 委托编号 like '+''''+'%'+Edit7.text+'%'+''''
        else
          str:=str+' and 委托编号 like '+''''+'%'+Edit7.text+'%'+'''';
      end;
      if Edit6.text<>''then
      begin
        if str=''then
          str:=' where 主提单号 like '+''''+'%'+Edit6.text+'%'+''''
        else
          str:=str+' and 主提单号 like '+''''+'%'+Edit6.text+'%'+'''';
      end;
      if Edit8.text<>''then
      begin
        if str=''then
          str:=' where 分提单号 like '+''''+'%'+Edit8.text+'%'+''''
        else
          str:=str+' and 分提单号 like '+''''+'%'+Edit8.text+'%'+'''';
      end;
      if RxDBLookupCombo1.DisplayValue<>''then
      begin
        if str=''then
          str:=' where 委托单位='+''''+RxDBLookupCombo1.DisplayValues[1]+''''
        else
          str:=str+' and 委托单位='+''''+RxDBLookupCombo1.DisplayValues[1]+'''';
      end;
      if wwDBDateTimePicker2.text<>''then
      begin
        if str=''then
          str:=' where 进口日期='+''''+wwDBDateTimePicker2.text+''''
        else
          str:=str+' and 进口日期='+''''+wwDBDateTimePicker2.text+'''';
      end;

      str:='select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc');
      t_bill.close;
      t_bill.sql.clear;
      t_bill.sql.add(str);
      t_bill.open;
    end;
    3:
    begin
      if Edit9.text<>''then
        str:=' where 业务编号 like '+''''+'%'+Edit9.text+'%'+'''';
      if Edit11.text<>''then
      begin
        if str=''then
          str:=' where 委托编号 like '+''''+'%'+Edit11.text+'%'+''''
        else
          str:=str+' and 委托编号 like '+''''+'%'+Edit11.text+'%'+'''';
      end;
      if Edit10.text<>''then
      begin
        if str=''then
          str:=' where 主运单号 like '+''''+'%'+Edit10.text+'%'+''''
        else
          str:=str+' and 主运单号 like '+''''+'%'+Edit10.text+'%'+'''';
      end;
      if Edit12.text<>''then
      begin
        if str=''then
          str:=' where 分运单号 like '+''''+'%'+Edit12.text+'%'+''''
        else
          str:=str+' and 分运单号 like '+''''+'%'+Edit12.text+'%'+'''';
      end;
      if RxDBLookupCombo3.DisplayValue<>''then
      begin
        if str=''then
          str:=' where 委托单位='+''''+RxDBLookupCombo3.DisplayValues[1]+''''
        else
          str:=str+' and 委托单位='+''''+RxDBLookupCombo3.DisplayValues[1]+'''';
      end;
      if wwDBDateTimePicker3.text<>''then
      begin
        if str=''then
          str:=' where 一程开航日期='+''''+wwDBDateTimePicker3.text+''''
        else
          str:=str+' and 一程开航日期='+''''+wwDBDateTimePicker3.text+'''';
      end;

      str:='select * from t_op_aire '+str+default_sort(55,'t_op_aire','','desc');
      t_bill.close;
      t_bill.sql.clear;
      t_bill.sql.add(str);
      t_bill.open;
    end;
    4:
    begin
      if Edit13.text<>''then
        str:=' where 业务编号 like '+''''+'%'+Edit13.text+'%'+'''';
      if Edit15.text<>''then
      begin
        if str=''then
          str:=' where 委托编号 like '+''''+'%'+Edit15.text+'%'+''''
        else
          str:=str+' and 委托编号 like '+''''+'%'+Edit15.text+'%'+'''';
      end;
      if Edit14.text<>''then
      begin
        if str=''then
          str:=' where 主提单号 like '+''''+'%'+Edit14.text+'%'+''''
        else
          str:=str+' and 主提单号 like '+''''+'%'+Edit14.text+'%'+'''';
      end;
      if Edit16.text<>''then
      begin
        if str=''then
          str:=' where 分运单号 like '+''''+'%'+Edit16.text+'%'+''''
        else
          str:=str+' and 分运单号 like '+''''+'%'+Edit16.text+'%'+'''';
      end;
      if RxDBLookupCombo4.DisplayValue<>''then
      begin
        if str=''then
          str:=' where 委托单位='+''''+RxDBLookupCombo4.DisplayValues[1]+''''
        else
          str:=str+' and 委托单位='+''''+RxDBLookupCombo4.DisplayValues[1]+'''';
      end;
      if wwDBDateTimePicker4.text<>''then
      begin
        if str=''then
          str:=' where 进口日期='+''''+wwDBDateTimePicker4.text+''''
        else
          str:=str+' and 进口日期='+''''+wwDBDateTimePicker4.text+'''';
      end;

      str:='select * from t_op_airi '+str+default_sort(56,'t_op_airi','','desc');
      t_bill.close;
      t_bill.sql.clear;
      t_bill.sql.add(str);
      t_bill.open;
    end;
  end;
end;

procedure Tfrm_op_seae_history.bsSkinButton3Click(Sender: TObject);
begin
  if t_bill.IsEmpty then exit;

  t_do_bill.DataSet.Edit;
  t_do_bill.DataSet.fieldbyname('收货人').AsString:=t_bill.fieldbyname('收货人').AsString;
  t_do_bill.DataSet.fieldbyname('通知人').AsString:=t_bill.fieldbyname('通知人').AsString;
  t_do_bill.DataSet.fieldbyname('发货人').AsString:=t_bill.fieldbyname('发货人').AsString;
  t_do_bill.DataSet.fieldbyname('收货人代码').AsString:=t_bill.fieldbyname('收货人代码').AsString;
  t_do_bill.DataSet.fieldbyname('通知人代码').AsString:=t_bill.fieldbyname('通知人代码').AsString;
  t_do_bill.DataSet.fieldbyname('发货人代码').AsString:=t_bill.fieldbyname('发货人代码').AsString;
  t_do_bill.DataSet.post;
  close;
end;

end.