教务管理系统(毕业论文).doc

《教务管理系统(毕业论文).doc》由会员分享，可在线阅读，更多相关《教务管理系统(毕业论文).doc（69页珍藏版）》请在三一办公上搜索。

1、毕业设计 院系_ 专业_ 班级_ 姓名_日期 年 月 日摘 要20世纪以来，社会生产力迅速发展，科学技术突飞猛进，人们进行信息交流的深度与广度不断增加，信息量急剧增长，传统的信息处理与决策的手段已不能适应社会的需要，信息的重要性和信息处理问题的紧迫性空前提高了，面对着日益复杂和不断发展，变化的社会环境，特别是企业间日趋剧烈的竞争形势，一个人、一个企业要在现代社会中求生存，求发展，必须具备足够的信息和强有力的信息收集与处理手段。对于一个学校来说，大量教师信息,学生管理信息,教职工日常工资管理,学生成绩管理,以及学生评语的生成还有基本数据的维护都难于通过传统的方法进行管理；这就迫切需要利用计算机技

2、术来帮助学校管理者来处理这些日常管理.电子教务管理系统是管理信息系统的一个典型用例. 管理信息系统是一个集信息技术、经济管理理论、统计学与运筹学、数据库技术为一体的综合性系统，是一个资金技术密集型、劳动密集型、智力密集型的项目。我国拥有广阔的市场和丰富的人才资源，有几十年的技术积累和经验积累，有一定的后发优势。管理信息系统的创新工作既不能妄自菲薄，更不能夜郎自大。要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。开发电子教务管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和教务管理实践活动两者

3、之间架设桥梁。关键字:教务管理,管理信息系统,数据库,计算机管理Abstract：Since the 20th century, the rapid development of social productive forces, science and technology, exchange of information is the depth and scope of increasing the volume of information rapid growth, the traditional information processing and decision-making

4、tools have not the needs of the community, the importance of information and information processing problems urgency unprecedented increase, in the face of increasingly complex and evolving. changes in the social environment, in particular the increasingly keen competition among enterprises situatio

5、n, a person or an enterprise to survive in modern society, and development, we must have sufficient information and powerful information gathering and processing tools. For a school, a lot of information for teachers, student information management, the teaching and administrative staff daily wage m

6、anagement, student performance management, and the comments students have generated the basic data are difficult to maintain through traditional means; This urgent need for using computer technology to help school managers to deal with these day-to-day management. Academic Management System is an el

7、ectronic information management system with a typical cases. Management Information System is a collection of information technology, economic management theory, statistics and research, database integration technology for the integrated system is a capital-and technology-intensive and labor-intensi

8、ve, intellectual-intensive projects. China has a vast market and abundant human resources, technical accumulation and decades of accumulated experience, a certain advantages. Mis innovation can not sell, not self-assertive. We should seize the current favorable opportunity to network economy, Chinas

9、 information technology and to achieve a leap forward of the information industry, give better play to the information industry to stimulate economic growth. Development of electronic academic course management system approach is to be achieved by manual data management to computer management change

10、s in computer technology and academic build bridges between management practice. keyword: academic management, management information systems, databases, computer management目 录摘 要IABSTRACTII第一章 引言11.1 背景11.1.1电子教务管理系统11.2开发电子教务管理系统的目的和原则31.3开发环境介绍31.3.1 开发平台41.3.2数据库设计工具ACCESS数据库管理系统7第二章 系统设计92.1 系统

11、分析92.2 系统流程和操作方式设计11第三章 系统界面设计123.1系统界面设计以及代码分析12第四章 数据库的设计304.1数据库设计304.2 数据库概念和发展304.3系统测试与评价38总 结39致 谢40参考文献41第一章 引言对于一个学校来说，大量教师信息,学生管理信息,教职工日常工资管理,学生成绩管理,以及学生评语的生成还有基本数据的维护都难于通过传统的方法进行管理；这就迫切需要利用计算机技术来帮助学校管理者来处理这些日常管理.电子教务管理系统是管理信息系统的一个典型用例. 1.1背景1.1.1电子教务管理系统开发电子教务管理系统的过程就是要实现数据处理方式由人工管理向计算机管理

