uloader.pas

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

unit uloader;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, jpeg, ExtCtrls,dbtables, RXCtrls, RxGIF;

type
  TLoader = class(TForm)
    eurodb: TDatabase;
    Panel1: TPanel;
    status: TLabel;
    Panel2: TPanel;
    Giornipassati: TLabel;
    RxLabel1: TRxLabel;
    Version: TLabel;
    Image2: TImage;
    RxLabel2: TRxLabel;
    RxLabel3: TRxLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Customizza ;
  public
    { Public declarations }
  end;

var
  Loader: TLoader;

implementation

uses registra, aboutOS, leggiImpostazioni;

{$R *.DFM}

procedure TLoader.Customizza ;
var
   imgname : string ;
begin
 imgname := Custom('IMGLOGO2SPLASH','') ;
 if imgName <> '' then
  image2.Picture.LoadFromFile(imgname) ;
 rxlabel1.Caption := Custom('COPYLEFT',rxlabel1.Caption) ;
 version.Caption := VersioneUfficiale(version.Caption) ;
end ;

procedure TLoader.FormCreate(Sender: TObject);
const
 tableVersioneuro2000 : string = '6.0.9';
 tableVersionLocal : string = '2.7' ;
 tableVersionReport : string = '1.3' ;

Var
 VersionFile : TextFile ;
 v : String ;

 Procedure ControlloParametri ;
  Var
     iPar : Integer ;
     Parametro : string ;
 begin
  For iPar := 1 to ParamCount  do
   begin
    Parametro := ParamStr(iPar) ;
    If Pos('/NDIR:',Parametro) > 0 then
     begin
      Session.NetFileDir := Copy(Parametro,7,Length(Parametro) - 6) ;
     end ;
   end ;
 end ;

    Function Valido : boolean ;
     begin
       result := true ;
     end ;

    Function CheckVersion(alias : string) : string ;
    Var
       NomeFile : String ;

    begin
     result := '' ;
     eurodb.aliasname := alias ;
     eurodb.Open ;
     NomeFile := eurodb.directory+'versione.txt' ;
     eurodb.close ;
     If not FileExists(nomeFile) then
      begin
       result := '0.00' ;
       exit;
      end ;
     AssignFile(VersionFile,nomefile) ;
     Reset(versionFile) ;
     ReadLn(VersionFile,result) ;
     CloseFile(VersionFile) ;
    end ;

begin
 Customizza ;
 ControlloParametri ;
 V := CheckVersion('euro2000') ;
 If V <> tableVersioneuro2000 then
  begin
   ShowMessage('Attenzione : le tabelle principali non sono allineate(V.attuale : ' + V + '), lanciare il programma di allineamento tabelle "TABLESCANNER" e riprovare !') ;
   Tag := -1 ;
  end ;
 V := CheckVersion('e2_local') ;
 If V <> tableVersionlocal then
  begin
   ShowMessage('Attenzione : le tabelle di supporto non sono allineate(V.attuale : ' + V + '), lanciare il programma di allineamento tabelle "TABLESCANNER" e riprovare !') ;
   Tag := -2 ;
  end ;
 V := CheckVersion('e2_redata') ;
 If V <> tableVersionreport then
  begin
   ShowMessage('Attenzione : le tabelle del report manager non sono allineate(V.attuale : ' + V + '), lanciare il programma di allineamento tabelle "TABLESCANNER" e riprovare !') ;
   Tag := -3 ;
  end ;
 If Not Valido then
  begin
    If MessageDlg('Periodo demo esaurito, registrare il programma adesso ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
     begin
        Aboutbox.ShowModal ;
        AboutBox.Close ;
        If Not Valido then
         tag := -4
        else
         tag := 0 ;
     end
    else
     tag := -5 ;
  end ;
end;

end.