盒子论坛 v2.1

各位仁兄，我做了一个登陆窗体。代码如下：

var
  username,password,sqlstr:string ;
begin
  username:=trim(Eusername.Text);//Eusername是用户名输入
  password:=trim(Epassword.Text);//Epassword是密码输入
  if username='' then
  begin
    showmessage('用户名不能为空！');
    Eusername.SetFocus;
    exit;
  end;
  if password='' then
  begin
    showmessage('密码不能为空！');
    Epassword.SetFocus;
   exit;
  end;
   with DataModule1.ADOQUERY1 do  //DataModule1.ADOQUERY1是我的一个数据模块中的adoquery
   begin
     close;
     sql.clear;
     sqlstr:='select * from yhxx where user=:V1 ';
     sql.Add(sqlstr);
     Parameters.ParamByName('V1').value:=username;
     try
       OPEN;
     except
       on EDatabaseError do
       messagedlg('数据库操作错误！',mtError,[mbok],0);
     end;
     if isempty then
     begin
       showmessage('无此用户名，请重新录入！');
       Eusername.SetFocus;
       exit;
     end
     else
     begin
       close;
       sql.Clear;
       sqlstr:='select * from yhxx where user=:V1 and pass=:V2';
       sql.Add(sqlstr);
       Parameters.ParamByName('V1').value:=username;
       Parameters.ParamByName('V2').value:=password;
       try
         OPEN;
       except
         on EDatabaseError do
           messagedlg('数据库操作错误！',mtError,[mbok],0);
       end;
       if isempty then
       begin
         showmessage('密码输入有误，请重新输入密码！');
         Epassword.SetFocus;
         exit;
       end
       else
       begin
         Flogin.Hide;
         if DataModule1.ADOQUERY1.FieldByName('super').AsString='否' then
         begin
           Fmain.TBuserman.Enabled:=false;
           Fmain.TBsetting.Enabled:=false;
           Fmain.N3.Enabled:=false;
         end;
         fmain.Logined:=true;
         Fmain.ShowModal;
       end;
     end;
   end;
end;

工程文件代码是：
program Ptag;

uses
  Forms,
  Umain in 'Umain.pas' {Fmain},
  DataMudule in 'DataMudule.pas' {DataModule1: TDataModule},
  Ulogin in 'Ulogin.pas' {Flogin};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFmain, Fmain);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TFlogin, Flogin);
  Flogin.ShowModal;
  Application.Run;
end.

在我运行登陆窗体时，不论我输入密码是否正确，系统都将登陆主窗体Fmain.请问是怎么回事？？急
----------------------------------------------
-

作者：

li58 (CaiBest)	★☆☆☆☆	-
	盒子活跃会员

2004/5/14 17:25:20

1楼：

Ctrl+Shift+F11
将主窗口设置为Flogin
在pdr文件中的Application.Run;前面加上一句Fmain.hide;
试试看吧。

----------------------------------------------
a fan of delphi!
studing now....

作者：

cjjll (潇潇)	★☆☆☆☆	-
	盒子活跃会员

2004/5/14 17:58:40

2楼：

ok:

begin
  Application.Initialize;
  Application.CreateForm(TFlogin, Flogin);
  Application.Run;
end.

----------------------------------------------
-

信息

登陆以后才能回复