班级管理系统(正式版)

1.2 研究目的
班级管理系统用计算机管理班级信息的一种计算机应用技术的创新，在计算机还未普及之前 班级管理都是由教师以及班干部来承担的方式来操作的。现在一般的学校都采用了信息化管理的方 式即采用计算机作为工具的实用的计算机班级信息管理程序来帮助班主任进行更有效的班级管理。 我们的目标就是设计一个功能完善、操作方便的教师评语管理系统软件。
评语输入以及结束代码：
4
Option Explicit Dim MyWord As Object Dim NewDoc As Object Private Declare Function ShellExecuteForExplore Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, lpParameters As Any, lpDirectory As Any, ByVal nShowCmd As Long) As Long
参与了此课题教师评语部分的研究与开发，包括分析、设计、编码、测试等等。
2 系统设计思路及分析 2.1 设计理念 2.1.1 系统设计目标
2
通过使用班级管理系统，达到更方便、快捷地对班级进行有效地管理的目的，从而减轻教 师的负担，争取多点时间给学生复习；方便学生对自己在班里的情况、学习成绩以及教师对自己评 语的查询。
2.2.2 数据库概念结构设计
根据上面的分析规划出的实体有：学生实体、教师实体、班级实体。
2.2.3 数据库逻辑结构设计
在完成数据的概念模型设计 E-R 图之后，即可将其转化为 Visual Basic 数据库系统支持的 实际数据模型，便可形成数据库中的表格与表的关系 。
3 主要功能模块设计 3.1 主界面代码
2.2 数据库设计
数据库设计的好坏直接影响了项目开发的复杂程度和系统的执行效率，也好似减少在开发 过程中出现反复的关键环节。在此阶段中，根据应用背景和需求分析的结果，确定数据库存放哪些 用户数据、数据如何存放、数据的关联、数据的安全性和一致性规则等。3Leabharlann 2.2.1 数据表结构分析
需求分析是整个设计工程的基础，是设计数据库和应用程序的起点。重点是调查、收集和 分析用户在数据管理中的信息要求、处理要求、安全性要求与完整性要求，为进一步设计打下基础， 则需要仔细调查评语管理系统，得到其数据表结构如图 2-2-1 所示。 字段 姓名 学号 数据类型 文本 数字 图 2-2-1 字段大小 8 12
1
摘要:这是一个为方便管理班级各学生的系统——班级管理系统。采用的开发工具是 Micrisoft Visual Basic 。系统能够添加、查询、删各教师对学生的评语。班主任以及各科任老师可以登录本 系统，对本系统的学生及评语进行查询、添加、编辑和删除。尤其方便新任教师同过以往教师的评 语达到对班级学生的初步了解。 支持运行的环境：Microsoft Window98/2000/XP 关键词:查询、添加、编辑、删除、Visual Basic
Private Sub cmdback_Click() Save_Remark End Sub
Private Sub cmddel_Click() If MsgBox("真的要删除吗？", vbOKCancel, "删除提示！") = vbOK Then Dim i As Integer If RSStudent.State = 1 Then RSStudent.Close: Set RSStudent = Nothing For i = LvwStudents.ListItems.Count To 1 Step -1 If LvwStudents.ListItems(i).Selected = True Then RSStudent.Open "delete from [ 学 生 信 息 ] where 学 号 ='" &
5
Dim Jump As Integer Dim IsEdit As Boolean
Private Sub cmdadd_Click() Dim listitem As listitem If RSStudent.State = 1 Then RSStudent.Close: Set RSStudent = Nothing RSStudent.Open "select * from [学生信息] where 学号='" & txtname.Text & "'", AdoCnn, adOpenDynamic, adLockOptimistic If Not RSStudent.EOF Then MsgBox "学号" & txtname.Text & "已经存在,请另换学号.", vbCritical, "提示!": Exit Sub RSStudent.AddNew RSStudent("姓名").Value = Trim(txtno.Text) RSStudent("学号").Value = Trim(txtname.Text) Set listitem = LvwStudents.ListItems.Add(, , Trim(txtno.Text)) listitem.SubItems(1) = Trim(txtname.Text) RSStudent.Update End Sub
第二章 系统设计思路及分析
2.1 设计理念 2.1.1 系统设计目标………………………………………………………(03) 2.1.2 系统设计思想………………………………………………………(03) 2.1.3 系统功能分析………………………………………………………(03) 2.1.4 系统模块设计………………………………………………………(03) 2.2 数据库分析 2.2.1 数据库表结构分析…………………………………………………(04) 2.2.2 数据库概念结构分析………………………………………………(04) 2.2.3 数据库逻辑结构分析………………………………………………(04)
广西工商职业技术学院 毕业论文(设计)
题目：班级管理系统
姓名： 系别： 班级： 指导教师：
学号： 专业：
2007 年 5 月 30 日
目录 第一章 引言
1.1 研究意义…………………………………………………………………(02) 1.2 研究目的…………………………………………………………………(02) 1.3 研究内容…………………………………………………………………(02) 1.4 作者的主要贡献…………………………………………………………(02)
1 引言 1.1 研究意义
跨入 21 世纪，人类社会正在步入信息和知识经济时代，以计算机管理事务为主的管理模式也 将逐渐取代手工管理。我们这个时代是靠科技知识为第一生产力的时代，那种落后的管理模式早已 告别。该系统就是为了实现班级现代化管理机制而设计，由管理员登录对班级所有事物进行管理和 策划，这样就能减轻老师们，尤其是班主任的负担。
Private Sub cmdsaveback_Click() Save_Remark Unload Me End Sub
Private Sub DataGrid1_BeforeColEdit(ByVal ColIndex As Integer, ByVal KeyAscii As Integer, Cancel As Integer) Selstr = DataGrid1.Text If InStr(1, Selstr, "**************") Then MsgBox "这是分隔符，你不能编辑!", vbCritical, "提示！" Exit Sub End If Selstr = "" End Sub
7
Private Sub DataGrid1_DblClick() If IsEdit = True Then Exit Sub If InStr(1, Selstr, "**************") Then Exit Sub If Trim(txtremark.Text) = "" Then txtremark.Text = " txtremark.Text = txtremark.Text & Selstr If Jump > 8 Then Jump = 0 If MsgBox("该评语保存为: " & LvwStudents.SelectedItem.Text & "； LvwStudents.SelectedItem.SubItems(1), vbOKCancel, "评语保存") = vbOK Then Save_Remark End If LvwStudents.ListItems(LvwStudents.SelectedItem.Index).Selected = False If LvwStudents.SelectedItem.Index = LvwStudents.ListItems.Count Then MsgBox "已经是最后一位了!", vbExclamation, "评语保存" LvwStudents.ListItems(LvwStudents.SelectedItem.Index).Selected = True Exit Sub End If LvwStudents.ListItems(LvwStudents.SelectedItem.Index + 1).Selected = True txtremark.Text = " " 学号:" & "