fastreport对TfrxADODatabase的调用注意事宜

最近在用fastreport 4.3调用TfrxADODatabase时,总出现用户 sa登录失败的提示,后来发现是连接字符串中多了一个 Persist Security Info=False; 按这项替换掉就可以了,以下是我的代码,我用的三层结构,客户端必须从服务端取连接字符串

1.   if not DM_Common.HR_Socket.Connected then
2.      DM_Common.HR_Socket.Connected:=true;
3.   DM_Common.HR_Socket.AppServer.GetAdocnstring(tmpstr);
4.   DM_Common.L_adostring:=StringReplace(string(tmpstr),'Persist Security Info=False;','',[]);//这一段是关键
5.   ReportADO:=TfrxADODatabase(Report.FindObject('adocn'));
6.   try
7.     ReportADO.Connected:=false;
8.     ReportADO.LoginPrompt:=false;
9.     ReportADO.DatabaseName:=DM_Common.L_adostring;//'Provider=SQLOLEDB.1;User ID=sa;Password=123;'
10.                           // +'Initial Catalog=techlong;Data Source=192.168.0.11';
11.                           // +'Auto Translate=True;Packet Size=4096;'
12.                           // +'Use Encryption for Data=False;Tag with column collation when possible=False';//DM_Common.L_adostring;
13.     //ReportADO.IsWriting:=false;
14.     TfrxPictureView(Report.FindObject('Logo')).Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'logo.jpg');
15.     TfrxADODatabase(Report.FindObject('adocn')).Connected:=true;
16.     TfrxADOQuery(Report.FindObject('MainData')).SQL.Text:='Exec Prg_AS_BuyDocGetMain '+Quotedstr(OrderNum);
17.     TfrxADOQuery(Report.FindObject('MainData')).Open;
18.     TfrxADOQuery(Report.FindObject('DetailData')).SQL.Text:='Exec Prg_AS_BuyDocGetDetail '+Quotedstr(OrderNum);
19.     TfrxADOQuery(Report.FindObject('DetailData')).Open;
20.     Report.ShowReport;
21.   except
22.   end;