学生信息管理信息系统分析与设计(共42页)

1、PAGE PAGE 49 本科毕业论文（设计(shj)）模板学生(xu sheng)信息管理信息系统分析与设计 学生(xu sheng)姓名： 学 号： 专 业： 信息管理与信息系统 班 级： 指导教师： 完成日期： 2014 年 12月 30日学生信息(xnx)管理信息系统分析与设计内 容 摘 要学生信息管理信息系统是一个教育单位不可缺少(qusho)的部分，在某种程度上体现了一个学校的教育现代化水平，它的内容对于学校的决策者和管理者来说都至关重要。而传统的学生管理系统大多由人工(rngng)操作，不仅效率低，且可靠性不高。本文介绍了学生信息管理系统的开发整个过程，详尽讨论了系统相关数据库文

2、件的建立，登陆界面的设计，身份权限的识别，查找的过程设计，修改的过程设计等，具体模块实施采用了原型法和面向对象系统开发方法。本系统具有学生档案管理,班级管理,课程管理,成绩管理，专业管理等模块,可分别完成日常学生档案，班级信息，课程信息，成绩信息的添加、修改、删除、查询、打印等功能。使用方便，操作简单，比较实用。关键词：信息管理 系统分析 设计 目录(ml)序言(xyn)绪论(xln)5 1.1 系统开发的背景及意义5系统规划6 2.1 新系统的总体目标规划6 2.2 信息系统的功能规划62.3 信息系统的结构规划62.4 规划方案的可行性分析7系统分析83.1 组织结构分析83.2 业务流程

3、分析83.3 数据流程分析93.4 数据字典10系统设计114.1 信息系统的总体架构设计114.2 信息系统基础设施的设计与选择114.3 信息系统总体功能及详细设计124.4 代码设计124.5 数据库设计124.6 系统输入设计、处理过程设计及输出设计16系统实施215.1 系统的物理配置设计215.2 程序设计225.3 系统测试28总结体会30参考文献30附录31 序言(xyn)随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对(min du)庞大的信息量需要有学生信息管理系统来提高学生管理工作的效率。本系统主要用于学校学生信息管理，总体任务是实现学生信息

4、关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询(chxn)、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。第一章 绪论(xln)1.1开发背景(bijng)及意义学校学生信息管理系统软件,是因为目前学校学生人数剧增,学生信息呈爆炸性增长的前提下,学校对学生信息管理的自动化与准确(zhnqu)化的要求日益强烈的背景下构思出来的,该软件设计完成后可用于所有教育单位(包括学校,学院等等)的学生信息的管理。学生信息管理系统主要提供方便高效的管理功能

5、以及网上的信息查阅平台，学生可以通过该系统查阅相关信息，管理员可以管理所有信息。第二章 系统(xtng)规划2.1新系统(xtng)的总体目标规划（1）管理员能够实现对整个学生信息的添加，修改，删除，查询等操作(cozu)，对学校系别、专业、班级的管理操作。（2）可以将学生成绩的数据库发布到网上，方便学生教师进行查询，达到资源共享的目的。（3）教师能够在一定的权限内对所有学生成绩的查询，所有教师信息的查询，对学生成绩的录入，统计学生成绩以及修改自己的密码。（4）学生可以在自己的权限内对自己的成绩进行查询，以及个人信息的查询，登陆密码的修改等操作。2.2功能规划1.学生管理功能：为了方便学生信息

6、的增加、删除、修改、查询。2.课程管理功能：管理员可以通过填写表格的形式修改课程等相关信息。3.成绩管理功能：管理员可以对数据库中的学生成绩信息进行增加、修改。4.班级管理功能：管理员可以通过此功能对班级信息进行增加、删除、修改、查询。5.用户管理功能：可以增加、删除、修改、查看该程序的登陆用户，超级管理员并可以设置用户的权限。2.3结构规划一）目标系统定位对现有的正方教务管理系统进行相关业务分析， 针对学生管理部分进行优化 与整合，以更好地完成校方对学生的管理，和方便学生更好地使用该系统完成较为完善的自主管理机制下的良好教学管理。 现有的系统界面直观，操作简单；界面友好而且使用方便，做到了尽

