%
var
I, J: Integer;
S,T, tbN, Tmp1,Tmp2,Tmp3: String;
F: TCTMetaField;
col, listColCount:Integer;
begin
tbN:=CurTable.UIDisplayName;
%>
${tbN}列表
${tbN}
${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('
'+S+'
');
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('');
%>
提示:
请输入过滤条件进行查询。
<%
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+'