您所在位置：主题：我的关于权限问题
舞雾wuwu
[专家分：0] 发布于 2007-06-07 12:09:00
我做的权限的程序
procedure TForm1.Button5Click(Sender: TObject);
var
a:string;
begin
a:=Edit5.Text;
query1.Close;
query1.ParamByName('Manageno').Value:=a;
query1.Open;
if query1.Fields[0].Value =null then
begin
showmessage ('错误的用户名！');
exit;
end;
if query1.Fields[2].Value = Edit6.Text then
Form6.Show
else
begin
showmessage ('密码不正确');
exit;
end;
end;
然后它说Query1.parameter'mamageno'is not found,可是我建的表里是有manageno的啊．请问为什么会错呢？？？？？
谢谢啊
end.
procedure TForm1.Button5Click(Sender: TObject);
var
a:string;
begin
a:=Edit5.Text;
query1.Close;
query1.ParamByName('Manageno').Value:=a;
query1.Open;
if query1.Fields[0].Value =null then
begin
showmessage ('错误的用户名！');
exit;
end;
if query1.Fields[2].Value = Edit6.Text then
Form6.Show
else
begin
showmessage ('密码不正确');
exit;
end;
end;
然后它说Query1.parameter'mamageno'is not found,可是我建的表里是有manageno的啊．请问为什么会错呢？？？？？
谢谢啊
end.
