function TLogonForm.LogonToServer: Boolean;beginLogonToServer := FALSE;MyDatabase.AliasName := DatabaseEdit.Text;MyDatabase.Params.Values['USER NAME'] := UserIDEdit.Text;MyDatabase.Params.Values['PASSWORD'] := PasswordEdit.Text;MyDatabase.Params.Values['SERVER NAME'] := ServerName;tryMyDatabase.Connected := TRUE;LogonToServer := TRUE;excepton E: EDatabaseError doMessageDlg('Программа не в состоянии подключиться ксерверу баз данных по следующей причине: ' + #10 + #10 + E.Message, mtError, [mbOK], 0);end;end; |
Эта функция находится в модуле с формой диалога подключения, на которой расположены три поля редактирования: идентификатор пользователя, пароль и имя базы данных. При щелчке пользователем на кнопке OK, значение из поля с именем базы данных используется для поиска в файле ODBC.INI:
ServerName := ODBCIni.ReadString(DatabaseEdit.Text, 'Database', ''); |
Этой строчкой мы получаем фактическое имя файла базы данных, к которому нам необходимо получить доступ ('SERVER NAME' - параметр соединения).
Во время разработки я выставил в своем компоненте TDatabase следующие параметры:
Connected: FALSE DatabaseName: DCAC {это псевдоним, используемый приложением} KeepConnection: TRUE LoginPrompt: FALSE Name: MyDatabase TransIsolation: tiReadCommitted AliasName, DriverName и Params в режиме проектирования остаются пусты, DriverName не используется совсем, т.к. во время выполнения приложения используется AliasName (они являются взаимоисключающими, вы можете установить что-то одно, но не оба сразу).
Вот секции Interbase и Watcom моего файла ODBC.INI:
[DCAC_IB] Driver=C:\WIN\SYSTEM\BLINT04.DLL Description=DC Aquatics (Interbase) Database=D:\DCAC_IB\DCAC.GDB [DCAC_WSQL] Driver=D:\WSQL\wsqlodbc.dll Description=DC Aquatics (Watcom) Database=D:\DCAC_WAT\DCAC.DB Start=D:\wsql\db32w %d Если мне необходимо подключиться к базе данных Watcom, все, что мне нужно сделать - изменить содержимое поля редактирования имени базы данных в диалоге подключения на 'DCAC_WSQL'. Если мне нужно использовать базу данных Interbase, я набираю 'DCAC_IB'. Работает замечательно.
Надеюсь это поможет... успехов... [000637]