CheckListBox работа с базой данных

@MiraPurr · Регистрация: 30.05.2017

Студворк — интернет-сервис помощи студентам

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
var i,n:integer;
begin
  ADOQuery1.Close;
   ADOQuery1.Open;
    for i:=0 to  ADOQuery1.RecordCount  do
  BEGIN
       CheckListBox1.Items.Add(ADOQuery1.fieldbyname('pole1').asstring  + '   '+
   ADOQuery1.FieldByName('pole2').AsString );
    ADOQuery1.Next;
  END;
end;

Когда пользователь будет выбирать записи, мне нужно считывать запись только одного поля, например только ту часть которая относиться к pole1. Пока я делаю вот так. Но получаю просто всю строку (т.е. строку состоящую из pole1+pole2)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var i:integer;
a:string;
Field_name:string; 
begin
for i:=0 to CheckListBox1.Items.Count-1 do
 begin
 if CheckListBox1.Checked[i] then
  begin
  Field_name:=CheckListBox1.Items[i]; 
  a:= ADOQuery1.FieldByName(Field_name).AsString; 
  end;
 end;
end;

Как получать только то, что относится к pole1 и возможно ли это вообще?

@qwertehok · 17.12.2019, 15:46

Сообщение от Мудрый Ижик

CheckListBox1.Items.IndexOf(FindDialog1. FindText)

будет искать только по полному наименованию
если нужно так - это отличное решение

Сообщение от Мудрый Ижик

В ActionList добавьте новый Action и для него назначьте ShortCut - Ctrl+F

а глобальные клавиши не мешают?

@Мудрый Ижик · 17.12.2019, 16:07

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

@MiraPurr · 20.12.2019, 09:46 **[ТС]**

Спасибо Вам большое за ответы. А может вы еще подскажите, заполнение checklistbox происходит так:

Delphi
1
2
3
4
5
6
7
  for i:=0 to  ADOQuery1.RecordCount  do
  BEGIN
     CheckListBox1.Items.AddObject(
    ADOQuery1.fieldbyname('pole1').AsString+' '+ADOQuery1.fieldbyname('pole2').AsString,
                 TObject(Length(ADOQuery1.fieldbyname('pole1').AsString)));
    ADOQuery1.Next;
  END;

В базе данных есть еще pole3. Мне надо чтобы если pole3 = 1, то pole1 подсвечивалось любым цветом, или шрифт другой выбирался. А если pole3 не равно 1, то все выгружалось обычно. Подскажите можно ли так сделать? pole3 находиться в базе данных, в cheklistbox оно не появляется

Добавлено через 1 минуту
Спасибо Вам большое за ответы. А может вы еще подскажите, заполнение checklistbox происходит так:

Delphi
1
2
3
4
5
6
7
  for i:=0 to  ADOQuery1.RecordCount  do
  BEGIN
     CheckListBox1.Items.AddObject(
    ADOQuery1.fieldbyname('pole1').AsString+' '+ADOQuery1.fieldbyname('pole2').AsString,
                 TObject(Length(ADOQuery1.fieldbyname('pole1').AsString)));
    ADOQuery1.Next;
  END;

В базе данных есть еще pole3. Мне надо чтобы если pole3 = 1, то pole1 подсвечивалось любым цветом, или шрифт другой выбирался. А если pole3 не равно 1, то все выгружалось обычно. Подскажите можно ли так сделать? pole3 находиться в базе данных, в cheklistbox оно не появляется

@mr-Crocodile · 20.12.2019, 10:08

Сообщение от MiraPurr

Delphi
1
for i:=0 to  ADOQuery1.RecordCount  do

это неверно.
я же тебе уже несколько раз писал в теме - или делай цикл по Not ADOQuery1.EOF
либо, если ты без FOR не можешь жить,то
пиши

Delphi
1
for i:=0 to  ADOQuery1.RecordCount - 1  do

ADOQuery1.RecordCount - 1

Сообщение от MiraPurr

В базе данных есть еще pole3. Мне надо чтобы если pole3 = 1, то pole1 подсвечивалось любым цветом, или шрифт другой выбирался.

так. Что значит - Pole1 подсвечивалось? Где подсвечивалось - в CheckListBox1 ? Так у тебя же там два поля вместе слеплены.
Ты хочешь, чтобы первая половина текста "подсвечивалась", а вторая, где Pole2 - нет? я не уверен, что этот контрол (CheckListBox) умеет такое.

