seldepotmoves.pas

企业商品管理系统

unit SelDepotMoves;

interface

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

type
  TFrm_SelDepotMoves = 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;
    ADOMasterDepotMoveID: TStringField;
    ADOMasterDeptMoveDate: 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_SelDepotMoves: TFrm_SelDepotMoves;

implementation

{$R *.dfm}

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

  ADODetail.Close;
  ADODetail.Open;
end;

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

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

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

end.