Добавление записей в таблицу из CheckListBox

@mosczar · Регистрация: 21.03.2016

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

На форме расположены 4 dbcomboboxeh и 2 checklistbox
Как добавить все записи в таблицу, где бы присутствовали все значения из checklistbox1 и checklistbox2
Я так понимаю если выбрано 2 значения в checklistbox1 и 3 значения в checklistbox2, должно получится 6 записей в таблице, где dbcomboboxEhЫ имели б одинаковые значения полей

@krapotkin · 23.10.2019, 07:16

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

А по поводу только последних выделенных записей в CLBox? While do?

я уже сказал

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

никто не видит ваш кот...

что сложного воспользоваться отладчиком и вручную пройти все эти 10 строк?
вы точно будете знать, какие значения пишутся в таблицу

@mosczar · 23.10.2019, 08:16 **[ТС]**

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
Var
I,j,ID, Right: integer;
Begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'INSERT INTO Запросы ("Пользователь", "Право") VALUES (:Пользователь,:Право)';
ADOQuery1.Parameters.ParamByName('Пользователь').DataType := ftInteger;
ADOQuery1.Parameters.ParamByName('Право').DataType := ftString;
 
for i:=0 clBox1.items.Count-1 do
begin
  if clBox1.Checked[i] then
  begin
    for j:=0 to clBox2.Items.Count-1 do
    begin
      if clBox2.Checked[j] then
        ID := Integer(clBox1.Items.Objects(clBox1.ItemIndex));
        ADOQuery1.Parameters.ParamByName('Пользователь').Value := ID;
        Right := Integer(clBox2.Items.Objects(clBox2.ItemIndex));
        ADOQuery1.Parameters.ParamByName('Право').Value := Rght;
        ADOQuery1.ExecSQL;
      end;
    end;
  end;
end;

Если выбрать допусти 2 пользователей и 3 права, добавляется 6 записей, но дублирующих, тоесть записи с последним выделенным Пользователем и последним выделенным Право.

@krapotkin · 23.10.2019, 08:20

1. оно и компилироваться не должно по моим скромным понятиям

Delphi
1
Integer(clBox1.Items.Objects(clBox1.ItemIndex));

это совсем не то же что

Delphi
1
Integer(clBox1.Items.Objects[clBox1.ItemIndex]);

2. а при чем тут вообще ItemIndex ??
мы хотим с выделенной строкой поработать или все-таки со всеми по очереди???
3. даже если красиво лесенкой написать

Delphi
1
2
3
4
if (aaa) then
   bbb();
   ccc();
   ddd();

то ссс и ddd будут все равно выполняться всегда
))

@mosczar · 23.10.2019, 10:45 **[ТС]**

Поспешил со скобками. Помогите допилить код

@mosczar · 23.10.2019, 23:47 **[ТС]**

Спасибо всем за помощь! Крапоткин, тебе отдельная благодарность - Спасибо!!!

Получилась таблица из поста 7. Вопрос: можно ли в DBGridEh вывести не отдельными записями эти строки, а представить в виде одной строки:

Пользователи Права

1,2,4—————25,36

@mosczar · 26.10.2019, 17:23 **[ТС]**

Всем спасибо

Новые блоги и статьи Все статьи Все блоги /
[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .

@mosczar 0 / 0 / 0 Регистрация: 21.03.2016 Сообщений: 102

	MS SQL Добавление записей в таблицу из CheckListBox 20.10.2019, 21:03. Показов 3829. Ответов 25 Метки нет (Все метки) На форме расположены 4 dbcomboboxeh и 2 checklistbox Как добавить все записи в таблицу, где бы присутствовали все значения из checklistbox1 и checklistbox2 Я так понимаю если выбрано 2 значения в checklistbox1 и 3 значения в checklistbox2, должно получится 6 записей в таблице, где dbcomboboxEhЫ имели б одинаковые значения полей 0

@mosczar 0 / 0 / 0 Регистрация: 21.03.2016 Сообщений: 102
	23.10.2019, 10:45 [ТС]
	Поспешил со скобками. Помогите допилить код 0

@mosczar 0 / 0 / 0 Регистрация: 21.03.2016 Сообщений: 102
	26.10.2019, 17:23 [ТС]
	Всем спасибо 0

Опции темы