课题组制作3VisualBasic60支持的数据存取模式-山东铝业职业学院.PPT

学习情境三 程序编码与调试 学习情境描述 用面向对象程序设计思想完成学生学籍系统程序编码与调试 1）实现学籍管理模块，包括对数据库中学籍信息的添加、修改、注销、更新操作。 2）实现班级管理模块，包括对数据库中班级信息的添加、修改、注销、更新操作。 学籍管理模块添加功能 学籍管理模块查询功能 学籍管理模块修改功能 学籍管理模块注销功能 所需知识 VB编程的基本知识 VB对数据库的操作 编程的基本方法和思路 重点 Visual Basic 控制流实现； 使用ADO对象访问数据库的方法； ADO对象模型，对象的常用属性、事件及方法； 应用系统中信息查询、添加、修改、删除等功能编码实现。 难点 使用ADO对象访问数据库的方法； 应用系统中信息查询、添加、修改、删除等功能编码实现。 能力目标 培养学生系统开发、程序调试能力，培养良好的编码风格 培养学生英语阅读能力和技术创新能力 培养学生自学能力和动手实践能力 学籍管理模块添加功能 1)新建工程，工程名：student.vbp 2)添加窗体,名称为:frmStudent 3)添加各种控件,如下图所示 4）Form_Activate代码 Private Sub Form_Activate() Set conn = New ADODB.Connection conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \xs.mdb conn.Open Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open xsXJ, conn, 1, 1 Set rsXJ = New ADODB.Recordset 设置链接学生学籍 rsXJ.CursorLocation = adUseClient rsXJ.Open xsXJ, conn, 2, 2 Set DataGrid1.DataSource = rsXJ DataGrid1.Refresh Set DataGrid2.DataSource = rsXJ DataGrid2.Refresh Set DataGrid3.DataSource = rsXJ DataGrid3.Refresh Set DataGrid5.DataSource = rsXJ DataGrid5.Refresh Set rsZZ = New ADODB.Recordset rsZZ.CursorLocation = adUseClient rsZZ.Open xtZZ, conn, 2, 2 Set DataGrid4.DataSource = rsZZ DataGrid4.Refresh 4）Form_Activate代码2 Set rsZY = New ADODB.Recordset 设置链接的专业 rsZY.CursorLocation = adUseClient rsZY.Open xsZY, conn, 1, 1 Set txtZhuanye.RowSource = rsZY txtZhuanye.ListField = 专业名称 Set txtXJzhuanye.RowSource = rsZY txtXJzhuanye.ListField = 专业名称 Set DataCombo2.RowSource = rsZY DataCombo2.ListField = 专业名称 Set txtPrintZhuanye.RowSource = rsZY txtPrintZhuanye.ListField = 专业名称 5)实现添加按钮的代码 Private Sub cmdADD_Click() inputXS_info 写入学生信息到库 End Sub 过程inputXS_info简单实现 Sub inputXS_info() ‘添加学生学籍到数据库 Dim txtSQL As String 　 rsXJ.AddNew rsXJ.Fields(0) = txtUser_Info(0).Text rsXJ.Fields(1) = txtUser_Info(1).Text If OptM Then rsXJ.Fields(2) = 男 Else rsXJ.Fields(2) = “女” End If 　　。 　　。 　　rsXJ