总台业务软件卡顿分析报告.docx

总台业务软件卡顿分析报告修改时间修改人修改内容版本备注2017年1月12日赵建新建V0.1草稿问题一：启动时多次重复查表1、 现象1）抓图2）启动时执行30遍（SQL profiler监控结果）SET FMTONLY ON select SettingNode from dbo.HerSetting WHERE 1=2 SET FMTONLY OFFexec sp_executesql N SELECT SettingName, COALESCE(ValString, ) AS Vals FROM dbo.HerSetting WHERE (Enabled=1) AND (SettingNode=P1),NP1 varchar(200),App.User.Code /节点名根据参数变化2、 原因分析1）代码调用function TFormBizSet.GetFunctionValFromHerSetting(SettingNode: string): string;var astr: string;begin astr := FormOptions.getADOConnectionByActivePage.ConnectionString; StandardDaemon_Init(PCHAR(astr); /问题所在Result := StandardDaemon_GetFunctionSettingVal(PCHAR(SettingNode);end;2） 根源在DLL中执行一次StandardDaemon_GetFunctionSettingVal函数，会产生10次查表语句，其中5次是可以省去，4次是可以优化处理。3）分析： aqPeis.SQL.Add ( AND (SettingNode=:SettingNode); 执行后会产生SQL语句，如下所示:SET FMTONLY ON select SettingNode from dbo.HerSetting WHERE 1=2 SET FMTONLY OFF3、 调试方法1） 打开SQL Profiler2）新建跟踪并设置过滤条件并且跟踪结果，如下所示1选择“事件选择”页签2选中“显示所有列”并单击“列筛选器”按钮3过滤掉冰激凌监控4只监控PEIS数据库5确定后，运行跟踪6在源码中打上断点7运行程序，到断点后观察profiler监控，此时只有2条，程序单步调试后，再观察，如下图所示，会出现大量重复的语句调用。8整个程序完全启动后，以上重复语句会达到30条之多。4改进建议1)建议程序只加载一次表查询功能，剩下的过滤等操作可以用filter及filtered属性过滤，这样便可以减少多次访问数据表的操作且可以大大提高执行效率。2)将adoquery.sql.add用字符串连接替换。aqPeis.SQL.Add ( AND (SettingNode=:SettingNode);语句可以使用字符串连接来避免多出来的一句SQL查询语句 s:= SELECT SettingName, + aVal + AS Vals+ FROM dbo.HerSetting+ WHERE (Enabled=1)+ AND (SettingNode=+astr+); aqPeis.SQL.Text:=s;3）StandardDaemon_GetHerSetting_Inner多次调用同一个表的解决办法修改函数：思路：利用全局表处理优点：只加载一次，效率提高缺点：实时性差，修改配置后，需要重启软件才能得到结果总结：适用于配置后不常变化的数据集加载implementationuses UFunction;var / Added by 赵建 2017-1-11 15:06:47 g_HerSettingTable:TADOTable;-Function StandardDaemon_GetHerSetting_Inner(SettingNode: string; SettingField: string) : Variant;var i : integer; astr, bstr, aVal: string; s:string;begin / Modified by 赵建 2017-1-11 15:08:12 /利用临时表优化 astr := SettingNode; bstr := ; try if not StandardDaemon_CheckNil(aqPeis, aqPeis) then exit; with g_HerSettingTable do begin /空记录集时，则查表并克隆记录集 if Eof and bof then begin if aqPeis.Active then aqPeis.Close; aqPeis.SQL.Clear; /查找所有变量字段,连接字段字符串 aVal:= COALESCE(ValString, ) as ValString +,+ COALESCE(ValEncoded, ) as ValEncoded +,+ COALESCE(SettingType, ) as SettingType +,+ COALESCE(ValInteger, 0) as ValInteger +,+ COALESCE(ValBool, 0) as ValBool +,+ COALESCE(ValDateTime, 0) as ValDateTime +,+ COALESCE(ValMoney, 0) as ValMoney; / Modified by 赵建 2017-1-10 14:32:45 /优化，减少一条SQL查表语句 s := SELECT SettingName,SettingNode, + aVal + FROM dbo.HerSetting + WHERE (Enabled=1); aqPeis.SQL.Text := s; aqPeis.Open; /克隆表 Clone(aqPeis); end;filter:= SettingNode=+ + astr + ; filtered:=true; if RecordCount 0 then begin result := FieldByName(SettingField).Value; end else begin result := Null; end; end; except On E: Exception Do begin result := Null; / StandardDaemon_GetHerSetting_Inner 错误: + E.Message; end; end; if VarIsNull(result) then begin if SameText(SettingField, ValString) then result := else if SameText(SettingField, ValEncoded) then result := else if SameText(SettingField, SettingType) then result := else if SameText(SettingField, ValInteger) then result := 0 else if SameText(SettingField, ValBool) then result := false else if SameText(SettingField, ValDateTime) then result := EncodeDate(2001, 1, 1) else if SameText(SettingField, ValMoney) then result := 0.0; end;end;-initialization CoInitialize(nil); / ADO 需要, USES: Ole2 This_ID_Depart := 0; This_DoLogging := true; / Added by 赵建 2017-1-11 15:07:1