输入书籍ID和借阅IDN数据库是否打开YN借阅卡ID是否存在YY判断借阅ID是否借书超出4本提示超出最大借书数量关闭数据库返回提示不存在该借阅者关闭数据库返回数据库连接失败返回NN数据库中是否存在书籍IDY将借阅者的借书数量加1提示不存在该书籍关闭数据库返回将书籍的数量减1提示借书成功关闭数据库返回 图4-4图书借阅模块
4.1.5图书归还模块
1.程序描述：此程序用于图书的归还，用户在登录自己的ID之后，用户可以对需要归还的图书进行操作，如果符合归还要求，则可以将图书归还。 2.功能：实现对图书的书籍归还功能。
3.性能：首先验证借阅者输入的借阅ID是否存在，若存在进行下一步；若不存在则返回。
对想要归还的图书ID进行搜索，若此书不存在，则提示此书不存在；若此书存在则进行下一步操作。将借阅者借阅的数量减一，将数据库中此书数量加一，同时提醒借阅归还，然后返回。
4.输入项：输入借阅证ID和图书ID
5.输出项：若借阅证ID和图书ID正确，则输出提示图书归还成功界面；若借阅证ID或图书ID不正确，则输出提示没有成功原因的界面。 6.流程逻辑如下图：
输入书籍ID和借阅IDN数据库是否打开YN借阅卡ID是否存在YN提示不存在该书籍关闭数据库返回提示不存在该借阅者关闭数据库返回数据库连接失败返回数据库中是否存在书籍IDY将借阅者的借书数量减1将书籍的数量加1提示还书成功关闭数据库返回 图4-5图书归还模块
4.1.6新书入库模块
1.程序描述：此程序用户对新进图书的入口登记处理。用户可以将新书的详细信息进行输入，保存在数据库中后，新书即登记成功。 2.功能;实现新进图书入库功能。
3.性能:对数据库查询是否已存在此书，若存在则将此书数量加一，提示添加成功；若没有此书，则将此书的基本信息存入数据库，并提示添加书籍成功。 4.输入项:输入新书的书籍ID，书名，作者，出版社，单价等信息。
5.输出项:若添加成功，则输出提示新书添加成功界面；若没有添加成功， 输出提示未成功原因界面。 6.流程逻辑如下图
输入书籍信息N数据库是否打开关闭数据库返回Y是否已经存在Y该书将该书的数量加1提示添加书籍成功关闭数据库N将该书信息存入数据库是否是第一条N记录提示添加书籍成功关闭数据库返回Y提示添加第一本书籍关闭数据库返回图4-6新书入库模块
返回
第五章 编码与测试
5.1各功能模块的实现
（1）用户登录窗体
图5-1 用户登录窗体
用户登录代码：
Const MaxLogTimes As Integer = 3 Private Sub cmdcancel_Click()
If MsgBox(\是否真的退出系统登录？\登录验证\ Unload Me End If End Sub
Private Sub cmdok_Click()
Static intLogTimes As Integer intLogTimes = intLogTimes + 1
If intLogTimes > MaxLogTimes Then
MsgBox \超过登录次数！\登录验证\ Else
With Library_Manage.rsSysUsers .Open
If .RecordCount > 0 Then .MoveFirst
.Find \编号=\ If .EOF Then
MsgBox Trim(txtLog(0)) & \不是系统用户，请检查输入！\登录验证\
txtLog(0).SetFocus txtLog(0).SelStart = 0
txtLog(0).SelLength = Len(txtLog(0))
ElseIf .Fields(\口令\
MsgBox \口令错误，请检查输入口令！\登录验证\ txtLog(1).SetFocus: txtLog(1) = \ Else
CurrentUserNum = .Fields(编号)
CurrentUserPassword = .Fields(\口令\ CurrentUserStatus = .Fields(\权限\
MsgBox \欢迎使用常州信息学院管理系统！\登陆成功！\ Unload Me End If End If .Close End With End If End Sub
Private Sub Form_Load()
SysLogon.BackColor = RGB(192, 210, 270) End Sub
（2）用户管理窗体界面
图5-2 用户管理窗体
用户管理窗体代码 '保存
Private Sub cmdSave_Click()
Dim objcopy As New Recordset If Trim(txtNum) = \
MsgBox \不能为空！\系统用户管理\ txtNum.SetFocus txtNum.SelStart = 0
txtNum.SelLength = Len(txtNum) ElseIf Len(Trim(txtPwd)) <> 6 Then