图书录入.vb

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

        Me.TextBox1.Location = New System.Drawing.Point(64, 16)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.TabIndex = 6
        Me.TextBox1.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 62)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(48, 23)
        Me.Label7.TabIndex = 5
        Me.Label7.Text = "单价"
        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(336, 38)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 23)
        Me.Label6.TabIndex = 4
        Me.Label6.Text = "出版日期"
        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(168, 38)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(64, 23)
        Me.Label5.TabIndex = 3
        Me.Label5.Text = "出版社"
        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 38)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(48, 23)
        Me.Label4.TabIndex = 2
        Me.Label4.Text = "页数"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(168, 14)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 23)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "书名"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 14)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(48, 23)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "财产号"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(336, 14)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 23)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "著译者"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Button3
        '
        Me.Button3.Enabled = False
        Me.Button3.Location = New System.Drawing.Point(400, 96)
        Me.Button3.Name = "Button3"
        Me.Button3.TabIndex = 20
        Me.Button3.Text = "保存"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Button4)
        Me.GroupBox2.Controls.Add(Me.DataGrid1)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 136)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(512, 184)
        Me.GroupBox2.TabIndex = 1
        Me.GroupBox2.TabStop = False
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(192, 160)
        Me.Button4.Name = "Button4"
        Me.Button4.TabIndex = 1
        Me.Button4.Text = "修改"
        '
        'DataGrid1
        '
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(8, 16)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(496, 144)
        Me.DataGrid1.TabIndex = 0
        '
        '图书录入
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(528, 321)
        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 sqlstr As String
    Dim dingg As String
    Dim mycomm As New OleDbCommand("select 财产号,书刊名 as 书名,著译者,页数／卷期号 as 页数 ,出版社,出版日期,单价,ＩＳＢＮ,索书号,备注 from 过刊图书表 where 分类 like ""%图书%""", myconn)
    Dim mydataad As OleDbDataAdapter = New OleDbDataAdapter(mycomm)
    Dim mydataset As DataSet = New DataSet
    Sub chushi()
        If myconn.State <> ConnectionState.Open Then
            myconn.Open()
        End If
        mydataset.Clear()
        mydataad.Fill(mydataset)
        DataGrid1.DataSource = mydataset.Tables(0)
        myconn.Close()
    End Sub

    Private Sub 图书录入_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            chushi()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            sqlstr = "insert into 过刊图书表(财产号,书刊名,著译者,页数／卷期号,出版社,出版日期,单价,ＩＳＢＮ,索书号,备注,借阅日期,应归还日期,图书证号,分类,挂失) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & DateTimePicker1.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "',""1000-1-1"",""1000-1-1"","" "",""图书"",""No"")"
            Dim myco As New OleDbCommand
            myco = New OleDbCommand(sqlstr, myconn)
            myco.CommandText() = sqlstr
            myco.ExecuteScalar()
            myconn.Close()
            chushi()
        Catch ex As Exception
            MsgBox("库里已经存在同样财产号的数据,请检查一下是否有误,谢谢！")
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            Dim comm As New OleDbCommand("select  * from 过刊图书表 where 财产号 like '" & dingg & "' ", myconn)
            Dim dataad As OleDbDataAdapter = New OleDbDataAdapter(comm)
            Dim dataset As DataSet = New DataSet
            dataset.Clear()
            dataad.Fill(dataset)
            TextBox1.Text = dataset.Tables(0).Rows(0)("财产号").ToString
            TextBox2.Text = dataset.Tables(0).Rows(0)("书刊名").ToString
            TextBox3.Text = dataset.Tables(0).Rows(0)("著译者").ToString
            TextBox4.Text = dataset.Tables(0).Rows(0)("页数／卷期号").ToString
            TextBox5.Text = dataset.Tables(0).Rows(0)("出版社").ToString
            DateTimePicker1.Text = dataset.Tables(0).Rows(0)("出版日期").ToString
            TextBox7.Text = dataset.Tables(0).Rows(0)("单价").ToString
            TextBox8.Text = dataset.Tables(0).Rows(0)("ＩＳＢＮ").ToString
            TextBox9.Text = dataset.Tables(0).Rows(0)("索书号").ToString
            TextBox10.Text = dataset.Tables(0).Rows(0)("备注").ToString
            myconn.Close()
            Button3.Enabled = True
            Button1.Enabled = False
        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
            dingg = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            sqlstr = "update 过刊图书表 set 财产号='" & TextBox1.Text & "',书刊名='" & TextBox2.Text & "',著译者='" & TextBox3.Text & "',页数／卷期号='" & TextBox4.Text & "',出版社='" & TextBox5.Text & "',出版日期='" & DateTimePicker1.Text & "',单价='" & TextBox7.Text & "',ＩＳＢＮ='" & TextBox8.Text & "',索书号='" & TextBox9.Text & "',备注='" & TextBox10.Text & "'  where 财产号 like '" & dingg & "'"
            Dim mycomm As New OleDbCommand
            mycomm.Connection = myconn
            mycomm.CommandText() = sqlstr
            mycomm.ExecuteScalar()
            myconn.Close()
            chushi()
            Button3.Enabled = False
            Button1.Enabled = True
        Catch ex As Exception

        End Try
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            Dim drc As New OleDbCommandBuilder(mydataad)
            mydataad.Update(mydataset)
            chushi()
        Catch ex As Exception

        End Try
    End Sub
    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        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 = "ISBN"
            .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 mydataset.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("G" & i.ToString).Value = dr("单价")
                .Range("H" & i.ToString).Value = dr("ISBN")
                .Range("I" & i.ToString).Value = dr("索书号")
                .Range("J" & i.ToString).Value = dr("备注")
                i += 1
            Next
        End With
    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 & ("\6.txt"))
    End Sub
End Class