📄 frm_lendingbook.vb
字号:
'Label12
'
Me.Label12.Location = New System.Drawing.Point(256, 256)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(48, 23)
Me.Label12.TabIndex = 0
Me.Label12.Text = "库存："
'
'TextBox8
'
Me.TextBox8.Location = New System.Drawing.Point(312, 72)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.ReadOnly = True
Me.TextBox8.Size = New System.Drawing.Size(144, 21)
Me.TextBox8.TabIndex = 1
Me.TextBox8.Text = ""
'
'TextBox9
'
Me.TextBox9.Location = New System.Drawing.Point(312, 120)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.ReadOnly = True
Me.TextBox9.Size = New System.Drawing.Size(144, 21)
Me.TextBox9.TabIndex = 1
Me.TextBox9.Text = ""
'
'TextBox10
'
Me.TextBox10.Location = New System.Drawing.Point(312, 160)
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.ReadOnly = True
Me.TextBox10.Size = New System.Drawing.Size(144, 21)
Me.TextBox10.TabIndex = 1
Me.TextBox10.Text = ""
'
'TextBox11
'
Me.TextBox11.Location = New System.Drawing.Point(312, 208)
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.ReadOnly = True
Me.TextBox11.Size = New System.Drawing.Size(144, 21)
Me.TextBox11.TabIndex = 1
Me.TextBox11.Text = ""
'
'TextBox12
'
Me.TextBox12.Location = New System.Drawing.Point(312, 256)
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.ReadOnly = True
Me.TextBox12.Size = New System.Drawing.Size(144, 21)
Me.TextBox12.TabIndex = 1
Me.TextBox12.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(80, 320)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 24)
Me.Button1.TabIndex = 2
Me.Button1.Text = "清空"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(200, 320)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 24)
Me.Button2.TabIndex = 2
Me.Button2.Text = "借出"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(320, 320)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 24)
Me.Button3.TabIndex = 2
Me.Button3.Text = "关闭"
'
'Frm_LendingBook
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(480, 373)
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_LendingBook"
Me.Text = "借出图书"
Me.ResumeLayout(False)
End Sub
#End Region
Private db As New DataBase
'定义一个变量来保存库存信息
Private kc As String
'定义一个变量来保存已借出信息
Private yjc As String
'加载
Private Sub Frm_LendingBook_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 kc = 0 Then
MessageBox.Show("该图书已无库存，无法借出！", "提示", MessageBoxButtons.OK)
Exit Sub
End If
Dim sqlstr4 As String
sqlstr4 = "Insert into 借阅总表(学号,所借书号,借阅日期,应还日期,应罚款) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & System.DateTime.Now.Today & "','" & System.DateTime.Now.Today.AddDays(30) & "','0')"
Try
db.RunDelOrInsSQL(sqlstr4)
Dim sqlstr5 As String
sqlstr5 = "update 书籍总表 set 库存='" & TextBox12.Text - 1 & "',已借出='" & yjc + 1 & "' where 书号='" & TextBox2.Text & "'"
db.RunDelOrInsSQL(sqlstr5)
MessageBox.Show("借出操作成功！", "提示", MessageBoxButtons.OK)
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 = ""
End Try
Else
Exit Sub
End If
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 = ""
End Try
Else
Exit Sub
End If
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -