InraPorc

unit UFINRA;

interface

uses

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

    Dialogs, ComCtrls, StdCtrls, Buttons, PBNumEdit;

type

  TFINRA = class(TForm)

    LFirstName: TLabel;

    LLastName: TLabel;

    LLicenseNumber: TLabel;

    LCompany: TLabel;

    EFirstName: TEdit;

    ELastName: TEdit;

    PBLicenseNumber: TPBNumEdit;

    ECompany: TEdit;

    BBNext: TBitBtn;

    MObservations: TMemo;

    procedure BBNextClick(Sender: TObject);

    procedure ENameChange(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

    procedure ClearINRA;

  public

    { D?clarations publiques }

  end;

var

  FINRA: TFINRA;

implementation

uses

  UFMenu;

{$R *.dfm}

procedure TFINRA.FormCreate(Sender: TObject);

begin

  Top := 0;

  Left := 0;

end;

procedure TFINRA.FormShow(Sender: TObject);

begin

  ClearINRA;

end;

procedure TFINRA.ENameChange(Sender: TObject);

begin

  BBNext.Enabled := (Length(EFirstName.Text) > 0) and (Length(ELastName.Text) > 0);

end;

procedure TFINRA.BBNextClick(Sender: TObject);

begin

  FMenu.MLog.Lines.Add('Recording license (type 1)...');

  with FMenu.TLicense do

  begin

    Insert;

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

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

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

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

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

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

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

    Post;

  end;

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

  with FMenu.TINRA do

  begin

    Append;

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

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

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

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

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

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

    FieldByName('Observations').AsString := MObservations.Text;

    Post;

  end;

  ClearINRA;

end;

procedure TFINRA.ClearINRA;

begin

  BBNext.Enabled := False;

  EFirstName.Text := '';

  ELastName.Text := '';

  ECompany.Text := '';

  PBLicenseNumber.AsInteger := FMenu.TLicense.RecordCount + 1;

  MObservations.Clear;

  ActiveControl := EFirstName;

end;

end.