Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > проверка данных перед сохранением

Автор: brusel 30.11.2008, 21:56

Нужно перед сохранением проверять правильность вводимых данных и проверять отсуствие пустых полей. Полей в таблице больше 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

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

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