InraPorc

unit UFKeys;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, PBNumEdit, StdCtrls, IdMessage, IdBaseComponent, IdComponent,

    IdTCPConnection, IdTCPClient, IdMessageClient, IdAttachmentFile, IdSMTP,

    Buttons, ExtCtrls, ComCtrls, JvExControls, JvComponent, JvLED, Spin,

    PBSpinEdit, IniFiles, DateUtils, mysql, IdExplicitTLSClientServerBase,

    IdSMTPBase, IdIMAP4, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,

  IdSSL, IdSSLOpenSSL;

type

  TFKeys = class(TForm)

    EKey: TEdit;

    BBSkip: TBitBtn;

    BBProcess: TBitBtn;

    BBRemove: TBitBtn;

    SMTP: TIdSMTP;

    MReply: TIdMessage;

    LMail: TLabel;

    LCompany: TLabel;

    EMail: TEdit;

    ECompany: TEdit;

    GBAddress: TGroupBox;

    LPostalCode: TLabel;

    LCity: TLabel;

    LCountry: TLabel;

    EPostalCode: TEdit;

    ECity: TEdit;

    ECountry: TEdit;

    EAddress1: TEdit;

    EAddress2: TEdit;

    MObservations: TMemo;

    LFirstName: TLabel;

    LLastName: TLabel;

    LLicenseNumber: TLabel;

    EFirstName: TEdit;

    ELastName: TEdit;

    LFax: TLabel;

    EFax: TEdit;

    LPhone: TLabel;

    EPhone: TEdit;

    GBLicenseType: TGroupBox;

    RBEducation: TRadioButton;

    RBComplete: TRadioButton;

    CBValidity: TCheckBox;

    GBSource: TGroupBox;

    RBOrder: TRadioButton;

    RBINRA: TRadioButton;

    RBAjinomoto: TRadioButton;

    LAjinomotoNumber: TLabel;

    LOrderNumber: TLabel;

    PComplete: TPanel;

    EOrderNumber: TEdit;

    EAjinomotoNumber: TEdit;

    LFinalDate: TLabel;

    LVersion: TLabel;

    EVolumeSerialNumber: TEdit;

    LVolumeSerialNumber: TLabel;

    EVersion: TEdit;

    LSoftwareEnableKey: TLabel;

    ESoftwareEnableKey: TEdit;

    BBKeyCompute: TBitBtn;

    DTPFinalDate: TDateTimePicker;

    PAjinomotoNumber: TPanel;

    POrderNumber: TPanel;

    LEDFirstName: TJvLED;

    LEDLastName: TJvLED;

    LEDCompany: TJvLED;

    LEDAddress1: TJvLED;

    LEDAddress2: TJvLED;

    LEDPostalCode: TJvLED;

    LEDCity: TJvLED;

    LEDCountry: TJvLED;

    LEDPhone: TJvLED;

    LEDFax: TJvLED;

    LEDMail: TJvLED;

    LEDVersion: TJvLED;

    LEDVolumeSerialNumber: TJvLED;

    BBPrevFirstName: TBitBtn;

    BBNextFirstName: TBitBtn;

    PInformations: TPanel;

    LLicenseNotFound: TLabel;

    PLED: TPanel;

    PPrev: TPanel;

    PNext: TPanel;

    BBPrevLastName: TBitBtn;

    BBPrevCompany: TBitBtn;

    BBPrevAddress1: TBitBtn;

    BBPrevAddress2: TBitBtn;

    BBPrevPostalCode: TBitBtn;

    BBPrevCity: TBitBtn;

    BBPrevCountry: TBitBtn;

    BBPrevPhone: TBitBtn;

    BBPrevFax: TBitBtn;

    BBPrevMail: TBitBtn;

    BBPrevVersion: TBitBtn;

    BBPrevVolumeSerialNumber: TBitBtn;

    BBNextLastName: TBitBtn;

    BBNextCompany: TBitBtn;

    BBNextAddress1: TBitBtn;

    BBNextAddress2: TBitBtn;

    BBNextPostalCode: TBitBtn;

    BBNextCity: TBitBtn;

    BBNextCountry: TBitBtn;

    BBNextPhone: TBitBtn;

    BBNextFax: TBitBtn;

    BBNextMail: TBitBtn;

    BBNextVersion: TBitBtn;

    BBNextVolumeSerialNumber: TBitBtn;

    PBLicenseNumber: TPBSpinEdit;

    LCourse: TLabel;

    ECourse: TEdit;

    PEducation: TPanel;

    BBLock: TBitBtn;

    LAdmin: TLabel;

    IMAP4: TIdIMAP4;

    OpenSSL_IMAP4: TIdSSLIOHandlerSocketOpenSSL;

    OpenSSL_SMTP: TIdSSLIOHandlerSocketOpenSSL;

    procedure FormCreate(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure BBSkipClick(Sender: TObject);

    procedure BBProcessClick(Sender: TObject);

    procedure BBRemoveClick(Sender: TObject);

    procedure EFirstNameChange(Sender: TObject);

    procedure ELastNameChange(Sender: TObject);

    procedure ECompanyChange(Sender: TObject);

    procedure EAddress1Change(Sender: TObject);

    procedure EAddress2Change(Sender: TObject);

    procedure EPostalCodeChange(Sender: TObject);

    procedure ECityChange(Sender: TObject);

    procedure ECountryChange(Sender: TObject);

    procedure EPhoneChange(Sender: TObject);

    procedure EFaxChange(Sender: TObject);

    procedure EMailChange(Sender: TObject);

    procedure EVersionChange(Sender: TObject);

    procedure EVolumeSerialNumberChange(Sender: TObject);

    procedure BBNextFirstNameClick(Sender: TObject);

    procedure BBNextLastNameClick(Sender: TObject);

    procedure BBNextCompanyClick(Sender: TObject);

    procedure BBNextAddress1Click(Sender: TObject);

    procedure BBNextAddress2Click(Sender: TObject);

    procedure BBNextPostalCodeClick(Sender: TObject);

    procedure BBNextCityClick(Sender: TObject);

    procedure BBNextCountryClick(Sender: TObject);

    procedure BBNextPhoneClick(Sender: TObject);

    procedure BBNextFaxClick(Sender: TObject);

    procedure BBNextMailClick(Sender: TObject);

    procedure BBNextVersionClick(Sender: TObject);

    procedure BBNextVolumeSerialNumberClick(Sender: TObject);

    procedure BBPrevFirstNameClick(Sender: TObject);

    procedure BBPrevLastNameClick(Sender: TObject);

    procedure BBPrevCompanyClick(Sender: TObject);

    procedure BBPrevAddress1Click(Sender: TObject);

    procedure BBPrevAddress2Click(Sender: TObject);

    procedure BBPrevPostalCodeClick(Sender: TObject);

    procedure BBPrevCityClick(Sender: TObject);

    procedure BBPrevCountryClick(Sender: TObject);

    procedure BBPrevPhoneClick(Sender: TObject);

    procedure BBPrevFaxClick(Sender: TObject);

    procedure BBPrevMailClick(Sender: TObject);

    procedure BBPrevVersionClick(Sender: TObject);

    procedure BBPrevVolumeSerialNumberClick(Sender: TObject);

    procedure BBKeyComputeClick(Sender: TObject);

    procedure PBLicenseNumberChange(Sender: TObject);

    procedure BBLockClick(Sender: TObject);

    procedure RBEducationClick(Sender: TObject);

    procedure RBCompleteClick(Sender: TObject);

  private

    { D?clarations priv?es }

    Key: String;

    Language: String;

    LicenseType, LicenseNumber: Integer;

    Version: String;

    FirstName, LastName, Company: String;

    Address1, Address2, PostalCode, City, Country: String;

    Phone, Fax, Mail: String;

    Course: String;

    VolumeSerialNumber, FinalDate, SoftwareEnableKey: String;

    Observations: AnsiString;

    Admin: String;

    procedure DisplayRequest;

    function IsEducation: Boolean;

    function IsComplete: Boolean;

  public

    { D?clarations publiques }

    function GetRequest: Boolean;

  end;

var

  FKeys: TFKeys;

implementation

uses

  UFMenu;

{$R *.dfm}

procedure TFKeys.FormCreate(Sender: TObject);

begin

  Top := 0;

  Left := 0;

  with IMAP4 do

  begin

    Host := IMAP_SERVER;

//    Username := EXCHANGE_USERNAME + '\' + EXCHANGE_SHARED_MAILBOX;

    Username := 'INRA\' + FMenu.EUsername.Text + '\' + EXCHANGE_SHARED_MAILBOX;

//    Password := EXCHANGE_PASSWORD;

    Password := FMenu.EPassword.Text;

  end;

  with SMTP do

  begin

    Host := SMTP_SERVER;

//    Username := EXCHANGE_USERNAME;

    Username := 'INRA\' + FMenu.EUsername.Text;

//    Password := EXCHANGE_PASSWORD;

    Password := FMenu.EPassword.Text;

  end;

end;

procedure TFKeys.FormShow(Sender: TObject);

begin

  PBLicenseNumber.Enabled := FMenu.TLicense.RecordCount > 0;

//  PBLicenseNumber.MaxValue := FMenu.TLicense.RecordCount;

  DisplayRequest;

end;

procedure TFKeys.BBSkipClick(Sender: TObject);

begin

  Inc(cur);

  if (cur < SLLicense.Count) and GetRequest

  then

    DisplayRequest

  else

    Close;

end;

procedure TFKeys.BBProcessClick(Sender: TObject);

var

  f: TIniFile;

  StrMessage: TStrings;

begin

  if RBEducation.Checked

  then

  begin

    FMenu.MLog.Lines.Add('Recording education...');

    with FMenu.TEducation do

    begin

      Append;

      FieldByName('Date').AsDateTime := Now;

      FieldByName('Language').AsString := Language;

      FieldByName('Version').AsString := EVersion.Text;

      FieldByName('FirstName').AsString := EFirstName.Text;

      FieldByName('LastName').AsString := ELastName.Text;

      FieldByName('Company').AsString := ECompany.Text;

      FieldByName('Address1').AsString := EAddress1.Text;

      FieldByName('Address2').AsString := EAddress2.Text;

      FieldByName('PostalCode').AsString := EPostalCode.Text;

      FieldByName('City').AsString := ECity.Text;

      FieldByName('Country').AsString := ECountry.Text;

      FieldByName('Phone').AsString := EPhone.Text;

      FieldByName('Fax').AsString := EFax.Text;

      FieldByName('Mail').AsString := EMail.Text;

      FieldByName('Course').AsString := ECourse.Text;

      FieldByName('VolumeSerialNumber').AsString := EVolumeSerialNumber.Text;

      FieldByName('FinalDate').AsDateTime := DTPFinalDate.DateTime;

      FieldByName('SoftwareEnableKey').AsString := ESoftwareEnableKey.Text;

      Post;

    end;

  end;

  if RBComplete.Checked

  then

  begin

    FMenu.MLog.Lines.Add('Updating license...');

    with FMenu.TLicense do

    begin

      Edit;

      FieldByName('Language').AsString := Language;

      FieldByName('Version').AsString := EVersion.Text;

      FieldByName('FirstName').AsString := EFirstName.Text;

      FieldByName('LastName').AsString := ELastName.Text;

      FieldByName('Company').AsString := ECompany.Text;

      FieldByName('Address1').AsString := EAddress1.Text;

      FieldByName('Address2').AsString := EAddress2.Text;

      FieldByName('PostalCode').AsString := EPostalCode.Text;

      FieldByName('City').AsString := ECity.Text;

      FieldByName('Country').AsString := ECountry.Text;

      FieldByName('Phone').AsString := EPhone.Text;

      FieldByName('Fax').AsString := EFax.Text;

      FieldByName('Mail').AsString := EMail.Text;

      FieldByName('VolumeSerialNumber').AsString := EVolumeSerialNumber.Text;

      FieldByName('FinalDate').AsDateTime := DTPFinalDate.DateTime;

      FieldByName('SoftwareEnableKey').AsString := ESoftwareEnableKey.Text;

      Post;

    end;

  end;

  try

    f := TIniFile.Create(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic');

    f.WriteInteger ('License', 'LicenseType', LicenseType);

    f.WriteInteger ('License', 'LicenseNumber', PBLicenseNumber.Value) ;

    f.WriteString ('License', 'Version', EVersion.Text);

    f.WriteString ('License', 'FirstName', EFirstName.Text);

    f.WriteString ('License', 'LastName', ELastName.Text);

    f.WriteString ('License', 'Company', ECompany.Text);

    f.WriteString ('License', 'Address1', EAddress1.Text);

    f.WriteString ('License', 'Address2', EAddress2.Text);

    f.WriteString ('License', 'PostalCode', EPostalCode.Text);

    f.WriteString ('License', 'City', ECity.Text);

    f.WriteString ('License', 'Country', ECountry.Text);

    f.WriteString ('License', 'Phone', EPhone.Text);

    f.WriteString ('License', 'Fax', EFax.Text);

    f.WriteString ('License', 'Mail', EMail.Text);

    f.WriteString ('License', 'Course', ECourse.Text);

    f.WriteString ('License', 'VolumeSerialNumber', EVolumeSerialNumber.Text);

    f.WriteString ('License', 'FinalDate', DateToStr(DTPFinalDate.Date));

    f.WriteString ('License', 'SoftwareEnableKey', ESoftwareEnableKey.Text);

    f.Free;

    FMenu.MLog.Lines.Add('Mailing to ' + EMail.Text + '...');

    with MReply do

    begin

      Body.Clear;

      MessageParts.Clear;

      From.Name := 'InraPorc';

      From.Address := MAIL_INRAPORC;

      Recipients.EMailAddresses := EMail.Text;

      StrMessage := TStringList.Create;

      if Language = 'FR'

      then // R?ponse (fran?ais)

      begin

        if RBEducation.Checked

        then

          Subject := '[InraPorc] Cl? d''activation pour licence ?ducation';

        if RBComplete.Checked

        then

          Subject := Format('[InraPorc] Cl? d''activation pour licence num?ro %d', [PBLicenseNumber.Value]);

        StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Cl?_FR.txt');

        Body.AddStrings(StrMessage);

        if RBEducation.Checked

        then

          Body.Add('L''utilisation gratuite de ce logiciel est strictement r?serv?e ? l''enseignement.');

        Body.Add(Format('La cl? d''activation est valable jusqu''au %s.', [DateToStr(DTPFinalDate.Date)]));

        if RBComplete.Checked

        then

          if CBValidity.Checked

          then

            Body.Add('Un nouveau fichier de licence vous sera automatiquement envoy? avant la date d''expiration.')

          else

            if RBOrder.Checked

            then

              Body.Add('Suite au r?glement de la facture, un nouveau fichier de licence vous sera envoy?.')

            else

              Body.Add('Suite ? la signature des contrats, un nouveau fichier de licence vous sera envoy?.');

        Body.Add('');

        StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Signature_FR.txt');

        Body.AddStrings(StrMessage);

      end

      else // Reply (english)

      begin

        if RBEducation.Checked

        then

          Subject := '[InraPorc] License activation key for educational license';

        if RBComplete.Checked

        then

          Subject := Format('[InraPorc] License activation key for license number %d', [PBLicenseNumber.Value]);

        StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Cl?_EN.txt');

        Body.AddStrings(StrMessage);

        if RBEducation.Checked

        then

          Body.Add('The use of this license is strictly reserved to educational organizations.');

        Body.Add(Format('The license activation key is valid until %s.', [DateToStr(DTPFinalDate.Date)]));

        if RBComplete.Checked

        then

          if CBValidity.Checked

          then

            Body.Add('You will automatically receive a new license file before the expiration date.')

          else

            if RBOrder.Checked

            then

              Body.Add('After receiving your payment, we will send you a new license file.')

            else

              Body.Add('After receiving the signed contracts, we will send you a new license file.');

        Body.Add('');

        StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Signature_EN.txt');

        Body.AddStrings(StrMessage);

      end;

      StrMessage.Free;

      if FileExists(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic')

      then

        TIdAttachmentFile.Create(MessageParts, SHARED_DRIVE + SHARED_FOLDER + '\Fichiers\InraPorc.lic')

      else

        FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic not found!');

    end;

    FMenu.MLog.Lines.Add('SMTP...');

    try

      SMTP.Connect;

      try

        SMTP.Send(MReply);

      finally

        SMTP.Disconnect;

        if IMAP4.Connect

        then

          try

            if not IMAP4.AppendMsg('?l?ments envoy?s', MReply, MReply.LastGeneratedHeaders)

            then

              FMenu.MLog.Lines.Add('Message could not be copied in IMAP server!');

          finally

            IMAP4.Disconnect;

            if not DeleteFile(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic')

            then

              FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be deleted!');

            BBRemoveClick(nil);

          end

        else

          FMenu.MLog.Lines.Add('IMAP server could not be connected!');

      end;

    except

      FMenu.MLog.Lines.Add('Message could not be sent!');

    end;

  except

    FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be created!');

  end;

end;

procedure TFKeys.BBRemoveClick(Sender: TObject);

begin

  FMenu.MLog.Lines.Add('Logging record...');

  with FMenu.TLicenses do

  begin

    Append;

    FieldByName('Date').AsDateTime := Now;

    FieldByName('Admin').AsString := FMenu.EAdmin.Text;

    FieldByName('Key').AsString := Key;

    FieldByName('Language').AsString := Language;

    FieldByName('LicenseType').AsInteger := LicenseType;

    FieldByName('LicenseNumber').AsInteger := LicenseNumber;

    FieldByName('Version').AsString := Version;

    FieldByName('FirstName').AsString := FirstName;

    FieldByName('LastName').AsString := LastName;

    FieldByName('Company').AsString := Company;

    FieldByName('Address1').AsString := Address1;

    FieldByName('Address2').AsString := Address2;

    FieldByName('PostalCode').AsString := PostalCode;

    FieldByName('City').AsString := City;

    FieldByName('Country').AsString := Country;

    FieldByName('Phone').AsString := Phone;

    FieldByName('Fax').AsString := Fax;

    FieldByName('Mail').AsString := Mail;

    FieldByName('Course').AsString := Course;

    FieldByName('VolumeSerialNumber').AsString := VolumeSerialNumber;

    FieldByName('FinalDate').AsString := FinalDate;

    FieldByName('SoftwareEnableKey').AsString := SoftwareEnableKey;

    FieldByName('Observations').AsVariant := Observations;

    Post;

  end;

  que := 'DELETE FROM `licences` where `Key` = ''' + SLLicense[cur] + '''';

  FMenu.MLog.Lines.Add(que);

  if mysql_query(con, PAnsiChar(que)) <> 0

  then

    FMenu.MLog.Lines.Add(mysql_error(con))

  else

  begin

    SLLicense.Delete(cur);

    FMenu.PBKeys.AsInteger := FMenu.PBKeys.AsInteger - 1;

    Dec(cur);

  end;

  BBSkipClick(nil);

end;

procedure TFKeys.BBLockClick(Sender: TObject);

begin

  que := 'UPDATE `licences` SET `Admin` = ''' + FMenu.EAdmin.Text + ''' WHERE `Key` = ''' + SLLicense[cur] + '''';

  FMenu.MLog.Lines.Add(que);

  if mysql_query(con, PAnsiChar(que)) <> 0

  then

    FMenu.MLog.Lines.Add(mysql_error(con))

  else

  begin

    LAdmin.Caption := 'Dossier pris en charge par ' + FMenu.EAdmin.Text;

    LAdmin.Visible := True;

  end;

end;

function TFKeys.GetRequest: Boolean;

begin

  Result := False;

  que := 'SELECT * FROM `licences` where `Key` = ''' + SLLicense[cur] + '''';

  FMenu.MLog.Lines.Add(que);

  if mysql_query(con, PAnsiChar(que)) <> 0

  then

    FMenu.MLog.Lines.Add(mysql_error(con))

  else

  begin

    res := mysql_store_result(con);

    if res = nil

    then

      FMenu.MLog.Lines.Add(mysql_error(con))

    else

    begin

      row := mysql_fetch_row(res);

      if row = nil

      then

        FMenu.MLog.Lines.Add(mysql_error(con))

      else

      begin

        Key := row^[0];

        Language := row^[1];

        LicenseType := StrToInt(row^[2]);

        LicenseNumber := StrToInt(row^[3]);

        Version := row^[4];

        FirstName := row^[5];

        LastName := row^[6];

        Company := row^[7];

        Address1 := row^[8];

        Address2 := row^[9];

        PostalCode := row^[10];

        City := row^[11];

        Country := row^[12];

        Phone := row^[13];

        Fax := row^[14];

        Mail := row^[15];

        Course := row^[16];

        VolumeSerialNumber := row^[17];

        FinalDate := row^[18];

        SoftwareEnableKey := row^[19];

        Observations := row^[20];

        Admin := row^[21];

        Result := True;

      end;

      mysql_free_result(res);

    end;

  end;

end;

procedure TFKeys.DisplayRequest;

begin

  EKey.Text := Key;

  RBEducation.Checked := LicenseType = 1;

  RBComplete.Checked := LicenseType = 2;

  ECourse.Text := Course;

  if PBLicenseNumber.Value = LicenseNumber

  then

    PBLicenseNumberChange(nil)

  else

    PBLicenseNumber.Value := LicenseNumber;

  ESoftwareEnableKey.Text := SoftwareEnableKey;

  BBNextFirstNameClick(nil);

  BBNextLastNameClick(nil);

  BBNextCompanyClick(nil);

  BBNextAddress1Click(nil);

  BBNextAddress2Click(nil);

  BBNextPostalCodeClick(nil);

  BBNextCityClick(nil);

  BBNextCountryClick(nil);

  BBNextPhoneClick(nil);

  BBNextFaxClick(nil);

  BBNextMailClick(nil);

  BBNextVersionClick(nil);

  BBNextVolumeSerialNumberClick(nil);

  MObservations.Text := Observations;

  LAdmin.Caption := 'Dossier pris en charge par ' + Admin;

  LAdmin.Visible := (Admin <> '');

  BBLock.Enabled := not LAdmin.Visible;

  BBRemove.Enabled := BBLock.Enabled or (Admin = FMenu.EAdmin.Text);

  GBLicenseType.Enabled := BBRemove.Enabled;

end;

procedure TFKeys.RBCompleteClick(Sender: TObject);

begin

  PEducation.Visible := False;

  PComplete.Visible := True;

  LicenseType := 2;

  PBLicenseNumberChange(nil);

end;

procedure TFKeys.RBEducationClick(Sender: TObject);

begin

  PEducation.Visible := True;

  PComplete.Visible := False;

  LicenseType := 1;

  PBLicenseNumberChange(nil);

end;

procedure TFKeys.PBLicenseNumberChange(Sender: TObject);

begin

  LLicenseNotFound.Visible := not (RBComplete.Checked and FMenu.TLicense.FindKey([PBLicenseNumber.Value]));

  if LLicenseNotFound.Visible

  then

    PBLicenseNumber.Font.Color := clRed

  else

    PBLicenseNumber.Font.Color := clWindowText;

  CBValidity.Visible := not LLicenseNotFound.Visible;

  GBSource.Visible := not LLicenseNotFound.Visible;

  if not LLicenseNotFound.Visible

  then

    with FMenu.TLicense do

    begin

      CBValidity.Checked := FieldByName('Validity').AsBoolean;

      RBOrder.Checked := FieldByName('Type').AsInteger = 0;

      POrderNumber.Visible := RBOrder.Checked;

      EOrderNumber.Text := FieldByName('Source').AsString;

      RBINRA.Checked := FieldByName('Type').AsInteger = 1;

      RBAjinomoto.Checked := FieldByName('Type').AsInteger = 2;

      PAjinomotoNumber.Visible := RBAjinomoto.Checked;

      EAjinomotoNumber.Text := FieldByName('Source').AsString;

      LEDFirstName.Status := FieldByName('FirstName').IsNull or (FirstName = FieldByName('FirstName').AsString);

      LEDLastName.Status := FieldByName('LastName').IsNull or (LastName = FieldByName('LastName').AsString);

      LEDCompany.Status := FieldByName('Company').IsNull or (Company = FieldByName('Company').AsString);

      LEDAddress1.Status := FieldByName('Address1').IsNull or (Address1 = FieldByName('Address1').AsString);

      LEDAddress2.Status := FieldByName('Address2').IsNull or (Address2 = FieldByName('Address2').AsString);

      LEDPostalCode.Status := FieldByName('PostalCode').IsNull or (PostalCode = FieldByName('PostalCode').AsString);

      LEDCity.Status := FieldByName('City').IsNull or (City = FieldByName('City').AsString);

      LEDCountry.Status := FieldByName('Country').IsNull or (Country = FieldByName('Country').AsString);

      LEDPhone.Status := FieldByName('Phone').IsNull or (Phone = FieldByName('Phone').AsString);

      LEDFax.Status := FieldByName('Fax').IsNull or (Fax = FieldByName('Fax').AsString);

      LEDMail.Status := FieldByName('Mail').IsNull or (Mail = FieldByName('Mail').AsString);

      LEDVersion.Status := FieldByName('Version').IsNull or (Version = FieldByName('Version').AsString);

      LEDVolumeSerialNumber.Status := FieldByName('VolumeSerialNumber').IsNull or (VolumeSerialNumber = FieldByName('VolumeSerialNumber').AsString);

    end;

  PInformations.Enabled := (RBEducation.Checked or (RBComplete.Checked and not LLicenseNotFound.Visible)) and BBRemove.Enabled;

  PLED.Visible := RBComplete.Checked and not LLicenseNotFound.Visible;

  PPrev.Visible := RBComplete.Checked and not LLicenseNotFound.Visible;

  PNext.Visible := RBEducation.Checked or (RBComplete.Checked and not LLicenseNotFound.Visible);

  if not (RBEducation.Checked or (RBComplete.Checked and not LLicenseNotFound.Visible))

  then

    DTPFinalDate.DateTime := Date;

  if RBComplete.Checked and not LLicenseNotFound.Visible and not CBValidity.Checked

  then

    DTPFinalDate.DateTime := FMenu.TLicense.FieldByName('FinalDate').AsDateTime;

  if RBEducation.Checked or (RBComplete.Checked and not LLicenseNotFound.Visible and CBValidity.Checked)

  then

    DTPFinalDate.DateTime := FMenu.DateLimite;

  if BBNextFirstName.Enabled

  then

    BBNextFirstNameClick(nil)

  else

    EFirstNameChange(nil);

  if BBNextLastName.Enabled

  then

    BBNextLastNameClick(nil)

  else

    ELastNameChange(nil);

  if BBNextCompany.Enabled

  then

    BBNextCompanyClick(nil)

  else

    ECompanyChange(nil);

  if BBNextAddress1.Enabled

  then

    BBNextAddress1Click(nil)

  else

    EAddress1Change(nil);

  if BBNextAddress2.Enabled

  then

    BBNextAddress2Click(nil)

  else

    EAddress2Change(nil);

  if BBNextPostalCode.Enabled

  then

    BBNextPostalCodeClick(nil)

  else

    EPostalCodeChange(nil);

  if BBNextCity.Enabled

  then

    BBNextCityClick(nil)

  else

    ECityChange(nil);

  if BBNextCountry.Enabled

  then

    BBNextCountryClick(nil)

  else

    ECountryChange(nil);

  if BBNextPhone.Enabled

  then

    BBNextPhoneClick(nil)

  else

    EPhoneChange(nil);

  if BBNextFax.Enabled

  then

    BBNextFaxClick(nil)

  else

    EFaxChange(nil);

  if BBNextMail.Enabled

  then

    BBNextMailClick(nil)

  else

    EMailChange(nil);

  if BBNextVersion.Enabled

  then

    BBNextVersionClick(nil)

  else

    EVersionChange(nil);

  if BBNextVolumeSerialNumber.Enabled

  then

    BBNextVolumeSerialNumberClick(nil)

  else

    EVolumeSerialNumberChange(nil);

end;

procedure TFKeys.EFirstNameChange(Sender: TObject);

begin

  BBNextFirstName.Enabled := EFirstName.Text <> FirstName;

  if PPrev.Visible

  then

    BBPrevFirstName.Enabled := EFirstName.Text <> FMenu.TLicense.FieldByName('FirstName').AsString;

  BBProcess.Enabled := (IsEducation or (IsComplete and not LLicenseNotFound.Visible)) and BBRemove.Enabled;

end;

procedure TFKeys.ELastNameChange(Sender: TObject);

begin

  BBNextLastName.Enabled := ELastName.Text <> LastName;

  if PPrev.Visible

  then

    BBPrevLastName.Enabled := ELastName.Text <> FMenu.TLicense.FieldByName('LastName').AsString;

  BBProcess.Enabled := (IsEducation or (IsComplete and not LLicenseNotFound.Visible)) and BBRemove.Enabled;

end;

procedure TFKeys.ECompanyChange(Sender: TObject);

begin

  BBNextCompany.Enabled := ECompany.Text <> Company;

  if PPrev.Visible

  then

    BBPrevCompany.Enabled := ECompany.Text <> FMenu.TLicense.FieldByName('Company').AsString;

  BBProcess.Enabled := (IsEducation or (IsComplete and not LLicenseNotFound.Visible)) and BBRemove.Enabled;

end;

procedure TFKeys.EAddress1Change(Sender: TObject);

begin

  BBNextAddress1.Enabled := EAddress1.Text <> Address1;

  if PPrev.Visible

  then

    BBPrevAddress1.Enabled := EAddress1.Text <> FMenu.TLicense.FieldByName('Address1').AsString;

end;

procedure TFKeys.EAddress2Change(Sender: TObject);

begin

  BBNextAddress2.Enabled := EAddress2.Text <> Address2;

  if PPrev.Visible

  then

    BBPrevAddress2.Enabled := EAddress2.Text <> FMenu.TLicense.FieldByName('Address2').AsString;

end;

procedure TFKeys.EPostalCodeChange(Sender: TObject);

begin

  BBNextPostalCode.Enabled := EPostalCode.Text <> PostalCode;

  if PPrev.Visible

  then

    BBPrevPostalCode.Enabled := EPostalCode.Text <> FMenu.TLicense.FieldByName('PostalCode').AsString;

end;

procedure TFKeys.ECityChange(Sender: TObject);

begin

  BBNextCity.Enabled := ECity.Text <> City;

  if PPrev.Visible

  then

    BBPrevCity.Enabled := ECity.Text <> FMenu.TLicense.FieldByName('City').AsString;

end;

procedure TFKeys.ECountryChange(Sender: TObject);

begin

  BBNextCountry.Enabled := ECountry.Text <> Country;

  if PPrev.Visible

  then

    BBPrevCountry.Enabled := ECountry.Text <> FMenu.TLicense.FieldByName('Country').AsString;

end;

procedure TFKeys.EPhoneChange(Sender: TObject);

begin

  BBNextPhone.Enabled := EPhone.Text <> Phone;

  if PPrev.Visible

  then

    BBPrevPhone.Enabled := EPhone.Text <> FMenu.TLicense.FieldByName('Phone').AsString;

end;

procedure TFKeys.EFaxChange(Sender: TObject);

begin

  BBNextFax.Enabled := EFax.Text <> Fax;

  if PPrev.Visible

  then

    BBPrevFax.Enabled := EFax.Text <> FMenu.TLicense.FieldByName('Fax').AsString;

end;

procedure TFKeys.EMailChange(Sender: TObject);

begin

  BBNextMail.Enabled := EMail.Text <> Mail;

  if PPrev.Visible

  then

    BBPrevMail.Enabled := EMail.Text <> FMenu.TLicense.FieldByName('Mail').AsString;

end;

procedure TFKeys.EVersionChange(Sender: TObject);

begin

  BBNextVersion.Enabled := EVersion.Text <> Version;

  if PPrev.Visible

  then

    BBPrevVersion.Enabled := EVersion.Text <> FMenu.TLicense.FieldByName('Version').AsString;

  BBProcess.Enabled := (IsEducation or (IsComplete and not LLicenseNotFound.Visible)) and BBRemove.Enabled;

end;

procedure TFKeys.EVolumeSerialNumberChange(Sender: TObject);

begin

  BBNextVolumeSerialNumber.Enabled := EVolumeSerialNumber.Text <> VolumeSerialNumber;

  if PPrev.Visible

  then

    BBPrevVolumeSerialNumber.Enabled := EVolumeSerialNumber.Text <> FMenu.TLicense.FieldByName('VolumeSerialNumber').AsString;

  BBProcess.Enabled := (IsEducation or (IsComplete and not LLicenseNotFound.Visible)) and BBRemove.Enabled;

end;

procedure TFKeys.BBNextFirstNameClick(Sender: TObject);

begin

  EFirstName.Text := FirstName;

end;

procedure TFKeys.BBNextLastNameClick(Sender: TObject);

begin

  ELastName.Text := LastName;

end;

procedure TFKeys.BBNextCompanyClick(Sender: TObject);

begin

  ECompany.Text := Company;

end;

procedure TFKeys.BBNextAddress1Click(Sender: TObject);

begin

  EAddress1.Text := Address1;

end;

procedure TFKeys.BBNextAddress2Click(Sender: TObject);

begin

  EAddress2.Text := Address2;

end;

procedure TFKeys.BBNextPostalCodeClick(Sender: TObject);

begin

  EPostalCode.Text := PostalCode;

end;

procedure TFKeys.BBNextCityClick(Sender: TObject);

begin

  ECity.Text := City;

end;

procedure TFKeys.BBNextCountryClick(Sender: TObject);

begin

  ECountry.Text := Country;

end;

procedure TFKeys.BBNextPhoneClick(Sender: TObject);

begin

  EPhone.Text := Phone;

end;

procedure TFKeys.BBNextFaxClick(Sender: TObject);

begin

  EFax.Text := Fax;

end;

procedure TFKeys.BBNextMailClick(Sender: TObject);

begin

  EMail.Text := Mail;

end;

procedure TFKeys.BBNextVersionClick(Sender: TObject);

begin

  EVersion.Text := Version;

end;

procedure TFKeys.BBNextVolumeSerialNumberClick(Sender: TObject);

begin

  EVolumeSerialNumber.Text := VolumeSerialNumber;

end;

procedure TFKeys.BBPrevFirstNameClick(Sender: TObject);

begin

  EFirstName.Text := FMenu.TLicense.FieldByName('FirstName').AsString;

end;

procedure TFKeys.BBPrevLastNameClick(Sender: TObject);

begin

  ELastName.Text := FMenu.TLicense.FieldByName('LastName').AsString;

end;

procedure TFKeys.BBPrevCompanyClick(Sender: TObject);

begin

  ECompany.Text := FMenu.TLicense.FieldByName('Company').AsString;

end;

procedure TFKeys.BBPrevAddress1Click(Sender: TObject);

begin

  EAddress1.Text := FMenu.TLicense.FieldByName('Address1').AsString;

end;

procedure TFKeys.BBPrevAddress2Click(Sender: TObject);

begin

  EAddress2.Text := FMenu.TLicense.FieldByName('Address2').AsString;

end;

procedure TFKeys.BBPrevPostalCodeClick(Sender: TObject);

begin

  EPostalCode.Text := FMenu.TLicense.FieldByName('PostalCode').AsString;

end;

procedure TFKeys.BBPrevCityClick(Sender: TObject);

begin

  ECity.Text := FMenu.TLicense.FieldByName('City').AsString;

end;

procedure TFKeys.BBPrevCountryClick(Sender: TObject);

begin

  ECountry.Text := FMenu.TLicense.FieldByName('Country').AsString;

end;

procedure TFKeys.BBPrevPhoneClick(Sender: TObject);

begin

  EPhone.Text := FMenu.TLicense.FieldByName('Phone').AsString;

end;

procedure TFKeys.BBPrevFaxClick(Sender: TObject);

begin

  EFax.Text := FMenu.TLicense.FieldByName('Fax').AsString;

end;

procedure TFKeys.BBPrevMailClick(Sender: TObject);

begin

  EMail.Text := FMenu.TLicense.FieldByName('Mail').AsString;

end;

procedure TFKeys.BBPrevVersionClick(Sender: TObject);

begin

  EVersion.Text := FMenu.TLicense.FieldByName('Version').AsString;

end;

procedure TFKeys.BBPrevVolumeSerialNumberClick(Sender: TObject);

begin

  EVolumeSerialNumber.Text := FMenu.TLicense.FieldByName('VolumeSerialNumber').AsString;

end;

procedure TFKeys.BBKeyComputeClick(Sender: TObject);

begin

  if RBEducation.Checked

  then

    ESoftwareEnableKey.Text := FMenu.EducationKey(EVersion.Text, EFirstName.Text, ELastName.Text, ECompany.Text, EVolumeSerialNumber.Text, DateToStr(DTPFinalDate.Date));

  if RBComplete.Checked

  then

    ESoftwareEnableKey.Text := FMenu.CompleteKey(PBLicenseNumber.Value, EVersion.Text, EFirstName.Text, ELastName.Text, ECompany.Text, EVolumeSerialNumber.Text, DateToStr(DTPFinalDate.Date));

  BBProcess.Enabled := (IsEducation or (IsComplete and not LLicenseNotFound.Visible)) and BBRemove.Enabled;

end;

function TFKeys.IsEducation: Boolean;

begin

  Result := RBEducation.Checked

    and (Length(EVersion.Text) > 0)

    and (Length(EVolumeSerialNumber.Text) > 0)

    and (Length(EFirstName.Text) > 0)

    and (Length(ELastName.Text) > 0)

    and (Length(ECompany.Text) > 0)

    and (AnsiSameText(ESoftwareEnableKey.Text, FMenu.EducationKey(EVersion.Text, EFirstName.Text, ELastName.Text, ECompany.Text, EVolumeSerialNumber.Text, DateToStr(DTPFinalDate.Date))));

end;

function TFKeys.IsComplete: Boolean;

begin

  Result := RBComplete.Checked

    and (PBLicenseNumber.Value > 0)

    and (Length(EVersion.Text) > 0)

    and (Length(EVolumeSerialNumber.Text) > 0)

    and (Length(EFirstName.Text) > 0)

    and (Length(ELastName.Text) > 0)

    and (AnsiSameText(ESoftwareEnableKey.Text, FMenu.CompleteKey(PBLicenseNumber.Value, EVersion.Text, EFirstName.Text, ELastName.Text, ECompany.Text, EVolumeSerialNumber.Text, DateToStr(DTPFinalDate.Date))));

end;

end.