check_ricarichi_u.pas

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

unit check_ricarichi_u;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, Grids, Mask;

type
  TControllo_ricarichi = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Griglia: TStringGrid;
    controlla_ricarico: TMaskEdit;
    Label1: TLabel;
    procedure OKBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure GrigliaDblClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Controllo_ricarichi: TControllo_ricarichi;
  Articoli_opened : boolean ;

implementation

uses ana_listini_u, Umenu, ana_mod;

{$R *.DFM}

procedure TControllo_ricarichi.OKBtnClick(Sender: TObject);
Var
   RR : real ;
   code : integer ;
   riga : integer ;
   cella : string ;

begin
 riga := 1 ;
 With ana_listini_form do
  begin
   Val (Controlla_ricarico.text,rr,code) ;
   Qlistino.Open ;
   Qlistino.First ;
   While not Qlistino.Eof do
    begin
     If QlistinoRicaricoLordo.value < rr then
       begin
        Griglia.RowCount := Riga + 1 ;
        Griglia.Cells[0,riga] := QListinoArticolo.asString ;
        Griglia.Cells[1,riga] := QlistinoDescrizione.asString ;
        Str(QlistinoRicaricoLordo.Value:5:2,cella) ;
        Griglia.Cells[2,riga] := cella ;
        Inc(riga) ;
       end ;
     Qlistino.Next ;
    end ;
   Qlistino.Close ;
  end ;
end;

procedure TControllo_ricarichi.FormCreate(Sender: TObject);
begin
articoli_opened := false ;
end;

procedure TControllo_ricarichi.GrigliaDblClick(Sender: TObject);
begin
     If Not Articoli_opened then
        begin
         articoli_opened := True ;
         menu_form.Apri_articoli.execute ;
        end ;
     moduloDatiAnagrafiche.TTarticoli.findKey([Griglia.Cells[0,Griglia.Row]]) ;
end;

procedure TControllo_ricarichi.CancelBtnClick(Sender: TObject);
begin
     release ;
end;

end.