http://www.delphibbs.com/delphibbs/dispq.asp?lid=579561的问题结束了,但我还没有得到答案(50分)

  • 主题发起人 主题发起人 songmk
  • 开始时间 开始时间
S

songmk

Unregistered / Unconfirmed
GUEST, unregistred user!
我还不明白。 我太苯了????
---------------------------------
不用密碼,用權限,在登錄時存On_load加入
Option Compare Database
Sub SetStartupProperties()
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
ChangeProperty "StartupForm", DB_Text, "Customers"
ChangeProperty "StartupShowDBWindow", DB_Boolean, False
ChangeProperty "StartupShowStatusBar", DB_Boolean, False
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
ChangeProperty "AllowFullMenus", DB_Boolean, True
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, True
ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' 找不到屬性。
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' 未知的錯誤。
ChangeProperty = False
Resume Change_Bye
End If
End Function


Private Sub Command0_Click()
On Error GoTo Err_Command0_Click


DoCmd.Close

Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click

End Sub
Private Sub Command1_Click()


ChangeProperty "AllowBypassKey", DB_Boolean, True


If Me!UesrName = "wyn" And Me!Password = "085477" Then

Else
MsgBox "密碼錯誤"
End If



End Sub
Private Sub Command2_Click()
ChangeProperty "AllowBypassKey", DB_Boolean, Flase
DoCmd.Close
End Sub

Private Sub Form_Load()
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
我就是這么做的

 
你是什么意思?是不是觉得登陆窗口限制权限的方法不够安全?
的确这样的方法安全隐患很严重,一旦权限被获取所有数据均等于公开,所以最好的方法是给数据直接加密,
具体加密算法很多,如果密匙复杂肯定加密时间会长点。
对于巨大量的数据,我个人觉得用HUFFMAN编码不错!
小型的随便挑一个,成名的算法不少!
 
加密算法我有,但是那样对数据库操作比较麻烦。

上面的那段代码我没看懂, 这样用户就不能直接打开我的access数据库了?

 
我的意思是那段代码加到哪里?
 
吖?程序咯。。
 
密码放库里,加解密代码放在登入form的代码里。
 
上面的代码不是delphi代码啊, 不能编译

请指教
 
再说清楚点
 
上面那个是VB的代码
 
到底怎样才能对access数据库加密?

上面的VB代码怎么用?

在ACCESS上要设置什么? 在程序里要怎么做?

 
我不懂VB啊

没有人理?

嫌分少? 再加200
 
卷起千堆雪tyn 说说怎么办啊??

谢谢
 
后退
顶部