Сохранение данных в таблицу

@POVT · Регистрация: 10.07.2014

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

Не могу понять в чем дело( Почему-то при нажатии кнопки "сохранить" программа все записывает правильно, кроме поля ФИО. Записывает почему-то вообще то пустое значение ФИО в таблицу
код добавления

Delphi

procedure TForm2.Button33Click(Sender: TObject);
  begin
    DataModule3.ADOTable2.Append;
    DataModule3.ADOTable2.FieldByName('FIO').AsString:= Edit1.Text;
    DataModule3.ADOTable2.FieldByName('Id_gruppa').AsInteger:=Integer(Combobox1.Items.Objects[Combobox1.ItemIndex]);
    DataModule3.ADOTable2.FieldByName('Samochuv').AsFloat:=v1;
    DataModule3.ADOTable2.FieldByName('Activ').AsFloat:=v2;
    DataModule3.ADOTable2.FieldByName('Nastroenie').AsFloat:=v3;
    DataModule3.ADOTable2.FieldByName('Obshie').AsFloat:=v4;
    DataModule3.ADOTable2.FieldByName('Id_pol').AsInteger:=Integer(Combobox2.Items.Objects[Combobox2.ItemIndex]);
    DataModule3.ADOTable2.post;

@POVT · 16.10.2014, 16:20 **[ТС]**

Доцент,

Сообщение от Доцент

Можно спросить это вы в институте учитесь или сами для себя?

В институте на втором курсе. Но БД мы еще не проходим. Это для себя. Тренируюсь

Сообщение от Доцент

почему не использовать нормальынй грид?

Вы имеете ввиду вместо лист бокса использовать? Я видимо выше опеталась. Я использую листбокс. В лист бокс выводятся данные

@Доцент · 16.10.2014, 16:21

если я делаю заполнение комбобоксов на создание формы, ТО комбобокс выбрасывает список групп только один раз

Это не так)

Добавлено через 30 секунд
почему имено в листбокс?

@POVT · 16.10.2014, 16:22 **[ТС]**

Доцент,

Сообщение от Доцент

почему имено в листбокс?

потому что захотела) если честно, другие варианты даже не расматривала

@Доцент · 16.10.2014, 16:25

Всё понятно и ещё вопрос вы хотите делать на основе SQL запросов? или же достаточно накидать всё на компонентах?

@POVT · 16.10.2014, 16:27 **[ТС]**

Доцент,

Сообщение от Доцент

Это не так)

Ну как не так-то, когда так(

Сообщение от Доцент

Всё понятно и ещё вопрос вы хотите делать на основе SQL запросов? или же достаточно накидать всё на компонентах?

на основе SQL

@Доцент · 16.10.2014, 16:29

Ок, н оваша реализация гибридна вы используете как таблицы в дизайнере так и скл, лучше выбирать какойто один подход.

Смотрите!
Давайте я в виде единственого исключения повытягияваю из вас клещами ещё больше информации, которую вы и так должны были уже написать...
Что это за форма? когда и как она вызывается?

@POVT · 16.10.2014, 16:33 **[ТС]**

Доцент,

Сообщение от Доцент

Что это за форма? когда и как она вызывается?

Это форма 7. Вызывается, когда я на форме 1, на вкладке тестирование нажимаю анализ тестирования

@Доцент · 16.10.2014, 16:45

Ну сразу советую все элементы называть осмыслено когда в проекте около 50 юнитом (форм) если 2 недели не заниматсяпроект потом хрен вспомнить что есть что. также и с другими элементами типо эдит и тд и тп.

Теперь смотрите, закоментирывайте весь ваш код и делайте следующее будем потихоньку делать)

Вы говорите что както не так работают комбобоксы

ок)

Лучше кинуть отдельно на эту форму ADOQuery и подключить его к коннекшену что лежит на DataModule
Нажимайте на эту вашу форму7 в дизайнере в инспекторе обьекта переходите на закладку евенты и ищите метод OnShow! Как найдёте тыкайте два раза и внутри пишите

Delphi

