unit1.pas

ADO+DCOM例程 服务器与客户端 有源码 请大家指点

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, DBClient, MConnect;

type
  TForm1 = class(TForm)
    ClientDataSet1: TClientDataSet;
    DCOMConnection1: TDCOMConnection;
    DataSource1: TDataSource;
    DBComboBox: TComboBox;
    QueryMemo: TMemo;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure DBComboBoxClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
    DBN:OLEVariant;
begin
  DCOMConnection1.Connected := true;
  DBN := DCOMConnection1.AppServer.GetDB;
  if VarisArray(DBN) then
    for i := 0 to VarArrayHighBound(DBN,1) do
      DBComboBox.Items.Add(DBN[i]);
  DBComboBoxClick(Self);    
end;

procedure TForm1.DBComboBoxClick(Sender: TObject);
var Pwd :string;
begin
  if DBComboBox.Text <> '' then
  begin
    ClientDataSet1.Close;
    try
      DCOMConnection1.AppServer.SetDB(DBComboBox.Text,'' );
    except
      on E:Exception do
        if E.Message = '请输入密码' then
          begin
            if InputQuery(E.Message,'请输入密码',Pwd ) then
              DCOMConnection1.AppServer.SetDB(DBComboBox.Text,Pwd);
            end
            else
              raise;
          end;
    end;
  //end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientDataSet1.Close;
  ClientDataSet1.Data := ClientDataSet1.DataRequest(QueryMemo.Lines.Text);
  ClientDataSet1.Open;
end;

end.