Сохранение из DBLookUpComboBox в БД

@Аннушка23 · Регистрация: 27.05.2018

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

Помогите пожалуйста разобраться!!!!

У меня есть форма, на ней расположены компоненты Edit, DBLookUpComboBox, ComboBox, DateTimePicker.
В поля edit я ввожу данные, в остальных выбираю с помощью списка, и при нажатии на кнопку, данные должны сохраняться в БД Access.
Возникают ошибки: [Hint] Unit25.pas(177): Value assigned to 'tip_doz' never used,
[Hint] Unit25.pas(175): Value assigned to 'dolgn' never used, [Hint] Unit25.pas(174): Value assigned to 'podr' never used,
[Hint] Unit25.pas(168): Value assigned to 'dr' never used,
[Hint] Unit25.pas(148): Variable 'pol' is declared but never used in 'TForm25.BitBtn1Click'.

Прилагаю код:

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
        var
    fio:string;
    pol:string;
    dr:TDateTime;
    doc_ser:string;
    doc_nom:string;
    ss_nom:string;
    nom_kart:string;
    podr:integer;
    dolgn:integer;
    CatPers:string;
    Person_ID:string;
    tip_doz:integer;
    nom_doz:string;
    begin
    Form25.ADOQuery1.Post;
    fio:=Edit1.Text;
    pol:=ComboBox1.Items;
    dr:=DateTimePicker1.Date;
    doc_ser:=Edit4.Text;
    doc_nom:=Edit5.Text;
    ss_nom:=Edit6.Text;
    nom_kart:=Edit7.Text;
    Person_ID:=Edit8.Text;
    podr:=DBLookupComboBox1.KeyValue;
    dolgn:=DBLookupComboBox3.KeyValue;
    CatPers:=DBLookupComboBox4.KeyValue;
    tip_doz:=DBLookupComboBox2.KeyValue;
    nom_doz:=Edit9.Text;
 
    form25.ADOQuery1.Close;
    form25.ADOQuery1.SQL.Clear;
 
form25.ADOQuery1.SQL.Add('Insert Into PersonKart(Person_ID, fio,  doc_ser,  doc_nom, ss_nom, nom_kart)');
form25.ADOQuery1.SQL.Add('Values ("'+Edit8.Text+'", "'+Edit1.Text+'",   "'+Edit4.Text+'", "'+Edit5.Text+'", "'+Edit6.Text+'", "'+Edit7.Text+'")');
form25.ADOQuery1.Active:=True;
form25.ADOQuery1.ExecSQL;
Form25.ADOQuery1.Refresh;
    form25.ADOQuery1.ExecSQL;
    Form25.ADOQuery1.Refresh;
 
    end;

Так же возникает ошибка, показанная на фото.
Не могу понять как сохранять из DBLookUpCmboBox и ComboBox в бд данные..
Хочу разобраться, что не так и как исправить ошибки, ибо нужно сделать, а плохо понимаю((

С добавлением Edit, вопросов нет (я не стала прикладывать код с описанием их типов и т.д)!

@Аннушка23 · 29.05.2018, 19:36 **[ТС]**

Все же, мне кажется, у меня проблема с бд(
Хотя все связи есть

@Аннушка23 · 29.05.2018, 19:45 **[ТС]**

Уже на этом примере ошибка
Не понимаю, при чем тут Podr, если я его в этом мини-коде не использую

Delphi
1
2
3
4
5
6
ADOQuery1.SQL.Text := 'INSERT INTO  PersonKart(Person_ID, fio) VALUES (:ID,:F)';
ADOQuery1.Parameters.ParamByName('ID').DataType := ftString;
ADOQuery1.Parameters.ParamByName('ID').Value := Edit8.Text;
ADOQuery1.Parameters.ParamByName('F').DataType := ftString;
ADOQuery1.Parameters.ParamByName('F').Value := Edit1.Text;
ADOQuery1.ExecSQL;

@krapotkin · 29.05.2018, 22:27

значит вы в БД установили, что поле podr не может быть NULL и обязано ссылаться на запись из таблицы Podr
это называется внешний ключ
таким образом, это поле является обязательным к заполнению, и не может быть пропущено

мы я чувствую надолго тут. а все потому что хрустальный шар уже не тот...
плохо отгадывает что там у вас в БД

@Аннушка23 · 31.05.2018, 19:06 **[ТС]**

Спасибо большое, буду разбираться с БД

Новые блоги и статьи Все статьи Все блоги /
Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .
Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .

@Аннушка23 0 / 0 / 0 Регистрация: 27.05.2018 Сообщений: 17
	29.05.2018, 19:36 [ТС]
	Все же, мне кажется, у меня проблема с бд( Хотя все связи есть Миниатюры 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	29.05.2018, 22:27
	значит вы в БД установили, что поле podr не может быть NULL и обязано ссылаться на запись из таблицы Podr это называется внешний ключ таким образом, это поле является обязательным к заполнению, и не может быть пропущено мы я чувствую надолго тут. а все потому что хрустальный шар уже не тот... плохо отгадывает что там у вас в БД 1

@Аннушка23 0 / 0 / 0 Регистрация: 27.05.2018 Сообщений: 17
	31.05.2018, 19:06 [ТС]
	Спасибо большое, буду разбираться с БД 0