Скачать: CL | DM;

Про 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c