Вопрос по Fast Report

[Tanuska___:)]

Помогите пожалусто !!!! Я начала изучать Fast Report по ряду причин...
но что то никак не могу понять как можно выполнить следующее:
Если у меня база *.mdb (Аccess) я на форму кидаю frReport1, frDBDataSet1
и для связи с базой
ADOConnection, ADOTable1(связываю через DataSource1), ADOTable2(связываю через DataSource2)

в свойствах frReport1 указываю DataSet= frDBDataSet1,
frDBDataSet1 =DataSource1.
Потом двойным щелчком по компоненту frReport1 вызываю редактор отчета Fast Report.
Там добовляю 3 бэнда:
1:ReportTitle1
2:DetailData1
3:MasterData1(сдесь выкладываю 2 поля из БД (fio, status) сдесь же указываю в свойстах бэнда связь с базой через frDBDataSet1 )

Но при попытке просмотра Выскакивает сообщение об ошибке :"Невозможно открыть DataSet frDBDataSet1! ". Что я не так делаю....
Если кто нибудь разбираеться в них напишите пожалусто ... потому что мне еще будет нужно как то вывести результат запроса ADOQuery!!!!
Заранее спасибо всем!!!!
На всякий случай мой первый пробный отчет прикрепляю к вопросу.

[_SERGEYX_]

в свойствах frReport1 указываю DataSet= frDBDataSet1,

Это не правильно.
В frDBDataSet1 в свойстве DataSet укажи таблицу.
frDBDataSet1.DataSet:=ADOTable1;
Открывай frReport1.
Иди в меню Отчет > Данные.
Ставь галочку напротив frDBDataSet1.
Справа от отчета появится список полей.
Бросай в отчет MasterData.
В его свойствах DataSet укажи frDBDataSet1 и просто вытяни на него мышью нужные поля.
DetailData будет работать только если его набор данных будет подчиненным для основной таблицы.

[SERG1980]

Если вы устанавливали fast report то в ProgramFiles в папке FastReports есть демо где показаны многие пирмеры в том числе и по работе с БД

[beso]

Пример Фаст Репорт:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, Printers, ComCtrls, DBGrids, Clipbrd,
OleServer, EXCEL97, EXCEL2000, ComObj, ActiveX, ExtCtrls, //ExcelXP, DB,
ADODB, DBCtrls, Buttons, DB;


//--------------------------------------------------------------------------//


procedure TForm1.SpeedButton1Click(Sender: TObject);
var
XLapp, Sheet, Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application' );
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=15;
Colum.Columns[2].ColumnWidth:=15;
Colum.Columns[3].ColumnWidth:=15;
Colum.Columns[4].ColumnWidth:=11;
Colum.Columns[5].ColumnWidth:=8;
//////////////////////////////////////////////////

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=12;
Colum.Rows[2].Font.Size:=10;
Colum.Rows[3].Font.Size:=10;
Colum.Rows[4].Font.Size:=10;
Colum.Rows[5].Font.Size:=10;
Colum.Rows.Font.Name:=' MS Sans Serif';

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
Sheet.Cells[1,2]:=',,База менеджеров" '+DateToStr(Date);
Sheet.Cells[2,1]:='Фамиля';
Sheet.Cells[2,2]:='Имия';
Sheet.Cells[2,3]:='Телефон';
Sheet.Cells[2,4]:='Вгород';
Sheet.Cells[2,5]:='заплата';


index :=3;

Form1. ADOTable1.First;
for i:=0 to Form1. ADOTable1.RecordCount-1 do
begin
Sheet.Cells[index,1]:= Form1. ADOTable1.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:= Form1. ADOTable1.Fields.Fields[2].AsString;
Sheet.Cells[index,3]:= Form1. ADOTable1.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:= Form1. ADOTable1.Fields.Fields[4].AsString;
Sheet.Cells[index,5]:= Form1. ADOTable1.Fields.Fields[5].AsString;
Inc(index);
Form1. ADOTable1.Next;

end;

[beso]

Пример Програми Посмотрите

[beso]

QuickRep1. Инструкся пачитаите