ADO и отчеты в html

@K.A.V. · Регистрация: 06.03.2011

Студворк — интернет-сервис помощи студентам

ADO и отчеты в html формате помогите как мне их сделать?

@sharky123 · 16.01.2012, 22:14

http://forum.codenet.ru/threads/45630-Создание-html-отчета-из-Delphi

@K.A.V. · 16.01.2012, 22:15 **[ТС]**

Сообщение от sharky123

http://forum.codenet.ru/threads/45630-Создание-html-отчета-из-Delphi

Сообщение форума
Тема не указан(-а). Если вы пришли по правильной ссылке, пожалуйста, сообщите администрации о нерабочей ссылке.

@sharky123 · 16.01.2012, 22:24

Есть БД на основе Access, в Delphi идет отображение данных из БД и какие-то операции с записыми. Отображение записей идет в DBGrid. Необходимо создать html-отчет, каких-то определённых записей из БД.
Может подскажет как это можно проще осуществить?

сделай вот как:

в usese укажешь:
Код :

Delphi
1
uses ShellApi;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
procedure TForm1.Button1Click(Sender: TObject);
var HTMLStr:TStringList;
i:integer;
begin
HTMLStr:=TstringList.Create;
HTMLStr.Clear;
HTMLStr.Add('<HTML>');
HTMLStr.Add('<HEAD>');
HTMLStr.Add('<TITLE>'+'HTML-ка'+'</TITLE>');
HTMLStr.Add('</HEAD>');
HTMLStr.Add('<BODY BGCOLOR="#FFFFEE">');
HTMLStr.Add('<H1><CENTER> Инфа из файла '+Table1.TableName+'</CENTER></H1>');
 
HTMLStr.Add('<table border>');
 
HTMLStr.Add('<tr>');
 
for i:=0 to Table1.FieldCount-1 do
        HTMLStr.Add('<th>'+Table1.Fields[i].FieldName + '</th>');
HTMLStr.Add('</tr>');
 
Table1.First;
while not Table1.Eof do begin
        HTMLStr.Add('<tr>');
        for i:=0 to Table1.FieldCount-1 do
        if Table1.Fields[i].DisplayText='' then
        HTMLStr.Add('<td>'+'___'+'/<td>')
        else HTMLStr.Add('<td>'+Table1.Fields[i].DisplayText+'</td>');
HTMLStr.Add('</tr>');
Table1.Next;
end;
 
HTMLStr.Add('</TABLE>');
HTMLStr.Add('</BODY>');
HTMLStr.Add('</HTML>');
 
HTMLStr.SaveToFile('HTML.html');
HTMLStr.Free;
 
ShellExecute(Handle, 'open', pchar('HTML.html'), '', '', sw_ShowNormal);
 
end;

Добавлено через 31 секунду
это по той ссылке, которую я дал

Добавлено через 5 минут
Вот еще ссылочки на компоненты:
http://alfareport.rork.ru/sample/index.html
http://templatepower.codocad.com/
http://torry.net/pages.php?id=190

@K.A.V. · 16.01.2012, 22:59 **[ТС]**

Вот еще ссылочки на компоненты:
http://alfareport.rork.ru/sample/index.html Ошибка 404
Файл не найден
http://templatepower.codocad.com/
http://torry.net/pages.php?id=190

@sharky123 · 16.01.2012, 23:04

Ну две ссылки вполне рабочие+пример без компонентов у Вас имеется

@K.A.V. · 17.01.2012, 18:22 **[ТС]**

а как еще сделать чтобы оно когда с генерировало вывело таблицу в html надо чтобы это таблица сохранилась в папке html с расширением *.html при этом название документа должно соответствовать дате его генерирования, создания?

@sharky123 · 17.01.2012, 21:04

Сообщение от ДианаKS

а как еще сделать чтобы оно когда с генерировало вывело таблицу в html надо чтобы это таблица сохранилась в папке html с расширением *.html при этом название документа должно соответствовать дате его генерирования, создания?

Касаемо примера из поста #4?

@K.A.V. · 17.01.2012, 21:55 **[ТС]**

да из поста 4

@sharky123 · 17.01.2012, 22:16

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var HTMLStr:TStringList;
path: string; //Для получения пути к папке с приложением
fDate: string; // Дата для имени файла
begin
fDate:= DateToStr(Now); 
path:= ExtractFilePath(ParamStr(0));
.......
HTMLStr.SaveToFile(Path+'html\'+fdate+'.html');
......
 
end;

Добавлено через 3 минуты
После выполнения, в каталоге с программой, в папке html будет лежать файл, именуемый датой его формирования.

@MsGuns · 18.01.2012, 12:10

Чтобы избавиться от точек в имени файла:

Delphi
1
fDate:= StringReplace(DateToStr(Now),'.','-',[rfReplaceAll]);

Добавлено через 9 минут
А вот так еще лучше ибо не зависит от локальных установок:

Delphi
1
2
3
   uses SysUtils;
   ...
   fDate := FormatDateTime('yyyy-mm-dd',DateToStr(Now));

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@K.A.V. В поисках истины 69 / 29 / 0 Регистрация: 06.03.2011 Сообщений: 665 Записей в блоге: 3

	ADO и отчеты в html 16.01.2012, 21:03. Показов 2522. Ответов 10 Метки нет (Все метки) ADO и отчеты в html формате помогите как мне их сделать? 0

@sharky123 47 / 47 / 5 Регистрация: 02.03.2010 Сообщений: 119
	16.01.2012, 22:14
	http://forum.codenet.ru/threads/45630-Создание-html-отчета-из-Delphi 0

@K.A.V. В поисках истины 69 / 29 / 0 Регистрация: 06.03.2011 Сообщений: 665 Записей в блоге: 3
	16.01.2012, 22:59 [ТС]
	Вот еще ссылочки на компоненты: http://alfareport.rork.ru/sample/index.html Ошибка 404 Файл не найден http://templatepower.codocad.com/ http://torry.net/pages.php?id=190 0

@sharky123 47 / 47 / 5 Регистрация: 02.03.2010 Сообщений: 119
	16.01.2012, 23:04
	Ну две ссылки вполне рабочие+пример без компонентов у Вас имеется 0

@K.A.V. В поисках истины 69 / 29 / 0 Регистрация: 06.03.2011 Сообщений: 665 Записей в блоге: 3
	17.01.2012, 18:22 [ТС]
	а как еще сделать чтобы оно когда с генерировало вывело таблицу в html надо чтобы это таблица сохранилась в папке html с расширением *.html при этом название документа должно соответствовать дате его генерирования, создания? 0

@K.A.V. В поисках истины 69 / 29 / 0 Регистрация: 06.03.2011 Сообщений: 665 Записей в блоге: 3
	17.01.2012, 21:55 [ТС]
	да из поста 4 0