学生成绩管理系统毕业设计论文

学生成绩管理系统毕业设计论文内容摘要：

End Sub Private Sub bkxshmddy_Click() End Sub Private Sub chjlr_Click() End Sub Private Sub gyrj_Click() End Sub Private Sub kchxxlr_Click() End Sub Private Sub MDIForm_Load() End Sub Private Sub shjbf_Click() End Sub Private Sub tch_Click() 12 End End Sub Private Sub xshxxlr_Click() End Sub Private Sub yhqx_Click() End Sub 在这里管理员可以进行添加用户、修改用户和删除用户等操作。 如图 43 所示 图 43 用户权限设置 用户权限设置代码如下： Private Sub Command1_Click() = False = False = True = True End Sub Private Sub Command2_Click() = False = False = True = True End Sub Private Sub Command3_Click() 13 = True = True = False = False End Sub Private Sub Command4_Click() = True = True = False = False End Sub Private Sub Command5_Click() answer = MsgBox(确定删除数据吗。 , 305, 核对框 ) If answer = 1 Then End If End Sub Private Sub Form_Load() = amp。 \DATABASE\ End Sub 模块设计 包括对班级信息 、 学生基本信息 、 课程信息 、学生 成绩信息 、学生 补考信息的录入、修改和删除 1. 班级信息录入 用户在班级输入框中输入要添加的班级信息，点击添加按钮，如果班级信息出现在右侧的表格中就说明信息添加成功。 用户也可以对已经添加的信息进行修改和删除，具体操作是选中要修改或者删除的班级信息点击修改或者删除按钮执行相应的操作，如果已经添加的班级信息很多，你可以通过模糊查找来帮你找出比较匹配的班级信息并将查询结果显示在右侧的表格中，便于用户进行修改或删除。 如图 44 所示 14 图 44 班级信息 班级信息录入的代码： Private Sub Command1_Click() = False = False = True = True End Sub Private Sub Command2_Click() = False = False = True = True End Sub Private Sub Command3_Click() = True = True = False = False End Sub Private Sub Command4_Click() = True = True = False = False 15 End Sub Private Sub Command5_Click() answer = MsgBox(确定删除数据吗。 , 305, 核对框 ) If answer = 1 Then End If End Sub Private Sub Command6_Click() Dim bm bm = 班级 Like amp。 39。 * amp。 amp。 *39。 If Then MsgBox (没有符合条件的记录 ) = bm End If End Sub Private Sub Form_Load() = amp。 \DATABASE\ End Sub 2. 学生基本 信息录入 在此输入学生的基本信息 包含班级学号、姓名、性别、出生日期、文化程度、籍贯、民族、入学日期、身份证号等，主要是对学生信息的登记。 管理员还可以在右侧表格中对已经选中的学生信息进行修改或者删除，如果学生信息比较多，而你要进行操作的学生的信息没有显示出来，你可以通过查找进行快速定位，查找分为按学号查找和按姓名查找。 如图 45所示： 图 45 学生信息 16 学生信息模块的代码： Private Sub Command1_Click() Dim bm bm = 学号 Like amp。 39。 * amp。 amp。 *39。 If Then MsgBox (没有符合条件的记录 ) = bm End If End Sub Private Sub Command2_Click() Dim bm bm = 姓名 Like amp。 39。 * amp。 amp。 *39。 If Then MsgBox (没有符合条件的记录 ) = bm End If End Sub Private Sub Command3_Click() Dim bm bm = 姓名 Like amp。 39。 * amp。 amp。 *39。 If Then MsgBox (没有符合条件的记录 ) = bm End If End Sub Private Sub Command4_Click() = False = False = True = True End Sub Private Sub Command5_Click() = False = False = True 17 = True End Sub Private Sub Command6_Click() = True = True = False = False End Sub Private Sub Command7_Click() = True = True = False = False End Sub Private Sub Command8_Click() answer = MsgBox(确定删除数据吗。 , 305, 核对框 ) If answer = 1 Then End If End Sub Private Sub DBGrid1_Click() End Sub Private Sub Form_Load() = amp。 \DATABASE\ = amp。 \DATABASE\ End Sub . 主要是对学生所学课程信息进行添加、修改和删除。 管理员在课程名输入框中输入要添加的课程名称，点击添加按钮，如果课程信息出现在右侧的表格中，就说明信息添加成功。 在这里也可以选中右侧表格中的信息对课程信息进行修改或者删除，管理员也可以通过利用查找功能快速定位你想要操作的课程信息，便于管理。 如 图 46 所示： 18 图 46 课程设置 管理员在此窗口输入要输入学生所属班级，学生所学的课程和学期后，点击“确定”按钮，在下面的表格中就会列出班级所有学生的学号和姓名，如果某位学生这门学科已经输入成绩则显示该学生的成绩情况。 选中要进行成绩录入的学生，在窗口下面就会显示选中学生的“学号”和“姓名”，在后面的输入框中输入相应的信息，点击“确定并输入下一成绩”按钮，该学生的成绩就添加成功了。 如果点击“对已输入成绩进行删除”按钮，则将已经输入的成绩信息删除。 如图 47 所示 图 47 成绩信息录入 成绩录入代码如下： Private Sub Command1_Click() MsgBox (注意，学期一定要输入正确 ) SQLStr = SELECT 学号 ,姓名 FROM 学生 SQLStr = SQLStr + WHERE 班级 like amp。 39。 amp。 amp。 39。 SQLStr = SQLSt。