InraPorc

unit UFAjinomoto;

interface

uses

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

    Dialogs, StdCtrls, Buttons, PBNumEdit, IdBaseComponent, IdComponent,

    IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IdMessage, IdMessageClient,

    IdSMTP, ExtCtrls, mysql, IdExplicitTLSClientServerBase, IdSMTPBase, IdIMAP4,

  IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;

type

  TFAjinomoto = class(TForm)

    EKey: TEdit;

    BBSkip: TBitBtn;

    BBProcess: TBitBtn;

    BBRemove: TBitBtn;

    EUser: TEdit;

    LUser: TLabel;

    LLicenses: TLabel;

    EFirstName1: TEdit;

    LFirstName: TLabel;

    ELastName1: TEdit;

    LLastName: TLabel;

    LLicenseNumber: TLabel;

    EFirstName2: TEdit;

    ELastName2: TEdit;

    EFirstName3: TEdit;

    ELastName3: TEdit;

    EFirstName4: TEdit;

    ELastName4: TEdit;

    EFirstName5: TEdit;

    ELastName5: TEdit;

    PBLicenses: TPBNumEdit;

    PBLicenseNumber1: TPBNumEdit;

    PBLicenseNumber2: TPBNumEdit;

    PBLicenseNumber3: TPBNumEdit;

    PBLicenseNumber4: TPBNumEdit;

    PBLicenseNumber5: TPBNumEdit;

    SMTP: TIdSMTP;

    MObservations: TMemo;

    MAjinomoto: TIdMessage;

    EFormationDate: TEdit;

    EFormationPlace: TEdit;

    LFormationDate: TLabel;

    LFormationPlace: TLabel;

    EFirstName6: TEdit;

    ELastName6: TEdit;

    EFirstName7: TEdit;

    ELastName7: TEdit;

    EFirstName8: TEdit;

    ELastName8: TEdit;

    EFirstName9: TEdit;

    ELastName9: TEdit;

    EFirstName10: TEdit;

    ELastName10: TEdit;

    PBLicenseNumber6: TPBNumEdit;

    PBLicenseNumber7: TPBNumEdit;

    PBLicenseNumber8: TPBNumEdit;

    PBLicenseNumber9: TPBNumEdit;

    PBLicenseNumber10: TPBNumEdit;

    EFirstName11: TEdit;

    ELastName11: TEdit;

    EFirstName12: TEdit;

    ELastName12: TEdit;

    EFirstName13: TEdit;

    ELastName13: TEdit;

    EFirstName14: TEdit;

    ELastName14: TEdit;

    EFirstName15: TEdit;

    ELastName15: TEdit;

    PBLicenseNumber11: TPBNumEdit;

    PBLicenseNumber12: TPBNumEdit;

    PBLicenseNumber13: TPBNumEdit;

    PBLicenseNumber14: TPBNumEdit;

    PBLicenseNumber15: TPBNumEdit;

    EFirstName16: TEdit;

    ELastName16: TEdit;

    EFirstName17: TEdit;

    ELastName17: TEdit;

    EFirstName18: TEdit;

    ELastName18: TEdit;

    EFirstName19: TEdit;

    ELastName19: TEdit;

    EFirstName20: TEdit;

    ELastName20: TEdit;

    PBLicenseNumber16: TPBNumEdit;

    PBLicenseNumber17: TPBNumEdit;

    PBLicenseNumber18: TPBNumEdit;

    PBLicenseNumber19: TPBNumEdit;

    PBLicenseNumber20: TPBNumEdit;

    PLicenses: TPanel;

    LCompany: TLabel;

    ECompany1: TEdit;

    ECompany2: TEdit;

    ECompany3: TEdit;

    ECompany4: TEdit;

    ECompany5: TEdit;

    ECompany6: TEdit;

    ECompany7: TEdit;

    ECompany8: TEdit;

    ECompany9: TEdit;

    ECompany10: TEdit;

    ECompany11: TEdit;

    ECompany12: TEdit;

    ECompany13: TEdit;

    ECompany14: TEdit;

    ECompany15: TEdit;

    ECompany16: TEdit;

    ECompany17: TEdit;

    ECompany18: TEdit;

    ECompany19: TEdit;

    ECompany20: TEdit;

    LFormation: TLabel;

    PLicense1: TPanel;

    PLicense2: TPanel;

    PLicense3: TPanel;

    PLicense4: TPanel;

    PLicense5: TPanel;

    PLicense6: TPanel;

    PLicense7: TPanel;

    PLicense8: TPanel;

    PLicense9: TPanel;

    PLicense10: TPanel;

    PLicense11: TPanel;

    PLicense12: TPanel;

    PLicense13: TPanel;

    PLicense14: TPanel;

    PLicense15: TPanel;

    PLicense16: TPanel;

    PLicense17: TPanel;

    PLicense18: TPanel;

    PLicense19: TPanel;

    PLicense20: TPanel;

    IMAP4: TIdIMAP4;

    OpenSSL_IMAP4: TIdSSLIOHandlerSocketOpenSSL;

    OpenSSL_SMTP: TIdSSLIOHandlerSocketOpenSSL;

    procedure FormShow(Sender: TObject);

    procedure BBSkipClick(Sender: TObject);

    procedure BBProcessClick(Sender: TObject);

    procedure BBRemoveClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

    Key: String;

    Language: String;

    User: String;

    FormationDate, FormationPlace: String;

    Licenses: Integer;

    FirstName, LastName, Company: array[1..20] of String;

    Observations: AnsiString;

    procedure DisplayRequest;

  public

    { D?clarations publiques }

    function GetRequest: Boolean;

  end;

