01-29-2020, 12:07 PM
Hi Soren, i do this in UserSessionUnit:
and all your forms:
Code:
private
{ Private declarations }
xEmpJNP_Id: Integer;
xEmpJNP_Nome: String;
public
{ Public declarations }
property gEmpJNP_Id: Integer read xEmpJNP_Id write xEmpJNP_Id;
property gEmpJNP_Nome: String read xEmpJNP_Nome write xEmpJNP_Nome;
and all your forms:
Code:
{$R *.dfm}
uses ServerController;
begin
UserSession.gEmpJNP_Id := 123456;
UserSession.gEmpJNP_Nome := 'Soren';
end;