Регистрация

[Train-GT]

Здравствуйте! Регистрация как таковая работает, но необходимо сделать проверку на наличие в БД пользователя.
В DBEdit вводится данные и при нажатии кнопки происходит ADOQuery1.Post; Подскажите как?

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from Регистрация_Учеников where Логин = '
+ #39 + Edit1.Text + #39+ ' and Пароль = ' +#39 + Edit2.Text + #39;
ADOQuery1.Active:=True;
ADOQuery1.Open;
If ADOQuery1.RecordCount>0 then  begin
Form3.Show;

- это вход.
Я думал вот так сделать:

procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
DBEdit5.Text:=Form8.Edit1.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from Регистрация_Учеников where Логин = '
+ #39 + Edit1.Text + #39;
ADOQuery1.Active:=True;
ADOQuery1.Open;
If ADOQuery1.RecordCount>0 then begin
key:='1';
end;
if key='1' then label8.Caption:='Такой пользователь уже существует!';
end;

[Stilet]

Стесняюсь спросить, а почему не настроить в БД роли? Это гораздо надежнее будет. Именно для управления списком пользователей они и предназначены.

[Train-GT]

Я в Access не очень соображаю. А поподробнее можно?

[Train-GT]

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

Стесняюсь спросить, а почему не настроить в БД роли? Это гораздо надежнее будет. Именно для управления списком пользователей они и предназначены.

Я в Access не очень соображаю. А поподробнее можно?