VPF::проверка данных перед сохранением

brusel

Дата 30.11.2008, 21:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 2.3.2008

Репутация: нет
Всего: нет

Нужно перед сохранением проверять правильность вводимых данных и проверять отсуствие пустых полей. Полей в таблице больше 30. Подскажите как сделать общую проверку в цикле перед закрытием. Было бы неплохо результат ошибок вывести на форму? например в Memo. Если можно подскажите пример обработчика события.
BDE\paradox

Код обработчика события на кнопке добавить

Код


procedure TFAdmin.AddClick(Sender: TObject);
begin
with dm, admin do
  begin
    append;
    FEditAdmin:=TFEditAdmin.Create(Owner);
    if FEditAdmin.ShowModal=mrOk then
       Post
    else
      Cancel;
  FEditAdmin.Free;
  end;
end;

Код обработчика события на кнопке редактировать

Код


procedure TFAdmin.EditClick(Sender: TObject);
begin
with dm, admin do
  begin
    CachedUpdates:=true;
    Edit;
    FEditAdmin:=TFEditAdmin.Create(self);
    if FEditAdmin.ShowModal=mrOk then
      begin
        Post;
        ApplyUpdates
      end;
    CachedUpdates:=false;
    FEditAdmin.Free;
  end;
end;

Перед сохранением еще использую вот это

Код


procedure TDM.AdminBeforePost(DataSet: TDataSet);
begin
dm.AdminCounter.Value:=dm.AdminC_Code.Value+dm.adminN_Code.Value+dm.AdminProtNum.Value;
dm.AdminPError.Value:='1';
dm.AdminSF.Value:='0';
end;

Akella

Дата 1.12.2008, 00:51 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

в цикле по компонентам формы
1. проверяешь тип/класс и имя компонента
2. при определённом классе/имени делаешь проверку

универсального способа нет

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »