我在database desktop中建立用户权限表如下:
login( 表名)
字段 字段值
用户密码 222222 333333 999999
用户名 222222 333333 999999
登陆界面中我用了一个 memo控件来设置条件查找合法用户
代码如下:
begin
table1.Refresh;
with table1 do
try
disablecontrols;
filtered:=false;
memo1.Text:='用户密码='+''''+edit1.Text+'''';
filter:=memo1.Text;
filtered:=true;
finally
enablecontrols;
if table1.RecordCount=0 then
begin
showmessage('对不起,你不是合法用户,请确认权限');
end else begin
form1.Close;
form2.show;
table1.Close;
table1.Open;
end;
end;
end;end.
我在密码输入正确的时候不是弹出form2,而是系统自动重起,既program reset??请问这是什么原因啊
login( 表名)
字段 字段值
用户密码 222222 333333 999999
用户名 222222 333333 999999
登陆界面中我用了一个 memo控件来设置条件查找合法用户
代码如下:
begin
table1.Refresh;
with table1 do
try
disablecontrols;
filtered:=false;
memo1.Text:='用户密码='+''''+edit1.Text+'''';
filter:=memo1.Text;
filtered:=true;
finally
enablecontrols;
if table1.RecordCount=0 then
begin
showmessage('对不起,你不是合法用户,请确认权限');
end else begin
form1.Close;
form2.show;
table1.Close;
table1.Open;
end;
end;
end;end.
我在密码输入正确的时候不是弹出form2,而是系统自动重起,既program reset??请问这是什么原因啊
你密码正确时,把主form给close了,当然整个程序就给关了。
建议用把它隐藏,不要关了。