<% var I: Integer; S,T,V,U, tbN, Tmp1,Tmp2: String; F: TCTMetaField; col:Integer; begin tbN:=CurTable.UIDisplayName; S := StringReplace(Tmp1,'${tbN}',tbN,[rfReplaceAll]); %> ${tbN} <% col := 1; for I:=0 to CurTable.MetaFields.Count-1 do begin F:=CurTable.MetaFields.Items[I]; S:=F.GetLabelText; if (F.KeyFieldType=cfktId) or (F.KeyFieldType=cfktRid) then Continue; U:=S; if (F.KeyFieldType=cfktName) or not F.Nullable then U:='* '+S; V:= F.GenDemoData(1, '', nil); if(Pos('内容',S)>0) or (Pos('说明',S)>0) or (Pos('备注',S)>0) or (Pos('列表',S)>0) or (F.DataLength>=9999) or (F.DataType = cfdtBlob) then begin if col=2 then begin CurOut.Add(''); CurOut.Add(''); col := 1; end; CurOut.Add(''); CurOut.Add(''); T:='' CurOut.Add(T); col := 3; Continue; end; if col=3 then begin CurOut.Add(''); CurOut.Add(''); col := 1; end; if col=1 then begin CurOut.Add(''); end; CurOut.Add(''); if (F.DataType = cfdtBool) then T:='' else begin if(Pos('类型',S)>0) or (Pos('类别',S)>0) or (Pos('所属',S)>0) or (Pos('状态',S)>0) or (Pos('级别',S)>0) or (Pos('选择',S)>0) or (Pos('时间',S)>0) or (Pos('日期',S)>0) or (F.DataType = cfdtDate) or (F.DataType = cfdtEnum) then T:='' else T:=''; end; CurOut.Add(T); col:=col+1; end; if col=2 then begin CurOut.Add(''); col:=3; end; if col=3 then begin CurOut.Add(''); CurOut.Add(''); end; %>
${tbN}
  ${tbN}信息管理
  提示: 请确保填写的信息真实、正确、有效。
${tbN}信息 请注意:带有*的项目必须填写。
'+U+'
'+U+'
<% end. %>