display_processo.pas

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

unit display_processo;

interface

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

type
  TProcDisplay = class(TForm)
    CancBtn: TBitBtn;
    ProgressBar: TProgressBar;
    Memo: TMemo;
    OkBtn: TBitBtn;
    HelpBtn: TBitBtn;
    procedure OkBtnClick(Sender: TObject);
    procedure CancBtnClick(Sender: TObject);
    procedure HelpBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Function  Stato : integer ;
    Procedure InitBarra(min,max,pos : integer) ;
    Procedure UpDateBarra(pos:integer ; progressivo:boolean) ;
    Procedure UpdateMemo(messaggio : string ; pulisci : boolean) ;
    Function  Inizializza(titolo:string; ok,cancel,help:boolean) : boolean ;
  end;

var
  ProcDisplay: TProcDisplay;

implementation

{$R *.DFM}
Function TProcDisplay.Inizializza(titolo:string; ok,cancel,help:boolean) : boolean ;
begin
 try
   Caption := titolo ;
   OkBtn.visible := ok ;
   CancBtn.Visible := cancel ;
   HelpBtn.Visible := help ;
   Show ;
   result := True ;
 except
  result := False;
 end ;

end ;
Function TProcDisplay.Stato : integer ;
begin
 result := tag ;
end ;

Procedure TprocDisplay.UpdateMemo(messaggio : string ; pulisci : boolean) ;
begin
 If Pulisci then Memo.lines.Clear ;
 memo.lines.Add(messaggio) ;
 memo.Update ;
end ;

Procedure TProcDisplay.UpDateBarra(pos:integer ; progressivo:boolean) ;
var
   i : integer ;

begin
 If Progressivo then
  for i:= ProgressBar.Position to pos do
   begin
    ProgressBar.Position := I ;
    ProgressBar.Update ;
   end 
 else
  begin
   ProgressBar.Position := pos ;
   ProgressBar.Update ;
  end ;
end ;

Procedure TprocDisplay.InitBarra(min,max,pos : integer) ;
begin
 ProgressBar.Min := min ;
 ProgressBar.Max := Max ;
 ProgressBar.Position := pos ;
 ProgressBar.UpDate ;
end ;

procedure TProcDisplay.OkBtnClick(Sender: TObject);
begin
     ProcDisplay.Tag := 1 ;
end;

procedure TProcDisplay.CancBtnClick(Sender: TObject);
begin
     ProcDisplay.Tag := 2 ;
end;

procedure TProcDisplay.HelpBtnClick(Sender: TObject);
begin
     ProcDisplay.Tag := 2 ;
end;

end.