读者管理.vb

图书管理系统 万千可以用于小规模的图书管理拉 用access作为数据库

        Me.Label5.TabIndex = 8
        Me.Label5.Text = "班级"
        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(152, 40)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 24)
        Me.Label4.TabIndex = 6
        Me.Label4.Text = "年级"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 40)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 23)
        Me.Label3.TabIndex = 4
        Me.Label3.Text = "专业"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(208, 16)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.TabIndex = 3
        Me.TextBox2.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(152, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 24)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "姓名"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'TextBox1
        '
        Me.TextBox1.Enabled = False
        Me.TextBox1.Location = New System.Drawing.Point(64, 16)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(80, 21)
        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(56, 23)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "图书证号"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(64, 88)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(80, 21)
        Me.TextBox3.TabIndex = 14
        Me.TextBox3.Text = ""
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(368, 40)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.TabIndex = 3
        Me.TextBox4.Text = ""
        '
        'ComboBox5
        '
        Me.ComboBox5.Items.AddRange(New Object() {"男", "女", "中性"})
        Me.ComboBox5.Location = New System.Drawing.Point(368, 16)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(104, 20)
        Me.ComboBox5.TabIndex = 18
        Me.ComboBox5.Text = "男"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.DataGrid1)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 120)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(488, 248)
        Me.GroupBox2.TabIndex = 2
        Me.GroupBox2.TabStop = False
        '
        'DataGrid1
        '
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(0, 16)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(480, 224)
        Me.DataGrid1.TabIndex = 0
        '
        '读者管理
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(496, 377)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.MaximizeBox = False
        Me.Menu = Me.MainMenu1
        Me.Name = "读者管理"
        Me.Text = "读者管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim cmd4 As New OleDbCommand
    Dim cmda As New OleDbCommand("select * from 用户", myconn)
    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmda)
    Dim dsa As DataSet = New DataSet("用户表")
    Dim a As String
    Sub yonghu()
        dsa.Clear()
        da.Fill(dsa)
        DataGrid1.DataSource = dsa.Tables(0)
        myconn.Close()
    End Sub
    Sub zidian()
        Dim dcmda As New OleDbCommand("select distinct 年级 from 字典表 order by 年级 ", myconn) 'where 分类='" & 0 & "'
        Dim dda As OleDbDataAdapter = New OleDbDataAdapter(dcmda)
        Dim ddsa As DataSet = New DataSet
        ddsa.Clear()
        dda.Fill(ddsa)
        ComboBox4.DataSource = ddsa.Tables(0)
        ComboBox4.DisplayMember = "年级"
        Dim dcmda1 As New OleDbCommand("select distinct 专业代号, 专业名 from 字典表1 order by 专业代号 ", myconn) 'where 分类='" & 0 & "'
        Dim dda1 As OleDbDataAdapter = New OleDbDataAdapter(dcmda1)
        Dim ddsa1 As DataSet = New DataSet
        ddsa1.Clear()
        dda1.Fill(ddsa1)
        ComboBox3.DataSource = ddsa1.Tables(0)
        ComboBox3.DisplayMember = "专业名"
        ComboBox3.ValueMember = "专业代号"
        Dim dcmda2 As New OleDbCommand("select distinct 级别代号,职称 from 字典表2 order by 级别代号 ", myconn) 'where 分类='" & 0 & "'
        Dim dda2 As OleDbDataAdapter = New OleDbDataAdapter(dcmda2)
        Dim ddsa2 As DataSet = New DataSet
        ddsa2.Clear()
        dda2.Fill(ddsa2)
        ComboBox1.DataSource = ddsa2.Tables(0)
        ComboBox1.DisplayMember = "职称"
        ComboBox1.ValueMember = "级别代号"
        myconn.Close()
    End Sub
    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Try
            Dim excelApp1 As New Microsoft.Office.Interop.Excel.Application
            Dim excelBook1 As Microsoft.Office.Interop.Excel.Workbook = excelApp1.Workbooks.Add
            Dim excelWorksheet1 As Microsoft.Office.Interop.Excel.Worksheet = CType(excelBook1.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
            excelApp1.Visible = True
            With excelWorksheet1
                .Columns().ColumnWidth = 15
                .Range("A1").Value = "图书证号"
                .Range("A1").Font.Bold = True
                .Range("B1").Value = "姓名"
                .Range("B1").Font.Bold = True
                .Range("C1").Value = "性别"
                .Range("C1").Font.Bold = True
                .Range("D1").Value = "专业名"
                .Range("D1").Font.Bold = True
                .Range("E1").Value = "年级"
                .Range("E1").Font.Bold = True
                .Range("F1").Value = "班级"
                .Range("F1").Font.Bold = True
                .Range("G1").Value = "登到日期"
                .Range("G1").Font.Bold = True
                .Range("H1").Value = "到期日期"
                .Range("H1").Font.Bold = True
                .Range("I1").Value = "职称"
                .Range("I1").Font.Bold = True
                .Range("J1").Value = "可借数"
                .Range("J1").Font.Bold = True
                Dim i As Integer = 2
                Dim dr As DataRow
                For Each dr In dsa.Tables(0).Rows
                    .Range("A" & i.ToString).Value = dr("图书证号")
                    .Range("B" & i.ToString).Value = dr("姓名")
                    .Range("C" & i.ToString).Value = dr("性别")
                    .Range("D" & i.ToString).Value = dr("专业名")
                    .Range("E" & i.ToString).Value = dr("年级")
                    .Range("F" & i.ToString).Value = dr("班级")
                    .Range("C" & i.ToString).Value = dr("登记日期")
                    .Range("D" & i.ToString).Value = dr("到期日期")
                    .Range("E" & i.ToString).Value = dr("职称")
                    .Range("F" & i.ToString).Value = dr("可借数")
                    i += 1
                Next

            End With
        Catch ex As Exception
        End Try
    End Sub

    Private Sub 读者管理_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            yonghu()
            zidian()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            Static tushuzhen As String
            tushuzhen = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
            Dim sql As String
            Dim commd As OleDbCommand = New OleDbCommand("select * from 用户 where 图书证号='" & tushuzhen & "'", myconn)
            Dim adat As OleDbDataAdapter = New OleDbDataAdapter(commd)
            Dim daset As DataSet = New DataSet
            adat.Fill(daset)
            TextBox1.Text = daset.Tables(0).Rows(0)("图书证号").ToString
            TextBox2.Text = daset.Tables(0).Rows(0)("姓名").ToString
            ComboBox1.Text = daset.Tables(0).Rows(0)("职称").ToString
            ComboBox2.Text = daset.Tables(0).Rows(0)("挂失").ToString
            ComboBox3.Text = daset.Tables(0).Rows(0)("专业名").ToString
            ComboBox4.Text = daset.Tables(0).Rows(0)("年级").ToString
            TextBox3.Text = daset.Tables(0).Rows(0)("可借数").ToString
            TextBox4.Text = daset.Tables(0).Rows(0)("班级").ToString
            ComboBox5.Text = daset.Tables(0).Rows(0)("性别").ToString
            DateTimePicker1.Text = daset.Tables(0).Rows(0)("登记日期").ToString
            DateTimePicker2.Text = daset.Tables(0).Rows(0)("到期日期").ToString
            MenuItem10.Enabled = True
            MenuItem7.Enabled = True
            daset.Clear()
            myconn.Close()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            Dim strsql As String
            strsql = "update 用户表 set 姓名='" & TextBox2.Text & "',级别代号='" & ComboBox1.SelectedValue & "',挂失='" & ComboBox2.Text & "',专业代号='" & ComboBox3.SelectedValue & "',年级='" & ComboBox4.Text & "',可借数='" & TextBox3.Text & "',班级='" & TextBox4.Text & "',性别='" & ComboBox5.Text & "',到期日期='" & DateTimePicker2.Text & "' where 图书证号='" & TextBox1.Text & "'"
            cmd4 = New OleDbCommand
            cmd4.Connection = myconn
            cmd4.CommandText() = strsql
            cmd4.ExecuteScalar()
            myconn.Close()
            yonghu()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        TextBox1.Enabled = False
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        Try
            TextBox1.Enabled = True
            MenuItem11.Enabled = True
            MenuItem10.Enabled = False
            yonghu()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            Dim strsql As String
            strsql = "insert into  用户表(图书证号,姓名,级别代号,挂失,专业代号,年级,可借数,班级,性别,到期日期,登记日期) values('" & TextBox1.Text & "','" & TextBox2.Text & "', '" & ComboBox1.SelectedValue & "' ,'" & ComboBox2.Text & "', '" & ComboBox3.SelectedValue & "', '" & ComboBox4.Text & "', '" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox5.Text & "','" & DateTimePicker2.Text & "' ,'" & DateTimePicker1.Text & "')"
            cmd4 = New OleDbCommand
            cmd4.Connection = myconn
            cmd4.CommandText() = strsql
            cmd4.ExecuteNonQuery()
            myconn.Close()
            yonghu()
            TextBox1.Enabled = False
        Catch ex As Exception
        End Try
    End Sub
    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New Point(0, 0), Me.Size))
        Me.InvokePaint(DataGrid1, myPaintArgs)
    End Sub

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

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Process.Start(Application.StartupPath & ("\2.txt"))
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            Dim strsql As String
            strsql = "delete * from 用户表  where 图书证号='" & TextBox1.Text & "'"
            cmd4 = New OleDbCommand
            cmd4.Connection = myconn
            cmd4.CommandText() = strsql
            cmd4.ExecuteScalar()
            myconn.Close()
            yonghu()
        Catch ex As Exception
        End Try
    End Sub
End Class