学生成绩管理系统
来源:互联网 发布:桌面软件哪个好 编辑:程序博客网 时间:2024/04/27 17:58
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
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- 学生成绩管理系统
- nginx Directory Traversal Vulnerability
- 视频标准完全讲解
- 视频基础知识—720P/1080i/1080P
- 视频基础知识—720P/1080i/1080P
- ListView控件演示03:如何在列表添加项的时候减少UI的刷新
- 学生成绩管理系统
- ubuntu install sqlite3-ruby
- 推荐使用MindManager
- 一点一滴培养你的领导气质
- ListView控件演示04:查找列表中包含指定字符串的项
- 面试70技巧
- ListView控件演示05:获取指定坐标点的列表项
- 下雨了。
- 网站美工素材