Public Sub SercurityDB(locker As Boolean)
'SecurityDB True ( False)
' Doi ten ung dung
ChangeProperty "Apptitle", dbText, "QUAN LY NHAN SU"
' Dat lai form khoi dong cua ung dung
ChangeProperty "StartupForm", dbText, "frmLogin"
' Cho nhìn thay Khung Database hay không
ChangeProperty "StartupShowDBWindow", dbBoolean, locker
' Cho nhìn thay thanh Status hay không
ChangeProperty "StartupShowStatusBar", dbBoolean, locker
' Cho phép hien thanh design hay không
ChangeProperty "AllowBuiltinToolbars", dbBoolean, locker
' Cho phép thêm bot 1 item vào các thanh công cu hay không
'ChangeProperty "AllowToolbarChanges", dbBoolean, locker
' Cho phép hien thanh menu con khi click chuot phai hay không
ChangeProperty "AllowShortcutMenus", dbBoolean, locker
' Cho phép hien toan bo thanh menu hay không
ChangeProperty "AllowFullMenus", dbBoolean, locker
'Cho phép ngung chuong trình bang phím Ctrl+ Break khi dang chay hay không
ChangeProperty "AllowBreakIntoCode", dbBoolean, locker
' Vô hieu hoa phím dac biet nhu: F11
'ChangeProperty "AllowSpecialKeys", dbBoolean, locker
' Vô hieu hoa phím shift
'ChangeProperty "AllowBypassKey", dbBoolean, locker
'Cho phep design/ sua thuoc tính form/ report khi ðang mo hay không.
ChangeProperty "AllowDesignChanges", dbBoolean, locker
ChangeProperty "AppIcon", dbText, Access.CurrentProject.path & "\HinhAnh\Icons\ongke0711.ico"
Application.SetOption "ShowWindowsInTaskbar", False
End Sub
Function ChangeProperty(strPropName, varPropType, varPropValue)
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_XuLyLoi
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_KetThuc:
Exit Function
Change_XuLyLoi:
'Thuôòc tính không thâìy
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
'Không coì thuôòc tiình ðoì
ChangeProperty = False
Resume Change_KetThuc
End If
End Function