uricerca_rapida.pas

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

unit Uricerca_rapida;

interface

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

type
  TRicerca_rapida = class(TForm)
    GroupBox1: TGroupBox;
    Label_Interno: TLabel;
    Label_Descrizione: TLabel;
    Label_prezzo: TLabel;
    Label_giacenza: TLabel;
    Edit_Interno: TEdit;
    Edit_Descrizione: TEdit;
    Edit_prezzo: TEdit;
    Edit_giacenza: TEdit;
    Label1: TLabel;
    Casella: TEdit;
    procedure CasellaExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ricerca_rapida: TRicerca_rapida;

implementation

uses main, vendita, rica_art_u_fornit;

{$R *.DFM}

procedure TRicerca_rapida.CasellaExit(Sender: TObject);
var chiave : string ;
    lung : integer ;
    ok : boolean ;
begin
     if casella.text = '' then exit ;
     chiave := casella.TExt ;
     label_interno.Visible := True ;
     Edit_interno.Visible := True ;
     Label_descrizione.Visible := True ;
     Edit_descrizione.Visible := True ;
     Label_prezzo.visible := True ;
     Edit_prezzo.visible := True ;
     Label_giacenza.visible := True ;
     Edit_giacenza.Visible := True ;
   with Main_form do
   begin
     lung := length(Chiave) ;
     if (chiave[1] <> '?') then
       begin
          if chiave[1] = '\' then
            chiave := copy(chiave,2,lung) ;
          if (TTArtbase.FindKey([chiave])) and (chiave[1] <> '&') then
            begin
               if (TTArticoli.FindKey([TTArtbaseArticoloInterno.AsString])) then
                 begin
                   Edit_Interno.Text := TTArticoliArticolo.AsString ;
                   Edit_Descrizione.Text := TTArticoliDescrizione.AsString ;
                   if (GiacenzaDB.FindKey([TTArtBaseArticoloEtichetta.AsString,TTConfigDeposito.AsString])) then
                     Edit_giacenza.Text := floattostr(GiacenzaDBQtaIniziale.AsFloat+GiacenzaDBQtaCarico.AsFloat-GiacenzaDBQtaScarico.AsFloat)
                   else
                     Edit_giacenza.Text := '' ;
                   If TTDepositi.FindKey([TTConfigDeposito.asString]) then
                    begin
                      if TTlistino.FindKey([TTDepositiListino.asString,TTArtBaseArticolointerno.AsString]) then
                        begin
                          if TTconfigValutaStandard.AsString = 'L' then
                            Edit_prezzo.Text := formatfloat('L  #,###',TTlistinoPrezzoIvatoL.AsCurrency)
                          else
                            Edit_prezzo.Text := formatfloat('