德尔福动态链接多个数据源执行操作例子

　　

1。首先配置文件
[SubExamDep1]
DBSERVER=(当地)
DBNAME=herpeisweixin
用户名=sa
PWD=bjbr
味精=SubExamDep1失败
[SubExamDep2]
DBSERVER=(当地)
DBNAME=herpeisFZTJ
用户名=sa
PWD=bjbr
味精=SubExamDep2失败
2。工程文件加入Inifiles文件公共:

MyIni: Tinifile;
glAppPath:字符串;
创建事件增加
glAppPath:=ExtractFilePath (Application.ExeName);//获取当前运行程序的路径
MyIni:=Tinifile。创建(glAppPath + SubDBConfig.ini);

　　

初始化表单增加与spSP_SyncOrg

开始做 　　

 <代码> ProcedureName:=癙_SYNCORGINF”;
　　参数。CreateParameter (“@ID_Org”, ftInteger pdInput 0, null);
　　参数。CreateParameter (@ID_OrgReservation, ftInteger pdInput 0, null);
　　Parameters.CreateParameter (@RetMsg, ftString pdOutput 50, null)
　　结束;
　　
　　实现按钮事件
　　过程TFormPeisOrgReservation。btn_IssuedSubClick(发送方:TObject);  

　　

var
我:整数;
DBSERVER, DBNAME,用户名、PWD:字符串;
CurSecetion:字符串;
CURID_ORG CURID_OrgReservation:整数;
味精、retMSG, SumMsg:字符串;
sucessnum:整数;

　　

味精:=";
retMSG:=";
SumMsg:=";

　　如果不是aqMain1

 <代码>。活跃的然后
　　开始
　　退出;
　　结束;
　　lst1.Clear;
　　CURID_ORG:=aqMain1.fieldbyname value (“ID_Org”);
　　CURID_OrgReservation:=aqMain1.fieldbyname (ID_OrgReservation) value;
　　sucessnum:=0;
　　MyIni.ReadSections (lst1.Items);
　　我:lst1=0。把1做
　　开始
　　CurSecetion:=lst1.Items[我];
　　DBSERVER:=MyIni.ReadString (CurSecetion,‘DBSERVER’,”);
　　DBNAME:=MyIni.ReadString (CurSecetion DBNAME,”);
　　用户名:=MyIni.ReadString (CurSecetion,“用户名”,“);
　　PWD:=MyIni.ReadString (CurSecetion PWD,”);
　　味精:=MyIni.ReadString (CurSecetion,‘味精’,”);
　　
　　试一试
　　ADOConnection1SUB.Connected:=False;
　　ADOConnection1SUB.ConnectionString:='='提供者=SQLOLEDB.1;密码+ PWD +”;坚持安全信息=True;用户ID=" +用户名+”;初始目录=' + ';数据源=+ + DBNAME 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;
　　
　　如果retMSG='同步成功!”然后
　　开始
　　sucessnum:=sucessnum + 1;
　　结束;
　　
　　如果retMSG='同步失败!”然后
　　开始
　　如果SumMsg="
　　开始
　　SumMsg:=味精;
　　结束
　　其他的
　　开始
　　SumMsg:=SumMsg +”、“+味精;
　　结束;
　　
　　结束;
　　
　　除了
　　结束;
　　
　　结束;
　　如果sucessnum=lst1。计数然后
　　开始
　　ShowMessage(“同步成功!”);
　　结束
　　其他的
　　开始
　　如果SumMsg="
　　开始
　　ShowMessage(“执行失败!”);
　　结束
　　其他的
　　开始
　　ShowMessage (SumMsg);
　　结束;
　　结束; 

　　

结束; 　　

界面放一个adoconnection和列表框控件

德尔福动态链接多个数据源执行操作例子