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

11.2.3 数据库设计 11(116-122)P7 na_Embed_7.jpg 图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 程序设计 sel = select 学生姓名,成绩 from SubjectMarks where 课程名称= Course and 班级= Class and 学年度= CmbYear and 学期= CmbSemester RSSubjectMarks.CloseRSSubjectMarks.Open sel, DB, adOpenKeyset, adLockOptimisticSet frmInputMarksF.DataGrid1.DataSource = RSSubjectMarksfrmInputMarksF.DataGrid1.Columns(0).Width = 1300frmInputMarksF.DataGrid1.Columns(1).Width = 1300frmInputMarksF.ShowUnload MeEnd SubPrivate Sub List1_Click()Class = Left(List1.Text, InStr(List1.Text, ：) - 2) 从List中，取得班级名称Course = Mid(List1.Text, 11, Len(List1.Text)) 取得课程名称 11.2.2 程序设计 End SubPrivate Sub CmdOK_Click()DataGrid1.RefreshMsgBox 成绩提交成功，请返回！, , 成绩提交End Sub Private Sub CmdOK1_Click()  sel = select *from Teachtask wh