Проверка обязательных полей базы данных отображенных на форме

← →
Apolon (2003-07-15 11:29) [0]

Как осуществить проверку обязательных полей базы данных отображенных на форме при помощи различных элементов TDBEdit, TDBLookupComboBox и т.п. на заполнение их значениями? Данная проверка должна осуществляться перед сохранением значений в базе данных. В случае, если имеется не заполненное поле, сохранение прервать и установить фокус на первый не заполненный элемент в форме. Такая функция проверки должна работать на любых формах и с разным набором контролов отображающих данные из нескольких таблиц.

← →
Жук © (2003-07-15 11:41) [1]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if (ModalResult=mrOk) then begin if DBEdit1.DataSource.DataSet.FieldByName[DBEdit1.DataField].IsNull then begin CanClose:=false; ShowMessage("Warning... !"); DBEdit1.SetFocus; end; .................. end; end;
Примерно так...

см. BeforePost

Проверка обязательных полей базы данных отображенных на форме Найти похожие ветки