学生信息管理系统.frm

学生管理系统

Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim i As Integer, a As Integer


Private Sub A32_Click()
系统信息.Show
End Sub

Private Sub A33_Click()
'帮助.Show
 CommonDialog1.HelpFile = App.Path & "\ClientHELP.HLP"
  CommonDialog1.HelpCommand = cdlHelpContents
  CommonDialog1.ShowHelp
End Sub

Private Sub bz_Click()
帮助.Show
End Sub

Private Sub cxdl_Click()
登陆框.Show
Unload Me
End Sub
Private Sub FLSJK_Click()
分离数据库.Show
End Sub
Private Sub kecheng_Click()
查询kecheng信息.Show
End Sub
Private Sub QUIT_Click()
End
End Sub

Private Sub SJKBF_Click()
数据库备份.Show
End Sub

Private Sub SJKcsh_Click()
数据库初始化.Show
End Sub

Private Sub TJYH_Click()
添加用户.Show
End Sub
Private Sub XGMM_Click()
修改密码框.Show
End Sub
Private Sub A1_Click()
添加系部信息.Show
End Sub
Private Sub A2_Click()
添加学生基本信息.Show
End Sub
Private Sub A21_Click()
学生基本信息.Show
End Sub
Private Sub A23_Click()
系部信息.Show
End Sub
Private Sub A25_Click()
课程信息.Show
End Sub
Private Sub A3_Click()
添加班级信息.Show
End Sub
Private Sub A31_Click()
意见.Show
End Sub
Private Sub A4_Click()
添加课程信息.Show
End Sub
Private Sub A5_Click()
添加成绩信息.Show
End Sub
Private Sub A6_Click()
查询学生基本信息.Show
End Sub
Private Sub A11_Click()
查询学生成绩信息.Show
End Sub
Private Sub A12_Click()
查询课程信息.Show
End Sub
Private Sub A13_Click()
查询系部信息.Show
End Sub
Private Sub A14_Click()
查询班级信息.Show
End Sub
Private Sub A22_Click()
成绩信息.Show
End Sub
Private Sub A24_Click()
班级信息.Show
End Sub
Function blnPower(STR As String) As Boolean
  Dim rs1111 As New ADODB.Recordset
  rs1111.Open "select * from 用户表 where 用户名='" & 用户名 & "'", cnn, adOpenKeyset, adLockOptimistic
   If rs1111.RecordCount > 0 Then
      If rs1111.Fields(STR) = False Then
         blnPower = False
      Else
         blnPower = True
      End If
   End If
   rs1111.Close
End Function

Private Sub Form_Load()
Call quanxian
Dim pnlX As Panel
  '添加面板，并将它们设置为目录。
  StatusBar1.Panels(1).AutoSize = sbrContents
 Set pnlX = StatusBar1.Panels.Add
  pnlX.AutoSize = sbrContents
  pnlX.text = "当前用户： " & rs1.Fields("用户名")
  Set pnlX = StatusBar1.Panels.Add
  pnlX.Style = sbrDate
  Set pnlX = StatusBar1.Panels.Add
  pnlX.Style = sbrTime
  

    ListView1.View = 2
   
    ListView1.Icons = ImageList1.object
  ListView1.ListItems.Clear         '刷新ListView控件
  '向ListView控件中添加元素
  Set itmX = ListView1.ListItems.Add(, , "操作员权限设置", 3)
  Set itmX = ListView1.ListItems.Add(, , "数据库初始化", 4)
  Set itmX = ListView1.ListItems.Add(, , "数据库备份", 6)
 TreeView1.LabelEdit = lvmManual
 Call Tree_change
