frm_addbooktype.vb

是关于图书管理系统的用vb.net 和access开发的

Imports System.Data.OleDb

Public Class frm_AddBookType

    Dim myConnection As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; Data source=D:\library.mdb")
    Dim myCommand As OleDbCommand
    Dim myReader As OleDbDataReader




    Private Sub addbt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addbt.Click

        If checkTextBoxEmpty(typeCodetxt) = False And checkTextBoxEmpty(destxt) = False Then

            addBookType()
        Else
            MsgBox("information is not enough")

        End If


    End Sub

    Function checkTextBoxEmpty(ByVal t As TextBox) As Boolean
        If t.Text = "" Then
            Return True
        Else
            Return False
        End If
    End Function
   

    Sub clearFields()
        typeCodetxt.Text = ""
        destxt.Text = ""
    End Sub

   Sub addBookType()
        Try
            myConnection.Open()
            myCommand = New OleDbCommand("insert into BookType values('" & typeCodetxt.Text & "','" & destxt.Text & "')", myConnection)

            myCommand.ExecuteNonQuery()

            MsgBox("Add successful")

        Catch ex As Exception
            MsgBox("The book Type already exist!")
            clearFields()
            typeCodetxt.Focus()
        End Try

        myConnection.Close()
        myCommand.Dispose()

    End Sub

    Private Sub resetbt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetbt.Click
        clearFields()
        typeCodetxt.Focus()
    End Sub

    Private Sub exitbt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitbt.Click
        Me.Close()
    End Sub

    Private Sub frm_AddBookType_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        typeCodetxt.Focus()
    End Sub

 
End Class