u_loader.pas

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

unit u_loader;

interface

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

type
  TLoader = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Status: TLabel;
    Label2: TLabel;
    demo_msg: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Loader: TLoader;

implementation

uses registra;

{$R *.DFM}

procedure TLoader.FormCreate(Sender: TObject);

    Function Cripto(base : real) : Longint ;
     begin
       base := Sqr(base) * 100000 ;
       While base > 360 do
        Base := base / 360 ;
        result := Trunc(sin(base) * 1000000 * base * PI) ;
     end ;

    Function Valido : boolean ;
     type
      verifica = record
       dinst : TdateTime ;
       numV1 : real ;
       numV2 : real ;
      end ;

     Var
      VeriVar : Verifica ;
      verifil : file of Verifica ;
      nomefile : string ;
      dirbuf : Array [0..255] of char ;
      giorni : integer ;

     begin
      // Check

      result := true ;
      //exit ;
      GetWindowsDirectory(dirbuf, 256);
      nomefile := StrPas(dirbuf) + '\' + 'com2b.ini' ;
      If FileExists(nomefile) then
       begin
        AssignFile(Verifil,nomefile) ;
        Reset(Verifil) ;
        Read(Verifil,VeriVar) ;
        CloseFile(Verifil) ;
        giorni := Trunc(now - VeriVar.Dinst) ;
        If Cripto(VeriVar.numV1) = VeriVar.NumV2 then
         begin
          // Controlliamo se le due variabili sono uguali, se si il programma