主题：关于软件注册问题

1、手工删除

（1）如果注册表中也没有用户信息呢？那不赋了一个空数据吗？

1、你可以判断注册表的值是不是为空，如果为空，说明没数据；

 

2、写到哪里都没所谓，它是独立的，一般写在后面。

注册表一共六七个数值是不是都得判断是否为空呢？

写到"AfterOpenProject"事件中好，还是写到主窗体的“AfterLoad”事件好呢？

还有一个问题就是我怎么删除注册表中注册项呢？不是删除注册值,我用Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software/Faxturer", True)

key.DeleteSubKey("Manu")

方法删除时弹出未将对象引用设置到对象的错误框

1、你可以只判断一个；当然判断多个也可以；

 

2、代码写到afterOpenProject吧；

 

3、删除这样写

 

Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software", True)
If key.OpenSubKey("MyApp") IsNot Nothing Then
    msgbox(1)
    key.DeleteSubKey("MyApp")
End If

写到afterOpenProject事件的什么地方？写到软件判断是否为注册软件之后在加载都有窗体前的位置好，还是放到所有事物处理完加入该代码好呢？

 写到AfterOpenProject的最后即可。

Dim dr1 As Table = Tables("用户资料表")
Dim xm As String=Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "姓名","")
Dim mc As String=Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "名称","")
If dr1.Rows.Count=0 And  xm IsNot Nothing And  mc IsNot Nothing Then
    Dim dr As Row = dr1.AddNew
    dr("姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "姓名" ,"")
    dr("电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "电话" ,"")
    dr("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "名称" ,"")
    dr("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","地址" ,"")
End If

 

老师看看代码哪错了怎么我把注册表注册信息全删了数据表还增加空数据行呢？

If dr1.Rows.Count=0 And  xm > "" And  mc > ""Then