xsselware.pas

企业商品管理系统

unit XSSelWare;

interface

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

type
  TFrm_XSSelWare = class(TBaseForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    WareAll: TSpeedButton;
    WareGrid: TDBGrid;
    WareClose: TSpeedButton;
    ADOWare: TADODataSet;
    DSWare: TDataSource;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure WareGridDblClick(Sender: TObject);
    procedure WareCloseClick(Sender: TObject);
    procedure WareAllClick(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Frm_XSSelWare: TFrm_XSSelWare;

implementation
uses XSOutDepot,dm;
{$R *.dfm}

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

procedure TFrm_XSSelWare.SpeedButton1Click(Sender: TObject);
var
  SQLStr:string;
begin
  if Edit1.Text='' then
  begin
    Application.MessageBox('查询值不能为空！','明日科技');
    Exit;
  end;
  case ComboBox1.ItemIndex of
  0:  begin
        SQLStr:='MR_Code = '+Edit1.Text;  
      end;
  1:  begin
        SQLStr:='MR_Name like '''+QuotedStr(Edit1.Text+'%');
      end;
  end;
    ADOWare.Filtered:=False;
    ADOWare.Filter:=SQLStr;
    ADOWare.Filtered:=True;

end;

procedure TFrm_XSSelWare.FormShow(Sender: TObject);
begin
  ADOWare.Close;
  ADOWare.Open;
  WareAll.Click;
end;

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

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

procedure TFrm_XSSelWare.WareAllClick(Sender: TObject);
begin

    ADOWare.Filtered:=False;
    ADOWare.Filter:='';
    ADOWare.Filtered:=True;

end;

end.