ricerca.pas

基于OOP设计的一套较好的ERP系统

unit ricerca;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, Db, DBTables;

type
  TCerca_articoli = class(TForm)
    Valore_ricerca: TEdit;
    DSArticoli: TDataSource;
    Qarticoli: TQuery;
    QarticoliArticoloetichetta: TStringField;
    QarticoliArticolointerno: TStringField;
    QarticoliDescrizione: TStringField;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Ricerca: TButton;
    Label1: TLabel;
    procedure RicercaClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Valore_ricercaChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Cerca_articoli: TCerca_articoli;
  Trovato : boolean ;

implementation

{$R *.DFM}

procedure TCerca_articoli.RicercaClick(Sender: TObject);
begin

 If not Trovato then
  Qarticoli.First 
 else
  Qarticoli.Next ;
 Trovato := False ;
 Qarticoli.DisableControls ;
 While (not Qarticoli.Eof) and (not trovato) do
  begin
   If Pos(Valore_ricerca.text,UpperCase(QarticoliDescrizione.AsString)) > 0 then
    Trovato := true
   else
    Qarticoli.Next ;
  end ;
 Qarticoli.Enablecontrols ;

end;

procedure TCerca_articoli.FormActivate(Sender: TObject);
begin
 Trovato := false ;
end;

procedure TCerca_articoli.Valore_ricercaChange(Sender: TObject);
begin
 trovato := false ;
end;

end.