VPF::Помощь в замене диалога запроса имени пользователя

Ur0ck

Дата 28.4.2011, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.5.2009

Репутация: нет
Всего: нет

Здравствуйте, уважаемые форумчане!
Прошу подсобить в моём обучении. На данный момент изучаю делфи, и поэтому возникли вопросы, которых совсем чуть-чуть. Уверен, что вы мне поможете. Вообщем, я изучаю сей документ, в котором мне не ясны некоторые моменты, а точнее - порядок действий.
Исходя из содержания документа - я должен создать новое приложение, добавить на него компонент IBDatabase (база у меня на Firebird), и поместить туда компонент IBTransaction. Для того, чтобы активировать таблицу в "теле" программы, судя по мануалу нужно прописать следующий код:

Код


  IBDatabase1.Params.Clear;
  IBDatabase1.LoginPrompt:=False;
  IBDatabase1.DatabaseName:='servername:c:\dir\data.gdb';
  IBDatabase1.Params.Add('user_name=SYSDBA');
  IBDatabase1.Params.Add('password=masterkey');
  IBDatabase1.Params.Add('lc_ctype=win1251');
  IBDatabase1.Connected:=True;

Первый вопрос: куда именно его прописывать? после begin? или где?

Пункт следующий... После активации базы, мануал предлагает нам создать собственный диалог авторизации в базе... Цитирую:

Цитата

Выше уже было сказано, что можно использовать свой диалог для запроса имени пользователя и пароля. Его можно "вставить" в качестве замены стандартного, при LoginPrompt:=True. Пример:

procedure TForm1.IBDatabase1Login(Database: TIBDatabase; LoginParams: TStrings);
var
   dlg: TDBLoginDialog; // созданный вами диалог
begin
   dlg:=TDBLoginDialog.Create(Application);
   if dlg.ModalResult = mrOK then
     with LoginParams do
       begin
         Values['USER_NAME'] := User_Name;
         Values['PASSWORD'] := User_Pass;
         // другие параметры, например role_name, lc_ctype и т.д., если необходимо
       end;
   dlg.Free;
end;

Динамическое создание диалога не обязательно, но желательно, чтобы он зря не занимал в приложении память, тем более что диалог этот обычно вызывается 1 раз при старте приложения.

А вот тут совсем ничего не понятно. Большая просьба расписать этот пункт более подробно, как для чайника.
Прошу отнестись с пониманием. Я правда пытался вникнуть, и юзал поиск, но данные манипуляции не обвенчались успехом.
С уважением.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »