frm_findedituser.vb

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

Imports System.Data.OleDb
Public Class frm_FindEditUser

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

    Friend delOperation As Boolean = False
    Friend editOperation As Boolean = False




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles showbt.Click

        If findReaderNo() Then
            If editOperation = True Then

                frm_EditUser.readerNo = readerNotxt.Text
                frm_EditUser.Show()
                Me.Hide()
            ElseIf delOperation = True Then

                frm_deleteUser.readerNo = readerNotxt.Text
                frm_deleteUser.Show()
                Me.Hide()
            End If

        Else
            MsgBox("No such record!")
            readerNotxt.Clear()
            readerNotxt.Focus()
        End If
    End Sub

    Function findReaderNo()

        Dim temp As String = ""

        myConnection.Open()
        myCommand = New OleDbCommand("select * from ReaderDetails where ReaderNo ='" & readerNotxt.Text & "'", myConnection)
        myReader = myCommand.ExecuteReader

        While myReader.Read
            temp = myReader("ReaderNo")
        End While

        myConnection.Close()
        myCommand.Dispose()
        myReader.Close()

        If temp <> "" Then
            Return True
        Else
            Return False

        End If
    End Function
  

    Private Sub frm_FindEditUser_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        readerNotxt.Clear()
        readerNotxt.Focus()
    End Sub

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