u_cussearch.pas

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

unit u_CusSearch;

interface

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

type
  TfrmCusSearch = class(TForm)
    DBGrid1: TDBGrid;
    edtName: TLabeledEdit;
    cmbCus: TComboBox;
    Label1: TLabel;
    CusQry: TADOQuery;
    DataSource1: TDataSource;
    procedure cmbCusChange(Sender: TObject);
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtNameChange(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCusSearch: TfrmCusSearch;

implementation

uses u_DataCtrl, u_GoodsOutStock;

{$R *.dfm}

procedure TfrmCusSearch.cmbCusChange(Sender: TObject);
var
  strsql : string ;
begin
  if Length(trim(edtName.Text))>0 then
     strsql:='select * from vw_Customer where CusClass='+QuotedStr(cmbCus.Text)+' and CusSName='+QuotedStr(edtName.Text)
  else
     strsql:='select * from vw_Customer where CusClass='+QuotedStr(cmbCus.Text);
  CusQry.Close;
  CusQry.SQL.Clear;
  CusQry.SQL.Text := strsql ;
  try
    CusQry.Active := true;
  except
  end;
end;

procedure TfrmCusSearch.edtNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  strsql : string ;
begin
  if Length(trim(edtName.Text))>0 then
     strsql:='select * from vw_Customer where CusClass='+QuotedStr(cmbCus.Text)+' and CusSName='+QuotedStr(edtName.Text)
  else
     strsql:='select * from vw_Customer where CusClass='+QuotedStr(cmbCus.Text);
  CusQry.Close;
  CusQry.SQL.Clear;
  CusQry.SQL.Text := strsql ;
  try
    CusQry.Active := true;
  except
  end;
end;

procedure TfrmCusSearch.edtNameChange(Sender: TObject);
var
  strsql : string ;
begin
  if Length(trim(edtName.Text))>0 then
     strsql:='select * from vw_Customer where CusClass='+QuotedStr(cmbCus.Text)+' and CusSName='+QuotedStr(edtName.Text)
  else
     strsql:='select * from vw_Customer where CusClass='+QuotedStr(cmbCus.Text);
  CusQry.Close;
  CusQry.SQL.Clear;
  CusQry.SQL.Text := strsql ;
  try
    CusQry.Active := true;
  except
  end;
end;

procedure TfrmCusSearch.DBGrid1DblClick(Sender: TObject);
begin
  if Not CusQry.IsEmpty then
    begin
      frmGoodsOutStock.CusSupply.Text :=CusQry.FieldValues['CusSName'];
      Close;
    end;
end;

procedure TfrmCusSearch.FormShow(Sender: TObject);
begin
  CusQry.Active := true ;
end;

end.