摘要: Required、Precision、MaxValue、MinValue:begin { Required: 必填字段 } with TIntegerField.Create(Self) do begin FieldName := 'ID'; Required := True; DataSet := ClientDataSet1; end; { Precision: 浮点数精度} wit... 阅读全文
posted @ 2010-02-09 20:03 万一 阅读(4756) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.FormCreate(Sender: TObject);begin { DisplayFormat } with TIntegerField.Create(Self) do begin FieldName := 'Integer'; DisplayFormat := '#, 元'; DataSet := ClientDataSet1; end; with ... 阅读全文
posted @ 2010-02-09 18:13 万一 阅读(3675) 评论(1) 推荐(1) 编辑
摘要: 自动增长字段://建立方法一:begin with ClientDataSet1 do begin FieldDefs.Add('ID', ftAutoInc); FieldDefs.Add('Name', ftString, 11); CreateDataSet; end;end;//建立方法二:begin with TAutoIncField.Create(Self) do begin ... 阅读全文
posted @ 2010-02-09 16:00 万一 阅读(5203) 评论(5) 推荐(0) 编辑