urdmserver.pas

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

unit Urdmserver;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, server_TLB, StdVcl, Provider, DB, ADODB, DBTables;

type
  TrdmServer = class(TRemoteDataModule, IrdmServer)
    ADOConnLogin: TADOConnection;
    ADOLogin: TADOQuery;
    dspLogin: TDataSetProvider;
    ADOsystem: TADOQuery;
    dspsystem: TDataSetProvider;
    Session1: TSession;
    dssystem: TDataSource;
    ADOHomeMaster: TADOQuery;
    ADOMember: TADOQuery;
    dspHomeMaster: TDataSetProvider;
    dspMember: TDataSetProvider;
    dshomemaster: TDataSource;
    dsMember: TDataSource;
    ADOInOut: TADOQuery;
    dsInOut: TDataSource;
    dspInOut: TDataSetProvider;
    ADOFix: TADOQuery;
    dsFix: TDataSource;
    dspFix: TDataSetProvider;
    ADOFee: TADOQuery;
    dsFee: TDataSource;
    dspFee: TDataSetProvider;
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure login(const username, password: WideString;
      out flag: OleVariant); safecall;
  public
    { Public declarations }
  end;

implementation

uses ufrmserver;

{$R *.DFM}

class procedure TrdmServer.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 TrdmServer.login(const username, password: WideString;
  out flag: OleVariant);
begin
    adologin.Close;
    adologin.Parameters.ParamByName('username').Value:=username;
    adologin.Parameters.ParamByName('password').Value:=password;
    adologin.Prepared;
    adologin.Open;
    if adologin.RecordCount=1 then
     flag:=true
    else
     flag:=false;
end;

initialization
  TComponentFactory.Create(ComServer, TrdmServer,
    Class_rdmServer, ciMultiInstance, tmApartment);
end.