upurreturn_f.pas

在打沙场用的最简单

unit upurreturn_f;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, StdCtrls, Buttons, wwdbdatetimepicker, ExtCtrls, Mask,
  wwdbedit;

type
  Tfrmpurreturn_f = class(TfrmBase)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    sdate: TwwDBDateTimePicker;
    Label5: TLabel;
    edate: TwwDBDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    btnclear: TBitBtn;
    btnok: TBitBtn;
    btnexit: TBitBtn;
    procedure btnexitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnclearClick(Sender: TObject);
    procedure btnokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmpurreturn_f: Tfrmpurreturn_f;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmpurreturn_f.btnexitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tfrmpurreturn_f.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmpurreturn_f:=nil;
end;

procedure Tfrmpurreturn_f.btnclearClick(Sender: TObject);
begin
  inherited;
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  sdate.Text:='';
  edate.Text:='';
end;

procedure Tfrmpurreturn_f.btnokClick(Sender: TObject);
var
  ct:string;
begin
  inherited;
  if (Sdate.Text='') and (edate.Text<>'') then
    edate.Text:='';

  if (Sdate.Text<>'') and (edate.Text='') then
    sdate.Text:='';

  if sdate.Date > edate.Date then
    begin
      Sdate.Text:='';
      edate.Text:='';
    end;

  if Trim(edit1.Text)<>'' then
    ct:=' frefno like '+vartosql('%'+trim(edit1.Text)+'%');
  if Trim(edit2.Text)<>'' then
    if ct<>'' then
      ct:=ct+' and '+' freturnno like '+vartosql('%'+trim(edit2.Text)+'%')
      else
      ct:=' freturnno like '+vartosql('%'+trim(edit2.Text)+'%');
  if trim(edit3.Text)<>'' then
    if ct<>'' then
      ct:=ct+' and '+' fprovider like '+vartosql('%'+trim(edit3.Text)+'%')
      else
      ct:=' fprovider like '+vartosql('%'+trim(edit3.Text)+'%');
  if sdate.Text<>'' then
    if ct<>'' then
      ct:=ct+' and '+' fdelivdate >='+vartosql(sdate.Text)+
          ' and fdelivdate<='+vartosql(edate.Text)
    else
      ct:=' fdelivdate >='+vartosql(sdate.Text)+
          ' and fdelivdate<='+vartosql(edate.Text);
  Searchtiao:=ct;
  close;
end;

end.