Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

» Использование DevExpress (часть 4)

Автор: andreybear
Дата сообщения: 19.03.2012 12:16

Цитата:
давайте начнем с того является ли каждое поле одновременно результатом суммы и суммируемым?

Может быть и суммируемым.

Цитата:
у вас интересный подход...усер поменял 6 на 100 и получается 1+2+3=100?

Вы же сами предложили:

Цитата:
цепляетесь к событию OnValidate этой колонки где будет лежать процедура расчета и выводить результат в EditValue

Допустим, в 4 колонке формула. 1, 2 и 3 колонки имеют соответственно следующие значения 1, 2 и 3.
Формулу необходимо разобрать, подставить значения вместо переменных, подсчитать и вывести в соответствующую запись колонки номер 4. Пользователь вводит значения, значение "расчетной" колонки необходимо пересчитать. Если правильно понял, вы предлагаете для первых трех колонок назначить обработчик на событие onChange и при каждом изменении производить перечисленные выше действия с формулой?
Автор: mdid
Дата сообщения: 19.03.2012 13:00
ну да...а как иначе? тем более что для колонки можно создать невидимую колонку где будет храниться формула...а в событии onChange или onValidate проверять
- на наличие формулы(нет формулы знач ничего не делаем)
- есть...расчитываем
сама формула в общем то и содержит сумма каких колонок отображается(тоесть можно id1;id2;id3)
ну как то так вроде
Автор: Czechoslovak
Дата сообщения: 19.03.2012 13:07
andreybear
Что-то я чего-то не понимаю....зачем что показывать....EditValue это хранимое значение ячейки, к примеру у меня есть задача правда сделанная DBTableView, но там есть колонка не привязанная БД чисто для того что бы пользователь отметил какие данные(CheckBox) надо сбросить в архив, просто виртуальное так сказать поле, берешь присваиваешь значение и все дела....
Автор: andreybear
Дата сообщения: 19.03.2012 13:27
mdid
Попробовал.
Не подходит для случаев, когда формула включает в себя данные колонок из других таблиц. В таком случае необходимо обращаться к БД, а так как значения отправляются в БД только по кнопке сохранить (таблица не "привязана" к набору данных), то после onChange пересчет будет произведен, но в БД на тот момент будут все еще старые значения, хотя в таблице новые. Таким образом, к сожалению, пересчет для новых значений так и не произойдет.
Хотя, можно попробовать подставить в формулу соответствующие значения, которые есть в текущей таблице, затем уже подставить недостающие данные из других таблиц. И при таком подходе при первоначальной загрузке данных в таблицу также необходимо осуществлять пересчет колонок с формулами, т.к. исходные данные могут измениться к этому времени, значения будут пересчитываться по onChange для конкретной записи, а событие произойдет только тогда, когда пользователь изменит какое-нибудь значение в ячейке.

Добавлено:
Czechoslovak
На сколько я знаю, чтобы добраться до EditValue, которое относится к редактору ячейки (назначается на колонку в целом), необходимо "вызвать" этот редактор методом Show, например, View.Controller.EditingController.Edit.Show, если я не ошибаюсь, затем можно обратиться к свойству EditValue, затем вызвать метод Hide, чтобы скрыть редактор.
А к значению ячейки обычно так доступ получаю: View.DataController.Values[RecordIndex,ItemIndex].
Поправьте, если неправильно понял.

Цитата:
берешь присваиваешь значение и все дела....

Проблема в том, что не знаю, на какое событие повесить это присвоение.
Кстати, если закрыть глаза на различия в хранимом и отображаемом тексте и осуществлять присвоение в onGetDataText, то после того, как пользователь нажимает сохранить и кодом делается пост редактируемой записи, при переходе на другую запись возникает ошибка. Присвоение вычисленного значения выполняется так:
View.DataController.Values[RecordIndex,ItemIndex] := AValue;
Автор: simplecs
Дата сообщения: 19.03.2012 16:45
Задавал вопрос, но ответа так и не нашел! Прошу Вас помощи еще раз:
Сделал в cxgrid группировку по какому-нибудь столбцу – нужно отразить в строке группировки итоговые значения по группе но не стандартные а свои собственные. Как написать свои собственные итоги в нижнем Footor-е и в Footor-е группы я понимаю (через OnGetText). А как мне отследить записи которые попали в тут или иную группу. Например, мне необходимо в каждой группе показать (слово «Привет» встретилось 2 раза, слово «Пока» 3 раза в столбце 1). Но как посчитать эти 2 и 3 раза в рамках группы, а не всей таблицы?

