udmclient.pas

本文件采用了c/s结构的分布式应用系统

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.