dfm_seldate.pas

仓库管理系统 仓库管理系统

unit dfm_seldate;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, ComCtrls;

type
  Tdfmseldate = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmseldate: Tdfmseldate;

implementation

uses dfm_tray;

{$R *.dfm}

procedure Tdfmseldate.OKBtnClick(Sender: TObject);
var
  fstr:String;
begin
  fstr:='SELECT t_systray.ctm, t_systray.citem, t_systray.cworkerid, t_systray.cname FROM t_systray'
       +' WHERE t_systray.ctm>=#%s#'
       +' and t_systray.ctm<=#%s#';
  with dfmtray.ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[datetostr(DateTimePicker1.Date),datetostr(DateTimePicker2.Date)]));
    Prepared;
    open;
  end;
  close;
end;

procedure Tdfmseldate.CancelBtnClick(Sender: TObject);
begin
  close;
end;

procedure Tdfmseldate.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tdfmseldate.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date:=date();
  DateTimePicker2.date:=date();
end;

end.