frm_edituser.vb

基于VBNET编写的图书馆管理系统

Imports System.Data.OleDb
Public Class frm_EditUser

    Dim MyConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\library.mdb")
    Dim MyCommand As OleDbCommand
    Dim MyReader As OleDbDataReader

    Sub displayMsg(ByVal myMsgText As String)
        MsgBox(myMsgText, MsgBoxStyle.Information, "图书管管理系统")
    End Sub
    Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOK.Click
        If Trim(TxtName.Text) = "" Then
            displayMsg("输入的用户姓名不能为空！")
            Exit Sub
        End If
        If Trim(TxtPassword.Text) = "" Then
            displayMsg("输入的密码不能为空！")
            Exit Sub
        End If
        MyConnection.Open()
        MyCommand = New OleDbCommand("UPDATE Backup SET UserName ='" & TxtName.Text & "',[Password] = '" & TxtPassword.Text & "' ,Status = '" & ComboStatus.Text & "' ,Address = '" & TxtAddress.Text & "' ,Phone = '" & TxtPhone.Text & "' ,CellPhone = '" & TxtCellPhone.Text & "' ,Email = '" & TxtEmail.Text & "' ,AdminRights = '" & ComboAdmin.Text & "' ,LibRights = '" & ComboLib.Text & "' ,ReaderRights = '" & ComboGeneral.Text & "' ", MyConnection)
        Try
            MyCommand.ExecuteNonQuery()
        Catch c As Exception
            MsgBox(c.ToString)
        End Try
        MyConnection.Close()
        MyCommand.Dispose()
    End Sub

    Private Sub FrmEditUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LBUserName.Items.Clear()
        Dim SQLString As String = "SELECT * FROM SystemUsers"
        MyConnection.Open()
        MyCommand = New OleDbCommand(SQLString, MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            LBUserName.Items.Add(MyReader("UserID"))
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.Dispose()
    End Sub

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

    Private Sub LBUserName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBUserName.SelectedIndexChanged
        Dim SQLString As String = "SELECT * FROM SystemUsers WHERE UserID='" & LBUserName.SelectedItem & "'"
        MyConnection.Open()
        MyCommand = New OleDbCommand(SQLString, MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            Me.TxtUserID.Text = MyReader("UserID").ToString
            Me.TxtName.Text = MyReader("UserName").ToString
            Me.TxtPassword.Text = MyReader("Password").ToString
            Me.ComboStatus.Text = MyReader("Status").ToString
            Me.TxtPhone.Text = MyReader("Phone").ToString
            Me.TxtCellPhone.Text = MyReader("CellPhone").ToString
            Me.TxtAddress.Text = MyReader("Address").ToString
            Me.TxtEmail.Text = MyReader("Email").ToString
            Me.ComboAdmin.Text = MyReader("AdminRights").ToString
            Me.ComboLib.Text = MyReader("LibRights").ToString
            Me.ComboGeneral.Text = MyReader("ReaderRights").ToString
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.Dispose()
    End Sub
End Class