ADOQuery1.SQL.Close;
ADOQuery1.SQL.Text:='ЗАПРОС ДЛЯ ВЫБОРКИ ГРУПП';
ADOQuery1.open;
 ComboBox2.Items.Clear;
ADOQuery1.First;
  while (not ADOQuery1.Eof)  do
   begin
ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
ComboBox2.Items.Add(ADOQuery1.Fields[0].AsString);
 ADOQuery1.Next;
   end;

Добавлено через 2 минуты
Да и было замечательно структуру ваше базы увидеть)

@POVT · 16.10.2014, 17:02 **[ТС]**

Доцент,

Сообщение от Доцент

Код Delphi
1
2
3
4
5
6
7
8
9
10
11
ADOQuery1.SQL.Close;
ADOQuery1.SQL.Text:='ЗАПРОС ДЛЯ ВЫБОРКИ ГРУПП';
ADOQuery1.open;
*ComboBox2.Items.Clear;
ADOQuery1.First;
* while (not ADOQuery1.Eof) *do
* *begin
ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
ComboBox2.Items.Add(ADOQuery1.Fields[0].AsString);
*ADOQuery1.Next;
* *end;

Сделала. Теперь кнопка не работает. После нажатия на кнопку ничего не просходит

структура базы

@Доцент · 16.10.2014, 17:05

Ага баз составлена более менее норм)
Так там код закоментирован, чо там происходить должно? Теперь проверте у вас выпадющий список есть ?или Всё таки случилось чудо и его нет как вы говорили

@POVT · 16.10.2014, 17:08 **[ТС]**

Доцент,

Сообщение от Доцент

Так там код закоментирован, чо там происходить должно?

кнопку я не закоментировала)

Сообщение от Доцент

Теперь проверте у вас выпадющий список есть ?

Список чудесным образом заработал) И не пропадает каждый раз, как это было у меня

@Доцент · 16.10.2014, 17:19

ну чудо номер раз

Я правильно понял оба списка должны содержать списки групп?

@POVT · 16.10.2014, 17:43 **[ТС]**

Доцент, да, правильно.

Добавлено через 19 минут
Доцент, а как теперь кнопку в порядок привести ?

@Доцент · 16.10.2014, 17:53

База у вас извиняюсь Го*но там джойны специфичные чуть чут ьпопоже напишу

@POVT · 16.10.2014, 17:57 **[ТС]**

Доцент, все у меня нормально с базой ) жду

@Доцент · 16.10.2014, 18:46

Акцес как база фуфло, там синтаксис с джойнами специфичный, под рукой нет работающего примера пока

@POVT · 16.10.2014, 19:01 **[ТС]**

Доцент, ну у меня кнопка заработала. Но странно. У меня список выкатывается в КБ: (допустим) ПОВТ-11, АСУ-26.... Если я выбираю ПОВТ-11 и нажимаю на кнопку, то в лист бокс ничего не выводится. Если я выберу АСУ-26, то лист бокс заполнится значениям из ПОВТ-11. И так со всеми группами

Добавлено через 43 секунды
Доцент, как можно поправить?

@Доцент · 17.10.2014, 12:38

Смотри результат запроса, что возвращает

@POVT 1 / 1 / 0 Регистрация: 10.07.2014 Сообщений: 240
	16.10.2014, 16:20 [ТС]	61
	Доцент, Сообщение от Доцент Можно спросить это вы в институте учитесь или сами для себя? В институте на втором курсе. Но БД мы еще не проходим. Это для себя. Тренируюсь Сообщение от Доцент почему не использовать нормальынй грид? Вы имеете ввиду вместо лист бокса использовать? Я видимо выше опеталась. Я использую листбокс. В лист бокс выводятся данные 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 16:21	62
	если я делаю заполнение комбобоксов на создание формы, ТО комбобокс выбрасывает список групп только один раз Это не так) Добавлено через 30 секунд почему имено в листбокс? 0

@POVT 1 / 1 / 0 Регистрация: 10.07.2014 Сообщений: 240
	16.10.2014, 16:22 [ТС]	63
	Доцент, Сообщение от Доцент почему имено в листбокс? потому что захотела) если честно, другие варианты даже не расматривала 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 16:25	64
	Всё понятно и ещё вопрос вы хотите делать на основе SQL запросов? или же достаточно накидать всё на компонентах? 0

