教务管理系统论文(doc63)-其他论文(编辑修改稿)

教务管理系统论文(doc63)-其他论文(编辑修改稿)内容摘要：

级 档案浏览 添加用户 复新登录 班级浏览 班级查询 档案添加 档案查询 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 16 页 共 49 页 3． 2数据库设计 数据库采用了 Microsoft推 出的 Access数据库，这是微软集成到 Office中的一个桌面数 据库，能够快速方便的和 Office的其他套件综合使用。 由于 Access具有显著的简易性和有效性，大量的桌面数据库系统都采用 Access作为后台数据库。 使用 Access的好处还在于，如果你的系统扩展到 Client/Server模式的时候，可以使用 Microsoft的数据库服务器软件 SQL Server，此时，程序只需要简单的修改一下链接（ ADO 的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。 3． 2． 1 本系统中所涉及到的主要 实体共有九个数据表： allkecheng表： {课程名称，教材 } cj表： {学号，学期，类型，课程名称，分数 } class表： {年级，班级，教室，年制，专业，班主任，备注 } classkecheng表： {年级，专业，年制，学期，课程名称 } jf表： {学号，学期，交费，欠费，日期，操作员 } kaoshileixing表： {类型 } use表： {username,password,admin,readonly,qx1,qx2,qx3,qx4} xj表： {学号，姓名，性别，班级，出生年月，家庭住址，邮政编码，联系电 话，入学时间，备注 } suefei表： {年级，专业，年制，学期，学费 } 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 17 页 共 49 页 3． 2． 2 各表的物理结构如下： allkecheng表： 字段名称 类型 宽度 小数位 课程名称 文本 20 教材 文本 30 Cj表： 字段名称 类型 宽度 小数位 学号 文本 10 学期 文本 50 类型 文本 16 课程名称 文本 20 分数 单精度型数字 自动 Class表： 字段名称 类型 宽度 小数位 年级 文本 16 班级 文本 20 教室 文本 5 年制 文本 8 专业 文本 16 班主任 文本 8 备注 备注 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 18 页 共 49 页 Classkecheng表： 字段名称 类型 宽度 小数位 年级 文本 16 专业 文本 12 年制 文本 8 学期 文本 50 课程名称 文本 20 Jf表： 字段名称 类型 宽度 小数位 学号 文本 5 学期 文本 50 交费 货币 自动 欠费 货币 自动 日期 日期 /时间 操作员 文本 10 Kaosileixing表： 字段名称 类型 宽度 小数位 类型 文本 10 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 19 页 共 49 页 Use表： 字段名称 类型 宽度 小数位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 xj表： 字段名称 类型 宽度 小数位 学号 文本 9 姓名 文本 8 性别 文本 2 班级 文本 10 出生年月 日期 /时间 家庭住址 文本 30 邮政编码 数字（长整型） 联系电话 数字（长整型） 入学时间 日期 /时间 备注 备注 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 20 页 共 49 页 xuefei表： 字段名称 类型 宽度 小数位 年级 文本 16 专业 文本 50 年制 文本 20 学期 文本 40 学费 货币 自动 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 21 页 共 49 页 本部分主要内容为本系统的运行界面以及主要界面的源代码。 4． 1系统登陆界面： 本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在 USE表中，本系统根据不同的用户而设置了不同的权限，可以用 909。 909为用户名和密码来登陆本系统。 Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用户名错误。 , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If username = (0) txtsql2 = select username from use where password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql2) If = True Then 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 22 页 共 49 页 MsgBox 密码错误。 , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If txtsql = select username from use where username=39。 amp。 Trim() amp。 39。 and password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用户名称和密码不匹配。 , vbExclamation + vbOKOnly, 警告 Exit Sub End If = Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 23 页 共 49 页 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 4． 2系统主界面： 本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有 6 个功能菜单和19 个子菜单（功能模块），从而实现了本系统从 班级管理、档案管理、缴费管理、课程管理、成绩管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 24 页 共 49 页 Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Dim find1 As Integer Dim liulan1 As Integer Private Sub add_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If modi = False (0) End Sub Private Sub cjadd_Click() fenshumodi = False qxstr = Executeqx(4) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资 源共享 ) 第 25 页 共 49 页 0 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能。