globals.pas

三層進銷存 使用接口和連接池 是他人的面试作品 delphi语言编写

unit Globals;

interface

uses Classes, sysutils, Variants;

type
  IGlobals=interface
  ['{E97237F2-1C89-498B-9462-51A17E278054}']
  function login(const usercode, password: WideString): Integer; safecall;
  function getusername(const usercode, password: WideString): WideString;
    safecall;
  function getadmin(const usercode, password: WideString): WordBool;
    safecall;
  function getapptitle: WideString; safecall;
  function getgroupid(const usercode, username: WideString): Integer;
    safecall;
  function syslog(const fform, fevent, fuser, fpcname: WideString): Integer;
      safecall;
  function execsql(const cmdstr: WideString): WordBool; safecall;
  function getlargedata(const psql: WideString;
      precCount: Integer): OleVariant; safecall;
  function applyupdata(pdelta: OleVariant; const ptablename,
      pkeyfield: WideString): WordBool; safecall;
  function getmaxid(const ptablename, pkeyfield: WideString): Integer;
      safecall;
  function isunique(const ptablename, pkeyfield,
      pkeyvalue: WideString): WordBool; safecall;
  function getnumber(pBilltypeid: Integer): WideString; safecall;
  function getinnunber(pbilltypeid: Integer): Integer; safecall;
  function purchasedetail(pitemid: Integer): OleVariant; safecall;  
end;

implementation


end.