VB 大作业 计算机科学与技术学院 0603 班—江涛
班 级：计科院 0603 班
学 号：2006215210309
姓 名：江涛
大
作
业
VB 大作业 计算机科学与技术学院 0603 班—江涛
试验 学生信息管理查询系统
学生管理系统能对学生信息进行管理并查询，本系统采用 VB+ACESS 工具开发
分为管理员登陆和学生登陆，管理员具有添加，删除，更新的权限。学生则只
有查询权限。二者共用以个数据库。下面就对系统的部分功能，模块及代码进
行分析。
一 数据库部分
该数据库由 ACESS 创建
如图
Admin 为管理员信息，student 为学生信息
分别如下图
二 VB 程序部分
首先是登陆界面
如图所示
VB 大作业 计算机科学与技术学院 0603 班—江涛
1 如果用户为管理员，则点击上面的管理员登陆。输入用户名，密码 点击管理
员登陆，则进入管理界面，如果输入不正确，则分别会弹出提示，此段代码为
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "用户名和密码不能为空！", vbExclamation, "警告"
Else
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from admin"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Text1 = Adodc1.Recordset.Fields("name") Then
If Text2 = Adodc1.Recordset.Fields("pwd") Then
land.Hide
Form1.Show
Else
MsgBox "密码错误", vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop
MsgBox "该用户不存在,请重新输入", vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
登陆成功后则进入
评论9