Помощь в проектировании БД

[le7o]

Собственно вот для таких анкет, необходимо сделать ПО.
Свою текущую наработку приложил, все работает, единственное не получается корректно заполнять данными анкетируемого.

Исследование: Социологическое исследование


Центр Исследований уровня жизни просит Вас ответить на несколько
вопросов. Анкета анонимная, фамилия указывать не надо. Для ответа
достаточно обвести кружком варианты ответов (альтернативы), с которыми
Вы согласны.

[1]. Как бы Вы оценили уровень материального положения Вашей семьи
	[1]. живем вполне обеспеченно, можем ни в чем себе не отказывать
	[2]. достаток выше среднего, но покупки престижных товаров затруднительна
	[3]. средняя обеспеченность, немного откладываем
	[4]. живем от зарплаты до зарплаты
	[5]. живем бедно

[2]. Укажите примерный размер денежного дохода, пришедшийся на одного Вашей семьи в прошлом месяце (в рублях)

_________________________

[3]. Согласны ли Вы, что одиночкам легче приспособиться к новым экономическим условиям
	[1]. да, согласен
	[2]. нет, не согласен

[4]. Как изменится материальное положение Вашей семьи в ближайший год
	[1]. улучшится
	[2]. ухудшится
	[3]. останется прежним

[5]. Что Вы собираетесь предпринять для улучшения материального положения Вашей семьи
	[1]. Найду работу по совместительству
	[2]. займусь предпринимательством
	[3]. найду временные приработки
	[4]. ничего не буду делать

[6]. Ваш пол
	[1]. мужской
	[2]. женский

[7]. Ваш возраст (укажите число полных лет)

_________________________

[8]. Какая то чушь

_________________________


Большое спасибо

Тут даже наверное по структуре изменения не потребуется, а вот как заполнять таблицу ответы проходя через вопросы и попутно на них отвечая, при условии, что если данные уже есть и их нужно изменить если данных ранее не было то добавить.

UnANSWER - FASN

Все что было тестировал на форме Form1(UnTMP).

Уже мозг сломал, но думаю что решение здесь должно быть простым...

[Stilet]

Чет вообще не понял в чем проблема...
Ну ладно. Не в первой. Итак:
1) Какими компонентами пользуешься?
2) Какова структура таблицы?
3) Как именно пробовал то что не выходит?
4)...зарезервировано для будущих постов.

[le7o]

Ответил Вам в личном сообщении с ссылкой на архив:
1. AdoTable связи и отображение, динамически создаваемые ADOQuery для добавления удаления и изменения (здесь просто дело привычки).
2. Структура таблиц во вложении к личному сообщению.
3. Пробовал проверкой на наличие записей если есть то изменить, если нет то добавить - но здесь я кажется сделал что то не то.
4. Принято.

Сообщение от Stilet

Чет вообще не понял в чем проблема...
Ну ладно. Не в первой. Итак:
1) Какими компонентами пользуешься?
2) Какова структура таблицы?
3) Как именно пробовал то что не выходит?
4)...зарезервировано для будущих постов.

[Stilet]

Структура таблиц во вложении к личному сообщению.

Нет у меня Акцесса. Не пользуюсь МС Оффисом.

Пробовал проверкой на наличие записей если есть то изменить, если нет то добавить

Схема на самом деле может быть проще:
Сначала ты проводишь UPDATE. Метод ExecSQL возвращает кол-во записей, которые были обработаны запросом - в данном случае обновлены. Соответственно если этот метод вернет 0 - нужно делать вставку.

[le7o]

Давайте по схеме БД, тогда.
Что может быть проще, учитывая, что необходимо название исследования, респонденты, вопросы, ответы (как альтернативные так и числовые так и текстовые)?

Сообщение от Stilet

Нет у меня Акцесса. Не пользуюсь МС Оффисом.

Схема на самом деле может быть проще:
Сначала ты проводишь UPDATE. Метод ExecSQL возвращает кол-во записей, которые были обработаны запросом - в данном случае обновлены. Соответственно если этот метод вернет 0 - нужно делать вставку.

[Stilet]

Ну для начала неплохо бы увидеть твою структуру )
Скриншоты выложи.

[le7o]

Структуру приложил:
По таблицам (сделал в CODE для читабельности):

--------------------------------
1. STUDY - исследования
--------------------------------
ID                        - PK
STUDY                  - названия
...                        - остальные поля ни на что ни влияют
--------------------------------
--------------------------------
2. QUESTION - вопросы
--------------------------------
ID                       - PK
NUMBER               - номер вопроса
QUESTYON            - текст вопроса
STUDY_ID            - привязка к исследованию (STUDY)
TYPE_ID               - выбор типа вопроса(текстовый, числовой, вариативный) 
                            привязка к типу вопроса
-------------------------------
-------------------------------
3. ALTERNATIVE - варианты
-------------------------------
ID                       - PK
NUMBER              - номер варианта
VARIANT              - текст варианта
QUESTION_ID       - привязка к конкретному вопросу
-------------------------------
-------------------------------
4. DATA - респонденты
-------------------------------
ID                      - PK
FIO                    - любой текст идентифицирующий респондента
STUDY_ID           - привязка к исследованию (STUDY)
-------------------------------
5. ANSWER - вопрос ответ по сути
-------------------------------
ID                      - PK
QUESTION_ID      - привязка к конкретному вопросу
ALTERNATIVE_ID  - привязка без обеспечения целостности данных (может быть = 0
                           в зависимости от типа вопроса)