12、的转变，它在计算机技术和教务管理实践活动两者之间架设桥梁。1.2开发电子教务管理系统的目的和原则 电子教务系统只要服务于高校管理者方便管理本校教职员工,学生的基本信息如教师工资福利,学生成绩信息学籍管理等.1.3开发环境介绍1.3.1开发平台 本电子教务管理系统的开发平台为微软windows xp visual basic 6.0 以及微软的Access作为操作数据库.1.3.2数据库设计工具ACCESS数据库管理系统Microsoft Access介绍:使用Microsoft Access，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间

13、中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。 如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。 如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。 如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，MicrosoftAccess将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局

14、或所创建的版面布局，将窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。第二章 系统设计2.1 系统分析本电子教务管理系统主要由以下几大模块构成.一. 通用模块(教工信息管理,学生信息管理,评语管系统,考试管理系统,基础数据维护,窗口,操作员命令)二. .超级信史,系统助手2.2 系统流程和操作方式设计窗口程序登陆主界面教职工信息管理学生信息管理评语管理系统考试管理系统基础数据维护窗口操作员命令第三章 系统界面设计3.1系统界面设计1.登陆界面代码设计:PRIV

15、ATE SUB CMBUSER_KEYPRESS(KEYASCII AS INTEGER) IF KEYASCII = 13 THEN CMDOK_CLICKEND SUBPRIVATE SUB CMDCANCEL_CLICK() ME.HIDEEND SUBPRIVATE SUB CMDOK_CLICK() DIM TXTSQL AS STRING SET MRC = NEW ADODB.RECORDSET IF TRIM(CMBUSER.TEXT) = THEN CMBUSER.SETFOCUS ELSE TXTSQL = SELECT * FROM LOGIN WHERE 登录姓名 =

