Форум: "Базы";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
ВнизПро TIBdatabase... Найти похожие ветки
← →
alexdbases (2002-06-16 13:05) [0]Как переопределить логин для входа в БД...для IBDataBase.....стандартно чёто не пашет....нелп
← →
kaif (2002-06-16 17:39) [1]ничего не понятно...
Можно как-то иначе изъяснить суть проблемы?
← →
alexdbases (2002-06-16 19:26) [2]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;
....Вот так вот не работает.а должна
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c