DATA_ID             - привязка к таблице с информацией о респонденте
ASNTEXT             - поля заполняются в зависимости от типа вопроса: если 
ASNSTRIGN         - вариативный то соответственно 0 и '', числовой - int, 
                           текстовый      - string
-------------------------------

Сообщение от Stilet

Ну для начала неплохо бы увидеть твою структуру )
Скриншоты выложи.

[Stilet]

Понятно, ты всетки рекомендации в прошлой теме не учел...
Ладно. Пусть по твоему.
В таком случае то что ты хочешь сделать на основе твоего кода может выглядеть так:

procedure TFANS.Button1Click(Sender: TObject);
var
  query : TADOQuery;
begin
query := TADOQuery.Create(nil);
query.Connection := dm.ADOConn ;
  query.SQL.Clear ;
  query.SQL.Add('UPDATE ANSWER set ASNTEXT=:p_ASNTEXT
      WHERE QUESTION_ID=:p_QUESTIONID AND DATA_ID=:p_DATAID
  ');
  query.Parameters.ParamByName('p_QUESTIONID').Value := dm.QUESTIONS.FieldByName('ID').AsInteger;
  query.Parameters.ParamByName('p_DATAID').Value := dm.DATA.FieldByName('ID').AsInteger;
  query.Parameters.ParamByName('p_ASNTEXT').Value := <Ответ>;

  if query.ExecSQL=0 then begin
   query.SQL.Add('INSERT INTO ANSWER (ASNTEXT,QUESTION_ID,DATA_ID) VALUES (:p_ASNTEXT,:p_QUESTIONID,:p_DATAID)');
   query.Parameters.ParamByName('p_QUESTIONID').Value := dm.QUESTIONS.FieldByName('ID').AsInteger;
   query.Parameters.ParamByName('p_DATAID').Value := dm.DATA.FieldByName('ID').AsInteger;
   query.Parameters.ParamByName('p_ASNTEXT').Value := <Ответ>;
   query.ExecSQL;
 end;
 query.Commit;
 query.Free ;
 
  DBNavigator1.BtnClick(nbNext);
  GroupsVisible;
  View;
end;

Короче говоря нет у меня нет совершенно никаких путевых предложений исходя из структуры базы, кроме того, что описал. Не представляю я как эта структура может работать. Если это придумал ты сам, то зря советов в прошлой теме не послушал. Если же твой преподоносор то... соболезную. Учат тебя не для того чтоб научить.

[le7o]

Хорошо, а какую вы структуру можете предложить, при учете что в принципе сущности выделены все необходимые?

За Ваш ответ по поводу кода спасибо буду пробовать приспособить.

Сообщение от Stilet

Понятно, ты всетки рекомендации в прошлой теме не учел...
Ладно. Пусть по твоему.
В таком случае то что ты хочешь сделать на основе твоего кода может выглядеть так:

procedure TFANS.Button1Click(Sender: TObject);
var
  query : TADOQuery;
begin
query := TADOQuery.Create(nil);
query.Connection := dm.ADOConn ;
  query.SQL.Clear ;
  query.SQL.Add('UPDATE ANSWER set ASNTEXT=:p_ASNTEXT
      WHERE QUESTION_ID=:p_QUESTIONID AND DATA_ID=:p_DATAID
  ');
  query.Parameters.ParamByName('p_QUESTIONID').Value := dm.QUESTIONS.FieldByName('ID').AsInteger;
  query.Parameters.ParamByName('p_DATAID').Value := dm.DATA.FieldByName('ID').AsInteger;
  query.Parameters.ParamByName('p_ASNTEXT').Value := <Ответ>;

  if query.ExecSQL=0 then begin
   query.SQL.Add('INSERT INTO ANSWER (ASNTEXT,QUESTION_ID,DATA_ID) VALUES (:p_ASNTEXT,:p_QUESTIONID,:p_DATAID)');
   query.Parameters.ParamByName('p_QUESTIONID').Value := dm.QUESTIONS.FieldByName('ID').AsInteger;
   query.Parameters.ParamByName('p_DATAID').Value := dm.DATA.FieldByName('ID').AsInteger;
   query.Parameters.ParamByName('p_ASNTEXT').Value := <Ответ>;
   query.ExecSQL;
 end;
 query.Commit;
 query.Free ;
 
  DBNavigator1.BtnClick(nbNext);
  GroupsVisible;
  View;
end;

Короче говоря нет у меня нет совершенно никаких путевых предложений исходя из структуры базы, кроме того, что описал. Не представляю я как эта структура может работать. Если это придумал ты сам, то зря советов в прошлой теме не послушал. Если же твой преподоносор то... соболезную. Учат тебя не для того чтоб научить.

[Stilet]

при учете что в принципе сущности выделены все необходимые?

Только одну - бросать программирование )
Я уже сказал в предыдущей теме какие я вижу сущности, если же тебе нужны именно эти, и ты им не можешь дать ладу, то... Только бросать этот проект и не морочить себе голову).
Понимаешь, одно дело, когда наблюдатель не понимает как все устроено, но если сам разработчик не понимает... В обшем все плохо.