admin_loaddata.vb

图书馆管理系统,是数据库的课程设计,报告里面包含了需求分析数据字典概念结构设计逻辑结构设计数据库物理设计数据库实施

        Me.Button3.Text = "全部清除"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(576, 456)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(112, 24)
        Me.Label3.TabIndex = 15
        Me.Label3.Text = "在借记录不能清除!"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(512, 456)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(64, 24)
        Me.Button4.TabIndex = 6
        Me.Button4.Text = "全部显示"
        '
        'ComboBox1
        '
        Me.ComboBox1.Items.AddRange(New Object() {"全部已还", "全部没还"})
        Me.ComboBox1.Location = New System.Drawing.Point(304, 456)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(80, 20)
        Me.ComboBox1.TabIndex = 16
        Me.ComboBox1.Text = "全部已还"
        '
        'win_loaddata
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.CancelButton = Me.Button2
        Me.ClientSize = New System.Drawing.Size(744, 485)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.btseach)
        Me.Controls.Add(Me.cbseacher)
        Me.Controls.Add(Me.tbkeyword)
        Me.Controls.Add(Me.ListView1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MaximumSize = New System.Drawing.Size(752, 512)
        Me.MinimumSize = New System.Drawing.Size(752, 512)
        Me.Name = "win_loaddata"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "图书馆管理系统--借阅数据"
        Me.ResumeLayout(False)

    End Sub

#End Region

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

    Private Sub btseach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btseach.Click
        Dim keyword, seacher As String, canseach As Boolean = True
        keyword = filter(Trim(tbkeyword.Text).ToString)
        seacher = filter(Trim(cbseacher.Text).ToString)
        If keyword = "" Then
            MessageBox.Show("关键词不能为空", "操作错误", MessageBoxButtons.OK, MessageBoxIcon.Information)
            tbkeyword.Focus()
            canseach = False
        ElseIf seacher = "" Then
            MessageBox.Show("查询方式不能为空", "操作错误", MessageBoxButtons.OK, MessageBoxIcon.Information)
            cbseacher.Focus()
            canseach = False
        End If
        If canseach Then
            seacher = changeseacher(seacher)
            sqlstr = "select * from landinfo where " & seacher & " like '%" & keyword & "%'"
            objDS = GetData(sqlstr)
            LoadData()
        End If
    End Sub

    Function LoadData()
        Dim i As Integer
        ListView1.Items.Clear()
        For i = 0 To objDS.Tables(0).Rows.Count - 1
            Dim li As New ListViewItem
            li.SubItems.Clear()
            li.SubItems(0).Text = objDS.Tables(0).Rows(i)("id").ToString
            li.SubItems.Add(showbookname(objDS.Tables(0).Rows(i)("bookid")))
            li.SubItems.Add(showstuname(objDS.Tables(0).Rows(i)("studentid")))
            li.SubItems.Add(objDS.Tables(0).Rows(i)("landtime").ToString)
            li.SubItems.Add(objDS.Tables(0).Rows(i)("returntime").ToString)
            li.SubItems.Add(objDS.Tables(0).Rows(i)("shouldreturntime").ToString)
            li.SubItems.Add(changeisreturn(objDS.Tables(0).Rows(i)("hadreturn").ToString))
            li.SubItems.Add(objDS.Tables(0).Rows(i)("canreland").ToString)
            ListView1.Items.Add(li) '插入到ListView1
        Next
    End Function

    Function showstuname(ByVal stuid) As String
        sqlstr2 = "select * from studentinfo where id=" & stuid & ""
        objDS2 = GetData(sqlstr2)
        If objDS2.Tables(0).Rows.Count > 0 Then
            Return objDS2.Tables(0).Rows(0)("name")
        Else
            Return "不详"
        End If
    End Function

    Function showbookname(ByVal bookid) As String
        sqlstr2 = "select * from bookinfo where id=" & bookid & ""
        objDS2 = GetData(sqlstr2)
        If objDS2.Tables(0).Rows.Count > 0 Then
            Return objDS2.Tables(0).Rows(0)("name")
        Else
            Return "不详"
        End If
    End Function

    Function changeisreturn(ByVal ist) As String
        If ist = 0 Then
            Return "否"
        Else
            Return "是"
        End If
    End Function

    Function changeseacher(ByVal fstring) As String
        Select Case fstring
            Case "书名"
                Return "bookname"
            Case "借阅学生"
                Return "studentname"
            Case Else
                Return "bookname"
        End Select
    End Function

    Function reload()
        sqlstr = "select * from landinfo"
        objDS = GetData(sqlstr)
        LoadData()
    End Function

    Private Sub win_loaddata_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sqlstr = "select * from landinfo"
        objDS = GetData(sqlstr)
        LoadData()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            If MsgBox("确定要删除这些记录吗?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "确定吗?") = MsgBoxResult.Yes Then
                sqlstr = "delete from landinfo where hadreturn <> 0"
                UpdateData(sqlstr)
                reload()
                MessageBox.Show("删除数据成功", "操作成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch
            MessageBox.Show("删除数据失败", "操作失败", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        reload()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If MsgBox("确定要删除这些记录吗?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "确定吗?") = MsgBoxResult.Yes Then
                Dim i As Integer
                For i = 0 To ListView1.SelectedItems.Count - 1
                    Dim lvcItem As ListView.SelectedListViewItemCollection = New ListView.SelectedListViewItemCollection(ListView1)
                    Dim bookid As Integer = lvcItem(i).SubItems(0).Text
                    sqlstr = "delete from landinfo where id = " & bookid & " and hadreturn <> 0"
                    UpdateData(sqlstr)
                Next
                reload()
                MessageBox.Show("删除数据成功", "操作成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch
            MessageBox.Show("删除数据失败", "操作失败", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem = "全部已还" Then
            sqlstr = "select * from landinfo where hadreturn=1"
        Else
            sqlstr = "select * from landinfo where hadreturn=0"
        End If
        objDS = GetData(sqlstr)
        LoadData()
    End Sub
End Class