sql server複製編程

 {
.首先要安裝ActivX控制項：component->import activex control->microsoft sql merge control 8.0(version 1.0)-> install
.sql server、oracle 等大型DBMS都提供複製功能。且複製可以在異種DB間進行。可以說非常具有通用性。
.本例：伺服器端安裝SQL SERVER2000，收銀機安裝ACCESS2000，合併式複寫方式。
.採用在用戶端編程的方式，把一些設定放在指定的INI檔案中，靈活而方便。
}

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SQLMERGXLib_TLB, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    merge: TSQLMerge;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//在用戶端放置一個“同步”按鈕
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  try
    with merge do
    begin
      //發行伺服器
      Publisher := 'cxg';              //出版伺服器名
      PublisherDatabase := 'ynckjxc';  //發行集資料庫
      Publication := 'distribute';             //發布
      PublisherSecurityMode := NT_AUTHENTICATION;  //安全驗證

      //散發者
      Distributor := 'cxg';            //散發者名
      DistributorSecurityMode := NT_AUTHENTICATION;
   
      //訂閱伺服器
      Subscriber := 'cxg';            //訂閱伺服器名
      SubscriberDatabasePath := 'c:/data/ynjxc.mdb'; //訂閱資料庫
      SubscriberDatasourceType := JET4_DATABASE;
      SubscriberSecurityMode := DB_AUTHENTICATION;
      SubscriberLogin := 'admin';
      SubscriberPassword := '';

      //訂閱者式
      SubscriptionType := ANONYMOUS;         //匿名訂閱
      SynchronizationType := AUTOMATIC;

      //發行伺服器和訂閱伺服器間雙向同步
      Initialize;
      Run;
      Terminate;
    end;
    showmessage('成功');
  except
    showmessage('失敗');
  end;
end;

end.