请教登陆窗口的问题! ( 积分: 20 )

procedure TForm1.FormCreate(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('select name from 用户权限表') ;
open;
while not eof do
begin
combobox1.Items.Add(fields[0].asstring);
next;
end;
combobox1.ItemIndex:=0;
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 用户权限表 where name like '+combobox1.Text+' and password like '+MaskEdit1.Text+'');
open;
begin
if MaskEdit1.Text='' then
showmessage('密码不能为空,请输入密码');
end;
begin
if MaskEdit1.Text<>ADOquery1.fieldbyname('password').AsString then
begin
showmessage('['+ADOquery1.fieldbyname('name').AsString+']的密码错误,请重新输入');
MaskEdit1.SetFocus;
MaskEdit1.Clear;
if MaskEdit1.Text=ADOquery1.fieldbyname('password').AsString then
if adoquery1.fieldbyname('quanxian').AsString='a' then
begin
TmainForm.showmodal;
TmainForm.N2.Enabled:=true;
TmainForm.N3.Enabled:=true;
TmainForm.N5.Enabled:=true;
end
else if ADOquery1.fieldbyname('quanxian').AsString='b' then
begin
TmainForm.showmodal;
TmainForm.N2.Enabled:=false;
TmainForm.N3.Enabled:=false;
TmainForm.N5.Enabled:=false;
end;
end;
end;
end;
end;
end.

做登陆窗体，连接的是SQL2000，以上代码可以运行，但就是输密码的时候会弹出错误提示“ progect1.exe..........with message ' name'列名无效..........&quot; !!! 不知道改如何更改，请大家帮个忙看看

用户权限表 是否有 Name 字段？

回复银雨辰 表里面的字段有name的，这个也是简单的权限表了
我不知道如何更改错误，请帮下忙了...

找不到字段

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if MaskEdit1.Text='' then
showmessage('密码不能为空,请输入密码');
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 用户权限表 where name = '+trim(combobox1.Text)+' and password = '+MaskEdit1.Text+'');
Prepare;
open;
if RecordCount = 0 then
begin
showmessage('['+fieldbyname('name').AsString+']的密码错误,请重新输入');
MaskEdit1.SetFocus;
MaskEdit1.Clear;
end
else
begin
if fieldbyname('quanxian').AsString='a' then
begin
TmainForm.showmodal;
TmainForm.N2.Enabled:=true;
TmainForm.N3.Enabled:=true;
TmainForm.N5.Enabled:=true;
end
else if fieldbyname('quanxian').AsString='b' then
begin
TmainForm.showmodal;
TmainForm.N2.Enabled:=false;
TmainForm.N3.Enabled:=false;
TmainForm.N5.Enabled:=false;
end;
end;
close;
end;
end.

是数据字段名错误吧！
字段名里面有空格吧！！！

数据库关键字冲突，你不要用name看看