文件名称：Visual Basic课程设计 学生信息管理系统
文件大小：18KB
文件格式：DOC
更新时间：2014-06-17 05:44:31
Visual Basic 课程设计
这是用VB编写的学生信息管理系统 1．用户登录界面的代码 Private Sub Command1_Click() Adodc1.RecordSource = "select * from 用户信息表 where 用户名='" & Text1 & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示" Else If Text2 = Adodc1.Recordset.Fields("密码") Then MsgBox "登录成功！", , "正确提示" 用户登录窗体.Hide 选择操作窗体.Show Else MsgBox "您的密码错误，请输入正确的用户密码", , "错误提示" End If End If If Text1 <> "系统管理员" Then 选择操作窗体.Command1.Enabled = False 选择操作窗体.Command3.Enabled = False End If End Sub