<%@//引入单元或类定义或函数定义 uses SysUtils,classes,DateUtils,FireDAC.Stan.Intf; %> <%!//声明变量 var FDConnection1: TFDConnection; FDQuery1: TFDQuery; Sys_DB_Info, Sys_DB_Source, Sys_DB_SQL: string; Query: TFDQuery; MT, MT2: TFDMemTable; ErrStr, TmpStr, TmpStr2, TmpStr3, TmpStr4, TmpStr5: string; PooledInfo: TConnPooledInfo; lp, i, Sys_DB_RecordCount, Sys_DB_PageCount: integer; SL, SL2, SL3: TStringlist; mds, mds2: THjhMemoryDataSet; %>