我网上查了说是内存泄露,我不是很明白,请大家帮帮忙,小弟在此谢过了
我刚学DELPHI,下面是代码:
begin
try
//检查验证输入的口令正确,则进入主操作界面
Query.SQL.Add('select * from 操作人员表 where (用户名=:username)and(口令=: userpwd)');
Query.parameters.paramByName('username').value:=DBcomboBox1.text;
Query.parameters.paramByName('userpwd').value:=edit.text;
Query.ExecSQL;
if DBcomboBox1.text='管理员' then
begin
if edit.text='830722' then
begin
Query.close;
Query.free;
frmmain.show;
frmmain.hide;
edit.clear;
end;
begin
MeggageDlg('请输入正确的口令',mterror,[mbok],0);
edit.clear;
end;
end;
if DBcomboBox1.text='操作员'then
begin
if edit.text='123456' then
begin
Query.close;
Query.free;
frmmain.show;
frmmain.hide;
edit.clear;
end;
begin
MeggageDlg('请输入正确的口令',mterror,[mbok],0);
edit.clear;
end;
end;
execpt
MessageDlg('连接数据库出错!',mterror,[mbok],0);
end;
end.
我是实现用户名的内容是“管理员”和“操作员”2个选其中一个,就这么简单。大家帮帮我啊,我这不懂!
[此贴子已经被作者于2006-12-16 13:51:01编辑过]