|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
DBLookupComboBox` сы и Edit авторизация
Есть база данных на акссесе имеються 2 таблицы "Отдел(Название)" "пользователь(Название - фио - пароль )". Как сделать что бы при выборе из списка DBLookupComboBox1 (Названия) выводились фио в DBLookupComboBox2 а в Edit1 вбивался пароль который бы сверялся по фио из DBLookupComboBox2...зарание благодарю
|
#2
|
|||
|
|||
Одну проблему сам решил по поводу DBLookupComboBox1 и DBLookupComboBox2 а вот по поводу проверки пароля, не как не могу понять
|
#3
|
|||
|
|||
Вот на примере нашел, только что то не могу подогнать для сеья, могли бы вы помочь?
Код:
procedure TUserForm.Button1Click(Sender: TObject); begin If (LoginEdit.Text<>'') and (PasswordEdit.Text<>'') then //поля не пустые begin UserQuery.Active:=false; UserQuery.Parameters.ParamByName('log').Value:=LoginEdit.Text; UserQuery.Active:=true; If UserQuery.RecordCount<>0 then begin If UserQuery.FieldByName('Пароль').AsString=PasswordEdit.Text then begin login:=LowerCase(LoginEdit.Text); If UserQuery.FieldByName('Доступ').AsString='True' then Dostup:=true//есть доступ else Dostup:=false; Close; end else Showmessage('Пароль неверный!'); end; end else ShowMessage('Введите имя пользователя и пароль!');//пустые поля end; |
#4
|
|||
|
|||
всем спасибо, тема закрыта разобрался сам!
|