[valli_vasia]

Не могу сообразить как сделать проверку на пользователей. То есть когда пользователь авторизуется то на Label1 в форме Form3 надо показывать фамилию того кто авторизовался. Создана база access там таблица и в ней четыре столбца 1. № (Номер пользователя по порядку) 2. login (Логин) 3. password (Пароль) 4. np (Ф.И.О пользователя)

Вот код:

Код:

  if Edit1.Text<>'admin' then
     begin
   Form3.Label1.Caption:=DataModule1.ADOTable1.FieldByName('np').AsString;

Он смотрит что пользователь ввел в поле Edit1, проверяет что ввели не admin и тогда прописывает в Label1 фамилию из столбца np базы. Но проблема кода в том что он берет только одну фамилию независимо кто зашел, то есть не понимает какой конкретно пользователь авторизовался. В общем не могу сообразить как изменить этот код чтобы программа понимала что например зашел пользователь под номером 3 (или по логину) и прописала в Label1 его фамилию из столбца np. Помогите разобраться пожалуйста. Заранее благодарен!

[lmikle]

Дык найди нужную запись в таблице сначала. Например, так:

Код:

if Edit1.Text<>'admin' then
   begin
 DataModule1.ADOTable1.First;
 While Not DataModule1.ADOTable1.Eof Do
   begin
     If Edit1.Text = DataModule1.ADOTable1.FieldByName('login').AsString Then
       begin
         Form3.Label1.Caption:=DataModule1.ADOTable1.FieldByName('np').AsString;
         Break;
       end;
     DataModule1.ADOTable1.Next;
   end;

[valli_vasia]

Спасибо огромное! Все заработало.