Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于软件注册问题


  共有7066人关注过本帖树形打印复制链接

主题：关于软件注册问题
帅哥，在线噢！
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		关于软件注册问题  发帖心情 Post By：2017/11/5 10:03:00 [显示全部帖子]

软件交付后客户软件注册后将客户信息和公司信息写入到外部数据表,当客户重新安装软件后或者恢复原始数据后客户信息和公司信息都不存在了,但软件在一台电脑上只要注册成功后注册表就有信息了就不有注册了,但客户信息和公司信息怎么再写入数据库呢？怎么解决一下呢？

 回到顶部
帅哥，在线噢！
裴保民
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/5 22:46:00 [显示全部帖子]

信息是在客户注册软件时写入数据库的，注册完后，就不会在弹出注册窗体的所以重装程序后数据是空的没有客户的信息，怎么办呢？

 回到顶部
帅哥，在线噢！
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 10:21:00 [显示全部帖子]

我实在程序启动前首先判断程序启动是否超过30次如果超过就判断注册注册表内是否有注册信息或内部记录器记录是否有保存注册信息如果都没有信息就会弹出一个注册窗体要求用户注册否则进不去程序。现在如果用户用本机器注册过软件注册表信息肯定有信息内部记录器也有相关注册信息。如果重新安装程序后客户以前注册的公司信息和客户信息不存在数据库中的信息肯定没了。怎么解决一下这个问题呢？不可能再要求客户注册一次吧。

 回到顶部
帅哥，在线噢！
裴保民
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 12:49:00 [显示全部帖子]

甜老师注册表怎么储存文本信息呢？这些信息文本应该很长、很多条.怎么存呢？
 回到顶部
帅哥，在线噢！
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 16:06:00 [显示全部帖子]

（1）我要保存的信息有“客户姓名”、“客户电话”、“公司名称”、“公司地址”等信息，是不是得写好几遍如下代码呢？
Registry.SetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskId, e.Form.Controls("zhucemaTextBox").Value & "")

（2）读取信息的时候是不是也得写好几遍如下代码呢？
Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
 回到顶部
帅哥，在线噢！
裴保民
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 20:05:00 [显示全部帖子]

这样读取注册表信息对吗？怎么读取不了数据呢？
e.Form.Controls("ximngTextBox1").text = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & "姓名","")
e.Form.Controls("dianhuaTextBox1").text = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & "电话" ,"")
 回到顶部
帅哥，在线噢！
裴保民
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 20:09:00 [显示全部帖子]

已解决

 回到顶部
帅哥，在线噢！
裴保民
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 20:47:00 [显示全部帖子]

Dim dr1 As Table = Tables("用户注册信息表")
If dr1.Rows.Count=0 Then
dr1.AddNew
dr1.Current("姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "姓名","")
dr1.Current("电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "电话" ,"")
dr1.Current("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "名称" ,"")
dr1.Current("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","地址" ,"")
End If
甜老师看看哪错了怎么不给表赋值呢？
 回到顶部
帅哥，在线噢！
裴保民
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 21:17:00 [显示全部帖子]

蓝老师我已经向注册表写信息了，弹出的提示框也有信息，怎么就是不给表赋值呢？

图片点击可在新窗口打开查看此主题相关图片如下：8888.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：9999.jpg
图片点击可在新窗口打开查看
是表有问题吗？怎么一添加就添加一个空数据行呢？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:判断数据.rar


[此贴子已经被作者于2017/11/6 21:29:44编辑过]
 回到顶部
帅哥，在线噢！
裴保民
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 22:27:00 [显示全部帖子]

怎么删除注册表注册项呢？

 回到顶部
总数 30 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询