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

Сделай таблицу с полями login, pass, Form_name ну и заполни ее.
В проекте сделай 3 формы.
В первой форме поля ввода пароля и логина, подключение к базе, кнопка. Ну и в обработчике Database1 BeforeConnect (или onClick у ккнопки)
Код:
 
Table1.Active:=True;
if Table1.Locate('Login;Pass',VarArrayOf([Edit1.text,Edit2.Text]),[]) = True then
 Form_name.Show
 else
  ShowMessage('Неправильный логин/пароль!');
как- то так
Ответить с цитированием