中文过刊录入.vb

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

        Me.Label2.Text = "刊名"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 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
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(376, 40)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(40, 23)
        Me.Button2.TabIndex = 10
        Me.Button2.Text = "修改"
        '
        'Button3
        '
        Me.Button3.Enabled = False
        Me.Button3.Location = New System.Drawing.Point(432, 40)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(40, 23)
        Me.Button3.TabIndex = 10
        Me.Button3.Text = "保存"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.DataGrid1)
        Me.GroupBox2.Controls.Add(Me.Button4)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 88)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(488, 224)
        Me.GroupBox2.TabIndex = 1
        Me.GroupBox2.TabStop = False
        '
        '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(480, 184)
        Me.DataGrid1.TabIndex = 0
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(416, 200)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(72, 23)
        Me.Button4.TabIndex = 10
        Me.Button4.Text = "修改"
        '
        '中文过刊录入
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(504, 313)
        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 现刊代号,页数／卷期号 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 & "',""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
            MsgBox(dingg)
            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
            myconn.Close()
            Button3.Enabled = True
        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 & "' where 财产号 like '" & dingg & "' "
            Dim mycomm As New OleDbCommand
            mycomm.Connection = myconn
            mycomm.CommandText() = sqlstr
            mycomm.ExecuteScalar()
            myconn.Close()
            chushi()
            Button3.Enabled = False
        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
        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("D1").Value = "备注"
                .Range("D1").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("D" & i.ToString).Value = dr("备注")
                    i += 1
                Next
            End With
        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
        Try
            PrintDocument1.Print()
        Catch ex As Exception
            MsgBox("不打印啦")
        End Try
    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 & ("\10.txt"))
    End Sub
End Class