Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C/C++ Базы данных
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2016, 13:05   #1
19boom96
Новичок
Джуниор
 
Регистрация: 28.10.2016
Сообщений: 2
По умолчанию FastReport

Надо составить отчёт по запросу в кнопке.
с FastReport не был знаком до сегодняшнего вечера)
Разобрался как вывести прямым запросом из ADOQuery (но так не надо).
и так
В отчете на кнопку надо вывести данные авторизованного пользователя.
Как в DataSet передать выводимые столбцы а потом их же передать в MasterData?
Если кратко поставить вопрос, то будет так звучать.
Как кодом прописать, а не жёстко привязывая компоненты и запросы?
С жёсткой привязкой разобрался.
Теперь возник вопрос как вывести в мемо одну запись в определённом поле?

Вот что натворил
Цитата:
TfrxDataPage * DataPage;
TfrxReportPage * Page;
TfrxBand * Band;
TfrxMasterData * DataBand;
TfrxMemoView * Memo;
DataSource1->DataSet = ADOQuery3;
ADOQuery3->SQL->Clear();
ADOQuery3->SQL->Add("SELECT * FROM [Ученики] WHERE [id_ученика] = "+IntToStr(Ii)+";");
fio=AnsiString(ADOQuery3->FieldByName ["ФИО"]) ;
frxReport1->Clear(); // очищаем отчёт

//frxReport1->DataSets->Add(frxDBDataset1); // добавляем источник данных
DataPage = new TfrxDataPage(frxReport1); // добавляем страницу "данные"
Page = new TfrxReportPage(frxReport1); // добавляем страницу
Page->CreateUniqueName(); // создание уникального имени
Page->SetDefaults(); // размер бумаги, полей, ориентации по умолчанию
Page->Orientation = poLandscape; // меняем ориентацию бумаги
Band = new TfrxReportTitle(Page); // добавление report title
Band->CreateUniqueName(); // добавление report title
Band->Top = 0;
Band->Height = 20; // высота
// добавление объекта на report title
Memo = new TfrxMemoView(Band);
Memo->CreateUniqueName();

//Memo->Text = String(Ii) ;
Memo->Text = AnsiString(fio) ;
Memo->Height = 20;
Memo->Align = baWidth; // растянем на ширину Band
// добавление мастер дата
DataBand = new TfrxMasterData(Page);
DataBand->CreateUniqueName();
//DataBand->DataSet = frxDBDataset1;
// координаты не должны пересекать band
DataBand->Top = 100;
DataBand->Height = 20;
// добавление объекта на мастер дата
Memo = new TfrxMemoView(DataBand);
Memo->CreateUniqueName();
// подключение к данным
Memo->DataSet = frxDBDataset1;
Memo->DataField = "CustNo";
Memo->SetBounds(0, 0, 100, 20);

Memo->HAlign = haRight; // текст по правому краю
// frxReport1->ShowReport(true); // вывод отчёта
frxReport1 = Form2->frxReport1;
frxReport1->Preview = Form2->frxPreview1;
frxReport1->ShowReport();


ADOQuery3->ExecSQL();
ADOQuery3->Open();
19boom96 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
fastReport 5 Владимир Викторови Помощь студентам 7 30.05.2015 12:35
Fastreport Boh99 Помощь студентам 5 13.06.2013 14:39
Конвертация отчета FastReport в PDF минуя просмоторщик FastReport a.falkone Компоненты Delphi 3 04.02.2013 06:57
FastReport MasterofCDM БД в Delphi 7 24.11.2008 13:11
FastReport dmitry Общие вопросы Delphi 3 17.01.2007 11:57