readermanage.vb

这是一个完善的图书馆管理系统.后台数据库采用ACCESS.

        '
        'btnFirst
        '
        Me.btnFirst.Location = New System.Drawing.Point(96, 32)
        Me.btnFirst.Name = "btnFirst"
        Me.btnFirst.Size = New System.Drawing.Size(64, 32)
        Me.btnFirst.TabIndex = 1
        Me.btnFirst.Text = "第一条"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(16, 136)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(56, 16)
        Me.Label11.TabIndex = 0
        Me.Label11.Text = "读者编号"
        '
        'txtReaderId2
        '
        Me.txtReaderId2.Location = New System.Drawing.Point(16, 167)
        Me.txtReaderId2.Name = "txtReaderId2"
        Me.txtReaderId2.Size = New System.Drawing.Size(144, 21)
        Me.txtReaderId2.TabIndex = 2
        Me.txtReaderId2.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(16, 203)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(56, 16)
        Me.Label12.TabIndex = 0
        Me.Label12.Text = "读者姓名"
        '
        'txtReaderName2
        '
        Me.txtReaderName2.Location = New System.Drawing.Point(16, 234)
        Me.txtReaderName2.Name = "txtReaderName2"
        Me.txtReaderName2.Size = New System.Drawing.Size(144, 21)
        Me.txtReaderName2.TabIndex = 2
        Me.txtReaderName2.Text = ""
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(16, 328)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(64, 32)
        Me.btnSave.TabIndex = 1
        Me.btnSave.Text = "保存"
        '
        'btnModify
        '
        Me.btnModify.Location = New System.Drawing.Point(202, 328)
        Me.btnModify.Name = "btnModify"
        Me.btnModify.Size = New System.Drawing.Size(64, 32)
        Me.btnModify.TabIndex = 1
        Me.btnModify.Text = "修改"
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(388, 328)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.Size = New System.Drawing.Size(64, 32)
        Me.btnDelete.TabIndex = 1
        Me.btnDelete.Text = "删除"
        '
        'btnClose
        '
        Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnClose.Location = New System.Drawing.Point(574, 328)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.Size = New System.Drawing.Size(64, 32)
        Me.btnClose.TabIndex = 1
        Me.btnClose.Text = "关闭"
        '
        'frmReaderManage
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(656, 375)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.btnSave)
        Me.Controls.Add(Me.btnModify)
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.btnClose)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.MaximizeBox = False
        Me.Name = "frmReaderManage"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "读者管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Public linenum As Integer
    Public str As String
    Private DataReader As System.Data.OleDb.OleDbDataReader
    Private dr As DataRow

    Private Sub frmReaderManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If OleConn.SelectQuery("select 类别 from 读者类别", DataReader) Then
                While DataReader.Read
                    cmbType.Items.Add(DataReader.Item(0))
                End While
                DataReader.Close()
            Else
                MsgBox("查询读者类别表失败")
            End If

        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try

        OleConn.Adapter.SelectCommand.CommandText = str
        dr = readerDataSet.Tables(0).Rows(linenum)
        SetControls()
    End Sub

    Private Sub SetControls()
        Try
            txtReaderId.Text = dr.Item("编号")
            If Not dr.IsNull("姓名") Then
                txtReaderName.Text = dr.Item("姓名")
            End If
            If Not dr.IsNull("性别") Then
                cmbSex.SelectedItem = dr.Item("性别")
            End If
            If Not dr.IsNull("类别") Then
                cmbType.SelectedItem = dr.Item("类别")
            End If
            If Not dr.IsNull("住址") Then
                txtAddress.Text = dr.Item("住址")
            End If
            If Not dr.IsNull("单位部门") Then
                txtDepartment.Text = dr.Item("单位部门")
            End If
            If Not dr.IsNull("借书次数") Then
                txtBorrowCount.Text = CStr(dr.Item("借书次数"))
            End If
            If Not dr.IsNull("联系电话") Then
                txtTelephone.Text = dr.Item("联系电话")
            End If
            If Not dr.IsNull("登记日期") Then
                cmbAddTime.Text = CStr(dr.Item("登记日期"))
            End If
            If Not dr.IsNull("备注") Then
                txtDemo.Text = dr.Item("备注")
            End If
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
        If linenum = 0 Then
            linenum = readerDataSet.Tables(0).Rows.Count - 1
        Else
            linenum = linenum - 1
        End If

        If linenum >= 0 And readerDataSet.Tables(0).Rows.Count > 0 Then
            dr = readerDataSet.Tables(0).Rows(linenum)
            SetControls()
        End If
    End Sub

    Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
        If linenum = readerDataSet.Tables(0).Rows.Count - 1 Then
            linenum = 0
        Else
            linenum = linenum + 1
        End If

        If linenum < readerDataSet.Tables(0).Rows.Count And readerDataSet.Tables(0).Rows.Count > 0 Then
            dr = readerDataSet.Tables(0).Rows(linenum)
            SetControls()
        End If
    End Sub

    Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
        linenum = 0
        If readerDataSet.Tables(0).Rows.Count > 0 Then
            dr = readerDataSet.Tables(0).Rows(linenum)
            SetControls()
        End If
    End Sub

    Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
        linenum = bookDataSet.Tables(0).Rows.Count - 1
        If readerDataSet.Tables(0).Rows.Count > 0 Then
            dr = readerDataSet.Tables(0).Rows(linenum)
            SetControls()
        End If
    End Sub

    Private Sub cmbAddTime_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbAddTime.MouseEnter
        mcdAddTime.SelectionStart = cmbAddTime.Text
        mcdAddTime.SelectionEnd = cmbAddTime.Text
        mcdAddTime.Visible = True
    End Sub

    Private Sub mcdAddTime_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles mcdAddTime.DateSelected
        cmbAddTime.Text = e.Start.ToShortDateString
        mcdAddTime.Visible = False
    End Sub

    Private Sub mcdAddTime_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcdAddTime.MouseLeave
        mcdAddTime.Visible = False
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Try
            OleConn.UpDate(readerDataSet)
            readerDataSet.AcceptChanges()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub btnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModify.Click
        If readerDataSet.Tables(0).Rows.Count > 0 Then
            Try
                If txtReaderId.Text = "" Then
                    MsgBox("请输入读者编号")
                    txtReaderId.Focus()
                ElseIf txtReaderName.Text = "" Then
                    MsgBox("请输入读者姓名")
                    txtReaderName.Focus()
                ElseIf cmbSex.SelectedIndex < 0 Then
                    MsgBox("请选择读者性别")
                    cmbSex.Focus()
                ElseIf cmbType.SelectedIndex < 0 Then
                    MsgBox("请选择读者类别")
                    cmbType.Focus()
                ElseIf txtAddress.Text = "" Then
                    MsgBox("请输入住址")
                    txtAddress.Focus()
                ElseIf txtDepartment.Text = "" Then
                    MsgBox("请输入单位部门")
                    txtDepartment.Focus()
                ElseIf txtBorrowCount.Text = "" Then
                    MsgBox("请输入借书次数")
                    txtBorrowCount.Focus()
                ElseIf txtTelephone.Text = "" Then
                    MsgBox("请输入联系电话")
                    txtTelephone.Focus()
                ElseIf cmbAddTime.Text = "" Then
                    MsgBox("请输入登记日期")
                    cmbAddTime.Focus()
                ElseIf txtDemo.Text = "" Then
                    MsgBox("请输入备注信息")
                    txtDemo.Focus()
                Else
                    dr.BeginEdit()
                    dr.Item("编号") = txtReaderId.Text
                    dr.Item("姓名") = txtReaderName.Text
                    dr.Item("性别") = cmbSex.SelectedItem
                    dr.Item("类别") = cmbType.SelectedItem
                    dr.Item("住址") = txtAddress.Text
                    dr.Item("单位部门") = txtDepartment.Text
                    dr.Item("借书次数") = CInt(txtBorrowCount.Text)
                    dr.Item("联系电话") = txtTelephone.Text
                    dr.Item("登记日期") = CDate(cmbAddTime.Text)
                    dr.Item("备注") = txtDemo.Text
                    dr.EndEdit()
                End If
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try
        End If
    End Sub

    Private Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If readerDataSet.Tables(0).Rows.Count > 0 Then
            Dim str As String = "确定要删除《" & dr.Item("姓名") & "》吗?"
            If MessageBox.Show(str, "删除", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = DialogResult.OK Then
                Try
                    readerDataSet.Tables(0).Rows(linenum).Delete()
                    OleConn.UpDate(readerDataSet)
                    readerDataSet.AcceptChanges()
                    If linenum = readerDataSet.Tables(0).Rows.Count - 1 Then
                        linenum = 0
                    ElseIf readerDataSet.Tables(0).Rows.Count > 1 Then
                        linenum = linenum + 1
                    End If
                    If linenum < readerDataSet.Tables(0).Rows.Count And readerDataSet.Tables(0).Rows.Count > 0 Then
                        dr = readerDataSet.Tables(0).Rows(linenum)
                        SetControls()
                    End If
                Catch ex As Exception
                    OleConn.DisplayError(ex)
                End Try
            End If
        End If
    End Sub

    Private Sub frmReaderManage_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Dim str As String = "要保存你的工作吗吗?"
        If MessageBox.Show(str, "保存", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            Try
                OleConn.UpDate(readerDataSet)
                readerDataSet.AcceptChanges()
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try
        Else
            readerDataSet.RejectChanges()
        End If
    End Sub

    Private Sub txtReaderId2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtReaderId2.KeyDown
        If e.KeyCode = Keys.Return Then
            If txtReaderId2.Text <> "" Then
                Dim str As String = "编号='" & txtReaderId2.Text & "'"
                Dim dr0 As DataRow() = readerDataSet.Tables(0).Select(str)
                If dr0.Length() > 0 Then
                    dr = dr0(0)
                    SetControls()
                End If
            End If
        End If
    End Sub

    Private Sub txtReaderName2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtReaderName2.KeyDown
        If e.KeyCode = Keys.Return Then
            If txtReaderName2.Text <> "" Then
                Dim str As String = "姓名='" & txtReaderName2.Text & "'"
                Dim dr0 As DataRow() = readerDataSet.Tables(0).Select(str)
                If dr0.Length() > 0 Then
                    dr = dr0(0)
                    SetControls()
                End If
            End If
        End If
    End Sub
End Class