![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Привет всем.
Подскажите кто знает как реализовать это: Есть форма авторизации написанная на Delphi7. У меня тот же вопрос как сделать проверку подключения к MS SQL серверу 2000, т.е. правильно ли ввели логин и пароль, если не правильно должно выходить сообщение об ошибке «неверный пароль» или «неверный логин» (подключаться к SQL Server с помощью идентификатора SQL Server) |
|
#2
|
|||
|
|||
|
Все разобрался....
( оказалось все намного проще чем думал ) Вот решение моё... Код:
if ComboBox1.ItemIndex=0 then
advstr:='User ID=User1;Password=' + pass;
if ComboBox1.ItemIndex=1 then
advstr:='User ID=User2;Password=' + pass;
AdoConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;'+advstr+';Initial Catalog='имя вашей базы';Data Source='имя сервера';Use Procedure for Prepare=1;';
try
ADOConnection1.Connected:=true;
FormSecurity.Close;
except
ADOConnection1.Connected:=false;
ShowMessage('Пароль введён не верно!');
pass:='';
Edit1.Text:=''; |