'
        'txtCount
        '
        Me.txtCount.Location = New System.Drawing.Point(248, 122)
        Me.txtCount.Name = "txtCount"
        Me.txtCount.Size = New System.Drawing.Size(120, 21)
        Me.txtCount.TabIndex = 7
        Me.txtCount.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(184, 123)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(56, 16)
        Me.Label9.TabIndex = 0
        Me.Label9.Text = "圖書總數"
        '
        'txtPrice
        '
        Me.txtPrice.Location = New System.Drawing.Point(72, 176)
        Me.txtPrice.Name = "txtPrice"
        Me.txtPrice.TabIndex = 10
        Me.txtPrice.Text = ""
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(8, 176)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(56, 16)
        Me.Label11.TabIndex = 0
        Me.Label11.Text = "圖書價格"
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(184, 189)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(56, 16)
        Me.Label12.TabIndex = 0
        Me.Label12.Text = "入館時間"
        '
        'txtAddTime
        '
        Me.txtAddTime.Enabled = False
        Me.txtAddTime.Location = New System.Drawing.Point(248, 187)
        Me.txtAddTime.Name = "txtAddTime"
        Me.txtAddTime.Size = New System.Drawing.Size(120, 21)
        Me.txtAddTime.TabIndex = 11
        Me.txtAddTime.Text = ""
        '
        'cmbType
        '
        Me.cmbType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbType.Location = New System.Drawing.Point(72, 128)
        Me.cmbType.Name = "cmbType"
        Me.cmbType.Size = New System.Drawing.Size(100, 20)
        Me.cmbType.TabIndex = 8
        '
        'cmbPublishTime
        '
        Me.cmbPublishTime.Location = New System.Drawing.Point(248, 88)
        Me.cmbPublishTime.Name = "cmbPublishTime"
        Me.cmbPublishTime.Size = New System.Drawing.Size(120, 20)
        Me.cmbPublishTime.TabIndex = 5
        '
        'mcdPublishTime
        '
        Me.mcdPublishTime.Location = New System.Drawing.Point(120, 104)
        Me.mcdPublishTime.Name = "mcdPublishTime"
        Me.mcdPublishTime.TabIndex = 4
        Me.mcdPublishTime.Visible = False
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(8, 248)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(56, 32)
        Me.btnSave.TabIndex = 1
        Me.btnSave.Text = "保存"
        '
        'btnClear
        '
        Me.btnClear.Location = New System.Drawing.Point(172, 248)
        Me.btnClear.Name = "btnClear"
        Me.btnClear.Size = New System.Drawing.Size(56, 32)
        Me.btnClear.TabIndex = 2
        Me.btnClear.Text = "清空"
        '
        'btnClose
        '
        Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnClose.Location = New System.Drawing.Point(336, 248)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.Size = New System.Drawing.Size(56, 32)
        Me.btnClose.TabIndex = 3
        Me.btnClose.Text = "關閉"
        '
        'frmAddBook
        '
        Me.AcceptButton = Me.btnSave
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.CancelButton = Me.btnClose
        Me.ClientSize = New System.Drawing.Size(402, 285)
        Me.Controls.Add(Me.btnSave)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.btnClear)
        Me.Controls.Add(Me.btnClose)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.MaximizeBox = False
        Me.Name = "frmAddBook"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "添加圖書"
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private DataReader As System.Data.OleDb.OleDbDataReader

    Private Sub frmAddBook_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtAddTime.Text = Date.Now.ToShortDateString
        Try
            OleConn.SelectQuery("select * from 圖書類別", DataReader)
            While DataReader.Read
                cmbType.Items.Add(DataReader.Item(0))
            End While
            DataReader.Close()

        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub cmbPublishTime_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cmbPublishTime.MouseDown
        mcdPublishTime.Visible = True
    End Sub

    Private Sub mcdPublishTime_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles mcdPublishTime.DateSelected
        cmbPublishTime.Text = e.Start.ToShortDateString
        mcdPublishTime.Visible = False
    End Sub

    Private Sub mcdPublishTime_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcdPublishTime.MouseLeave
        mcdPublishTime.Visible = False
    End Sub

    Private Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtId.Text = ""
        txtBarCode.Text = ""
        txtName.Text = ""
        txtPublisher.Text = ""
        txtAuthor.Text = ""
        cmbPublishTime.Text = ""
        txtCount.Text = ""
        txtPrice.Text = ""
        mcdPublishTime.Visible = False
    End Sub

    Private Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If txtId.Text = "" Then
            MsgBox("請輸入圖書編號")
            txtId.Focus()
        ElseIf txtBarCode.Text = "" Then
            MsgBox("請輸入圖書條形碼")
            txtBarCode.Focus()
        ElseIf txtName.Text = "" Then
            MsgBox("請輸入書名")
            txtName.Focus()
        ElseIf txtPublisher.Text = "" Then
            MsgBox("請輸入出版社")
            txtPublisher.Focus()
        ElseIf txtAuthor.Text = "" Then
            MsgBox("請輸入作者")
            txtAuthor.Focus()
        ElseIf cmbPublishTime.Text = "" Then
            MsgBox("請輸入出版時間")
            cmbPublishTime.Focus()
        ElseIf txtCount.Text = "" Then
            MsgBox("請輸入圖書總數")
            txtCount.Focus()
        ElseIf cmbType.SelectedIndex < 0 Then
            MsgBox("請選擇圖書類別")
            cmbType.Focus()
        
        ElseIf txtPrice.Text = "" Then
            MsgBox("請輸入圖書價格")
            txtPrice.Focus()
        Else
            Dim str As String = "INSERT INTO 圖書(圖書編號, 條形碼, 書名, 作者, 出版社, 出版時間" & _
                ", 類別, 現存數量, 圖書總數, 入館時間, 圖書價格) VALUES('" & txtId.Text & "', '" & _
                txtBarCode.Text & "', '" & txtName.Text & "', '" & txtAuthor.Text & "', '" & _
                txtPublisher.Text & "', '" & cmbPublishTime.Text & "', '" & _
                cmbType.SelectedItem & "', " & CInt(txtCount.Text) & ", " & CInt(txtCount.Text) & ", '" & txtAddTime.Text & "', " & txtPrice.Text & ")"
            Try
                OleConn.InsertQuery(str)
                txtId.Text = ""
                txtBarCode.Text = ""
                txtName.Text = ""
                txtId.Focus()
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try
        End If
    End Sub
End Class