@POVT 1 / 1 / 0 Регистрация: 10.07.2014 Сообщений: 240
	16.10.2014, 16:27 [ТС]	65
	Доцент, Сообщение от Доцент Это не так) Ну как не так-то, когда так( Сообщение от Доцент Всё понятно и ещё вопрос вы хотите делать на основе SQL запросов? или же достаточно накидать всё на компонентах? на основе SQL 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 16:29	66
	Ок, н оваша реализация гибридна вы используете как таблицы в дизайнере так и скл, лучше выбирать какойто один подход. Смотрите! Давайте я в виде единственого исключения повытягияваю из вас клещами ещё больше информации, которую вы и так должны были уже написать... Что это за форма? когда и как она вызывается? 0

@POVT 1 / 1 / 0 Регистрация: 10.07.2014 Сообщений: 240
	16.10.2014, 16:33 [ТС]	67
	Доцент, Сообщение от Доцент Что это за форма? когда и как она вызывается? Это форма 7. Вызывается, когда я на форме 1, на вкладке тестирование нажимаю анализ тестирования Миниатюры 0

@POVT 1 / 1 / 0 Регистрация: 10.07.2014 Сообщений: 240
	16.10.2014, 17:02 [ТС]	69
	Доцент, Сообщение от Доцент Код Delphi 1 2 3 4 5 6 7 8 9 10 11 ADOQuery1.SQL.Close; ADOQuery1.SQL.Text:='ЗАПРОС ДЛЯ ВЫБОРКИ ГРУПП'; ADOQuery1.open; ComboBox2.Items.Clear; ADOQuery1.First; while (not ADOQuery1.Eof) do begin ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString); ComboBox2.Items.Add(ADOQuery1.Fields[0].AsString); ADOQuery1.Next; * *end; Сделала. Теперь кнопка не работает. После нажатия на кнопку ничего не просходит структура базы Миниатюры 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 17:05	70
	Ага баз составлена более менее норм) Так там код закоментирован, чо там происходить должно? Теперь проверте у вас выпадющий список есть ?или Всё таки случилось чудо и его нет как вы говорили 0

@POVT 1 / 1 / 0 Регистрация: 10.07.2014 Сообщений: 240
	16.10.2014, 17:08 [ТС]	71
	Доцент, Сообщение от Доцент Так там код закоментирован, чо там происходить должно? кнопку я не закоментировала) Сообщение от Доцент Теперь проверте у вас выпадющий список есть ? Список чудесным образом заработал) И не пропадает каждый раз, как это было у меня 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 17:19	72
	ну чудо номер раз Я правильно понял оба списка должны содержать списки групп? 0

@POVT 1 / 1 / 0 Регистрация: 10.07.2014 Сообщений: 240
	16.10.2014, 17:43 [ТС]	73
	Доцент, да, правильно. Добавлено через 19 минут Доцент, а как теперь кнопку в порядок привести ? 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 17:53	74
	База у вас извиняюсь Го*но там джойны специфичные чуть чут ьпопоже напишу 0

@POVT 1 / 1 / 0 Регистрация: 10.07.2014 Сообщений: 240
	16.10.2014, 17:57 [ТС]	75
	Доцент, все у меня нормально с базой ) жду 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	16.10.2014, 18:46	76
	Акцес как база фуфло, там синтаксис с джойнами специфичный, под рукой нет работающего примера пока 0

	17.10.2014, 12:38

@POVT 1 / 1 / 0 Регистрация: 10.07.2014 Сообщений: 240
	16.10.2014, 19:01 [ТС]	77
	Доцент, ну у меня кнопка заработала. Но странно. У меня список выкатывается в КБ: (допустим) ПОВТ-11, АСУ-26.... Если я выбираю ПОВТ-11 и нажимаю на кнопку, то в лист бокс ничего не выводится. Если я выберу АСУ-26, то лист бокс заполнится значениям из ПОВТ-11. И так со всеми группами Добавлено через 43 секунды Доцент, как можно поправить? 0