学生信息管理系统论文范文请修改

1、 编号：山西信息职业技术学院毕业设计学生信息管理系统刘洋论文指导教师刘磊信息管理系学生所在系部 信息管理系专业名称信息管理论文提交日期 2013年2月19日论文答辩日期 2013年2月20日2012年2月20日3、八前言随着信息处理技术的飞速发展 ,基于计算机网络的信息处理已成为人们日常工作,学习和生活必备系统 ?在INTERNET 飞速发展的今天 ,互联网已成为人们快速获取 ,发布和传递信息的重要渠道 ,它已成为社会生活的一 部分 ?学生信息处理的电脑化 ?网络化 ,是实现学校管理现代化和信息化的重要内容,也是方便用户快捷查询相关充足信息的重要工具 ?与传统学生信息处理模式相比 ,基于网络的

2、学生管理系统具有无可比拟的优越性? 本文从讨论 WEB 数据库的发展历程开始，研究了实现动态 WEB 页面技术的几种方法，得出用 ASP 技术访问学 生成绩数据库具有易实现、功能强大、效率高等优点。最后还提出了采用 ASP 和 ADO 技术相结合实现对数据 库访问的实质及其优缺点。重点论述了 MACROMEDIA DREAMWEAVER CS4 可视化开发软件工具下分析、设计、开发本院学生信息管理系统的过程。具体阐述了对计算机硬件和软件解决方案的论证，应用领域进行调查分析，参考各种资料及数据库编程实践，采用软件工程的指导方法，选用B/S模式设计的方案，应用MICROSOFT ACCESS 20

3、07 数据库管理系统， DREAMWEA VER CS4 开发工具开发出学生管理系统的过程。 本系统面向本院的某个专业班级的学生，所设计的数据库系统能够实现学生日常规范管理，成绩管理。系统支 持毕业信息采集、成绩查询、课程表查询、学期选课、经费查询，支持全班师生通过网络发送和接收有关信息。减少了传统管理方法的滞后性及信息交流的不便，提高了教育教学的效率。基于B/S结构的学生信息管理系统利用 ASP 技术和 WEB 数据库相结合实现的，它具有对学生相关信息的录入、查询、修改等功能，而 且还让师生可通过本系统进行有效的交流。cptciorndganncaenowtiuthbtehsea"

4、roente river he basis oofnpeolluptioli cy"onreqoufiwreaster soduertcaeileed clenagineninegring,deredgnigningepelraing n, ,pmlaattenrnoif sngucaheacdeosfstiomrefacilluerae onfinwgateorumtmanuadg"ewmaeynto.uUt"r, accordi ban senwgatgoe ltorecaaltcmoenntd,ittions to o improvdeo"sefl

5、fluudengtefr,opmrosmeotesciewangtiefitcrereatsmoeurncterautteil,izruatnining a on of siltcacnurdacmy, coumd.pl(iBa) thence"hreeavqyurieregmuleatint,osnpeedof heauviplythpeoltlouwtin'摘要学生档案管理系统是典型的信息管理系统 (MIS), 其开发主要包括后台数据库的建立和维护以及前端应用程 序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用 程序功能完备

6、 , 易使用等特点。 经过分析 ,我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具 ,利用其提 供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型 ,然后 ,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。关键字：控件、窗体、域。 摘要 :随着中国教育事业的迅速发展，学生的数量日益增加，学生的信息管理也变得日益繁 重和复杂。如果想要提高学生信息管理的效率和质量，以适应教育事业的发展，我们就必须对学校内部进行改 革和加强学校管理。借助现代信息技术的管理方法，建立学生信息管理系统势在

