学生成绩管理系统

Private Sub cmdok_Click()
Dim i As Integer
For i = 1 To rs.RecordCount   '从第一个到总数
    rs.AbsolutePosition = i   '把所找到的i变量值是绝对的    下，表中的命名和文本框对应

If Trim(rs("name")) = txtname.Text And Trim(rs("password")) = txtpassword.Text And Trim(rs("mingchen")) = cmbusertype.Text Then
   
Select Case Trim(rs("mingchen"))   '判断权限属于哪一个
   
    Case "管理员"
      guanli.Show        'Show显示
      Unload frmlogin
      MsgBox "欢迎您来到管理员界面", vbOKOnly, "热烈欢迎"
      Exit For
    Case "教师"
      jiaoshi.Show
      Unload frmlogin
      Exit For
    Case "学生"
      xuesheng.Show
      Unload frmlogin
      Exit For
     
End Select

Else
    If i = rs.RecordCount Then   '在表中没有找到这个用户为真的话
        txtname.SetFocus
        MsgBox "此账号不存在或输入有误！请认真填写！！！", 48, "错误"
        End If
        End If
Next
End Sub

Private Sub cmdzhuc_Click()
zhuc.Show
End Sub
 
'Private Sub Command1_Click()
'Text1.Text = App.Path
'End Sub                  测试相对路径！！！

Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path + "/can you feel it.mp3"

With cmbusertype         '权限框的显示
.AddItem "管理员"        '有管理员
.AddItem "教师"
.AddItem "学生"
End With
Call opensql             '模块的调用
Set rs = New Adodb.Recordset        '新的数据库记录斌值给设定的  re
rs.Open "weiuser", db, adOpenKeyset, adLockOptimistic
End Sub

 

有兴趣的同学请与我联系

QQ ： 308201677

电话：7114049

手机：15885479783