u_choosegoodsinfo.~pas

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

unit u_ChooseGoodsInfo;

interface

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

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

var
  frmChooseGoodsInfo: TfrmChooseGoodsInfo;

implementation

uses u_DataCtrl, u_GoodsInStock;

{$R *.dfm}

procedure TfrmChooseGoodsInfo.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 TfrmChooseGoodsInfo.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 TfrmChooseGoodsInfo.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 TfrmChooseGoodsInfo.btnOKClick(Sender: TObject);
begin
if qry.RecordCount>0 then
  begin
    frmGoodsInStock.EdtGoodsInBH.Text  := qry.FieldValues['GoodsBH'];
    frmGoodsInStock.edtGoodsName.Text  := qry.FieldValues['GoodsName'];
    frmGoodsInStock.edtGoodsSpec.Text  := qry.FieldValues['GoodsSpec'];
    frmGoodsInStock.edtGoodsModel.Text := qry.FieldValues['GoodsModel'];
    frmGoodsInStock.edtGoodsPrice.Text := qry.fieldbyname('GoodsInPrice').AsString;
  end;
Close;
end;

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

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

procedure TfrmChooseGoodsInfo.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;

end.