rs3.Open "select * from 用户表 where 用户名='" + 登陆框.Label1.Caption + "'", cnn, adOpenKeyset
  If rs3.RecordCount > 0 Then
  If rs3.Fields("操作员权限设置") = 1 Then
     zb1(0).Enabled = True
  ElseIf rs3.Fields("操作员权限设置") = 0 Then
     zb1(0).Enabled = False
  End If
  If rs3.Fields("数据库初始化") = 1 Then
     zb1(1).Enabled = True
  ElseIf rs3.Fields("数据库初始化") = 0 Then
     zb1(1).Enabled = False
  End If
  If rs3.Fields("数据库备份") = 1 Then
     zb1(2).Enabled = True
  ElseIf rs3.Fields("数据库备份") = 0 Then
     zb1(2).Enabled = False
  End If
  If rs3.Fields("添加用户") = 1 Then
     TJYH.Enabled = True
  ElseIf rs3.Fields("添加用户") = 0 Then
    TJYH.Enabled = False
  End If
  If rs3.Fields("重新登陆") = 1 Then
    cxdl.Enabled = True
  ElseIf rs3.Fields("重新登陆") = 0 Then
    cxdl.Enabled = False
  End If
  If rs3.Fields("分离数据库") = 1 Then
   FLSJK.Enabled = True
  ElseIf rs3.Fields("分离数据库") = 0 Then
    FLSJK.Enabled = False
  End If
  If rs3.Fields("修改密码") = 1 Then
    XGMM.Enabled = True
  ElseIf rs3.Fields("修改密码") = 0 Then
    XGMM.Enabled = False
  End If
  If rs3.Fields("退出") = 1 Then
    QUIT.Enabled = True
  ElseIf rs3.Fields("退出") = 0 Then
    QUIT.Enabled = False
  End If
  If rs3.Fields("添加系部信息") = 1 Then
    A1.Enabled = True
  ElseIf rs3.Fields("添加系部信息") = 0 Then
    A1.Enabled = False
  End If
  If rs3.Fields("添加学生基本信息") = 1 Then
    A2.Enabled = True
  ElseIf rs3.Fields("添加学生基本信息") = 0 Then
    A2.Enabled = False
  End If
  If rs3.Fields("添加班级信息") = 1 Then
    A3.Enabled = True
  ElseIf rs3.Fields("添加班级信息") = 0 Then
    A3.Enabled = False
  End If
   If rs3.Fields("添加课程信息") = 1 Then
    A4.Enabled = True
  ElseIf rs3.Fields("添加课程信息") = 0 Then
    A4.Enabled = False
  End If
   If rs3.Fields("添加学生成绩") = 1 Then
    A5.Enabled = True
  ElseIf rs3.Fields("添加学生成绩") = 0 Then
    A5.Enabled = False
  End If
    If rs3.Fields("查询学生成绩") = 1 Then
    A14.Enabled = True
  ElseIf rs3.Fields("查询学生成绩") = 0 Then
    A14.Enabled = False
  End If
   If rs3.Fields("查询课程信息") = 1 Then
    A13.Enabled = True
  ElseIf rs3.Fields("查询课程信息") = 0 Then
    A13.Enabled = False
  End If
  If rs3.Fields("查询班级信息") = 1 Then
    A12.Enabled = True
  ElseIf rs3.Fields("查询班级信息") = 0 Then
    A12.Enabled = False
  End If
  If rs3.Fields("查询学生基本信息") = 1 Then
    A11.Enabled = True
  ElseIf rs3.Fields("查询学生基本信息") = 0 Then
    A11.Enabled = False
  End If
  If rs3.Fields("查询系部信息") = 1 Then
    A6.Enabled = True
  ElseIf rs3.Fields("查询系部信息") = 0 Then
    A6.Enabled = False
  End If
   If rs3.Fields("学生成绩") = 1 Then
    A22.Enabled = True
  ElseIf rs3.Fields("学生成绩") = 0 Then
    A22.Enabled = False
  End If
   If rs3.Fields("课程信息") = 1 Then
    A25.Enabled = True
  ElseIf rs3.Fields("课程信息") = 0 Then
    A25.Enabled = False
  End If
  If rs3.Fields("班级信息") = 1 Then
    A24.Enabled = True
  ElseIf rs3.Fields("班级信息") = 0 Then
    A24.Enabled = False
  End If
  If rs3.Fields("学生基本信息") = 1 Then
    A21.Enabled = True
  ElseIf rs3.Fields("学生基本信息") = 0 Then
    A21.Enabled = False
  End If
  If rs3.Fields("系部信息") = 1 Then
    A23.Enabled = True
  ElseIf rs3.Fields("系部信息") = 0 Then
    A23.Enabled = False
  End If
  If rs3.Fields("有关意见") = 1 Then
    A24.Enabled = True
  ElseIf rs3.Fields("有关意见") = 0 Then
    A24.Enabled = False
  End If
  If rs3.Fields("帮助") = 1 Then
    A21.Enabled = True
  ElseIf rs3.Fields("帮助") = 0 Then
    A21.Enabled = False
  End If
  If rs3.Fields("本系统信息") = 1 Then
    A23.Enabled = True
  ElseIf rs3.Fields("本系统信息") = 0 Then
    A23.Enabled = False
  End If
  End If
 
  End Sub
 Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If ListView1.SelectedItem.text = "操作员权限设置" And zb1(0).Enabled = True Then
     权限设置.Show
     学生信息管理系统.Enabled = False
  ElseIf ListView1.SelectedItem.text = "操作员权限设置" And zb1(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If ListView1.SelectedItem.text = "数据库初始化" And zb1(1).Enabled = True Then
   数据库初始化.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "数据库初始化" And zb1(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "数据库备份" And zb1(2).Enabled = True Then
   数据库备份.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "数据库备份" And zb1(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "添加用户" And TJYH.Enabled = True Then
   添加用户.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "添加用户" And TJYH.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "重新登陆" And cxdl.Enabled = True Then
   登陆框.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "重新登陆" And cxdl.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "分离数据库" And FLSJK.Enabled = True Then
   分离数据库.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "分离数据库" And FLSJK.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "修改密码" And XGMM.Enabled = True Then
   修改密码.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "修改密码" And XGMM.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "退出" And QUIT.Enabled = True Then
   End
  ElseIf ListView1.SelectedItem.text = "退出" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "添加系部信息" And QUIT.Enabled = True Then
   添加系部信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "添加系部信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
If ListView1.SelectedItem.text = "添加学生基本信息" And QUIT.Enabled = True Then
   添加学生基本信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "添加学生基本信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "添加班级信息" And QUIT.Enabled = True Then
   添加班级信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "添加班级信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "添加课程信息" And QUIT.Enabled = True Then
   添加课程信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "添加课程信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "添加学生成绩" And QUIT.Enabled = True Then
   添加成绩信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "添加学生成绩" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If ListView1.SelectedItem.text = "查询系部信息" And QUIT.Enabled = True Then
   查询系部信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "查询系部信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
If ListView1.SelectedItem.text = "查询学生基本信息" And QUIT.Enabled = True Then
   查询学生基本信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "查询学生基本信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "查询班级信息" And QUIT.Enabled = True Then
   查询班级信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "查询班级信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "查询课程信息" And QUIT.Enabled = True Then
   查询课程信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "查询课程信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "查询学生成绩" And QUIT.Enabled = True Then
   查询成绩信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "查询学生成绩" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If ListView1.SelectedItem.text = "系部信息" And QUIT.Enabled = True Then
   系部信息.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.text = "系部信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub