图书管理系统(4)

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 系统管理测试

进度安排测试注册管理员信息的正确性。测试修改密码信息的正确性。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库图书管理系统(4)在线全文阅读。