VB数据库项目设计模块化教程 教学课件 作者 刘玉山 刘宝山 第11章 学生成绩添加模块设计.pptVIP

图11-6 Teachtask表结构 图11-7 SubjectMarks  11.3 技术要点小结 11.3.1 常用字符串函数11.3.2 子查询和多步查询 11.3.1 常用字符串函数 1.Left 函数2.Right 函数3.Mid 函数4.LTrim、RTrim与 Trim 函数 1.Left 函数  2.Right 函数  3.Mid 函数  4.LTrim、RTrim与 Trim 函数  11.3.2 子查询和多步查询  【模拟项目演练】 1.创建一教学任务分配功能模块，如图11-8所示。2.学生所修课程分必修课和选修课，必修课由管理员直接分配，同一班级的学生有相同的必修课。3.学生所修的选修课，由学生自己选择，不同的学生可以选择不同的选修课。4.任课教师需要对授课课程进行说明。 1.创建一教学任务分配功能模块，如图11-8所示。 图11-8 教学任务分配模块 1.创建一教学任务分配功能模块，如图11-8所示。 11(116-122)P7 na_Embed_8.jpg 图11-8 教学任务分配模块  2.学生所修课程分必修课和选修课，必修课由管理员直接分配，同一班级的学生有相同的必修课。 图11-9 必修课任务分配模块 2.学生所修课程分必修课和选修课，必修课由管理员直接分配，同一班级的学生有相同的必修课。 11(116-122)P7 na_Embed_9.jpg 图11-9 必修课任务分配模块  3.学生所修的选修课，由学生自己选择，不同的学生可以选择不同的选修课。 图11-10 学生选课模块 3.学生所修的选修课，由学生自己选择，不同的学生可以选择不同的选修课。 11(116-122)P7 na_Embed_10.jpg 图11-10 学生选课模块  4.任课教师需要对授课课程进行说明。 图11-11 添加和修改课程说明的功能模块 图11-12 提示对话框图11-13 选择课程窗体 图11-14 添 加或修改课程说明 4.任课教师需要对授课课程进行说明。 11(116-122)P7 na_Embed_11.jpg 4.任课教师需要对授课课程进行说明。 11(116-122)P7 na_Embed_12.jpg 图11-11 添加和修改课程说明的功能模块 图11-12 提示对话框 11(116-122)P7 na_Embed_13.jpg 图11-11 添加和修改课程说明的功能模块 图11-12 提示对话框 11(116-122)P7 na_Embed_14.jpg 图11-13 选择课程窗体 图11-14 添 加或修改课程说明  11.2.2 程序设计 End SubPrivate Sub CmdOK_Click()DataGrid1.RefreshMsgBox 成绩提交成功，请返回！, , 成绩提交End Sub Private Sub CmdOK1_Click()  sel = select *from Teachtask where 任课教师= txtName and 学年度= CmbYear and 学期= CmbSemester  RSTeachtask.Close  RSTeachtask.Open sel, DB, adOpenKeyset, adLockOptimistic  RSTeachtask.MoveFirst  Do While Not RSTeachtask.EOF  List1.AddItem RSTeachtask(班级) 班： RSTeachtask(课程名称) 将查询结果填充列表框控件  RSTeachtask.MoveNext  Loop  End Sub  Private Sub CmdOK2_Click()  sel = select 学生姓名,成绩 from SubjectMarks where 课程名称= Course and 班级= Class and 学年度= CmbYear and 学期= CmbSemester  RSSubjectMarks.Close  RSSubjectMarks.Open sel, DB, adOpenKeyset, adLockOptimistic  Set frmInputMarksF.DataGrid1.DataSource = RSSubjec