[:50]作者: hi-wzj 时间: 2008-8-23 22:57
看到的应该只是统计.mdb中的“启动”窗体的代码,因为不是核心代码所以我就没封作者: 静儿 时间: 2008-8-25 15:16
老大,我不知道你是怎么加密的。但我用您的大名和登录密码按shift登录,好噢,里面提示了不是用独占的方式打开无法保存更新,但设计和代码都能看得了的哦,哇,好多的代码。这就是你想送给我们的奖励?作者: 静儿 时间: 2008-8-25 15:25
呵呵,我不懂代码,谁来看看:
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