untsrdm.pas

车辆管理系统

unit untSRDM;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, ServerMain_TLB, StdVcl, UntCommons;

type
  TSRDM = class(TRemoteDataModule, ISRDM)
    procedure RemoteDataModuleCreate(Sender: TObject);
  private
    Commons:Tcommons;
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    function GetLogin(const DBName, UserCode, PassWord: WideString): Integer;
      safecall;
    function GetAdmin(const DBName, UserCode, PassWord: WideString): WordBool;
      safecall;
    function GetUserRight(const DBName: WideString;
      UserID: Integer): OleVariant; safecall;
    function GetUserName(const DBName, UserCode,
      PassWord: WideString): WideString; safecall;
    function GetAppTitle: WideString; safecall;
    function GetLargeData(const DBName, CmdStr: WideString;
      Rcount: Integer): OleVariant; safecall;
    function GetMaxID(const DBName, TableName, KeyField: WideString): Integer;
      safecall;
    function GetServerTime: WideString; safecall;
    function GetAdminLogin(const PassWord: WideString): WordBool; safecall;
    function IsUnique(const DBName, TableName, MasterField,
      CheckValue: WideString): WordBool; safecall;
    function ExecSql(const DBName, CmdStr: WideString): WordBool; safecall;
    function SysLog(const DBName, Fstate, Fform, Fevent, Fuser,
      Fpcname: WideString): WordBool; safecall;
    function ApplyUpdateDelta(const DBName: WideString; Delta: OleVariant;
      const TableName, KeyField, UserCode, PcName: WideString): WordBool;
      safecall;
    function GetInNumber(const DBName: WideString;
      pBillTypeID: Integer): Integer; safecall;
    function GetOutNumber(const DBName: WideString;
      pBillTypeID: Integer): WideString; safecall;
    function ApplyupdateMD(const DBName: WideString; Mdelta: OleVariant;
      const MtableName, MkeyField: WideString; Ddetla: OleVariant;
      const DtableName, DkeyField, UserCode, PCname: WideString): WordBool;
      safecall;
    function WriteDraft(const DBName: WideString; pStatus: Integer;
      const pBillName, pBillNo, pBillSelfNo, pCompany, pRemark,
      pCreaUser: WideString): WordBool; safecall;
    function GetBillStatus(const DBName, pSqlTiao: WideString): OleVariant;
      safecall;
    function IsVip(const DBName: WideString; Cid: Integer): WordBool; safecall;
    function GetVIPID(const DBName: WideString; CustomerID: Integer): Integer;
      safecall;
    function ExistVip(const DBName: WideString; VIPid: Integer): WordBool;
      safecall;
    function WriteBalance(const DBName: WideString; pStatus,
      pBillStatus: Integer; const pNo, pBillName: WideString;
      pCusTomerID: Integer; const pRemark: WideString; pOverk, Poverf,
      Povert, pHire, pMortgage, pPMortgage, pPMainTain, pPBenZine,
      pPOther: Single; const pCreaUser: WideString): WordBool; safecall;
    function GetVehicleStatus(const DBName: WideString): OleVariant; safecall;
    function GetFinanceBalance(const DBName, Sdate,
      Edate: WideString): OleVariant; safecall;
    function GetFinanceCollect(const DBName, Sdate,
      Edate: WideString): OleVariant; safecall;
    function VehicleRent(const DBName, Vcode, Sdate,
      Edate: WideString): OleVariant; safecall;
    function CustomerRent(const DBName, CustomerNo, Sdate,
      Edate: WideString): OleVariant; safecall;
  public
    { Public declarations }
  end;

var
  RDMFactory:TcomponentFactory;

implementation

{$R *.DFM}

class procedure TSRDM.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;

function TSRDM.GetLogin(const DBName, UserCode,
  PassWord: WideString): Integer;
begin
  Result:=Commons.GetLogin(DBName,UserCode,PassWord); 
end;

procedure TSRDM.RemoteDataModuleCreate(Sender: TObject);
begin
  Commons:=Tcommons.Create;
end;

function TSRDM.GetAdmin(const DBName, UserCode,
  PassWord: WideString): WordBool;
begin
  Result:=Commons.GetAdmin(DBName,UserCode,PassWord); 
end;

function TSRDM.GetUserRight(const DBName: WideString;
  UserID: Integer): OleVariant;
begin
  Result:=Commons.getUserRight(DBName,UserID);
end;

function TSRDM.GetUserName(const DBName, UserCode,
  PassWord: WideString): WideString;
begin
  Result:=Commons.GetUserName(DBName,UserCode,PassWord);
end;

function TSRDM.GetAppTitle: WideString;
begin
  Result:=Commons.GetAppTitle;
end;

function TSRDM.GetLargeData(const DBName, CmdStr: WideString;
  Rcount: Integer): OleVariant;
begin
  Result:=Commons.GetLargeData(DBName,CmdStr,Rcount); 
end;

function TSRDM.GetMaxID(const DBName, TableName,
  KeyField: WideString): Integer;
begin
  Result:=Commons.GetMaxID(DBName,TableName,KeyField);
