about.pas

一套来自国外的ERP系统,有兴趣的朋友可以看看!

unit about;

// Questa unit viene utilizzata anche nel multi, fare attenzione quando si modificano le procedure

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, jpeg, RXCtrls, registdays, dialogs;

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    Version: TLabel;
    Comments: TLabel;
    OKButton: TButton;
    Memo1: TMemo;
    RxLabel1: TRxLabel;
    Standard: TRegistDays;
    Advanced: TRegistDays;
    Professional: TRegistDays;
    pan_std: TPanel;
    Status_standard: TRxLabel;
    reg_std: TRxLabel;
    reg_Std_btn: TButton;
    pan_adv: TPanel;
    Status_Advanced: TRxLabel;
    reg_adv: TRxLabel;
    reg_adv_btn: TButton;
    pan_pro: TPanel;
    Status_professional: TRxLabel;
    reg_pro: TRxLabel;
    reg_pro_btn: TButton;
    verInfoLab: TRxLabel;
    procedure FormCreate(Sender: TObject);
    procedure reg_Std_btnClick(Sender: TObject);
    procedure reg_adv_btnClick(Sender: TObject);
    procedure reg_pro_btnClick(Sender: TObject);
  private
    { Private declarations }
    Versione : string ;
  public
    function VerInfoReg: string;
    procedure ImpostaPannelli;
    function TestVersion(V: string): boolean;
    { Public declarations }

  end;

var
  AboutBox: TAboutBox;

implementation

uses registra;

{$R *.DFM}

procedure TAboutBox.FormCreate(Sender: TObject);
begin
 Standard.Init ;
 reg_std.caption := Standard.Password ;
 Advanced.Init ;
 reg_adv.caption := Advanced.Password ;
 Professional.Init ;
 reg_pro.caption := Professional.Password ;
 ImpostaPannelli ;
end;

procedure TAboutBox.reg_Std_btnClick(Sender: TObject);
begin
 Registra_dlg := TRegistra_dlg.Create(self) ;
 Registra_dlg.Base_Lab.caption := reg_std.Caption ;
 Registra_Dlg.ShowModal ;
 If Registra_Dlg.ModalResult = mrOk then
  begin
   if Standard.CheckPassWord(Registra_dlg.Attivazione.Text) then
    begin
     Standard.RegisterApp ;
     ShowMessage('Registrazione avvenuta in versione "Standard", congratulazioni !') ;
     reg_std_btn.Enabled := False ;
    end
   else
    ShowMessage('Spiacente, chiave non conforme... riprovare o contattare Computer Inside.') ;
  end ;
 Registra_Dlg.Free ;
 ImpostaPannelli ;
end;

procedure TAboutBox.reg_adv_btnClick(Sender: TObject);
begin
 Registra_dlg := TRegistra_dlg.Create(self) ;
 Registra_dlg.Base_Lab.caption := reg_adv.Caption ;
 Registra_Dlg.ShowModal ;
 If Registra_Dlg.ModalResult = mrOk then
  begin
   if Advanced.CheckPassWord(Registra_dlg.Attivazione.Text) then
    begin
     Advanced.RegisterApp ;
     ShowMessage('Registrazione avvenuta in versione "Advanced", congratulazioni !') ;
     reg_adv_btn.Enabled := False ;
    end
   else
    ShowMessage('Spiacente, chiave non conforme... riprovare o contattare Computer Inside.') ;
  end ;
 Registra_Dlg.Free ;
 ImpostaPannelli ;
end;

procedure TAboutBox.reg_pro_btnClick(Sender: TObject);
begin
 Registra_dlg := TRegistra_dlg.Create(self) ;
 Registra_dlg.Base_Lab.caption := reg_pro.Caption ;
 Registra_Dlg.ShowModal ;
 If Registra_Dlg.ModalResult = mrOk then
  begin
   if Professional.CheckPassWord(Registra_dlg.Attivazione.Text) then
    begin
     Professional.RegisterApp ;
     ShowMessage('Registrazione avvenuta in versione "Professional", congratulazioni !') ;
     reg_pro_btn.Enabled := False ;
    end
   else
    ShowMessage('Spiacente, chiave non conforme... riprovare o contattare Computer Inside.') ;
  end ;
 Registra_Dlg.Free ;
 ImpostaPannelli ;
end;

function TAboutBox.VerInfoReg: string;
begin
 result := Versione ;
end;

procedure TAboutBox.ImpostaPannelli;
Var
  StdEn,AdvEn,ProEn : boolean ;

begin
 Versione := 'DIMOSTRATIVO' ;
 StdEn := Standard.Registered ;
 AdvEn := Advanced.Registered ;
 ProEn := Professional.Registered ;
 If ProEn then
  begin
   Versione := 'Professional' ;
   pan_std.Visible := False ;
   pan_adv.Visible := false ;
   pan_pro.Visible := False ;
  end
 else
   If AdvEn then
    begin
     Versione := 'Advanced' ;
     pan_std.Visible := False ;
     pan_adv.Visible := false ;
     pan_pro.Visible := true ;
    end
   else
     If StdEn then
      begin
       Versione := 'Standard' ;
       pan_std.Visible := False ;
       pan_adv.Visible := true ;
       pan_pro.Visible := true ;
      end ;
 VerInfoLab.Caption := Versione ;
end;

function TAboutBox.TestVersion(V: string): boolean;
Var
 vv : string ;

begin
 result := False ;
 vv := VerinfoReg ;
 if vv[1] = 'D' then
   result := true
 else
  If vv[1] = V then result := True ;
end;

end.