7、量使用户的数据输入最少；具有人机亲和力，做到了输入画面尽可能接近实际；界面保 持一致，让用户始终用同一种方式思考与操作； 界面应该使用户随时能够掌握任 务的进展情况；界面具有较强的容错功能，避免因为误操作、按键连击等可能导 致的数据误录。 但仍存在文章所述第二部分的诸多问题。所以在此对相关问题进行分析，以期解决。（二）目标客户分析我校学生管理信息系统主要的目标客户主要有三类，具体如下：我校教务系统管理人员， 简称后台管理； 教务处以及教师；还有就是我校各院系学生。2.4可行性分析(fnx)由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比

8、较适合于采用数据库管理。且学校用于学生管理的微机，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料(zlio)，特别是参考其它程序的功能，因此完全可以实现。第三章 系统分析3.1组织(zzh)结构分析由于系统的局限性，以及使用者的单一性，所以系统只有后台操作，即描述的是管理员与数据库的相互(xingh)关系图3.1学生(xu sheng)信息管理系统组织结构图3.2业务流程分析学生管理系统主要是以先进的管理理念和科学的计算机技术来取代原始的手工操作。在新系统开发前，我们对这个管理系统业务流程进行了系统的调查，得出了下面的业务流程图，

9、如图4-1所示：图3.2学生管理(gunl)信息业务流程图主要(zhyo)业务分析：（1）可以随时录入修改和删除学生(xu sheng)信息，对学校每年新招收的学生可以在系统中实现添加管理，对于出错的学生信息可以及时进行修改，对半途离开学校和毕业出去的学生信息可以及时删除。做到及时有效管理在校学生的相关信息。（2）可以通过学号输入和姓名输入，查询学生的基本信息和选课情况以及成绩分布。简单清晰地展现出用户所需要查询的信息。方便快捷。（3）可以打印出课程表，学生名单和学生成绩表。3.3数据流程分析3.4数据(shj)字典数据字典是指对数据的数据项、数据结构、数据流、数据存储、处理逻辑、外部实体等进

10、行(jnxng)定义和描述，其目的是对数据流程图中的各个元素做出详细的说明。学生管理系统的数据字典的编写。由数据流程图可以(ky)得到数据字典的内容，在数据字典中，仅给出了学生学号一个数据元素，在外部项中给出学生，在数据存储中给出学生基本信息表，在加工中给出学籍管理，在数据流中给出录入数据。 HYPERLINK /retype/zoom/d4b77179a417866fb84a8ea3?pn=13&x=0&y=604&raww=602&rawh=275&o=png_6_0_0_135_119_622_235_892.979_1262.879&type=pic&fr=color&md5sum=2

11、261efc65f53c5651394d4469850475b&sign=a6082fb1b7&png=198309-327115&jpg=167013-167013 第四章 系统(xtng)设计4.1信息系统的总体(zngt)架构设计1）层次(cngc)图2）结构图4.2信息系统基础设施的设计与选择开发平台层: VisualBasic6.0数据管理层：MicrosoftAccess2007系统软件层：windows硬件层：笔记本网络层：路由器4.3信息系统总体功能及详细(xingx)设计1）学生(xu sheng)信息管理模块主要是对学生(xu sheng)信息（如学号，姓名，性别，家庭住址

12、等）进行管理。本模块又分为五个子模块：录入学生信息；查询学生信息；修改/删除学生信息；打印学生信息；班级管理。2）学生成绩管理模块主要是对学生成绩进行管理。本模块分为四个子模块：录入学生成绩；查询学生成绩；修改/删除学生成绩；打印学生成绩。3）用户管理模块主要对使用本系统的用户进行如下管理：添加新用户；删除用户。本模块只有管理员才能使用，普通用户不能进入。4.4代码设计1）代码的概念代码设计在系统分析阶段就应开始。由于编制代码要仔细调查和多方协调，所以是件很费事的工作，到系统设计阶段才能定下来。代码是代表事物名称、属性、状态等符号。代码在信息系统中是人与计算机的共同语言，是两者交换的工具。2）

