Имя пользователя и пароль для end-user

maxbukovskiy

Господа!
Есть ли у Вас мысли по поводу передачи идентификатора пользователя и пароля из своей программы в end-user отчёт?
Например, достучаться программно до компонента frBDEDatabase и добавить пару строчек (пользователь и пароль) к его параметрам.
А то получается незд0рово, когда при печати отчёта пользователь будет сам каждый раз из вводить.
Заранее благодарен.

AlexTZ

with TfrBDEDatabase(frReport1.FindObject('BDEDatabase1')) do
...

maxbukovskiy

2AlexTZ
Спасибо, Alex!
Однако эта функция возвращает указатель на TfrView, который не хочет преобразовываться к TfrDatabase.
" E2285 Could not find a match for 'TfrBDEDatabase::TfrBDEDatabase(TfrView *)' "
Может ты как-то сумел это обойти?

maxbukovskiy

2AlexTZ
На предыдущее не обращай внимание - это меня сглюкануло (после ваших паскалевских нотаций забыл, что надо преобразование к указателю делать)
Спасибо!

maxbukovskiy

Кажется, я рано возрадовался...
Не могу достучаться до свойства Params.
Такое впечатление, что из программы недоступны свойства, которые видны в дизайнере.
Кто-нибудь сталкивался с этим?

NeumannW

Попробуй так: (for Interbase)

implementation

uses FR_BDEDB;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
fr_DB : TfrBDEDatabase;
begin
frReport1.LoadFromFile('C:\Daten\Reports\Test.frf');
fr_DB := TfrBDEDatabase(frReport1.FindObject('BDEDatabase1'));
if fr_DB <> nil then begin
fr_DB.Database.Params.Values := 'C:\Daten\DB.gdb';
fr_DB.Database.Params.Values := 'SYSDBA';
fr_DB.Database.Params.Values := 'masterkey';
end;
frReport1.ShowReport;
end;

maxbukovskiy

2NeumannW: Спасибо большое.
All the best.