frm_continue.vb

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

        Me.TextBox8.ReadOnly = True
        Me.TextBox8.Size = New System.Drawing.Size(144, 21)
        Me.TextBox8.TabIndex = 18
        Me.TextBox8.Text = ""
        '
        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(328, 128)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.ReadOnly = True
        Me.TextBox9.Size = New System.Drawing.Size(144, 21)
        Me.TextBox9.TabIndex = 19
        Me.TextBox9.Text = ""
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(328, 168)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.ReadOnly = True
        Me.TextBox10.Size = New System.Drawing.Size(144, 21)
        Me.TextBox10.TabIndex = 17
        Me.TextBox10.Text = ""
        '
        'TextBox11
        '
        Me.TextBox11.Location = New System.Drawing.Point(328, 216)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.ReadOnly = True
        Me.TextBox11.Size = New System.Drawing.Size(144, 21)
        Me.TextBox11.TabIndex = 15
        Me.TextBox11.Text = ""
        '
        'TextBox12
        '
        Me.TextBox12.Location = New System.Drawing.Point(328, 264)
        Me.TextBox12.Name = "TextBox12"
        Me.TextBox12.ReadOnly = True
        Me.TextBox12.Size = New System.Drawing.Size(144, 21)
        Me.TextBox12.TabIndex = 16
        Me.TextBox12.Text = ""
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(216, 328)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(75, 24)
        Me.Button2.TabIndex = 28
        Me.Button2.Text = "续借"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(336, 328)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(75, 24)
        Me.Button3.TabIndex = 27
        Me.Button3.Text = "关闭"
        '
        'Frm_Continue
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(512, 382)
        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_Continue"
        Me.Text = "续借图书"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private db As New DataBase
    '定义一个变量来保存归还日期
    Private rq1 As DateTime

    '加载
    Private Sub Frm_Continue_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
                Try
                    rq1 = dv8.Item(0)("应还日期")
                    If rq1 < System.DateTime.Today Then
                        MessageBox.Show("该图书借阅已超过应还日期，请到逾期管理进行操作！", "提示", MessageBoxButtons.OK)
                        Exit Sub
                    End If
                    Dim sqlstr3 As String
                    sqlstr3 = "update 借阅总表 set 应还日期 = '" & System.DateTime.Now.Today.AddDays(30) & "',应罚款='0' where 学号='" & TextBox1.Text.Trim & "' and 所借书号='" & TextBox2.Text.Trim & "'"
                    db.RunDelOrInsSQL(sqlstr3)
                    MessageBox.Show("续借成功！", "提示", MessageBoxButtons.OK)
                Catch ex As Exception
                    MessageBox.Show("续借失败！", "提示", MessageBoxButtons.OK)
                End Try
            Else
                MessageBox.Show("该学生未借有该图书，无法续借！", "提示", MessageBoxButtons.OK)
            End If
        End If

    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)
                TextBox1.Text = ""
                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)("库存")
            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)
                TextBox2.Text = ""
                Exit Sub
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            Exit Sub
        End Try
    End Sub
End Class