unit u_info_price_ask_query;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, wwdbdatetimepicker, RxLookup,
  StdCtrls, wwdblook, Mask, wwdbedit, Wwdotdot, Wwdbcomb;

type
  Tfrm_info_price_ask_query = class(TForm)
    Label124: TLabel;
    Label20: TLabel;
    Label13: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label21: TLabel;
    Label1: TLabel;
    wwDBLookupCombo3: TwwDBLookupCombo;
    wwDBLookupCombo52: TwwDBLookupCombo;
    RxDBLookupCombo5: TRxDBLookupCombo;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    RxDBLookupCombo2: TRxDBLookupCombo;
    RxDBLookupCombo20: TRxDBLookupCombo;
    RxDBLookupCombo1: TRxDBLookupCombo;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Edit1: TEdit;
    Label2: TLabel;
    wwDBComboBox2: TwwDBComboBox;
    Label3: TLabel;
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_price_ask_query: Tfrm_info_price_ask_query;

implementation

uses u_info_price_ask, my_sys_function, u_data_share;

{$R *.dfm}

procedure Tfrm_info_price_ask_query.bsSkinButton10Click(Sender: TObject);
begin
  RxDBLookupCombo1.ClearValue;
  RxDBLookupCombo5.ClearValue;
  wwDBDateTimePicker1.text:='';
  wwDBDateTimePicker2.text:='';
  Edit1.text:='';
  wwDBComboBox2.text:='';
  wwDBLookupCombo3.text:='';
  wwDBLookupCombo52.text:='';
  RxDBLookupCombo2.ClearValue;
  RxDBLookupCombo20.ClearValue;
end;

procedure Tfrm_info_price_ask_query.bsSkinButton1Click(Sender: TObject);
var
  str:widestring;
begin
  str:='SELECT * FROM t_price_ask  where (1=1) ' ; //+open_data('3005','报价人','no','no','no','no');
  if RxDBLookupCombo1.DisplayValue<>''then
    str:=str+' and 询价客户='+''''+RxDBLookupCombo1.DisplayValue+'''';
  if RxDBLookupCombo5.DisplayValue<>''then
    str:=str+' and 报价人='+''''+RxDBLookupCombo5.DisplayValue+'''';
  if wwDBDateTimePicker1.text<>''then
    str:=str+' and 报价日期>='+''''+wwDBDateTimePicker1.text+'''';
  if wwDBDateTimePicker2.text<>''then
    str:=str+' and 报价日期<='+''''+wwDBDateTimePicker2.text+'''';
  if Edit1.text<>''then
    str:=str+' and 询价人 like '+''''+'%'+Edit1.text+'%'+'''';
  if wwDBComboBox2.text<>''then
    str:=str+' and 重要程度='+''''+wwDBComboBox2.text+'''';
  if wwDBLookupCombo3.text<>''then
    str:=str+' and 启运港 like '+''''+'%'+wwDBLookupCombo3.text+'%'+'''';
  if wwDBLookupCombo52.text<>''then
    str:=str+' and 目的港 like '+''''+'%'+wwDBLookupCombo52.text+'%'+'''';
  if RxDBLookupCombo2.DisplayValue<>''then
    str:=str+' and 船公司='+''''+RxDBLookupCombo2.DisplayValue+'''';
  if RxDBLookupCombo20.DisplayValue<>''then
    str:=str+' and 航线='+''''+RxDBLookupCombo20.DisplayValue+'''';
  frm_info_price_ask.t_price_ask.close;
  frm_info_price_ask.t_price_ask.sql.Clear;
  frm_info_price_ask.t_price_ask.sql.add(str);
  frm_info_price_ask.t_price_ask.sql.add(' order by 询价编号');
  frm_info_price_ask.t_price_ask.open;
  if frm_info_price_ask.t_price_ask.isempty then
    showmessage('没有检索出信息！！')
  else
    close; 
end;

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

procedure Tfrm_info_price_ask_query.RxDBLookupCombo1KeyPress(
  Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    frm_info_price_ask_query.bsSkinButton1Click(Sender);
  end;
end;

end.