untpooler.pas

车辆管理系统

  end;
end;

function TPooler.GetAdmin(const DBName, UserCode,
  PassWord: WideString): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetAdmin(DBName,UserCode,PassWord);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetUserRight(const DBName: WideString;
  UserID: Integer): OleVariant;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetUserRight(DBName,UserID)
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetUserName(const DBName, UserCode,
  PassWord: WideString): WideString;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetUserName(DBName,UserCode,PassWord);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetAppTitle: WideString;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetAppTitle;
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetLargeData(const DBName, CmdStr: WideString;
  Rcount: Integer): OleVariant;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetLargeData(DBName,cmdStr,Rcount);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetMaxID(const DBName, TableName,
  KeyField: WideString): Integer;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetMaxID(DBName,TableName,KeyField);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetServerTime: WideString;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetServerTime;
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetAdminLogin(const PassWord: WideString): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetAdminLogin(PassWord);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.IsUnique(const DBName, TableName, MasterField,
  CheckValue: WideString): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.IsUnique(DBName,TableName,MasterField,CheckValue);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.ExecSql(const DBName, CmdStr: WideString): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.ExecSql(DBName,CmdStr);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.SysLog(const DBName, Fstate, Fform, Fevent, Fuser,
  Fpcname: WideString): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.SysLog(DBName,Fstate,Fform,Fevent,Fuser,Fpcname); 
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.ApplyUpdateDelta(const DBName: WideString;
  Delta: OleVariant; const TableName, KeyField, UserCode,
  PcName: WideString): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.ApplyUpdateDelta(DBName,Delta,TableName,KeyField,UserCode,PcName); 
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetInNumber(const DBName: WideString;
  pBillTypeID: Integer): Integer;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetInNumber(DBName,pBillTypeID);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetOutNumber(const DBName: WideString;
  pBillTypeID: Integer): WideString;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetOutNumber(DBName,pBillTypeID);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.ApplyupdateMD(const DBName: WideString;
  Mdelta: OleVariant; const MtableName, MkeyField: WideString;
  Ddetla: OleVariant; const DtableName, DkeyField, UserCode,
  PCname: WideString): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.ApplyupdateMD(DBName,Mdelta,Mtablename,MkeyField,Ddetla,Dtablename,DkeyField,UserCode,PCName);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.WriteDraft(const DBName: WideString; pStatus: Integer;
  const pBillName, pBillNo, pBillSelfNo, pCompany, pRemark,
  pCreaUser: WideString): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.WriteDraft(DBName,pStatus,pbillName,pbillno,pbillSelfno,pcompany,premark,pcreauser);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetBillStatus(const DBName,
  pSqlTiao: WideString): OleVariant;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetBillStatus(DBName,pSqlTiao);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.IsVip(const DBName: WideString; Cid: Integer): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.IsVip(DBName,Cid);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.GetVIPID(const DBName: WideString;
  CustomerID: Integer): Integer;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.GetVipID(DBName,CustomerID);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.ExistVip(const DBName: WideString;
  VIPid: Integer): WordBool;
var
  RDM: ISRDM;
begin
  RDM := LockRDM;
  try
    Result := RDM.ExistVip(DBName,VIPid);
  finally
    UnlockRDM(RDM);
  end;
end;

function TPooler.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;
var
  RDM:ISRDM;
begin
  RDM:=LockRDM;
  try
    Result:=RDM.WriteBalance(DBName,pStatus, pBillStatus, pNo, pBillName,
           pCusTomerID,pRemark,pOverk, Poverf, Povert, pHire, pMortgage,
           pPMortgage, pPMainTain, pPBenZine, pPOther, pCreaUser);
  finally
    UnLockRDM(RDM);
  end;
end;

function TPooler.GetVehicleStatus(const DBName: WideString): OleVariant; safecall;
var
  RDM:ISRDM;
begin
  RDM:=LockRDM;
  try
    Result:=RDM.GetVehicleStatus(DBName);
  finally
    UnLockRDM(RDM);
  end;
end;

function TPooler.GetFinanceBalance(const DBName, Sdate,
  Edate: WideString): OleVariant;
var
  RDM:ISRDM;
begin
  RDM:=LockRDM;
  try
    Result:=RDM.GetFinanceBalance(DBName,sdate,edate);
  finally
    UnLockRDM(RDM);
  end;
end;

function TPooler.GetFinanceCollect(const DBName, Sdate,
  Edate: WideString): OleVariant;
var
  RDM:ISRDM;
begin
  RDM:=LockRDM;
  try
    Result:=RDM.GetFinanceCollect(DBName,sdate,edate);
  finally
    UnLockRDM(RDM);
  end;
end;

function TPooler.VehicleRent(const DBName, Vcode, Sdate, Edate: WideString): OleVariant;
var
  RDM:ISRDM;
begin
  RDM:=LockRDM;
  try
    Result:=RDM.VehicleRent(DBName,Vcode, Sdate, Edate);
  finally
    UnLockRDM(RDM);
  end;
end;

function TPooler.CustomerRent(const DBName, CustomerNo, Sdate,
  Edate: WideString): OleVariant;
var
  RDM:ISRDM;
begin
  RDM:=LockRDM;
  try
    Result:=RDM.CustomerRent(DBName,CustomerNo, Sdate, Edate);
  finally
    UnLockRDM(RDM);
  end;
end;

initialization
  PoolManager := TPoolManager.Create;
  TAutoObjectFactory.Create(ComServer, TPooler, CLASS_untPooler, ciMultiInstance, tmFree);
finalization
  PoolManager.Free;
end.