Public Class frmSelectBook    Inherits 圖書管理系統(tǒng).frmBase
    Private gridMouseDownTime As DateTime = New DateTime#Region " Windows 窗體設(shè)計器生成的代碼 "    Public Sub New()        MyBase.New()        '該調(diào)用是 Windows 窗體設(shè)計器所必需的。        InitializeComponent()        '在 InitializeComponent() 調(diào)用之后添加任何初始化    End Sub    '窗體重寫 dispose 以清理組件列表。    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)        If disposing Then            If Not (components Is Nothing) Then                components.Dispose()            End If        End If        MyBase.Dispose(disposing)    End Sub    'Windows 窗體設(shè)計器所必需的    Private components As System.ComponentModel.IContainer    '注意: 以下過程是 Windows 窗體設(shè)計器所必需的    '可以使用 Windows 窗體設(shè)計器修改此過程。    '不要使用代碼編輯器修改它。    Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents DataSet11 As 圖書管理系統(tǒng).DataSet1
    Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        Me.DataSet11 = New 圖書管理系統(tǒng).DataSet1
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.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("ISBN", "ISBN"), 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("現(xiàn)存量", "現(xiàn)存量"), 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("借出次數(shù)", "借出次數(shù)"), New System.Data.Common.DataColumnMapping("是否注銷", "是否注銷")})})
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 圖書信息(條形碼, 編號, 書名, 類型, 作者, 譯者, ISBN, 出版社, 價格, 頁碼, 書架名稱, 現(xiàn)存量, 庫存總量, 入庫時" & _
        "間, 操作員, 簡介, 借出次數(shù), 是否注銷) VALUES (@條形碼, @編號, @書名, @類型, @作者, @譯者, @ISBN, @出版社, @價格," & _
        " @頁碼, @書架名稱, @現(xiàn)存量, @庫存總量, @入庫時間, @操作員, @簡介, @借出次數(shù), @是否注銷); SELECT 條形碼, 編號, 書名, 類" & _
        "型, 作者, 譯者, ISBN, 出版社, 價格, 頁碼, 書架名稱, 現(xiàn)存量, 庫存總量, 入庫時間, 操作員, 簡介, 借出次數(shù), 是否注銷 FROM 圖書" & _
        "信息 WHERE (編號 = @編號)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@條形碼", System.Data.SqlDbType.VarChar, 40, "條形碼"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@編號", System.Data.SqlDbType.VarChar, 50, "編號"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@書名", System.Data.SqlDbType.VarChar, 200, "書名"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@類型", System.Data.SqlDbType.VarChar, 100, "類型"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@作者", System.Data.SqlDbType.VarChar, 100, "作者"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@譯者", System.Data.SqlDbType.VarChar, 100, "譯者"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ISBN", System.Data.SqlDbType.VarChar, 40, "ISBN"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@出版社", System.Data.SqlDbType.VarChar, 100, "出版社"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@價格", System.Data.SqlDbType.Money, 8, "價格"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@頁碼", System.Data.SqlDbType.Int, 4, "頁碼"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@書架名稱", System.Data.SqlDbType.VarChar, 200, "書架名稱"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@現(xiàn)存量", System.Data.SqlDbType.Int, 4, "現(xiàn)存量"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@庫存總量", System.Data.SqlDbType.Int, 4, "庫存總量"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入庫時間", System.Data.SqlDbType.DateTime, 4, "入庫時間"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@操作員", System.Data.SqlDbType.VarChar, 20, "操作員"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@簡介", System.Data.SqlDbType.VarChar, 100, "簡介"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@借出次數(shù)", System.Data.SqlDbType.Int, 4, "借出次數(shù)"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@是否注銷", System.Data.SqlDbType.Bit, 1, "是否注銷"))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=CS;persis" & _
        "t security info=False;initial catalog=libbook"
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 條形碼, 編號, 書名, 類型, 作者, 譯者, ISBN, 出版社, 價格, 頁碼, 書架名稱, 現(xiàn)存量, 庫存總量, 入庫時間, 操作員, 簡介" & _
        ", 借出次數(shù), 是否注銷 FROM 圖書信息"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'frmSelectBook
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(608, 317)
        Me.Name = "frmSelectBook"
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub#End Region    Public Overrides Sub Prepare()
        Me.Text = "選擇圖書"
        Me.grbSearch.Visible = False
        Me.dgdList.Dock = DockStyle.Fill
        Me.ToolBar1.Visible = False
    End Sub    Public Overrides Sub LoadData()
        '清空DataSet11
        DataSet11.Clear()
        SqlConnection1.ConnectionString = DataBase.sConn
        SqlDataAdapter1.Fill(DataSet11)
        dtData = DataSet11.Tables("圖書信息")
        bmData = Me.BindingContext(DataSet11, "圖書信息")
        If bmData.Count <> 0 Then
            bmData.Position = 0
        End If
    End Sub    Public Overrides Sub SetDataGrid()
        LoadData()
        '定義一個DataGrid表樣式
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dtData.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 3

            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            aColumnTextColumn.ReadOnly = True
            '為列樣式對應的TextBox添加事件響應
            '為DataGrid單元格支持雙擊雙擊添加事件響應
            AddHandler aColumnTextColumn.TextBox.MouseDown, _
            New MouseEventHandler(AddressOf DGDoubleClick)
            AddHandler aColumnTextColumn.TextBox.DoubleClick, _
            New EventHandler(AddressOf dgdList_DoubleClick)
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.AlternatingBackColor = Color.LightGray
        ts.AllowSorting = False
        ts.MappingName = dtData.TableName
        dgdList.TableStyles.Clear()
        dgdList.TableStyles.Add(ts)
        Dim dv As DataView = dtData.DefaultView
        dv.AllowNew = False
        dv.AllowDelete = False
        dv.AllowEdit = False
        '設(shè)置數(shù)據(jù)源
        dgdList.DataSource = dtData.DefaultView
        bmData = Me.BindingContext(DataSet11, "圖書信息")
        lblCount.Text = "記錄數(shù):" + dtData.Rows.Count.ToString()
    End Sub    Private Sub DGDoubleClick(ByVal sender As Object, ByVal e As MouseEventArgs)
        '判斷兩次單擊時間是否小于雙擊的時間間隔
        If (DateTime.Now < gridMouseDownTime.AddMilliseconds(SystemInformation.DoubleClickTime)) Then
            '兩次單擊時間小于雙擊的時間間隔則調(diào)用dgdGoodInfo雙擊處理函數(shù)
            Me.dgdList_DoubleClick(Nothing, Nothing)
        End If
    End Sub

    Private Sub dgdList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgdList.DoubleClick
        Me.Close()
    End Sub

    Private Sub dgdList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgdList.MouseDown
        '記住在dgdGoodInfo點下鼠標的時間
        gridMouseDownTime = DateTime.Now
    End Sub    Public Function GetInfo() As String
        '獲得DataGrid當前被選中的行號
        Dim iRow As Integer = dgdList.CurrentRowIndex
        Dim sId As String
        '獲取DataGrid當前被選中的行的內(nèi)容
        sId = dtData.Rows(iRow)("編號").ToString()
        Return sId
    End FunctionEnd Class