Jump to content

Emiliano

uniGUI Subscriber
  • Posts

    83
  • Joined

  • Last visited

  • Days Won

    3

Posts posted by Emiliano

  1. Hi

     

    I´m trying to develop a login form form a sample project

    After i click the "Ok" button in the login form, i receive this message:
     
    Warning: Form must be shown after is created: MainForm

     

    the Ok button code is:

     

     

     

    procedure TformLogin.UniButton1Click(Sender: TObject);
    var
       LoginString : string;
    begin
         LoginString := 'SELECT * FROM tbluser ';
         LoginString := LoginString + 'WHERE login = ' + #39 + (edtLogin.Text) + #39;
         LoginString := LoginString + ' AND password = ' + #39 + (edtPassword.Text) + #39;
     
         MainForm.qryLogin.Close;
         MainForm.qryLogin.SQL.Clear;
         MainForm.qryLogin.SQL.Add(LoginString);
         MainForm.qryLogin.open;
     
         if not MainForm.qryLogin.IsEmpty then  // check if query is empty
         Begin
              if MainForm.qryLogin.FieldByName('status').AsString='0' then  // check the user status, user may be inactive (0-inactive, 1-active)
              begin
                   showmessage('User inactive'); // inform the user status
                   MainForm.Close;  // close the application
              end
              else
              begin
                   ModalResult:=mrOK;
                   Mainform.ShowModal();
                   MainForm.UniStatusBar1.Panels[1].Text := 'User:' + formLogin.edtLogin.Text; // write user name in status bar
              end;
         end
         else
         begin
               showmessage('Login or password is not correct!');
               edtLogin.Text := '';
               edtPassword.text := '';
               edtLogin.SetFocus;
               ModalResult := mrNone;
         end;
    end;

     

    any suggestion on how to solve this error message would be fine
    thanks

     

    post-948-0-21932100-1400730321_thumb.jpg

  2. Friends:

     

    There are the begining of the web versión of Sebaot Software Assurance System.

     

    This application only coul'd be possible thanks of the high level of Mr. Farshad support and the high quality of the UniGui framework!

     

    My congratulations to Mr. Farshad and his team to make the transtition from Delphi Desktop to Web so painless.

     

    Thanks to everybody and Best Regards

     

    Lic. Oscar Flor

    Web Developer

    Sebaot Software

    www.sebaot.com

     

    Hi

     
    i saw your assurance system screen capture.
    i´m having problems with my login screen, after i log i can´t dissmis the main form
    if possible can you show me the login and and main form codes
     
    thanks
     
    Emiliano
  3. unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics,
      Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
      uniGUIClasses, uniGUIForm;

    type
      TUniForm1 = class(TUniForm)
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    implementation

    uses
      uniGUIApplication;

    {$R *.dfm}


    end.

  4. Hi

     

    the undeclared identifier happens after this steps:

    a) i open the demo screensize

    B) included a new button

    c) INCLUDED the new form in the USES section

    d) the code is just the show command, so main form can call the second form

    when i try to run happens the error undeclared identifier informing that the second unit is not declared!

     

    any ideas?

    thanks

     

    Emiliano

     

    post-948-0-99354500-1400381189_thumb.jpg

  5. Hi to all.

     

    I share the uniGMap component.

    It is based on code I have used in several projects and actually developed to fulfill my needs.

     

    It can add , edit , remove , locate markers , lines , polylines , circles , polygons ,

    rectangles , directions , KML,

    change several map properties like zoom , type , control visibility etc ,

    notify about map events through AjaxEvent like zoom , click , markerclick and

    get some object properties like Length , Area etc.

     

     

    You can see it in action here :

    http://79.143.178.31/lema/uniGMapDemo.dll

     

    latest version: 2014-03-30 v1.3.6

     

    Thanks

×
×
  • Create New...