极其简单的问题 :) 请进>>

[wzrlover]

我在做用户登入窗体的时候 在主窗体的OnShow事件中
使用以下语句:
With TLogFrm.Create(Application) do
Try
ShowModal;
Finally
free;
end;

在登入窗体的"登入"Button的OnClick事件进行密码的核对
begin
Table_user.close;
with Table_user do
begin
open;
if locate('UserName',Combobox1.text,[]) then
if fieldbyName('Password').asstring=edtPwd.text then
close
else
begin
if Application.MessageBox('密码错误!是否重新输入?',pchar('错误'),MB_YesNo+MB_ICONERROR)<>IDYes then
application.Terminate
else edtPwd.SetFocus;
end;
end;
问题是:当用户密码核对正确后,按"登入"没反应,不能关闭登入窗体,
用LogFrm.free,LogFrm.hide也不行,请指正!谢谢

[ihihonline]

在主程序中的PROGRAM里边加就可以了

[Bellamy]

最好在工程文件里写！

[wzrlover]

ihihonline(小小) :
是不是在InitXXXX初始化前加入
With TLogFrm.Create(Application) do
try
ShowModal;
finally
free:
end;
吗? Tks

[ihihonline]

wzrlover(wzrlover)
不是在InitXXXX初始化前加入
是在InitXXXX之后写的；
但是在mainform.create前边写的；

With TLogFrm.Create(Application) do
try
ShowModal;
finally
free:
end;
吗? Tks
如你所说的一样，试一试看

[weizhi]

请将
if fieldbyName('Password').asstring=edtPwd.text then
close
改为:
if fieldbyName('Password').asstring=edtPwd.text then
Self.close

因为你前面有 with Table_user do
所以直接用Close实际上是关闭了数据表,而不是窗体

[ihihonline]

如何？

[hansonboy]

同意weizhi，也可以这样
Form.Close;

[ihihonline]

在登入窗体的"登入"Button的OnClick事件进行密码的核对
begin
Table_user.close;
Table_user.open;
if not (Table_user.locate('UserName',Combobox1.text,[])) then
begin
if Application.MessageBox('用户名错误!是否重新输入?',pchar('错误'),MB_YesNo+MB_ICONERROR)=IDYes then
exit;
end else
if not (Table_user.fieldbyName'Password').asstring=edtPwd.text) then
begin
if Application.MessageBox('密码错误!是否重新输入?',pchar('错误'),MB_YesNo+MB_ICONERROR)=IDYes then
exit else
application.Terminate
end else
close;
end;
这次你可以试一试看；

[wzrlover]

谢谢各位! 感动感动…~~~
回去试试，当然不会忘了重要的一步----给分咯。
再次感谢各位！