![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() БД создана в СУБД Access. Клиентское приложение - в Delphi. Подключение при помощи ADOTable и DataSource. Необходимо сделать авторизацию перед подключением к БД. Имя и пароль хранятся в таблице в Access (имя таблицы table, в таблице только 2 поля: login и password). Имен и соответствующих им паролей может быть несколько (т.е. записей в полях login и password может быть много).
Как осуществить саму авторизацию? if (form1.edit1.text=???) and (form1.edit2.text=???) then DataModule.ADOTable.active:=true //form1 - форма в которой проводится авторизация, DataModule - модуль, на котором находятся ADOTable и DataSource, edit1 - поле для ввода имени, edit2 - поле для ввода пароля Как найти - есть ли в таблице Access в поле login запись, соответствующая записи введенной в поле edit1 и проверить соответствующее ей значение поля password с содержимым поля edit2 |
#2
|
||||
|
||||
![]() Например, так:
Код:
if Table1.Locate('User;Login', vararrayof([Edit1.text, edit2.text]),[]) then // пароль и логин найдены Чутка синтаксис подправил )) Последний раз редактировалось TOJluK, 29.03.2011 в 09:44. |