Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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
0 / 0 / 0
Регистрация: 04.01.2009
Сообщений: 4
0

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

21.03.2009, 16:18. Просмотров 2574. Ответов 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.