DS6JIEFENG/海运业务/u_op_seaetd_query.pas

unit u_op_seaetd_query;

interface

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

type
  Tfrm_op_seaetd_query = class(TForm)
    Label10: TLabel;
    Label9: TLabel;
    Label7: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label20: TLabel;
    Label124: TLabel;
    RxDBLookupCombo2: TRxDBLookupCombo;
    Edit2: TEdit;
    Edit4: TEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwDBLookupCombo3: TwwDBLookupCombo;
    wwDBLookupCombo52: TwwDBLookupCombo;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    wwDBComboBox4: TwwDBComboBox;
    wwDBComboBox6: TwwDBComboBox;
    wwDBComboBox16: TwwDBComboBox;
    wwDBComboBox17: TwwDBComboBox;
    wwDBComboBox18: TwwDBComboBox;
    wwDBComboBox21: TwwDBComboBox;
    wwDBComboBox26: TwwDBComboBox;
    wwDBComboBox27: TwwDBComboBox;
    ComboBox1: TComboBox;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    sqltype:integer ;
  public
    { Public declarations }
    findstr:string ;
  end;

var
  frm_op_seaetd_query: Tfrm_op_seaetd_query;

implementation

{$R *.dfm}

uses u_main,my_sys_function ;

procedure Tfrm_op_seaetd_query.bsSkinButton5Click(Sender: TObject);
begin
  modalresult:=mrcancel;
end;

procedure Tfrm_op_seaetd_query.bsSkinButton1Click(Sender: TObject);
var tdqr:string ;
begin
  case ComboBox1.ItemIndex of
    1:tdqr:=td_assate1 ;
    2:tdqr:=td_assate2 ;
    3:tdqr:=td_assate3 ;
    4:tdqr:=td_assate4 ;
    else tdqr:='' ;
  end ;

  findstr:='where 1=1 ';
  findstr:=query_tiaojian(1,findstr,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox16.text,Edit2.text);
  findstr:=query_tiaojian(1,findstr,'ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox4.text,edit4.text);
  findstr:=query_tiaojian(1,findstr,'ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox18.text,wwDBDateTimePicker1.text);
  findstr:=query_tiaojian(1,findstr,'ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox6.text,wwDBDateTimePicker2.text);
  findstr:=query_tiaojian(1,findstr,'ί<>е<EFBFBD>λ',wwDBComboBox21.text,RxDBLookupCombo2.Value);
  findstr:=query_tiaojian(1,findstr,'װ<><D7B0><EFBFBD><EFBFBD>',wwDBComboBox26.text,wwDBLookupCombo3.Text);
  findstr:=query_tiaojian(1,findstr,'ж<><D0B6><EFBFBD><EFBFBD>',wwDBComboBox27.text,wwDBLookupCombo52.text);
  if ComboBox1.ItemIndex>0 then
    findstr:=findstr+' and <20>ύȷ<E1BDBB><C8B7>='''+tdqr+'''' ;
  Modalresult:=mrok ;
end;

procedure Tfrm_op_seaetd_query.bsSkinButton10Click(Sender: TObject);
begin
  edit2.Text:='' ;
  edit4.Text:='' ;
  wwDBDateTimePicker1.Clear ;
  wwDBDateTimePicker2.Clear ;
  RxDBLookupCombo2.ClearValue ;
  wwDBLookupCombo3.Clear ;
  ComboBox1.ItemIndex:=0;
  wwDBLookupCombo52.Clear ;
end;

procedure Tfrm_op_seaetd_query.FormShow(Sender: TObject);
begin
  ComboBox1.Items.Clear ;
  ComboBox1.Items.Add('ȫ<><C8AB>');
  ComboBox1.Items.Add(td_assate1);
  ComboBox1.Items.Add(td_assate2);
  ComboBox1.Items.Add(td_assate3);
  ComboBox1.Items.Add(td_assate4);
  ComboBox1.ItemIndex:=0 ;
end;

end.