从登录切换到主窗体。 [英] switching from login to main form.

问题描述

我正在尝试从登录屏幕移动到主窗体。我需要登录才能在主表单之前出现，并且在成功的用户名和密码登录之后，登录表单必须消失。我正在使用

 form2.show; 

和

 form1.hide; 

我知道这是错的，但我不知道从登录屏幕移动到主窗体的正确方法是什么。请从登录界面看下面我的代码。请不要介意我的组件命名

 IBQuery1.SQL.clear; 
 IBQuery1.SQL。 add （' 选择*来自USER_ACCESS，其中USERID =' + edit1.Text + ' '）; 
 IBQuery1.Active：=  true ; 
 UserId：= IBQuery1.FieldByname（'  USERID'）。AsInteger; 
 pasword：= IBQuery1.Fieldbyname（'  PASWORD'）。AsString; 
 name1：= IBQuery1.fieldbyname（'  NAME'）。AsString; 
特权：= IBQuery1.fieldbyname（'  USERTYPE'）。AsString; 
 
  if （（UserId = StrToInt（edit1.Text））和（pasword = edit2.Text））
 THEN 
 
 begin 
 ShowMessage（'  login successfully' + name1）; 
 form2.Show; 
 Form1.Hide; 
 end 
 
  else  
 
 ShowMessage（' 密码错误）; 
 
 
 end; 

解决方案

最简单的方法之一是：显示你的拳头形式（登录）作为模态通过 ShowModal ：

http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Forms_TCustomForm_ShowModal.html [ ^ ]。



当第一张表格关闭时，你的第二张（主要）表格应该稍后显示。

-SA

I am trying to move from a login screen to the main form. i need my login to come up first before the main form , and there after a succesful username and password logon the login form must disappear.currrently i am using

form2.show;

and

form1.hide;

i know this wrong , but i dont know what is the correct way to move from a login screen to a mainform. please see below my code from login screen. please dont mind my components naming

IBQuery1.SQL.clear;
        IBQuery1.SQL.add('Select * from USER_ACCESS where USERID = '+ edit1.Text+'') ;
        IBQuery1.Active := true;
        UserId := IBQuery1.FieldByname('USERID').AsInteger;
        pasword:= IBQuery1.Fieldbyname('PASWORD').AsString;
        name1 := IBQuery1.fieldbyname('NAME').AsString;
        privilege := IBQuery1.fieldbyname('USERTYPE').AsString;

                if((UserId = StrToInt(edit1.Text)) And (pasword = edit2.Text))
         THEN

          begin
        ShowMessage('login Successful ' + name1);
    form2.Show;
   Form1.Hide;
        end

        else

        ShowMessage('Wrong Password');


end;

解决方案

One of the simplest ways would be: show your fist form (login) as modal via ShowModal:
http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Forms_TCustomForm_ShowModal.html[^].

And you second (main) form should be shown later, when the first form is closed.

—SA

这篇关于从登录切换到主窗体。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！