📄 学生信息管理系统.frm

📁 学生管理系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
  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
End Sub

Private Sub Label3_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label3(Index).BorderStyle = 1
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     For i = 1 To ImageList1.UBound
    ImageList1(i).BorderStyle = 0
  Next i
  For i = 0 To Label3.UBound
    Label3(i).BorderStyle = 0
  Next i
End Sub



 Private Sub label2_Click(Index As Integer)
  Select Case Index
    Case 0
     End
    Case 1
      修改密码框.Show
    Case "2"
      查询课程信息.Show
    Case "3"
      学生基本信息.Show
    Case "4"
      帮助.Show
    Case "5"
     意见.Show
    End Select
End Sub


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  If TreeView1.SelectedItem.key = "系统维护" Then
       ListView1.ListItems.Clear   '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "操作员权限设置", 3)
     Set itmX = ListView1.ListItems.Add(, , "数据库初始化", 4)
     Set itmX = ListView1.ListItems.Add(, , "数据库备份", 5)
      
       Exit Sub    '退出本事件
  End If
    If TreeView1.SelectedItem.key = "系统管理" Then
       ListView1.ListItems.Clear   '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "添加用户", 6)
     Set itmX = ListView1.ListItems.Add(, , "重新登陆", 7)
     Set itmX = ListView1.ListItems.Add(, , "分离数据库", 8)
       Set itmX = ListView1.ListItems.Add(, , "修改密码", 9)
        Set itmX = ListView1.ListItems.Add(, , "退出", 10)
       Exit Sub    '退出本事件
  End If
   If TreeView1.SelectedItem.key = "添加数据" Then
       ListView1.ListItems.Clear   '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "添加系部信息", 11)
     Set itmX = ListView1.ListItems.Add(, , "添加学生基本信息", 12)
     Set itmX = ListView1.ListItems.Add(, , "添加班级信息", 13)
       Set itmX = ListView1.ListItems.Add(, , "添加课程信息", 5)
        Set itmX = ListView1.ListItems.Add(, , "添加学生成绩", 7)
       Exit Sub    '退出本事件
  End If
   If TreeView1.SelectedItem.key = "数据查询" Then
       ListView1.ListItems.Clear   '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "查询系部信息", 3)
     Set itmX = ListView1.ListItems.Add(, , "查询学生基本信息", 4)
     Set itmX = ListView1.ListItems.Add(, , "查询班级信息", 6)
       Set itmX = ListView1.ListItems.Add(, , "查询课程信息", 5)
        Set itmX = ListView1.ListItems.Add(, , "查询学生成绩", 7)
       Exit Sub    '退出本事件
  End If
  If TreeView1.SelectedItem.key = "编辑数据" Then
       ListView1.ListItems.Clear   '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "系部信息", 3)
     Set itmX = ListView1.ListItems.Add(, , "学生基本信息", 4)
     Set itmX = ListView1.ListItems.Add(, , "班级信息", 6)
       Set itmX = ListView1.ListItems.Add(, , "课程信息", 5)
        Set itmX = ListView1.ListItems.Add(, , "学生成绩", 7)
       Exit Sub    '退出本事件
  End If
  If TreeView1.SelectedItem.key = "帮助信息" Then
       ListView1.ListItems.Clear   '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "有关意见", 3)
     Set itmX = ListView1.ListItems.Add(, , "本系统信息", 4)
     Set itmX = ListView1.ListItems.Add(, , "帮助", 6)
       Exit Sub    '退出本事件
  End If
If ListView1.SelectedItem.text = "操作员权限设置" And zb1(0).Enabled = True Then
  
     权限设置.Show
    
  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
  
  ElseIf ListView1.SelectedItem.text = "添加系部信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
If ListView1.SelectedItem.text = "添加学生基本信息" And QUIT.Enabled = True Then
   添加学生基本信息.Show

  ElseIf ListView1.SelectedItem.text = "添加学生基本信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "添加班级信息" And QUIT.Enabled = True Then
   添加班级信息.Show
 
  ElseIf ListView1.SelectedItem.text = "添加班级信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "添加课程信息" And QUIT.Enabled = True Then
   添加课程信息.Show
 
  ElseIf ListView1.SelectedItem.text = "添加课程信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "添加学生成绩" And QUIT.Enabled = True Then
   添加成绩信息.Show

  ElseIf ListView1.SelectedItem.text = "添加学生成绩" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "查询系部信息" And QUIT.Enabled = True Then
   查询系部信息.Show

  ElseIf ListView1.SelectedItem.text = "查询系部信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
