readermanage.vb

图书借阅系统

        Me.btnDelete.Location = New System.Drawing.Point(16, 232)
        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(104, 232)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.Size = New System.Drawing.Size(64, 32)
        Me.btnClose.TabIndex = 1
        Me.btnClose.Text = "关闭"
        '
        'btnDown
        '
        Me.btnDown.Location = New System.Drawing.Point(16, 80)
        Me.btnDown.Name = "btnDown"
        Me.btnDown.Size = New System.Drawing.Size(64, 32)
        Me.btnDown.TabIndex = 1
        Me.btnDown.Text = "下一条"
        '
        'btnEnd
        '
        Me.btnEnd.Location = New System.Drawing.Point(96, 80)
        Me.btnEnd.Name = "btnEnd"
        Me.btnEnd.Size = New System.Drawing.Size(64, 32)
        Me.btnEnd.TabIndex = 1
        Me.btnEnd.Text = "最后一条"
        '
        'btnUp
        '
        Me.btnUp.Location = New System.Drawing.Point(16, 32)
        Me.btnUp.Name = "btnUp"
        Me.btnUp.Size = New System.Drawing.Size(64, 32)
        Me.btnUp.TabIndex = 1
        Me.btnUp.Text = "上一条"
        '
        '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 = "第一条"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.btnDown)
        Me.GroupBox2.Controls.Add(Me.btnEnd)
        Me.GroupBox2.Controls.Add(Me.btnUp)
        Me.GroupBox2.Controls.Add(Me.btnFirst)
        Me.GroupBox2.Controls.Add(Me.btnSave)
        Me.GroupBox2.Controls.Add(Me.btnModify)
        Me.GroupBox2.Controls.Add(Me.btnDelete)
        Me.GroupBox2.Controls.Add(Me.btnClose)
        Me.GroupBox2.Location = New System.Drawing.Point(464, 16)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(176, 288)
        Me.GroupBox2.TabIndex = 2
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "读者定位"
        '
        'frmReaderManage
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(656, 394)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        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 = readerDataSet.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()
                    MsgBox("修改成功")
                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
                MsgBox("删除成功")
            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 btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

    End Sub
End Class