sys.bas

一个图书馆的VB做的mis系统

Attribute VB_Name = "sys"
Sub lock_t()

'系统临时锁定--------------------------------------------------------


Dim pwd As String
Dim pwdr As String
Dim unlockt As String


pwd = InputBox("请设置解锁密码！", "T6-G4")

pwdr = InputBox("解锁密码确认！", "T6-G4")



If pwd <> pwdr Then

MsgBox "系统锁定失败...", vbInformation, "T6-G4"

Exit Sub

End If






main_form.Enabled = Not main_form.Enabled


MsgBox "系统已锁定", vbInformation, "T6-G4"


L:


unlockt = InputBox("请输入解锁密码", "T6-G4")




If unlockt = pwdr Then

main_form.Enabled = Not main_form.Enabled

Exit Sub

Else

MsgBox "解锁密码错误...", vbInformation, "T6-G4"

GoTo L

End If





End Sub







'隐藏超级管理员权限------------------------------------------

Sub log_normal()


main_form.menu_a_add.Enabled = False

main_form.menu_a_del.Enabled = False

main_form.menu_a_info.Enabled = False




End Sub