arrangesel.pas

一款不错的商务程序商品管理系统,有简易的窗体皮肤

unit ArrangeSel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons,Theme;

type
  TFrm_ArrangeSel = class(TBaseForm)
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_ArrangeSel: TFrm_ArrangeSel;

implementation
uses Arrange,Main;
{$R *.dfm}

procedure TFrm_ArrangeSel.SpeedButton1Click(Sender: TObject);
var
  SQL:string;
begin
  TFrm_Arrange(ActiveForm).ADOArrange.Active:=False;
  SQL:='Select * From MR_Arrange_Tab where MR_Date>=#'+{QuotedStr}(DateToStr(DateTimePicker1.Date))+
      '# and MR_Date<=#'+{QuotedStr}(DateToStr(DateTimePicker2.Date))+'#';
  TFrm_Arrange(ActiveForm).ADOArrange.CommandText:=SQL;
  TFrm_Arrange(ActiveForm).ADOArrange.Active:=True;
  Close;
end;

procedure TFrm_ArrangeSel.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

end.