powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / В чем делать отчеты?
8 сообщений из 8, страница 1 из 1
В чем делать отчеты?
    #32879728
MegaDimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как можно в VB6 конструировать отчеты для печати на принтере, чтобы данные не напрямую из БД брать а, например, из переменных в программе?
...
Рейтинг: 0 / 0
В чем делать отчеты?
    #32879774
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Делай в HTML и показывай в WebBrowser контроле
...
Рейтинг: 0 / 0
В чем делать отчеты?
    #32879808
MegaDimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
HTML не подходит по 2 причинам:
1. колонтитулы не задаются
2. текст имеющий фон(не белый) печатается все равно без фона
...
Рейтинг: 0 / 0
В чем делать отчеты?
    #32879844
Alexey Kudinov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MegaDimonКак можно в VB6 конструировать отчеты для печати на принтере, чтобы данные не напрямую из БД брать а, например, из переменных в программе? А как угодно можно. Возьмите ту отчетную систему, с которой привыкли работать. Она умеет принимать ADO.Recordset в качестве источника данных ? Уверен, что да.
А отвязанный рекордсет сделать и наполнить его данными на основании переменных вы тоже сможете.
Вот вам и ответ.

Ну и как быстрое решение объект Printer
...
Рейтинг: 0 / 0
В чем делать отчеты?
    #32881451
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В HTML кра-а-а-асивый отчет можно сделать. И оформление моментально менять, как тему, за счет подсовывания другого CSS. Разобраться надо пару дней потратить. К тому же сформированный HTML файл - отдельная ценность, его потом куда угодно можно передать для просмотра.
...
Рейтинг: 0 / 0
В чем делать отчеты?
    #32884888
MegaDimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Alexey Kudinov: вобщето я немного другое имел ввиду, ну ладно. Я скачал уже Active Reports мне в нем надо данные забивать не из Recordset'ов а просто из переменных. Вобщем, как в AR дизайн страницы делать понятно, непонятно как страницы множить если данные не с рекордсетом свезаны. Т.е. нужно к объекту отчет добавить новую страницу. А как незнаю?

Программист-Любитель: с удовольствием бы и сам делал на HTML, но как быть с проблеммами из 3 поста.
...
Рейтинг: 0 / 0
В чем делать отчеты?
    #32885012
Alexey Kudinov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MegaDimonAlexey Kudinov: вобщето я немного другое имел ввиду, ну ладно. Я скачал уже Active Reports мне в нем надо данные забивать не из Recordset'ов а просто из переменных. Вобщем, как в AR дизайн страницы делать понятно, непонятно как страницы множить если данные не с рекордсетом свезаны. Конкретно по AR не отвечу, не работал с ним.
Если есть сложности с данными, к-е не связаны с рекордсетом, так свяжите их.

Какая разница для Recordseta как в него попадут данные ?
Recordset же можно сделать не только путем выполнения запросов к БД.
Вот кусок кода, взятый из "живой" системы, чтобы проиллюстрировать мысль:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Dim adoRecordsetResume As ADODB.Recordset
Set adoRecordsetResume = New ADODB.Recordset
With adoRecordsetResume
            .Fields.Append "Col1", adVarChar,  400 
            .Fields.Append "Col2", adVarChar,  400 
            .Open

            .AddNew
            .Fields.Item("Col1").Value = LoadCommonResourceString( 1151 )
            .Fields.Item("Col2").Value = p_oCreditProduct.Parent.UID

            .AddNew
            .Fields.Item("Col1").Value = LoadCommonResourceString( 1068 )
            .Fields.Item("Col2").Value = Format(p_oCreditProduct.Parent.Detail.ApplicationDate)

            .AddNew
            .Fields.Item("Col1").Value = LoadCommonResourceString( 1071 )
            .Fields.Item("Col2").Value = Format(p_oCreditProduct.Parent.Detail.AnalysisDate)
            .UpdateBatch
End With
oRM.AddRecordSet adoRecordsetResume, o_Report
o_Report.unbCol1.SetUnboundFieldSource "' ' +{ado.Col1}"
o_Report.unbCol2.SetUnboundFieldSource "' ' +{ado.Col2}"
Это для CrystalReport.
Как видно создается отвязаный Recordset, к-й наполняется данными и передается в отчет, который дизайнится и отображается обычным образом
...
Рейтинг: 0 / 0
В чем делать отчеты?
    #32885104
MegaDimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Alexey Kudinov спасибо! Идея хорошая, теперь проблемма с генерацией страниц вручную у меня отпала. Recordset - сила! ;)
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / В чем делать отчеты?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]