VB教务管理系统vb+access

摘  要

20世纪以来，社会生产力迅速发展，科学技术突飞猛进，人们进行信息交流的深度与广度不断增加，信息量急剧增长，传统的信息处理与决策的手段已不能适应社会的需要，信息的重要性和信息处理问题的紧迫性空前提高了，面对着日益复杂和不断发展，变化的社会环境，特别是企业间日趋剧烈的竞争形势，一个人、一个企业要在现代社会中求生存，求发展，必须具备足够的信息和强有力的信息收集与处理手段。
对于一个学校来说，大量教师信息,学生管理信息,教职工日常工资管理,学生成绩管理,以及学生评语的生成还有基本数据的维护都难于通过传统的方法进行管理；这就迫切需要利用计算机技术来帮助学校管理者来处理这些日常管理.电子教务管理系统是管理信息系统的一个典型用例.
管理信息系统是一个集信息技术、经济管理理论、统计学与运筹学、数据库技术为一体的综合性系统，是一个资金技术密集型、劳动密集型、智力密集型的项目。我国拥有广阔的市场和丰富的人才资源，有几十年的技术积累和经验积累，有一定的后发优势。管理信息系统的创新工作既不能妄自菲薄，更不能夜郎自大。要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。 本文来自think58 [资料来源：THINK58.com]
开发电子教务管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和教务管理实践活动两者之间架设桥梁。 本文来自think58

