loading
提示2
2.借书
该窗体主要完成读者借阅功能，也是最重要的一项功能，读者借阅图书与职工人员，管理人员才能完成借阅功能，，借阅后系统信息将保存，以便管理员能核对一下，以免出错，假如你已经超过最大的借阅量，系统还会自动提醒管理员该读者已经不能继续借书了。该阅子模块简单，计算机图书综合信息以图书编号归拢在一起，方便借
阅。代码见code目录下: borrow.txt 窗体代码： Option Explicit
Private Sub Command1_Click() '借出图书 Dim sql, sql1, sql2 As String Dim num As Integer
sql = \
sql1 = \工号]=?\sql2 = \图书编码]=?\Dim param1, param2, param3, param4 As ADODB.Parameter Dim cmd1, cmd2, cmd3, cmd4 As ADODBmand Set cmd1 = New ADODBmand Set cmd2 = New ADODBmand Set cmd3 = New ADODBmand Set cmd4 = New ADODBmand
Set param1 = New ADODB.Parameter Set param2 = New ADODB.Parameter Set param3 = New ADODB.Parameter Set param4 = New ADODB.Parameter '工号及书号检测 '检验工号及书号的合法性 With param1
.Direction = adParamInput .Type = adBSTR .Size = 8
.Value = Text1.Text End With
cmd1.Parameters.Append param1 cmd1mandText = sql1 cmd1mandType = adCmdText Set cmd1.ActiveConnection = con Set rst = cmd1.Execute If rst.RecordCount <= 0 Then frmMsg.Show
frmMsg.notice.Visible = True frmMsg.Text1.Text = \没有此工号!\ Exit Sub End If With param2
.Direction = adParamInput .Type = adBSTR .Size = 8
.Value = Text2.Text End With
cmd2.Parameters.Append param2 cmd2mandText = sql2 cmd2mandType = adCmdText Set cmd2.ActiveConnection = con Set rst1 = cmd2.Execute If rst1.RecordCount <= 0 Then
frmMsg.Show
frmMsg.notice.Visible = True frmMsg.Text1.Text = \没有此图书编号!\ Exit Sub End If
sql2 = \图书编码]=?\ rst1.Close With param3
.Direction = adParamInput .Type = adBSTR .Size = 8
.Value = Text2.Text End With
cmd3.Parameters.Append param3 cmd3mandText = sql2 cmd3mandType = adCmdText Set cmd3.ActiveConnection = con Set rst1 = cmd3.Execute '图书状态检测
If rst1.RecordCount > 0 Then frmMsg.Show
frmMsg.notice.Visible = True frmMsg.Text1.Text = \此图书已经被借阅！\ Exit Sub End If