Delphi动态链接多个数据源执行操作例子

Posted 2020-12-05

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‘);

初始化表单增加
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控件