TClientDataSet[27]: 字段值的約束(或叫輸入限制)

Required、Precision、MaxValue、MinValue:

---

begin{ Required: 必填字段 }with TIntegerField.Create(Self) do beginFieldName := 'ID';Required := True;DataSet := ClientDataSet1;end;{ Precision: 浮點數精度}with TFloatField.Create(Self) do beginFieldName := 'Float';Precision := 3; { 譬如: 輸入 1.2345 只會保留 1.23 }DataSet := ClientDataSet1;end;{ MaxValue、MinValue }with TIntegerField.Create(Self) do beginFieldName := 'Integer';MinValue := 1;MaxValue := 99;DataSet := ClientDataSet1;end;ClientDataSet1.CreateDataSet;
end;

可在字段的 CustomConstraint 屬性中按 SQL 語法指定約束規則;
并用字段的 ConstraintErrorMessage 屬性指定違反規則后的錯誤提示.

---

procedure TForm1.FormCreate(Sender: TObject);
beginwith TIntegerField.Create(Self) do beginFieldName := 'ID';CustomConstraint := 'x>0 and x<100'; { 其中的 x 是隨意的, 表示當前字段值 }ConstraintErrorMessage := 'Err1';DataSet := ClientDataSet1;end;with TStringField.Create(Self) do beginFieldName := 'Name';Size := 11;CustomConstraint := 'x Like ''張%'''; { 假如只要姓張的 }ConstraintErrorMessage := 'Err2';DataSet := ClientDataSet1;end;with TStringField.Create(Self) do beginFieldName := 'Sex';Size := 2; { 如果使用 TWideStringField 這里應該是 1 }CustomConstraint := 'x in(''男'', ''女'')'; { 只能輸入: 男或女 }ConstraintErrorMessage := 'Err3';DataSet := ClientDataSet1;end;with TStringField.Create(Self) do beginFieldName := 'Email';Size := 21;CustomConstraint := 'Lower(x) Like ''%@gmail.com'''; { 假如只能是 Google 信箱}ConstraintErrorMessage := 'Err4';DataSet := ClientDataSet1;end;ClientDataSet1.CreateDataSet;ClientDataSet1.AppendRecord([1, '張三', '男', '123@gmail.com']);ClientDataSet1.AppendRecord([2, '張四', '女', 'ABC@GMAIL.COM']);
end;{ 禁用限制 }
procedure TForm1.Button1Click(Sender: TObject);
beginClientDataSet1.DisableConstraints;
end;{ 啟用限制 }
procedure TForm1.Button2Click(Sender: TObject);
beginClientDataSet1.EnableConstraints;
end;

使用數據集的 Constraints 屬性重做上面的例子:

---

procedure TForm1.FormCreate(Sender: TObject);
beginwith ClientDataSet1.FieldDefs do beginAdd('ID', ftInteger);Add('Name', ftString, 11);Add('Sex', ftString, 2);Add('Email', ftString, 21);end;with ClientDataSet1.Constraints.Add do beginCustomConstraint := 'ID>0 and ID<100'; { 其中的 ID 是字段名 }ErrorMessage := 'Err1';end;with ClientDataSet1.Constraints.Add do beginCustomConstraint := 'Name Like ''張%''';ErrorMessage := 'Err2';end;with ClientDataSet1.Constraints.Add do beginCustomConstraint := 'Sex in(''男'', ''女'')';ErrorMessage := 'Err3';end;with ClientDataSet1.Constraints.Add do beginCustomConstraint := 'Lower(Email) Like ''%@gmail.com''';ErrorMessage := 'Err4';end;ClientDataSet1.CreateDataSet;ClientDataSet1.AppendRecord([1, '張三', '男', '123@gmail.com']);ClientDataSet1.AppendRecord([2, '張四', '女', 'ABC@GMAIL.COM']);
end;procedure TForm1.Button1Click(Sender: TObject);
beginClientDataSet1.DisableConstraints;
end;procedure TForm1.Button2Click(Sender: TObject);
beginClientDataSet1.EnableConstraints;
end;

數據集的 Constraints 和字段的 CustomConstraint 也都可以在設計時完成.

不過其中的 ConstraintErrorMessage 和 ErrorMessage 在當前版本(14.0.3593.25826)中有 bug;
我在 Delphi 2007 中測試了一下, 沒有問題.

---