<% var I, J: Integer; S,T, tbN, Tmp1,Tmp2,Tmp3: String; F: TCTMetaField; col, listColCount:Integer; begin tbN:=CurTable.UIDisplayName; %> ${tbN}列表 <% col := 1; listColCount:=0; 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; listColCount:=listColCount+1; 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 Continue; end; if col=3 then begin CurOut.Add(''); col := 1; end; if col=1 then begin CurOut.Add(''); CurOut.Add(''); end; CurOut.Add(''); if (F.DataType = cfdtBool) then T:='' else 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 begin if (F.DataType = cfdtInteger) or (F.DataType = cfdtFloat) or (F.DataType = cfdtDate) then T:='' else T:=''; end else begin if (F.DataType = cfdtInteger) or (F.DataType = cfdtFloat) or (F.DataType = cfdtDate) 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(''); end; CurOut.Add(''); %>
${tbN}
  ${tbN}信息查询
'+S+'--
   提示: 请输入过滤条件进行查询。
<% for J:=0 to 10 do begin if J=0 then CurOut.Add('') else CurOut.Add(''); 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; if J>0 then begin S := F.GenDemoData(J, '', nil); end; T:=''; if col=1 then T:=T+''; CurOut.Add(T); col:=col+1; end; CurOut.Add(''); end; %>
' else T:=T+''; if J>0 then T := T+''+S+'' else T:=T+S; T:=T+'
<% end. %>