• 本通用权限管理系统的Exe版免费提供用户测试使用, 购买Dll版费用为RMB100元整,提供Dll、SQL脚本和Delphi、BCB、VB、PB调用的原程序示例. 购买Dll的Delphi6源代码费用为RMB500元整.不管是免费的, 购买的, 程序、源程序及SQL脚本的版权为作者所有.
• 用户购买所得的文件或代码、脚本只限于用户自己或本单位研发、发布系统使用, 不得免费或有偿再次发布、公布.
• 如不同意以上协议, 作者将不接受购买.

开寅软件工作室 ©1999-2001

开寅软件工作室 ?1999-2001

函数声明

软件设计者完全掌握权限管理不需要再绞尽脑汁, 使用通用权限管理工具DLL版,只需声明10个函数即可, 若是也让我沾一下你的光彩, 多声明一个ShowAbout也才11个。 本权限管理DLL测试了四种通用MIS开发工具的函数测试，均可使用。 C++Builder、VB、PB请点击进入相应的页面查看，VC++我不熟, 但用的人全是高手, 我也就不献丑了, 照BCB的稍改一下就行。 下面以Delphi的函数调用进行详细说明。 Delphi(DLL版提供本例本窗口的Delphi6.0和C++Builder5.0界面和代码) 强烈建议交付用户使用时更改DLL的名称以及改声明DLL的名称为相应的名称，以防止某些自以为是的人对其进行乱开发并破坏系统安全。 procedure ShowAbout;stdcall; external 'qxDll.dll'; {这个不用说了吧?} function ConnectDB(cnStr, user, pwd : PChar; dt, enpwd : PChar): integer; stdcall; external 'qxDll.dll'; {连接数据库 参数说明: cnStr : 就是上面要取得的连接参数 user : 登录数据库的用户ID pwd : 登录数据库的密码  dt : 日期格式为yyyy-MM-dd, 为空时取计算机日期 enpwd : 密码加密因子 返回值 :  0, 连接成功 1, 连接失败 } procedure DisConnectDB;stdcall; external 'qxDll.dll'; {断开数据库连接} procedure EditqxList(tran : integer);stdcall; {参数说明: 1 : 用事务处理, 0 : 不用事务处理} {打开权限列表维护窗口, 可不用声明, 因为最终用户不需要} procedure qxManager(tran : integer); stdcall; external 'qxDll.dll'; {参数说明: 1 : 用事务处理, 0 : 不用事务处理} {打开权限管理窗口, 这个最重要} function LoginCheck(userID, pwd, dt, ErrStr : PChar; sysErr : integer) : integer;stdcall; external 'qxDll.dll'; {用户登录你的系统 参数说明: userID : 登录到管理系统的用户名 pwd : 登录到管理系统的密码 dt : 同上一个函数,主要考虑到有的系统几天不关机, 好让软件知道刚才想登录的用户过期了没有 ErrStr : 如果用户登录失败, 你想在DLL中显示自己的信息时使用, 可以为空字符串 sysErr : 登录失败处理方式, 0, 由你的程序自己处理 1, 仅显示ErrStr所提供的信息 2, 由DLL来显示出错信息  返回值 :  0, 登录成功 1, 用户被禁止使用 2, 用户使用期限已过 3, 密码不正确 4, 无此用户 } function ShowLoginForm(Cap, dt : PChar; var userID: PChar;var sec : integer) : integer;stdcall; {用本DLL的登录对话框处理用户登录} {参数说明: Cap : 登录对话框的标题 dt : 同上一个函数,主要考虑到有的系统几天不关机, 好让软件知道刚才想登录的用户过期了没有 userID : 返回刚才登录用户的userID的缓冲区 sec : 10以上, 按秒计限时登录, 10以下,按次计限次登录. 登录成功时返回userID的长度 返回值 :  0, 登录成功 1, 登录限定次数已到 2, 登录限定时间已到 3, 用户取消 下面分别是两种限定的登录对话框图示： } function ChangUserPwd(userID,oldPwd,newPwd,dt : PChar): integer;stdcall; {更改用户密码 参数说明: userID : 登录到管理系统的用户名 oldPwd : 原来的密码 newPwd : 新密码 dt : 同上 返回值 :  0, 更改成功 1, 用户被禁止使用,所以不能更改 2, 用户使用期限已过,所以不能更改 3, 密码不正确,所以不能更改 4, 无此用户,所以不能更改 5, 新旧密码相同,所以不更改 6, 不明原因致使修改不成功} function ShowChangUserPwdForm(userID,dt : PChar): integer;stdcall; {用本DLL的登录对话框处理密码更改 参数为用户ID和日期 返回值:0 : 成功, 1 : 不成功 下面是用户改更密码对话框的图示： } function GetUserNameFromID(userID : PChar; var userName : PChar): integer;stdcall; {取得相应用户ID的用户名字 参数说明: userID : 用户ID userName: 返回检查到的用户名字的缓冲区 返回值: 0 : 没有取得这个ID的名字, 其它 : 返回userName的长度} function UserQxCheck(UserID : PChar; qxID : integer; ErrStr : PChar; sysErr : integer) : integer; stdcall; external 'qxDll.dll'; {检查某用户是否可使用某一功能的权限 参数说明: userID : 要检查权限的用户ID qxID : 要检查的权限ID, 注意, 是整数型值 ErrStr : 同上一函数 sysErr : 同上一函数 返回值 :  0, 有使用此功能的权限 1, 没有使用此功能的权限 }

开寅软件工作室 ©1999-2001