|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
DELphi + ado+ Access вопрос
Подскажите новичку плз! Допустим есть форма с логином и паролем, как сделать, чтобы при вводе данных ( Логина и пароля) данные сверялись с некоторой таблицей "пароль" ( с полями Пользователь, ПАроль , уровень доступа), напрмер что происходит когда вводим даннные Edit.text каким запрсоом они отправляются к бд и как там сравниваются , может кто нибудь привести пример?
Последний раз редактировалось Veg, 06.03.2007 в 23:43. |
#2
|
||||
|
||||
Цитата:
мдя жОсть ... начни учить SQL!!!!!!!!!!!!! (есть много книжек по этой херне) в общем самый примитивный пример (это не эталон! его надо менять а пароль шифровать......) в общем на начало (писал без дельфи): Цитата:
|
#3
|
|||
|
|||
еще вопрос , а не подскажите где можно скачать базы данных от 50000 до 100000 и больше заисей чтобы в Аксесс были??? где искать
|
#4
|
||||
|
||||
Цитата:
вопросы немного правильнее формулируй)_ а то как-то с натягом понимается |
#5
|
|||
|
|||
ДА нужна готовая БД? препод в инсте где то нашел, но его базы использовать нельзя
|
#6
|
||||
|
||||
Цитата:
найти то в принципе если надо все можно!) не искал)_ своих хватает могу посоветовать яндекс, гугль .... и гоу поиск |
#7
|
|||
|
|||
возми тектовый документ размеров в 10 метров и закачай его в базельку, раз эток 30 - 40...построчно,вот тебе и 50 метровая БД)))) жость, мой моск этого не вынес)
|
#8
|
|||
|
|||
поджскажите новичку ! если у меня в дельфи есть несколько Editoв ( для поиска п оимени , фамилии , должности ...) как составить динамический запрос на SQl чтобы искало в базе по всем этим Edit1, edit 2 ?
|
#9
|
|||
|
|||
Код:
SQLStr := 'select * from Employers '; if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') then begin SQLStr := SQLStr + ' where '; if Edit1.Text <> '' then begin SQLStr := SQLStr + ' Name = ' + QuotedStr(Edit1.Text); end; if Edit2.Text <> '' then begin SQLStr := SQLStr + ' Post = ' + QuotedStr(Edit1.Text); end; if Edit3.Text <> '' then begin SQLStr := SQLStr + ' Patronymic = ' + QuotedStr(Edit1.Text); end; end; |
#10
|
||||
|
||||
Цитата:
--------------------------------------------- Программирование - не профессия, а стиль жизни |