var

  FAjinomoto: TFAjinomoto;

implementation

uses

  UFMenu;

{$R *.dfm}

procedure TFAjinomoto.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 TFAjinomoto.FormShow(Sender: TObject);

begin

  DisplayRequest;

end;

procedure TFAjinomoto.BBSkipClick(Sender: TObject);

begin

  Inc(cur);

  if (cur < SLAjinomoto.Count) and GetRequest

  then

    DisplayRequest

  else

    Close;

end;

procedure TFAjinomoto.BBProcessClick(Sender: TObject);

var

  i: Integer;

  p: TPanel;

begin

  FMenu.MLog.Lines.Add('Recording licenses (type 2)...');

  for i := 1 to Licenses do

    with FMenu.TLicense do

    begin

      Insert;

      FieldByName('Validity').AsBoolean := False;

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

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

      p := PLicenses.Controls[i + 3] as TPanel;

      FieldByName('LicenseNumber').AsInteger := (p.Controls[3] as TPBNumEdit).AsInteger;

      FieldByName('FirstName').AsString := (p.Controls[0] as TEdit).Text;

      FieldByName('LastName').AsString := (p.Controls[1] as TEdit).Text;

      FieldByName('Company').AsString := (p.Controls[2] as TEdit).Text;

      FieldByName('FinalDate').AsDateTime := IncMonth(Date, 2);

      Post;

    end;

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

  with MAjinomoto do

  begin

    Body.Clear;

    From.Name := 'InraPorc';

    From.Address := MAIL_INRAPORC;

    Recipients.EMailAddresses := MAIL_AJINOMOTO;

    Body.Add(Format('Attribution de licence Ajinomoto num?ro "%s" portant sur %d licence(s)', [Key, PBLicenses.AsInteger]));

    Body.Add('');

    Body.Add('Les num?ros de licence suivants ont ?t? attribu?s :');

    for i := 1 to PBLicenses.AsInteger do

    begin

      p := PLicenses.Controls[i + 3] as TPanel;

      Body.Add(Format('%d - %s %s (%s)', [(p.Controls[3] as TPBNumEdit).AsInteger, (p.Controls[0] as TEdit).Text, (p.Controls[1] as TEdit).Text, (p.Controls[2] as TEdit).Text]));

    end;

    Body.Add('');

    Body.Add('Merci de communiquer les num?ros de licence aux personnes concern?es.');

    Body.Add('');

    Body.Add('Cordialement');

    Body.Add('--');

    Body.Add(FMenu.EAdmin.Text);

  end;

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

  try

    SMTP.Connect;

    try

      SMTP.Send(MAjinomoto);

    finally

      SMTP.Disconnect;

      if IMAP4.Connect

      then

        try

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

          then

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

        finally

          IMAP4.Disconnect;

        end

      else

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

    end;

  except

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

  end;

  BBRemoveClick(nil);

end;

procedure TFAjinomoto.BBRemoveClick(Sender: TObject);

var

  i: Integer;

begin

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

  with FMenu.TAjinomoto do

  begin

    Append;

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

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

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

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

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

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

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

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

    for i := 1 to 20 do

    begin

      FieldByName(Format('FirstName%d', [i])).AsString := FirstName[i];

      FieldByName(Format('LastName%d', [i])).AsString := LastName[i];

      FieldByName(Format('Company%d', [i])).AsString := Company[i];

    end;

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

    Post;

  end;

  que := 'DELETE FROM `ajinomoto` where `Key` = ''' + SLAjinomoto[cur] + '''';

  FMenu.MLog.Lines.Add(que);

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

  then

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

  else

  begin

    SLAjinomoto.Delete(cur);

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

    Dec(cur);

  end;

  BBSkipClick(nil);

end;

function TFAjinomoto.GetRequest: Boolean;

var

  i: Integer;

begin

  Result := False;

  que := 'SELECT * FROM `ajinomoto` where `Key` = ''' + SLAjinomoto[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];

        User := row^[2];

        FormationDate := row^[3];

        FormationPlace := row^[4];

        Licenses := StrToInt(row^[5]);

        for i := 1 to 20 do

        begin

          FirstName[i] := row^[3*i+3];

          LastName[i] := row^[3*i+4];

          Company[i] := row^[3*i+5];

        end;

        Observations := row^[66];

        Result := True;

      end;

      mysql_free_result(res);

    end;

  end;

end;

procedure TFAjinomoto.DisplayRequest;

var

  i: Integer;

  p: TPanel;

begin

  EKey.Text := Key;

  EUser.Text := User;

  EFormationDate.Text := FormationDate;

  EFormationPlace.Text := FormationPlace;

  PBLicenses.AsInteger := Licenses;

  for i := 1 to 20 do

  begin

    p := PLicenses.Controls[i + 3] as TPanel;

    p.Visible := i <= Licenses;

    (p.Controls[0] as TEdit).Text := FirstName[i];

    (p.Controls[1] as TEdit).Text := LastName[i];

    (p.Controls[2] as TEdit).Text := Company[i];

    (p.Controls[3] as TPBNumEdit).AsInteger := FMenu.TLicense.RecordCount + i;

  end;

  MObservations.Text := Observations;

end;

end.