学籍管理系统设计毕业论文.doc

杭州电子科技大学成人教育学院毕业设计（论文）学籍管理系统设计毕业论文第一章 绪 论自1946年人类第一台计算机（ENIAC）问世以来，60多年过去了，计算机的软硬件发展日新月异，突飞猛进。以个人电脑为例，硬件方面，以CPU、内存、硬盘为代表，CPU已发展到当今的四核CPU 单核的CPU已经逐渐淡出历史舞台，成为昨日黄花；2G双通道内存，100G以上的sata高速硬盘已成为标准配置。如此高性能的配置，就是和5年之前相比，也不知高出了多少倍。软件方面，已经从当初晦涩难懂的机器语言、汇编语言过渡到今天的第四代语言甚至第五代语言，第四代语言（4GL）是完全非过程化的语言，这种语言只要求用户指明将要干什么，而无需指明怎么干，如何做这一工作，则完全交给软件模块来自动处理，大大提高了软件的开发效率和软件质量，使软件开发人员从繁重的脑力、体力劳动中解脱出来1。伴随着计算机软硬件技术的发展，计算机的技术和应用获得了突飞猛进的发展，计算机已经在科学计算、数据处理、过程控制、计算机模拟等领域得到广泛的应用。实际上，计算机的应用没有任何限制，计算机已经成为人们工作和生活中不可缺少的工具。早在1954年，银行、大公司和大企业纷纷采用计算机进行帐户和账目管理、生产管理、库存管理、销售管理、统计报表等。从数据的收集、存储、整理到检索统计，应用的范围日益扩大，使计算机的应用很快超过科学计算，成为最大的计算机应用领域。数据处理应用的不断扩大，推动了数据库管理系统、表处理软件、以及用于分析和预测等软件的发展。从上面所举的11个常用的领域可看到，现代计算机的应用领域，实际上就是数据处理的发展和延伸。数据处理是现代化管理的基础。它不仅适用于处理日常的事务，且能支持科学的管理与决策。以一个企业为例，从市场预测，到经营决策、生产管理、财务管理、销售服务等，无不与数据处理有关。随着生产社会化的扩大，科学技术的进步，人类知识总量呈爆炸式的增长，各行各业的管理工作越来越离不开信息，信息已被列为与物质、能源相并列的人类社会发展的三大资源之一。随着以计算机技术、通信技术、网络技术为代表的现代信息技术的飞跃发展，人类正在从工业时代向信息时代迈进，信息处理已经成为当今世界上一项重要的社会活动。第二章 管理信息系统综述2.1 信息系统的发展历程信息系统的发展经历了从电子数据处理系统到管理信息系统的发展过程。2.1.1电子数据处理系统（19531960年）数据处理的人工系统在计算机问世以前就已存在，因此，计算机一出现，首先就用到数据处理上。当时主要用计算机代替手工劳动，如统计产量、工资计算等。1960年以后出现的数据更新系统也属于这方面的内容。例如，美国share航空预约订票系统可掌握1008个预约点，76000个座位和27000个飞行记录。由于这种系统不能报告当前的售票速度、何时才能将票售完，即没有预测和控制功能，所以还不能说是管理信息系统。2.1.2信息报告系统（19611970年）信息报告系统是管理信息系统的雏形，其特点是按事先规定的要求提供管理报告，用来支持决策制订。通常包括生产状态报告系统、服务状态报告系统、研究状态报告系统。2.1.3决策支持系统（19701980年）在欧美，早期的管理信息系统失败了，原因并非由于系统不能提供信息。当时的管理信息系统能够提供很多报告，呈送给领导后，这些资料大部分被丢进垃圾堆，因为这不是领导决策所需要的。决策支持系统不同于早期的管理信息系统。早期的管理信息系统要为管理者提供预定的报告或从数据库查询数据，而决策支持系统则是在人和计算机的对话过程中帮助决策者探索可能的方案，生成管理决策所需要的信息。2.1.4信息系统的进一步发展随着微型计算机处理能力和通讯网络的高速发展，信息系统出现了不少新的概念，诸如：专家系统和其它基于知识的系统；经理信息系统用于支持领导层的决策；战略信息系统用于在竞争中支持战略决策；电子数据交换；计算机集成制造系统等。有关这些内容就不详述了。下面着重论述一下管理信息系统：2.2 管理信息系统概述管理信息系统是一个由人和计算机等组成的，能进行管理信息的收集、传递、加工、保存、维护和使用的系统，它能实测国民经济和企业的各种运行情况；利用历史数据预测未来；从全局出发辅助管理决策；利用信息控制企业的行为、帮助实现其规划目标。也就是说，管理信息系统不仅是一个能对管理者提供帮助的基于计算机的人机系统，而且是一个社会技术系统。应当将管理信息系统放到社会这个大背景去考察，在解决技术问题的同时，充分考虑使用信息技术的组织与人，重视系统与组织、环境的交互作用。管理信息系统是介于信息论、经济管理理论、统计学与运筹学以及计算机科学之间的一门边缘性、综合性、系统性的交叉学科。它是伴随着管理科学、信息技术、计算机技术等的发展而产生和发展起来的。20世纪20年代以来，人们对管理的重视是管理信息系统产生的前提。从以“泰勒制”为代表的科学管理的出现，经过了行为科学学派、数学管理学派、计算机管理学派、系统工程学派的发展，使管理水平不断提高。计算机的诞生和飞速发展使信息管理现代化成为可能。而信息技术的不断进步为信息管理提供了强有力的工具和手段，使人类开发利用信息资源的能力大大增强，使整个社会的信息化水平不断提高。进入20世纪90年代以来，伴随着计算机技术特别是网络技术的发展，利用现代信息技术为人们的智能活动（包括管理决策）提供综合服务，成为管理信息系统发展的方向。ISDN（综合业务数字网）就是具有综合服务功能的网络系统。近年来，随着互联网的迅速发展，现在全世界数亿个网民可通过当前INTERNET上最为流行的信息检索服务程序（WWW浏览器），把网上各种类型的信息如文本、声音、图像、动画等综合集成起来提供给用户。开发、利用INTERNET上的资源进行科学、文化、教育、经济、管理活动，已经成为当前信息化进程中的热门话题。这是综合信息服务社会化、全球化的重要标志。2.3本系统选用的开发工具Visual FoxPro8.0是一门对数据进行处理与操作的语言，专门与数据库打交道，我们都知道信息是客观事物属性的反映。是经过加工处理并对人类客观行为产生影响的数据表现形式。数据是反映客观事物属性的记录，是信息的具体表现形式。任何事物的属性都是通过数据来表示的。数据经过加工处理之后，成为信息。而信息必须通过数据才能传播，才能对人类有影响。单纯的数据不能对人类产生影响。数据处理是指对信息的处理（编辑）。数据库是以一定的组织方式将相关的数据组织在一起存放在计算机内部形成的、可为多个用户共享的、与彼此独立的一组相关数据的集合。应用Visual FoxPro8.0所设计出来的学籍管理系统可以更加快速的收集学籍信息，方便快捷地处理各类数据，使整个管理系统更加高效化，智能化。第三章 系统规划及需求分析系统初步调查和可行性分析的工作步骤如图31所示 （使用单位要求） 拟定计划 学籍管理工作调查 现有的学籍管理系统调查 确定系统的目标和功能 提出技术方案明确系统对单 拟定系统 效益分析位变化的影响 开发计划 可行性论证 不可行 修改 （评审） 不可行 修改（系统分析）图31 可行性论证的工作步骤3.1 系统的初步调查在正式立项之前必须进行可行性分析，而可行性分析的基础是对系统的初步调查。初步调查是在使用单位的高层进行的，系统分析员站在高层观察使用单位的现状，分析杭州科技职业技术学院成绩管理的运行情况。初步调查主要由两部分组成：一般调查和信息需求初步调查。前者包括了解使用单位当前的信息流程，明确使用单位的需求以及确定系统目标和主要功能；后者是初步调查的主要内容，调查组织系统的工作职责及活动和各种职能部门所要处理的数据，还需了解环境信息，包括内部环境和外部环境信息。本人目前正刚刚接手负责杭州科技职业技术学院的学籍管理，本系统初步调查采用的主要方式整理本人在学籍管理中的主要工作，确定学籍管理工作的数据流程，杭州科技职业技术学院的学籍管理主要工作如下：杭州科技职业技术学院目前的学生类型主要有两种：一种是成人脱产班，其所属学校是杭州成人科技大学，一种是普通高职生，其所属学校是杭州科技职业技术学院，但由于两部分学生学习、学籍处理工作基本上都在一起进行所以除了在学生点名册、成绩打印的时候需要对表格标题进行区分处理外，其它的学籍管理工作可以在一起进行，杭州科技职业技术学院的学籍管理工作流程如图32所示新生入学分配班级学生成绩处理学籍异动处理学生毕业 图 32 学籍处理流程杭州科技职业技术学院由于还是筹建院校，学校规模较小，原有的学籍管理基本上处理半手工状态，所有的学籍异动信息都通过纸质文档和分散的电脑文件存储，查询及统计极不方便，对成绩信息的处理是通过给每个班级建立一个vfp表格的形式存储，属于分散化管理，数据的统计、分析极为困难，数据处理效率低下，准确率也得不到保证，随着学校的逐步发展，急需一套符合学校现状的学籍管理系统，以提高学校学籍管理的效率和实现学籍管理的规范化。3.2 系统的可行性调查 可行性分析包括两部分内容：分析建立管理信息系统的必要性和可能性。分析建立信息系统的必要性时要注意用户提出的理由是否充分和合理；分析建立信息系统的可能性主要包括经济可行性、技术可行性和社会可行性。经济可行性研究的目的是使系统能达到以最小的开发成本取得最佳的经济效益。需要作投资估算，对开发中所需人员、硬软件支持以及其它费用进行估算，并对系统投入使用后带来的经济效益进行估计。技术可行性研究就是弄清现有技术条件能否顺利完成开发工作，硬软件配置能否满足开发的需要等等。社会可行性研究是指系统在投入使用后，对社会可能带来的影响进行分析。可行性分析的最后成果是写出可行性分析报告。可行性分析报告包括如下内容：使用单位的战略目标，系统的总体目标及主要功能；拟定系统的总体方案；从技术、经济、社会等方面论证技术方案的可行性；制定投资规划和开发计划。在系统初步调查的基础上，明确了使用单位现行管理系统存在的主要问题和建立管理信息系统的初步设想，进一步对系统目标、范围等因素进行分析研究。3.2.1系统实现的战略目标为了适应学校学籍管理的需要，非常需要一套适合学院学籍管理现状的学籍管理系统。3.2.2 系统管理的目标杭州科技职业技术学院学籍管理系统的目标是：按照管理信息系统的原理和方法，采用先进的计算机信息技术和手段，充分利用微机设备，加强学籍管理中各种信息资源的管理和应用，提高学籍管理的效率和准确率。并为学校教学管理工作提供学籍方面的各种信息。3.2.3 杭州科技职业技术学院学籍管理系统的范围和边界杭州科技职业技术学院学籍管理系统的范围和边界是：对杭州科技职业技术学院的学生个人信息、学生成绩信息、学籍异动信息、学生毕业情况等信息进行管理和维护并进行各类统计报表的打印和学籍信息的导出工作。第四章 系 统 设 计4.1功能需求4.1.1基础信息维护部分功能：实现系统所需的各项基础信息的设置，如：学期库设置、班级信息库设置、学生信息库设置、学校课程库设置、班级课程库的设置以及新生入学的数据导入工作。4.1.2成绩信息处理部分功能：完成对在校生的成绩处理工作，如：学生成绩输入、补考成绩输入、学生信息修改、成绩不及格统计等。4.1.3学籍信息处理部分功能：完成对在校生的各项学籍的处理工作，如：学生信息修改、学籍异动信息的的处理等。4.1.4统计报表部分功能：完成对学生学籍、成绩的各项报表的打印工作，如：各班成绩打印、全校成绩打印、毕业生成绩报表打印以及各项成绩统计等打印工作。4.1.5毕业生信息处理部分功能：完成对毕业生的各项学籍信息的处理工作，如：学生毕业、毕业生信息查询、毕业生补考成绩输入、结业转毕业等。4.1.6系统信息部分功能：实现用户维护、初始化、帮助、退出等工作。4.2数据字典l 班级库：bjk.dbf序号 字段名中文含义 类型 宽度 小数位 是否允许空1BJBH班级编号字符型10否2BJMC班级名称字符型30否3BJJC班级简称字符型20否4SZX所在系字符型20否5BZR班主任字符型10是6RXRQ入学日期字符型14否7BYRQ毕业日期字符型14是8XZ学制数值型1否9BJRS班级人数数值型3是l 班级课程库bjkck.dbf序号字段名中文含义类型宽度小数位是否允许空1BJBH班级编号字符型10否2BJMC班级简称字符型30否3KCBH课程编号字符型10否4KCMC课程名称字符型30否5RKJS任课教师字符型10是6NF年份字符型5否7XQ学期字符型20否l 学生库xsk.dbf序号字段名中文含义类型宽度小数位是否允许空1KSH考生号字符型17否2XH学号字符型12否3XM姓名字符型10否4XB性别字符型4否5CSRQ出生日期数值型9是6SFZH身份证号字符型21否7MZ民族字符型5是10ZYDM专业代码数值型7否11ZYMC专业名称字符型17否12CCDM层次代码数值型5否13CC层次字符型14否14XXXS学习形式字符型7否15XZ学制字符型3否16LQLXDM录取类型字符型6否17BYXXMC毕业学校字符型31是18KM1入学成绩数值型7是19KM2入学成绩数值型7是20KM3入学成绩数值型7是21KM4入学成绩数值型7是22ZF总分数值型9是23TZF特征分数值型3是28RXRQ入学日期数值型9否29BJBH班级编号字符型9否30BJMC班级名称字符型30否31SZX所在系字符型20否32PXH排序号数值型4否l 成绩库cjk.dbf序号字段名中文含义类型宽度小数位是否允许空1XH学号字符型12否2BJBH班级编号字符型10否3XM姓名字符型10否4BJMC班级名称字符型30否5NF年份字符型5否6XQMC学期名称字符型12否7KCBH课程编号字符型10否8KCMC课程名称字符型30否9CJ成绩字符型10否10BKCJ补考成绩字符型10否11XB性别字符型2否12XQBH学期编号字符型2否13PXH排序号数值型5否l 学籍异动库xjydk.dbf序号字段名中文含义类型宽度小数位是否允许空1XH学号字符型12否2XM姓名字符型10否3XB性别字符型2否4YBJBH原班级号字符型10否5YBJMC原班级名字符型30否6YDXZ异动性质字符型10否7QX去向字符型60否8BZ备注字符型200是9YDRQ异动日期字符型8否4.3系统对数据的处理流程学生成绩管理系统基础信息维护信息处理学籍异动统计报表毕业生信息维护系统学期设置班级信息设置学生信息设置课程设置新生信息输入学生成绩输入补考成绩输入学生信息修改不及格统计退学休学留级转班转学复学学生毕业异动汇总各班成绩打印全校成绩打印毕业生成绩报表不及格率统计毕业生信息查询毕业生补考成绩输入结业转毕业用户维护关于帮助退出4.3.1系统框架图图4-1 系统框架图4.3.2系统数据流程分配班级新生入学学籍信息核对学籍信息修改成绩输入学籍异动在校生信息打印输出学生毕业毕业生信息查询结业转毕业成绩输出课程设置图4-2 系统数据流程图第五章 系统主要功能的实现5.1 主函数的实现主函数主要用于实现系统参数的初始化设置以及系统的默认路径、用户验证等功能，具体代码实现如下：* 学籍管理程序通用Main.prg主文件 * CopyWriter Peiyun 2007.11.02 *SET RESOURCE offERASE foxuser.dbfERASE foxuser.fptSYS(3099,70)set talk offset notify offset safety offset esca offset excl offset dele onset colo toSET CENTURY ON set date to YMDclea ALLCLEA*将系统运行目录设置在程序所在路径 BegincCurrentProcedure = SYS(16,1)nPathStart = AT(:,cCurrentProcedure)- 1nLenOfPath = RAT(, cCurrentProcedure) - (nPathStart)SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)set path to forms,rpts,data,bmp,programe,classrelease cCurrentProcedure,nPathStart,nLenOfPath*将系统运行目录设置在程序所在路径 End*系统公共变量定义 BeginPUBLIC m_systitle,m_username,m_usercode,m_systype,m_photo,m_tb* m_systitle-系统名称,m_username-用户名称,m_usercode-用户代码,m_systype-系统类型 *IF !FILE(register.sys) m_syspsw=SPACE(10) m_systitle=杭州科技职业技术学院学籍管理系统 m_username=杭州科技职业技术学院SAVE TO register.sys ALL LIKE m_*ELSE RESTORE FROM register.sys ADDITIVE m_systitle=杭州科技职业技术学院学籍管理系统 m_tb=.f.ENDIFdo form f_login to li_loginif li_login = 0 thenreturn quitendif *系统外观设置*begin* if !file(sysdef.sys) mm_scrheight=450 &屏幕高 mm_scrwidth=689 & 宽 mm_scrtop=0 &坐标X mm_scrleft=0 & Y mm_scrMAX=.f. &是否是最大化 mm_scrcenter=.t. &是否是自动居中 else restore from sysdef.sys additive endif_screen.icon=BOOK01A.ico_screen.picture=Gone Fishing.bmp_screen.caption= m_systitle+ CopyRight dongpeijun WoodTiger SoftWare Studio 2007.11.02if mm_scrMAX _screen.windowstate=2else _screen.windowstate=0 _screen.height=mm_scrheight _screen.width=mm_scrwidth if mm_scrcenter _screen.autocenter=.t. else _screen.top=mm_scrtop _screen.left=mm_scrleft endifendif_screen.visible=.t.release mm_scrheight,mm_scrwidth,mm_scrtop,mm_scrleft,mm_scrMAX,mm_scrcenterwtlsexist=wexist(Standard)if wtlsexist hide windows Standardendifon shutdown do pSysshutdownpublic mytoolbarSET CLASSLIB TO jxpg ALIAS xttoolbar ADDITIVEmytoolbar = CREATEOBJ(xttoolbar.jptoolbar)mytoolbar.dock(0)mytoolbar.movable=.f.mytoolbar.show*myToolBar.DockPosition=1*工具栏定义 End*菜单 BeginDO mainmenu.mprread events*菜单 Endif wtlsexist show windows standardendif*系统外观变量写入*begin*mm_scrheight=_screen.heightmm_scrwidth=_screen.widthmm_scrtop=_screen.topmm_scrleft=_screen.leftmm_scrMAX=iif(_screen.windowstate=2,.t.,.f.)mm_scrcenter=.f.save to sysdef.sys all like mm_*系统外观变量写入*end*SET SYSMENU TO DEFAULT_screen.caption=Microsoft Visual Foxpro_screen.picture=_screen.icon=_screen.windowstate=2set talk onset safe onset excl onSET DELETED OFFon shutdownon errorclea all*Kill in OK*set help to*_screen.show*Kill in OK*set resource onreturnprocedure pSysshutdown if messagebox(真的要关闭系统吗?,33,科职院学籍管理系统)=1 clear events endifendprocprocedure pError =messagebox(由于系统发生错误，无法继续运行!请联系开发商!,64,系统错误) clear events quitendproc*function fIsSYSkeypara msn,mkeyprivate cSerTcSerT=subs(allt(str(13571113+int(rand(val(msn)+11)*91357371113),20),1,10)if mkey=cSerT retu .t.else retu .f.endifendfunc5.2班级维护界面如如图5-1所示：图5-1 班级维护班级维护主要实现对学校班级信息的修改、增加功能，并实现学生点名册和全校班级清单的打印输出。点击所在系选择框，选中相应的系部后，系统会自动过滤出该系的所有班级，并在窗口下方统计该系的人数，具体代码实现如下：LPARAMETERS nButton, nShift, nXCoord, nYCoordls_xbmc = allt(thisform.cmb_szx.value)thisform.list_bjk.clearsele bjkgo topif ls_xbmc = 全校 thenset filter toelsels_xbmc = +ls_xbmc+set filter to allt(szx) = &ls_xbmcendifthisform.list_bjk.setfocus()if thisform.list_bjk.listcount 0 thenls_bjbh = allt(thisform.list_bjk.listitem(1,1)ls_bjmc = allt(thisform.list_bjk.listitem(1,2)ls_szx = allt(thisform.list_bjk.listitem(1,3)sele xskcount to li_xxrs count to li_xbrs for szx = ls_szxcount to li_bjrs for bjbh = ls_bjbhthisform.lab_bz.caption = ls_szx + 人数： + allt(str(li_xbrs) + + ls_bjmc + 人数: + allt(str(li_bjrs)thisform.lab_xxrs.caption = 全校人数: +allt(str(li_xxrs)elsethisform.lab_bz.caption = endif点击列表框中的单个班级，上面的文本框中将出现相应的班级信息，对信息进行修改后，点击修改按钮，可将修改后的信息存入到班级库中，具体代码实现如下：if allt(thisform.Txt_bjbh.value) = thenretuendifls_bjbh = allt(thisform.Txt_bjbh.value)li_count = 0for li_listcount = 1 to thisform.list_bjk.listcountif thisform.list_bjk.selected(li_listcount) thenli_count = li_count + 1if li_count 1 thenmessagebox(修改班级信息时只能选择单条记录，修改的对象为选中记录！,错误)returnendifendifendforif li_count = 0 thenmessagebox(没有选中要修改的班级！,错误)returnendiffor li_listcount = 1 to thisform.list_bjk.listcountif thisform.list_bjk.selected(li_listcount) thenls_oldbjbh = allt(thisform.list_bjk.listitem(li_listcount,1)ls_bjmc = allt(thisform.list_bjk.listitem(li_listcount,2)if MESSAGEBOX(确实要对+allt(ls_oldbjbh)+ + ls_bjmc + 进行修改吗？,4+32+0,学生学籍管理系统)=7 thenreturnendifsele bjkgo toplocate for allt(bjbh) = ls_oldbjbhrepla bjbh with ls_bjbhrepla szx with allt(thisform.cmb_szx.value)repla bjmc with allt(thisform.Txt_bjmc.value)repla bzr with allt(thisform.Txt_bzr.value)repla rxrq with allt(thisform.Txt_rxrq.value)repla byrq with allt(thisform.txt_byrq.value)thisform.list_bjk.listitem(li_listcount,3)=thisform.cmb_szx.value thisform.list_bjk.listitem(li_listcount,1)=thisform.Txt_bjbh.value thisform.list_bjk.listitem(li_listcount,2)=thisform.txt_bjmc.value thisform.list_bjk.listitem(li_listcount,4)=thisform.txt_bzr.value thisform.list_bjk.listitem(li_listcount,5)=thisform.Txt_rxrq.value thisform.list_bjk.listitem(li_listcount,6)=thisform.txt_byrq.value thisform.list_bjk.setfocus()*if (ls_bjbh#ls_oldbjbh) or (ls_bjmc#allt(thisform.Txt_bjmc.value) thensele bjkck repla all bjmc with ls_bjmc for allt(bjbh)=ls_oldbjbhrepla all bjbh with ls_bjbh for allt(bjbh)=ls_oldbjbhsele cjk repla all bjmc with ls_bjmc for allt(bjbh)=ls_oldbjbhrepla all bjbh with ls_bjbh for allt(bjbh)=ls_oldbjbhsele xskrepla all bjmc with ls_bjmc for allt(bjbh)=ls_oldbjbhrepla all bjbh with ls_bjbh for allt(bjbh)=ls_oldbjbhsele ydcjkrepla all bjmc with ls_bjmc for allt(bjbh)=ls_oldbjbhrepla all bjbh with ls_bjbh for allt(bjbh)=ls_oldbjbhsele xjydbrepla all ybjmc with ls_bjmc for allt(ybjbh)=ls_oldbjbhrepla all ybjbh with ls_bjbh for allt(ybjbh)=ls_oldbjbh*endifexitendifendfor在文本框中输入班级信息后，点击增加按钮，即可将相应的班级信息加入到班级库中，具体代码实现如下：if allt(thisform.Txt_bjbh.value) = thenretuendifif allt(thisform.txt_bjmc.value) = thenreturnif allt(thisform.cmb_szx.value) = 全校 thenmessagebox(请选择所在系,错误)returnendifendifsele bjklocate for allt(bjbh) = allt(thisform.Txt_bjbh.value) if found()messagebox(班级编号重复,提示)returnendifsele bjklocate for allt(bjmc) = allt(thisform.Txt_bjmc.value) if found()messagebox(班级名称重复,提示)returnendifif MESSAGEBOX(确实要新增+allt(thisform.txt_bjbh.value)+ + allt(thisform.Txt_bjmc.value)+ 班级吗？,4+32+0,学生学籍管理系统)=6 thensele bjkgo topappe blankrepla bjbh with allt(thisform.Txt_bjbh.value)repla szx with allt(thisform.cmb_szx.value)repla bjmc with allt(thisform.Txt_bjmc.value)repla bzr with allt(thisform.Txt_bzr.value)repla rxrq with allt(thisform.Txt_rxrq.value)repla byrq with allt(thisform.txt_byrq.value)thisform.list_bjk.setfocus()endifreturn在列表选中相应的班级后，点击删除按钮即可删除该班级的所有信息，包含成绩信息、课程信息、学生信息，具体代码实现如下：if MESSAGEBOX(确实要删除所选班级吗？该操作将删除与该班级相关的所有信息+chr(13)+并且该操作不可逆转,4+32+0,学生学籍管理系统)=6 thenfor li_listcount = 1 to thisform.list_bjk.listcountif thisform.list_bjk.selected(li_listcount) thenls_bjbh =allt(thisform.list_bjk.listitem(li_listcount,1)sele bjkDELETE FOR ALLTRIM(bjbh) = ls_bjbhSELECT xsk DELETE FOR ALLTRIM(bjbh)= ls_bjbhSELECT bjkckDELETE FOR ALLTRIM(bjbh) = ls_bjbhSELECT cjkDELETE FOR ALLTRIM(bjbh) = ls_bjbhendifendforENDIFthisform.list_bjk.SetFocus() 点击班级清单按钮，即可生成全校在校班级名册，如图5-2所示：图5-2 在校班级清单双击列表框中的单个班级按钮或利用CTRL和SHIFT按钮选中多个班级后点击学生名册按钮，即可实现学生点册的打印输出，具体代码如下：if thisform.list_bjk.listcount = 1 thenthisform.cmb_szx.additem(全校)sele xbkgo topdo while not eof()ls_xbmc = xbk.xbmcthisform.cmb_szx.additem(allt(ls_xbmc)skipenddoendifthisform.list_bjk.setfocus()if thisform.list_bjk.listcount 0 thenthisform.list_bjk.selected(1)=.t.ls_bjbh = allt(thisform.list_bjk.listitem(1,2)ls_bjbh = +ls_bjbh+sele bjkckgo topset filter to allt(bjbh) = &ls_bjbhendif单击左边的班级列表框选中班级，右边的课程列表框就会出现该班级的所有课程。代码实现如下：for li_count = 1 to thisform.list_bjk.listcountif thisform.list_bjk.selected(li_count) thenls_bjbh = allt(thisform.list_bjk.listitem(li_count,2)ls_bjbh = +ls_bjbh+exitendifendforsele bjkckgo topset filter to allt(bjbh) =