module1.bas

图书馆管理系统的实现

Attribute VB_Name = "Module1"
Public QX%, user$, pass$, AddorEdit$
Public Sub QuanXian()
    Select Case QX
        Case 1
            ChaoJiYongHu
        Case 2
            PuTongYongHu
        Case 3
            ZhiDuYongHu
    End Select
End Sub
Private Sub ChaoJiYongHu()
    Main.Insertuser.Enabled = True
    Main.XiuGaiYongHu.Enabled = True
    Main.KeHuInfo.Enabled = True
    Main.GongHuoShangInfo.Enabled = True
    Main.BookInfo.Enabled = True
    Main.EmpInfo.Enabled = True
    Main.XiaoShouDengJi.Enabled = True
    Main.GongHuoDengJi.Enabled = True
    Main.Show
    
'    empname = "select emp_name from manage_user where username='" + user + "'"
'    Main.StatusBar1.Panels.Item(1).Text = "用户：" & empname
End Sub
Private Sub PuTongYongHu()
    Main.Insertuser.Enabled = False
    Main.XiuGaiYongHu.Enabled = False
    Main.KeHuInfo.Enabled = True
    Main.GongHuoShangInfo.Enabled = True
    Main.BookInfo.Enabled = True
    Main.EmpInfo.Enabled = True
    Main.Show
    Main.StatusBar1.Panels.Item(1).Text = "用户：" & user
End Sub
Private Sub ZhiDuYongHu()
    Main.Insertuser.Enabled = False
    Main.XiuGaiYongHu.Enabled = False
    Main.KeHuInfo.Enabled = False
    Main.GongHuoShangInfo.Enabled = False
    Main.GongHuoDengJi.Enabled = False
    Main.XiaoShouDengJi.Enabled = False
    Main.BookInfo.Enabled = False
    Main.EmpInfo.Enabled = False
    Main.Show
    Main.StatusBar1.Panels.Item(1).Text = "用户：" & user
End Sub