|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.05.2010, 13:38 | #1 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 32
|
Базы данных в Delphi
Здравствуйте! Есть БД сделанная в Access, которая содержит одну таблицу(userName) и 3 поля(id, name, pass). Подскажите как создать программу аутентификации по БД?
|
06.05.2010, 13:49 | #2 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Можно примерно так:
Код:
Перемешивай дело с бездельем и не сойдешь с ума...
|
06.05.2010, 14:10 | #3 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 32
|
а что такое csEvents???
|
06.05.2010, 14:14 | #4 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
cdsEvents - это моя таблица журнала событий. В ней я фиксирую все события, связанные с изменениями в базе данных... Для Вас это не важно, можете на нее не обращать внимания. Просто я выдернул процедуру из своей рабочей программы... Там же есть комментарий - //запись в журнал событий.
Перемешивай дело с бездельем и не сойдешь с ума...
|
06.05.2010, 14:18 | #5 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 32
|
Понятно что не чего не понятно!задумку вашу понял!
а можно поподробней с использованием ADOQuery?у меня не получается выполнить запрос который проверял бы наличе юзера в БД!и не знаю как сделатЬ! |
06.05.2010, 14:36 | #6 |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
поиском обычным по полю
могу реализовать за вознаграждение
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] |
06.05.2010, 16:45 | #7 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 32
|
а кто нить может кодом даром поделиться?
|
06.05.2010, 17:38 | #8 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 32
|
Всем спасибо!все работает!вот что получилось:
with DataModule1 do begin Query.Active:=false; Query.SQL.Clear; sql:= 'SELECT * FROM userName WHERE (name=:login and pass= : password)'; Query.SQL.Text:=sql; Query.Parameters.ParamByName('login ').Value:= login; Query.Parameters.ParamByName('passw ord').Value:=password; Query.Active:=True; Query.Open; if (Query.FieldByName('name').Value = login) and (Query.FieldByName('pass').Value = password) then ShowMessage('Вы вошли!') else ShowMessage( 'Неправильно введено имя пользователя или пароль.' ); end; Последний раз редактировалось Masip; 06.05.2010 в 17:42. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Локальные базы данных для Delphi | Марк Охман | БД в Delphi | 21 | 20.09.2010 09:57 |
Delphi 7 Базы данных Paradox 7 | бугор | Помощь студентам | 3 | 07.04.2010 17:04 |
Базы данных в Delphi | 4 мушкетера | БД в Delphi | 3 | 24.01.2010 13:54 |
Базы данных и Delphi | DimOn4Ik | Общие вопросы Delphi | 1 | 06.01.2010 14:57 |
Отображение информации из базы данных (Delphi) | flame33 | Помощь студентам | 6 | 13.12.2009 21:24 |