(完整版)计算机信息管理毕业论文

提示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