untcommon.pas

来自「车辆管理系统」· PAS 代码 · 共 70 行

unit untCommon;

interface

type

  Icommon = Interface
    ['{C110A171-72D7-4EA5-BFC1-A2CE31D747A2}']
  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;
end;

implementation

end.