selwairout.~pas

企业商品管理系统

unit SelWairOut;

interface

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

type
  TFrm_SelWairOut = class(TBaseForm)
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    WareAll: TSpeedButton;
    WareClose: TSpeedButton;
    ComboBox1: TComboBox;
    Notebook1: TNotebook;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    procedure SpeedButton1Click(Sender: TObject);
    procedure WareAllClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure WareCloseClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_SelWairOut: TFrm_SelWairOut;

implementation
uses WairOut;
{$R *.dfm}

procedure TFrm_SelWairOut.SpeedButton1Click(Sender: TObject);
var
  SQLStr:string;
begin
  if (Notebook1.PageIndex=1) and (Edit1.Text='') then
  begin
    Application.MessageBox('查询值不能为空！','明日科技');
    Exit;
  end;
  case ComboBox1.ItemIndex of
  1:  begin
        SQLStr:='WairOutID Like '+QuotedStr(Edit1.Text+'%');
      end;
  0:  begin
        SQLStr:='WairDate >= '+QuotedStr(DateTimeToStr(DateTimePicker1.DateTime))+' and WairDate<='+
                QuotedStr(DateTimeToStr(DateTimePicker2.DateTime));
      end;
  end;
  with Frm_WairOut do
  begin
    ADOMaster.Filtered:=False;
    ADOMaster.Filter:=SQLStr;
    ADOMaster.Filtered:=True;
  end;
end;

procedure TFrm_SelWairOut.WareAllClick(Sender: TObject);
begin
  with Frm_WairOut do
  begin
    ADOMaster.Filtered:=False;
    ADOMaster.Filter:='';
    ADOMaster.Filtered:=True;
  end;
end;

procedure TFrm_SelWairOut.FormShow(Sender: TObject);
begin
  WareAll.Click;
  Notebook1.PageIndex:=ComboBox1.ItemIndex;
end;

procedure TFrm_SelWairOut.ComboBox1Change(Sender: TObject);
begin
  Notebook1.PageIndex:=ComboBox1.ItemIndex;
end;

procedure TFrm_SelWairOut.WareCloseClick(Sender: TObject);
begin
  close;
end;

procedure TFrm_SelWairOut.DBGrid1DblClick(Sender: TObject);
begin
  Close;
end;

end.