Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 04.01.2009
Сообщений: 4
1

Заполнение таблицы

21.03.2009, 16:18. Просмотров 2570. Ответов 0
Метки нет (Все метки)

Здравствуйте! Помогите, пожалуйста, решить проблемку)
Delphi+SQL+ADO
Есть элементы ListBox и CheckListBox. В ListBox отображаются названия факультетов из таблицы Fakyltet, в - CheckListBox - названия кафедр из таблицы Kafedru. Выбираются элементы из ListBox и CheckListBox. После нажатия на кнопку выбранные значения заносятся в третью таблицу (Kod, kod_fakylteta, kod_kafedru). Я смогла это реализовать только для случая, когда выбран один факультет и одна кафедра. А мне необходимо, чтоб выбирался один факультет и несколько кафедр. Как быть в этом случае???

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
 
procedure TForm4.Button1Click(Sender: TObject);
var l, k:integer;
begin
 if (checklistbox1.ItemIndex=-1) and (listbox1.ItemIndex>-1) then
    ShowMessage('Оберіть кафедру!');
 if (listbox1.ItemIndex=-1)and (checklistbox1.ItemIndex>-1) then
    ShowMessage('Оберіть факультет!');
 if (checklistbox1.ItemIndex=-1) and (listbox1.ItemIndex=-1) then
    ShowMessage('Зробіть вибір!');
 k:=0;
 for l := 0 to CheckListBox1.Items.Count - 1 do
  if CheckListBox1.Checked[l] then
   Inc(k);
  if k=1 then
  begin
   Datamodule3.AdoQuery1.Close;
   Datamodule3.AdoQuery1.SQL.Clear;
   Datamodule3.AdoQuery1.SQL.Add('INSERT INTO dop11(kod, kod_kafedru,kod_fakylteta) VALUES (:Prm2,:Prm1, :Prm3);');
   Datamodule3.AdoQuery1.Parameters.ParamByName('Prm1').Value:=integer(ChecklistBox1.Items.Objects[ChecklistBox1.ItemIndex]);
   Datamodule3.AdoQuery1.Parameters.ParamByName('Prm3').Value:=integer(ListBox1.Items.Objects[ListBox1.ItemIndex]);
   Datamodule3.AdoQuery1.Parameters.ParamByName('Prm2').Value:=edit1.Text;
 end;
 if (Datamodule3.AdoQuery1.ExecSQL=1)then
 ShowMessage('Записано');
 FormActivate(Self);
 
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.03.2009, 16:18
Ответы с готовыми решениями:

Заполнение детальной таблицы, не имея мастер таблицы
Здравствуйте. Столкнулся при разработке со следующей проблемой. Пользователь нажимает кнопку...

заполнение таблицы
Есть диапазон номеров билетов 000127-000210. Как внести в таблицу БД(Paradox) эти номера в таком...

Заполнение таблицы
Здравствуйте я заполняю таблицу данными из бд через запрос Query7.SQL.Clear; ...

Заполнение шапки таблицы
Если заполняю названия полей шапки из таблицы из массива в цикле, то потом, при обновлении данных...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.03.2009, 16:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Не сохраняется заполнение таблицы
Запускаю программу, заполняю DBGrid. После закрытия Delphi, то что я заполнила не сохраняется. Мне...

Заполнение таблицы в цикле
Здравствуйте! У меня есть мемтаблица из 10 столбцов. Первый столбец заполняется запросом к бд в...

DBComboBox заполнение из таблицы
Здравствуйте. Занимаюсь разработкой кабельного журнала. При тестировании столкнулся с проблемой,...

Заполнение Combobox из другой таблицы
Здраствуйте, у меня такая проблема нужно заполнять Combobox из другой таблицы и вставит на ADOtable


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.