学生信息管理信息系统分析与设计报告.doc

学生信息管理信息系统分析与设计
学生姓名：
学 号：
专 业: 信息管理与信息系统
班 级：
指导教师:
完成日期: 2014 年 12月 30日
27

学生信息管理信息系统分析与设计
内 容 摘 要
学生信息管理信息系统是一个教育单位不可缺少的部分，在某种程度上体现了一个学校的教育现代化水平，它的内容对于学校的决策者和管理者来说都至关重要.
而传统的学生管理系统大多由人工操作，不仅效率低，且可靠性不高. 
本文介绍了学生信息管理系统的开发整个过程，详尽讨论了系统相关数据库文件的建立，登陆界面的设计，身份权限的识别，查找的过程设计，修改的过程设计等，具体模块实施采用了原型法和面向对象系统开发方法。本系统具有学生档案管理，班级管理,课程管理，成绩管理，专业管理等模块,可分别完成日常学生档案，班级信息，课程信息，成绩信息的添加、修改、删除、查询、打印等功能。 
使用方便，操作简单，比较实用。 
关键词：信息管理 系统分析 设计
目录
序言
第一章 绪论…………………………………………………………5
1.1 系统开发的背景及意义……………………………………………5
第二章 系统规划……………………………………………………6
2.1 新系统的总体目标规划……………………………………………6
2.2 信息系统的功能规划………………………………………………6
2。3 信息系统的结构规划………………………………………………6
2.4 规划方案的可行性分析……………………………………………7
第三章 系统分析……………………………………………………8
3。1 组织结构分析………………………………………………………8
3。2 业务流程分析………………………………………………………8
3.3 数据流程分析………………………………………………………9
3。4 数据字典……………………………………………………………10
第四章 系统设计……………………………………………………11
4。1 信息系统的总体架构设计…………………………………………11
4。2 信息系统基础设施的设计与选择…………………………………11
4。3 信息系统总体功能及详细设计……………………………………12
4。4 代码设计……………………………………………………………12
4。5 数据库设计…………………………………………………………12
4。6 系统输入设计、处理过程设计及输出设计………………………16
第五章 系统实施……………………………………………………21
5.1 系统的物理配置设计………………………………………………21
5.2 程序设计……………………………………………………………22
5。3 系统测试……………………………………………………………28
第六章 总结体会……………………………………………………30
参考文献……………………………………………………………30
附录…………………………………………………………………31
序言
随着学校的规模不断扩大,学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生信息管理系统来提高学生管理工作的效率。本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除,另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。 
第一章 绪论
1。1开发背景及意义
学校学生信息管理系统软件,是因为目前学校学生人数剧增,学生信息呈爆炸性增长的前提下，学校对学生信息管理的自动化与准确化的要求日益强烈的背景下构思出来的，该软件设计完成后可用于所有教育单位(包括学校，学院等等）的学生信息的管理.
学生信息管理系统主要提供方便高效的管理功能以及网上的信息查阅平台，学生可以通过该系统查阅相关信息，管理员可以管理所有信息。
第二章 系统规划
2。1新系统的总体目标规划
（1）管理员能够实现对整个学生信息的添加，修改，删除，查询等操作，对学校系别、专业、班级的管理操作.
（2）可以将学生成绩的数据库发布到网上，方便学生教师进行查询，达到资源共享的目的。
（3）教师能够在一定的权限内对所有学生成绩的查询,所有教师信息的查询，对学生成绩的录入,统计学生成绩以及修改自己的密码。
(4）学生可以在自己的权限内对自己的成绩进行查询，以及个人信息的查询，登陆密码的修改等操作.
2。2功能规划
1.学生管理功能：为了方便学生信息的增加、删除、修改、查询.  
2.课程管理功能：管理员可以通过填写表格的形式修改课程等相关信息。 
3.成绩管理功能：管理员可以对数据库中的学生成绩信息进行增加、修改。 
4。班级管理功能：管理员可以通过此功能对班级信息进行增加、删除、修改、查询。 
5.用户管理功能：可以增加、删除、修改、查看该程序的登陆用户,超级管理员并可以设置用户的权限。
2。3结构规划
一）目标系统定位
对现有的正方教务管理系统进行相关业务分析， 针对学生管理部分进行优化 与整合,以更好地完成校方对学生的管理，和方便学生更好地使用该系统完成较为完善的自主管理机制下的良好教学管理。 现有的系统界面直观，操作简单;界面友好而且使用方便，做到了尽量使用户的数据输入最少;具有人机亲和力，做到了输入画面尽可能接近实际；界面保 持一致,让用户始终用同一种方式思考与操作； 界面应该使用户随时能够掌握任 务的进展情况；界面具有较强的容错功能,避免因为误操作、按键连击等可能导 致的数据误录. 但仍存在文章所述第二部分的诸多问题.所以在此对相关问题进行分析,以期解决。
（二）目标客户分析
我校学生管理信息系统主要的目标客户主要有三类，具体如下:我校教务系统管理人员， 简称后台管理； 教务处以及教师；还有就是我校各院系学生。
2。4可行性分析
由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料,特别是参考其它程序的功能,因此完全可以实现。
第三章 系统分析
3.1组织结构分析
由于系统的局限性，以及使用者的单一性，所以系统只有后台操作，即描述的是管理员与数据库的相互关系
图3.1学生信息管理系统组织结构图
3。2业务流程分析
学生管理系统主要是以先进的管理理念和科学的计算机技术来取代原始的手工操作。在新系统开发前，我们对这个管理系统业务流程进行了系统的调查，得出了下面的业务流程图，如图4-1所示：
图3。2 学生管理信息业务流程图
主要业务分析： 
（1） 可以随时录入修改和删除学生信息,对学校每年新招收的学生可以在系统中实现添加管理，对于出错的学生信息可以及时进行修改，对半途离开学校和毕业出去的学生信息可以及时删除。做到及时有效管理在校学生的相关信息。 
（2） 可以通过学号输入和姓名输入，查询学生的基本信息和选课情况以及成绩分布。简单清晰地展现出用户所需要查询的信息.方便快捷。 
（3） 可以打印出课程表，学生名单和学生成绩表.
3.3数据流程分析
3.4数据字典
数据字典是指对数据的数据项、数据结构、数据流、数据存储、处理逻辑、外部实体等进行定义和描述，其目的是对数据流程图中的各个元素做出详细的说明.学生管理系统的数据字典的编写.
由数据流程图可以得到数据字典的内容,在数据字典中，仅给出了学生学号一个《数据元素》，在《外部项》中给出学生，在《数据存储》中给出学生基本信息表，在《加工》中给出学籍管理，在《数据流》中给出录入数据。

第四章 系统设计
4。1信息系统的总体架构设计
1)层次图
2)结构图
4.2信息系统基础设施的设计与选择
开发平台层： Visual Basic 6.0
数据管理层：Microsoft Access 2007
系统软件层：windows
硬件层：笔记本
网络层:路由器
4。3信息系统总体功能及详细设计
1)学生信息管理模块
主要是对学生信息（如学号，姓名,性别，家庭住址等）进行管理。本模块又分为五个子模块：
录入学生信息；
查询学生信息；
修改/删除学生信息；
打印学生信息；
班级管理。
2）学生成绩管理模块
主要是对学生成绩进行管理.本模块分为四个子模块：
录入学生成绩;
查询学生成绩;
修改/删除学生成绩；
打印学生成绩。
3）用户管理模块
主要对使用本系统的用户进行如下管理：
添加新用户;
删除用户。
本模块只有管理员才能使用，普通用户不能进入.
4。4代码设计
1）代码的概念 
代码设计在系统分析阶段就应开始.由于编制代码要仔细调查和多方协调，所以是件很费事的工作，到系统设计阶段才能定下来。代码是代表事物名称、属性、状态等符号。代码在信息系统中是人与计算机的共同语言，是两者交换的工具.  
2)代码的作用 
代码为事物提供一个概要而不含糊的认定，便于数据的存储和检索,使用代码可以提高处理的效率和精度。 
（2。1）标识作用：可以标识和确定某个具体对象，以便于计算机的识别. 
(2.2）统计和检索作用：当按对象的属性或类别进行编码时，易于优化对象的统计和检索。 
（2。3)对象状态的描述作用：代码可以用来表明事物所处的状态，便于对象的动态管理。 
4。5数据库设计
数据库设计在一个信息管理系统中占有非常重要的地位,数据库结构设计的好坏直接对应系统的效率和实现的效果.合理的数据库结构的设计可以提高数据存储的效率，保证数据的完整和一致.同时，合理的数据库结构也将有利于程序的实现.  
1）数据库概念结构设计： 
数据库概念结构设计应在系统分析阶段进行，任务是根据用户需求设计出概念数据模型.概念结构设计所得的ER模型对用户需求的一种抽象表达形式。为了能够建立起最终的物理系统，需要将概念结构转化为DBMS所支持的数据模型。 
2）学生信息管理系统数据项和数据结构 
在学生管理系统的数据库概念设计中，从系统分析阶段的数据词典中分析出，数据存储之间的关系,也就是系统的关系模式.学生管理系统用关联图来描述概念模型，简称E—R图（实体联系图）,E—R图由三部分组成:实体、属性、联系。所用符号如下所示：
针对一般学生管理系统的需求,通过对学生学习过程的内容和数据流程分析，设计如下所示的数据项和数据结构： 
（a)学生基本信息：包括的数据项有：学号、姓名、性别、出生日期、班号、联系电话、入校日期、家庭住址、备注等。 
（b）班级信息：包括的数据项有:班号、所在班级、辅导员、所在教室等。 
（c)课程基本信息:包括的数据项有:课程编号、课程名称、课程类别、课程描述等. 
(d）课程设置信息：包括的数据项有：年级信息、所学课程等。 
（e)学生成绩信息：包括的数据项有：考试编号、所在班级、学生学号、学生姓名、所学课程、考试分数等。 
下面设计规划出的实体有：学生实体、班级实体、年级实体、课程实体。下面是各个实体具体的描述，由此得出学生信息管理系统的ER图：
图4-5—1学生信息管理系统的E—R图
学生实体E-R图：
图4—5—2学生实体E—R图
班级实体E—R图：
图4-5-3班级实体E-R图
寝室实体E—R图：
图4-5—4寝室实体E—R图
实体之间的关系E-R图:
图4-5—5实体之间的关系E-图
3）数据库逻辑结构设计:
逻辑结构设计的任务：把数据库概念结构设计阶段的出的ER图转化成SQL Server2000中所支持的实际数据模型。
数据库逻辑结构设计分两个步骤:首先将ER图转换成关系模型,然后对关系模型进行优化。 ER图转换成的关系模式如下所示：
学生（学号,姓名，性别，出生日期,班号,联系电话,入校日期,家庭住址，备注) 班级（班号，年级，辅导员，教室）
课程（课程编号，课程名称，课程类别，课程描述）
年级课程设置（年级，年级名称）
学生成绩（考试编号,学号，姓名，班号，课程名称,考试分数)
4)数据库结构的实现

