COM部分
在PcSQL窗口的兩個事件OnCreate和OnDesticy，建立事件驅動程序：
procedure TPcSQL.RemoteDataModuleCreate(Sender: TObject);
begin
end;
procedure TPcSQL.RemoteDataModuleDestroy(Sender: TObject);
begin
end;
procedure TPcSQ.RemoteDataModuleCreate(Sender: TObject);
begin
// 增加一位前台上線者（調用Form1上的程序）
Form1.UpdateClIEntCount(1);
end;
procedure TPcSQ.RemoteDataModuleDestroy(Sender: TObject);
begin
// 減少一位前台上線者（調用Form1上的程序）
Form1.UpdateClIEntCount(-1);
end;
在Tqurey的事件AfterOpen建立事件驅動程序：
procedure TPcSQL.Query1AfterOpen(DataSet: TDataSet);
begin
end;
procedure TPcSQ.AdHocQueryAfterOpen(DataSet: TDataSet);
begin
// 新打開一個TQuery查詢（調用Form1上的程序）
Form1.IncQueryCount;
end;
保存，編譯，注冊
二、SQL 客戶端程序
1）建立一個普通的工程。
2）放置一個TDCOMConnrction控件（在Datasnap頁），屬性：
在本機注冊時，可直接設置以下屬性：
ServerName:應用程序服務器注冊名（pro1.pc121）
Connected=true 激活
這時你可以看到服務器端的COM 程序被激活了。
如果在網絡上調試，需要給出服務器名:
ComputerName：服務器名（自動給出網上鄰居）
注意：
ServerGUID的GUID值是自動給出的。
3）放置一個TClIEntDataSet控件（在Data Access頁）
屬性：
RemoteServer= DCOMConnrction1
ProviderName:=DataSetProvider1
Active=true （激活後將能正常連接）
