1.首先配置文件

[SubExamDep1]DBSERVER=(local)DBNAME=herpeisweixinUSERNAME=saPWD=bjbrMSG=SubExamDep1失败[SubExamDep2]DBSERVER=(local)DBNAME=herpeisFZTJUSERNAME=saPWD=bjbrMSG=SubExamDep2失败2.工程文件加入 Inifiles 文件public:MyIni :Tinifile; glAppPath :string;create 事件增加glAppPath := ExtractFilePath(Application.ExeName);//获取当前运行程序的路径MyIni := Tinifile.Create(glAppPath + 'SubDBConfig.ini');

初始化表单增加

with spSP_SyncOrg dobegin

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 thenbegin  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 dobegin  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 thenbegin   ShowMessage('同步成功!');endelsebegin   if SumMsg='' then   begin      ShowMessage('执行失败!');   end   else   begin      ShowMessage(SumMsg);   end;end;

end;

界面放一个adoconnection和listbox控件