CheckBox в DbGrideh

[leroy]

Всем Добрый вечер.
Cтолкнулся с проблемой.Перечитал все Форумы (и этот в том числе), но чего-то туплю, ничего работающего не нашёл. Помогите плиззз.
Вопрос:
Можно ли создать 1 колонку, чтобы выбирать строки по своему желанию (через чекбоксы)?

П.С.
1)создал колонку в Базе(мсскл - cast(0 as bit) as Perech), поместил в АДО, поместил в грид

AutoEdit:=True;
ReadOnly:=False; (и в гриде, и в АДО)
CheckBox:=True;

Появляется возможность менять состояние, но чуть захочу убрать выделение, пропадает значение Чекбокса.
2) Если создать колонку в Гриде без подвязки к АДО, то ничего не могу выбрать.

[Прик]

Мудрить здесь особо нечего. DBGridEh вполне самостоятельно разберется показывать CheckBox в ячейках или нет.
Для этого колонка в таблице БД должна быть типа bit. И этого достаточно.

создал колонку в Базе(мсскл - cast(0 as bit) as Perech)

Мягко говоря, необычный способ создания колонки в БД. Любые колонки создаются указанием ее имени и типа данных. Зачем здесь функция CAST, которая не шибко коррелируется с процессом создания колонки в таблице базы данных?.

Типичное соединение сетки с БД:
ADOConnection (строка соединения с нужной БД) -> ADOQuery (ADODataSet, ADOTable) -> DataSource -> DBGridEh (DBGrid).

[leroy]

Сообщение от Прик

Мудрить здесь особо нечего. DBGridEh вполне самостоятельно разберется показывать CheckBox в ячейках или нет.
Для этого колонка в таблице БД должна быть типа bit. И этого достаточно.

создал колонку в Базе(мсскл - cast(0 as bit) as Perech)

Мягко говоря, необычный способ создания колонки в БД. Любые колонки создаются указанием ее имени и типа данных. Зачем здесь функция CAST, которая не шибко коррелируется с процессом создания колонки в таблице базы данных?.

Типичное соединение сетки с БД:
ADOConnection (строка соединения с нужной БД) -> ADOQuery (ADODataSet, ADOTable) -> DataSource -> DBGridEh (DBGrid).

Прости, не правильно сказано:
Создан Запрос, много колонок... и одна из них такова.

Select JurnalDogovorov.nomerDogovora, бла бла бла PerNed.nomerDogovora, BazaKlientov.SokrNazvLP,Peres =CAST(Null as Bit)

Вот если её использовать (эту колонку) - Значения могу менять (только в значение True),но оно отображается только до тех пор пока не переключу на другую запись. (соответственно несколько записей выбрать не могу).

[Прик]

На странице в разделе "КАК ОТМЕТИТЬ НЕСКОЛЬКО СТРОК ИЛИ "НЕ MultiSelect'ОМ ЕДИНЫМ..."" решение проблемы.
А запросом этого не сделать.

[leroy]

Сообщение от Прик

На странице в разделе "КАК ОТМЕТИТЬ НЕСКОЛЬКО СТРОК ИЛИ "НЕ MultiSelect'ОМ ЕДИНЫМ..."" решение проблемы.
А запросом этого не сделать.

Не работает. Можете ещё посоветовать? или сбросьте пример рабочего проекта?

[Прик]

Работающий тестовый проект. Кое-что пришлось подрихтовать, но по несущественной мелочи.
Чекбоксы выглядят отвратно, но их можно рисовать как хочется, а не только функцией DrawFrameControl.
Запускался в D7 и D2010.

[leroy]

Сообщение от Прик

Работающий тестовый проект. Кое-что пришлось подрихтовать, но по несущественной мелочи.
Чекбоксы выглядят отвратно, но их можно рисовать как хочется, а не только функцией DrawFrameControl.
Запускался в D7 и D2010.

Я очень очень благодарен. Спасибо огромное.

[xxbesoxx]

Сообщение от Прик

Работающий тестовый проект. Кое-что пришлось подрихтовать, но по несущественной мелочи.
Чекбоксы выглядят отвратно, но их можно рисовать как хочется, а не только функцией DrawFrameControl.
Запускался в D7 и D2010.

Спасибо, очень красиво да визуальные вид. Но как Удалить или копировать строки который отмечали ???

[Прик]

В компоненте с именем ListSelect (TList) содержатся значения идентификаторов строк, которые были отмечены (в таблице это поле имеет наименование "ID").
Используя запомненные в ListSelect значения, можно манипулировать записями таблицы.
Удалять, например, можно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
  S : string;
begin
  S := '';
  for I := 0 to ListSelect.Count-1 do
    S := S + IntToStr(Integer(ListSelect.Items[I]))+',';
  if S = '' then Exit;
  S := '('+Copy(S, 1, Length(S)-1)+')';
  ADOQuery2.SQL.Text := 'delete from test where ID in ' + S;
  ADOQuery2.ExecSQL;
  
  ADOQuery1.DisableControls;
  ADOQuery1.Close;
  ADOQuery1.Open;
  ADOQuery1.EnableControls;
end;

Что значит копировать - непонятно. Прежде всего надо бы знать КУДА копировать и КАКИЕ поля.

[xxbesoxx]

Сообщение от Прик

В компоненте с именем ListSelect (TList) содержатся значения идентификаторов строк, которые были отмечены (в таблице это поле имеет наименование "ID").
Используя запомненные в ListSelect значения, можно манипулировать записями таблицы.
Удалять, например, можно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
  S : string;
begin
  S := '';
  for I := 0 to ListSelect.Count-1 do
    S := S + IntToStr(Integer(ListSelect.Items[I]))+',';
  if S = '' then Exit;
  S := '('+Copy(S, 1, Length(S)-1)+')';
  ADOQuery2.SQL.Text := 'delete from test where ID in ' + S;
  ADOQuery2.ExecSQL;
  
  ADOQuery1.DisableControls;
  ADOQuery1.Close;
  ADOQuery1.Open;
  ADOQuery1.EnableControls;
end;

Что значит копировать - непонятно. Прежде всего надо бы знать КУДА копировать и КАКИЕ поля.

Прошу прошения . 1. Запрос на Удаление запись не работает 2. Копировать я имел ввиду на пример проекте tab1 и tab2 отметил несколько запись на tab1 и хочу копировать на tab2.
Мне нравится ваши пример, но хочу что у него бил реальный смысл и не только визуальные.