主题：[求助] 引用用户登录密码

老师，有一 个人信息表 有一个 姓名 列 有一行姓名 张三 是系统用户，用户登录采用内置登录窗口。 在 个人信息表 中修改张三的个人信息时必须要输入张三的 登录密码才能实现。如何实现，请指点，谢谢！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.foxdb

请哪位大师指点指点啊。谢谢了！

红袍老师，是我没表述清楚。不是要修改密码，是在 个人信息表修改 个人信息时，提示要输入用户密码方可允许修改，就像银行取款一样。也就是说用户要在现场自己输入密码才能修改。

红袍老师，我的系统是用的外部数据表。 用户管理 。如何引用张三的密码呢？谢谢！

谢谢！

 

红袍老师，执行下面的代码得到的总是 显示“错误” 请您看看 哪里的问题？谢谢

 

Dim mm As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim dr As DataRow = DataTables("用户管理").SQLFind(" Name = '" & User.Name & "'")
If dr IsNot Nothing  Then
    If mm.Value Is Nothing Then
        MessageBox.Show("输入登录密码解锁","提示")
        Return
    Else
        If dr("config").Contains(MD5Encrypt("'" & mm.Value & "'")) Then    好像是这句有问题
            MessageBox.Show("正确")         
        Else
            MessageBox.Show("错误")
        End If
    End If
Else
    MessageBox.Show("您不是当前用户")
End If

红袍老师，下面是我的软件授权思路  不知道思路是否严谨 请您指点指点

用户登录，如果注册码正确，并与 config.txt 中的相同 正常打开系统。否则，打开获取验证码窗口，授权用户有 51b2e-34d90-6842d-f979d-4fa5b 激活码，Rand.NextString(25) 生成，如果激活码正确（最多5次重试机会，不正确强制退出系统），加载表 “激活码” 对应行 获取验证码，显示 激活按钮（验证码不正确时 按钮隐藏），点击激活按钮打开获取注册码窗口（机器码和注册码均显示为*），如果验证码正确（最多3次重试机会，不正确强制退出系统）生成注册码，并写入 项目文件 project 目录下的 config.txt 中（如果用户删除config.txt 打开项目后会自动创建该文件。），提示 激活成功。  确认后 删除 表 激活码（内部表） 中对应行（一个激活码只能使用一次）。如果没有激活码，可以试用15天。。

红袍老师，我上传例子，您给看看。

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.zip

是的，即使只有一组 都可以无限制使用。谢谢！

红袍老师，下面的这段代码逻辑是否严谨？谢谢！

AfterOpenProject

Dim s As String = FileSys.GetParentPath(ProjectPath) & "\config.txt"
If FileSys.FileExists(s) = False Then
   FileSys.WriteAllText(ProjectPath & "config.txt", "", false)
Else
    MessageBox.show("记录注册码文件丢失!","提示")
    Syscmd.Project.Exit(False)
End If
Dim RegOk As Boolean = GetConfigValue("注册状态",False)  '定义一个逻辑变量,来记录注册成功与否
Dim starday As Date = GetConfigValue("试用起始日",#1/1/1900#) '定义一个日期变量,来记录第一次打开系统的日期
Dim Ok As Boolean
Dim str As String = FileSys.ReadAllText(ProjectPath & "config.txt")
Dim Code As String = str
Dim sss As String
Try
    sss = DecryptText(Code,"efgabc","efgabc")
Catch ex As Exception
End Try
If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
    OK = True
Else
    If Date.Today > starday.AddDays(10)  AndAlso Ok = False Then
        Messagebox.Show("试用期已过,请及时注册软件!","提示")
    End If
    SaveConfigValue("注册状态",False)
    Forms("注册").Open()
    Code = FileSys.ReadAllText(ProjectPath & "config.txt")
    Try
        sss = DecryptText(Code,"efgabc","efgabc")
    Catch ex As Exception
    End Try
    If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
        OK = True
        SaveConfigValue("注册状态",True)
    End If
End If