7、必行。本文通过对一个学生信 息管理系统的开发实例，对基于 VISUAL BASIC 6.0 和 SQL 2000 的学生信息管理系统进行了分析和研究。 文章首先分析了管理信息系统的概念和特点，介绍了开发工具 VISUAL BASIC 6.0 和 SQL2000 ，然后对学生信 息管理信息系统进行了需求分析、概要设计和详细设计，在概要设计中进行了数据库的设计，在详细设计中讨 论了系统的实现方法和编码。之后对系统测试进行了分析和讨论，功能模块的测试中把登录服务器模块的测试 和其他功能模块的测试分开进行， 介绍了一种实用的测试方法。 最后是介绍系统的总体测试和系统发布。 本文 所论述的学生信息管理系

8、统对实现初中、 高中和大中专院校的学生信息管理的现代化、 科学化具有重要意义。 关 键词:学生信息管理系统； VISUAL BASIC 6.0 ；SQL 2000 ；C/S 模式 INFORMATION MANAGEMENT SYSTEM OF STUDENT BASED ON C/S MODEL；AbstracWITH THE QUICK DEVELOPMENT OF CHINESE EDUCATION, THE STUDENT'S QUANTITYINCREASINGLY INCREAS ESES, THE STUDENT ' S STATUS MANAGEMENT ALS

9、O BECOMES INCREASINGLY HEA VY AND COMPLICATED. IF WANT TO IMPROVE THE EFFICIENCY AND QUALITY OF THE STUDENT'S STATUS MANAGEME NT AND ADAPT THE DEVELOPMENT OF THEEDUCATION BUSINESS, WE MUST TO REFORM THE INNER SCHOOL AND ENHANCE THE SCHOOL MANAGEMENT. SO ASK FOR THE MANAGEMENT METHOD OF THE MODER

10、N INFORMATION TECHNIQUE AND EATABLISH THESTUDENT' S STATUS MAN AGEMENT SYSTEM IS IMPERATIVE.THIS TEXT ANALYSIS AND STUDY THE STUDENT'S STATUS MANAGEMENT INFORMATIONSYSTEM WHICH BASED ON VISUAL BASIC 6.0 AND SQL 2000 ACROSS AN EXAMPLE OF STUDENT' SSTATUS MANAGEMENT IMFORMATION SYSTEM.FIRS

11、TLY, THE ARTICLE ANALYZED THEMANAGEMENT INFORMATION SYSTEM' S CONCEPT AND CHARACTERISTICS AND INTRODUCEDTHE DEVELOPMENT TOOLS VISUAL BASIC 6.0 AND SQL 2000 .THEN IT CARRIED THROUGH THE NEED ANALYSIS, GENERAL DESIGN AND DETAILED DESIGN FORTHE STUDENT' S STUDEN TSTATUS INFORMATION SYSTEM.IT DE

12、SIGNED THE DATABASE IN THE GENERAL DESIGN AND DISCUSSED THE REALIZE METHORD AND CODING OF THE SYSTEM IN THE DETAILED DESIGN.THEN IT ANALYSISED AND DICUSSED TO THE SYSTEM TEST.IT CLASSIFIED THE TEST OF REGISTERING SERVER MOLD AND THE TEST OF OTHER FOUNCTION MOLD IN THE FUNCTION MOLD TEST AND INTRODUC

13、ED A PRACTICAL TEST METHOD.FINALLY IT INTRODUCED THE TOTAL TEST AND RELEASE OF THE SYSTEM.THE STUDENT' S STUDEN T STATUSMANAGEMENT THIS TEXT DISCUSSING HAVE IMPORTANT MEANING TO REALIZE THESTUDENT' S STUDENT ST ATUS MANAGE OF JUNIOR AND SENIOR HIGH SCHOOL. KEYWORDS: STUDENTS STATUS MANAGEMEN

14、T SYSTEM;VISUAL BASIC 6.0;SQL 2000;C/S MODELcptciorndganncaenowtiuthbtehsea"roente river he basis oofnpeolluptioli cy"onreqoufiwreaster soduertcaeileed clenagineninegring,deredgnigningepelraing n, ,pmlaattenrnoif sngucaheacdeosfstiomrefacilluerae onfinwgateorumtmanuadg"ewmaeynto.uUt&q

