powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Cat2, Отзовись. Нужна помощь (установка PivotTable)
25 сообщений из 25, страница 1 из 1
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32124659
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не могу найти топик, где ты обещал помочь с установкой PivotTable.

Напомни, пожалуйста, как установить?
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32124972
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
/topic/25313\r
\r
Это что ли потерял?
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32129528
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Cat2

Инструкция по установке PivotTable.
Component - Import ActiveX

Microsoft Office ActiveX Components

Install

Compile

Полезет куча ошибок

тип ERROR заменяешь на Integer

Другие ошибки я на помню, сам смотрел как их исправить на форуме Королевства Дельфи, поиск по PivotTable



Я не нашел Microsoft Office ActiveX Components . Может как-нить по-другому называется?
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32129534
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sorrюю.
Microsoft Office Web Components

Ставить лучше наибольшую версию
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32129597
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Когда поставишь, глянь сюда

//www.compress.ru/Article.asp?id=585
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32129618
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32129657
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Cat2

Спасибо. Как ты и говорил, полезли ошибки. Тип error (как ты говорил) поменял на integer. Но появились и другие ошибки:

property Selection: IDispatch index -1 read GetIDispatchProp write _SetIDispatchProp; (field or method identifier eexpected)

Result := DefaultInterface.DataSource; (cannot read a write_only property)

Result := DefaultInterface.Connection;(undeclared identifier 'Connection')

Если помнишь на вскидку, подскажи, а то я дома на диалапе сижу (терпения не хватает искать на Королевстве).

2 NNN

Спасибо за ссылку. На работе буду качать.
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32129735
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВРоде бы надо write SetIDispatchProp

Result := DefaultInterface. Get_Connection

Result := DefaultInterface. Get_DataSource ;

Если не поможет, то приведи полные тексты процедур с ошибками. Я посмотрю, как там у меня в исходниках
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32130561
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Cat2

Исправил. Все хоккей. Заработало. Счас буду разбираться.
Спасибо за помощь!

P.S. Заодно: Интересно какими средствами ты создаешь отчеты?
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32130563
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Отчеты я делаю в Excel'е. Естественно, это работает медленне, чем отчеты из генераторов и требует большего труда, но зато
1. Абсолютно все под контролем. Лично я не знаю ни одного генератора, который мог бы решить задачу печати подписей без их отрыва от последней строки отчета.
2. Отчет можно послать по почте
3. При случае, данные из старого отчета можно использовать для восстановления инфы. У меня часто бывают случаи, что приходит указание - "применять такие-то коэффициенты", а через полгода - "вернутся к прежней методике".
4. Если юзеру не нравится цифра - берет и правит.
5. Оформительские способности Excel'я на порядок превосходят возможности генераторов.

Длинные отчеты я стараюсь делать DOS-печатью на рулоне - экономлю на расходных материалах. Как правило, эти отчеты никто не читает, а служат они как архивные документы. Типа "список выданной спецодежды".
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32131223
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Cat2
Спасибо. Понял. Теперь окончательно решил тож писать отчеты на office. И главная причина - это то, что генераторы отчетов не позволяют сохранить в общедоступном формате отчеты (чтоб править, слать по почте и т.д.).
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32155117
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите, пожалуйста, вот с такими простыми вопросами:

1) Можно ли в PivotTable узнать номер столбца и строки, где стоит курсор (нужно, чтобы вытащить значение из ячейки)?

2) Можно ли обрабатывать событие - клик (двойной) мышой по клетке PivotTable?

3) Есть таблица - (код товара, наименование товара, Склад, количество, хрень1, хрень 2)
Можно ли в PivotTable1 сделать так?:

код тов, наименование тов, Склад1, Склад2,....,СкладN, хрень1, хрень2
1 товар1 Колво Колво ... Колво ХХ ХY
2 товар2 Колво Колво ... Колво ХХ ХZ
...................................................................

4) Вот цитата (ссылку дал Cat2):

- PivotTable использовать так же, как и другие элементы управления ActiveX, в Delphi 5 не удается — хотя его и можно установить в палитру компонентов Delphi, приложение, содержащее его, оказывается неработоспособным.
А в других версиях Делфей?
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32155473
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Еще один вопросец (не сочтите за наглость):

Когда в PivotTable заголовки строк состоят из одного поля, т.е.:
Код: plaintext
View.RowAxis.InsertFieldSet(View.FieldSets['Поле1']);
то получить их значения можно так:
Код: plaintext
PT.ActiveData.RowMembers[R].Caption;


А вот когда заголовки строх состоят, например из двух полей,
т.е.
Код: plaintext
1.
View.RowAxis.InsertFieldSet(View.FieldSets['Поле1']);
 View.RowAxis.InsertFieldSet(View.FieldSets['Поле2']);

Как достучаться до значений заголовков строк?
Вариант :
Код: plaintext
PT.ActiveData.RowMembers[R].Caption;
Берет значения тока первого поля. А как взять второе?

P.S. Нихера себе нагородил. Врядли что-то здесь понятно. Но буду надеяться!
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32159333
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я опять про PivotTable.
Подскажите пожалуйста, как группировать данные (ну как в Экселе)
Например, по строкам идет название товара, по столбцам - дата продажи, на пересечении - количество. Как сгруппировать дату (по месяцам, кварталам и т.д.)? Чтоб показывало продажи по месяцам, кварталам и т.д. В методах я не нашел ничего похожего.
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32159450
uranic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
4) Вот цитата (ссылку дал Cat2):