@MiraPurr · 20.12.2019, 10:13 **[ТС]**

Сообщение от mr-Crocodile

ADOQuery1.RecordCount - 1

согласна с вами, даже удивлена, я меняла на верное значение. Почему сейчас пропустила этот момент не знаю

Сообщение от mr-Crocodile

Что значит - Pole1 подсвечивалось? Где подсвечивалось - в CheckListBox1 ? Так у тебя же там два поля вместе слеплены.
Ты хочешь, чтобы первая половина текста "подсвечивалась", а вторая, где Pole2 - нет? я не уверен, что этот контрол (CheckListBox) умеет такое.

Не правильно написала, да, надо чтобы подсвечивалось и pole1 и pole2, но только когда pole3 = 1. И да, подсвечивалось в CheckListBox1. Не важно как подсвечивать, главное чтобы просто выделялось на общем фоне

Нельзя так в CheckListBox сделать?

@mr-Crocodile · 20.12.2019, 10:42

Сообщение от MiraPurr

Нельзя так в CheckListBox сделать?

почему - "нельзя", так можно.

как выделять - нужно повесить свой обработчик события OnDrawItem - посмотри пример на оффсайте

что же касается того, где хранить значение поля Pole3 = 1
то тут есть варианты.
Не самый красивый (костыли), но простой и эффективный - завести динамический массив и туда заносить значение Pole3
при рисовании обращаться к этому массиву и проверять - если там 1 - то рисовать одним стилем/цветом, иначе - обычный вывод.

@MiraPurr · 30.12.2019, 08:52 **[ТС]**

Сообщение от mr-Crocodile

обработчик события OnDrawItem

Добрый день, попыталась создать событие. Но не сказала бы что вышло удачно.
Получилось вот так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
  var da_MyArray : array of integer;
      i:integer; Flags: Longint;
begin
   while not ADOQuery1.eof do begin
  da_MyArray[i]:=  ADOQuery1.fieldbyname('pole3').AsInteger;
   end;
 
   with CheckListBox1 do begin
    if da_MyArray[i] = '1' then
    begin
    Canvas.Brush.Color := $00F9F9F9;
        Canvas.FillRect(Rect);
         Flags := DrawTextBiDiModeFlags(DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);
    if not UseRightToLeftAlignment then
      Inc(Rect.Left, 2)
    else
      Dec(Rect.Right, 2);
    DrawText(Canvas.Handle, Items[Index], Length(Items[Index]), Rect, Flags);
    end;
   end;
 
end;

Может подскажете что делаю не так?( буду очень благодарна за любую мысль

@mr-Crocodile · 30.12.2019, 09:52

Сообщение от MiraPurr

Добрый день, попыталась создать событие. Но не сказала бы что вышло удачно.

Это вышло СОВСЕМ неудачно!

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

Сообщение от MiraPurr

чтобы подсвечивалось и pole1 и pole2, но только когда pole3 = 1

Всё. Для этого нужно
1) заполнить массив один раз и сделать это тогда же, когда ты заполняешь сам CheckListBox
2) в событии Draw Item выводить подсветку, если значение в массиве равно 1 (ничего другого там быть не должно)

Попробуй. если не получится - пиши, разберёмся.

@MiraPurr · 30.12.2019, 11:08 **[ТС]**

Сообщение от mr-Crocodile

2) в событии Draw Item выводить подсветку, если значение в массиве равно 1 (ничего другого там быть не должно)

Спасибо, учла то, что вы написали. Получилось вот так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TFormACTIVITYchoice.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
  var
       Flags: Longint;
begin
 
   if da_MyArray[i] = '1' then
    begin
   with CheckListBox1.Canvas do
     begin
         Brush.Color := clRed;
         FillRect(Rect);
         Font.Color :=clBlack;
        TextOut(Rect.Left, Rect.Top, CheckListBox1.Items[Index]);
      end;
       I:=I+1;
         end
  ELSE
  begin
          with CheckListBox1.Canvas do
     begin
         Brush.Color := clWhite;
         FillRect(Rect);
         Font.Color :=clBlack;
         TextOut(Rect.Left, Rect.Top, CheckListBox1.Items[Index]);
      end;
       I:=I+1;
  end;
end;

Но это работает если не прокручивать список. При прокрутке выделение начинает скакать по разным пунктам и выходит ошибка: "Access violation at address 004095D4 in module 'Project_MainForm.exe'. Read of address 000004FF."
Не подскажите, в чем может быть ошибка?

