MsgBox \用户口令须为6位字符串！\系统用户管理\ txtPwd.SetFocus txtPwd.SelStart = 0
txtPwd.SelLength = Len(txtPwd) ElseIf Not txtAuth Like \
MsgBox \用户权限必须为0或1\系统用户管理\ txtAuth = \
txtAuth.SetFocus Else
Set objcopy = Library_Manage.rsSysUsers.Clone '对错？ With objcopy
If .RecordCount > 0 Then .MoveFirst
.Find \编号\ If Not .EOF And .AbsolutePosition <> Library_Manage.rsSysUsers.AbsolutePosition Then
MsgBox \编号:\& Trim(txtNum) & \已被使用，请选择其他编号！\vbCritical, \系统用户管理\ txtNum.SetFocus txtNum.SelStart = 0
txtNum.SelLength = Len(txtNum) Exit Sub Else
'保存记录
Library_Manage.rsSysUsers.Update
MsgBox \数据保存成功！\系统用户管理\ cmdAdd.Enabled = True cmdDel.Enabled = True
isAdding = False: picNavigation.Enabled = True End If End With End If End Sub
Private Sub Form_Load() cmdMove(0).Value = True End Sub
（3）读者数据管理窗体界面
图5-3 读者数据管理窗体
读者数据管理窗体代码
Library_Manage.Library_Manage_Con.Execute \读者类别\ With Library_Manage.ReaderType
If .State = adStateClosed Then .Open .AddNew
.Fields(\编号\ .Fields(\名称\特殊\
.Fields(\借书量\ .Fields(\借书期\ .Fields(\有效期\ .Update .AddNew
.Fields(\编号\ .Fields(\名称\馆员\
.Fields(\借书量\ .Fields(\借书期\ .Fields(\有效期\ .Update .AddNew .Update .AddNew
.Fields(\编号\ .Fields(\名称\教师\
.Fields(\借书量\ .Fields(\借书期\ .Fields(\有效期\ .Update
.AddNew
.Fields(\编号\ .Fields(\名称\学生\
.Fields(\借书量\ .Fields(\借书期\ .Fields(\有效期\ .Update End With End Sub
Private Sub Form_Load() cmdMove(0).Value = True End Sub
Private Sub SSTab1_DblClick() End Sub
（4）图书征订管理窗体
图5-4 图书征订管理窗体
图书征订管理代码
txtPubDate.SelLength = Len(txtPubDate) ElseIf Trim(txtAuthor) = \
MsgBox \作者不能为空！\图书征订管理\ txtAuthor.SetFocus txtAuthor.SelStart = 0
txtAuthor.SelLength = Len(txtAuthor) ElseIf Val(txtNum) = \
MsgBox \正的数量无效！\图书征订管理\ txtNum.SetFocus
txtNum.SelStart = 0
txtNum.SelLength = Len(txtNum) ElseIf Not IsDate(txtDate) = \
MsgBox \作者不能为空！\图书征订管理\ txtDate.SetFocus txtDate.SelStart = 0
txtDate.SelLength = Len(txtDate) Else
'保存记录
Library_Manage.rsBooksOrder .Update
MsgBox \数据保存成功！\图书征订管理\ cmdAdd.Enabled = True: cmdDel.Enabled = True
cmdExam.Enabled = True: cmdRefresh.Enabled = True isAdding = False: picNavigation.Enabled = True End If End Sub
Dim objcopy As Recordset Private Sub cmbOut_Click() AddListOut End Sub
Private Sub cmdAddAll_Click(Index As Integer) '选择全部条码 ListItem_Add lstPre(Index), LstIn(Index), Index, True End Sub
Private Sub cmdAddOne_Click(Index As Integer)'选择当前条码 ListItem_Add lstPre(Index), LstIn(Index), Index, False End Sub
Private Sub cmdExit_Click()
If LstIn(0).ListCount > 0 Then
If MsgBox(\你选定了部分新书准备入库，但没执行保存操作\是否要执行保存操作？\图书典藏管理\ SSTab1.Tab = 0
cmdSave.Value = True End If
ElseIf LstIn(1).ListCount > 0 Then
If MsgBox(\你选定了部分新书准备入库，但没执行保存操作\& \是否要执行保存操作？\图书典藏管理\ SSTab1.Tab = 1
cmdSave.Value = True End If End If
Unload Me End Sub
'刷新新书或调出库室条码列表
Private Sub cmdRefresh_Click(Index As Integer)
Select Case Index
Case 0 '刷新新书列表
With Library_Manage.rsBooksBibli If .State = adStateClosed Then .Open .Requery End With AddListNew
Case 1 '刷新库室条码列表
With Library_Manage.rsBooksStore If .State = adStateClosed Then .Open .Requery End With AddListOut End Select End Sub
Public Sub AddListNew() lstPre(0).Clear
With Library_Manage.rsBooksBibli
If .State = adStateClosed Then .Open If .RecordCount > 0 Then .MoveFirst
While Not .EOF
lstPre(0).AddItem .Fields(\条码\ .MoveNext Wend Else
lstPre(0).AddItem \当前无待分配新书\ End If End With End Sub
5.2 测试
5.2.1 借阅卡管理测试
进度安排测试办理借阅证信息，检查个人账号、读者可自行修改密码。测试查询借阅卡信息的正确性，包括输入的读者信息等。测试借阅卡挂失功能，包括读者信息等。
5.2.2 书籍管理测试
进度安排：测试新书入库信息的正确性。测试借书、还书功能信息正确性。测试书籍挂失信息的正确性。测试图书信息查询的正确性。测试借书信息查询的正确性。
5.2.3 系统管理测试
进度安排测试注册管理员信息的正确性。测试修改密码信息的正确性。