How to check value of Public variable assigned in LoginForm at MainModule

[CCH4UNIGUI]

Hi Sherzod

I have a simple login form created via Uniform Form wizard and

1. assign as public cUsername:string

2. cUsername:=trim(UserNameUniEdit.Text); eg 8180

I checked the value via showmessage at LoginForm and confirm as 8180

But I suspect that though declared as public in both loginForm & MainModule, cUserName is no longer 8180 at MainModule

Q. How can I check the value of cUserName at MainModule as showmessage don't work there

Please revert. TQ 

 

 

Actual Codes

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniButton, uniPanel, uniEdit,
  uniGUIBaseClasses, uniLabel;

type
  TUniLoginForm1 = class(TUniLoginForm)
    UniLabel1: TUniLabel;
    UserNameUniEdit: TUniEdit;
    UniLabel2: TUniLabel;
    UniEdit2: TUniEdit;
    UniPanel1: TUniPanel;
    OKUniBtn: TUniButton;
    CancelUniBtn: TUniButton;
    procedure CancelUniBtnClick(Sender: TObject);
    procedure OKUniBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  cUserName:string;
  end;

function UniLoginForm1: TUniLoginForm1;

implementation

{$R *.dfm}

uses
  uniGUIVars, MainModule, uniGUIApplication, Unit1;

function UniLoginForm1: TUniLoginForm1;
begin
  Result := TUniLoginForm1(UniMainModule.GetFormInstance(TUniLoginForm1));
end;

procedure TUniLoginForm1.CancelUniBtnClick(Sender: TObject);
begin
ModalResult := mrCancel;
end;

procedure TUniLoginForm1.OKUniBtnClick(Sender: TObject);
begin
cUsername:=trim(UserNameUniEdit.Text);
showmessage(cUsername);
//
ModalResult := mrOK;
end;

initialization
  RegisterAppFormClass(TUniLoginForm1);

cUserName, declared public = employee id

unit MainModule;

interface

uses
  uniGUIMainModule, SysUtils, Classes, Data.DB, Data.Win.ADODB;

type
  TUniMainModule = class(TUniGUIMainModule)
    PlanOTTable: TADODataSet;
    PlanotDS: TDataSource;
    BaldatTable: TADODataSet;
    HrmcodepTable: TADODataSet;
    TmsdataTable: TADODataSet;
    LeavedatTable: TADODataSet;
    HrmdatTable: TADODataSet;
    EmployeeTable: TADODataSet;
    ADOConnection1: TADOConnection;
    HrmcodepDS: TDataSource;
    TmsdataDS: TDataSource;
    BaldatDS: TDataSource;
    LeavedatDS: TDataSource;
    HrmdatDS: TDataSource;
    EmployeeDS: TDataSource;
    procedure UniGUIMainModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   cUserName:string;

  end;

function UniMainModule: TUniMainModule;

implementation

{$R *.dfm}

uses
  UniGUIVars, ServerModule, uniGUIApplication, login;

function UniMainModule: TUniMainModule;
begin
  Result := TUniMainModule(UniApplication.UniMainModule)
end;

procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject);
begin
//
// cUserName seems to be empty EmployeeTable.CommandText:='select * from employee WHERE ID='''+ cUserName+''''  ;
EmployeeTable.CommandText:='select * from employee WHERE ID='''+ '8180'+'''' ;

EmployeeTable.Active:=True;

end;

initialization
  RegisterMainModuleClass(TUniMainModule);
end.

 

[CCH4UNIGUI]

This issue is resolved 🙂

[Tokay]

Better way for community is to tell how you fixed the issue.