Проверка записи в БД

[Teror4uks]

Доброго времени суток!

Имеется таблица(DBGrid) куда заносится название группы и факультета(с помощью Edit'ов), но т.к. оба этих значения являются первичными ключами и через эти поля связаны с другими таблицами, при вводе одинаковой группы и факультета, прога выдаёт ошибку, что такие поля уже есть... и прога закрывается, подскажите пожалуйста как сделать проверку перед вводом новых значений в таблицу.

Ввод новых значений в таблицу (происходит на новой форме)
dmSchedule.dstSchedule.Insert;
dmSchedule.dstSchedule.FBN('NAME_FA KULT').AsString := Edit1.Text;
dmSchedule.dstSchedule.FBN('NAME_GR OUPE').AsString := Edit2.Text;

[Teror4uks]

получилось ввести проверку :
If fmAddF.Edit2.Text = dmSchedule.dstSchedule.FBN('NAME_GR OUPE').AsString
then begin
ShowMessage('qwe');
dmSchedule.dstSchedule.Cancel;
end;

но всё равно после нажатия на ОК вылетает критическая ошибка

[evg_m]

If fmAddF.Edit2.Text = dmSchedule.dstSchedule.FBN('NAME_GR OUPE').AsString
это проверка только одной (текущей) строки и только по одному "ключу".
Вам надо ВСЕ записи

dataset.first;
while dataset.not EOF do
// здесь надо проверить ВСЕ ключи этой записи
  dataset.Next; 
end;

Если хочешь проще смотри Locate.

название группы и факультета(с помощью Edit'ов), но т.к. оба этих значения являются первичными ключами

Наименование задаваемое пользователем в качестве первичного ключа (поля связи) самое неправильное, что только может быть в БД.

[Teror4uks]

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

If fmAddF.Edit2.Text = dmSchedule.dstSchedule.FBN('NAME_GR OUPE').AsString
это проверка только одной (текущей) строки и только по одному "ключу".
Вам надо ВСЕ записи

dataset.first;
while dataset.not EOF do
// здесь надо проверить ВСЕ ключи этой записи
  dataset.Next; 
end;

Если хочешь проще смотри Locate.


Наименование задаваемое пользователем в качестве первичного ключа (поля связи) самое неправильное, что только может быть в БД.

Не могли бы вы тогда подсказать как можно объединить между собой таблицы, если по заданию нужно просматривать расписание студентов по группе и факультету и создавать новое расписание + видеть список студентов определённой группы

[evg_m]

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

[Teror4uks]

Спасибо, что откликнулся) скидываю модель БД, не нашёл как пометить внешние ключи так что напишу что в таблицах это поля(NAME_FAKULT и NAME_GROUPE), которые являются первичными в таблице (FAKULT)
задание звучит так :
Приложение должно осуществлять следующие основные функции:
– добавление нового расписания;
– редактирование существующего расписания;
– просмотр расписания студентов заданного факультета и группы;


П.С. то что везде стоит варчар как тип, эт я просто не заморачивался хотя там не везде он подходит

[evg_m]

позвольте спросить
для чего в каждой таблице поле ID.
ну там где оно PrimaryKey еще как-то (на самом деле очень смутно) понятно, но вот для FACULT ее смысл полностью отсутствует (в представленном виде).

вы правы в том что внешние ссылки должны быть на PrimayKey, но кто вам сказал, что при этом надо полностью ПОВТОРЯТЬ всю информацию (полное название группы/факультета).
Ключом м.б. и другое поле (более короткое и более удобное для внутренней работы СУБД).
А для защиты от повторов существуют и другие механизмы (Unique Index).

Не могли бы вы тогда подсказать как можно объединить между собой таблицы, если по заданию нужно просматривать расписание студентов по группе и факультету и создавать новое расписание + видеть список студентов определённой группы

select  predmet_name, prepod_FIO, rasisanie.time, raspisanie.date
from raspisanie 
inner join facult on facult.<primarykey> =raspisanie.<foregnkeyoffacultet>
where facult.name=....
  and facult.group=....
order by date, time

НО хорошо было бы если в раcписании ТАКЖЕ не повторялась ни ФИО, ни название предмета
(для этого должны быть отдельные таблицы наподобие FACULT) (PREDMET, PREPOD)

select  predmet.name, prepod.FIO, rasisanie.time, raspisanie.date
from raspisanie 
inner join predmet on predmet.<primarykey> =raspisanie.<foregnkeyofpredmet>
inner join facult on facult.<primarykey> =raspisanie.<foregnkeyoffacultet>
inner join prepod on prepod.<primarykey> =raspisanie.<foregnkeyofprepod>
where facult.name=....
  and facult.group=....
order by date, time

P.S. использовать не табличные компоненты доступа (TADOTable, TSQLTable, и т.п.) а SQL ориентированные (TADODataSet, TADOQuery, TSQLQuery, и т.п.)

[Teror4uks]

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

позвольте спросить
для чего в каждой таблице поле ID.
ну там где оно PrimaryKey еще как-то (на самом деле очень смутно) понятно, но вот для FACULT ее смысл полностью отсутствует (в представленном виде).

вы правы в том что внешние ссылки должны быть на PrimayKey, но кто вам сказал, что при этом надо полностью ПОВТОРЯТЬ всю информацию (полное название группы/факультета).
Ключом м.б. и другое поле (более короткое и более удобное для внутренней работы СУБД).
А для защиты от повторов существуют и другие механизмы (Unique Index).

select  predmet_name, prepod_FIO, rasisanie.time, raspisanie.date
from raspisanie 
inner join facult on facult.<primarykey> =raspisanie.<foregnkeyoffacultet>
where facult.name=....
  and facult.group=....
order by date, time

НО хорошо было бы если в раcписании ТАКЖЕ не повторялась ни ФИО, ни название предмета
(для этого должны быть отдельные таблицы наподобие FACULT) (PREDMET, PREPOD)

select  predmet.name, prepod.FIO, rasisanie.time, raspisanie.date
from raspisanie 
inner join predmet on predmet.<primarykey> =raspisanie.<foregnkeyofpredmet>
inner join facult on facult.<primarykey> =raspisanie.<foregnkeyoffacultet>
inner join prepod on prepod.<primarykey> =raspisanie.<foregnkeyofprepod>
where facult.name=....
  and facult.group=....
order by date, time

P.S. использовать не табличные компоненты доступа (TADOTable, TSQLTable, и т.п.) а SQL ориентированные (TADODataSet, TADOQuery, TSQLQuery, и т.п.)

Ну ID я использую как генератор в этой табличке, он просто считает записи, для вывода таблиц в приложении использую DBGRID, для связи приложения и БД использую FIBPlus, но у меня КАКАЯ ТО ЧЁРНАЯ МАГИЯ не знаю как но после того как я добавляю данные через команду dmSchedule.dstSchedule.Insert(DataM odule1.FIBDataSet.Insert);(данные пишутся сначала в эдитах) и подтверждаю транзакцию dmSchedule.dstSchedule.Post;
dmSchedule.dstSchedule.Transaction. Commit; данные появляются в DBGride, но почему то не заносятся в базу, а вот если в FIBDataSet поставить свойство AutoCommit в значение TRUE то всё отлично заносится, но хотелось бы чтобы он не автоматом заносил а только с моей подачи... вы случайно не в курсе где косяк?