13、代码的作用代码为事物提供一个概要而不含糊的认定，便于数据的存储和检索，使用代码可以提高处理的效率和精度。（2.1）标识作用：可以标识和确定某个具体对象，以便于计算机的识别。（2.2）统计和检索作用：当按对象的属性或类别进行编码时，易于优化对象的统计和检索。（2.3）对象状态的描述作用：代码可以用来表明事物所处的状态，便于对象的动态管理。4.5数据库设计数据库设计在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏直接对应系统的效率和实现的效果。合理的数据库结构的设计可以提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。1）数据库概念结构设计：数据库概

14、念结构设计应在系统分析阶段进行，任务是根据用户需求设计出概念数据模型。概念结构设计所得的ER模型对用户需求的一种抽象表达形式。为了能够(nnggu)建立起最终的物理系统，需要将概念结构转化为DBMS所支持的数据模型。2）学生(xu sheng)信息管理系统数据项和数据结构在学生管理系统(xtng)的数据库概念设计中，从系统分析阶段的数据词典中分析出，数据存储之间的关系，也就是系统的关系模式。学生管理系统用关联图来描述概念模型，简称E-R图（实体联系图），E-R图由三部分组成：实体、属性、联系。所用符号如下所示：针对一般学生管理系统的需求，通过对学生学习过程的内容和数据流程分析，设计如下所示的数

15、据项和数据结构：（a）学生基本信息：包括的数据项有：学号、姓名、性别、出生日期、班号、联系电话、入校日期、家庭住址、备注等。（b）班级信息：包括的数据项有：班号、所在班级、辅导员、所在教室等。（c）课程基本信息：包括的数据项有：课程编号、课程名称、课程类别、课程描述等。（d）课程设置信息：包括的数据项有：年级信息、所学课程等。（e）学生成绩信息：包括的数据项有：考试编号、所在班级、学生学号、学生姓名、所学课程、考试分数等。下面设计规划出的实体有：学生实体、班级实体、年级实体、课程实体。下面是各个实体具体的描述，由此得出学生信息管理系统的ER图：图4-5-1学生(xu sheng)信息管理系统的

16、E-R图学生(xu sheng)实体E-R图：图4-5-2学生(xu sheng)实体E-R图班级实体E-R图：图4-5-3班级实体E-R图 寝室实体E-R图：图4-5-4寝室实体E-R图实体(sht)之间的关系E-R图：图4-5-5实体(sht)之间的关系E-图3）数据库逻辑(lu j)结构设计：逻辑结构设计的任务：把数据库概念结构设计阶段的出的ER图转化成SQL Server2000中所支持的实际数据模型。数据库逻辑结构设计分两个步骤：首先将ER图转换成关系模型，然后对关系模型进行优化。 ER图转换成的关系模式如下所示：学生（学号，姓名，性别，出生日期，班号，联系电话，入校日期，家庭住址，

17、备注） 班级（班号，年级，辅导员，教室）课程（课程编号，课程名称，课程类别，课程描述）年级课程设置（年级，年级名称）学生成绩（考试编号，学号，姓名，班号，课程名称，考试分数）4）数据库结构的实现 HYPERLINK /retype/zoom/d4b77179a417866fb84a8ea3?pn=23&x=0&y=104&raww=355&rawh=300&o=png_6_0_0_135_700_399_338_892.979_1262.879&type=pic&fr=color&md5sum=2261efc65f53c5651394d4469850475b&sign=a6082fb1b7&p

18、ng=578250-618042&jpg=332903-355603 经过前面的需求分析和概念结构分析以后，得到数据库的逻辑结构。就可以在SQL Server 2000数据库系统中实现该逻辑结构。这是利用SQL Server 2000数据库系统中的SQL查询分析器实现的。SQL语句在SQL Server2000中的查询分析器执行后，将自动产生需要的所有表格。管理信息系统处理方式的合理选择，就是一个处理过程的设计问题，选择处理方式实际就是根据系统的任务、目标和环境条件，合理的选择信息活动的形态及具体方法。46系统输入设计(shj)、处理过程设计及输出设计把登陆界面设置为启动项：选择(xunz)菜

19、单“工程(gngchng)”“工程1属性”，打开“工程1工程属性”，选择“启动对象”，在“启动对象”下拉菜单中选择“Form1”。如图：1登录界面，运行.exe文件进入登录界面。设置窗体的startposition属性为centerscreen。让登陆窗口在屏幕的中央显示。2.用户注册界面说明(shumng)：用户直接单击“注册(zhc)”按钮进入(jnr)用户注册界面。3.主菜单界面说明：用户直接单击“登陆”按钮进入主菜单界面。4.添加院系界面展示及代码如果用户类型是学生，“添加院系信息”菜单项呈灰色不可以状态。5.修改院系界面(jimin)展示及代码如果用户类型(lixng)是学生，“修改

20、(xigi)院系信息”菜单项呈灰色不可以状态6.查询(chxn)院系界面展示及代码7.设置年级课程界面展示(zhnsh)及代码：如果用户类型(lixng)是学生，“设置年级信息”菜单项呈灰色不可以状态。第五章 系统实施5.1 系统(xtng)的物理配置设计数据库物理结构设计是为数据模型在设备商选定合适(hsh)的存储结构和存取方法，已获得数据库的最佳存取效率。学生信息系统数据库中的各个表格设计(shj)结果如下，每个表格表示在数据库中的一个表。 学生基本信息表Student_info班级信息表Class_info 课程信息表Course info年级课程设置表Gradecourse info

21、学生(xu sheng)成绩信息表Result info信息(xnx)用户表User info5.2 程序设计(chn x sh j)1、登录模块代码：Public yhm$, mm1$Dim num%Private Sub Command1_Click()Dim yh$, mm$, a%yh = Trim(Text1.Text)On Error Resume NextDim m As Stringm = select * from 用户表 where 用户名= & Trim(Text1.Text) & and 用户身份= & Trim(Combo1.Text) & Me.Data1.Reco

