Выделение записей в DBGrid (многопользовательский вариант )

[Paul Hindenburg]

возникла такая задача: выделение записей пробелом
сделал так: поместил на форму ListBox'ы в них хранил ID строки и в зависимости от того естьли ID в листбоксе крашу сетку. Но здесь есть небольшая проблема - при выборе очень большого количества записей программа начинает "тормозить" - причина мне ясна
вот процедура перерисовки грида

for i := 0 to ListBoxDate.Items.Count - 1 do
    begin
    if (Field.FieldName = 'DATEDOC') and (not (gdFocused in State))
        and
  ( (ListBoxDate.Items.Strings[i] = f_date )
  and (ListBoxNdoc.Items.Strings[i] = f_ndoc)
  and (ListBoxSum.Items.Strings[i] = f_sum )  )
        then Brush.Color := clBlue;
        DBGrid_Nal.DefaultDrawDataCell(Rect,Field,State);
    end;
  end;

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

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

[Stilet]

причина : один пользователь выделил запись , а другой увидит выделение.

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

[Paul Hindenburg]

Stilet
Но ты скажи другое мне - ты ведь полксаешь набор, как другой пользователь может твои изменения увидеть если ты в БД еще не сохранил?

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

и еще раз на счет листбоксов - работает все корректно, но только чем больше записей я выбираю тем медленнее происходит перерисовка строки DBGrid

[Stilet]

один выделил - изменил поле "USER" - второму тоже нужно выделить эту же запись

Ну дык имеется ввиду два момента:
1. Записи не сохраняются про работе
2. Вообще-то преподаватель когда-то признался мне что под подобной фразой имеется ввиду некая а-ля настройка доступа пользователей к наборам.

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

но только чем больше записей я выбираю тем медленнее происходит перерисовка строки

Ну тут нужно в код смотреть. Во первых я бы от ДБГрид отошел ибо он сам по себе достаточно медлен и требует чтоб подключение к набору даныых было активно. а это не есть гут. Лучше получать набор, в цикле по нему проити и вывести все в обычный грид, и закрыть подключение. Отработать все изменения в этом гриде, и потом уж послать их запросом провайдеру.

[Paul Hindenburg]

Ну тут нужно в код смотреть.

на форме 5 листбоксов в них все хранится важное для поиска (раскраска)
Вот код нажатия пробела

procedure TForm1.DBGrid_NalKeyPress(Sender: TObject; var Key: Char);
var
f_date,f_ndoc,f_sum,f_customerId,f_Obrabotano:string;
i:integer;
begin
if Key = chr(vk_space) then
begin

f_date := DataMAIN.SetMain_Import_NalDATEDOC.AsString;
f_ndoc := DataMAIN.SetMain_Import_NalNDOC.AsString;
f_sum := DataMAIN.SetMain_Import_NalSUM.AsString;
f_customerId := DataMAIN.SetMain_Import_NalIDSPR1.AsString;
f_Obrabotano := DataMAIN.SetMain_Import_NalOBRABOTANO.AsString;

for i := 0 to ListBoxDate.Items.Count - 1 do
begin
  if (ListBoxDate.Items.Strings[i] = f_date )
  and (ListBoxNdoc.Items.Strings[i] = f_ndoc)
  and (ListBoxSum.Items.Strings[i] = f_sum )
  and (ListBoxCustomerId.Items.Strings[i] = f_customerId )
  and (ListBoxObrabotano.Items.Strings[i] = f_Obrabotano )
  then
  begin
  ListBoxDate.Items.Delete(i);
  ListBoxNdoc.Items.Delete(i);
  ListBoxSum.Items.Delete(i);
  ListBoxCustomerId.Items.Delete(i);
  ListBoxObrabotano.Items.Delete(i);
Label2.Caption := FloatToStr(CalcListbox(ListBoxSum));
DataMAIN.SetMain_Import_Nal.Next; 
DBGrid_Nal.Refresh;
  exit;
  end;
  
end;
ListBoxDate.Items.Add(f_date);
ListBoxNdoc.Items.Add(f_ndoc);
ListBoxSum.Items.Add(f_sum);
ListBoxCustomerId.Items.Add(f_customerId);
ListBoxObrabotano.Items.Add(f_Obrabotano);
DBGrid_Nal.Refresh;

Label2.Caption := FloatToStr(CalcListbox(ListBoxSum));
DataMAIN.SetMain_Import_Nal.Next;

end;

end;

это прорисовка (раскраска) выбранных записей

procedure TForm1.DBGrid_NalDrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
f_date,f_ndoc,f_sum:string;

i:integer;
begin
  with DBGrid_Nal.Canvas do
  begin
if ((Field.FieldName = 'SUM') or (Field.FieldName = 'NDOC') )and (not (gdFocused in State))
    and (DataMAIN.SetMain_Import_Nal.FieldByName('OBRABOTANO').AsInteger = 1)
    then Brush.Color := clYellow;
    DBGrid_Nal.DefaultDrawDataCell(Rect,Field,State);
f_date := DataMAIN.SetMain_Import_NalDATEDOC.AsString;
f_ndoc := DataMAIN.SetMain_Import_NalNDOC.AsString;
f_sum := DataMAIN.SetMain_Import_NalSUM.AsString;
for i := 0 to ListBoxDate.Items.Count - 1 do
    begin
    if (Field.FieldName = 'DATEDOC') and (not (gdFocused in State))
        and
  ( (ListBoxDate.Items.Strings[i] = f_date )
  and (ListBoxNdoc.Items.Strings[i] = f_ndoc)
  and (ListBoxSum.Items.Strings[i] = f_sum )  )
        then Brush.Color := clBlue;
        DBGrid_Nal.DefaultDrawDataCell(Rect,Field,State);
    end;
  end;
end;

в цикле по нему проити и вывести все в обычный грид,

а циклом не долго ли будет перелопачивать? мне хотябы 300 записей необходимо. под обычным гридом понимается StringGrid ?

[soleil@mmc]

2 Paul Hindenburg
а как вы обрабатываете ситуацию одновременной работы нескольких пользователей над одними и теми же данными (речь даже не про раскраску, а именно про данные)?

[Paul Hindenburg]

Сообщение от soleil@mmc

2 Paul Hindenburg
а как вы обрабатываете ситуацию одновременной работы нескольких пользователей над одними и теми же данными (речь даже не про раскраску, а именно про данные)?

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

[Stilet]

for i := 0 to ListBoxDate.Items.Count - 1 do

Мда... Тут бы стратегию поменять. Я сталкивался с такими фишками как циклы в обработчиках-раскрасках. Другого пожалуй не осмельсю посоветовать.

под обычным гридом понимается StringGrid ?

Да. Ну я на него перешел - пока горя не знаю.

[soleil@mmc]

есть вариант использовать MemoryData
т.е. набор данных из БД копируется в память и работаешь с ним как с обычным набором данных
можно в нем завести фиктивное поле и в нем отмечать любой признак выделения - все работает быстро

[Paul Hindenburg]

Сообщение от soleil@mmc

есть вариант использовать MemoryData
т.е. набор данных из БД копируется в память и работаешь с ним как с обычным набором данных
можно в нем завести фиктивное поле и в нем отмечать любой признак выделения - все работает быстро

можно поподробнее - я в первый раз слышу об этом объекте