第三十讲系统开发应用示例（二）.doc

课题：系统开发应用示例（二） 教学目的与要求： 1、通过本堂课的学习，能对数据库设计更有效地把所学知识融贯通； 2、通过本堂课的学习，能对系统开发能够将本期所学的内容用一个实例串联起来； 3、通过本堂课的学习来培养学生分析问题、解决问题的能力。 教学重点与难点： 系统功能的实现 教学方法： 采用模块式、演示和分析相结合方法调试和分析系统实现的代码。 教学课时数：2课时 教学过程： 问题牵引、导入新课 通过上堂课的分析，已经设计出图书管理系统的合适数据库，具体实现各个模块的功能是我们这一堂课所要解决的问题。 课程内容 图书信息录入模块和书目检索模块的实现 内容讲授 (1)、图书信息录入模块的实现 第一步：新建窗体。 在项目中新建一个Windows窗体并命名为FrmBookIn，并按图8.22和表8.11所示将各控件从工具栏放置到窗体相应位置，设置好各控件属性。 表8.11 图书信息录入界面控件及属性设置 控件名称(name) 对应文字或提示 控件类型 简单描述 TextTitleId 条码号 TextBox 文本框 TextTitle 图书名 TextBox 文本框 TextAuthor 作 者 TextBox 文本框 DropType 类 别 ComboBox 下拉框 DropPublisher 出版社 ComboBox 下拉框 TextPrice 价 格 TextBox 文本框 TextISBN ISBN TextBox 文本框 TextIndexNo 索书号 TextBox 文本框 TextPubDate 出版时间 TextBox 文本框 TextNum 入库数量 TextBox 文本框 TextDescription 图书简介 TextBox 文本框 BtnSave 保存按钮 Button 命令按钮 BtnClose 关闭按钮 Button 命令按钮 Label1~Label11 依次为各输入框前标签 Label 标签 第二步：初始化窗体代码。 双击窗体任何空白地方即可进行窗体加载时要执行的代码的编写，参考代码如下所示： Private Sub FrmBookIn_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load Dim connStr As String 定义数据库连接串 connStr = Server= localhost; Database=LibDB;User ID=sa;Password=1; Trusted_Connection=False Dim myBookConn As New SqlConnection(connStr) 定义一个连接对象,连接到数据库 myBookConn.Open() 打开数据库连接 Dim typeCommand As New SqlCommand(select typeid,typename from type) 定义数据对象 Dim typeDA As SqlDataAdapter=New SqlDataAdapter 定义数据适配器并进行其属性的赋值 typeCommand.Connection = myBookConn typeDA.SelectCommand = typeCommand Dim typeDS As DataSet = New DataSet 定义数据集 用数据适配器填充数据集的表中，命名为Type typeDA.Fill(typeDS, Type) 将数据集中的数据设定为DropType下拉框的数据源，设定其显示字段和值字段 DropType.DataSource = typeDS.Tables(Type) DropType.DisplayMember = typename“ DropType.ValueMember = typeid“ 以下从数据库Publisher表中获取出版社信息，并绑定到DropPublisher控件 Dim publisherCommand As New SqlCommand(select pubid,pubname from publisher) Dim pubDA As SqlDataAdapter=New SqlDataAdapter publisherCommand.Connection=myBookConn pubDA.SelectCommand=publisherCommand Dim pubDS As DataSet=New DataSet pubDA.Fill(pubDS, Publisher) DropPublisher.D