u_trova.pas

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

unit U_trova;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TTrova_form = class(TForm)
    AnnullaBtn: TBitBtn;
    Edit_ArticoloFornitore: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit_ArticoloEtichetta: TEdit;
    Label3: TLabel;
    edit_ArticoloInterno: TEdit;
    Label4: TLabel;
    Edit_Descrizione: TEdit;
    Label5: TLabel;
    Edit_TipoArticolo: TEdit;
    Edit_fornitore: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit_Marca: TEdit;
    Trova_primo: TButton;
    Button1: TButton;
    modo: TRadioGroup;
    procedure Trova_primoClick(Sender: TObject);
    procedure AnnullaBtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Trova_form: TTrova_form;

implementation

uses rica_art_u_fornit;

{$R *.DFM}

procedure TTrova_form.Trova_primoClick(Sender: TObject);
var ArticoloEtichetta, ArticoloFornitore, ArticoloInterno, Descrizione, TipoArticolo, Marca, Fornitore : Boolean;
    ok : Boolean;
begin
     ArticoloFornitore := (Edit_ArticoloFornitore.text = '');
     ArticoloEtichetta := (Edit_ArticoloEtichetta.text = '');
     ArticoloInterno := (Edit_ArticoloInterno.Text = '');
     Descrizione := (Edit_Descrizione.Text = '');
     TipoArticolo := (Edit_TipoArticolo.Text = '');
     Marca := (Edit_Marca.text = '');
     Fornitore := (Edit_Fornitore.text = '') ;
     Ricerca_articoli.Qarticoli.first;
     while not (Ricerca_articoli.Qarticoli.Eof) do
      begin
           ok := false ;
           if modo.ItemIndex = 0 then
            begin
             ok := ((pos(Edit_ArticoloFornitore.Text,uppercase( Ricerca_articoli.RicercaArticoloFornitore.AsString ))<>0) or articolofornitore) and
                      ((pos(Edit_ArticoloEtichetta.Text,uppercase( Ricerca_articoli.QarticoliArticoloetichetta.AsString ))<>0) or articoloetichetta) and
                         ((pos(Edit_ArticoloInterno.Text,uppercase( Ricerca_articoli.QarticoliArticolo.AsString ))<>0) or articolointerno) and
                            ((pos(Edit_Descrizione.Text,uppercase( Ricerca_articoli.RicercaDescrizione.AsString ))<>0) or Descrizione) and
                              ((pos(Edit_TipoArticolo.Text,uppercase( Ricerca_articoli.RicercaTipo.AsString ))<>0) or TipoArticolo) and
                                ((pos(Edit_Marca.Text,uppercase( Ricerca_articoli.RicercaMarca.AsString ))<>0) or Marca) and
                                  ((pos(Edit_Fornitore.Text,uppercase( Ricerca_articoli.qArticoliFornitore.AsString ))<>0) or fornitore);
            end
           else
              ok := (pos(Edit_ArticoloFornitore.Text,uppercase( Ricerca_articoli.RicercaArticoloFornitore.AsString ))<>0) or
                      (pos(Edit_ArticoloEtichetta.Text,uppercase( Ricerca_articoli.QarticoliArticoloetichetta.AsString ))<>0) or
                         (pos(Edit_ArticoloInterno.Text,uppercase( Ricerca_articoli.QarticoliArticolo.AsString ))<>0) or
                            (pos(Edit_Descrizione.Text,uppercase( Ricerca_articoli.RicercaDescrizione.AsString ))<>0) or
                              (pos(Edit_TipoArticolo.Text,uppercase( Ricerca_articoli.RicercaTipo.AsString ))<>0) or
                                (pos(Edit_Marca.Text,uppercase( Ricerca_articoli.RicercaMarca.AsString ))<>0) or
                                  (pos(Edit_Fornitore.Text,uppercase( Ricerca_articoli.qArticoliFornitore.AsString ))<>0);


           if ok then
             exit;
           Ricerca_articoli.Qarticoli.Next;
      end;
//      if not ok then
//              showmessage('Articolo non trovato !');
end;

procedure TTrova_form.AnnullaBtnClick(Sender: TObject);
begin
 RELEASE ;
end;

procedure TTrova_form.Button1Click(Sender: TObject);
var ArticoloEtichetta, ArticoloFornitore, ArticoloInterno, Descrizione, TipoArticolo, Marca, Fornitore : Boolean;
    ok : Boolean;
begin
     ArticoloFornitore := (Edit_ArticoloFornitore.text = '');
     ArticoloEtichetta := (Edit_ArticoloEtichetta.text = '');
     ArticoloInterno := (Edit_ArticoloInterno.Text = '');
     Descrizione := (Edit_Descrizione.Text = '');
     TipoArticolo := (Edit_TipoArticolo.Text = '');
     Marca := (Edit_Marca.text = '');
     Fornitore := (Edit_Fornitore.text = '') ;
     Ricerca_Articoli.Qarticoli.Next;
     while not (Ricerca_articoli.Qarticoli.Eof) do
      begin
           ok := false ;
           if modo.ItemIndex = 0 then
            begin
             ok := ((pos(Edit_ArticoloFornitore.Text,uppercase( Ricerca_articoli.RicercaArticoloFornitore.AsString ))<>0) or articolofornitore) and
                      ((pos(Edit_ArticoloEtichetta.Text,uppercase( Ricerca_articoli.QarticoliArticoloetichetta.AsString ))<>0) or articoloetichetta) and
                         ((pos(Edit_ArticoloInterno.Text,uppercase( Ricerca_articoli.QarticoliArticolo.AsString ))<>0) or articolointerno) and
                            ((pos(Edit_Descrizione.Text,uppercase( Ricerca_articoli.RicercaDescrizione.AsString ))<>0) or Descrizione) and
                              ((pos(Edit_TipoArticolo.Text,uppercase( Ricerca_articoli.RicercaTipo.AsString ))<>0) or TipoArticolo) and
                                ((pos(Edit_Marca.Text,uppercase( Ricerca_articoli.RicercaMarca.AsString ))<>0) or Marca) and
                                  ((pos(Edit_Fornitore.Text,uppercase( Ricerca_articoli.qArticoliFornitore.AsString ))<>0) or fornitore);

            end
           else
              ok := (pos(Edit_ArticoloFornitore.Text,uppercase( Ricerca_articoli.RicercaArticoloFornitore.AsString ))<>0) or
                      (pos(Edit_ArticoloEtichetta.Text,uppercase( Ricerca_articoli.QarticoliArticoloetichetta.AsString ))<>0) or
                         (pos(Edit_ArticoloInterno.Text,uppercase( Ricerca_articoli.QarticoliArticolo.AsString ))<>0) or
                            (pos(Edit_Descrizione.Text,uppercase( Ricerca_articoli.RicercaDescrizione.AsString ))<>0) or
                              (pos(Edit_TipoArticolo.Text,uppercase( Ricerca_articoli.RicercaTipo.AsString ))<>0) or
                                (pos(Edit_Marca.Text,uppercase( Ricerca_articoli.RicercaMarca.AsString ))<>0) or
                                  (pos(Edit_Fornitore.Text,uppercase( Ricerca_articoli.qArticoliFornitore.AsString ))<>0);

           if ok then
             exit;
           Ricerca_articoli.Qarticoli.Next;
      end;
//      if not ok then
//              showmessage('Articolo non trovato !');
end;

end.