end;

function TSRDM.GetServerTime: WideString;
begin
  Result:=Commons.GetServerTime;
end;

function TSRDM.GetAdminLogin(const PassWord: WideString): WordBool;
begin
  Result:=Commons.GetAdminLogin(PassWord);
end;

function TSRDM.IsUnique(const DBName, TableName, MasterField,
  CheckValue: WideString): WordBool;
begin
  Result:=Commons.IsUnique(DBName,TableName,MasterField,CheckValue); 
end;

function TSRDM.ExecSql(const DBName, CmdStr: WideString): WordBool;
begin
  Result:=Commons.ExecSql(DBName,CmdStr);
end;

function TSRDM.SysLog(const DBName, Fstate, Fform, Fevent, Fuser,
  Fpcname: WideString): WordBool;
begin
  Result:=Commons.sysLog(DBName,Fstate,Fform,Fevent,Fuser,Fpcname);
end;

function TSRDM.ApplyUpdateDelta(const DBName: WideString;
  Delta: OleVariant; const TableName, KeyField, UserCode,
  PcName: WideString): WordBool;
begin
  Result:=Commons.ApplyUpdateDelta(DBName,Delta,TableName,KeyField,UserCode,PcName);
end;

function TSRDM.GetInNumber(const DBName: WideString;
  pBillTypeID: Integer): Integer;
begin
  Result:=Commons.GetInNumber(DBName,pBillTypeID); 
end;

function TSRDM.GetOutNumber(const DBName: WideString;
  pBillTypeID: Integer): WideString;
begin
  Result:=Commons.GetOutNumber(DBName,pBillTypeID);
end;

function TSRDM.ApplyupdateMD(const DBName: WideString; Mdelta: OleVariant;
  const MtableName, MkeyField: WideString; Ddetla: OleVariant;
  const DtableName, DkeyField, UserCode, PCname: WideString): WordBool;
begin
  Result:=Commons.ApplyupdateMD(DBName,Mdelta,Mtablename,MkeyField,Ddetla,Dtablename,DkeyField,UserCode,PCName);
end;

function TSRDM.WriteDraft(const DBName: WideString; pStatus: Integer;
  const pBillName, pBillNo, pBillSelfNo, pCompany, pRemark,
  pCreaUser: WideString): WordBool;
begin
  Result:=Commons.WriteDraft(DBName,pStatus,pbillName,pbillno,pbillSelfno,pcompany,premark,pcreauser);
end;

function TSRDM.GetBillStatus(const DBName,
  pSqlTiao: WideString): OleVariant;
begin
  Result:=Commons.GetBillStatus(DBName,pSqlTiao); 
end;

function TSRDM.IsVip(const DBName: WideString; Cid: Integer): WordBool;
begin
  Result:=Commons.IsVip(DBName,Cid);
end;

function TSRDM.GetVIPID(const DBName: WideString;
  CustomerID: Integer): Integer;
begin
  Result:=Commons.GetVIPID(DBName,CustomerID);
end;

function TSRDM.ExistVip(const DBName: WideString;
  VIPid: Integer): WordBool;
begin
  Result:=Commons.ExistVip(DBName,VIPid);
end;

function TSRDM.WriteBalance(const DBName: WideString; pStatus,
  pBillStatus: Integer; const pNo, pBillName: WideString;
  pCusTomerID: Integer; const pRemark: WideString; pOverk, Poverf, Povert,
  pHire, pMortgage, pPMortgage, pPMainTain, pPBenZine, pPOther: Single;
  const pCreaUser: WideString): WordBool;
begin
  Result:=Commons.WriteBalance(DBName,pStatus, pBillStatus, pNo, pBillName,
           pCusTomerID, pRemark,pOverk, Poverf, Povert, pHire, pMortgage,
           pPMortgage, pPMainTain, pPBenZine, pPOther, pCreaUser);
end;

function TSRDM.GetVehicleStatus(const DBName: WideString): OleVariant;
begin
  Result:=Commons.GetVehicleStatus(DBName);
end;

function TSRDM.GetFinanceBalance(const DBName, Sdate,
  Edate: WideString): OleVariant;
begin
  Result:=Commons.GetFinanceBalance(DBName,Sdate,Edate); 
end;

function TSRDM.GetFinanceCollect(const DBName, Sdate,
  Edate: WideString): OleVariant;
begin
  Result:=Commons.GetFinanceCollect(DBName,Sdate,Edate);
end;

function TSRDM.VehicleRent(const DBName, Vcode, Sdate,
  Edate: WideString): OleVariant;
begin
  Result:=Commons.VehicleRent(DBName,Vcode,Sdate,Edate);
end;

function TSRDM.CustomerRent(const DBName, CustomerNo, Sdate,
  Edate: WideString): OleVariant;
begin
  Result:=Commons.CustomerRent(DBName,CustomerNo,Sdate,Edate);
end;

initialization
  RDMFactory:=TComponentFactory.Create(ComServer, TSRDM,
    Class_SRDM, ciInternal, tmApartment);

end.