u_goodsstocksearch.~pas

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

unit u_GoodsStockSearch;

interface

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

type
  TfrmGoodsStockSearch = class(TForm)
    Panel1: TPanel;
    GoodsQry: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    btnPrint: TBitBtn;
    cmbClassName: TComboBox;
    Label1: TLabel;
    edtName: TLabeledEdit;
    edtBH: TLabeledEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure edtBHChange(Sender: TObject);
    procedure edtNameChange(Sender: TObject);
    procedure cmbClassNameChange(Sender: TObject);
    procedure btnPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGoodsStockSearch: TfrmGoodsStockSearch;

implementation

uses u_DataCtrl, u_GoodsStockRep, u_Main;

{$R *.dfm}

procedure TfrmGoodsStockSearch.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := Cafree ;
end;

procedure TfrmGoodsStockSearch.FormShow(Sender: TObject);
var
  ClassQry : TADOQuery;
begin
  GoodsQry.Active := True;
  ClassQry := TADOQuery.Create(self);
  ClassQry.Connection := frmDataCtrl.ADOConn;
  ClassQry.Close;
  ClassQry.SQL.Clear;
  ClassQry.SQL.Add('select * from tb_GoodsClass');
  ClassQry.Open;
  ClassQry.First;
  while not(ClassQry.Eof) do
  begin
    CmbClassName.Items.Add(ClassQry.FieldValues['ClassName']);
    ClassQry.Next;
  end;
  ClassQry.Close;
  ClassQry.Open;
end;

procedure TfrmGoodsStockSearch.edtBHChange(Sender: TObject);
begin
  GoodsQry.Close;
  GoodsQry.SQL.Clear;
  GoodsQry.SQL.Text := 'exec psp_GoodsInfo '+QuotedStr(edtBH.Text)+','+QuotedStr(edtName.Text)+','+QuotedStr(cmbClassName.Text);
  GoodsQry.Open;
end;

procedure TfrmGoodsStockSearch.edtNameChange(Sender: TObject);
begin
  GoodsQry.Close;
  GoodsQry.SQL.Clear;
  GoodsQry.SQL.Text := 'exec psp_GoodsInfo '+QuotedStr(edtBH.Text)+','+QuotedStr(edtName.Text)+','+QuotedStr(cmbClassName.Text);
  GoodsQry.Open;
end;

procedure TfrmGoodsStockSearch.cmbClassNameChange(Sender: TObject);
begin
  GoodsQry.Close;
  GoodsQry.SQL.Clear;
  GoodsQry.SQL.Text := 'exec psp_GoodsInfo '+QuotedStr(edtBH.Text)+','+QuotedStr(edtName.Text)+','+QuotedStr(cmbClassName.Text);
  GoodsQry.Open;
end;

procedure TfrmGoodsStockSearch.btnPrintClick(Sender: TObject);
begin
  if GoodsQry.Active = True then
  if GoodsQry.RecordCount > 0 then
    begin
      //frmGoodsStockRep.edtInDate.Caption := frmMain.sysdate ;
      //frmGoodsStockRep.StockReport.Preview;
    end;
end;

end.