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