VB数据库项目设计模块化教程 教学配套课件 刘玉山 刘宝山 第10章 教师任务书查询功能模块设计.pdfVIP

第10章 教师任务书查询功能模块设计 主编 刘玉山 第10章 教师任务书查询功能模块设计 第10章 教师任务书查询功能模块设计 (1)教师任务书查询。 (2)教师任务书数据报表显示和打印。 (1)数据库连接。 (2)动态数据集。 (3)查询。 (4)数据绑定。 (1)文本框、命令按钮、组合框控件的应用。 (2)数据环境设计器的应用。 (3)报表设计器的应用。 (4)弹出对话框。 10.1 项目需求分析 10.2 项目设计 第10章 教师任务书查询功能模块设计 10.3 技术要点小结 【模拟项目演练】 (1)教师任务书查询。 (2)教师任务书数据报表显示和打印。 (1)数据库连接。 (2)动态数据集。 (3)查询。 (4)数据绑定。 (1)文本框、命令按钮、组合框控件的应用。 (2)数据环境设计器的应用。 (3)报表设计器的应用。 (4)弹出对话框。 图10-1 教师任务书查询窗体 (4)弹出对话框。 10(101-115)P15 lj_Embed_1.jpg 图10-1 教师任务书查询窗体 10.1 项目需求分析 10.1.1 项目需求分析的理解 10.1.2 项目需求分析 10.1.3 项目数据字典 10.1.1 项目需求分析的理解 图10-2 教师任务书查询报表 10.1.1 项目需求分析的理解 10(101-115)P15 lj_Embed_2.jpg 图10-2 教师任务书查询报表 10.1.2 项目需求分析 10.1.3 项目数据字典 10.2 项目设计 10.2.1 设计思想 10.2.2 程序设计 10.2.3 数据库设计 10.2.1 设计思想 图10-3 教师任务查询流程图 10.2.1 设计思想 10(101-115)P15 lj_Embed_3.jpg 图10-3 教师任务查询流程图 10.2.2 程序设计 Option Explicit Public sel As String Public DB As ADODB.Connection Public RSTeachtask As ADODB.Recordset Public RSTempTeachtask As ADODB.Recordset Public Sub DataBase() Set DB = New ADODB.Connection DB.Open Provider = microsoft.jet.oledb.3.51;data source= App.Path \EMS. mdb Set RSTeachtask = New ADODB.Recordset RSTeachtask.Open select *from Teachtask, DB, adOpenKeyset, adLockOptimisti c Set RSTempTeachtask = New ADODB.Recordset 10.2.2 程序设计 RSTempTeachtask.Open select *from TempTeachtask , DB, adOpenKeyset, adL ockOptimistic End Sub Private Sub cmdOK_Click() Dim sel As String sel = select *from Teachtask where 任课教师= txtName AND 学年度= CmbYear AND 学期= CmbSemester RSTeachtask.Close RSTeachtask.Open sel, DB, adOpenKeyset, adLockOp