u_supsearch.pas

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

unit u_SupSearch;

interface

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

type
  TfrmSupSearch = class(TForm)
    edtSupNo: TLabeledEdit;
    edtSupName: TLabeledEdit;
    SupQry: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure edtSupNoChange(Sender: TObject);
    procedure edtSupNameChange(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSupSearch: TfrmSupSearch;

implementation

uses u_DataCtrl, u_GoodsInStock;

{$R *.dfm}

procedure TfrmSupSearch.FormShow(Sender: TObject);
begin
  SupQry.Active := true ;
end;

procedure TfrmSupSearch.edtSupNoChange(Sender: TObject);
var
  strsql : string ;
begin
  strsql :=' select * from tb_Supply where ' ;
  if Length(trim(edtSupNo.Text))>0 then
     strsql :=strsql+ ' SupNo like '''+edtSupNo.Text+'%'' and ';
  if Length(trim(edtSupName.Text))>0 then
     strsql :=strsql+ ' SupSName like '''+edtSupName.Text+'%'' and ';
  strsql:=strsql+' 1=1 ' ;
  SupQry.Close;
  SupQry.SQL.Clear;
  SupQry.SQL.Text := strsql ;
  try
    SupQry.Active := true;
  except
  end;
end;

procedure TfrmSupSearch.edtSupNameChange(Sender: TObject);
var
  strsql : string ;
begin
  strsql :=' select * from tb_Supply where ' ;
  if Length(trim(edtSupNo.Text))>0 then
     strsql :=strsql+ ' SupNo like '''+edtSupNo.Text+'%'' and ';
  if Length(trim(edtSupName.Text))>0 then
     strsql :=strsql+ ' SupSName like '''+edtSupName.Text+'%'' and ';
  strsql:=strsql+' 1=1 ' ;
  SupQry.Close;
  SupQry.SQL.Clear;
  SupQry.SQL.Text := strsql ;
  try
    SupQry.Active := true;
  except
  end;
end;

procedure TfrmSupSearch.DBGrid1DblClick(Sender: TObject);
begin
  if Not SupQry.IsEmpty then
     begin
       frmGoodsInstock.cmbSupply.Text :=SupQry.FieldValues['SupSName'];
       Close;
     end;
end;

end.