| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Про TIBdatabase... [D5, IB5.x, IB6.x, MSSQL]
alexdbases © (2002-06-16 13:05:00)Как переопределить логин для входа в БД...для IBDataBase.....стандартно чёто не пашет....нелп
alexdbases (2002-06-16 19:26:00) [1]procedure TRKI_DM.dbRKILogin(Database: TIBDatabase; LoginParams: TStrings);
begin
GetLoginParams(LoginParams);
end;
функция определена так
function GetLoginParams(ALoginParams: TStrings): Boolean;
var
LoginForm: TLoginForm;
begin
Result := False;
LoginForm := TLoginForm.Create(Application);
try
if LoginForm.ShowModal = mrOk then
begin
ALoginParams.Values["USER_NAME"] := LoginForm.edtName.Text;
ALoginParams.Values["PASSWORD"] := LoginForm.edtPassword.Text;
Result := True;
end;
finally
LoginForm.Free;
end;
end;
....Вот так вот не работает.а должна
kaif (2002-06-16 17:39:00) [2]ничего не понятно...
Можно как-то иначе изъяснить суть проблемы?
| |