- PivotTable использовать так же, как и другие элементы управления ActiveX, в Delphi 5 не удается — хотя его и можно установить в палитру компонентов Delphi, приложение, содержащее его, оказывается неработоспособным.
А в других версиях Делфей?

Просто авторы не разобрались что к чему, вот и сказали так.
Там достаточно uses добавить один модуль, точно не помню, но его с собой привносит OleContainer. А так все отлично работает.
В более страрших версиях положение немного лучше. Кажется в 7 вообще без проблем имортируется все Office Web Components
Вот урл для скачивания OWC отдельно.
http://download.microsoft.com/download/officexpstandard/owc10/2002/w98nt42kme/ru/owc10.exe

Насчет группировок и пр. Не мучайся создай отчет, а потом сохраняй настройки в XML (XMLData). Когда нужно подгружай.

Привил исходники с PivotTable больше года назад - поэтому на вскидку уже всего и не вспомню.
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32159490
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Насчет группировок и пр. Не мучайся создай отчет, а потом сохраняй настройки в XML (XMLData). Когда нужно подгружай.

Можно поподробнее? Я не понил. Но чувствую что-то толковое.

Спасибо.
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32159826
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ, ну подскажите плиз как сгруппировать по столбцам? А? Или хотя бы скажите - это ваще возможно или нет. А?

Ну что Вам стОит?
(с) "С легким паром"
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32160007
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Универсальный спсоб борьбы с микрософтофскими заморочками - записать макрос в екселе

Таблица
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
L1      L2      A       D
 1 . 0 	 1 . 0 	А	 1 . 0 
 1 . 0 	 2 . 0 	Б	 1 . 0 
 1 . 0 	 3 . 0 	В	 1 . 0 
 1 . 0 	 4 . 0 	Г	 1 . 0 
 1 . 0 	 5 . 0 	Д	 1 . 0 
 2 . 0 	 1 . 0 	Е	 1 . 0 
 2 . 0 	 2 . 0 	Ж	 1 . 0 
 2 . 0 	 3 . 0 	З	 1 . 0 
 2 . 0 	 4 . 0 	И	 1 . 0 
 2 . 0 	 5 . 0 	К	 1 . 0 


Код на VBA
Код: plaintext
1.
2.
3.
4.
ActiveSheet.PivotTables( "СводнаяТаблица1" ).AddFields RowFields:= "A" , 
ColumnFields:=Array( "L1" ,  "L2" )

ActiveSheet.PivotTables( "СводнаяТаблица1" ).PivotFields( "D" ).Orientation =xlDataField
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32160280
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Cat2

Это я понил. Мне не понятно другое. Вот по столбцам (в pivottable) у меня идут даты, т.е. дни. В ехселе, по правой кнопке мыши, можно столбцы объединить по месяцам, по годам, кварталам и т.д.(Group, ungroup), а в Pivottable, такого нет, и как это сделать программно в хелпе написано - см. Справку по Excel.

То есть в сухом остатке мне нужно сгруппировать по месяцам, а то получается, если данные за год, то у меня 365 столбцов. Во как.
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32160795
uranic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Насчет группировок и пр. Не мучайся создай отчет, а потом сохраняй настройки в XML (XMLData). Когда нужно подгружай.

Можно поподробнее? Я не понил. Но чувствую что-то толковое

Есть совйство в PivotTable называется XMLData. Там хранятся все настройки PT включая ConnectionString, CommandText, названия полей, группировки и пр.

Берешь пустой Pivottable, подсоединяешься, заполняешь commandText, вытаскиваешь какие нужно поля, красишь, гурппируешь фильтруешь, пока отчет тебе не понравиться. Потом берешь и сохраняешь XMLData. Все.
Когда нужно будет достать этот отчет, то просто сделаешь PivotTable.XMLData:='мой сохраненный XML'. Дальше можешь развить идею, параметризованных SQL запросов и их подстановку в XMLData. Да и если у тебя пользователи работают под разными логинами, то возможно connectinon string тебе прийдется формировать.

Следующий шаг подключение PivotTable к Olap кубам MSSQL.
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32161205
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дык сделай два столбца с годами и месяцами.

Типа
select ... year(MyDate) as [year], Month(MyDate) as [Month], sum(...)

...

group by ... year(MyDate), Month(MyDate)
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32161497
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Cat2

Спасибо, это я канешно прогнал. Просто хотелось бы, что бы юзверь сам это делал (как в Экселе), а тут придется самому заморачиваться (нужна ведь группировка по дням, неделям, месяцам, кварталам, годам).

Еще раз Спа!
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32161655
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Cat2

А не подскажешь вот с этим вопросом - Дата: 7 май 03, 18:24
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32166721
Фотография Mihail R.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Следующий шаг подключение PivotTable к Olap кубам MSSQL.
извините если тупо, но никогда не делал, а очень хочется.
как это фунциклирует?
т.е. что нужно и где прописать чтоб коннектилось (формат строки Connection и что писать в Command)?
...
Рейтинг: 0 / 0
Cat2, Отзовись. Нужна помощь (установка PivotTable)
    #32166850
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот же ссылку дали:
//www.compress.ru/Article.asp?id=585
...
Рейтинг: 0 / 0
25 сообщений из 25, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Cat2, Отзовись. Нужна помощь (установка PivotTable)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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