Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.12.2011, 14:04
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
Вопрос DATABASE LOGIN

Доброго времени суток!

Подскажите, пожалуйста, как сделать так, чтобы перед запуском клиентского приложения появлялось DATABASE LOGIN (использую ADOCONNECTION), чтобы пользователь ручками вводил логин/пароль (причем этих логинов/паролей - 2 шт, выбирается любой)? Подключение осуществляется к SQL-серверу, строка подключения:

Код:
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Modeler;Initial Catalog=KN;Data Source=MICROSOF-A8F4DD\SQLEXPRESS

Ставлю активацию по созданию формы, но кажется, не то...
__________________
Memento Mori(арти)
Ответить с цитированием
  #2  
Старый 13.12.2011, 14:10
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
По умолчанию

Код:
ADOConnection1.LoginPrompt:= true;
__________________
Google в помощь
Ответить с цитированием
  #3  
Старый 13.12.2011, 14:16
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
По умолчанию

У меня стоит TRUE....
__________________
Memento Mori(арти)
Ответить с цитированием
  #4  
Старый 13.12.2011, 17:30
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
По умолчанию

Установила 2006 Delphi, результат тот же самый...
Microsoft SQL-Server 2005
__________________
Memento Mori(арти)
Ответить с цитированием
  #5  
Старый 24.12.2011, 16:48
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
По умолчанию

Почему-то сначала грузится основная форма, потом при нажатии на нужную кнопку всплывает окно с подключением... А можно сделать, чтобы наоборот было?

И ещё вопросик: как обработать ошибки вроде при нажатии отмены в DataBase Login приложение завершалось, при вводе неправильного логина/пароля выводилось соответствующее сообщение?
__________________
Memento Mori(арти)
Ответить с цитированием
  #6  
Старый 24.12.2011, 19:49
Аватар для Sofia Guseva
Sofia Guseva Sofia Guseva вне форума
Прохожий
 
Регистрация: 24.12.2011
Адрес: Липецк
Сообщения: 11
Версия Delphi: 6.0
Репутация: 157
По умолчанию

Можно попробовать в запуске программы переписать:

Код:
begin
  Application.Initialize;
  Application.CreateForm(Forma_s_loginami, Form2);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
Ответить с цитированием
  #7  
Старый 24.12.2011, 22:56
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
По умолчанию

Идея хорошая, но не сработала
__________________
Memento Mori(арти)
Ответить с цитированием
  #8  
Старый 26.12.2011, 16:36
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
По умолчанию

Методом великого научного тыка выставила в DATAMODUL CREATE OLD ORDER :=TRUE и теперь окно с логином выводится перед запуском формы

А подскажите, пожалуйста, как определить, какой пользователь сейчас использует базу данных? чтобы можно было заблокировать некоторые кнопки, например?
__________________
Memento Mori(арти)
Ответить с цитированием
  #9  
Старый 26.12.2011, 16:58
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
По умолчанию

Цитата:
Сообщение от Shoni
А подскажите, пожалуйста, как определить, какой пользователь сейчас использует базу данных? чтобы можно было заблокировать некоторые кнопки, например?
Можно создать таблицу пользователей (ID, Login, Group), где например группа 1 - администраторы программы, 2 - пользователи, 3 - гости, способные лишь просматривать информацию и в таком духе. И уже по логину вошедшего скрывать/блочить возможности.
Код:
select system_user
__________________
Google в помощь
Ответить с цитированием
  #10  
Старый 26.12.2011, 19:07
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
По умолчанию

У меня так-то 2 пользователя, их права и обязанности созданы под MS Server, просто одному можно выполнять хранимые процедуры, другому - нет, в зависимости от этого кнопки и блокируются...

с селектом не совсем понятно, можно чуть поподробней?
__________________
Memento Mori(арти)
Ответить с цитированием
  #11  
Старый 26.12.2011, 20:19
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
По умолчанию

Цитата:
Сообщение от Shoni
с селектом не совсем понятно, можно чуть поподробней?
Возвращает имя текущего пользователя.
Посмотреть всех пользователей на sql server'e
Код:
select * from sp_who
или
Код:
select * from sp_who2
уже не помню, давненько с майкрософтовским сервером не работал.
__________________
Google в помощь
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:51.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter