База данных, Помогите найти ошибку.... Опции

[Egor Vladimirovich]

Помогите разобраться в чем ошибка.я прикрепил файлы задачи.Жмем на 3 вкладку (лечение), жмем назначить потом выбираем все что нужно потом применить и вот возникает ошибка. Пишет что то вроде не удаеться закончить при открытой базе. Помогите плз,а то курсяк здавать надо..... Заранее спасибо

[klem4]

Особо не вникал, но вот так по крайней мере не ругается на открытый датасет

// ...
Exc.SQL.Add('VALUES ("' + fm.dia_id + '","' + fm.bol_id + '","' +
                    fm.Edit1.Text + '","' + DateToStr(fm.DateTimePicker1.DateTime) + '");');

        lech.Close; // <-----------------------------------------------
        lech.ExecSQL;//...