精选文章 fastreport对TfrxADODatabase的调用注意事宜

fastreport对TfrxADODatabase的调用注意事宜

作者:qq_18932003 时间: 2019-11-08 11:07:53
qq_18932003 2019-11-08 11:07:53

最近在用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

勿删,copyright占位
分享文章到微博
分享文章到朋友圈

上一篇:夜光带你走进C# 游戏开发等(三十九)擅长的领域

下一篇:用delphi开发activex打印控件

CSDN

CSDN

中国开发者社区CSDN (Chinese Software Developer Network) 创立于1999年,致力为中国开发者提供知识传播、在线学习、职业发展等全生命周期服务。