摘要:
Required、Precision、MaxValue、MinValue:begin { Required: 必填字段 } with TIntegerField.Create(Self) do begin FieldName := 'ID'; Required := True; DataSet := ClientDataSet1; end; { Precision: 浮点数精度} wit... 阅读全文
摘要:
procedure TForm1.FormCreate(Sender: TObject);begin { DisplayFormat } with TIntegerField.Create(Self) do begin FieldName := 'Integer'; DisplayFormat := '#, 元'; DataSet := ClientDataSet1; end; with ... 阅读全文
摘要:
自动增长字段://建立方法一:begin with ClientDataSet1 do begin FieldDefs.Add('ID', ftAutoInc); FieldDefs.Add('Name', ftString, 11); CreateDataSet; end;end;//建立方法二:begin with TAutoIncField.Create(Self) do begin ... 阅读全文