15、uot;r, accordi ban senwgatgoe ltorecaaltcmoenntd,ittions to o improvdeo"seflfluudengtefr,opmrosmeotesciewangtiefitcrereatsmoeurncterautteil,izruatnining a on of siltcacnurdacmy, coumd.pl(iBa) thence"hreeavqyurieregmuleatint,osnpeedof heauviplythpeoltlouwtin'目录前言 错误！未定义书签摘要 错误！未定义书签ABST

16、RAC 错误！未定义书签1 系统技术及运行环境 错误！未定义书签1.1 VISUAL FOXPRO6.0 简介 错误！未定义书签1.2 系统开发及运行环境 错误！未定义书签2 系统分析 错误！未定义书签2.1 需求分析 错误！未定义书签2.2 可行性分析 错误！未定义书签3 总体设计 错误！未定义书签3.1 设计目标 错误！未定义书签3.2 项目规划 错误！未定义书签3.3 系统功能图 错误！未定义书签4 系统详细设计 错误！未定义书签4.1 数据库设计 错误！未定义书签4.2 登陆界面设计 错误！未定义书签4.3 学生信息录入 错误！未定义书签4.4 学生信息修改 错误！未定义书签4.5 学

17、生信息查询 错误！未定义书签4.6 系管理表单设计 错误！未定义书签4.7 班级管理 错误！未定义书签4.8 学生成绩录入 错误！未定义书签4.9 修改学生成绩 错误！未定义书签4.10 学生成绩查询 错误！未定义书签4.11 用户管理 错误！未定义书签4.12 修改用户密码 错误！未定义书签4.13 关于系统 错误！未定义书签结论 错误！未定义书签参考文献 错误！未定义书签致 谢 错误！未定义书签1 系统技术及运行环境1.1 Visual Foxpro 6.0简介Visual Foxpro 6.0 是计算机优秀的数据管理系统软件之一，正如其名称中的“ Visual 一样，它采用了可视化的、面

18、向对象的程序设计方法，大大简化了应用系统的开发过程，并 提高了应用系统的开发过程，并提高了系统的模块性和紧凑型。是新一代的小型数据库管理 系统的杰出代表，它以其强大的性能、完整而又丰富的工具、较高的处理速度、友好的界面 以及较完备的兼容性，备受广大用户的欢迎。面前， Visual Foxpro 6.0 是用户收集信息、 查询数据、创建集成数据库系统、进行应用系统开发较为理想的微机数据库管理系统。1.2 系统开发及运行环境该运行环境的规定是保证本需求说明的功能得到实际真正体现的基础。(1)运行环境Windows98或更高版本的操作系统 数据库系统： Microsoft Visual Foxpro

19、 6.0( 2)开发环境：开发工具： Microsoft Visual Foxpro 6.0 数据库系统： Microsoft Visual Foxpro 6.02 系统分析2.1 需求分析21 世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用及 普及到经济和社会生活的各个领域。使原本的旧的管理方法越来越不适应现在社会的发展。 许多人还停留在以前的手工操作。这大大地阻碍了人类经济的发展。为了适应现代社会人们 高度强烈的时间观念，学校信息管理系统软件为学校办公室带来了极大的方便。(一) 教育系统学生管理现状分析学校工作流程分析学校工作总体规划由教务人员在学生信息管理系统中

20、完成对运行教务处所需的基本数据 的维护，包括这些信息的增加、修改及对各项信息的变动都将在这进行操作。新的学年，教务人员首先加入年级信息，然后编排班级，再对来校学生进行基本的信息 录入，新生入学后由教务人员在学籍系统中完成新学生信息的维护。(二) 学校具体需求分析学生：对各科成绩的查询 任课老师：输入并维护所教科目的学生成绩 教务处： 学校全体成员的信息管理，并对任课老师，班主任等输入的信息进行存库，对 学生的信息进行必要的维护。通过研究调查，本系统需以下功能： 综合学生信息、学生成绩以及信息查询等信息。 方便用户了解和管理学生的全面动态信息。 良好的界面设计，更人性化的设计理念，使用户拥有更轻

