onBeforePost — средство проверки введенных значений

Событие OnBeforePost в наборе данных (dataset) в Delphi происходит перед тем, как набор данных сохранит изменения в базу данных. Это событие позволяет вам выполнить пользовательскую логику или проверить данные перед сохранением.

Осуществить проверку данных через событие OnBeforePost можно следующим образом:

procedure TfrmPrihod.adoQuery1BeforePost(DataSet: TDataSet);
 var
    iKolvo: Integer;
 begin
    iKolvo:=DataSet.FieldByName('Количество').AsInteger;
    if iKolvo<0 then
    begin
       Application.CreateForm(TfrmMessage,frmMessage);
       frmMessage.Left:=Round(frmPrihod.Left +(frmPrihod.Width-frmMessage.Width)/2);
       frmMessage.Top:=Round(frmPrihod.Top +(frmPrihod.height-frmMessage.height)/2+20);
       frmMessage.lblMessage.Caption:='Поле "Количество" должно содержать положительное значение!';
       frmMessage.ShowModal();
       abort;
    end;
 end;

В данном примере имеется набор данных adoQuery1, в котором есть поле «Количество». Пользователь через элемент управления TDBGrid (О том, как настроить красоту в TDBGrid смотрите в статье: «Как улучшить внешний вид DBGrid» и «Как улучшить внешний вид DBGrid (часть 2)») или TDBEdit ввел количество в данное поле и теперь ему нужно сохранить эти данные. Что мы можем сделать в данном случае, чтобы проверить корректность ввода данных. Ну, например, чтобы пользователь случайным образом не ввел отрицательное значение.

Сначала мы считываем значение из поля «Количество» и запоминаем его в переменной.

iKolvo:=DataSet.FieldByName('Количество').AsInteger;

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

В данном примере такое диалоговое окно выводится с помощью отдельной формы, а не с использованием стандартных функций Delphi. На мой взгляд использование собственных окон является более информативным, чем окна, генерируемые стандартными средствами Delphi.

Окно обязательно следует вывести модально, чтобы пользователь обязательно прочитал и не смог проигнорировать данное сообщение:

frmMessage.ShowModal();

Ключевым моментов во всем этом является команда Abort, которая в буквальном смысле останавливает выполнение кода в процедуре приложения. К сведению, процедура в Delphi — это тоже самое, что и метод в C#.

Таким образом, при выполнении данной процедуры происходит вывод окна-предупреждения и последующая остановка выполнения кода приложения.

Теперь пользователь должен будет закрыть окно и внести поправку в значение поля «Количество».

Еще одним вариантом контроля может быть использование события onKeyPress. Оно возникает при нажатии и отпускании кнопки клавиатуры. Данное событие уже относится не к набору данных, а к элементу управления. Это может быть как TEdit, TDBEdit, TDBGrid и т.п. Например, сделаем запрет на ввод отрицательных чисел в объект txtKolVoKeyPress, образованный от класса TEdit:

procedure TfrmProdagi.txtKolVoKeyPress(Sender: TObject; var Key: Char);
 begin
   if not (Key in ['0'..'9', #8]) then
      Key := #0;
 end;

Как видим, процедура очень короткая.

Теперь давайте посмотрим на пример того, как можно запретить ввод с клавиатуры в определённое поле объекта TDBGrid. Это можно сделать и использовав поле набора данных, которое привязано к одноименному полю объекту TDBGrid. Но бывают случаи, когда необходимо ограничить ввод только в одном из элементов управления. В этом случае удобно проводить ограничение именно в в самом элементе управления.

procedure TfrmMatchi.DBGrid1KeyPress(Sender: TObject; var Key: Char);
 begin
   if DBGrid1.SelectedField.fieldName='Тип_обучения' then key:=Chr(0);
 end;

В этом коде, если активным является поле «Тип обучения», ну то есть, мы пытаемся в него что-то записать с клавиатуры, то любое нажатие будет сбрасываться путем присваивания параметру Key значения Chr (0). Это может пригодиться в том случае, если у поля есть предустановленные значения, которые должны быть введены в поле. Чаще всего — это список с определенными значениями, одно из которых следует выбрать.

Ну вот, мы рассмотрели несколько примеров того, как можно проводить контроль ввода данных. Если статья была интересная, оставь комментарий и поделись с друзьями!