frm_editreaderdetails.vb

用vb.net+SQL做的,本系统实现了图书管理系统应该具有的特色

        Me.BtnEdit.Cursor = System.Windows.Forms.Cursors.Default
        Me.BtnEdit.Location = New System.Drawing.Point(23, 292)
        Me.BtnEdit.Name = "BtnEdit"
        Me.BtnEdit.Size = New System.Drawing.Size(97, 25)
        Me.BtnEdit.TabIndex = 3
        Me.BtnEdit.Text = "编辑"
        '
        'Button2
        '
        Me.Button2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Button2.Location = New System.Drawing.Point(151, 292)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(106, 25)
        Me.Button2.TabIndex = 4
        Me.Button2.Text = "重置"
        '
        'Button3
        '
        Me.Button3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Button3.Location = New System.Drawing.Point(288, 292)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(78, 25)
        Me.Button3.TabIndex = 5
        Me.Button3.Text = "退出"
        '
        'frm_EditReaderDetails
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(387, 333)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.BtnEdit)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.TxtNo)
        Me.Controls.Add(Me.Label1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frm_EditReaderDetails"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "编辑读者信息"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Private Sub frm_EditReaderDetails_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TxtNo.Focus()
    End Sub
    Sub loadReader()
        MyConnection.Open()
        MyCommand = New OleDbCommand("SELECT * FROM ReaderDetails WHERE ReaderNo ='" & TxtNo.Text & "'", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            TxtReaderName.Text = MyReader("ReaderName")
            TxtCurrentAddress.Text = MyReader("ReaderAdd1")
            TxtPermanentAddress.Text = MyReader("ReaderAdd2")
            TxtPhone.Text = MyReader("ReaderPhone")
            TxtCell.Text = MyReader("ReaderCell")
            TxtEmail.Text = MyReader("ReaderEmail")
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.Dispose()
    End Sub
    Sub UpdateReaderDetails()
        MyConnection.Open()
        MyCommand = New OleDbCommand("UPDATE ReaderDetails SET ReaderName ='" & TxtReaderName.Text & "',ReaderAdd1 = '" & TxtCurrentAddress.Text & "',ReaderAdd2 = '" & TxtPermanentAddress.Text & "',ReaderPhone = '" & TxtPhone.Text & "', ReaderCell = '" & TxtCell.Text & "', ReaderEmail = '" & TxtEmail.Text & "' WHERE ReaderNo = '" & TxtNo.Text & "'", MyConnection)
        Try
            MyCommand.ExecuteNonQuery()
        Catch c As Exception
            MsgBox(c.ToString)
        End Try
        MyConnection.Close()
        MyCommand.Dispose()
    End Sub
    Private Sub TxtNo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNo.KeyPress
        Dim strChar As String
        strChar = e.KeyChar
        Select Case strChar
            Case ChrW(System.Windows.Forms.Keys.Enter)
                If checkIfAlreadyExists() = False Or TxtNo.Text = "" Then
                    display_MsgBox("Please Enter A Valid Reader Number")
                Else
                    If checkIfAlreadyExists() = True Then
                        loadReader()
                        enablefields()
                        TxtReaderName.Focus()
                    End If
                End If
            Case Else
                '什么也不做
        End Select
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtReaderName.KeyPress
        Dim strChar As String
        strChar = e.KeyChar
        Select Case strChar
            Case ChrW(System.Windows.Forms.Keys.Enter)
                TxtCurrentAddress.Focus()
            Case Else
                'do nothing
        End Select
    End Sub
    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCurrentAddress.KeyPress
        Dim strChar As String
        strChar = e.KeyChar
        Select Case strChar
            Case ChrW(System.Windows.Forms.Keys.Enter)
                TxtPermanentAddress.Focus()
            Case Else
                'do nothing
        End Select
    End Sub
    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtPermanentAddress.KeyPress
        Dim strChar As String
        strChar = e.KeyChar
        Select Case strChar
            Case ChrW(System.Windows.Forms.Keys.Enter)
                TxtPhone.Focus()
            Case Else
                'do nothing
        End Select
    End Sub
    Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtPhone.KeyPress
        Dim strChar As String
        strChar = e.KeyChar
        Select Case strChar
            Case ChrW(System.Windows.Forms.Keys.Enter)
                TxtCell.Focus()
            Case Else
                'do nothing
        End Select
    End Sub
    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCell.KeyPress
        Dim strChar As String
        strChar = e.KeyChar
        Select Case strChar
            Case ChrW(System.Windows.Forms.Keys.Enter)
                TxtEmail.Focus()
            Case Else
                'do nothing
        End Select
    End Sub
    Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtEmail.KeyPress
        Dim strChar As String
        strChar = e.KeyChar
        Select Case strChar
            Case ChrW(System.Windows.Forms.Keys.Enter)
                BtnEdit.Focus()
            Case Else
                'do nothing
        End Select
    End Sub

    Sub enablefields()
        TxtReaderName.Enabled = True
        TxtCurrentAddress.Enabled = True
        TxtPermanentAddress.Enabled = True
        TxtPhone.Enabled = True
        TxtCell.Enabled = True
        TxtEmail.Enabled = True
    End Sub
    Sub disablefields()
        TxtReaderName.Enabled = False
        TxtCurrentAddress.Enabled = False
        TxtPermanentAddress.Enabled = False
        TxtPhone.Enabled = False
        TxtCell.Enabled = False
        TxtEmail.Enabled = False
    End Sub
    Sub display_MsgBox(ByVal myMsg As String)
        MsgBox(myMsg, MsgBoxStyle.Information, "图书馆管理系统")
    End Sub
    Function checkIfAlreadyExists() As Boolean
        MyConnection.Open()
        MyCommand = New OleDbCommand("SELECT * FROM ReaderDetails WHERE ReaderNo ='" & TxtNo.Text & "'", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        Dim TempString As String
        While MyReader.Read
            TempString = MyReader("ReaderNo")
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.Dispose()
        If TxtNo.Text = TempString Then
            Return True
        Else
            If TxtNo.Text <> TempString Then
                Return False
            End If
        End If
    End Function
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        UpdateReaderDetails()
        clearfields()
        disablefields()
        TxtNo.Focus()
        display_MsgBox("读者信息已被更新")
    End Sub
    Sub clearfields()
        TxtNo.Text = ""
        TxtReaderName.Text = ""
        TxtCurrentAddress.Text = ""
        TxtPermanentAddress.Text = ""
        TxtPhone.Text = ""
        TxtCell.Text = ""
        TxtEmail.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        clearfields()
        TxtNo.Focus()
    End Sub
End Class