systemobject.pas

招投标软件代码,很有应用价值,请大家参考下哦,不明白的地方给我留言

unit SystemObject;

interface

uses
  Windows, SysUtils;

type
  PPathData = ^TPathData;
  TPathData = record
    SN: string;
    BSSERVER: string;
    CSSERVER: string;
    UPLOAD: string;
    AUTOUPDATE: string;
    //------------------------------------------以上均为服务器地址

   end;
  PMenuData = ^TMenuData;   //菜单集合
  TMenuData = record
    MenuCode: string;
    MenuName: string;
    SysCode: string;
    MethodParam: string;
    Apply: Integer;
    BackGround: string;
    Handle: Hwnd;
  end;


  pxmdbgc =^Txmbdgc;    //项目 工程，标段信息
  TXMbdgc = record
    XM_ISBn : string ;
    XM_NAME : string;
    BDLX_ID : string;
    BDLX_NAME: STRING;
    gCLX_ID  : string;
    GCLX_NAME : STRING;
  end;

  Puser =^Tuser;  //登陆该系统的用户信息
  Tuser = record
    user_id : string;
    user_type : integer;
  end;

  PDBLogin = ^TDBLogin;         //数据库连接参数
  TDBLogin = record
    WinNTMode: Boolean;
    DBServer: string;
    LoginID: string;
    LoginPassword: string;
    DBName: string;
    ConnectString: string;
    //==================
    BsServer: string;  //设置远程服务器
    //==================
    RDBServer: string;
    RLoginID: string;
    RPwd: string;
    RDBName: string;
    RConnectString: string;
  end;

  PsysVar = ^Tsysvar; //存储系统变量
  Tsysvar = Record
    dbLog : Integer;//判断何时数据连接窗口
  end;

var
  xmbdgc  : pxmdbgc;
  userInfor : puser;
  sysVar  : PsysVar;
  DBLogin :TDBLogin;

const
  ExportUrl        : string='investcortrol/transport/main.jsp';
  ExportSuccessUrl : string='investcortrol/transport/upload_success.jsp';
  ExportFailUrl    : string='';
implementation

end.