Связанные комбобоксы

@tonymontana · Регистрация: 08.03.2013

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

Привет!
Помогите пожалуйста.
Нужно сделать чтобы, в Memo1 записывались a,b,c,d,e,f как по отдельным комбобоксам и по комбинациям комбобоксов (т.е. комбобоксы были связанными хотя бы combobox1, combobox1+combobox2, combobox1+combobox3) и все что находилось в базе записывалось столбцом. Значения a,b,с,d,e,f d ,f в таблице повторяются.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ComboBox1: TComboBox;
    ADOQuery1: TADOQuery;
    ADOQuery4: TADOQuery;
    ComboBox2: TComboBox;
    ADOQuery2: TADOQuery;
    ADOQuery2d: TWideStringField;
    ComboBox3: TComboBox;
    ADOQuery3: TADOQuery;
    ADOQuery3a: TWideStringField;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    ADOQuery1e: TWideStringField;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    ADOQuery5: TADOQuery;
    ADOQuery5a: TWideStringField;
    ADOQuery5b: TWideStringField;
    ADOQuery5c: TWideStringField;
    ADOQuery5d: TWideStringField;
    ADOQuery5e: TWideStringField;
    ADOQuery5f: TIntegerField;
    Memo1: TMemo;
    ADOQuery4a: TWideStringField;
    ADOQuery4b: TWideStringField;
    ADOQuery4c: TWideStringField;
    ADOQuery4d: TWideStringField;
    ADOQuery4e: TWideStringField;
    ADOQuery4f: TIntegerField;
    ADOQuery6: TADOQuery;
    ADOQuery6a: TWideStringField;
    ADOQuery6b: TWideStringField;
    ADOQuery6c: TWideStringField;
    ADOQuery6d: TWideStringField;
    ADOQuery6e: TWideStringField;
    ADOQuery6f: TIntegerField;
 
 
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 procedure TForm1.FormCreate(Sender: TObject);
 var
 i,j,k: integer;
 
 begin
 i:=0;
 while i<adoquery1.RecordCount do
 
begin
 combobox1.Items.Add (adoquery1e.AsString);
inc (i);
adoquery1.Next;
end;
 
 j:=0;
 while j<adoquery2.RecordCount do
 
begin
 combobox2.Items.Add (ADOQuery2.FieldByName('d').ASString);
inc (j);
adoquery2.Next;
end;
 
 k:=0;
 while k<adoquery3.RecordCount do
 
begin
 combobox3.Items.Add (adoquery3a.AsString);
inc (k);
adoquery3.Next;
end;
 
 
 
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
  var
  i: Integer;
begin
adoquery4.Parameters.ParamByName('param').Value:=combobox1.Text;
 
adoquery4.Open;
 
memo1.Text:= adoquery4a.AsString +#32 +#32 +#32 + adoquery4b.AsString +#32 +#32 +#32 + adoquery4c.AsString +#32 +#32 +#32 + adoquery4d.AsString +#32 +#32 +#32 + adoquery4e.AsString +#32 +#32 +#32 + adoquery4f.AsString;
for i := 0 to 15 do Memo1.Lines.Add(memo1.Text);
   inc(i);
 adoquery4.Close;
 
end;
 
 procedure TForm1.ComboBox2Change(Sender: TObject);
begin
 adoquery5.Parameters.ParamByName('param').Value:=combobox1.Text;
 adoquery5.Parameters.ParamByName('param1').Value:=combobox2.Text;
 
 adoquery5.Open;
 
memo1.Text:= adoquery5a.AsString +#32 +#32 +#32 + adoquery5b.AsString +#32 +#32 +#32 + adoquery5c.AsString +#32 +#32 +#32 + adoquery5d.AsString +#32 +#32 +#32 + adoquery5e.AsString +#32 +#32 +#32 + adoquery5f.AsString;
 
   adoquery5.Close;
 
 
end;
 
 
procedure TForm1.ComboBox3Change(Sender: TObject);
begin
  adoquery6.Parameters.ParamByName('param').Value:=combobox1.Text;
 adoquery6.Parameters.ParamByName('param2').Value:=combobox3.Text;
 
 adoquery6.Open;
 
memo1.Text:= adoquery6a.AsString +#32 +#32 +#32 + adoquery6b.AsString +#32 +#32 +#32 + adoquery6c.AsString +#32 +#32 +#32 + adoquery6d.AsString +#32 +#32 +#32 + adoquery5e.AsString +#32 +#32 +#32 + adoquery6f.AsString;
 
   adoquery6.Close;
end;
 
end.

Запросы:
ADOQuery1 - select distinct e from R1
ADOQuery2 - select distinct d from R1
ADOQuery3 - select distinct a from R1
ADOQuery4 - select a, b,c,d,e,f from R1 where e =param
ADOQuery5 - select a, b,c,d,e,f from R1 where e =param and d =param1
ADOQuery6 - select a, b,c,d,e,f from R1 where e =param and a =param2

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

Пытаюсь записать в столбец, но это неправильно, как сделать?

Delphi
1
for i := 0 to 15 do Memo1.Lines.Add(memo1.Text);

@rdama · 13.03.2013, 07:49

Не по теме:

Странная задача какая-то. Еще и не понятно что в конце должно получиться.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@rdama
	13.03.2013, 07:49
	Не по теме: Странная задача какая-то. Еще и не понятно что в конце должно получиться. 0