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

Комментарии

• AlexTZ

  November 2003 отредактировано 14:29

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

  November 2003 отредактировано 14:29

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

  November 2003 отредактировано 14:29

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

  November 2003 отредактировано 14:29

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

  November 2003 отредактировано 14:29

  Попробуй так: (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

  November 2003 отредактировано November 2003

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