frm_restitutionbook.vb

图书管理系统 VB加SQL 数据库在文件里的DATA里 进到SQL里附加进去就可以使用了

        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.ReadOnly = True
        Me.TextBox9.Size = New System.Drawing.Size(152, 21)
        Me.TextBox9.TabIndex = 15
        Me.TextBox9.Text = ""
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(315, 168)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.ReadOnly = True
        Me.TextBox10.Size = New System.Drawing.Size(152, 21)
        Me.TextBox10.TabIndex = 20
        Me.TextBox10.Text = ""
        '
        'TextBox11
        '
        Me.TextBox11.Location = New System.Drawing.Point(315, 216)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.ReadOnly = True
        Me.TextBox11.Size = New System.Drawing.Size(152, 21)
        Me.TextBox11.TabIndex = 19
        Me.TextBox11.Text = ""
        '
        'TextBox12
        '
        Me.TextBox12.Location = New System.Drawing.Point(315, 264)
        Me.TextBox12.Name = "TextBox12"
        Me.TextBox12.ReadOnly = True
        Me.TextBox12.Size = New System.Drawing.Size(152, 21)
        Me.TextBox12.TabIndex = 18
        Me.TextBox12.Text = ""
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(224, 328)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(75, 24)
        Me.Button2.TabIndex = 27
        Me.Button2.Text = "归还"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(344, 328)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(75, 24)
        Me.Button3.TabIndex = 27
        Me.Button3.Text = "关闭"
        '
        'Frm_RestitutionBook
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(506, 381)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.TextBox10)
        Me.Controls.Add(Me.TextBox11)
        Me.Controls.Add(Me.TextBox12)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button3)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Name = "Frm_RestitutionBook"
        Me.Text = "归还图书"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private db As New DataBase
    '定义一个变量来保存库存信息
    Private kc As String
    '定义一个变量来保存已借出信息
    Private yjc As String
    '定义一个变量来保存归还日期
    Private rq As DateTime

    '加载
    Private Sub Frm_RestitutionBook_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    '清空
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
    End Sub
    '归还
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text.Trim = "" Then
            MessageBox.Show("请输入学号！", "提示", MessageBoxButtons.OK)
            Exit Sub
        End If
        If TextBox2.Text.Trim = "" Then
            MessageBox.Show("请输入书号！", "提示", MessageBoxButtons.OK)
            Exit Sub
        End If
        If TextBox3.Text.Trim = "" Then
            MessageBox.Show("请输入学号后按回车键！", "提示", MessageBoxButtons.OK)
            Exit Sub
        End If
        If TextBox8.Text.Trim = "" Then
            MessageBox.Show("请输入书号后按回车键！", "提示", MessageBoxButtons.OK)
            Exit Sub
        End If
        If TextBox1.Text.Trim <> "" And TextBox2.Text.Trim <> "" Then
            Dim sqlstr9 As String
            sqlstr9 = "select * from 借阅总表 where 学号='" & TextBox1.Text.Trim & "' and 所借书号='" & TextBox2.Text.Trim & "'"
            Dim dv8 As New DataView
            dv8 = db.RunSelectSQL(sqlstr9)
            If dv8.Count = 0 Then
                MessageBox.Show("该学生未借有该图书，不能归还！", "提示", MessageBoxButtons.OK)
                Exit Sub
            Else
                rq = dv8.Item(0)("应还日期")
            End If
        End If
        If rq < System.DateTime.Today Then
            MessageBox.Show("该图书借阅已超过应还日期，请到逾期管理进行操作！", "提示", MessageBoxButtons.OK)
            Exit Sub
        End If

        Dim sqlstr4 As String
        sqlstr4 = "Insert into 归还总表(学号,归还书号,归还日期) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & System.DateTime.Today & "')"
        Try
            db.RunDelOrInsSQL(sqlstr4)
            Dim sqlstr5 As String
            sqlstr5 = "update 书籍总表 set 库存='" & TextBox12.Text + 1 & "',已借出='" & yjc - 1 & "' where 书号='" & TextBox2.Text & "'"
            db.RunDelOrInsSQL(sqlstr5)
            Dim sqlstr6 As String
            sqlstr6 = "delete from 借阅总表 where 学号='" & TextBox1.Text & "' and 所借书号='" & TextBox2.Text & "'"
            db.RunDelOrInsSQL(sqlstr6)
            MessageBox.Show("归还操作成功！", "提示", MessageBoxButtons.OK)
            Exit Sub
        Catch ex As Exception
            MessageBox.Show("归还操作失败！", "提示", MessageBoxButtons.OK)
        End Try
    End Sub

    '关闭
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    'TextBox1的KeyDown事件
    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyValue = 13 Then
            If TextBox1.Text.Trim = "" Then
                MessageBox.Show("请输入学号！", "提示", MessageBoxButtons.OK)
                Exit Sub
            End If

            Dim sqlstr1 As String
            Dim dv1 As New DataView
            sqlstr1 = "select * from 学生总表 where 学号=" & TextBox1.Text.Trim
            Try
                dv1 = db.RunSelectSQL(sqlstr1)
                TextBox3.Text = dv1.Item(0)("姓名")
                TextBox4.Text = dv1.Item(0)("性别")
                TextBox5.Text = dv1.Item(0)("班别")
                TextBox6.Text = dv1.Item(0)("宿舍")
                TextBox7.Text = dv1.Item(0)("联系电话")
            Catch ex As Exception
                MessageBox.Show("您输入的学号不存在！请重新输入！", "提示", MessageBoxButtons.OK)
                TextBox1.Text = ""
                Exit Sub
            End Try
        Else
            Exit Sub
        End If

        Dim sqlstr8 As String
        Dim dv5 As New DataView
        sqlstr8 = "select * from 借阅总表 where 学号='" & TextBox1.Text & "'"
        Try
            dv5 = db.RunSelectSQL(sqlstr8)
            If dv5.Count <> 0 Then
                Exit Try
            Else
                MessageBox.Show("您输入的学号在借出记录中不存在！请重新输入！", "提示", MessageBoxButtons.OK)
                Exit Sub
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            Exit Sub
        End Try
    End Sub

    'TextBox2的KeyDown事件
    Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyCode = Keys.Enter Then
            If TextBox2.Text.Trim = "" Then
                MessageBox.Show("请输入书号！", "提示", MessageBoxButtons.OK)
                Exit Sub
            End If

            Dim sqlstr2 As String
            Dim dv2 As New DataView
            sqlstr2 = "select * from 书籍总表 where 书号=" & TextBox2.Text.Trim
            Try
                dv2 = db.RunSelectSQL(sqlstr2)
                TextBox8.Text = dv2.Item(0)("书名")
                TextBox9.Text = dv2.Item(0)("作者")
                TextBox10.Text = dv2.Item(0)("出版社")
                TextBox11.Text = dv2.Item(0)("类别")
                TextBox12.Text = dv2.Item(0)("库存")
                kc = dv2.Item(0)("库存")
                yjc = dv2.Item(0)("已借出")
            Catch ex As Exception
                MessageBox.Show("您输入的书号不存在！请重新输入！", "提示", MessageBoxButtons.OK)
                TextBox2.Text = ""
                Exit Sub
            End Try
        Else
            Exit Sub
        End If

        Dim sqlstr7 As String
        Dim dv4 As New DataView
        sqlstr7 = "select * from 借阅总表 where 所借书号='" & TextBox2.Text & "'"
        Try
            dv4 = db.RunSelectSQL(sqlstr7)
            If dv4.Count <> 0 Then
                Exit Try
            Else
                MessageBox.Show("您输入的书号在借出记录中不存在！请重新输入！", "提示", MessageBoxButtons.OK)
                Exit Sub
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            Exit Sub
        End Try
    End Sub
End Class