u_choosegoodsout.~pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_ChooseGoodsOut;

interface

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

type
  TfrmChooseGoods = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    cmbClass: TComboBox;
    edtGoodsBH: TLabeledEdit;
    edtGoodsName: TLabeledEdit;
    btnOK: TBitBtn;
    btnClose: TBitBtn;
    qry: TADOQuery;
    DataSource1: TDataSource;
    qryClass: TADOQuery;
    procedure cmbClassChange(Sender: TObject);
    procedure edtGoodsBHChange(Sender: TObject);
    procedure edtGoodsNameChange(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChooseGoods: TfrmChooseGoods;

implementation

uses u_GoodsOutStock;

{$R *.dfm}

procedure TfrmChooseGoods.cmbClassChange(Sender: TObject);
begin
  qry.Close;
  qry.SQL.Clear;
  qry.SQL.Text := 'exec psp_GoodsInfo '+QuotedStr(edtGoodsBH.Text)+','+QuotedStr(edtGoodsName.Text)+','+QuotedStr(cmbClass.Text);
  qry.Open;
end;

procedure TfrmChooseGoods.edtGoodsBHChange(Sender: TObject);
begin
  qry.Close;
  qry.SQL.Clear;
  qry.SQL.Text := 'exec psp_GoodsInfo '+QuotedStr(edtGoodsBH.Text)+','+QuotedStr(edtGoodsName.Text)+','+QuotedStr(cmbClass.Text);
  qry.Open;
end;

procedure TfrmChooseGoods.edtGoodsNameChange(Sender: TObject);
begin
  qry.Close;
  qry.SQL.Clear;
  qry.SQL.Text := 'exec psp_GoodsInfo '+QuotedStr(edtGoodsBH.Text)+','+QuotedStr(edtGoodsName.Text)+','+QuotedStr(cmbClass.Text);
  qry.Open;
end;

procedure TfrmChooseGoods.btnOKClick(Sender: TObject);
begin
if qry.RecordCount>0 then
  begin
    frmGoodsOutStock.EdtGoodsBH.Text  := qry.FieldValues['GoodsBH'];
    frmGoodsOutStock.edtGoodsName.Text  := qry.FieldValues['GoodsName'];
    frmGoodsOutStock.edtGoodsSpec.Text  := qry.FieldValues['GoodsSpec'];
    frmGoodsOutStock.edtGoodsModel.Text := qry.FieldValues['GoodsModel'];
    frmGoodsOutStock.edtGoodsPrice.Text := qry.fieldbyname('GoodsOutPrice').AsString ;
  end;
Close;
end;

procedure TfrmChooseGoods.DBGrid1DblClick(Sender: TObject);
begin
if qry.RecordCount>0 then
  begin
    frmGoodsOutStock.EdtGoodsBH.Text  := qry.FieldValues['GoodsBH'];
    frmGoodsOutStock.edtGoodsName.Text  := qry.FieldValues['GoodsName'];
    frmGoodsOutStock.edtGoodsSpec.Text  := qry.FieldValues['GoodsSpec'];
    frmGoodsOutStock.edtGoodsModel.Text := qry.FieldValues['GoodsModel'];
    frmGoodsOutStock.edtGoodsPrice.Text := qry.fieldbyname('GoodsOutPrice').AsString ;
  end;
Close;
end;

procedure TfrmChooseGoods.FormShow(Sender: TObject);
begin
  qryClass.Close;
  qryClass.Open;
  cmbClass.Clear;
  while not(qryClass.Eof) do
  begin
    cmbClass.Items.Add(qryClass.FieldValues['ClassName']);
    qryClass.Next;
  end;
  qry.Close;
  qry.Open;
end;

procedure TfrmChooseGoods.btnCloseClick(Sender: TObject);
begin
if qry.RecordCount>0 then
  begin
    frmGoodsOutStock.EdtGoodsBH.Text  := qry.FieldValues['GoodsBH'];
    frmGoodsOutStock.edtGoodsName.Text  := qry.FieldValues['GoodsName'];
    frmGoodsOutStock.edtGoodsSpec.Text  := qry.FieldValues['GoodsSpec'];
    frmGoodsOutStock.edtGoodsModel.Text := qry.FieldValues['GoodsModel'];
    frmGoodsOutStock.edtGoodsPrice.Text := qry.fieldbyname('GoodsOutPrice').AsString ;
  end;
Close;
end;

end.