[求助]关于注册码【已解决】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于注册码【已解决】

共有2438人关注过本帖树形打印复制链接主题：[求助]关于注册码【已解决】

大红袍

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/22 14:10:00 [只看该作者]

9楼的代码，写在后面。

188802386

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2016/8/22 14:30:00 [只看该作者]

9楼代码后输出

select count(系统编号）form{主机审核} where 系统编号 = “gsfsdfgffffg” and 注册码 = ""

[此贴子已经被作者于2016/8/22 14:31:33编辑过]

188802386

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2016/8/22 14:34:00 [只看该作者]

可否增加个变量 Dim zcm As String = EncryptText("& ComputerId &","***","***")然后在套在注册码里面呢

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/22 15:05:00 [只看该作者]

cmd.CommandText ="Select Count(系统编号) Fr om {主机审核} Where 系统编号 = '" & ComputerId & "' and 注册码 = '" & zcm & "'"

188802386

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2016/8/22 16:27:00 [只看该作者]

原来审核代码EncryptText(e.Row("系统编号"),"***","***")

现在审核代码EncryptText("& ComputerId &","***","***")

这两个代码红色都是一样的，怎么

Dim zcm As String = EncryptText("& ComputerId &","***","***")

出来后就不一样了呢问题就出在这里，请问大红袍老师这个如何解决呢

大红袍

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/22 16:30:00 [只看该作者]

怎么不一样？系统编号不是用 ComputerId 吗？

Dim zcm As String = EncryptText(ComputerId,"***","***")

188802386

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2016/8/22 16:56:00 [只看该作者]

原来审核代码EncryptText(e.Row("系统编号"),"***","***")

现在审核代码EncryptText("& ComputerId &","***","***")

以上两个红色部分出来的系统编号执行出来都是一样的，但就是执行以上两段代码时得出来得注册码不一样

大红袍

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/22 17:00:00 [只看该作者]

Dim zcm As String = EncryptText(ComputerId,"***","***")

msgbox(zcm)

188802386

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2016/8/22 17:02:00 [只看该作者]

For Each r As Row In Tables("主机审核").GetCheckedRows

r("注册码") = EncryptText(r("系统编号"),"***","***")

这是原来生成注册码的代码

大红袍

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/22 17:03:00 [只看该作者]

看18楼

下一主题 >> << 上一主题

总数 24 上一页 1 2 3 下一页

主题：[求助]关于注册码【已解决】