Delphi动态链接多个数据源执行操作例子-创新互联

1.首先配置文件
[SubExamDep1]
DBSERVER=(local)
DBNAME=herpeisweixin
USERNAME=sa
PWD=bjbr
MSG=SubExamDep1失败
[SubExamDep2]
DBSERVER=(local)
DBNAME=herpeisFZTJ
USERNAME=sa
PWD=bjbr
MSG=SubExamDep2失败
2.工程文件加入 Inifiles 文件
public:
MyIni :Tinifile;
glAppPath :string;
create 事件增加
glAppPath := ExtractFilePath(Application.ExeName);//获取当前运行程序的路径
MyIni := Tinifile.Create(glAppPath + 'SubDBConfig.ini');

10年积累的成都网站设计、成都网站建设经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先制作网站后付款的网站建设流程,更有成都免费网站建设让你可以放心的选择与我们合作。

初始化表单增加
with spSP_SyncOrg do
begin

  ProcedureName:='P_SYNCORGINF';
  Parameters.CreateParameter('@ID_Org', ftInteger, pdInput, 0,null );
  Parameters.CreateParameter('@ID_OrgReservation', ftInteger, pdInput, 0, null);
  Parameters.CreateParameter('@RetMsg',ftString,pdOutput,50,null)
end;

    实现按钮事件
    procedure TFormPeisOrgReservation.btn_IssuedSubClick(Sender: TObject);

var
i:Integer;
DBSERVER,DBNAME,USERNAME,PWD:string;
CurSecetion:string;
CURID_ORG,CURID_OrgReservation :Integer;
MSG,retMSG,SumMsg:string;
sucessnum:Integer;

begin
MSG:='';
retMSG:='';
SumMsg:='';

if not aqMain1.Active then
begin
  Exit;
end;
lst1.Clear;
CURID_ORG:=aqMain1.fieldbyname('ID_Org').Value;
CURID_OrgReservation:=aqMain1.fieldbyname('ID_OrgReservation').Value;
sucessnum:=0;
MyIni.ReadSections(lst1.Items);
for i:=0 to lst1.Count-1 do
begin
  CurSecetion:=lst1.Items[i];
  DBSERVER:=MyIni.ReadString(CurSecetion,'DBSERVER','');
  DBNAME:=MyIni.ReadString(CurSecetion,'DBNAME','');
  USERNAME:=MyIni.ReadString(CurSecetion,'USERNAME','');
  PWD:=MyIni.ReadString(CurSecetion,'PWD','');
  MSG:=MyIni.ReadString(CurSecetion,'MSG','');

   try
      ADOConnection1SUB.Connected:=False;
      ADOConnection1SUB.ConnectionString:='Provider=SQLOLEDB.1;Password='+PWD+';Persist Security Info=True;User ID='+USERNAME+';Initial Catalog='+DBNAME+';Data Source='+DBSERVER;
      ADOConnection1SUB.Connected:=True;
      spSP_SyncOrg.Parameters.ParamByName('@ID_ORG').Value:=CURID_ORG;
      spSP_SyncOrg.Parameters.ParamByName('@ID_OrgReservation').Value:=CURID_OrgReservation;
      spSP_SyncOrg.ExecProc;
      retMSG:=spSP_SyncOrg.Parameters.ParamByName('@RetMsg').Value;

      if retMSG='同步成功!' then
      begin
          sucessnum:=sucessnum+1;
      end;

      if retMSG='同步失败!' then
      begin
         if SumMsg='' then
         begin
            SumMsg:=MSG;
         end
         else
         begin
            SumMsg:=SumMsg+','+MSG;
         end;

      end;

   except
   end;

end;
if sucessnum=lst1.Count then
begin
   ShowMessage('同步成功!');
end
else
begin
   if SumMsg='' then
   begin
      ShowMessage('执行失败!');
   end
   else
   begin
      ShowMessage(SumMsg);
   end;
end;

end;

界面放一个adoconnection和listbox控件

另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。

网页名称:Delphi动态链接多个数据源执行操作例子-创新互联
转载来源:https://www.cdcxhl.com/article44/esehe.html

成都网站建设公司_创新互联,为您提供网站维护网站改版小程序开发面包屑导航全网营销推广微信公众号

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联

绵阳服务器托管