selwairouts.~pas

企业商品管理系统

unit SelWairOutS;

interface

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

type
  TFrm_SelWairOutS = class(TBaseForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    DBGrid2: TDBGrid;
    ADOMaster: TADODataSet;
    DSMaster: TDataSource;
    ADODetail: TADODataSet;
    DSDetail: TDataSource;
    ADOMasterWairOutID: TStringField;
    ADOMasterWairDate: TDateTimeField;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_SelWairOutS: TFrm_SelWairOutS;

implementation

{$R *.dfm}

procedure TFrm_SelWairOutS.FormShow(Sender: TObject);
begin
  ADOMaster.Close;
  ADOMaster.Open;

  ADODetail.Close;
  ADODetail.Open;
end;

procedure TFrm_SelWairOutS.SpeedButton1Click(Sender: TObject);
var
   SQLStr:string;
begin
  if RadioButton1.Checked then
  begin
    if Edit1.Text='' then
    begin
      Application.MessageBox('订单编号不能为空！','明日科技');
      Edit1.SetFocus;
      Exit;
    end; 
    SQLStr:='WairOutID Like '+QuotedStr(Edit1.Text+'%');
  end
  else
  if RadioButton2.Checked then
  begin
    if DateTimePicker2.DateTime<DateTimePicker1.DateTime then
    begin
      Application.MessageBox('请重新设置日期！','明日科技');
      Exit;
    end;
    SQLStr:='WairDate>='+QuotedStr(DateTimeToStr(DateTimePicker1.DateTime))+
            ' and WairDate<='+QuotedStr(DateTimeToStr(DateTimePicker2.DateTime));
  end;
  ADOMaster.Filtered:=False;
  ADOMaster.Filter:=SQLStr;
  ADOMaster.Filtered:=True;
end;

procedure TFrm_SelWairOutS.SpeedButton3Click(Sender: TObject);
begin
  ADOMaster.Filtered:=False;
  ADOMaster.Filter:='';
  ADOMaster.Filtered:=True;
end;

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

end.