fastreport对TfrxADODatabase的调用注意事宜

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

  if not DM_Common.HR_Socket.Connected then
     DM_Common.HR_Socket.Connected:=true;
  DM_Common.HR_Socket.AppServer.GetAdocnstring(tmpstr);
  DM_Common.L_adostring:=StringReplace(string(tmpstr),'Persist Security Info=False;','',[]);//这一段是关键
  ReportADO:=TfrxADODatabase(Report.FindObject('adocn'));
  try
    ReportADO.Connected:=false;
    ReportADO.LoginPrompt:=false;
    ReportADO.DatabaseName:=DM_Common.L_adostring;//'Provider=SQLOLEDB.1;User ID=sa;Password=123;'
                          // +'Initial Catalog=techlong;Data Source=192.168.0.11';
                          // +'Auto Translate=True;Packet Size=4096;'
                          // +'Use Encryption for Data=False;Tag with column collation when possible=False';//DM_Common.L_adostring;
    //ReportADO.IsWriting:=false;
    TfrxPictureView(Report.FindObject('Logo')).Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'logo.jpg');
    TfrxADODatabase(Report.FindObject('adocn')).Connected:=true;
    TfrxADOQuery(Report.FindObject('MainData')).SQL.Text:='Exec Prg_AS_BuyDocGetMain '+Quotedstr(OrderNum);
    TfrxADOQuery(Report.FindObject('MainData')).Open;
    TfrxADOQuery(Report.FindObject('DetailData')).SQL.Text:='Exec Prg_AS_BuyDocGetDetail '+Quotedstr(OrderNum);
    TfrxADOQuery(Report.FindObject('DetailData')).Open;
    Report.ShowReport;
  except
  end;
————————————————
版权声明：本文为CSDN博主「人鱼传说」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/baronyang/article/details/3602874