ADOTable1 не видит в базе данных поля 'Логин'
Листинг:
procedure TForm4.Button1Click(Sender: TObject);
begin
if trim(Edit1.Text)='' then
begin
Form5.ADOTable1.Filtered:=false;
end
else begin
Form5.ADOTable1.Filter:='Логин'+chr(39)+trim(Edit1.Text)+chr (39);
Form5.ADOTable1.Filtered:=true;
end;
with Form5.ADOTable1 do
begin
Login:=FieldByName('Логин').AsString;
Pass:=FieldByName('Пароль').AsString;
name1:=FieldByName('Имя').AsString;
name2:=FieldByName('Фамилия').AsString;
name3:=FieldByName('Отчество').AsString;
end;
if (Login=Edit1.Text) and (Pass=Edit2.Text) then
begin
KeyBD:=false;
Form4.Hide;
MainForm.Show;
end
else showmessage('Логин или пароль введены неправильно');
if Login='tage_off' then Form3.Button2.Enabled:=true;
end;
Ошибка:
База данных:

