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動態鏈接多個數據源執行操作例子-創新互聯
轉載來源：http://m.2m8n56k.cn/article44/esehe.html

成都網站建設公司_創新互聯，為您提供網站維護、網站改版、小程序開發、面包屑導航、全網營銷推廣、微信公眾號

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：[email protected]。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