xsseloutdepot.pas

企业商品管理系统

unit XSSelOutDepot;

interface

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

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

var
  Frm_XSSelOutDepot: TFrm_XSSelOutDepot;

implementation
uses XSOutDepot;
{$R *.dfm}

procedure TFrm_XSSelOutDepot.SpeedButton3Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_XSSelOutDepot.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:='MR_OrderID Like '+QuotedStr(Edit1.Text+'%');  
      end;
  0:  begin
        SQLStr:='MR_OrderDate >= '+QuotedStr(DateTimeToStr(DateTimePicker1.DateTime))+' and MR_OrderDate<='+
                QuotedStr(DateTimeToStr(DateTimePicker2.DateTime));
      end;
  end;
  with Frm_XSDepot do
  begin
    ADOMaster.Filtered:=False;
    ADOMaster.Filter:=SQLStr;
    ADOMaster.Filtered:=True;
  end;
end;

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

procedure TFrm_XSSelOutDepot.WareGridDblClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_XSSelOutDepot.WareCloseClick(Sender: TObject);
begin
  Close;
end;

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

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

end.