关键字:教务管理,管理信息系统,数据库,计算机管理 copyright think58 [来源：http://think58.com]

目   录

内容来自think58 [来源：http://www.think58.com]

[版权所有：http://think58.com]

摘    要 I
ABSTRACT II
第一章  引言 1
1.1 背景 1
1.1.1电子教务管理系统 1
1.2开发电子教务管理系统的目的和原则 3
1.3开发环境介绍 3
1.3.1 开发平台 4
1.3.2数据库设计工具——ACCESS数据库管理系统 7
第二章  系统设计 9
2.1 系统分析 9
2.2 系统流程和操作方式设计 11
第三章  系统界面设计 12
3.1系统界面设计以及代码分析 12
第四章 数据库的设计 30
4.1数据库设计 30
4.2 数据库概念和发展 30
4.3系统测试与评价 38
总   结 39
致  谢 40
参考文献 41 copyright think58 [资料来源：www.THINK58.com]

第一章 引言 think58 [资料来源：www.THINK58.com]

对于一个学校来说，大量教师信息,学生管理信息,教职工日常工资管理,学生成绩管理,以及学生评语的生成还有基本数据的维护都难于通过传统的方法进行管理；这就迫切需要利用计算机技术来帮助学校管理者来处理这些日常管理.电子教务管理系统是管理信息系统的一个典型用例. [版权所有：http://think58.com]

1.1背景
1.1.1电子教务管理系统 本文来自think58

开发电子教务管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和教务管理实践活动两者之间架设桥梁。 本文来自think58

1.2开发电子教务管理系统的目的和原则 think58.com [来源：http://www.think58.com]

  电子教务系统只要服务于高校管理者方便管理本校教职员工,学生的基本信息如教师工资福利,学生成绩信息学籍管理等.

本文来自think58 [来源：http://think58.com]

[来源：http://think58.com]

1.3开发环境介绍
1.3.1开发平台
  本电子教务管理系统的开发平台为微软windows xp visual basic 6.0 以及微软的Access作为操作数据库. [版权所有：http://think58.com]

1.3.2数据库设计工具——ACCESS数据库管理系统
Microsoft Access介绍:
使用Microsoft Access，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。
   如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。
   如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。
   如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。
   如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。 本文来自think58 [资料来源：www.THINK58.com]
第二章 系统设计 think58.com [来源：http://www.think58.com]

2.1 系统分析
本电子教务管理系统主要由以下几大模块构成.
一. 通用模块(教工信息管理,学生信息管理,评语管系统,考试管理系统,基础数据维护,窗口,操作员命令)
二. .超级信史,系统助手 think58

[资料来源：http://www.THINK58.com]

2.2 系统流程和操作方式设计
窗口 [资料来源：http://THINK58.com]

第三章 系统界面设计
3.1系统界面设计
1.登陆界面
 
代码设计: copyright think58

[资料来源：http://www.THINK58.com]

PRIVATE SUB CMBUSER_KEYPRESS(KEYASCII AS INTEGER)
    IF KEYASCII = 13 THEN CMDOK_CLICK
END SUB 本文来自think58 [来源：http://think58.com]

PRIVATE SUB CMDCANCEL_CLICK()
   ME.HIDE
END SUB

PRIVATE 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 登录姓名 = '" & 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!权限

本文来自think58 [资料来源：http://www.THINK58.com]

                IF CHECK1.VALUE = 1 THEN
                    R = WRITEPRIVATEPROFILESTRING("用户信息", "姓名", CMBUSER.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 内容来自think58

[资料来源：http://think58.com]

                    R = WRITEPRIVATEPROFILESTRING("用户信息", "姓名", "", APP.PATH + "\电子教务系统.INI")
                    S = WRITEPRIVATEPROFILESTRING("用户信息", "密码", "", APP.PATH + "\电子教务系统.INI")
                END IF
                MRC.CLOSE
                ME.HIDE
                EXIT SUB
            ELSE
                TXTPASSWORD.SETFOCUS
                TXTPASSWORD.TEXT = ""

本文来自think58 [资料来源：www.THINK58.com]

            END IF
        END IF
    END IF
   
    MICOUNT = MICOUNT + 1
    MSGBOX "登录错误，你还有" & 3 - MICOUNT & "次机会！", VBOKONLY + VBEXCLAMATION, "警告"
    IF MICOUNT = 3 THEN
        ME.HIDE
    END IF
    EXIT SUB
END SUB think58.com

[版权所有：http://think58.com]

PRIVATE SUB FORM_LOAD()
IF LEN(GETFROMINI("用户信息", "姓名", APP.PATH + "\电子教务系统.INI")) = 0 OR LEN(GETFROMINI("用户信息", "密码", APP.PATH + "\电子教务系统.INI")) = 0 THEN
ELSE
CMBUSER.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, ADOPENSTATIC, ADCMDTABLE
    ICOUNT = 0
    IF RS1.BOF AND RS1.EOF THEN
    MSGBOX "请用管理员账号登录"
    EXIT SUB
    END IF
RS1.MOVEFIRST
DO WHILE RS1.EOF = FALSE
  CMBUSER.ADDITEM RS1!登录姓名, I
  I = I + 1
  RS1.MOVENEXT
LOOP

内容来自think58

END SUB

think58好，好think58

[资料来源：www.THINK58.com]

PRIVATE SUB TXTPASSWORD_KEYPRESS(KEYASCII AS INTEGER)
    IF KEYASCII = 13 THEN CMDOK_CLICK
END SUB [来源：http://think58.com]

2.智能成绩添加界面设计
界面设计:
 
代码设计:
DIM KSXZ AS STRING
DIM XXKBL AS DOUBLE
DIM BJ AS INTEGER
DIM I AS INTEGER
DIM ICOUNT AS INTEGER
DIM ADDFLG AS BOOLEAN
DIM RSCOUNT AS INTEGER

DIM RS AS ADODB.RECORDSET
DIM RS1 AS ADODB.RECORDSET
DIM CMDEXE AS ADODB.COMMAND [来源：http://think58.com]

PRIVATE SUB COMMAND13_CLICK()
SSTAB1.TAB = 0
END SUB [版权所有：http://think58.com]

PRIVATE SUB COMMAND5_CLICK()
UNLOAD ME
END SUB 本文来自think58 [资料来源：www.THINK58.com]

PRIVATE SUB COMMAND7_CLICK()
PASS

copyright think58

[资料来源：THINK58.com]

[资料来源：http://THINK58.com]

RS.OPEN "SELECT * FROM 学籍表 WHERE 班级='" & TRIM(COMBO1.TEXT) & "' ORDER BY 学号", CON, ADOPENSTATIC, ADLOCKPESSIMISTIC, ADCMDTEXT
IF RS.EOF = TRUE AND RS.BOF = TRUE THEN
    COMMAND1.ENABLED = FALSE
    COMMAND2.ENABLED = FALSE
    COMMAND3.ENABLED = FALSE
    COMMAND4.ENABLED = FALSE
    COMMAND13.ENABLED = FALSE
    RS.CLOSE
    MSGBOX "请到学籍表中添加学生名单！", , "此班没有学生："
    EXIT SUB
ELSE
   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
    COMMAND13.ENABLED = TRUE
    MSGBOX TRIM(COMBO1.TEXT) & " 登分:" & CHR(13) & "考试性质：" & TRIM(TEXT1.TEXT) & CHR(13) & "可以开始输入成绩了！", , APP.TITLE copyright think58 [资料来源：http://think58.com]

    COMMAND13.SETFOCUS
END IF 内容来自think58

[资料来源：http://THINK58.com]

1陈明 . 软件工程学教程 .科技出版社，2002
2 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，2000
3 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003
4 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002
5 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302