jsjDELPHICOM技术.pdfVIP

DELPHI COM + Delphi COM+ COM+ COM+ COM+ COM+ COM+ ID COM+ DBName:string procedure TmtsDBConn.ConnectTo (sDBName:string) begin try DBName: =sDBName; SetComplete; Except SetAbort; end; end; ADOConnection,ADODataSet, DataSetProvider adoc,adods,dsp adoc “DB1” adoc BeforeConnect adoc.ConnectionString: =ConnectStringA+Initial Catalog=+DBName+;+ConnectStringC; ConnectStringA ConnectStringC const ConnectStringA=Provider=SQLOLEDB.1;Passwor d=2003;Persist Security Info=True;User ID=sa;; ConnectStringB=Initial Catalog=DB1;; ConnectStringC=Data Source=server3;Use Procedure for Prepare= 1;Auto Translate=True;Packet Size= 4096;Workstation ID=LXM;Use Encryption for Data=False;Tag with column collation when possible=False; COM+ DCOMConnection COM+ ClientDataSet RemoteServer Provider CommandText SQL DataSource DBGrid Click Dcomconnection1.Connected:=true; Dcomconnection1.AppServer.connect(DB2); ClientDataset1.Active:=true; Dcomconnection1.Connected:=false; DB2 COM+ ConnectTo adocBeforeConnect DBName:=sDBName; DBName DB2” adoc.ConnectionString: =ConnectStringA+Initial Catalog=+DBName+;+ConnectStringC; DBName DBName ConnectTo SetComplete SetComplete COM+ COM+ COM+ DBName SetComplete EnableCommit; DB2 ClientDataSet, ClientDataSet1 ClientDataSet2, DB2 Dcomconnection1.AppServer.connect(DB2); ClientDataset1.Active:=true; ClientDataset1.Active:=false; ClientDataset1.Active:=true; ClientDataSet, Dcomconnection1.AppServer.connect(DB2); ClientDataset1.Active:=true; Dcomconnection1.AppServer.connect(DB2); ClientDataset2.Active:=true; COM+ TmtsDataModule AutoComplete true AutoComlete false COM+ OnActivate AutoComplete ture COM+ OnOnActivate AutoComplete:=false; COM+ COM+ SetComplete COM+ COM+ COM+ COM+ XP Delphi COM+