Описание компоненты boLogin

advertisement
Описание компоненты boLogin
Компонент, предназначен для установления соединения с базой данных.
Компонент берет на себя следующие функции:

считывание пути к серверу базы данных из файла;

организация диалога с пользователем для ввода имени и пароля;

предварительное подключение к базе данных для проверки имени пользователя
и пароля;

проверка имени и пароля, а так же прав пользователя на вход в подсистему;

инициализирование компонента TIBDatabase для подключения к серверу базы
данных;

подключение к серверу базы данных;

предоставление информации о текущем пользователе, сессии, имени
компьютера и т.п.

отключение от базы данных при выходе из программы;
Компонент TboLogin используется один на проект. Как правило, он помещается на
ДатаМодуль или главную форму проекта, где располагается компонент базы
данных.
Свойства компоненты TboLogin:
published
-
property Database: TIBDatabase;
Данное свойство необходимо для подключения компонент TIBDatabase или
TgsIBDatabase. В первом случае необходимо вручную закрывать соединение с
базой данных перед компиляцией.
-
property ParamsFile: TFileName;
Файл в котором указываются параметры подключения к базе данных. Пример
текста файла:
«SERVERNAME=\\ibserver\k:\bases\jkl\phone\phone.gdb
lc_ctype=WIN1251»
-
property Params: TStrings;
Параметры подключения к базе. Пока не используется до полного выяснения
предназначения.
-
property SubSystemKey: Integer;
Код подсистемы. Должен соответствовать коду в таблице gd_subsystem. При
загрузке диалогового окна наименование подсистемы берется из
Application.Title. Поэтому желательно чтобы название подсистемы в таблице
совпадало с наименованием программы. Это обусловлено тем, что первое
подключение к базе происходит после закрытия окна.
public
-
property UserKey: Integer;
Уникальный ключ пользователя который подключился к базе данных.
-
property ComputerName: String;
Наименование компьютера в сети на котором происходит подключение к сети.
-
property Ingroup: Integer;
Права пользователя в виде маски на группы. Кодировано в двоичной системе
(побитово).
-
property UserName: String;
Имя пользователя.
-
property SessionKey: Integer;
Номер сессии подключения.
-
property SubSystemName: String;
Наименование подсистемы. Заполняется после основного подключения к базе
данных.
-
property DatabaseName: TFileName;
Путь к базе данных.
-
property CharSet: String;
Шрифт используемый при подключении к базе.
-
property Logined: Boolean;
Указывает состояние подключения к базе. Если True подключение активно и
нет в противном случае.
Методы
- function Login: Boolean;
Функция выполняет подключение к базе данных. Она выводит диалоговое окно
для ввода имени и пароля. Кроме того может производится показ параметров
подключения и запрос на изменение пароля. Пример использования данной
функции:
В главном модуле на котором лежит boLogin.
«if not IBLogin.Login then
Application.Terminate;
else begin
...
end;»
На остальных сразу создаваемых формах
«if not IBLogin.LogInCancelled then
begin
...
end;»
-
function Logoff: Boolean;
Производит отключение от базы данных.
-
procedure InitDatabase(DB: TIBDatabase);
Присваивает DB параметры подключенного Database.
Download