frm_login.vb

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

Imports System.Data.OleDb
Public Class frm_login
    Dim myfrm
    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles okbt.Click
        Dim tempString As String
        tempString = ""

        myConnection.Open()
        myCommand = New OleDbCommand("select * from Administrator where AdmNo = '" & userIdtxt.Text & _
           "'", myConnection)
        myReader = myCommand.ExecuteReader()

        While myReader.Read
            tempString = myReader("Password")
        End While

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

        If tempString = "" Then
            MsgBox("Invalid User ID!")
        Else

            If tempString = passwordtxt.Text Then
                myfrm = New frm_MainInterface
                myfrm.show()
                Me.Hide()
            Else
                MsgBox("Invalid User Password!")

            End If
        End If

    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