сознание бланка при помощи базы данных и делфи

pochemuch · #1 20.06.2015, 00:14

подскажите пожалуйста, как можно реализовать такой бланк при помощи базы данных аксесса и делфи

lmikle · #2 20.06.2015, 00:49

DevExpress такое может (QuantumGrid конкретно)

Страдалецъ · #3 20.06.2015, 14:36

Я тут посмотрел на эти скрины и мне вот какая идея пришла в голову. почему бы не сделать табличку как 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>

pochemuch · #4 20.06.2015, 17:37

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

Страдалецъ · #5 20.06.2015, 20:07

А и не очень то и сложно. Компонент 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;

pochemuch · #6 21.06.2015, 00:28

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

Страдалецъ · #7 21.06.2015, 02:18

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

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты