Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.06.2015, 00:14
pochemuch pochemuch вне форума
Прохожий
 
Регистрация: 10.06.2015
Сообщения: 12
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию сознание бланка при помощи базы данных и делфи

подскажите пожалуйста, как можно реализовать такой бланк при помощи базы данных аксесса и делфи
Изображения
Тип файла: png Бланк1.png (45.4 Кбайт, 7 просмотров)
Тип файла: png Бланк2.png (7.3 Кбайт, 6 просмотров)
Ответить с цитированием
  #2  
Старый 20.06.2015, 00:49
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,048
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

DevExpress такое может (QuantumGrid конкретно)
Ответить с цитированием
  #3  
Старый 20.06.2015, 14:36
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Я тут посмотрел на эти скрины и мне вот какая идея пришла в голову. почему бы не сделать табличку как htm-страничку. Тогда не надо никаких компонентов:
Вот наш код вызова этой странички:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('O:\My\UserTable.html');
end;
И сама страничка UserTable.html:
Код HTML:
<html> <table height=8 cellpadding="4" cellSpacing=0 width=800 border=1> <thead> <tr color=#FFFFFF bgcolor=#3774A4> <th colspan="3">Наименование показателя</th> <th>Всего</th> </tr> </thead> <tbody> <tr bgcolor=#E6E6E6> <td colspan="3">1. Нефинансовые активы, всего:</td> <td><input id="InR2C4" name="text" type=text></td> </tr> <tr bgcolor=#E6E6A6> <td width=20></td> <td colspan="3">из них:</td> </tr> <tr bgcolor=#E6E6E6> <td width=20></td> <td colspan="2">1.1. Общая балансовая стоимость недвижимого государственного имущества, всего</td> <td><input id="InR4C4" name="text" type=text></td> </tr> <tr bgcolor=#E6E6A6> <td colspan="2"></td> <td colspan="2">в том числе:</td> </tr> <tr bgcolor=#E6E6E6> <td colspan="2"></td> <td>1.1.1. Стоимость имущества, закрепленного собственником имущества за федеральным государственным учреждением (подразделением) на праве оперативного управления</td> <td><input id="InR6C4" name="text" type=text></td> </tr> <tr bgcolor=#E6E6A6> <td colspan="2"></td> <td>1.1.2. Стоимость имущества, приобретенного федеральным государственным учреждением (подразделением) за счет выделенных собственником имущества учреждения средств</td> <td><input id="InR7C4" name="text" type=text></td> </tr> </tbody> </table> </html>
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #4  
Старый 20.06.2015, 17:37
pochemuch pochemuch вне форума
Прохожий
 
Регистрация: 10.06.2015
Сообщения: 12
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

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

Последний раз редактировалось pochemuch, 20.06.2015 в 17:40.
Ответить с цитированием
  #5  
Старый 20.06.2015, 20:07
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

А и не очень то и сложно. Компонент WebBrowser имеет полный набор методов для доступа к своим свойствам. Тем-же полям ввода. Скажем, если мы хотим загнать новое значение в поле для п.1.1. мы можем сделать так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
Var
  HtmDoc: IHTMLDocument3;
  HtmItem: IHTMLElement;
begin
 HtmDoc := WebBrowser1.Document as IHTMLDocument3;
 HtmItem := HtmDoc.getElementById('InR4C4');
 HtmItem.setAttribute('Value', 'Тысяча чертей!', 0);
end;

ну а прочитать что то уже так:
Код:
procedure TForm1.Button2Click(Sender: TObject);
Var
  HtmDoc: IHTMLDocument3;
  HtmItem: IHTMLElement;
begin
 HtmDoc := WebBrowser1.Document as IHTMLDocument3;
 HtmItem := HtmDoc.getElementById('InR4C4');
 Caption := HtmItem.getAttribute('Value', 0);
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.

Последний раз редактировалось Страдалецъ, 20.06.2015 в 20:10.
Ответить с цитированием
  #6  
Старый 21.06.2015, 00:28
pochemuch pochemuch вне форума
Прохожий
 
Регистрация: 10.06.2015
Сообщения: 12
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

я вообще пытаюсь реализовать что-то типо принципа: раздел, подраздел и первичный показатель. мне нужно, что бы первый пользователь заполнял таблицу первичных показателей, второй пользователь - подразделов, а третий заполнял разделы и добавлял данные из двух предыдущих таблиц, в результате чего образовался такой вот бланк, в разделе суммируются значения подраздела и раздела...осознаю, что должно быть просто достаточно, но как это реализовать никак не могу додуматься
Ответить с цитированием
  #7  
Старый 21.06.2015, 02:18
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Я не вижу в этом бланке такого разделения. Для ввода данных есть только показатели 3 уровня. Они суммируются и отображаются на 2 уровне. Эти в свою очередь суммируются и идут уже в 1 уровень. С точки зрения хранения данных, тут вообще все элементарно. Если эти данные нужны для заполнения бланка именно такой формы, то таблицы с 3 полями Дата, Статья, Сумма хватит за глаза.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:21.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter