vb+ACCESS教师管理系统论文

大学毕业设计论文课题 教师管理系统姓 名学科专业 .指导教师日期: 20 年5月-摘要-教师管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用 MICROSOFT公司的 VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。关键字 VisualBasic 6.0 Access2000 控件 窗体 域AbstractThesystem ofmanaging census register fileis atypical application ofmanaging information system （knowas MIS）,which mainly includes buildingupdata-base of back-end and developing theapplication interface offront-end.Theformerrequired consistency and integrality and security ofdata.Thelater shouldmaketheapplication powerful and easily used.By looking uplotsof datum, weselectedVisual Basicpresented byMicrosoftbecause ofits objectivetools inWin32.VB offered aseries ofActiveXoperating adata-base. It can give you ashort-cut to buildupa prototype ofsystem application.Theprototype could bemodified anddeveloped tillusers are satisfied with it.Key Word VisualBasic 6.0、Access2000、ActiveX、Form、Field目 录引言第一章MIS简介1.1什么是MIS系统1.2MIS的主要任务第二章系统需求分析21系统设计背景介绍2.2系统功能分析第三章系统设计平台及相关工具软件简介3.1设计平台： Visual Basic 6.03.2数据库：MicrosoftAccess第四章 教师管理系统总体设计41 系统设计42数据库设计第五章 数据模块创建及功能实现5.1数据模块的创建5.2系统功能实现第六章系统功能测试总结参考文献-前言-教师管理系统是一个学校不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以教师管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对人事信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高教师管理的效率,也是学校教师管理的科学化、正规化,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套教师管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。引 言随着信息技术的飞速发展，特别是数据库技术的发展，计算机已经成为当今信息时代的关键工具。数据库技术是计算机应用技术中的一个重要组成部分，对于大量的数据，使用数据库来存储管理将比通过文件来存储管理更高效。数据库技术在经过几代变革以后，出现了以关系数据库产品为主流的数据库时代。Access2000是微软公司推出的关系数据库产品。作为Microsoft的office套件产品之一,Access已经卖出了近700万份,成为世界上最流行的桌面数据库系统。Access与许多优秀的关系数据库一样，可以让你很容易地连接相关的信息而且还对其他的数据库系统有所补充。VisualBasic作为应用程序的开发“利器”也表现在数据库应用程序的开发上，它良好的界面和强大的控件功能使数据库编程变得简单多了。VisualBasic提供了强有力的数据库存取能力，将Windows的各种先进特性与强大的数据库管理功能有机地结合在一起。本次毕业设计教师管理系统是运用ADO技术设计开发的，使用大量地SQL语句进行添加、查询、删除等操作。本系统使用Access 2000作为后台数据库，利用VisualBasic6.0提供的数据库开发平台开发前台部分。第一章 MIS简介1.1什么是MIS系统所谓MIS（管理信息系统-Management Information System）系统 ，是一个由人、计算机及其他外围设备等组成的能进行信息的收集、传递、存贮、加工、维护和使用的系统。它是一门新兴的科学，是信息系统的重要分支之一。经过30多年的发展，MIS已经成为一个具有自身概念、理论、结构、体系和开发方法的覆盖多学科的交叉性综合性学科，其组成部分有：计算机学科（网络通讯、数据库、计算机语言等）、数学（统计学、运筹学、线性规划等）、管理学、仿真等多学科。随着科学技术的高速发展，MIS涉及的范围还要扩大。1. MIS的对象就是信息。信息是经过加工的数据，信息是对决策者有价值的数据。信息的主要特征是来源分散，数量庞大。信息来源于生产第一线，来源于社会环境，来源于市场，来源于行政管理等部门。信息具有时间性。信息的加工方式有多种形式。2. 系统是由相互联系、相互作用的若干要素按一定的法则组成并具有一定功能的整体。系统有两个以上要素，各要素和整体之间，整体和环境之间存在一定的有机联系。系统由输入、处理、输出、反馈、控制五个基本要素组成。3. 管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息的维护和信息的使用五个方面组成。任何地方只要有管理就必然有信息，如果形成系统就形成MIS。计算机设备使MIS更有效，尤其是现代社会，MIS已和计算机设备不可分离，因此一般来说MIS就是计算机MIS。MIS包括计算机、网络通讯设备等硬件成份，包括操作系统、应用软件包等软件成份。并随着计算机技术和通讯技术的迅速发展还会出现更多的内容。计算机设备并不是MIS的必要条件。1.2MIS的主要任务管理信息系统辅助完成企业日常结构化的信息处理任务，一般认为MIS的主要任务有如下几方面：1. 对基础数据进行严格的管理，要求计量工具标准化、程序和方法的正确使用，使信息流通渠道顺畅。有一点非常关键，就是必须保证信息的准确性、一致性；确定信息处理过程的标准化，统一数据和报表的标准格式，以便建立一第二章 系统需求分析21 系统设计背景介绍管理信息系统就是我们常说的 MIS (ManagementInformationSystem)，在强调管理，强调信息的现代社会中它变的越来越普及。而将信息管理系统与企业自动化设备想结合，则是当今社会现代企业的发展趋势。通过这样的管理方式，企业的管理人员、技术人员、统计教师等各部门人员就能从大量烦琐的资料和数据中解脱出来，只需对自己需要的数据和内容进行必须的处理，而不用对每个环节都了如指掌。这在一定程度上能够节省人力物力，同时也大大加强了对数据处理的及时性和准确性。本次的开发内容教师管理系统就是信息管理与现代化办公设备相结合的例子。开发本系统希望使人事管理人员可以从年复一年的输入、计算、统计等工作中解脱出来，由于人事方面的数据众多，输入、统计极为不便，输入量大，计算量大。这些工作都以人力来完成将费时费力，而且容易出现错误和疏漏。本系统一次录入信息后，就可以反复多次在不同的信息库中使用。所有输入的信息都将按所属部门、专业、考勤日期、工资日期等详细分类，使客户可以根据需要进行管理操作。因此，该管理系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理，并利用计算机与现代化办公设备的连接实时刷新数据，从而提高企业的工作效率。22 系统功能分析系统开发的总体任务是实现各种信息的系统化，规范化和自动化。系统功能分析是系统开发的总体任务的基础上室完成的。教师管理系统需要完成功能主要有：教师信息的输入，修改，查询，删除包括，姓名，性别，所在学院，所在系，所在教研究组，职务，职称，身份证号，住址，邮证编号，工作证号，图书证号，电子EMAIL.课程信息表的输入，修改，查询，删除，包括，课程号，名称，类型所属部门，所属院，授课对象，初次授课时间，学时数。第三章 系统设计平台及相关工具软件简介3.1计计平台： Visual Basic 6.0微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程教师的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。VisualBasic6.0是一个对象导向设计的应用程序语言，是开发数据库前端的优秀工具，它的编程语言简洁明快、组件功能强大和编程环境灵活方便。由于VisualBasic既继承了其先辈所具有的程序设计语言简单易用的特点，其编程系统又引入面向对象的机制，用一种巧妙的方法把Windows编程的复杂性封装起来，提供了一种视界面的设计方法，使用窗体和控件设计应用程序界面。极大地提高了应用程序开发的效率。本文论述了MicrosoftVisualBasic6.0可视化开发软件工具下分析、设计、开发大中专院校的学生信息管理系统的过程。通过对计算机硬件和软件解决方案的论证，对应用领域进行调查分析，参考各种资料和进行数据库编程实践，在指导老师的帮助下，已经基本上成功地实现了设计要求。是我们设计的数据库系统能够实现部门管理，教师信息管理，工资管理，系统管理功能。该系统基本上满足了用户在学校信息管理方面的需求，用户界面友好。此系统更加贴近信息电子化处理，从而降低了人工劳动并增加了信息的准确性。2. 2数据库： Microsoft AccessAccess是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。Access多用于中小型企业来设计中小型数据库，一般的学校教务系统的数据库用Access来设计完全能达到要求。由于考虑到本系统是应用在单机系统上，只建立起一个数据库。第四章 教师管理系统总体设计本次的开发内容教师管理系统就是信息管理与现代化办公设备相结合的例子。开发本系统希望使人事管理教师可以从年复一年的输入、计算、统计等工作中解脱出来，由于人事方面的数据众多，输入、统计极为不便，输入量大，计算量大。这些工作都以人力来完成将费时费力，而且容易出现错误和疏漏。本系统一次录入信息后，就可以反复多次在不同的信息库中使用。所有输入的信息都将按所属部门、工资日期等详细分类，使录入可以根据需要进行管理操作。因此，该管理系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理，并利用计算机与现代化办公设备的连接实时刷新数据，从而提高企业的工作效率。41 系统设计4.1.1系统功能分析系统完成功能主要有：教师信息的输入，修改，查询，删除包括，姓名，性别，所在学院，所在系，所在教研究组，职务，职称，身份证号，住址，邮证编号，工作证号，图书证号，电子EMAIL.课程信息表的输入，修改，查询，删除，包括，课程号，名称，类型所属部门，所属院，授课对象，初次授课时间，学时数。 课程教授表任务号，课程号，工作证号，学期，时间，授课班级，授课编号，课表号。程序流程图添加教师文件信息 查询教师文件信息 删除教师文件信息 打印教师文件报表 添加课程信息 查询课程信息 删除课程信息 课程信息报表添加用户信息 查询用户信息 删除用户信息 退出系统 教师信息管理教师管理系统课程信息管理 退出用户信息管理412系统具体实现（1）建立登陆用户界面正确输入用户名和密码以及选择身份后才能进行系统。若用户名和密码错误时将提示用户重新输入，若三次输入的密码都错误码的话系统将自动退出。登录界面流程图N开始Text1.text文本如果为空，则出现MSGBOX提示Text1.text=rs.fields(0).value?连接数据库YN YTEXT2.TEXT文本TEXT2.TEXT=rs.fields(1).value?进入系统模块代码分析OptionExplicitDimmnUserTypeAsIntegerPrivateSubcboUserType_Change()mnUserType=cboUserType.ListIndexEndSubPrivateSubcboUserType_Click()mnUserType=cboUserType.ListIndexEndSubPrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdOK_Click()DimuserAs String,pwdAsStringuser= txtUserpwd=txtPwdDimrAsNewADODB.RecordsetSetr= DataEnv.rssqlSeekDimstrSQLAsStringSelectCasemnUserTypeCase0:strSQL=select*fromadminwherename=&user&andpwd=&pwd& Case1:strSQL=select*fromteacherwherename=&user&andserial=& pwd&EndSelectOnErrorResume NextIfr.State=adStateOpenThenr.Closer.OpenstrSQLStaticnTryCountAs IntegerIfr.EOFThenMsgBox对不起，无此用户或者密码不正确！请重新输入！,vbCritical,错误 txtUser.SetFocustxtUser.SelStart=0txtUser.SelLength =Len(txtUser)nTryCount =nTryCount +1IfnTryCount =3 ThenMsgBox 您无权操作本系统!再见！,vbCritical,无权限Unload MeEndIfElseLoadMDIMainWithMDIMain.mnUserType=cboUserType.ListIndex.msUserName=pwd.ShowEndWithUnloadMeEndIfEndSubPrivateSubForm_Load()cboUserType.ListIndex= 0EndSubPrivateSubfrmLogin_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubtxtUser_Change()EndSub（2）教师信息及授课管理窗体在此窗体可以对教师的基本信息进行添加，编辑，删除和打印，同进也能对都授课信息进行添加，编辑，删除和打印模块代码分析OptionExplicitDim mbCloseAs BooleanDim msSerialAs StringSubSeekTeacher(sSerialAs String)If Not (DataEnv.rsTeacher.EOFAnd DataEnv.rsTeacher.BOF)ThenDimTempAs StringTemp = serial = & & sSerial & DataEnv.rsTeacher.MoveFirstDataEnv.rsTeacher.FindTempEnd IfEndSubSubRefreshGrid()grdScan.DataMember= grdScan.RefreshIf DataEnv.rssqlSeek.State adStateClosedThen DataEnv.rssqlSeek.CloseDataEnv.rssqlSeek.OpengrdScan.DataMember= sqlSeekgrdScan.RefreshCall grdScan_ChangeEndSubSubChangeBrowseState()WithDataEnv.rssqlSeekIf .State = adStateClosedThen .OpenIf .BOFAnd .EOFThencmdAdd.Enabled =TruecmdEdit.Enabled = FalsecmdDelete.Enabled= FalsecmdUpdate.Enabled = FalsecmdReport.Enabled= FalsefraBrowse.Enabled = FalseElsecmdAdd.Enabled =TruecmdEdit.Enabled =TruecmdDelete.Enabled=TruecmdUpdate.Enabled = FalsecmdReport.Enabled=TruefraBrowse.Enabled =TrueEnd IfIf .BOFThenIf Not .EOFThen DataEnv.rsTeacher.MoveFirstcmdPrevious.Enabled= FalsecmdFirst.Enabled= FalseElse cmdPrevious.Enabled=TruecmdFirst.Enabled=TrueEnd IfIf .EOFThenIf Not .BOFThen DataEnv.rsTeacher.MoveLastcmdNext.Enabled= FalsecmdLast.Enabled = FalseElse cmdNext.Enabled=TruecmdLast.Enabled =TrueEnd IfEndWithEndSubSubRefreshTeach(sSerialAsString)WithDataEnv.rsOneTeachIf .State adStateClosedThen .CloseDim strIf sSerial = Thenstr = select course.*from course,teach wherecourse.serial=teach.courseidElsestr = select course.* from course, teach where course.serial=teach.courseidandteach.teacherid = & sSerial & EndIf.OpenstrEndWithgrdTeach.DataMember = oneteachgrdTeach.RefreshEndSubPrivate Sub cboDep_Change()EndSubPrivate Sub cmdAdd_Click()DataEnv.rsTeacher.AddNewtxtBirthday.Text = 1970-01-01fraInfo.Enabled=TruefraBrowse.Enabled= FalsecmdAdd.Enabled= FalsecmdEdit.Enabled= FalsecmdDelete.Enabled= FalsecmdUpdate.Enabled =TruecmdReport.Caption= 取消cmdReport.Enabled =TruembClose = FalseEndSubPrivate Sub cmdDelete_Click()On Error GoToerrHandlerIf MsgBox(要删除记录?, vbYesNo + vbQuestion + vbDefaultButton2, 确认) =vbYesThen DataEnv.Con.Executedelete fromTeacher whereserial = & txtSerial & DataEnv.rsTeacher.MoveNextIf DataEnv.rsTeacher.EOFThenDataEnv.rsTeacher.MoveLastCall RefreshGridEnd IfExit SuberrHandler:MsgBox Err.Description, vbCritical, 错误EndSubPrivate Sub cmdDeleteTeach_click()On Error GoToerrHandlerIf MsgBox(确实要删除此授课记录？, _vbYesNo+ vbQuestion + vbDefaultButton2,确认) = vbYesThenDim strstr = grdTeach.Columns(0).CellText(grdTeach.Bookmark)str = delete from teachwhere courseid= & str & DataEnv.Con.ExecutestrDataEnv.rsOneTeach.RequerygrdTeach.DataMember =oneteachgrdTeach.RefreshEndIfExit SuberrHandler:MsgBox Err.Description, vbCritical, 错误EndSubPrivate Sub cmdEdit_Click()fraInfo.Enabled=TruecmdAdd.Enabled= FalsecmdEdit.Enabled= FalsecmdDelete.Enabled= FalsecmdUpdate.Enabled =TruecmdReport.Caption= 取消cmdReport.Enabled =TruembClose = FalseEndSubPrivate Sub cmdEditTeach_Click()On Error GoToerrHandlerWithfrmTeachLoadfrmTeach.Caption= 添加&Trim(txtName) & 老师的所授课程.dcbSerial.Text = grdTeach.Columns(0).CellText(grdTeach.Bookmark).Show vbModalIf Not .mbAddedThenUnloadfrmTeachExit SubEnd IfIf DataEnv.rsTeach.State = adStateClosedThenDataEnv.rsTeach.OpenDataEnv.rsTeach.Fields(CourseID) = .dcbSerial.TextDataEnv.rsTeach.Fields(TeacherID) = txtSerial.TextDataEnv.rsTeach.UpdateEndWithCall RefreshTeach(msSerial)Exit SuberrHandler:MsgBox Err.Description, vbCritical, 错误EndSubPrivate Sub cmdFirst_Click()DataEnv.rssqlSeek.MoveFirstDataEnv.rssqlSeek.MovePreviousCall ChangeBrowseStateEndSubPrivate Sub cmdLast_Click()DataEnv.rssqlSeek.MoveLastDataEnv.rssqlSeek.MoveNextCall ChangeBrowseStateEndSubPrivate Sub cmdList_Click()On Error Resume NextDim strSQLIf cboDep.ListIndex = 0ThenstrSQL= select serial, name fromTeacher orderby serialElsestrSQL= select serial,name fromTeacherwheredept_id= & _cboDep.ItemData(cboDep.ListIndex) & orderby serialEndIfDataEnv.rssqlSeek.CloseDataEnv.rssqlSeek.Open strSQLCall RefreshGridCall ChangeBrowseStateCall grdScan_ChangeEndSubPrivate Sub cmdNext_Click()DataEnv.rssqlSeek.MoveNextCall ChangeBrowseStateEndSubPrivate Sub cmdPrevious_Click()DataEnv.rssqlSeek.MovePreviousCall ChangeBrowseStateEndSubPrivate Sub cmdReport_Click()On Error Resume NextIf cmdReport.Caption= 取消ThenDataEnv.rsTeacher.CancelUpdateIf DataEnv.rsTeacher.BOFThenDataEnv.rsTeacher.MoveFirstElseDataEnv.rsTeacher.MovePreviousDataEnv.rsTeacher.MoveNextEnd IfCall ChangeBrowseStatembClose =TrueElseDim strSQLAs StringDataEnv.rsrptTeacher.ClosestrSQL= select teacher.*, as dept_name & _From teacher,department & _where teacher.dept_id = department.id and serial = & txtSerial.Text& DataEnv.rsrptTeacher.OpenstrSQLrptTeacher.ShowEndIfEndSubPrivate Sub cmdReportTeach_Click()On Error Resume NextDim rptAsNew rptTeachLoadrptrpt.Caption = 教师 &Trim(txtName) & 所授的课程rpt.Show 1EndSubPrivate Sub cmdSeek_Click()WithfrmFindDim iAs IntegerLoadfrmFind.lstFields.ClearFor i = 0ToDataEnv.rsTeacher.Fields.Count -1.lstFields.AddItem(DataEnv.rsTeacher(i).Name)Next i.lstFields.ListIndex = 0.Show 1If .mbFindFailedThen Exit SubDim sTempAs StringIf LCase(.msFindOp) = likeThensTemp = .msFindField & & .msFindOp & % & .msFindExpr & %ElsesTemp = .msFindField & & .msFindOp & & .msFindExpr & End IfsTemp = select * fromTeacherwhere & sTemp & orderbyserialUnloadfrmFindEndWithIf DataEnv.rssqlSeek.State adStateClosedThen DataEnv.rssqlSeek.CloseDataEnv.rssqlSeek.OpensTempCall RefreshGridExit SuberrHandler:MsgBox 没有符合条件的纪录！, vbExclamation,确认EndSubPrivate Sub cmdUpdate_Click()On Error GoToerrHandler:Dim strAs Stringstr = txtSerial.TextDataEnv.rsTeacher.UpdatecmdReport.Caption= 报表(&R)cmdUpdate.Enabled =FalsefraInfo.Enabled= FalsembClose =TrueIf DataEnv.rssqlSeek.State = adStateClosedThen DataEnv.rssqlSeek.OpenCall RefreshGridCall ChangeBrowseStateDataEnv.rssqlSeek.MoveFirstDataEnv.rssqlSeek.Findserial= & str & Exit SuberrHandler:MsgBox Err.Description, vbCritical, 错误DataEnv.rsTeacher.CancelUpdateEndSubPrivate Sub cmdAddTeach_Click()On Error GoToerrHandlerWithfrmTeachLoadfrmTeach.Caption= 添加&Trim(txtName) & 老师的所授课程.Show vbModalIf Not .mbAddedThenUnloadfrmTeachExit SubEnd IfIf DataEnv.rsTeach.State = adStateClosedThenDataEnv.rsTeach.OpenDataEnv.rsTeach.AddNewDataEnv.rsTeach.Fields(CourseID) = .dcbSerial.TextDataEnv.rsTeach.Fields(TeacherID) = txtSerial.TextDataEnv.rsTeach.UpdateEndWithCall RefreshTeach(msSerial)Exit SuberrHandler:MsgBox Err.Description, vbCritical, 错误DataEnv.rsTeach.CancelUpdateEndSubPrivate Sub Form_Load()On Error Resume NextDim rsDepAs NewADODB.Recordset, rsClassAs NewADODB.RecordsetSet rsDep = DataEnv.rsDepartmentrsDep.OpencboDep.ClearcboDep.AddItem 全部cboDep.ItemData(0) = 0While Not rsDep.EOFcboDep.AddItem rsDep(Name)cboDep.ItemData(cboDep.ListCount - 1) = rsDep(id)rsDep.MoveNextWendcboDep.ListIndex = 0cmdList.Value=TruefraManage.Enabled=TruefraBrowse.Enabled=TruefraSeek.Enabled=TruegrdScan.Enabled=TruembClose =TrueCall grdScan_ChangeEndSubPrivate Sub Form_QueryUnload(CancelAs Integer,UnloadModeAs Integer)If Not mbCloseThenMsgBox 数据正被修改，窗口不能关闭, vbCritical, 错误Cancel=TrueEnd IfEndSubPrivate Sub grdScan_Change()If grdScan.ApproxCount 0ThenmsSerial = grdScan.Columns(0).CellText(grdScan.Bookmark)Call SeekTeacher(msSerial)EndIfEndSubPrivate Sub grdScan_RowColChange(LastRowAsVariant, ByValLastColAs Integer)If Not mbCloseThen grdScan.Row = LastRow - 1If LastRow grdScan.BookmarkThenIf grdScan.ApproxCount 0ThenmsSerial = grdScan.Columns(0).CellText(grdScan.Bookmark)Call SeekTeacher(msSerial)End IfEndIfEndSubPrivate Sub grdTeach_Click()EndSubPrivate Sub grdTeach_DblClick()EndSubPrivate Sub txtName_Validate(CancelAs Boolean)txtName.Text =Trim(txtName.Text)EndSubPrivate Sub txtSerial_Change()If Not fraInfo.EnabledThenCall RefreshTeach(msSerial)End IfEndSub42 数据库结构设计数据库在一个信息管理系统中占有非常重要的地位，数据库设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库设计可以提高数据存储的效率保证数据的完整和一致。设计数据库系系统时应首先了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括下面几个步骤： 数据库需要分析。 数据库概念结构设计。 数据库逻辑结构设计。421数据库设计需求分析用户的需求体现在各种信息的提供，保存，更新和查询，这就是要求数据库结构能充分满足各种信息量的输入和输出。收集基本信息 ，数据结构以及数据 处理的流程，组成一份详细的数据字典，为后面的具体设计院打下基础。通过对教师个人信息管理工作过程的内容和数据流程分析，设计以下数据项和数据结构：教师信息的输入，修改，查询，删除包括，姓名，性别，所在学院，所在系，所在教研究组，职务，职称，身份证号，住址，邮证编号，工作证号，图书证号，电子EMAIL.课程信息表的输入，修改，查询，删除，包括，课程号，名称，类型所属部门，所属院，授课对象，初次授课时间，学时数。有了上面的数据结构，数据项和数据流，我们就能进行下面的数据库设计了。422数据库结构设计得到上面的数据项和数据结构以后，就可以设计出满足用户需求的各种实体以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据库的流动。数据库表的建立与实现：（1）创建数据库文件如果操作系统中安装了ACCESS2000的话，可以在开始菜单的程序菜单中可以找到。如下所示：打开ACCESS2000之后，会开启一个窗口，可选择是打开以前的数据库文件还是新建一个新的空数据库文件，如果选择空ACCESS数据库，然后点击确定按钮。这些就新建了一个数据库文件。最后一步就是要选择一个要保存数据库文件的名字和位置。点击创建就完成。（2）怎样创建一个数据表上面已经讲了如何创建一个数据库文件，按照上面的步骤建立一个数据库文件后，需要在数据库文件中建立一个数据表。在下面的对话框中选”使用设计器创建表”，上面还有三个按钮，一个是打开，一个是设计，一个是新建，点击设计，就可以开始设计数据表了。出现设计的界面后，就可以开始设计数据表了！（3）VB连接ACCESS2000数据库用vb编写一个管理软件，如果不能连接数据库，那也没有什么用处。先看看VB是如何与ACCESS2000数据库相连接的。SubConnStr()连接数据库Setconn=CreateObject(ADODB.Connection)建立数据库连接对像DBpath=App.PathData Source= &DBpath打开数据库连接Setrs=CreateObject(ADODB.Recordset)设置数据库对像EndSub上面的一段代码就是连接数据库的。上用到了三个变量conn,Dbpath,rs。其中有两个变量要定义为公用的变量，因为这段代码是放在一个模块中的，为了在每一个窗体中能够使用这个变量，所以必须要声明为公用变量。声明公用变量的方法如下：PublicconnPublicrs上面就是声明为公用变量，上面的声明一定要放在模块的最上面。如果声明在下面，那就成了局部变量，那么作用范围就会不同了，作用就更不同，而且在其它窗体中使用到了这个变量，程序会出错。（4）系统具体数据库表 数据库总表用户信息表教师信息及授课表第五章 开发体会51开发中的问题及解决总的来说，在这次的毕业设计种遇到了不少的问题，大部分得到了很好的解决，但也有少部分遗留的问题。首先便是调研的不充分。由于此次的设计是我一人一组，以前又根本未曾接触过软件的整体开发设计，所以在前期的调研中相当不充分，开题开题也有些盲目，以为把属性和表写得越多越好，这个问题越到后来越严种，而且因为客观的原因耽误了进度，因而对开题的开题做了修改 。其次是软件的编程问题，由于以前对VB只是了解并不能够灵活运用，所以在毕设期间进行了苦读，终于可以基本掌握了常用控件的用法和语句编程。再次就是数据库的建设和使用，虽然SQL Server的安全性和普及性很高，但我们在日常中还是接触得比