xdselware.pas

企业商品管理系统

unit XDSelWare;

interface

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

type
  TFrm_XDSelWare = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    WareAll: TSpeedButton;
    WareGrid: TDBGrid;
    WareClose: TSpeedButton;
    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_XDSelWare: TFrm_XDSelWare;

implementation
uses XDPrice;
{$R *.dfm}

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

procedure TFrm_XDSelWare.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;
  with Frm_XDPeice do
  begin
    ADOWare.Filtered:=False;
    ADOWare.Filter:=SQLStr;
    ADOWare.Filtered:=True;
  end;
end;

procedure TFrm_XDSelWare.FormShow(Sender: TObject);
begin
  WareAll.Click;
end;

procedure TFrm_XDSelWare.WareGridDblClick(Sender: TObject);
begin
  with Frm_XDPeice do
  begin
    if ADOWare.RecordCount=0 then
    Exit;
    ADODetail.FieldByName('MR_Code').AsString:=ADOWare.FieldByName('MR_Code').AsString;
    ADODetail.FieldByName('MR_Name').AsString:=ADOWare.FieldByName('MR_Name').AsString;
    ADODetail.FieldByName('MR_Spce').AsString:=ADOWare.FieldByName('MR_Spce').AsString;
    ADODetail.FieldByName('MR_Unit').AsString:=ADOWare.FieldByName('MR_Unit').AsString;
    ADODetail.FieldByName('MR_OutPrice').AsFloat:=ADOWare.FieldByName('MR_OutPrice').AsFloat;
    ADODetail.FieldByName('MR_Cards').AsString:=ADOWare.FieldByName('MR_Cards').AsString;
  end;
  Close;
end;

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

procedure TFrm_XDSelWare.WareAllClick(Sender: TObject);
begin
  with Frm_XDPeice do
  begin
    ADOWare.Filtered:=False;
    ADOWare.Filter:='';
    ADOWare.Filtered:=True;
  end;
end;

end.