| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于注册码【已解决】 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89443) |
|
| -- 作者：188802386 -- 发布时间：2016/8/22 11:03:00 -- [求助]关于注册码【已解决】 老师们好，我有个 主机审核 表 有 系统编号 和 注册码 列 请问如何在项目事件里面设计在不加载主机审核表的情况下，自己检查该主机是否有匹配的注册码，如果有则登录系统，如果没有注册码则打开“注册“””窗口，谢谢 系统编号用的 computerID [此贴子已经被作者于2016/8/22 19:17:38编辑过]
|
|
| -- 作者：大红袍 -- 发布时间：2016/8/22 11:04:00 -- 用sqlCommand查询
http://www.foxtable.com/webhelp/scr/0696.htm
|
|
| -- 作者：188802386 -- 发布时间：2016/8/22 11:10:00 -- \'注册码 If User.Type <> UserTypeEnum.User Then \' 如果是开发者或者管理员 \' Forms("导航").Open() \'打开导航窗口 Forms("背景窗口").Open() \'打开背景窗口 Else Dim Code As String = GetConfigValue("Register" & ComputerId,"") Dim Ok As Boolean Forms("注册").Open() 就是想不要注册窗口直接在后台检索，这块做不来，麻烦能给出详细代码吗，谢谢 Code = GetConfigValue("Register" & ComputerId,"") If Code > "" AndAlso DecryptText(Code,"***","***") = ComputerId Then \'如果注册码正确 OK = True \' Forms("导航").Open() \'打开导航窗口 Forms("背景窗口").Open() \'打开背景窗口 Else Ok = False Forms("未注册").Open() End If End If |
|
| -- 作者：大红袍 -- 发布时间：2016/8/22 11:15:00 -- Dim cmd As New SQLCommand |
|
| -- 作者：188802386 -- 发布时间：2016/8/22 11:51:00 -- Dim cmd As New SQLCommand cmd.C cmd.CommandText ="Select Count(系统编号) Fr om {主机审核} Where 系统编号 = \'" & ComputerId & "\'" cmd.CommandText ="Select Count(系统编号) Fr om {主机审核} Where 注册码 = DecryptText(Code,"***","***") If cmd.ExecuteScalar > 0 Then msgbox("查到了") Else msgbox("没查到") End If |
|
| -- 作者：大红袍 -- 发布时间：2016/8/22 11:53:00 -- cmd.CommandText ="Select Count(系统编号) Fr om {主机审核} Where 系统编号 = \'" & ComputerId & "\' and 注册码 = \'" & DecryptText(Code,"***","***") & "\'"
|
|
| -- 作者：188802386 -- 发布时间：2016/8/22 12:08:00 -- Dim Code As String = GetConfigValue("Register" & ComputerId,"") Dim cmd As New SQLCommand cmd.C cmd.CommandText ="Select Count(系统编号) Fr om {主机审核} Where 系统编号 = \'" & ComputerId & "\' and 注册码 = \'" & DecryptText(Code,"***","***") & "\'" If cmd.ExecuteScalar > 0 Then msgbox("系统已注册") Else msgbox("系统未注册") End If 大红袍老师，我明明有注册码 怎么还是提示“系统未注册”呢
|
|
| -- 作者：188802386 -- 发布时间：2016/8/22 12:17:00 -- Dim Code As String = GetConfigValue("Register" & ComputerId,"") Dim cmd As New SQLCommand cmd.C cmd.CommandText ="Select Count(系统编号) Fr om {主机审核} Where 系统编号 = \'" & ComputerId & "\' and 注册码 = \'" & DecryptText(Code,"***","***") & "\'" If cmd.ExecuteScalar > 0 Then msgbox("系统已注册") Else msgbox("系统未注册") End If 发现问题在红色这一段，是不是蓝色那段有问题呢， 系统编号和注册码都是字符型列
|
|
| -- 作者：大红袍 -- 发布时间：2016/8/22 12:22:00 -- 弹出sql语句看一下
msgbox(cmd.CommandText) |
|
| -- 作者：188802386 -- 发布时间：2016/8/22 13:57:00 --
|