Разграничение прав доступа. БД делфи + access

[Abay19941308]

while not DM.ADOTable1.Eof do
begin
Prav:=DM.ADOTable1.fieldbyname('prava').Asinteger;

if (prav=1) then begin form3.show; ShowMessage ('добр пож!!!');end
else begin  ShowMessage ('см пароль нельзя!!!');form3.close;end;
end;

Методом loacate ок попобую

пишет undeclared identifier:' lo partial key

[eval]

Выбросить отсюда ADOTable пока не поздно. и не заниматься ни локейтами ни чем либо подобным.

[phomm]

Сообщение от Abay19941308

пишет undeclared identifier:' lo partial key

uses DB надо

[Abay19941308]

Все оказалось намного проще. Надо было поставить break в цикл с вводом логина и пароля.
Вот код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var s,XZ:string; x,i,Prav:integer;
Begin
DM.ADOTable1.First;
while not DM.ADOTable1.Eof do
begin
XZ:=DM.ADOTable1.fieldbyname('login ').AsString;
s:=DM.ADOTable1.fieldbyname('pass') .AsString;
if (Edit1.Text = xz) and (Edit2.Text = s) then begin Form2.Show; Form1.Hide;break; end;
DM.ADOTable1.Next;
end;end;


begin
Prav:=DM.ADOTable1.fieldbyname('pra va').Asinteger;


if (prav=1) then begin form3.show; ShowMessage ('Äîáðî ïîæàëîâàòü!!!');end
else begin ShowMessage ('Ñìåíèòü ïàðîëü íåëüçÿ!!!');form3.close;end;


end;

Спасибо большое всем кто помогал !!!