W
wqlaibin
Unregistered / Unconfirmed
GUEST, unregistred user!
各位富翁,我做了一个登录界面
这是我的源代码很简单
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
times:=times+1;
with query1do
begin
close;
sql.Clear;
sql.Add('select 用户名,密码,权限''from user where 用户名=:use');
query1.Parameters.ParamByName('use').Value:=edit1.Text;
open;
if query1.Fields[0].Value=null then
begin
messagebox(form1.Handle,'请确认用户名和密码是否正确!','提示!',mb_ok+mb_iconerror);
end;
if query1.Fields[0].Value=edit2.Text then
begin
if query1.Fields[1].Value='管理员' then
begin
form1.Hide;
guanli.Show;
end
else
begin
form1.Hide;
fuwu.Show;
end;
end
else
begin
showmessage('密码错误!');
end;
end;
end;
运行程序的时候出现异常信息“query1arameters'use'not found“,我在query组件的属性也设置了parameter。
但如果表user的字段都是英文的话就不会出现这种异常了。这是怎么回事?
这是我的源代码很简单
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
times:=times+1;
with query1do
begin
close;
sql.Clear;
sql.Add('select 用户名,密码,权限''from user where 用户名=:use');
query1.Parameters.ParamByName('use').Value:=edit1.Text;
open;
if query1.Fields[0].Value=null then
begin
messagebox(form1.Handle,'请确认用户名和密码是否正确!','提示!',mb_ok+mb_iconerror);
end;
if query1.Fields[0].Value=edit2.Text then
begin
if query1.Fields[1].Value='管理员' then
begin
form1.Hide;
guanli.Show;
end
else
begin
form1.Hide;
fuwu.Show;
end;
end
else
begin
showmessage('密码错误!');
end;
end;
end;
运行程序的时候出现异常信息“query1arameters'use'not found“,我在query组件的属性也设置了parameter。
但如果表user的字段都是英文的话就不会出现这种异常了。这是怎么回事?