VPF::Отображение данных с DBGrid в WEB страничке

AnGo

Дата 13.6.2006, 18:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.4.2006

Репутация: нет
Всего: нет

Помогите создать в готовом проекте WEB страничку, в которой можна было бы отобразить данные из ADO. С HTML не знаком, по-этому и мучаюсь.
У меня есть готовый проект для базы (написана на MS SQL Server). Нужно сделать следующее:
smile

Есть форма. На ней есть DbGrid с данными.
При нажитии на кнопку должен запуститься Internet Explorer в окне которого будут данные с этого ГРИДА.
smile

skyboy

Дата 13.6.2006, 19:08 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

AnGo, копай в сторону тега <table> в html - тебе надо просто в цикле организовать запись в файл. Не более того. Вот, как это может выглядеть для наследника TdataSet:

Код


procedure Result2HTML(Query:TDataSet;filename:string)
var f:text;
      M,N,i,j:integer;
begin
assignfile(f,filename);
rewrite(f);
writeln(f,'<html><head><title>Report</title></head><body>');
writeln(f,'<table border="2">');
M:= Query.fields.count;
N:= Query.recordcount;
if (0=M) OR (0=N) 
 then exit;
writeln(f,'<tr>');
for i:=1 to M do
 writeln(f,'<td>',Query.Fields.Fields[i-1].FieldName,'</td>'); // шапка из имён полей
writeln(f,'</tr>');
for j:=1 to N do
 begin
  writeln(f,'<tr>');
  for i:=1 to M do 
   writeln(f,'<td>',Query.Fields.Fields[i-1].AsString,'</td>'); // каждая строка - это значение всех полей
  Query.Next;
  writeln(f,'</tr>');
 end;
writeln(f,'</table></body></html>');
closefile(f);
end;

Вроде такого. Процедура принимает параметрами источник данных и имя файла(с расширением "htm"!). И генерирует табличноепредставление данных.

Это сообщение отредактировал(а) skyboy - 13.6.2006, 19:08

bruha

Дата 13.6.2006, 19:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 11.6.2006

Репутация: нет
Всего: нет

Я это не использовал, но во многих отчетах (например, тот же Fast Report или Crystal Reports) есть экспорт в различные форматы, excel, word и конечно html.

AnGo

Дата 13.6.2006, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.4.2006

Репутация: нет
Всего: нет

Опытный. Спасибо за помощь. Но вот следующый вопрос: "КАК ЭТУ HTML страничку сразу увидеть???".

skyboy

Дата 13.6.2006, 19:35 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

работает? а то компилера под рукой нет - отладить...
передай вставленному TwebBrowser файл. Он же может открывать локальные файлы, да? ;)
А имя задавай "$TEMP$\temp001.htm" и удаляй после просмотра.

AnGo

Дата 14.6.2006, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.4.2006

Репутация: нет
Всего: нет

Опытный. Спасибо. Получилось создать страничку.
А можна с помощью Делфы на не устроить возможность выборки данных???

skyboy

Дата 14.6.2006, 21:19 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

во-первых, почему "Опытный"? Пущай - не по имени(ты ж его не знаешь), то хоть бы ник использовал...
во-вторых, "один топик - один вопрос"
в-третьих, изъясняйся прозрачнее. Неясно, что тебе надо. Что и как выбирать.

AnGo

Дата 15.6.2006, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.4.2006

Репутация: нет
Всего: нет

SKYBOY, Прошу прощения. Просто как-то с ником глаза выше строчки "опытный" не поднимались.
Кстати, твой пример заработал, а вызывал в броузере стандартным примером из дэлфы.
В понедельник уже диплом сдавать, а я всё бьюсь над тем, как сделать элементы на той страничка, куда данные перенёс.
Да наверное и не успею уже.
Большое спасибо за помощь...

Добавлено @ 16:49
SKYBOY, Прошу прощения. Просто как-то с ником глаза выше строчки "опытный" не поднимались.
Кстати, твой пример заработал, а вызывал в броузере стандартным примером из дэлфы.
В понедельник уже диплом сдавать, а я всё бьюсь над тем, как сделать элементы на той страничка, куда данные перенёс.
Да наверное и не успею уже.
Большое спасибо за помощь...

skyboy

Дата 15.6.2006, 17:03 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

AnGo, если времени нет - представь эту таблицу не как элемент интерфейса, а просто как "экспорт данных в переносимый формат представления" - тогда и требования не такие, как к сайту smile

А что? Просто таблица с данными...

AnGo

Дата 15.6.2006, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.4.2006

Репутация: нет
Всего: нет

SKYBOY
Я уже так и сделал. И в техническом разделе так и написал. Сегодня его сдал на подпись.
Просто есчё и для себя интересно- можна ли это сделать без использования вэб- сервера?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »