流通管理.vb

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

        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 24)
        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
        '
        'Button6
        '
        Me.Button6.Enabled = False
        Me.Button6.Location = New System.Drawing.Point(240, 368)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(40, 23)
        Me.Button6.TabIndex = 13
        Me.Button6.Text = "挂失"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(136, 96)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 23)
        Me.Label8.TabIndex = 7
        Me.Label8.Text = "可借天数"
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(192, 96)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.ReadOnly = True
        Me.TextBox6.Size = New System.Drawing.Size(72, 21)
        Me.TextBox6.TabIndex = 10
        Me.TextBox6.Text = ""
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Button9)
        Me.GroupBox2.Controls.Add(Me.TextBox7)
        Me.GroupBox2.Controls.Add(Me.Label9)
        Me.GroupBox2.Controls.Add(Me.Button3)
        Me.GroupBox2.Controls.Add(Me.RadioButton2)
        Me.GroupBox2.Controls.Add(Me.RadioButton1)
        Me.GroupBox2.Controls.Add(Me.Label7)
        Me.GroupBox2.Controls.Add(Me.DataGrid3)
        Me.GroupBox2.Controls.Add(Me.Button2)
        Me.GroupBox2.Controls.Add(Me.TextBox5)
        Me.GroupBox2.Controls.Add(Me.Label5)
        Me.GroupBox2.Controls.Add(Me.Button7)
        Me.GroupBox2.Controls.Add(Me.Button8)
        Me.GroupBox2.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.GroupBox2.Location = New System.Drawing.Point(304, 8)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(320, 392)
        Me.GroupBox2.TabIndex = 2
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "流通信息"
        '
        'Button9
        '
        Me.Button9.Location = New System.Drawing.Point(232, 88)
        Me.Button9.Name = "Button9"
        Me.Button9.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Button9.Size = New System.Drawing.Size(56, 23)
        Me.Button9.TabIndex = 16
        Me.Button9.Text = "查询"
        '
        'TextBox7
        '
        Me.TextBox7.Location = New System.Drawing.Point(136, 88)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(88, 21)
        Me.TextBox7.TabIndex = 15
        Me.TextBox7.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(64, 86)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(72, 23)
        Me.Label9.TabIndex = 14
        Me.Label9.Text = "书名或刊名"
        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Button3
        '
        Me.Button3.Enabled = False
        Me.Button3.Location = New System.Drawing.Point(192, 368)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(40, 23)
        Me.Button3.TabIndex = 7
        Me.Button3.Text = "借出"
        '
        'RadioButton2
        '
        Me.RadioButton2.Cursor = System.Windows.Forms.Cursors.Default
        Me.RadioButton2.Location = New System.Drawing.Point(144, 16)
        Me.RadioButton2.Name = "RadioButton2"
        Me.RadioButton2.Size = New System.Drawing.Size(88, 24)
        Me.RadioButton2.TabIndex = 6
        Me.RadioButton2.Text = "过刊与图书"
        '
        'RadioButton1
        '
        Me.RadioButton1.Checked = True
        Me.RadioButton1.Location = New System.Drawing.Point(56, 16)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(80, 24)
        Me.RadioButton1.TabIndex = 5
        Me.RadioButton1.TabStop = True
        Me.RadioButton1.Text = "现刊"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 128)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 4
        Me.Label7.Text = "流通情况"
        '
        'DataGrid3
        '
        Me.DataGrid3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.DataGrid3.DataMember = ""
        Me.DataGrid3.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid3.Location = New System.Drawing.Point(8, 144)
        Me.DataGrid3.Name = "DataGrid3"
        Me.DataGrid3.Size = New System.Drawing.Size(304, 224)
        Me.DataGrid3.TabIndex = 3
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(232, 56)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(56, 23)
        Me.Button2.TabIndex = 2
        Me.Button2.Text = "查询"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(136, 56)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(88, 21)
        Me.TextBox5.TabIndex = 1
        Me.TextBox5.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(24, 56)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(112, 24)
        Me.Label5.TabIndex = 0
        Me.Label5.Text = "现刊代号或财产号"
        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Button7
        '
        Me.Button7.Enabled = False
        Me.Button7.Location = New System.Drawing.Point(232, 368)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(40, 23)
        Me.Button7.TabIndex = 13
        Me.Button7.Text = "续借"
        '
        'Button8
        '
        Me.Button8.Enabled = False
        Me.Button8.Location = New System.Drawing.Point(272, 368)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(40, 23)
        Me.Button8.TabIndex = 13
        Me.Button8.Text = "挂失"
        '
        '流通管理
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(648, 417)
        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.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim sql As String
    Dim cmd4, cmd1, cmd2, cmd3 As New OleDbCommand
    Dim da4, da, da2, da3 As New OleDbDataAdapter
    Dim dsa4, dsa, dsa2, dsa3 As New DataSet
    Dim shuzi As String
    Dim gh As String
    Dim i As Integer
    Dim datt As Date
    Dim datt3 As Date
    Dim eee As Integer
    Sub tushu1()
        Try
            If TextBox1.Text = "" Then
                MsgBox("敬请输入<图书证号>，谢谢")
                Exit Sub
            End If
            cmd2 = New OleDbCommand("select  * from 中外文现刊表 where 图书证号='" & TextBox1.Text & "'", myconn)
            da2 = New OleDbDataAdapter(cmd2)
            dsa2 = New DataSet("中外文现刊表")
            da2.Fill(dsa2)
            DataGrid1.DataSource = dsa2.Tables(0)
            myconn.Close()
            '显示过刊
            cmd3 = New OleDbCommand("select  * from 过刊图书表 where 图书证号='" & TextBox1.Text & "'", myconn)
            da3 = New OleDbDataAdapter(cmd3)
            dsa3 = New DataSet("中外文现刊表")
            da3.Fill(dsa3)
            DataGrid2.DataSource = dsa3.Tables(0)
            myconn.Close()
        Catch ex As Exception
            MsgBox("输入有误")
        End Try
    End Sub
    Sub tushu2()
        If TextBox5.Text = "" Then
            MsgBox("敬请输入<现刊代号或财产号>，谢谢")
            Exit Sub
        End If
        If RadioButton1.Checked Then
            '现刊
            sql = "select  * from 中外文现刊表 where 现刊代号='" & TextBox5.Text & "'"
        Else
            sql = "select  * from 过刊图书表 where 财产号='" & TextBox5.Text & "'"
        End If
        cmd4 = New OleDbCommand(sql, myconn)
        da4 = New OleDbDataAdapter(cmd4)
        dsa4 = New DataSet("中外文现刊表")
        da4.Fill(dsa4)
        DataGrid3.DataSource = dsa4.Tables(0)
        myconn.Close()
    End Sub
    Sub tushu3()
        If TextBox7.Text = "" Then
            MsgBox("敬请输入<书名或刊名>，谢谢")
            Exit Sub
        End If
        If RadioButton1.Checked Then
            '现刊
            sql = "select  * from 中外文现刊表 where 刊名 like '" & "%" & TextBox7.Text & "%" & "'"
        Else
            sql = "select  * from 过刊图书表 where 书刊名 like '" & "%" & TextBox7.Text & "%" & "'"
        End If
        cmd4 = New OleDbCommand(sql, myconn)
        da4 = New OleDbDataAdapter(cmd4)
        dsa4 = New DataSet("中外文现刊表")
        da4.Fill(dsa4)
        DataGrid3.DataSource = dsa4.Tables(0)
        myconn.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextBox1.Text = "" Then
                MsgBox("敬请输入<图书证号>，谢谢")
                Exit Sub
            End If
            cmd1 = New OleDbCommand("select 姓名,职称,可借数,可借天数 from 用户 where 图书证号 like '" & TextBox1.Text & "'", myconn)
            da = New OleDbDataAdapter(cmd1)
            dsa = New DataSet("图书证号")
            Dim read As OleDbDataReader
            da.Fill(dsa)
            TextBox2.Text = dsa.Tables(0).Rows(0)("姓名").ToString
            TextBox3.Text = dsa.Tables(0).Rows(0)("职称").ToString
            TextBox4.Text = dsa.Tables(0).Rows(0)("可借数").ToString & "本"
            TextBox6.Text = dsa.Tables(0).Rows(0)("可借天数").ToString & "天"
            myconn.Close()
            tushu1()
            eee = 1
            Button4.Enabled = True
            Button5.Enabled = True
            Button6.Enabled = True
        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
            tushu2()
            Button3.Enabled = True
            Button7.Enabled = True
            Button8.Enabled = True
        Catch ex As Exception

        End Try
    End Sub
    Private Sub DataGrid3_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid3.CurrentCellChanged
        Try
            If RadioButton1.Checked Then
                If DataGrid3.Item(DataGrid3.CurrentCell.RowNumber, 8) = " " Then
                    MsgBox("此书可借")
                Else
                    MsgBox("此书已经被借出")
                    Exit Sub
                End If
            Else
                If DataGrid3.Item(DataGrid3.CurrentCell.RowNumber, 13) = " " Then
                    MsgBox("此书可借")
                Else
                    MsgBox("此书已经被借出")