If ListView1.SelectedItem.text = "查询学生基本信息" And QUIT.Enabled = True Then
   查询学生基本信息.Show

  ElseIf ListView1.SelectedItem.text = "查询学生基本信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "查询班级信息" And QUIT.Enabled = True Then
   查询班级信息.Show

  ElseIf ListView1.SelectedItem.text = "查询班级信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "查询课程信息" And QUIT.Enabled = True Then
   查询课程信息.Show
  ElseIf ListView1.SelectedItem.text = "查询课程信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "查询学生成绩" And QUIT.Enabled = True Then
   查询成绩信息.Show

  ElseIf ListView1.SelectedItem.text = "查询学生成绩" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "系部信息" And QUIT.Enabled = True Then
   系部信息.Show

  ElseIf ListView1.SelectedItem.text = "系部信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
If ListView1.SelectedItem.text = "学生基本信息" And QUIT.Enabled = True Then
   学生基本信息.Show

  ElseIf ListView1.SelectedItem.text = "学生基本信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "班级信息" And QUIT.Enabled = True Then
   班级信息.Show

  ElseIf ListView1.SelectedItem.text = "班级信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "课程信息" And QUIT.Enabled = True Then
   课程信息.Show
 
  ElseIf ListView1.SelectedItem.text = "课程信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "学生成绩" And QUIT.Enabled = True Then
   成绩信息.Show

  ElseIf ListView1.SelectedItem.text = "学生成绩" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If ListView1.SelectedItem.text = "有关意见" And QUIT.Enabled = True Then
   意见.Show
 
  ElseIf ListView1.SelectedItem.text = "有关意见信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "帮助" And QUIT.Enabled = True Then
   帮助.Show

  ElseIf ListView1.SelectedItem.text = "帮助" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.text = "本系统信息" And QUIT.Enabled = True Then
   系统信息.Show

  ElseIf ListView1.SelectedItem.text = "本系统信息" And QUIT.Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
End Sub
Public Sub quanxian()
qx = rs1("权限级别")
Select Case qx
Case 1
TJSJ.Enabled = True
SJCX.Enabled = True
SJXG.Enabled = True
XTGL.Enabled = True
help.Enabled = True
zb.Enabled = True
Case 2
TJSJ.Enabled = True
SJCX.Enabled = True
SJXG.Enabled = False
XTGL.Enabled = True
help.Enabled = True
zb1(1).Enabled = False
zb1(0).Enabled = False
Case 3
TJSJ.Enabled = False
SJCX.Enabled = True
zb.Enabled = False
SJXG.Enabled = False
XTGL.Enabled = False
help.Enabled = True
End Select
Label1.Caption = "欢迎" + Trim(rs1("用户名")) + "使用此系统!"
End Sub
'自定义一个过程，用于显示TreeView控件中的数据
 Sub Tree_change()
  Dim key, text, BH, strtemp As String
  Dim Nod As Node '定义一个节点变量
  If rs1.State <> 0 Then rs1.Close
  rs1.Open "select distinct menu_menu,menu_menuid from xsbhb order by menu_menuid", cnn, 3, 3
  
 ' rs1.Open "select * from xsbhb order by menu_menuid", cnn, 3, 3
  If rs1.RecordCount > 0 Then
       rs1.MoveFirst
          Do While rs1.EOF = False    '循环读取第1层节点中的数据信息
            key = Trim(rs1.Fields("menu_menu"))
            text = rs1.Fields("menu_menu")
            strtemp = rs1.Fields("menu_menu")
            Set node1 = TreeView1.Nodes.Add(, tvwChild, key, text, 1)   '给第1层节点赋与数值
                     'If rs2.State <> 0 Then rs2.Close
                       rs2.Open "select * from xsbhb  where menu_menu ='" + strtemp + "'", cnn, 3, 1
                       If rs2.RecordCount > 0 Then
                         rs2.MoveFirst
                         Do While rs2.EOF = False    '循环读取第2层节点中的数据信息
                                key = Trim(rs2.Fields("menu_submenu"))
                                text = rs2.Fields("menu_submenu")
                                Set Node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, key, text, 2)   '给第2层节点赋与数值
                                rs2.MoveNext
                         Loop
                       End If
                       rs2.Close
          rs1.MoveNext
          Loop
  End If
  rs1.Close
End Sub

Private Sub zb1_Click(Index As Integer)
Select Case Index
Case 0
权限设置.Show
Case 1
数据库初始化.Show
Case 2
数据库备份.Show
End Select
End Sub
上一页 1 23
💿 文件大小 5150 K
👤 上传用户 rubyist
📂 所属分类教育系统应用
🏷️ 相关标签

#管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -