web书籍查询.aspx.vb

本页只为图象处理爱好者交流之用, 未经本人同意, 请勿下载. 另,本书及所附source已于1999年由清华大学出版社出版,请支持正版书籍及软件,谢谢.

Public Class Web书籍查询
    Inherits System.Web.UI.Page
    Protected WithEvents buttonLoad As System.Web.UI.WebControls.Button
    Protected WithEvents Txt_查找 As System.Web.UI.WebControls.TextBox
    Protected WithEvents FieldList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Protected WithEvents objWebLib书籍查询 As WebLib.WebLib书籍查询
    Protected WithEvents masterDataGrid As System.Web.UI.WebControls.DataGrid

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter()
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection()
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.objWebLib书籍查询 = New WebLib.WebLib书籍查询()
        CType(Me.objWebLib书籍查询, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "书籍信息", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("书号", "书号"), New System.Data.Common.DataColumnMapping("丛书系列", "丛书系列"), New System.Data.Common.DataColumnMapping("作者", "作者"), New System.Data.Common.DataColumnMapping("责任编辑", "责任编辑"), New System.Data.Common.DataColumnMapping("字数", "字数"), New System.Data.Common.DataColumnMapping("定价", "定价"), New System.Data.Common.DataColumnMapping("出版时间", "出版时间"), New System.Data.Common.DataColumnMapping("主题分类", "主题分类"), New System.Data.Common.DataColumnMapping("二级分类", "二级分类"), New System.Data.Common.DataColumnMapping("馆内借阅分类", "馆内借阅分类"), New System.Data.Common.DataColumnMapping("总册数", "总册数"), New System.Data.Common.DataColumnMapping("库存量", "库存量"), New System.Data.Common.DataColumnMapping("出版社", "出版社"), New System.Data.Common.DataColumnMapping("书名", "书名")})})
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO 书籍信息(书号, 丛书系列, 作者, 责任编辑, 字数, 定价, 出版时间, 主题分类, 二级分类, 馆内借阅分类, 总册数, 库存量, " & _
        "出版社, 书名) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?); SELECT 书号, 丛书系列, 作者," & _
        " 责任编辑, 字数, 定价, 出版时间, 主题分类, 二级分类, 馆内借阅分类, 总册数, 库存量, 出版社, 书名 FROM 书籍信息"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("书号", System.Data.OleDb.OleDbType.VarChar, 10, "书号"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("丛书系列", System.Data.OleDb.OleDbType.VarWChar, 50, "丛书系列"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("作者", System.Data.OleDb.OleDbType.VarWChar, 50, "作者"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("责任编辑", System.Data.OleDb.OleDbType.VarWChar, 50, "责任编辑"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("字数", System.Data.OleDb.OleDbType.Integer, 4, "字数"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("定价", System.Data.OleDb.OleDbType.Currency, 8, "定价"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("出版时间", System.Data.OleDb.OleDbType.DBTimeStamp, 8, "出版时间"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("主题分类", System.Data.OleDb.OleDbType.VarWChar, 50, "主题分类"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("二级分类", System.Data.OleDb.OleDbType.VarChar, 50, "二级分类"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("馆内借阅分类", System.Data.OleDb.OleDbType.Integer, 4, "馆内借阅分类"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("总册数", System.Data.OleDb.OleDbType.VarChar, 10, "总册数"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("库存量", System.Data.OleDb.OleDbType.Integer, 4, "库存量"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("出版社", System.Data.OleDb.OleDbType.VarChar, 50, "出版社"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("书名", System.Data.OleDb.OleDbType.VarChar, 50, "书名"))
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Librar" & _
        "y;Data Source=yinlm;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=" & _
        "4096;Workstation ID=YINLM;Use Encryption for Data=False;Tag with column collatio" & _
        "n when possible=False"
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT 书号, 丛书系列, 作者, 责任编辑, 字数, 定价, 出版时间, 主题分类, 二级分类, 馆内借阅分类, 总册数, 库存量, 出版社, 书名 FR" & _
        "OM 书籍信息"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'objWebLib书籍查询
        '
        Me.objWebLib书籍查询.DataSetName = "WebLib书籍查询"
        Me.objWebLib书籍查询.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.objWebLib书籍查询.Namespace = "http://www.tempuri.org/WebLib书籍查询.xsd"
        CType(Me.objWebLib书籍查询, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub

    Private Sub buttonLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonLoad.Click
        Me.OleDbSelectCommand1.CommandText = "SELECT * FROM 书籍信息 WHERE " + Me.FieldList.Items(Me.FieldList.SelectedIndex).ToString + "  LIKE '%" + Me.Txt_查找.Text + "%'"
        Try
            Me.LoadDataSet()
            Me.masterDataGrid.SelectedIndex = -1
            Me.masterDataGrid.DataBind()
        Catch eLoad As System.Exception
            Me.Response.Write(eLoad.Message)
        End Try
    End Sub

    Public Sub LoadDataSet()
        '创建一个新数据集以保存从 FillDataSet 调用返回的记录。
        '使用了一个临时数据集，这是因为填充现有的数据集
        '需要重新绑定数据绑定。
        Dim objDataSetTemp As WebLib.WebLib书籍查询
        objDataSetTemp = New WebLib.WebLib书籍查询()
        Try
            '尝试填充临时数据集。
            Me.FillDataSet(objDataSetTemp)
        Catch eFillDataSet As System.Exception
            '在此处添加错误处理代码。
            Throw eFillDataSet
        End Try
        Try
            '清空数据集中的旧记录。
            objWebLib书籍查询.Clear()
            '将记录合并到主数据集中。
            objWebLib书籍查询.Merge(objDataSetTemp)
        Catch eLoadMerge As System.Exception
            '在此处添加错误处理代码。
            Throw eLoadMerge
        End Try
    End Sub

    Public Sub FillDataSet(ByVal dataSet As WebLib.WebLib书籍查询)
        '在填充数据集前关闭约束检查。
        '这允许适配器填充数据集而不用考虑
        '表之间的依赖项。
        dataSet.EnforceConstraints = False
        Try
            '打开连接。
            Me.OleDbConnection1.Open()
            '尝试通过 OleDbDataAdapter1 填充数据集。
            Me.OleDbDataAdapter1.Fill(dataSet)
        Catch fillException As System.Exception
            '在此处添加错误处理代码。
            Throw fillException
        Finally
            '重新打开约束检查。
            dataSet.EnforceConstraints = True
            '无论是否引发了异常都关闭连接。
            Me.OleDbConnection1.Close()
        End Try
    End Sub

    Private Sub masterDataGrid_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles masterDataGrid.ItemCommand
        Dim linkitem As LinkButton
        linkitem = e.CommandSource
        Dim bookid As TableCell
        bookid = e.Item.Cells(e.Item.Cells.Count - 1)
        Response.Redirect("Web书籍信息.aspx?书号=" + bookid.Text)
    End Sub
End Class