经过前面的需求分析和概念结构分析以后，得到数据库的逻辑结构。就可以在SQL Server 2000数据库系统中实现该逻辑结构。这是利用SQL Server 2000数据库系统中的SQL查询分析器实现的.SQL语句在SQL Server2000中的查询分析器执行后,将自动产生需要的所有表格.管理信息系统处理方式的合理选择，就是一个处理过程的设计问题，选择处理方式实际就是根据系统的任务、目标和环境条件,合理的选择信息活动的形态及具体方法.
4．6系统输入设计、处理过程设计及输出设计
把登陆界面设置为启动项：选择菜单“工程"——“工程1 属性"，打开“工程1—工程属性”，选择“启动对象”,在“启动对象”下拉菜单中选择“Form1”。如图：
1．登录界面，运行。exe文件进入登录界面. 
设置窗体的startposition属性为centerscreen.让登陆窗口在屏幕的中央显示.

2.用户注册界面说明:用户直接单击“注册”按钮进入用户注册界面。
3.主菜单界面说明：用户直接单击“登陆”按钮进入主菜单界面。
4.添加院系界面展示及代码
如果用户类型是学生，“添加院系信息”菜单项呈灰色不可以状态。
5.修改院系界面展示及代码
如果用户类型是学生，“修改院系信息"菜单项呈灰色不可以状态
6.查询院系界面展示及代码
7。设置年级课程界面展示及代码： 
如果用户类型是学生,“设置年级信息"菜单项呈灰色不可以状态。
第五章 系统实施
5。1 系统的物理配置设计
数据库物理结构设计是为数据模型在设备商选定合适的存储结构和存取方法，已获得数据库的最佳存取效率。
学生信息系统数据库中的各个表格设计结果如下，每个表格表示在数据库中的一个表。
学生基本信息表Student_info
班级信息表Class_info
课程信息表Course info
年级课程设置表Gradecourse info
学生成绩信息表Result info
信息用户表User info
5.2 程序设计
1、登录模块代码:
Public yhm＄， mm1$
Dim num%
Private Sub Command1_Click（）
Dim yh＄, mm$， a％
yh = Trim（Text1。Text)
On Error Resume Next
Dim m As String
m = ”select * from 用户表 where 用户名=’” & Trim（Text1。Text) & ”' and 用户身份='" & Trim(Combo1。Text) & "’"
Me.Data1.RecordSource = m
Me.Data1。Refresh
yh = Text1。Text
mm = Text2.Text
If Me.Data1.Recordset.RecordCount = 0 Then
MsgBox "用户名不存在或用户身份错误,请重新输入！”, vbExclamation, ”提示” num = num + 1
Else
mm = Text2.Text
If mm = Data1.Recordset。Fields("密码") Then
yhm = yh
mm1 = Text2。Text
sys_lock = False
num = 0
登录。Hide
MDIForm1.Show
Else
MsgBox ”密码错误，请重新输入！”, ， ”输入错误"
num = num + 1
Text2。Text = ""
Text2。SetFocus
End If
End If
If num = 3 Then
MsgBox "登录错误已达3次，请1分钟后重新登录”, vbInformation， ”错误”
a = Minute（Time) * 60 + Second（Time）
Set fso = CreateObject(”scripting.filesystemobject”)
Set txtfile = fso。createtextfile（App.Path ＆ ”\time。txt"， True)
txtfile。write （a）
txtfile.Close
End
End If
End Sub
Private Sub Command2_Click（)
End
End Sub
Private Sub Form_Load（）
Data1.DatabaseName = App.Path & "\用户表。mdb"
Data1。RecordSource = ”用户表”
Combo1.Text = ”学生"
On Error GoTo a
Open App.Path & ”\time.txt” For Input As ＃1
Input #1, a
Close #1
b = Minute(Time) * 60 + Second（Time)
c = b - CSng（a)
If c 〈 60 Then
MsgBox ”登录错误已经锁定系统，" ＆ 60 — c & ”秒钟后登录", vbInformation, "提示" End
Else
Kill App。Path & "\time.txt"
End If
a:
End Sub
2。主窗体代码：
Private Sub cjcx_Click（）
成绩查询.Show
End Sub
Private Sub cjtj_Click(）
成绩统计.Show
End Sub
Private Sub ckbb_Click()
DataReport1.Show
End Sub
Private Sub MDIForm_Load(）
StatusBar1.Panels(2）。Text = "系统当前用户：” ＆ 登录。yhm
If Trim（登录.Combo1.Text） = ”管理员" Then
MDIForm1.xsxxbj.Enabled = True
frm基本情况。cmdAdd。Enabled = True
frm基本情况.cmdCancel。Enabled = True
frm基本情况。cmdDelete.Enabled = True
frm基本情况。cmdEdit。Enabled = True
frm基本情况.cmdUpdate。Enabled = True
frm基本情况。cmdRefresh.Enabled = True
Else
MDIForm1.xsxxbj。Enabled = False
frm基本情况.cmdAdd。Enabled = False
frm基本情况.cmdCancel.Enabled = False
frm基本情况.cmdDelete。Enabled = False
frm基本情况。cmdEdit.Enabled = False
frm基本情况。cmdUpdate.Enabled = False
frm基本情况。cmdRefresh.Enabled = False
End If
End Sub
Private Sub rstj_Click（)
人数统计。Show
End Sub
Private Sub tc_Click（)
End
End Sub
Private Sub Toolbar1_ButtonClick（ByVal Button As MSComctlLib。Button） Select Case Button.Key
Case ”Tmm”
修改密码.Show
Case ”Tck"
frm基本情况.Show
End Select
End Sub
Private Sub xhcx_Click（)
X = MsgBox("请输入要查询的学号", , "查询")
End Sub
Private Sub xsxxbj_Click()
信息管理.Show
End Sub
3.成绩查询模块代码：
Private Sub Command1_Click（）
Dim c As String
c = InputBox$("请输入学号"， "查找窗”）
Data1.RecordSource = "select * from 成绩情况 where 学号 like '” ＆ c ＆ ”’” Data1.Refresh
If Data1。Recordset.EOF Then
MsgBox ”无此学号！", , ”提示"
Data1.RecordSource = ”成绩情况”
Data1.Refresh
End If
End Sub
Private Sub Command2_Click（）
Unload Me
End Sub
Private Sub Form_Load(）
Data1。DatabaseName = App.Path ＆ "\stu.mdb"
End Sub
4.人数统计模块代码：
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load(）
Adodc1。ConnectionString = ”Provider=Microsoft。Jet。OLEDB.3.51;Persist Security Info=False；Data Source=” & App.Path ＆ ”\stu。mdb"
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select 专业,count（*) As 人数 From 基本情况 Group By 专业" Adodc1.Refresh
End Sub
5。学生信息编辑模块代码：
Private Sub Command1_Click（）
Command2.Enabled = Not Command2。Enabled
Command3。Enabled = Not Command3。Enabled
Command4.Enabled = True
If Command1。Caption = ”新增” Then
Command1。Caption = ”确认”
mbookmark = Data1.Recordset。Bookmark
Data1。Recordset.AddNew
Text1.SetFocus
Else
Command1.Caption = "新增”
Data1.Recordset.Update
Data1.Recordset。MoveLast
End If
End Sub
Private Sub Command2_Click()
i = MsgBox（"确定删除当前信息吗？”, 4 + vbQuestion, "提示”)
If i = 6 Then
On Error Resume Next
Data1。Recordset.Delete
Data1.Recordset。MoveNext
If Data1。Recordset。EOF Then Data1.Recordset。MoveLast
End If
End Sub
Private Sub Command3_Click(）
Command2。Enabled = Not Command2.Enabled
Command1。Enabled = Not Command1。Enabled
Command4。Enabled = True
If Command3.Caption = "修改” Then
Command3。Caption = ”确认”
mbookmark = Data1.Recordset。Bookmark
Data1.Recordset。Edit
Text1。SetFocus
Else
Command3。Caption = "修改”
Data1.Recordset。Update
End If
End Sub
Private Sub Command4_Click（)
Command1。Caption = "新增"： Command3.Caption = "修改"
Command1.Enabled = True： Command2。Enabled = True
Command3.Enabled = True: Command4。Enabled = False
mbookmark = Data1。Recordset.Bookmark
Data1。UpdateControls
Data1.Recordset.Bookmark = mbookmark
End Sub
Private Sub Command5_Click（）
Dim m As String
m = InputBox$（”请输入要查找的学生学号"， ”查找窗”)
Data1。Recordset。FindFirst ”学号=’" ＆ m ＆ "’”
If Data1.Recordset.NoMatch Then MsgBox "无此学号！", , "提示” End Sub
Private Sub Command6_Click()
Unload Me
End Sub
Private Sub Data1_Reposition()
Data1.Caption = "基本情况：” ＆ （Data1。Recordset。AbsolutePosition + 1) End Sub
Private Sub Form_Load（）
Adodc1。ConnectionString = "Provider=Microsoft。Jet.OLEDB。3.51;Persist Info=False；Data Source=” ＆ App。Path ＆ ”\stu.mdb”
Data1.DatabaseName = App.Path ＆ "\stu。mdb”
Data1。RecordSource = "基本情况”
Adodc1.CommandType = adCmdUnknown
Adodc1。RecordSource = "select ＊ from 成绩情况 "
Adodc1.Refresh
’Adodc1.Recordset。Find (”学号=’" ＆ Text1.Text & "'”)
End Sub
6。修改密码模块代码：
Dim old＄， nw$, rnew$
Private Sub Command1_Click（）
old = Text1。Text
nw = Text2.Text
rnew = Text3.Text
Data1。Recordset。FindFirst ”用户名=’” ＆ 登录.yhm & ”’" Security
If old = 登录。mm1 Then
If nw = rnew Then
If rnew = "" Then
MsgBox "密码不能为空”, vbInformation， ”系统”
Exit Sub
End If
登录。mm1 = nw
On Error Resume Next
Data1.Recordset。Fields("密码”） = 登录。mm1
Data1。Recordset。Update
MsgBox "密码已经被修改！"
Unload Me
Else
MsgBox "两次密码不同！”
End If
Else
MsgBox "密码不对！”
End If
End Sub
Private Sub Command2_Click（）
Unload Me
End Sub
Private Sub Form_Load（)
Data1。DatabaseName = App.Path ＆ "\用户表.mdb”
Data1.RecordSource = "用户表”
End Sub
5。3 系统测试
本次测试采用黑盒测试法，对学生信息管理系统进行测试。首先，进行对功能模块进行划分，明确功能测试的人员负责情况。其次，对各个模块进行测试。在测试时，把程序看作一个不能打开的黑盒子，在完全不考虑内部结构和内部特性的情况下，测试者在程序接口进行测试,它只检查程序功能是否按照需求规格说明书的规定正常使用，程序能否适当的接收输入数据而产生正确的输出信息,并且保证外部信息的完整性。
第六章 总结体会

  忙碌了一段时间，学生信息管理系统的制作算是告一段落了,经过这次系统设计课设，虽然有很多不足，不过收获还是颇为丰富的，再有理论知识上结合实践,使我学到了更多。    
首先是知识层面，更进一步的了解了系统分析与设计的基本操作，其实很多东西不是上课能解决的，必须要自己动手实践. 最直接的收获就是系统的制作和报告的撰写，这些东西都得靠自己在下面翻书看，或者查阅别人的优秀案例,取人之长,补己之短。其实很东西都是在潜移默化的状态下收获的。在系统设计的过程中，我从中发现，学习系统分析与设计要细心和有耐性,并且要不断地从外界学习更多的技术才能设计出一套完美的系统。总之，这次课设让我学会了不少东西,也为以后的职场生涯打下了基础. 
参考文献：
［1]《信息系统分析与设计》黄孝章、刘鹏、苏利祥 清华大学出版社
［2］《Visual Basic程序设计》赵万龙 中国铁道出版社
［3]《数据库系统概论》萨师煊 王珊 高等教育出版社
［4］《基础会计学》陈爱玲、刘晓玉、崔志敏 陕西科学技术出版社
[5]《SQL Server数据库基础教程与上机指导》周绪 清华大学出版社
[6]《信息资源管理》张凯 清华大学出版社
［7]《管理信息系统》邢喜荣、黄军仓、田喜群、杨芳龄 电子工业出版社
［8]《access数据库应用基础教程》梁灿、施兴家 清华大学出版社
附录
“登录”按钮代码： 
Private Sub Command2_Click（） 
Dim conn As New ADODB。Connection     
Dim rs As New ADODB.Recordset     
Dim sql As String      
conn.Open ”Provider=Microsoft.Jet。OLEDB.4.0;Data Source=" & 
App。Path & ”\stu。mdb”
sql = "Select ＊ from 用户信息表 where "      
If Trim（Text1.Text） = ”" Then   ’如果用户名为空 
MsgBox "用户名不能为空！"， vbOKOnly + vbCritical, "错误"         
Text1.SetFocus 
miCount = miCount + 1 ’累加输入次数         
Exit Sub     
End If      
If Trim(Text2.Text) = "” Then   ’如果密码为空 
MsgBox ”密码不能为空!”, vbOKOnly + vbCritical， ”错误"         
Text2.SetFocus         
Exit Sub     
End If      
If Trim（Combo1.Text） = "选择类别" Then   '如果密码为空 
MsgBox ”请选择用户类别！”, vbOKOnly + vbCritical, ”错误"         
Combo1。SetFocus         
Exit Sub     
End If      
sql = sql + ”userName='” & Text1。Text ＆ ”'”     
sql = sql + ” AND Pwd='” & Text2.Text ＆ "'”     
sql = sql + " AND Type=’” & Combo1.Text & ”’”      
rs.Open sql, conn， 1, 1 
If rs。RecordCount = 1 Then    ’找到记录   
PName = rs("userName”）   
PWord = rs(”Pwd")   
pType = rs(”Type"）    
Unload Me   
form3.Show   
quanxian  
Else 
MsgBox "用户名或密码不对！”， vbOKOnly + vbInformation， "错误"  
Unload Me End If  
rs.Close 
Set rs = Nothing conn。Close 
Set conn = Nothing  
miCount = miCount + 1 
If miCount = 3 Then    
Me.Hide 
End If 
Exit Sub  
End Sub 
用户注册代码如下： 
Private Sub Command1_Click()     
Dim conn As New ADODB。Connection     
Dim rs As New ADODB.Recordset     
Dim sql As String      
conn。Open "Provider=Microsoft。Jet.OLEDB.4.0;Data Source=” ＆ 
App。Path & ”\stu.mdb"      
    sql = "Select ＊ from 用户信息表 where "      
    If Trim(Text1。Text） = ”” Then ’如果用户名为空 
MsgBox "请输入真实姓名", vbOKOnly + vbCritical， ”错误”         
Text1。SetFocus         
Exit Sub 
End If      
If Trim(Text2.Text) = "” Then '如果密码为空 
MsgBox "请输入用户名", vbOKOnly + vbCritical, "错误"         
Text2。SetFocus         
Exit Sub     
End If      
If Text2。Text 〈〉 Text3.Text Then 
MsgBox "新密码与确认的密码不相同"， vbOKOnly