web书籍信息.aspx.vb

Visual Basic.NET数据库开发实例

Public Class Web书籍信息
    Inherits System.Web.UI.Page
    Protected WithEvents Lbl_读者姓名 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_读者密码 As System.Web.UI.WebControls.Label
    Protected WithEvents Txt_读者姓名 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_出版时间 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_主题分类 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_丛书系列 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_馆内借阅分类 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Lbl_作者 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_书名 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_丛书系列 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_责任编辑 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_字数 As System.Web.UI.WebControls.Label
    Protected WithEvents 定价 As System.Web.UI.WebControls.Label
    Protected WithEvents 出版时间 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_主题分类 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_二级分类 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_馆内借阅分类 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_总册数 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_库存量 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_出版社 As System.Web.UI.WebControls.Label
    Protected WithEvents Lbl_书号 As System.Web.UI.WebControls.Label
    Protected WithEvents Txt_责任编辑 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_字数 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_定价 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_作者 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_二级分类 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_书名 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_书号 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_总册数 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_库存量 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_出版社 As System.Web.UI.WebControls.TextBox
    Protected WithEvents btn_Lib As System.Web.UI.WebControls.Button
    Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents objWebLib书籍信息 As WebLib.WebLib书籍信息
    Protected WithEvents Txt_读者密码 As System.Web.UI.WebControls.TextBox

#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("en-US")
        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
        '在此处放置初始化页的用户代码
        Me.Txt_丛书系列.Enabled = False
        Me.Txt_主题分类.Enabled = False
        Me.Txt_书号.Enabled = False
        Me.Txt_书名.Enabled = False
        Me.Txt_二级分类.Enabled = False
        Me.Txt_作者.Enabled = False
        Me.Txt_出版时间.Enabled = False
        Me.Txt_出版社.Enabled = False
        Me.Txt_字数.Enabled = False
        Me.Txt_定价.Enabled = False
        Me.Txt_库存量.Enabled = False
        Me.Txt_总册数.Enabled = False
        Me.Txt_责任编辑.Enabled = False
        Me.Txt_馆内借阅分类.Enabled = False

        Dim str_Book As String
        str_Book = Request.QueryString("书号")
        Me.OleDbSelectCommand1.CommandText = "SELECT * FROM 书籍信息 WHERE 书号 ='" + str_Book + "'"
        Try
            Me.LoadDataSet()
            Me.Txt_丛书系列.DataBind()
            Me.Txt_主题分类.DataBind()
            Me.Txt_书号.DataBind()
            Me.Txt_书名.DataBind()
            Me.Txt_二级分类.DataBind()
            Me.Txt_作者.DataBind()
            Me.Txt_出版时间.DataBind()
            Me.Txt_出版社.DataBind()
            Me.Txt_字数.DataBind()
            Me.Txt_定价.DataBind()
            Me.Txt_库存量.DataBind()
            Me.Txt_总册数.DataBind()
            Me.Txt_责任编辑.DataBind()
            Me.Txt_馆内借阅分类.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 btn_Lib_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Lib.Click
        Dim userid As String
        Dim strSQL As String
        Dim myConnection As New OleDb.OleDbConnection()
        myConnection = Me.OleDbConnection1
        Dim myCommand As OleDb.OleDbCommand
        myCommand = New OleDb.OleDbCommand("SELECT * FROM 读者信息 WHERE 姓名='" + Me.Txt_读者姓名.Text + "' AND 密码='" + Me.Txt_读者密码.Text + "'", myConnection)
        myCommand.Connection.Open()
        Dim myReader As OleDb.OleDbDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
        While myReader.Read()
            userid = myReader.GetInt32(0).ToString
        End While
        myReader.Close()
        myConnection.Close()

        strSQL = "INSERT 借阅信息(证号,书号,书名,借阅日期,应归还日期,实际归还日期,续借) VALUES('" + _
        userid + "','" + RTrim(Me.Txt_书号.Text) + "','" + RTrim(Me.Txt_书名.Text) + "','" + Now.ToString() + "','" + Now.ToString() + "','" + _
        Now.ToString() + "','0') "
        myCommand = New OleDb.OleDbCommand(strSQL, myConnection)
        myCommand.Connection.Open()
        myReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
        myConnection.Close()
    End Sub
End Class