21、松的使用心情。2.2 可行性分析目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能解决。 经济性：由于学校等中小型管理系统并不复杂，且 Visual Foxpro 6.0 本身要求的运行环境不高， 所以一般 Windows 2000 以上的系统环境都可以使用。实用性： 本学生信息管理系统管理系统无太多复杂的操作要求，也没有过分花哨的装饰品，人性 化的设计界面可以使操作者轻易运用自如3 总体设计3.1 设计目标本系统可以能减少很多不必要的资源，不用象以前那样用冗余的纸张式的管理。大节省 了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率，并且还提高了 学籍信息管理

22、的精确度。方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的错误，并且 操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为学 校节约了开支。为学校增加了财富。数据库分析 用户需求具体有学籍管理系统提供保存、更新、查询、维护，这就需求数据库结构能充 分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联数据，方便用户访问系 统中的数据，它与文件系统的重要区别是数据的充分共享，交叉访问，与应用程序的高度独 立性。3.2 项目规划学生管理系统是各大中专院校不可缺少的一部分，是一个 VF 数据库开发应用程序，它主要包括用户登录、学生信息输入修改、学生信

23、息查询以及学生成绩输入、学生成绩查询、57系统用户管理等几个页面，因而该系统具有较强的实用性。3.3系统功能图4系统详细设计4.1数据库设计9（1） deandma.dbf，见表 1表1字段名数据类型备注班级Char（ 8）主键 Not null系Char（ 10）Not null专业Char（ 14）Not null（2） grade.dbf，见表 2表2字段名数据类型备注学号Char（ 8）主键 Not null班级Char（ 10）Not null课程Char（ 18）Not null成绩Int （5）Not null学期Char（ 2）Not null备注MemoNull（3） std

24、uents.dbf，见表 3表3字段名数据类型备注班级Char（ 8）主键 Not null学号Char（ 8）Not null姓名Char（ 8）Not null性别Char（ 6）Not Null出生日期DatetimeNull政治面貌Char（ 8）Null身份证号码Char（ 16）Null入学时间DatetimeNull籍贯Char（ 16）Null家庭住址Char（ 28）Null邮政编码Char（ 6）Null照片Gen eralNull备注MemoNull.dbf，见表4表4用户信息表字段名数据类型备注姓名Char( 8)主键 Not null密码Char( 6)Not nul

25、l标识LogicalNot null4.2登陆界面设计进入取消“进入”按钮的click事件添加如下的代码：sele yon ghuif allt(thisform.text1.value)="” messagebox(left(allt(thisform.label1.caption),6)+"为空，请输入！",64,"提示")thisform.text1.setfocuselseif allt(thisform.text2.value)=""messagebox("密码为空，请输入！",64,"

26、;提示")thisform.text2.setfocuselsen=n+1locate for allt( 姓名)=allt(thisform.text1.value);.and. allt( 密码)=allt(thisform.text2.value)if fou nd()cptciorndganncaenowtiuthbtehsea"roente river he basis oofnpeolluptioli cy"onreqoufiwreaster soduertcaeileed clenagineninegring,deredgnigningepelrai

27、ng n, ,pmlaattenrnoif sngucaheacdeosfstiomrefacilluerae onfinwgateorumtmanuadg"ewmaeynto.uUt"r, accordi ban senwgatgoe ltorecaaltcmoenntd,ittions to o improvdeo"seflfluudengtefr,opmrosmeotesciewangtiefitcrereatsmoeurncterautteil,izruatnining a on of siltcacnurdacmy, coumd.pl（iBa） then

