U8登录和权限开发手册.docVIP

加密控制 功能介绍： 加密控制在登录组件中实现，通过一次完整的登录过程，判断用户许可数。如果没有购买加密狗，产品允许使用演示版三个月，如果购买了加密狗，超过许可数的用户，仍然只能使用演示版；所有产品，超过演示期，一律禁止使用。 目前支持两种许可方式：单个模块的许可和包的许可; 1.按单个模块的许可 每个模块独立计算许可,一个客户端使用多个不同的模块,则统计占用了多个许可. 2.按包的许可 以包统计许可,没有模块的概念,整个包近似与一个大的模块,计算许可的时候,按照客户端来统计，一个客户端可以使用多个模块（如果这些模块在同一个包中），只算一个许可 . 使用环境： 支持通狗和产品狗； 支持环境为U870版本; 开发环境要求必须在 Microsoft.NET 的 Framework 2.0.50727 版本下进行 使用说明： 组件：UFSoft.U8.Framework.Login.UI 在VB中引用登录组件 1．在VB中点击主菜单中的“工程-引用”，随后出现的“引用”对话框中选中“UFSoft_U8_Framework_Login_UI”，然后点击“确定”，如下图所示： dll文件的方法函数图例如下 登录组件提供的主要方法： 1.login方法 对外提供的登录接口，支持不要登录界面的登录认证(如果参数都输全了) 语法Bool login(string pSubId,string UserId, string Pwd, string appServer,string operDate,string dataSource,string WorkStationSerial) login方法的语法包含下列部分：部分 描述 pSubId 必需的 dataSource 可选项，数据源 UserId 可选项, 用户编号 Pwd 可选项, 用户密码 appServer 可选项, 应用 服务器名 operDate 可选项, 注册日期 WorkStationSerial 可选项, 硬件序列号（必须全球唯一） 返回值:true 成功 False失败 举例 Private Sub mnu_login_Click(Index As Integer) Dim pSubId As String Dim pUserId As String Dim pPassword As String Dim cSrv As String Dim pDate As String Dim pAccId As String Dim cSerial As String pSubId = GL pUserId = demo pPassword = cSrv = echocloud pDate = 2006-11-01 pAccId = (default)@001 cSerial = If ologin.login(pSubId, pUserId, pPassword, cSrv, pDate, pAccId, cSerial) = False Then MsgBox m_NewLogin.ErrDescript Else MsgBox login ok End If End Sub 2.SubLogin方法 主要完成门户的登录后对子系统登录的校验工作，主要包括加密许可的控制，如果超过许可数，并且已经过三个月的演示期，则返回nothing. 语法ProductContext SubLogin(string SubId) SubLogin方法的语法包含下列部分：部分 描述 SubId 必需的 返回值: 产品在登录后在当前进程空间所保留的上下文 举例 Private Sub mnu_sublogin_Click(Index As Integer) 第二步：子系统登录 Set oLoginContext = ologin.SubLogin(GL) If oLoginContext Is Nothing Then MsgBox ologin.ErrDescript Else MsgBox sublogin ok. End If End Sub 3．SubLogout方法 子系统注销,释放登录时占用的许可，与SubLogin成对出现 语法void SubLogout(string SubId) SubLogout方法的语法包含下列部分：部分 描述 SubId 必需的 举例 ologin.SubLogout (GL) 4.ShutDown方法 在进行完成相应的登陆流程后，必须通过通过该方法来关闭该控件，否