vb实训报告.docVIP

项目名称 学生信息管理系统_需求分析及系统总体设计，数据库设计及连接 日期 2011-11-28（第一次实训） 工作目标 实现学生信息管理系统的功能模块设计、数据模块设计及ado对象模型实现数据库连接 工作要求 1、采用visual basi60+access2003开发 2、采用ado对象模型实现数据库连接 主要内容与小结： 系统总体设计 本项目采用了两层设计模式，分别为界面表现层和数据层。 功能模块设计 系统开发的总体结构任务是实现信息关系的系统化、规范化和自动化。 数据访问层关键代码： Dim mrc As Recordset, txtsql As String Dim usertype As String Private Sub cmdok_Click() frmlogin.Hide Static countname% Static countpassword% UserName = txtname.Text userpwd = txtpassword.Text Select Case usertype Case 学生 txtsql = select * from userinfo where user_name= + txtname.Text + and user_qx=0 Set mrc = executesql(txtsql) If UserName = Or mrc.EOF = True Then MsgBox (用户名输入为空或用户名输入错误，请重新输入正确的用户名) countname = countname + 1 If countname 3 Then txtname.Text = txtname.SetFocus Else End End If Else txtsql = select * from userinfo where user_password= + txtpassword.Text + Set mrc = executesql(txtsql) If userpwd = Or mrc.EOF = True Then MsgBox (密码输入为空或密码输入错误，请重新输入正确的密码) countpassword = countpassword + 1 If countpassword 3 Then txtpassword.Text = txtpassword.SetFocus Else End End If Else frmstudent.Show 学生用户输入用户名和密码均正确，允许进入学生界面 End If End If Case 教师 txtsql = select * from userinfo where user_name= + txtname.Text + and user_password= + txtpassword.Text + and user_qx=1 Set mrc = executesql(txtsql) If mrc.EOF = True Then txtpassword.Locked = True MsgBox (用户名或密码输入错误，请重新输入正确的用户名或密码) countname = countname + 1 If countname 3 Then txtname.Text = txtname.SetFocus Else End End If Else frmteacher.Show 教师用户输入用户名和密码均正确，允许进入教师界面 End If Case 管理员 txtsql = select * from userinfo where user_name= + UserName + and user_qx=2 Set mrc = executesql(txtsql) If UserName = Or mrc.EOF = True Then MsgBox (用户名输