web读者信息.aspx.vb

Visual Basic.NET数据库开发实例

Public Class Web读者信息
    Inherits System.Web.UI.Page
    Protected WithEvents objWebLib读者信息 As WebLib.WebLib读者信息
    Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    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 Label3 As System.Web.UI.WebControls.Label
    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 Txt_读者姓名 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Txt_读者密码 As System.Web.UI.WebControls.TextBox
    Protected WithEvents btn_加载 As System.Web.UI.WebControls.Button
    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 masterDataGrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents OleDbDataAdapter2 As System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbSelectCommand2 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand2 As System.Data.OleDb.OleDbCommand
    Protected WithEvents Chk_能否借书 As System.Web.UI.WebControls.CheckBox

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection()
        Me.objWebLib读者信息 = New WebLib.WebLib读者信息()
        Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter()
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbDataAdapter2 = New System.Data.OleDb.OleDbDataAdapter()
        Me.OleDbInsertCommand2 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbSelectCommand2 = New System.Data.OleDb.OleDbCommand()
        CType(Me.objWebLib读者信息, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        '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"
        '
        'objWebLib读者信息
        '
        Me.objWebLib读者信息.DataSetName = "WebLib读者信息"
        Me.objWebLib读者信息.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.objWebLib读者信息.Namespace = "http://www.tempuri.org/WebLib读者信息.xsd"
        '
        '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("密码", "密码")})})
        '
        '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, 6, "证号"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("姓名", System.Data.OleDb.OleDbType.VarChar, 20, "姓名"))
        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.Integer, 4, "读者类别"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("能否借书", System.Data.OleDb.OleDbType.Boolean, 1, "能否借书"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("密码", System.Data.OleDb.OleDbType.VarChar, 6, "密码"))
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT 证号, 姓名, 联系方式, 已借书数目, 读者类别, 能否借书, 密码 FROM 读者信息"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbDataAdapter2
        '
        Me.OleDbDataAdapter2.InsertCommand = Me.OleDbInsertCommand2
        Me.OleDbDataAdapter2.SelectCommand = Me.OleDbSelectCommand2
        Me.OleDbDataAdapter2.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("续借", "续借")})})
        '
        'OleDbInsertCommand2
        '
        Me.OleDbInsertCommand2.CommandText = "INSERT INTO 借阅信息(证号, 书号, 书名, 借阅日期, 应归还日期, 实际归还日期, 续借) VALUES (?, ?, ?, ?, ?, ?, ?" & _
        "); SELECT 证号, 书号, 书名, 借阅日期, 应归还日期, 实际归还日期, 续借 FROM 借阅信息"
        Me.OleDbInsertCommand2.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("证号", System.Data.OleDb.OleDbType.Integer, 4, "证号"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("书号", System.Data.OleDb.OleDbType.VarChar, 10, "书号"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("书名", System.Data.OleDb.OleDbType.VarChar, 50, "书名"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("借阅日期", System.Data.OleDb.OleDbType.DBTimeStamp, 8, "借阅日期"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("应归还日期", System.Data.OleDb.OleDbType.DBTimeStamp, 8, "应归还日期"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("实际归还日期", System.Data.OleDb.OleDbType.DBTimeStamp, 8, "实际归还日期"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("续借", System.Data.OleDb.OleDbType.Boolean, 1, "续借"))
        '
        'OleDbSelectCommand2
        '
        Me.OleDbSelectCommand2.CommandText = "SELECT 证号, 书号, 书名, 借阅日期, 应归还日期, 实际归还日期, 续借 FROM 借阅信息"
        Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
        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.Chk_能否借书.Enabled = False
    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)
            Me.OleDbDataAdapter2.Fill(dataSet)
        Catch fillException As System.Exception
            '在此处添加错误处理代码。
            Throw fillException
        Finally
            '重新打开约束检查。
            dataSet.EnforceConstraints = True
            '无论是否引发了异常都关闭连接。
            Me.OleDbConnection1.Close()
        End Try
    End Sub

    Private Sub btn_加载_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_加载.Click
        Dim str_name As String
        Dim str_pwd As String

        str_name = Me.Txt_读者姓名.Text
        str_pwd = Me.Txt_读者密码.Text
        Me.OleDbSelectCommand1.CommandText = "SELECT * FROM 读者信息 WHERE 姓名='" + str_name + "' and 密码='" + str_pwd + "'"
        Try
            Me.LoadDataSet()
            Me.Txt_证号.DataBind()
            Me.Txt_联系方式.DataBind()
            Me.Txt_借书数目.DataBind()
            Me.Txt_读者类别.DataBind()
            Me.Chk_能否借书.DataBind()
        Catch eLoad As System.Exception
            Me.Response.Write(eLoad.Message)
        End Try
        Me.OleDbSelectCommand2.CommandText = "SELECT * FROM 借阅信息 WHERE 证号=" + Me.Txt_证号.Text
        Try
            Me.LoadDataSet()
            Me.masterDataGrid.DataBind()
        Catch eLoad As System.Exception
            Me.Response.Write(eLoad.Message)
        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