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

实验9 图书后台管理模块设计 9.1实验目的 1、回顾前面学过的控件的应用方法 2、掌握图书信息的新增、修改和删除方法 9.2实验内容 1、通过本实验加强已学控件的应用方法 2、练习实现图书信息新增、修改、删除功能 3、练习图书后台管理模块的设计方法 9.3实验步骤 9.3.1控件设置 在窗体上放置一个HyperLink用来添加图书信息，GridView展示信息。 选择gridview控件，选中编辑列 设置绑定列 设置数据关键字DataKeyNames为id(主键索引) 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 9.3.3添加信息代码编写 在添加信息页面上添加如下控件，为简化都是TextBox 编写提交按钮代码： 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(成功) Else Response.Write(失败) End If conn.Close() End Sub 9.3.4修改、删除、更新代码编写 添加RowEditing 事件 Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System