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

@Julshine · Регистрация: 04.01.2009

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

Delphi

 
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;

Вернуться к обсуждению:
Заполнение таблицы

Другие темы раздела
Delphi БД тест с регистрацией https://www.cyberforum.ru/ delphi-database/ thread26952.html помогите пожалуйста с тестом, я сделал простенький тест в делфи , но мне теперь нужно сделать так что-бы когда открываешь тест, то нужно было ввести свои данные имя фамилию и они сохранились в какой...	Delphi БД Изменение цвета строк в DBGrid Использую ADOConnection->AdoQuery->DataSource->DBGrid Необходимо изменить цвет строк и шрифта в определенных строках Использую событие: procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const...
как добавить новые данные Delphi БД доброе время суток всем!!! Создал базу данных в Delphi с помощью Access. Все работает отлично. Одна проблема можно ли добовлять через DBEdit новую строку данных? Удалять, редактировать получается а...	Delphi БД Создание кнопок при пополнении БД Есть ьакая проблема. Нужно щоби при добавлении даних в базу автоматически создавались кнопки на форме. Можно ли ето сделать в Delphi. Если да то как и в каком направлении мне искать. Если есть... https://www.cyberforum.ru/ delphi-database/ thread26815.html
Delphi БД Access и Delphi 7 https://www.cyberforum.ru/ delphi-database/ thread26688.html Господа вообщем такая проблема, в аксесе есть база полность работающая, в таблице базы есть поле с ole объектом(картинка)....Если базу просматривать аксесом, то все отлично, картинку видно и ее можно...	Проверка на полноту данных Delphi БД Уже спрашивала в соседней теме - без ответа.. А проблема более чем актуальная. Подскажите, пожалуйста, каким образом сделать проверку внесения данных на форме чтобы кнопке сохранения дать...
Delphi БД Связывание TreeView и ListView совместно с Access Здравствуйте! Пишу программу, по крайней мере, пытаюсь ее писать, но очень много трудностей возникает, надеюсь на вашу помощь. На форме есть TreeView и ListView, также ADOConnection и ADOQuery. и...	Delphi БД Передача данных по параметрам с запроса Мне нужно с 2 таблиц вытянуть по 3 параметрам (счета ЗКПО, МФО и расчетного счета) клиента и тип клиента. Для этого, я поместила запрос с выборкой по параметрам этих 2 переменных (проверяла в... https://www.cyberforum.ru/ delphi-database/ thread26589.html
Delphi БД S.O.S. (не вводит данные в базу) вот исходник https://www.cyberforum.ru/ delphi-database/ thread26551.html unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB; type	Delphi БД Delphi и sql есть 2-форма на 1-ой форме dbgrid в нем данные из sql, на форму 2,в dbgrid хочу вывечти данные из первой формы,но данные будут будут искаться по заданным пораметрам в edit, как это осуществить? https://www.cyberforum.ru/ delphi-database/ thread26457.html