Показать сообщение отдельно
  #6  
Старый 16.04.2009, 11:52
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Цитата:
Сообщение от goodwinrock
Окей. а где идет раздиление на пароли (т.е. у меня получилось юзать оба пароля, но открывать только одну форму? я создал таблицу 1 и вней две записи
Login _____| ___Pass
magazin ___ admin
serv ___ admin

Сделай в таблипце еще поле Form_name
Login | Pass | Form_Name
magazin | admin | Form2
serv | admin | Form3
т.е. логину Magazin будет соответствовать Form2, а serv - Form3

Объяви переменную Form_Name:TForm;
Код:
if Table1.Locate('Login;Pass',VarArrayOf([Edit1.text,Edit2.Text]),[]) = True then
 begin  
// присваиваем пер-ой Form_name имя Формы из таблицы
 Form_name.Name:=Table1.FieldByName('Form_Name').AsString;
 Form_name.Show
 end
 else
  ShowMessage('Неправильный логин/пароль!');
Ответить с цитированием