求助:权限页面的问题
求助:权限页面的问题这是页面,数据有:Student表中的(1)StuNo学号(2)ClassNo班级编码(3)StuName姓名(4)Pwd密码(5) QX 权限
主页面中的代码出错,请帮忙纠正,
procedure TQXForm.FormShow(Sender: TObject);
var
vqx,vname:string;
begin
QXADOTable.Open ;
NListBox.Clear ;
AListBox.Clear ;
SListBox.Clear ;
While not QXADOTable.Eof do
begin
vqx:=QXADOTable.FiledByName('QX').AsString; //出错,说是FiledByName没有申报
vname:=QXADOTable.FieldByName('StuName').AsString; //出错,说是FiledByName没有申报
if vqx='admin' then
AListBox.Items.Add(vname)
else if vqx='user' then
SListBox.Items.Add(vname)
else
NListBox.Items.Add(vname);
QXADOTable.Next;
end;
end;
请帮忙看看什么问题啊。。。谢谢了