28、ce"hreeavqyurieregmuleatint,osnpeedof heauviplythpeoltlouwtin'if thisform.check1.value=1 .and. 标识 checked=1 thisform.release do menu.mpr elseif thisform.check1.value=1.and.! 标识 messagebox（"你不是管理员！",48,"警告"）thisform.check1.value=0 elsechecked=0 cyonghu=allt（ 姓名 ） cmima=al

29、lt（ 密码 ） thisform.release do menu.mpr endif endif else if n>=3messagebox（"你不是合法用户，请与管理员联系！",48,"警告"）thisform.release clear event quit elsemessagebox（left（allt（thisform.label1.caption）,6）+"或密码错误，请重新输入！ ",64," 提示"）thisform.text1.value="" thisform.te

30、xt1.setfocus thisform.text2.value="" endif endif endif endif“取消”按钮的 click 事件添加如下的代码nr=messagebox（" 你选择了退出登录，是否退出？ ",68," 用户登录 "） if nr=6thisform.releasequitendif#4.3学生信息录入“增加”按钮的click事件添加如下的代码：if this.captio n="增加"if(bo3.displayvalue="(选择").or.(alltr

31、im(thisform.text1.value)="");.or.(alltrim(thisform.text2.value)="”)messagebox("班级、学号和姓名必须填充！",64,"提示")elselocate for alltrim(thisform.text1.value)=alltrim(stude nts.学号)if !eof()=messagebox("此学号已经存在，请重新输入！ ",64,"提示")thisform.text1.value="&qu

32、ot;thisform.text1.setfocuselsesele stude ntsappe nd bla nkreplace 班级 with alltrim(bo3.value),学号alltrim(thisform.text1.value);姓名 with alltrim(thisform.text2.value),出生日期ctod(alltrim(thisform.text4.value);入学时间withctod(alltrim(thisform.text6.value),籍贯alltrim(thisform.text7.value);家庭住址withalltrim(thisfor

33、m.text8.value),身份证号码alltrim(thisform.text8.value);备注 with alltrim(thisform.edit1.value),邮政编码withwithwithwithwith1113alltrim(thisform.text3.value)if alltrim(bo4.value)=""replace 性别 with alltrim(bo4.displayvalue) elsereplace 性别 with alltrim(bo4.value) endifif alltrim(bo5.value)=""r

34、eplace 政治面貌 with alltrim(bo5.displayvalue) elsereplace 政治面貌 with alltrim(bo5.value) endif&& if .not.alltrim(thisform.label17.caption)="" if !pictemp=""wait windows " 正在导入相片，请等待！ " at 100,40 timeout 2 nowait&& pictemp=thisform.label17.caption append gener

35、al students. 照片 from "&pictemp" endif pictemp="" this.caption=" 继续 " endif endif else mand2.click this.caption=" 增加 " endif4.4 学生信息修改15“修改”按钮的click事件添加如下的代码：ith thisformsele stude ntslocate for allt(学号)=allt(.text1.value)if allt( 学号)=allt(.text1.value)repl

36、ace 学号 with allt(.textl.value),姓名 with allt(.text2.value),邮政编码 with allt(.text3.value),;出生日期 with .text4.value, 入学时间 with .text6.value, 籍贯 withallt(.text7.value),;家庭住址 with allt(.text8.value),身份证号码 with allt(.text9.value),性别 with allt(.combo4.value),;政治面貌 with allt(.combo5.value), 备注 with allt(.edit

37、1.value)if !pictemp=""wait windows "正在导入相片，请等待！ "at 100,40 timeout 2 nowaitappe nd gen eral 照片 from "&pictemp"en difen dif sele lslocate for allt(学号)=allt(.text1.value)if allt( 学号)=allt(stude nts. 学号)replace 学号 with students. 学号，姓名 with students.姓名，邮政编码with stude nt

38、s. 出生日期with with stude nts. 家庭住址with邮政编码,;students.出生日期，入学时间with students.入学时间，籍贯 籍贯,;students.家庭住址,身份证号码 with students.身份证号码,性别 with stude nts.性别,;备注，照片with政治面貌 with students.政治面貌,备注 with students.students.照片en difpictemp二""this.e nabled=.f.en dwith thisform.text1.setfocus else sele stuls

39、4.5学生信息查询“定位查询”按钮的click事件添加如下的代码if allt(thisform.text1.value)="”messagebox("请输入学号或姓名！",64,"提示")locate for allt( 学号)=allt(thisform.text1.value);.or.allt( 姓名)=allt(thisform.text1.value)if fou nd()go recn()elsewait wi ndow at 18,38 no wait '没有找到你要查询的信息!en difen difthisform.

40、gridl.refreshthisform.refresh“第一个”按钮的click事件添加如下的代码sele stulsskip -1if bof()this.e nabled=.f.ma ma nd3.e nabled=.f. messagebox("已经到第一条记录了！ ",64,"提示") go top elsego recn()en difma ma nd2.e nabled=.t. ma ma nd4.e nabled=.t.“单个查询”按钮的click事件添加如下的代码nxx=1do form xxxg4.6系管理表单设计“增加”按钮的cl

41、ick事件添加如下的代码rheatvheefEolcimusied noantiopnololf 1uptrion conotvrionlcoifalwcaotentrrgolo, ftiove"dwigater uqupamlituyds"e,catsiotnhe3 municdieepeni npgaliwtiaetser ofcothnitsroyleleadr's "playdeteriorations,". ensureNtehxet, to jcuremapti-sotnartthias year n invoefs"tci

42、gleaatirornivleinrse"tostuacnhdeards. Secosnwdo,rpka,yimsppel ementation pcliaal attenntiaocnctoordi pnogltlouttihoen -pcriuottriitnieg cosnastnrudctthie pr onogorfanmamneotoufbweso.rkIn,tienrace cptciorndganncaenowtiuthbtehsea"roente river he basis oofnpeolluptioli cy"onreqoufiwreast

43、er soduertcaeileed clenagineninegring,deredgnigningepelraing n, ,pmlaattenrnoif sngucaheacdeosfstiomrefacilleurae onifnwgateorumtmanuadg"ewmaeynto.uUtr", accordi ban senwgatgoe ltorecaaltmcoenntd,ittions to o improvdeo"selffluudengtefr,opmrosmeote sciewangtiefitcrereatsmouerncterautte

44、il,izrautnining aon of siltcacnudracmy, coumd.pl(iBa) the nce"hreeavqyurieregmuleatint,osnpeedof heauviplythpeoltlouwtin' sngsiunpdpuosrttrnieest.wPoll orkuticoonnstruocftwioant,eirsmfoucsutsgirab the sonugrcoe,n wastneawnaotteurbiess home "last metperrism"aqriuleystthioens.oDuorm

45、esticceseofwbaage trecaktwmearndt in rproduction capa cituyr,ail narcereasa, tsehtihseyiear instetnsity heoffinal year of the three -year acti on, determinati on to fight and the moment um around, ending the battle on which f ully to ensure the realizati on of all County 648 forme d village coverage

46、. Also, be sure to attach importance to focus on rural domesti c wastewater treatment facil ity operati on and ma nagement, e nsure that wast ewater treatment facility up a nd r unning, role play, avoid the "Sun" problem. T hird, pay spe cial attenti on to the River Lset order to tagset sa

47、fety offif alltrim(thisform.text1.value)=""messagebox("系名为空，请输入！",64,"提示")thisform.text1.setfocuselselocate for dea ndma. 系=alltrim(thisform.text1.value)if .not.eof()messagebox("系名已经存在，请重新输入！",48,"提示")thisform.text1.value=""thisform.text1.s

48、etfocuselseappend blankreplace deandma. 系 with alltrim(thisform.text1.value)thisform.text1.value=""thisform.text1.setfocusendifthisform.list1.clearthisform.listl.init &&重新显示 list 列表thisform.list1.value=""endif“删除”按钮的 click 事件添加如下的代码Set safety offif this.caption="取消&q

49、uot;thisform.text2.value="" thisform.text2.enabled=.f. thisform.label3.enabled=.f. this.caption=" 删除 " mand1.enabled=.t.mand2.caption=" 修改"elseif alltrim(thisform.text1.value)=""messagebox("缺少完整信息，无法删除！",0+48,"警告")thisform.text1.setfocusels

50、ethisform.list1.value=alltrim(thisform.text1.value)nn=messagebox("是否确定删除此系单位，其所属的专业班级的数据库都将删除！ ",1+48," 警告")1719if nn=1 t=0 use datadeandma go top do while .not.eof() if alltrim( 系 )=alltrim(thisform.text1.value) delete pack t=1 endif skip enddoif t=0messagebox("将删除的内容不存在，请重

51、新输入。",60,"提示")thisform.text1.setfocus endif endifthisform.text1.value="" thisform.list1.requery thisform.list1.clear thisform.list1.init && 重新显示 List 列表 thisform.text1.value=alltrim(thisform.list1.value) endif endifthisform.refresh4.7班级管理“增加”按钮的click事件添加如下的代码set orde

52、r to tagset safety offif alltrim(thisform.text1.value)="”messagebox("班级名为空，请输入！",64,"提示")thisform.text1.setfocuselselocate for dea ndma.班级=alltrim(thisform.text1.value)if .no t.eof()messagebox("班级名已经存在，请重新输入！",48,"提示")thisform.text1.value=""this

53、form.text1.setfocus elselocate for dea ndma.专业=alltrim(bo2.value)if alltrim(dea ndma.班级)=""replace deandma. 班级 with alltrim(thisform.text1.value) elseappe nd bla nkreplace deandma. 系 with alltrim(bo1.value) replace deandma. 专业 with alltrim(bo2.value) replace deandma. 班级 with alltrim(thisfo

54、rm.text1.value) en dif thisform.text1.value=""21重新显示 list 列表thisform.text1.setfocus endif bo2.click && thisform.list1.value="" endif“删除”按钮的 click 事件添加如下的代码Set safety off if this.caption=" 取消 " thisform.text2.value="" thisform.text2.enabled=.f. thisform

55、.label5.enabled=.f. this.caption=" 删除 " mand1.enabled=.t. mand2.caption=" 修改 " else if alltrim(thisform.text1.value)=""=messagebox("缺少完整信息，无法删除！",0+48,"警告")thisform.text1.setfocus elseuse deandma exclusive thisform.list1.value=alltrim(thisform.text1.

56、value) nn=messagebox("是否确定删除此班级,与其相关的数据都将删除！",1+48,"警告 ")if nn=1 t=0 locate for alltrim(dea ndma.班级)=alltrim(thisform.text1.value)delete pack t=1if t=0messagebox("将删除的内容不存在，请重新输入。",64,"提示")thisform.text1.setfocusendifendif thisform.text1.value="" thi

57、sform.list1.requery bo2.click && 重新显示 List 列表 thisform.text1.value=alltrim(thisform.list1.value)en difen difthisform.refresh4.8学生成绩录入“确定”按钮的click事件添加如下的代码xuehao=allt(thisform.text1.value) banji=allt(bo3.value) keche ng=allt(bo4.value) xueqi=allt(bo5.value) che ngji=allt(thisform.text2.value)

58、 sele grade if che ngji="" tt=messagebox("想输入单科成绩吗？ ",4+32,"提示") if tt=6 thisform.text2.setfocus else en dif else*locate for allt( 学号)=xuehao*if eof()locate for allt(课程)=keche ngif allt(学号)="".a nd.allt(班级)=banjirepl 学号 with xuehaorepl 成绩 with val(che ngji)repl 学期 with xueqi