udmclient.pas

来自「本文件采用了c/s结构的分布式应用系统」· PAS 代码 · 共 52 行

unit udmclient;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect, DBTables;

type
  Tdmclient = class(TDataModule)
    cdsLogin: TClientDataSet;
    DCOMConnSvr: TDCOMConnection;
    cdssystem: TClientDataSet;
    dssystem: TDataSource;
    Session1: TSession;
    cdsHomeMaster: TClientDataSet;
    dsHomeMaster: TDataSource;
    cdsMember: TClientDataSet;
    dsmember: TDataSource;
    cdsInOut: TClientDataSet;
    dsInOut: TDataSource;
    cdsFix: TClientDataSet;
    dsFix: TDataSource;
    cdsFee: TClientDataSet;
    dsFee: TDataSource;
    dsLogin: TDataSource;
    procedure cdssystemAfterApplyUpdates(Sender: TObject;
      var OwnerData: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmclient: Tdmclient;

implementation
uses  Dialogs, ufrmSystem;

{$R *.dfm}

procedure Tdmclient.cdssystemAfterApplyUpdates(Sender: TObject;
  var OwnerData: OleVariant);
begin

//frmsystem.ClientDataSet1.Data:=ownerdata;
//frmsystem.DBGrid1.DataSource:=frmsystem.datasource1;

end;

end.