Как поставить контроль на пустое поле при закрытии формы

[sdr1]

Как поставить контроль на пустое поле при закрытии формы?
сделал вот так , но работает как то криво через раз, то проверяет, то нет
мож как то по другому можно?

procedure TForm_sotr.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
//проверка на наличие пустых записей перед закрытием, если такие записи найдены то отменяем закрытие //формы
if dbgrid1.DataSource.DataSet.RecordCo unt<>0 then begin

if (form_general.table_sotrudniki.Loca te('fio_name','', [loCaseInsensitive,loPartialKey])) then begin ShowMessage('У Вас есть не заполненные записи в поле "ФИО"');CanClose:=false; dbgrid1.SetFocus;end
else begin

[Человек_Борща]

Проверяйте VCL компоненты, а не БД. Или юзер сам запросы в БД пишет на SQL?

[Dozent]

Я бы вам посоветовал не прогонять всю таблицу на наличие не заполненных полей с ФИО, а проверять это поле перед сохранением таблицы.
У таблицы есть метод onBeforePost
в него пишете что-то типо

procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
begin
if Dataset.FieldByName('fio_name').AsString='' then 
begin
ShowMessage('Не заполнено обязательное поле "ФИО"') ;
Abort;//отменит добавление
end;
end;

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

[sdr1]

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

Я бы вам посоветовал не прогонять всю таблицу на наличие не заполненных полей с ФИО, а проверять это поле перед сохранением таблицы.
У таблицы есть метод onBeforePost
в него пишете что-то типо

procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
begin
if Dataset.FieldByName('fio_name').AsString='' then 
begin
ShowMessage('Не заполнено обязательное поле "ФИО"') ;
Abort;//отменит добавление
end;
end;

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

Все отлично работает спасибо большое, только я никак не пойму как добавить контроль на несколько полей?

[Dozent]

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

Все отлично работает спасибо большое, только я никак не пойму как добавить контроль на несколько полей?

Ни чего сложного, добавить в условие проверку второго необходимого поля, либо для каждого поля делать отдельную проверку поочереди

procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
begin
if (Dataset.FieldByName('fio_name').AsString='')OR(Dataset.FieldByName('ДРУГОЕ ПОЛЕ').AsString='') then 
begin
ShowMessage('Не заполнено обязательное поле "ФИО"') ;
Abort;//отменит добавление
end;
end;

[sdr1]

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

[min@y™]

Я чот не въехал в проблему. Что это за окно? Добавление/редактирование записи БД? Дай скриншот посмотреть.