[Veg]

Подскажите новичку плз! Допустим есть форма с логином и паролем, как сделать, чтобы при вводе данных ( Логина и пароля) данные сверялись с некоторой таблицей "пароль" ( с полями Пользователь, ПАроль , уровень доступа), напрмер что происходит когда вводим даннные Edit.text каким запрсоом они отправляются к бд и как там сравниваются , может кто нибудь привести пример?

[NiiliT]

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

Подскажите новичку плз! Допустим есть форма с логином и паролем, как сделать, чтобы при вводе данных ( Логина и пароля) данные сверялись с некоторой таблицей "пароль" ( с полями Пользователь, ПАроль , уровень доступа), напрмер что происходит когда вводим даннные Edit.text каким запрсоом они отправляются к бд и как там сравниваются , может кто нибудь привести пример?

мдя жОсть ...
начни учить SQL!!!!!!!!!!!!!
(есть много книжек по этой херне)

в общем самый примитивный пример (это не эталон! его надо менять а пароль шифровать......) в общем на начало (писал без дельфи):

fdmDB.qUser.Close;
fdmDB.qUser.SQL.Clear;

sSQL := 'select * from tUSER '
+ ' where login >= :Login and pass <= :Password;

fdmDB.qUser.SQL.Text := sSQL;
fdmDB.qUser.Parameters.ParamByName('Login').Value := Логин
fdmDB.qUser.Parameters.ParamByName('Password').Val ue := Пароль
fdmDB.qUser.Open;

[Veg]

еще вопрос , а не подскажите где можно скачать базы данных от 50000 до 100000 и больше заисей чтобы в Аксесс были??? где искать

[NiiliT]

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

еще вопрос , а не подскажите где можно скачать базы данных от 50000 до 100000 и больше заисей чтобы в Аксесс были??? где искать

в каком понятии скачать базы данных::??? от 50000 до 100000 ... нужна готовая БД? таких не найдешь или найдешь, но пустые

вопросы немного правильнее формулируй)_ а то как-то с натягом понимается

[Veg]

ДА нужна готовая БД? препод в инсте где то нашел, но его базы использовать нельзя

[NiiliT]

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

ДА нужна готовая БД? препод в инсте где то нашел, но его базы использовать нельзя

найти то в принципе если надо все можно!) не искал)_ своих хватает
могу посоветовать яндекс, гугль .... и гоу поиск

[Tigrillo]

возми тектовый документ размеров в 10 метров и закачай его в базельку, раз эток 30 - 40...построчно,вот тебе и 50 метровая БД)))) жость, мой моск этого не вынес)

[Veg]

поджскажите новичку ! если у меня в дельфи есть несколько Editoв ( для поиска п оимени , фамилии , должности ...) как составить динамический запрос на SQl чтобы искало в базе по всем этим Edit1, edit 2 ?

[Holy]

Код:

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;

[mav_c]

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

в каком понятии скачать базы данных::??? от 50000 до 100000 ... нужна готовая БД? таких не найдешь или найдешь, но пустые

вопросы немного правильнее формулируй)_ а то как-то с натягом понимается

Я бы на твоём месте забил её псевдослучайным образом. Я так когда-то делал.