@northener · 30.12.2019, 11:28

MiraPurr, заполняйте чекбокс так:

Delphi
1
2
3
CheckListBox1.Items.AddObject(
    ADOQuery1.fieldbyname('pole1').AsString+' '+ADOQuery1.fieldbyname('pole2').AsString,
                 TObject(ADOQuery1.fieldbyname('pole3').AsInteger));

Рисуйте так:

Delphi
1
2
3
4
5
6
7
8
9
procedure TFormACTIVITYchoice.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
  var
       Flags: Longint;
begin
 
   if Integer(CheckListBox1.Items.Objects[Index]) = 1 then
    begin
   with CheckListBox1.Canvas do

@krapotkin · 30.12.2019, 11:45

Не по теме:

В рубрике "вредные советы" )))

@mr-Crocodile · 30.12.2019, 11:52

Сообщение от northener

MiraPurr, заполняйте чекбокс так:

нельзя так. у неё в Objects уже сохраняется информация о длине Pole1

Сообщение от MiraPurr

Спасибо, учла то, что вы написали. Получилось вот так

почти правильно.

нужно только вместо I использовать Index

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFormACTIVITYchoice.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
    with CheckListBox1.Canvas do
     begin
        if da_MyArray[Index] = '1' then
             Brush.Color := clRed
        else 
             Brush.Color := clWhite;
         FillRect(Rect);
         Font.Color :=clBlack;
        TextOut(Rect.Left, Rect.Top, CheckListBox1.Items[Index]);
      end;
end;

@MiraPurr · 30.12.2019, 11:56 **[ТС]**

Сообщение от mr-Crocodile

нужно только вместо I использовать Index

Большое спасибо, все работает как надо теперь

@northener · 30.12.2019, 11:59

Сообщение от mr-Crocodile

нельзя так. у неё в Objects уже сохраняется информация о длине Pole1

Нафиг длину поля. Она её не использует.

Сообщение от mr-Crocodile

if da_MyArray[Index]

А что такое da_MyArray?

@MiraPurr · 30.12.2019, 12:52 **[ТС]**

Сообщение от northener

Нафиг длину поля. Она её не использует.

Использую

Сообщение от northener

А что такое da_MyArray?

Массив в который записываются значения из pole3

@Мудрый Ижик · 30.12.2019, 16:00

А никого не смущает некое противоречие?

Delphi
1
2
3
var da_MyArray : array of integer;
...
if da_MyArray[Index] = '1' then

@mr-Crocodile · 30.12.2019, 16:33

Сообщение от Мудрый Ижик

А никого не смущает некое противоречие?

Так наверняка автор топика давно уже исправила эту мелочь.
раз уж

Сообщение от MiraPurr

Большое спасибо, все работает как надо теперь

@northener · 31.12.2019, 02:13

Сообщение от MiraPurr

Использую

В представленном коде ни вижу.

Сообщение от mr-Crocodile

Так наверняка автор топика давно уже исправила эту мелочь.

Не уверен.

Сообщение от mr-Crocodile

нельзя так. у неё в Objects уже сохраняется информация о длине Pole1

Ну что за глупость хранить длину "поля", которую просто можно получить из данных при отрисовке. Достаточно было разделить спецсимволом поле1 и поле2 в записи айтема чеклистбокса.
И кстати для непосвященных таки есть такой спецсимвол, который не бросается в глаза простому пользователю, но прекрасно ловится функциями Pos.
Это #9. Символ табуляции.

Не по теме:

Сообщение от krapotkin

В рубрике "вредные советы"

Надеюсь твоя душа возрадовалась, когда глаза увидели

Сообщение от MiraPurr

А что такое da_MyArray?
Массив в который записываются значения из pole3

:)

@krapotkin · 31.12.2019, 09:50

Сообщение от northener

когда глаза увидели

недостаточно )))))
вот

Delphi
1
TObjectList<TNormalDataClass>

былоб если ...
)

Новые блоги и статьи Все статьи Все блоги /
Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .
Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .

@Мудрый Ижик 32 / 26 / 7 Регистрация: 18.10.2019 Сообщений: 187
	17.12.2019, 16:07
	Так это же переопределение действует только в рамках приложения и не более, так-что ничего не должно мешать, зато комбинация будет работать не только при активном CheckListBox1, что весьма удобно. 0

@krapotkin
	30.12.2019, 11:45
	Не по теме: В рубрике "вредные советы" ))) 0

CheckListBox работа с базой данных

Решение