Автор: andreybear
Дата сообщения: 20.03.2012 05:27
mdid
Czechoslovak
Спасибо за помощь, сделал так, как описал в предыдущем посте.
Автор: mdid
Дата сообщения: 20.03.2012 10:53
simplecs
у вас же идет группировка по какому то признаку..отфильтруйте количество по этому признаку и будет вам счастье..
Автор: simplecs
Дата сообщения: 20.03.2012 12:40
mdid
Да, но для этого мне необходимо фильтровать данные не по всей таблицы а только впределах каждой из групп (т.е. знать где начинается каждая группа а где заканчивается. А я не знаю как?
Автор: mdid
Дата сообщения: 20.03.2012 12:51
simplecs
к сожалению ответа на этот вопрос я сам не нашел(дет год назад мне это же надо было)...ситуацию решил так..держал какой то MemTable от EhLib(так как он правильно показывает количество отфильтрованного а девовский Mem только общее количество) и там по событию фильтровал...так же можно обычными запросами получать данные....если найдете решение девовскими методами...отпишитесь плиз
Автор: simplecs
Дата сообщения: 20.03.2012 16:34
Здравствуйте! Вопрос по cxgrid.
У меня есть созданный в режиме разработки Summary-> Default For Groups.
Я произвожу для них собственные расчеты. Как мне программно обратиться к Summary для первой группы, второй и т.д. чтобы внести в них расчетные данные. Скажем в Summary для первой группы внести «1а», для Summary второй группы внести «2а» и.т.д. Какое свойство cxgrid за это отвечает?
Спасибо!
Автор: marser
Дата сообщения: 20.03.2012 20:33
simplecs

Цитата:
А как мне отследить записи которые попали в тут или иную группу. Например, мне необходимо в каждой группе показать (слово «Привет» встретилось 2 раза, слово «Пока» 3 раза в столбце 1). Но как посчитать эти 2 и 3 раза в рамках группы, а не всей таблицы?

У TcxCustomGridRecord есть свойство ParentRecord. На практике не проверял, но у меня есть такое предположение.
Допустим, есть три записи Record1, Record2 и Record3, принадлежащие к одной группе. Если сфокусировать на заголовок группы, то DataController.FocusedRecordIndex соответствует, например, записи Record1. При этом Record1.ParentRecord := nil или указывает на рекорд вышестоящей группы, Record2.ParentRecord := Record1 и Record3.ParentRecord := Record1
Автор: simplecs
Дата сообщения: 20.03.2012 20:57
Здравствуйте!
В общем, я тут парил народ с вопросами на прошлых страницах с группировкой. ВСем спасибо за ответы!
Проблему я решил!!! Решение выкладываю. Кому-то покажется элементарным, а кому-то, возможно, будет полезно!
Задача состояла вот в чем: необходимо было в cxgrid при проведении группировки , по нажатию на кнопку заменять исходный Summary – который считается в cxgrid на свой собственный. И рассчитывать его по каждой группе. К посту прикладываю пример, в котором данные группируются, а после щелчка по кнопке, программа считает по каждой группе среднее значение по столбцу 1 и умножает его для прикола на 100. Заметьте, что среднее я считаю сам, без всяких встроенных функций. Аналогично считаются и все прочие суммы разности и т.д. в т.ч. сколько раз встречается то или иное слово!!!

Надеюсь, кому-то это будет полезно. Так как сам просидел не один день!
Всем спасибо и удачи!

Ссылка на файл примера: http://ifolder.ru/29416787


[more=Текст программы (если ссылка загнется)..]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
cxStyles, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter,
cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, StdCtrls;

type
TForm1 = class(TForm)
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
cxGrid1DBTableView1Col1: TcxGridDBColumn;
cxGrid1DBTableView1Col2: TcxGridDBColumn;
cxGrid1DBTableView1Col3: TcxGridDBColumn;
cxGrid1DBTableView1Col4: TcxGridDBColumn;
cxGrid1DBTableView1Col5: TcxGridDBColumn;
cxGrid1DBTableView1Col6: TcxGridDBColumn;
cxGrid1DBTableView1Col7: TcxGridDBColumn;
cxGrid1DBTableView1Col8: TcxGridDBColumn;
cxGrid1DBTableView1Col9: TcxGridDBColumn;
cxGrid1DBTableView1Col10: TcxGridDBColumn;
cxGrid1DBTableView1Col11: TcxGridDBColumn;
cxGrid1DBTableView1Col12: TcxGridDBColumn;
cxGrid1DBTableView1Col13: TcxGridDBColumn;
cxGrid1DBTableView1Col14: TcxGridDBColumn;
cxGrid1DBTableView1Col15: TcxGridDBColumn;
cxGrid1DBTableView1Col16: TcxGridDBColumn;
cxGrid1DBTableView1Col17: TcxGridDBColumn;
cxGrid1DBTableView1Col18: TcxGridDBColumn;
cxGrid1DBTableView1Col19: TcxGridDBColumn;
cxGrid1DBTableView1Col20: TcxGridDBColumn;
cxGrid1DBTableView1Col21: TcxGridDBColumn;
cxGrid1DBTableView1Col22: TcxGridDBColumn;
cxGrid1DBTableView1Col23: TcxGridDBColumn;
cxGrid1DBTableView1Col24: TcxGridDBColumn;
cxGrid1DBTableView1Col25: TcxGridDBColumn;
cxGrid1DBTableView1Col26: TcxGridDBColumn;
cxGrid1DBTableView1Col27: TcxGridDBColumn;
cxGrid1DBTableView1Col28: TcxGridDBColumn;
cxGrid1DBTableView1Col29: TcxGridDBColumn;
cxGrid1DBTableView1Col30: TcxGridDBColumn;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
a:string;
Form1: TForm1;
function CalculateGroupAverage(ADataGroupIndex: TcxDataGroupIndex):Single ;
procedure MyAfterSummary;

implementation

{$R *.dfm}

procedure MyAfterSummary;
var
AChildDataGroupsCount: Integer;
AChildDataGroupIndex, AParentDataGroupIndex: TcxDataGroupIndex;
AChildPosition: Integer;
begin
AParentDataGroupIndex := -1;
with form1.cxGrid1DBTableView1.DataController.Groups do
begin
AChildDataGroupsCount := ChildCount[AParentDataGroupIndex];
for AChildPosition := 0 to AChildDataGroupsCount - 1 do
begin
AChildDataGroupIndex := ChildDataGroupIndex[AParentDataGroupIndex, AChildPosition];

form1.cxGrid1DBTableView1.DataController.Summary.GroupSummaryValues[AChildPosition,0]:='Считаем среднее и умножаем его на 100: '+floattostr (CalculateGroupAverage(AChildDataGroupIndex));

end;
end;
end;


function CalculateGroupAverage(ADataGroupIndex: TcxDataGroupIndex):Single ;
var
AList: TList;
AGroupIndex, I,K, AIndex: Integer;
S: integer ;
begin
AList := TList.Create;
AGroupIndex:=ADataGroupIndex;
form1.cxGrid1DBTableView1.DataController.Groups.LoadRecordIndexes(AList, AGroupIndex);
for I := 0 to AList.Count - 1 do
begin
S := strtoint(form1.cxGrid1DBTableView1.DataController.Values[integer(AList[i]),1]);
k:=K+S;
end;
Result:=100*K/(AList.Count)
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
MyAfterSummary;
end;



end.
[/more]






Автор: mdid
Дата сообщения: 22.03.2012 17:22
есть грид и тип колонки TcxEditButtons со стилем vsButtonsOnly...как заставить грид не прятать кнопки? а то при потере фокуса кнопка исчезает?
Автор: neznayka3
Дата сообщения: 22.03.2012 17:22
В TdxBarEdit TcxBarEditItem не работает ONChange, текст пропадает после потери фокуса.
Автор: mdid
Дата сообщения: 22.03.2012 17:36
neznayka3
это уже обсасывалось..код в OnCurChange
EditValue:=CurEditValue;
Автор: X11
Дата сообщения: 22.03.2012 17:52

Цитата:
есть грид и тип колонки TcxEditButtons со стилем vsButtonsOnly...как заставить грид не прятать кнопки? а то при потере фокуса кнопка исчезает?


У колонки см. свойство Options.ShowEditButtons
Автор: k94kwk1
Дата сообщения: 22.03.2012 22:13
[more] [more] Здравствуйте!
Вот я протестировал БД на следующее: допустим я редактирую в cxgrid какую-нить запись. Вношу значение, а потом сразу после его ввода заглядываю в БД а его там нет. Только после того, как перейду на другую запись – это значения появляется в БД. Мне же необходимо чтобы значение в БД обновлялось сразу же после его ввода так как от значения этой ячейки у меня могут зависеть другие, находящихся в той же записи, расчет которых идет сразу же после обновления первой при помощи SQL запроса. Единственный вариант, который получился это:
cxGrid1DBTableView1.BeginUpdate;
cxGrid1DBTableView1.DataController.Post;
cxGrid1DBTableView1.EndUpdate;
Но если я правильно понимаю то при выполнении «.Post»; - идет перезаписываание всех данных а не ТОЛЬКО выбранной записи (я кстати прав или нет)? Что занимает1-2 сек. А это долговато для меня. Мне бы сохранить в БД только то что было изменено.

Я пробовал также TcxCustomDateEdit(sender).PostEditValue – но в БД данные опять появляются только при перемещении записи, а мне необходимо сразу же.
Есть ли идеи?

И второй маленький вопрос : во многих repository items есть свйоство ImmediatePost – вот как по названию оно должно отвечать за сохранение данных в БД сразу же….но что-то этого не происходит…..
[/more]

Здравствуйте!
Вот я протестировал БД на следующее: допустим я редактирую в cxgrid какую-нить запись. Вношу значение, а потом сразу после его ввода заглядываю в БД а его там нет. Только после того, как перейду на другую запись – это значения появляется в БД. Мне же необходимо чтобы значение в БД обновлялось сразу же после его ввода так как от значения этой ячейки у меня могут зависеть другие, находящихся в той же записи, расчет которых идет сразу же после обновления первой при помощи SQL запроса. Единственный вариант, который получился это:
cxGrid1DBTableView1.BeginUpdate;
cxGrid1DBTableView1.DataController.Post;
cxGrid1DBTableView1.EndUpdate;
Но если я правильно понимаю то при выполнении «.Post»; - идет перезаписываание всех данных а не ТОЛЬКО выбранной записи (я кстати прав или нет)? Что занимает1-2 сек. А это долговато для меня. Мне бы сохранить в БД только то что было изменено.

Я пробовал также TcxCustomDateEdit(sender).PostEditValue – но в БД данные опять появляются только при перемещении записи, а мне необходимо сразу же.
Есть ли идеи?

И второй маленький вопрос : во многих repository items есть свйоство ImmediatePost – вот как по названию оно должно отвечать за сохранение данных в БД сразу же….но что-то этого не происходит…..
[/more]
Автор: andreybear
Дата сообщения: 23.03.2012 04:24
k94kwk1

Цитата:
Вот я протестировал БД на следующее: допустим я редактирую в cxgrid какую-нить запись. Вношу значение, а потом сразу после его ввода заглядываю в БД а его там нет. Только после того, как перейду на другую запись – это значения появляется в БД.

Все правильно, пост производится при переходе на другую запись.

Цитата:
Но если я правильно понимаю то при выполнении «.Post»; - идет перезаписываание всех данных а не ТОЛЬКО выбранной записи (я кстати прав или нет)? Что занимает1-2 сек. А это долговато для меня. Мне бы сохранить в БД только то что было изменено.

Только измененная запись постится. Но 1-2 сек. это долговато!

Цитата:
Есть ли идеи?

У меня подобная задача, обсуждалась чуть выше, в том числе на этой странице.

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

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

Цитата:
И второй маленький вопрос : во многих repository items есть свйоство ImmediatePost – вот как по названию оно должно отвечать за сохранение данных в БД сразу же….но что-то этого не происходит…..

В справке написано:

Цитата:
If the property value is set to True, the editor automatically saves the edited value to the bound field’s Value property as soon as the value has been changed.

Если не ошибаюсь, значение сохраняется в поле набора данных, связанном с редактором, а в БД отправляется после Post.
Автор: k94kwk1
Дата сообщения: 23.03.2012 06:26
andreybear

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



Так оно так! Но мне необходимо посчитать во всей таблице (так как в программе есть итоговая строка) число элементов типа "А", в столбце 1, число элементов типа "Б" в столбце "1" и число элементов типа "С" в столбце "1". Честно говоря не очень представляю себе как это можно сделать на клиенте. Разве что в цикле перебрать все записи, а если их много? Вот я и шарахую сразу после внесения данных в ячейку SQL запрос с аргументами для подсчета числа элементов типа "А", "Б" и "С" в таблице в целом, чтобы пересчитать итоги. Разве можно как-то по другому?

В любом случае спасибо Вам за ответ!
Автор: wasilissk
Дата сообщения: 23.03.2012 07:00
k94kwk1

Цитата:
Но если я правильно понимаю то при выполнении «.Post»; - идет перезаписываание всех данных а не ТОЛЬКО выбранной записи (я кстати прав или нет)? Что занимает1-2 сек. А это долговато для меня. Мне бы сохранить в БД только то что было изменено.

Вы неправильно понимаете, Post записывает только текущие измененные данные в строку. Другое дело, что вы после изменения запрашиваете все данные и начинаете что-то с ними делать. Скорее всего это как раз и занимает 1-2 сек.
Автор: andreybear
Дата сообщения: 23.03.2012 08:33
wasilissk
Согласен.
k94kwk1

Цитата:
Разве что в цикле перебрать все записи, а если их много?

А если низкое качество соединения с сервером?
Я бы использовал событие TcxGridTableSummaryItem.onGetText и там производил необходимые действия.
Можно хотя бы попробовать и сравнить время возвращения данных запросом и время расчета на клиенте.
Автор: k94kwk1
Дата сообщения: 23.03.2012 09:29
andreybear
Согласен с Вами! Буду думать

1. Уважаемый andreybear в своем после на прошлой странице Вы писали:

Цитата:
В справке написано:

Цитата:
If the property value is set to True, the editor automatically saves the edited value to the bound field’s Value property as soon as the value has been changed.

Автор: wasilissk
Дата сообщения: 23.03.2012 09:56
k94kwk1

Цитата:
И еще вопрос - а можно ли после .DataController.Post;
Обновлять в гриде не все данные - что может вызывать задержку при большом количестве данных а только выбранную запись - если я точно знаю что остальные данные не были изменены?

Этот вопрос не имеет никакого отношения к гриду. В гриде ничего не хранится, как вы будете запрашивать данные, зависит от самих этих данных и компонентов доступа.
Автор: Corsairs
Дата сообщения: 23.03.2012 10:06
k94kwk1

Цитата:
Подскажите пож-ста - где вы их берете? Где скачать?

можно с офф. сайта: в формате chm (это самая новая версия на данный момент)
Автор: andreybear
Дата сообщения: 23.03.2012 10:13
k94kwk1
Это цитата из справки к редакторам (ExpressEditors.chm).
Автор: X11
Дата сообщения: 23.03.2012 15:07
У меня вопрос по cxVerticalGrid со строкой типа CheckBox.
Там есть три свойства ValueChecked, ValueUnсhecked и ValueGrayed.
Меня интересует ValueGrayed.

Мне нужно, чтобы если строка программно (в коде) принимает значение (Null), пустое, то переключатель бы был в состоянии Unсhecked (отключен).

Можно ли этот как-то реализовать с помощью свойства ValueGrayed?
Автор: mdid
Дата сообщения: 23.03.2012 15:14
X11
спасибо за прошлый ответ и на ваш вопрос EditProperties.NullStyle в nssUnchecked
Автор: Lena44
Дата сообщения: 24.03.2012 13:14
Подскажите, пожалуйста, как в гриде DevExpress организовать объединенные заголовки для отдельных колонок и на разных уровнях? На рисунке примеры объединения обведены красной рамкой. Спасибо.
http://img444.imageshack.us/img444/4350/gif1zh.gif
Автор: X11
Дата сообщения: 24.03.2012 13:23
cxGridBandedTableView

Добавлено:
Вам нужно зайти в настройки грида, удалить обычный грид и создать GridBandedTableView
Автор: Lena44
Дата сообщения: 24.03.2012 14:08

Цитата:
cxGridBandedTableView


Спасибо, попробую.

Еще такой вопрос. У TMS грида есть свойство сколько столбцов будут непрокручиваемыми, все остальные будут прокручиваться нижним скроллбаром вправо-влево. Это позволяет просматривать длинный грид по горизонтали. Как это сделать у cxGrid?

Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211

Предыдущая тема: Помогите пожалуйста с блокировкой клавиатуры и мышки


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.