rdmunit.pas

实例4学院信息管理系统 - RAR 档案文件

unit RDMUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, S_TT_TLB, StdVcl, Provider,PkgUnit;

type
  TRDM = class(TRemoteDataModule, IRDM)
    DataSetProviderBase: TDataSetProvider;
    P_Sys_Year: TDataSetProvider;
    DataSetProviderCredit: TDataSetProvider;
    DataSetProviderCourse: TDataSetProvider;
    procedure RemoteDataModuleCreate(Sender: TObject);
    procedure RemoteDataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
    FInpkg:TSPkgData;
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure S_Add(var v_pkg: OleVariant); safecall;
    procedure S_Md(var v_pkg: OleVariant); safecall;
    procedure S_C_Add(const pStudent_id, pcourse, pcourse_t: WideString;
      pperiod, pcredit: Integer; const pbegin_date, pend_date: WideString);
      safecall;
    procedure S_C_Md(const pstudent_id, pcourse, pcourse_t: WideString;
      pperiod, pcredit: Integer; const pbegin_date, pend_date: WideString);
      safecall;
    procedure S_G_Md(const pstudent_id, pcourse: WideString; pgrades: Integer);
      safecall;
    procedure S_Year(const CurrentYear: WideString); safecall;
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}
uses DMUnit,MainUnit;

class procedure TRDM.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end
  else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

procedure TRDM.RemoteDataModuleCreate(Sender: TObject);
begin
  { Update the client counter }
  MainForm.UpdateClientCount(1);
end;

procedure TRDM.RemoteDataModuleDestroy(Sender: TObject);
begin
  { Update the client counter }
  MainForm.UpdateClientCount(-1);
end;

procedure TRDM.S_Add(var v_pkg: OleVariant);
var  Data: PChar;
begin
  try
    Data := VarArrayLock(v_pkg);
    try
      Move(Data^, FInpkg, SPackageLength);
    finally
      VarArrayUnlock(v_pkg);
    end;

    DM.S_Add(FInpkg);

  except
    On E: Exception do begin
      Raise;
    end;
  end;
end;



procedure TRDM.S_Md(var v_pkg: OleVariant);
var  Data: PChar;
begin
  try
    Data := VarArrayLock(v_pkg);
    try
      Move(Data^, FInpkg, SPackageLength);
    finally
      VarArrayUnlock(v_pkg);
    end;

    DM.S_Md(FInpkg);

  except
    On E: Exception do begin
      Raise;
    end;
  end;

end;

procedure TRDM.S_C_Add(const pStudent_id, pcourse, pcourse_t: WideString;
  pperiod, pcredit: Integer; const pbegin_date, pend_date: WideString);
begin
  DM.S_C_Add(pStudent_id,pcourse,pcourse_t,pperiod,pcredit,pbegin_date,pend_date);
end;

procedure TRDM.S_C_Md(const pstudent_id, pcourse, pcourse_t: WideString;
  pperiod, pcredit: Integer; const pbegin_date, pend_date: WideString);
begin
  DM.S_C_Md(pstudent_id,pcourse,pcourse_t,pperiod,pcredit,pbegin_date,pend_date);
end;

procedure TRDM.S_G_Md(const pstudent_id, pcourse: WideString;
  pgrades: Integer);
begin
  DM.S_G_Md(pstudent_id,pcourse,pgrades);
end;

procedure TRDM.S_Year(const CurrentYear: WideString);
begin
  DM.S_Year(CurrentYear);
end;

initialization
  TComponentFactory.Create(ComServer, TRDM,
    Class_RDM, ciMultiInstance, tmApartment);
end.