以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求审核按钮的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49903)
--  作者：188802386
--  发布时间：2014/4/25 16:31:00
--  求审核按钮的代码
我建了个主机审核表  第一列为computer ID 第二列为该ID的注册码 
 同时也增加了主机审核窗口（一个审核按钮 一个主机审核表） 
我将第一列的ID填入后 点击审核就自动填入该ID的注册码

请问该  审核 按钮  代码应该怎么写呢 


If User.IsRole("审核") Then
  For Each r As Row In Tables("主机审核").GetCheckedRows
    r("注册码") = EncryptText("KIUVG19DSAXZ","abc","abc")
        r("审核") = User.Name
        r("审核日期") = Date.Today()
        r.Save()
        r.checked=False
    Next
Else
    MessageBox.show("你无审核权限!")
End If 

就是红色字 代表的是 computerID  然后这一列是 系统编号   请问 我改如何加进去呢
[此贴子已经被作者于2014-4-25 16:45:19编辑过]
--  作者：有点甜
--  发布时间：2014/4/25 16:33:00
--  

 是问如何生成注册码？

 

 注册码有特殊的要求吗？如果没有，就看看这里 http://www.foxtable.com/help/topics/1346.htm

 
--  作者：lsy
--  发布时间：2014/4/25 16:34:00
--  
注册码，是怎么算出来的？
--  作者：188802386
--  发布时间：2014/4/25 16:36:00
--  
就系统自带的那种注册码
--  作者：188802386
--  发布时间：2014/4/25 16:44:00
--  
 If User.IsRole("审核") Then
  For Each r As Row In Tables("主机审核").GetCheckedRows
    r("注册码") = EncryptText("KIUVG19DSAXZ","abc","abc")
        r("审核") = User.Name
        r("审核日期") = Date.Today()
        r.Save()
        r.checked=False
    Next
Else
    MessageBox.show("你无审核权限!")
End If 

就是红色字 代表的是 computerID  然后这一列是 系统编号   请问 我改如何加进去呢
--  作者：有点甜
--  发布时间：2014/4/25 16:46:00
--  
If User.IsRole("审核") Then
  For Each r As Row In Tables("主机审核").GetCheckedRows
        r("注册码") = EncryptText(r("系统编号"),"abc","abc")
        r("审核") = User.Name
        r("审核日期") = Date.Today()
        r.Save()
        r.checked=False
    Next
Else
    MessageBox.show("你无审核权限!")
--  作者：188802386
--  发布时间：2014/4/25 16:49:00
--  
谢谢