帮人家增加了点安全防护，无聊人可以下载下来测试一下。

静儿

老大，我不知道你是怎么加密的。但我用您的大名和登录密码按shift登录，好噢，里面提示了不是用独占的方式打开无法保存更新，但设计和代码都能看得了的哦，哇，好多的代码。这就是你想送给我们的奖励？

静儿

呵呵，我不懂代码，谁来看看：
Function 权限(类型 As String) As Boolean
Dim Rs As New ADODB.Recordset
Dim Sql As String
Dim StrPath As String
StrPath = CurrentProject.Path & "\data.dll"
Rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(StrPath) + ";"
Sql = "SELECT DISTINCT MSysAccounts_1.Name FROM (MSysAccounts INNER JOIN MSysGroups ON MSysAccounts.SID = MSysGroups.GroupSID) INNER JOIN MSysAccounts AS MSysAccounts_1 ON MSysGroups.UserSID = MSysAccounts_1.SID WHERE (((MSysAccounts_1.Name)=CurrentUser()) AND ((MSysAccounts.Name)='" & 类型 & "'));"
Set Rs = Rs.ActiveConnection.Execute(Sql)

If Rs.EOF Then
   权限 = False
Else
   权限 = True
End If
Set Rs = Nothing
End Function

登录权限似乎保存在data.dll里。

静儿

老大好像也有失手的时候哦。

静儿

[:42] 谢谢版主送出的[:19] 置顶卡。
其实我还是没看懂您是怎么加密的 ，如果您能将您的思路和大家分享，我想这对我们有很大的帮助。