22、rdSource = mMe.Data1.Refreshyh = Text1.Textmm = Text2.TextIf Me.Data1.Recordset.RecordCount = 0 ThenMsgBox 用户名不存在或用户身份错误，请重新输入！, vbExclamation, 提示 num = num + 1Elsemm = Text2.TextIf mm = Data1.Recordset.Fields(密码(m m) Thenyhm = yhmm1 = Text2.Textsys_lock = Falsenum = 0登录(dn l).HideMDIForm1.ShowElseM

23、sgBox 密码错误(cuw)，请重新输入！, , 输入错误num = num + 1Text2.Text = Text2.SetFocusEnd IfEnd IfIf num = 3 ThenMsgBox 登录错误已达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

24、(a)txtfile.CloseEndEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & 用户表.mdbData1.RecordSource = 用户表Combo1.Text = 学生On Error GoTo aOpen App.Path & time.txt For Input As #1Input #1, aClose #1b = Minute(Time) * 60 + Second(Time)c = b - CSng(a)If

25、c 60 ThenMsgBox 登录(dn l)错误已经锁定系统， & 60 - c & 秒钟后登录, vbInformation, 提示 EndElseKill App.Path & time.txtEnd Ifa:End Sub2.主窗体代码(di m)：Private Sub cjcx_Click()成绩(chngj)查询.ShowEnd SubPrivate Sub cjtj_Click()成绩统计.ShowEnd SubPrivate Sub ckbb_Click()DataReport1.ShowEnd SubPrivate Sub MDIForm_Load()StatusBar1

26、.Panels(2).Text = 系统当前用户： & 登录.yhmIf Trim(登录.Combo1.Text) = 管理员 ThenMDIForm1.xsxxbj.Enabled = Truefrm基本情况.cmdAdd.Enabled = Truefrm基本情况.cmdCancel.Enabled = Truefrm基本情况.cmdDelete.Enabled = Truefrm基本情况.cmdEdit.Enabled = Truefrm基本情况.cmdUpdate.Enabled = Truefrm基本情况.cmdRefresh.Enabled = TrueElseMDIForm1.x

27、sxxbj.Enabled = Falsefrm基本情况.cmdAdd.Enabled = Falsefrm基本情况.cmdCancel.Enabled = Falsefrm基本情况.cmdDelete.Enabled = Falsefrm基本情况.cmdEdit.Enabled = Falsefrm基本情况.cmdUpdate.Enabled = Falsefrm基本情况.cmdRefresh.Enabled = FalseEnd IfEnd SubPrivate Sub rstj_Click()人数(rn sh)统计.ShowEnd SubPrivate Sub tc_Click()End

28、End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.KeyCase Tmm修改(xigi)密码.ShowCase Tckfrm基本(jbn)情况.ShowEnd SelectEnd SubPrivate Sub xhcx_Click()X = MsgBox(请输入要查询的学号, , 查询)End SubPrivate Sub xsxxbj_Click()信息管理.ShowEnd Sub3.成绩查询模块代码：Private Sub Command1_Click

29、()Dim c As Stringc = InputBox$(请输入学号, 查找窗)Data1.RecordSource = select * from 成绩情况 where 学号 like & c & Data1.RefreshIf Data1.Recordset.EOF ThenMsgBox 无此学号！, , 提示Data1.RecordSource = 成绩情况Data1.RefreshEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseName = A

30、pp.Path & stu.mdbEnd Sub4.人数统计模块(m kui)代码：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= & App.Path & stu.mdbAdodc1.CommandType = adCmdUnknownAdodc1.RecordSource = Select 专业,count

31、(*) As 人数(rn sh) From 基本情况 Group By 专业 Adodc1.RefreshEnd Sub5.学生信息编辑(binj)模块代码：Private Sub Command1_Click()Command2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = TrueIf Command1.Caption = 新增 ThenCommand1.Caption = 确认mbookmark = Data1.Recordset.BookmarkData1.

32、Recordset.AddNewText1.SetFocusElseCommand1.Caption = 新增Data1.Recordset.UpdateData1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command2_Click()i = MsgBox(确定删除当前信息吗？, 4 + vbQuestion, 提示)If i = 6 ThenOn Error Resume NextData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Rec

33、ordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Command2.Enabled = Not Command2.EnabledCommand1.Enabled = Not Command1.EnabledCommand4.Enabled = TrueIf Command3.Caption = 修改(xigi) ThenCommand3.Caption = 确认(qurn)mbookmark = Data1.Recordset.BookmarkData1.Recordset.EditText1.SetFocusElseCommand

34、3.Caption = 修改(xigi)Data1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command4_Click()Command1.Caption = 新增: Command3.Caption = 修改Command1.Enabled = True: Command2.Enabled = TrueCommand3.Enabled = True: Command4.Enabled = Falsembookmark = Data1.Recordset.BookmarkData1.UpdateControlsData1.Recordset.Book

35、mark = mbookmarkEnd SubPrivate Sub Command5_Click()Dim m As Stringm = InputBox$(请输入要查找的学生学号, 查找窗)Data1.Recordset.FindFirst 学号= & m & If Data1.Recordset.NoMatch Then MsgBox 无此学号！, , 提示 End SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Data1_Reposition()Data1.Caption = 基本情况： & (Data1.Reco

36、rdset.AbsolutePosition + 1) End SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Info=False;Data Source= & App.Path & stu.mdbData1.DatabaseName = App.Path & stu.mdbData1.RecordSource = 基本(jbn)情况Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = select

37、 * from 成绩(chngj)情况 Adodc1.RefreshAdodc1.Recordset.Find (学号= & Text1.Text & )End Sub6.修改(xigi)密码模块代码：Dim old$, nw$, rnew$Private Sub Command1_Click()old = Text1.Textnw = Text2.Textrnew = Text3.TextData1.Recordset.FindFirst 用户名= & 登录.yhm & SecurityIf old = 登录.mm1 ThenIf nw = rnew ThenIf rnew = ThenMs

38、gBox 密码不能为空, vbInformation, 系统Exit SubEnd If登录.mm1 = nwOn Error Resume NextData1.Recordset.Fields(密码) = 登录.mm1Data1.Recordset.UpdateMsgBox 密码已经被修改！Unload MeElseMsgBox 两次密码不同！End IfElseMsgBox 密码不对！End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App

39、.Path & 用户表.mdbData1.RecordSource = 用户表End Sub5.3 系统(xtng)测试本次测试采用黑盒测试法，对学生信息管理系统进行测试。首先(shuxin)，进行对功能模块进行划分，明确功能测试的人员负责情况。其次，对各个模块进行测试。在测试时，把程序看作一个不能打开的黑盒子，在完全不考虑内部结构和内部特性的情况下，测试者在程序接口进行测试，它只检查程序功能是否按照需求规格说明书的规定正常使用，程序能否适当的接收输入数据而产生(chnshng)正确的输出信息，并且保证外部信息的完整性。第六章 总结(zngji)体会忙碌(mngl)了一段时间，学生信息管理系统

40、的制作(zhzu)算是告一段落了，经过这次系统设计课设，虽然有很多不足，不过收获还是颇为丰富的，再有理论知识上结合实践，使我学到了更多。首先是知识层面，更进一步的了解了系统分析与设计的基本操作，其实很多东西不是上课能解决的，必须要自己动手实践。最直接的收获就是系统的制作和报告的撰写，这些东西都得靠自己在下面翻书看，或者查阅别人的优秀案例，取人之长，补己之短。其实很东西都是在潜移默化的状态下收获的。在系统设计的过程中，我从中发现，学习系统分析与设计要细心和有耐性，并且要不断地从外界学习更多的技术才能设计出一套完美的系统。总之，这次课设让我学会了不少东西，也为以后的职场生涯打下了基础。参考文献：1

41、信息系统分析与设计黄孝章、刘鹏、苏利祥 清华大学出版社2Visual Basic程序设计赵万龙 中国铁道出版社3数据库系统概论萨师煊 王珊 高等教育出版社 4基础会计学陈爱玲、刘晓玉、崔志敏 陕西科学技术出版社5SQL Server数据库基础教程与上机指导(zhdo)周绪 清华大学出版社6信息资源管理张凯 清华大学出版社7管理信息系统邢喜荣、黄军仓、田喜群、杨芳龄 电子(dinz)工业出版社 8access数据库应用(yngyng)基础教程梁灿、施兴家 清华大学出版社附录“登录”按钮代码：PrivateSubCommand2_Click()DimconnAsNewADODB.Connectio

42、nDimrsAsNewADODB.RecordsetDimsqlAsStringconn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&stu.mdbsql=Select*from用户信息表whereIfTrim(Text1.Text)=Then如果用户名为空MsgBox用户名不能为空！,vbOKOnly+vbCritical,错误Text1.SetFocusmiCount=miCount+1累加输入次数ExitSubEndIfIfTrim(Text2.Text)=Then如果密码为空MsgBox密码不能为空！,vbOKOn

43、ly+vbCritical,错误Text2.SetFocusExitSubEndIfIfTrim(Combo1.Text)=选择类别Then如果密码为空MsgBox请选择用户类别！,vbOKOnly+vbCritical,错误Combo1.SetFocusExitSubEndIfsql=sql+userName=&Text1.Text&sql=sql+ANDPwd=&Text2.Text&sql=sql+ANDType=&Combo1.Text&rs.Opensql,conn,1,1Ifrs.RecordCount=1Then找到记录PName=rs(userName)PWord=rs(Pwd

44、)pType=rs(Type)UnloadMeform3.ShowquanxianElseMsgBox用户名或密码(m m)不对！,vbOKOnly+vbInformation,错误(cuw)UnloadMeEndIfrs.CloseSetrs=Nothingconn.CloseSetconn=NothingmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSub用户注册代码(di m)如下：PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.Rec

45、ordsetDimsqlAsStringconn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&stu.mdbsql=Select*from用户信息表whereIfTrim(Text1.Text)=Then如果用户名为空MsgBox请输入真实姓名,vbOKOnly+vbCritical,错误Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=Then如果密码为空MsgBox请输入用户名,vbOKOnly+vbCritical,错误Text2.SetFocusExitSubEndIfIfT

46、ext2.TextText3.TextThenMsgBox新密码与确认的密码不相同,vbOKOnly+vbCritical,错误Text3.SetFocusExitSubEndIfIfCombo1.Text=选择类别ThenMsgBox请选择用户类别,vbOKOnly+vbCritical,错误Combo1.SetFocusExitSubEndIfsql=sql+pwd=&Text1.Text&rs.Opensql,conn,1,3Ifrs.RecordCount0ThenMsgBox用户名已存在(cnzi)+重新(chngxn)输入用户名,vbOKOnly+vbInformation,提示(

47、tsh)Text2.SetFocusExitSubElsers.AddNewrs(userName)=Text1.Textrs(pwd)=Text2.Textrs(Type)=Combo1.Textrs.UpdateMsgBox用户成功添加,vbOKOnly+vbInformation,提示EndIfUnloadMers.CloseSetrs=Nothingconn.CloseSetconn=NothingEndSubPrivateSubCommand2_Click()Form1.ShowEndSubPrivateSubCommand3_Click()Text1.Text=Text2.Text

48、=Text3.Text=Combo1.Text=EndSubPrivateSubForm_Load()CallleibieEndSubPrivateSubleibie()Combo1.AddItem学生Combo1.AddItem管理员EndSub添加院系信息代码如下：PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringsql=Select*from院系信息表whereIfTrim(Text1.Text)=ThenMsgBox请输入院系名称,vbOKOnly+v

49、bCritical,错误Text1.SetFocusExitSubEndIfIfTrim(Text4.Text)=ThenMsgBox请输入(shr)院系负责人,vbOKOnly+vbCritical,错误(cuw)Text4.SetFocusExitSubEndIfIfTrim(Text3.Text)=ThenMsgBox请输入(shr)院系电话,vbOKOnly+vbCritical,错误Text3.SetFocusExitSubEndIfsql=Select*from院系信息表conn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&Ap

50、p.Path&stu.mdbrs.Opensql,conn,1,3rs.AddNewrs.Fields(院系名称)=Trim(Text1.Text)rs.Fields(院系编号)=Trim(Text2.Text)rs.Fields(院系电话)=Trim(Text3.Text)rs.Fields(院系负责人)=Trim(Text4.Text)rs.Fields(院系专业)=Trim(Text5.Text)rs.UpdateText1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text1.SetFocusrs.Updaters.CloseSe

51、trs=NothingEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=EndSubPrivateSubCommand3_Click()UnloadMeEndSub修改院系信息代码如下：OptionExplicitDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimcnAsNewADODB.Connection定义书签，用来(yn li)记载当前记录位置DimmyBookmarkAsVariant判断是否修改(x

52、igi)记录DimmccleanAsBooleanPrivateSubCommand1_Click()rs.MoveFirstCallviewDataEndSubPrivateSubCommand2_Click()rs.MovePreviousIfrs.BOFThenrs.MoveLastEndIfCallviewDataEndSubPrivateSubCommand3_Click()rs.MoveNextIfrs.EOFThenrs.MoveFirstEndIfCallviewDataEndSubPrivateSubCommand4_Click()rs.MoveLastCallviewDat

53、aEndSubPrivateSubCommand5_Click()DimtstSQLAsStringDimMsgTextAsString使移动(ydng)记录按钮失效Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=False记下当前记录位置myBookmark=rs.myBookmarkEndSubPrivateSubCommand6_Click()rs.Fields(院系名称)=Combo1.Textrs.Fields(院系编号)=Combo2.Textrs.Fields(院

54、系专业)=Combo3.Textrs.Fields(院系电话(dinhu)=Text1.Textrs.Fields(院系负责人)=Text2.Textrs.UpdateCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueEndSubPrivateSubCommand7_Click()IfNotmccleanThenFrame3.Enabled=True使移动(ydng)记录按钮失效Command1.Enabled=TrueCommand2.Enabled=TrueCommand3

55、.Enabled=TrueCommand4.Enabled=True回到开始记录(jl)位置rs.Bookmark=myBookmarkCallviewDataElseMsgBox什么都没有修改！,vbOKOnly+vbExclamation,警告EndIfCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueEndSubPrivateSubCommand8_Click()记下当前记录位置myBookmark=rs.Bookmarkstr2$=MsgBox(是否删除当前记录？,vb

56、OKCancel,删除当前记录！)Ifstr2$=vbOKThenrs.MoveNextIfrs.EOFThenrs.MoveFirstmyBookmark=rs.Bookmarkrs.MoveLastrs.Deleters.Bookmark=myBookmark调用函数显示数据CallviewDataElsemyBookmark=rs.Bookmarkrs.MovePreviousrs.Deleters.Bookmark=myBookmark调用函数显示数据CallviewDataElsemyBookmark=rs.Bookmarkrs.MovePreviousrs.Delete回到原来(y

57、unli)位置rs.Bookmark=myBookmark调用函数显示(xinsh)数据CallviewDataEndIfElsers.Bookmark=myBookmarkCallviewDataEndIfEndSubPrivateSubForm_Load()DimtxtSQLAsStringDimMsgTextAsStringtxtSQL=select*from院系信息(xnx)表Setrs=ExecuteSQL(txtSQL,MsgText)Whilers.EOF=FalseCombo1.AddItemrs.Fields(院系名称)Combo2.AddItemrs.Fields(院系编号

58、)Combo3.AddItemrs.Fields(院系专业)rs.MoveNextWendrs.ClosetxtSQL=select*from院系信息表Setrs=ExecuteSQL(txtSQL,MsgText)Ifrs.EOF=FalseThenrs.MoveFirstCallviewDatamyBookmark=rs.BookmarkElseMsgBox没有记录！,vbOKOnly+vbExclamation,警告ExitSubEndIfEndSubPrivateSubForm_Unload(CancelAsInteger)rs.CloseEndSubPublicSubviewData

59、()Combo1.Text=rs!院系名称Combo2.Text=rs!院系编号Combo3.Text=rs!院系专业Text1.Text=rs!院系电话Text2.Text=rs!院系负责人EndSub查询院系信息代码(di m)如下：PrivateSubCommand1_Click()DimtxtSQLAsStringDimMsgTextAsStringDimdd(3)AsBooleanDimmrcAsADODB.RecordsettxtSQL=select*from院系信息(xnx)表whereIfCheck1.ValueThenIfTrim(Text1.Text)=ThensMeg=院

60、系名称(mngchng)不能为空MsgBoxsMeg,vbOKOnly+vbExclamation,警告Text1.SetFocusExitSubElsedd(0)=TrueIfdd(1)ThentxtSQL=txtSQL&and院系名称=&Text1.Text&ElsetxtSQL=txtSQL&院系名称=&Text1.Text&EndIfEndIfEndIfIfCheck2.ValueThenIfTrim(Text2.Text)=ThensMeg=院系编号不能为空MsgBoxsMeg,vbOKOnly+vbExclamation,警告Text2.SetFocusExitSubElseIfN