实验9 图书后台管理模块设计.docVIP

实验9 图书后台管理模块设计 9.1实验目的 1、回顾前面学过的控件的使用方法 2、掌握图书信息的新增、修改和删除方法 9.2实验内容 1、通过本实验加强已学控件的使用方法 2、练习实现图书信息新增、修改、删除功能 3、练习图书后台管理模块的设计方法 9.3实验步骤 9.3.1 在窗体上放置一个HyperLink用来添加图书信息，GridView展示信息。 图6-1 功能设计图 图6-1 功能设计图 黑色部位为修改部分 黑色部位为修改部分 图6-2 图6-2 HyperLink添加链接网页 选择gridview控件，选中编辑列 图6-3 图6-3 编辑gridview列 设置绑定列 图6-4 图6-4 绑定列 图6-5 图6-5 设置gridview要显示的按钮及显示名称 设置数据关键字DataKeyNames为id(主键索引) 图6-6 设置主键索引 图6-6 设置主键索引 9.3.2 Dim conn As OleDbConnection Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load conn = New OleDbConnection(Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=tuanshuguanli;Data Source=.) If Not IsPostBack Then DataBinds() End If End Sub 数据绑定自定义的事件 Sub DataBinds() 建立Command对象 Dim cmd As New OleDbCommand(select * from bookinfo, conn) 建立DataAdapter对象 Dim adp As New OleDbDataAdapter(cmd) 建立DataSet对象 Dim ds As New DataSet() 填充DataSet对象 adp.Fill(ds, link) ds.Tables(link).DefaultView.Sort = sortString 绑定数据对象 GridView1.DataSource = ds.Tables(link).DefaultView 指定数据源 GridView1.DataBind() 执行绑定 End Sub 图6-7 运行结果 图6-7 运行结果 9.3.3 在添加信息页面上添加如下控件，为简化都是TextBox 图6-8 信息添加控件设置 图6-8 信息添加控件设置 编写提交按钮代码： Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As OleDbConnection = New OleDbConnection(Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=tuanshuguanli;Data Source=.) Dim strSql As String strSql = insert into bookinfo(Title,Author,Company,ISBN,Price) values( + Title.Text.Trim + , + Author.Text + , + Company.Text + , + ISBN.Text + , + Price.Text + ) Dim cmd As OleDbCommand = New OleDbCommand(strSql, conn) conn.Open() If cmd.ExecuteNonQuery() Then Response.Write(成功