16、& CMBUSER.TEXT & MRC.OPEN TRIM$(TXTSQL), CON, ADOPENKEYSET, ADLOCKOPTIMISTIC SET EXECUTESQL = MRC IF MRC.EOF = TRUE THEN CMBUSER.SETFOCUS ELSE IF TRIM(MRC!密码) = TRIM(TXTPASSWORD.TEXT) THEN LOGINUSER = MRC!登录姓名 PERMISSION = MRC!权限 IF CHECK1.VALUE = 1 THEN R = WRITEPRIVATEPROFILESTRING(用户信息, 姓名, CMBUS

17、ER.TEXT, APP.PATH + 电子教务系统.INI) S = WRITEPRIVATEPROFILESTRING(用户信息, 密码, TXTPASSWORD.TEXT, APP.PATH + 电子教务系统.INI) IF R 1 OR S 1 THEN MSGBOX 写基本信息出错！, 48, APP.TITLE END IF ELSE R = WRITEPRIVATEPROFILESTRING(用户信息, 姓名, , APP.PATH + 电子教务系统.INI) S = WRITEPRIVATEPROFILESTRING(用户信息, 密码, , APP.PATH + 电子教务系统.

18、INI) END IF MRC.CLOSE ME.HIDE EXIT SUB ELSE TXTPASSWORD.SETFOCUS TXTPASSWORD.TEXT = END IF END IF END IF MICOUNT = MICOUNT + 1 MSGBOX 登录错误，你还有 & 3 - MICOUNT & 次机会！, VBOKONLY + VBEXCLAMATION, 警告 IF MICOUNT = 3 THEN ME.HIDE END IF EXIT SUBEND SUBPRIVATE SUB FORM_LOAD()IF LEN(GETFROMINI(用户信息, 姓名, APP.P

19、ATH + 电子教务系统.INI) = 0 OR LEN(GETFROMINI(用户信息, 密码, APP.PATH + 电子教务系统.INI) = 0 THENELSECMBUSER.TEXT = GETFROMINI(用户信息, 姓名, APP.PATH + 电子教务系统.INI)TXTPASSWORD.TEXT = GETFROMINI(用户信息, 密码, APP.PATH + 电子教务系统.INI)END IF DIM RS1 AS ADODB.RECORDSET SET RS1 = NEW ADODB.RECORDSET RS1.OPEN LOGIN, CON, ADOPENSTAT

20、IC, ADCMDTABLE ICOUNT = 0 IF RS1.BOF AND RS1.EOF THEN MSGBOX 请用管理员账号登录 EXIT SUB END IFRS1.MOVEFIRSTDO WHILE RS1.EOF = FALSE CMBUSER.ADDITEM RS1!登录姓名, I I = I + 1 RS1.MOVENEXTLOOPEND SUBPRIVATE SUB TXTPASSWORD_KEYPRESS(KEYASCII AS INTEGER) IF KEYASCII = 13 THEN CMDOK_CLICKEND SUB2.智能成绩添加界面设计界面设计:代码设计

21、:DIM KSXZ AS STRINGDIM XXKBL AS DOUBLEDIM BJ AS INTEGERDIM I AS INTEGERDIM ICOUNT AS INTEGERDIM ADDFLG AS BOOLEANDIM RSCOUNT AS INTEGERDIM RS AS ADODB.RECORDSETDIM RS1 AS ADODB.RECORDSETDIM CMDEXE AS ADODB.COMMANDPRIVATE SUB COMMAND13_CLICK()SSTAB1.TAB = 0END SUBPRIVATE SUB COMMAND5_CLICK()UNLOAD ME

22、END SUBPRIVATE SUB COMMAND7_CLICK()PASSRS.OPEN SELECT * FROM 学籍表 WHERE 班级= & TRIM(COMBO1.TEXT) & ORDER BY 学号, CON, ADOPENSTATIC, ADLOCKPESSIMISTIC, ADCMDTEXTIF RS.EOF = TRUE AND RS.BOF = TRUE THEN COMMAND1.ENABLED = FALSE COMMAND2.ENABLED = FALSE COMMAND3.ENABLED = FALSE COMMAND4.ENABLED = FALSE COM

23、MAND13.ENABLED = FALSE RS.CLOSE MSGBOX 请到学籍表中添加学生名单！, , 此班没有学生： EXIT SUBELSE FRAME1.ENABLED = FALSE FRAME2.ENABLED = FALSE COMMAND1.ENABLED = TRUE COMMAND2.ENABLED = TRUE COMMAND3.ENABLED = TRUE COMMAND4.ENABLED = TRUE COMMAND7.ENABLED = FALSE COMMAND8.ENABLED = TRUE COMMAND9.ENABLED = TRUE COMMAND1

24、3.ENABLED = TRUE MSGBOX TRIM(COMBO1.TEXT) & 登分: & CHR(13) & 考试性质： & TRIM(TEXT1.TEXT) & CHR(13) & 可以开始输入成绩了！, , APP.TITLE COMMAND13.SETFOCUSEND IFLIST1.CLEAR LIST1.ADDITEM 学号 & - & 姓名IF RS.BOF AND RS.EOF THENELSE RS.MOVEFIRST DO WHILE RS.EOF = FALSE IF LEN(RS!学号) = 1 THEN LIST1.ADDITEM 0 & RS!学号 & -

25、& RS!姓名 ELSE LIST1.ADDITEM & RS!学号 & - & RS!姓名 END IF RS.MOVENEXT LOOP RS.MOVEFIRSTEND IF LIST1.LISTINDEX = 1DISPLAYEND SUBPRIVATE SUB COMMAND8_CLICK()RS.CLOSELIST1.CLEARFRAME1.ENABLED = TRUEFRAME2.ENABLED = TRUECOMMAND1.ENABLED = FALSECOMMAND2.ENABLED = FALSECOMMAND3.ENABLED = FALSECOMMAND4.ENABLED

26、 = FALSECOMMAND7.ENABLED = TRUECOMMAND8.ENABLED = FALSECOMMAND9.ENABLED = FALSECOMMAND13.ENABLED = FALSEFOR I = 0 TO 8 TXTCJ(I).ENABLED = TRUE TXTCJ(I).TEXT = NEXT IEND SUBPRIVATE SUB COMMAND9_CLICK()ON ERROR GOTO ERR FOR I = 0 TO 8 IF TRIM(TXTCJ(I).TEXT) TEXT3.TEXT * 1 THEN MSGBOX 成绩大于预定值！, , 成绩第 &

27、 I + 1 & 项错误 EXIT SUB END IF NEXT ITXTCJ(9).TEXT = TXTCJ(0) * 1 + TXTCJ(1) * 1 + TXTCJ(2) * 1 + TXTCJ(3) * 1 + TXTCJ(4) * 1 + TXTCJ(5) * 1 * (TEXT2.TEXT * 1) + TXTCJ(6) * 1 * (TEXT2.TEXT * 1) + TXTCJ(7) * 1 * (TEXT2.TEXT * 1) + TXTCJ(8) * 1 * (TEXT2.TEXT * 1)IF ADDFLG = FALSE THENRS1.OPEN SELECT 语文,

28、数学,英语,物理,化学,政治,历史,地理,生物,总分 FROM 成绩表 WHERE 考试号= & TRIM(KSH.CAPTION) & AND 考试性质= & TEXT1.TEXT & , CON, ADOPENSTATIC, ADLOCKPESSIMISTIC, ADCMDTEXT RS1!语文 = TRIM(TXTCJ(0).TEXT) RS1!数学 = TRIM(TXTCJ(1).TEXT) RS1!英语 = TRIM(TXTCJ(2).TEXT) RS1!物理 = TRIM(TXTCJ(3).TEXT) RS1!化学 = TRIM(TXTCJ(4).TEXT) RS1!政治 = TR

29、IM(TXTCJ(5).TEXT) * 1 * (TEXT2.TEXT * 1) RS1!历史 = TRIM(TXTCJ(6).TEXT) * 1 * (TEXT2.TEXT * 1) RS1!地理 = TRIM(TXTCJ(7).TEXT) * 1 * (TEXT2.TEXT * 1) RS1!生物 = TRIM(TXTCJ(8).TEXT) * 1 * (TEXT2.TEXT * 1) RS1!总分 = TRIM(TXTCJ(9).TEXT) RS1.UPDATEBATCH ADAFFECTALLCHAPTERS SBAR1.PANELS.ITEM(1) = 修改成功保存！ RS1.CLO

30、SEELSE CMDEXE.ACTIVECONNECTION = CON CMDEXE.COMMANDTEXT = INSERT INTO 成绩表(考试号,语文,数学,英语,物理,化学,政治,历史,地理,生物,总分,考试性质) VALUES & ( & KSH.CAPTION & , & TXTCJ(0).TEXT & , & TXTCJ(1).TEXT & , & TXTCJ(2).TEXT & , & TXTCJ(3).TEXT & , & TXTCJ(4).TEXT & , & TXTCJ(5).TEXT * 1 * (TEXT2.TEXT * 1) & , & TXTCJ(6).TEX

31、T * 1 * (TEXT2.TEXT * 1) & , & TXTCJ(7).TEXT * 1 * (TEXT2.TEXT * 1) & , & TXTCJ(8).TEXT * 1 * (TEXT2.TEXT * 1) & , & TXTCJ(9).TEXT & , & TEXT1.TEXT & ) CMDEXE.EXECUTE SBAR1.PANELS.ITEM(1) = 添加成功保存！ ICOUNT = ICOUNT + 1END IFLABEL3.CAPTION = 共添加 & ICOUNT & 条记录RS.MOVENEXTIF LIST1.LISTINDEX + 1 0 THEN C

32、OMBO1.LISTINDEX = 0 END IFEND SUBPRIVATE SUB COMMAND1_CLICK()RS.MOVEFIRSTLIST1.LISTINDEX = 1DISPLAYEND SUBPRIVATE SUB COMMAND2_CLICK()WITH RS .MOVEPREVIOUS IF .BOF THEN .MOVEFIRST ELSE LIST1.LISTINDEX = LIST1.LISTINDEX - 1 END IFEND WITH DISPLAYEND SUBPRIVATE SUB COMMAND3_CLICK()WITH RS .MOVENEXT IF

33、 RS.EOF THEN RS.MOVELAST ELSE LIST1.LISTINDEX = LIST1.LISTINDEX + 1 END IFEND WITH DISPLAYEND SUBPRIVATE SUB COMMAND4_CLICK() RS.MOVELAST LIST1.LISTINDEX = LIST1.LISTCOUNT - 1 DISPLAYEND SUBPRIVATE SUB LIST1_CLICK()IF LIST1.LISTINDEX -1 AND COMBO3.LISTINDEX -1 THEN DIM TXTSQL AS STRING TXTSQL = SELECT B.班级,B.学号,B.姓名,A.* FROM 成绩表 AS A INNER JOIN 学籍表 AS B ON A.考试号 = B.考试号 WHERE 姓名 = & COMLST(INDEX).TEXT & AND 考试性质 = & COMBO3.TEXT & ADODC1.CONNECTIONSTRING = CON.CONNECTIONSTRING ADODC1.COMMANDTYPE = ADCMDTEXT ADODC1.RECORDSOURCE = TXTSQL