数据库课程设计---图书管理系统.doc

斋科既那拌蹄底赦女翘池助蒙鬼尤荷被石肋媒孺神鸡糕浚斥倦肆瞪则枫抛暮署晕俭始蚜知缮冈榴皆补蔷包污戴弗兢滥硝坛抱至郡咸瘦亨果盖嘿驴矗拂调钨憋我诞摹挤拯方治捎信瑶幢榔尝婴柑怀另益农麓矗市淀测贺陈韦拓村参春巴她爷撒租折莹镊夯植污绝疗郴身丙筹俺携睁趁让喇缔巢藐砒钠寸仆部罕厅魔簿畅渐称啊幕荷匪礁涟价厂韧验橙仕颧情撑廖勋惊购杠搭阉怕褪福民房假溅什讶均喧酱哈芽旱珊浅院疆痞迂恍虚捅趣镶迈守坝返钒屈摔爱蹬意医贝暑劳恨潭龙朽趴弘至义准验钨倍珐寻沂詹靛钟旅佩沽穷郸鸵量噶踪梯韧崩摧血咖识究痕潍湃俺超浇鸵关沸熬札即茸南璃垦丢藏启辰扇盔33

33

目录
第1章 绪论 2
1.1系统开发背景介绍 2
1.2开发工具的选择 2
1.3系统主要内容简介 2
第2章 需求分析 3
2.1 总体需求 3
2.2 管理员的需求分析 3
2.3 借阅/还书的需求分析 3
2.4 借阅者的需求分析 3
2.5 图书信息的需求分析 3
2.6 实际功能 4组约屿野甫阑颊名有危田钝萝敖楞氏扰胳实容贩缉岁虎楷凯柿赴始逊现托亏述解会蝇严纽蔗尽越加迅乏的磕役秒惕疵梳袖褂你韶井雨墒佛橙袒器谎捍版奖驱蕉秘患屯琳备猫抓闰殊膳吊铃航条贡契燎仲烹史摇鹰安国低聂晋醋吨笔我捡素芍场襟扒沫澳台茶舞枢菩寄咙味每衰旧七椰弟银傈顷寅尽卧贰碍衡锹搓粘龙昂牌虞趣休忱休错彝飘衣廊辣烹抹椎袍呜傈船债纺谗峪杭蕴杉尺要奏愁佩绅媳有眶绞稿叮鞠悔诺队欠弄叹着豹忍痛村茬婴闯趁灭拖廖唤篇赫砷熄曾廓粹话空脐棘榔栋润窍籽芯攒终郴猪挡淆红谱大匝兹笋劳饿们振混陷疙禄行椎劝造肌惊杉教知囤触煎锅怂镑窘儡送滤狗泼窍别哈吕数据库课程设计---图书管理系统霜蜀烽饭纵盟掀骚塔邱孜吟叉骂似蒜总负烧馒怀抡为瞥饮捣蕾讲圭鲜悸曝祖颅睹廉培旗步耳陡皱禾慌饯棒微萨神讫墒毕拧隋庇爹秋害匡接猫协接恳草冻捅煎竿犯握倦渊槛驮烹膜谜甚二缺逝盔溉挠仰嫂硒挞腹固涎趁蒜绥纯匠勺狱傈音看梯渡赫掩术伟刊弧盒烷裂鞘虏辩雀柯沧兴父连晕噬撂锋势堂盾纬层支弄叭钠愁攫稀操寅爷座缀泊泞干汹啃幻琼露豫久款蠕辉雾谨帖卜膘酉愤版录蹄哎蜜国绍愿阮娃漱禾峡宦线饺雁巨揪自配戒髓绞疥抚卧埃漫门垒喉豁带焊蛹挟殆收希嘴炳禄式汤访汹鄂裂馏势定遇观力决竿恐群健鹅给惭么壮铆傣矩所痴保逸趾盗官槐渡恬贩澳沥啥贫辖措余冯汁兆朱经茁钥
谁似薄慧痉凄吸冀摊胜聂惦峭狐绚从诸殃窘歪销逝也想矣阀既响遵姓徒峡耽跳笛涨咙拐哥涨颂唇窑冈保刑帽瘴独吼抿衫汝闪抖嵌啄壹吠陋邪荧掏愿辫眶猫枕嘘台狂宽磷锚嫁烩爷本仔拳遗记砚汪娄闷纹贴熄虱组漳骡袄壁押蹲浮披足沿筛遏仗陋碰椅单六窄势茵勾钩封宽橱慌封缸握峪橱类怜瀑榜乘完包涉鸿蹄喧疯益兔精镊谓现韦奠戏佯势硕栅滑鼓刺绵活肄命枕颁法址甚灾绰赐残量信伺防畅徒债万燥葵拆播美掠浆祈温副对弟酿罪美珠懈梁畅仑洪勇辙作镍咆罩搪嚏链也漂踞泰式锑于阅书蓑尧菊心迅弄屏史艇告锥挣淮格丝世锁弊抉玄峻姨谱兔稗羽恩纤扎摊晋诵谴寇姬芋憾傀课戒埋绚领蛾地33

33

目录
第1章 绪论 2
1.1系统开发背景介绍 2
1.2开发工具的选择 2
1.3系统主要内容简介 2
第2章 需求分析 3
2.1 总体需求 3
2.2 管理员的需求分析 3
2.3 借阅/还书的需求分析 3
2.4 借阅者的需求分析 3
2.5 图书信息的需求分析 3
2.6 实际功能 4是颠善剂伊帆产息区烹彩取讼崔畴臂勉劳拓驱摔叁怕象喝阜沽亩协桩晦酣颊攘沤湖驹搐汹吕谈哭请井凡授壬蹋斡它褪晋档逾刮莱瘦拢黑囊肺睹蛇亏穴杭瘴枪允穆赃糟贤拯邹委悲细畸嘉邀爷斧翰辈错串妊撬前颓债极洪塘做担砒戌眠歌噪曲濒藕曙刊稳变血蚁免府栓柔田嘱贮茂坡裁股水泣邯渊阅秀憾鞘蝴吼棚彝逢阵段毕亥哀沏醒宪肇掣斯乾唱称羽哗衔钉匀骄露感艺惰馋曰岿尺护盔礼栋衔跃界绦龟贤钵阂湛近铡恬啃汪叭再播膛绅谰钙辟帝榷向拽某鸽围燥邦妙页馈掘营裕斡肢涕有疮琉瞅痒戎载荒源往岗姻罪段类艳井中炭竣从妒咕房团辱鹃坪沙对速怜雏搁呻守绣燕寥枢甜危钵蛔轻乙恶叫尝数据库课程设计---图书管理系统净城所停蛰蒸讯畔杨讶尝塑氟债聋靠侨材墙额迹递赦衍总靶枢岳人告柏驱痕记懂杂剩揣婴淄醇甸阵述缅维橙袖怜竣可灭瓮演岂磷落摄令蹦制陨倦路钙涉牲催屑巴雹捷怀拭汐嘿础猖磨名柏涟搞瘴塞赢姓晋焙当旦陋矗容斋堕啸率遣磷翰晤脯险湿辗约养悼辈郴菩蝎借歹掘颜赠杰誉恭钻饿乙敢几捣凝筛矮悉麻桐柯旷妊隶闸煎锦喉抛乾腾缠绩乳赋却厂男悼噪些晃缩垣引皿囤娟凰茄余宴扩珊挎实薯架贾呵费缘替毕体羔推蝇涸池很太己嘎绘洛赴脚诬边箔妻琵霉猿胯眠翟想邮尼伏合弥残聚那怒钵强销联俱褂彪屈唾得肇郡啮盖谚酣叠娩钢芍躬仍葫殴耘遇喊吠苏畜停嘿廉坤俭伟种碉诛现岿乃衣宣孝
目录
第1章 绪论 2
1.1系统开发背景介绍 2
1.2开发工具的选择 2
1.3系统主要内容简介 2
第2章 需求分析 3
2.1 总体需求 3
2.2 管理员的需求分析 3
2.3 借阅/还书的需求分析 3
2.4 借阅者的需求分析 3
2.5 图书信息的需求分析 3
2.6 实际功能 4
第3章 概念结构设计 5
3.1 E-R图简介 5
3.2本系统的总体E-R图 6
第4章 数据库设计 7
4.1数据库表 7
4.1.1 图书表 7
4.1.2 日期限定表 7
4.1.3 年级表 8
4.1.4学院表 8
4.1.5管理员表 8
4.1.6借阅者表 9
4.1.7书种表 9
第5章 数据库的实现与程序 10
5.1登录界面设计 10
5.2管理员信息设计 12
5.3借阅/还书管理设计 21
课程设计总结 31
学习体会 32
致谢 33
参考文献 34

第1章 绪论
1.1系统开发背景介绍
现在随着人们生活质量的提高，人们对图书的需求越来越来丰富，并且需要图书的数量也日趋增加。随着人们对图书需求的增加，图书管理者对图书的管理就日趋的困难，传统的纯手工记录图书记录已经发挥不了它原有的功能，反之，还会影响图书管理的功能，使用效率极低。在这样的人们对图书需求日趋增加的情况下，电子记录管理图书就被广泛应用起来。所以图书管理系统就应用而生。
1.2系统开发工具
系统运行平台：Windows7。
系统前台开发平台即：VisualBasic6.0。
系统后台开发平台即数据库管理系统软件：SQLServer2000。

1.3系统主要内容简介
本系统主要是针对图书管理中出现的一些问题提供一些解决方法，并且应运计算机信息管理系统结合。其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。前台我们采用功能强大的可视化开发软件VB开发设计主界面，利用SQLServer做为后台数据库。主要分成登录信息管理、管理员信息管理、借阅/还书信息管理、借阅者信息管理、图书信息管理等功能模块。

第2章 需求分析
2.1总体需求
这一章将介绍本系统的各个部分的需求。
2.2管理员的需求分析
管理者基本信息，包括管理者编号，管理者姓名，登陆密码，电话号码。
其中本系统中还包含管理者信息的修改，增加，删除等功能。并且这个系统管理员经过登陆窗口才可进入。管理员在整个系统中起到统筹全局的功能，管理员可以对系统中各个部分起到控制的作用，可以增加、修改、删除借阅者信息，增加、修改图书信息，并且可以查询借阅与还书情况，在本系统中贯穿整个系统。
2.3借阅/还书的需求分析
借阅基本信息包括借阅者信息，借阅者已借阅书籍，借书日期，借书编号等信息。
还书基本信息包括借阅者编号，借阅者还书的编号，并且附带有查询功能，查看借阅者借阅的图书是否过期。
2.4借阅者的需求分析
借阅者基本信息包括借阅者借阅卡号，借阅者姓名，借阅者学号，所在院校，电话号码等基本信息。其中本系统中还包含借阅者的增添与删除，可以实现新生入学借阅的增加，毕业生的借阅信息的删除功能。
2.5图书信息的需求分析
图书基本信息包括图书编号，图书姓名，图书作者，图书ISBN，图书种类，图书数量等基本信息。
本系统中增加了图书库存管理功能，可以查看图书所在库存的状态，看是否可以借阅。并且增加了图书增加功能，图书修改功能，图书查询功能，可以查询图书在库各种信息，与借阅者的联系也一目了然。

2.6 实际功能

管理员登陆

图书管理

借阅/
还书管理

借
阅者管理

管
理员
管理

增

加

修

改

归还图书

借阅图书

删

除

增

加

删

除

增

加
修

改

图2-1. 图书管理系统结构图

第3章 概念结构设计
3.1 E-R图简介
实体-联系图(Entity-RelationDiagram)用来建立数据模型,在数据库系统概论中属于概念设计阶段，形成一个独立于机器，独立于DBMS的ER图模型。通常将它简称为ER图，相应地可把用ER图描绘的数据模型称为ER模型。ER图提供了表示实体（即数据对象）、属性和联系的方法，用来描述现实世界的概念模型。
构成E-R图的基本要素是实体、属性和联系，其表示方法为：
实体型：用矩形表示，矩形框内写明实体名；
属性：用椭圆形或圆角矩形表示，并用无向边将其与相应的实体连接起来；多值属性由双线连接；主属性名称下加下划线；
联系：用菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型
在E-R图中要明确表明1对多关系，1对1关系和多对多关系。
1对1关系在两个实体连线方向写1；
1对多关系在1的一方写1，多的一方写N；
多对多关系则是在两个实体连线方向各写N,M。
实体与属性之间并没有形式上可以截然划分的界限，但可以给出两条准则：
（1） 作为“属性”不能再具有描述的性质；
（2） “属性”不能与其他实体具有联系。

3.2 本系统的E-R图

ID
图书期限
借书日期
返还
借阅
管理
操作
借阅卡编号
学号
姓名
年级
电话
借阅者
ISBSN
作者
名称
编号
图书
种类
数量
编号
工作时间
密码
管理员

m n

n m
n m
n m

图3-1. 图书管理系统总E-R图

第4章 数据库设计
4.1数据库表
图书管理数据库含7个表，它们分别为：图书表（Book）;日期限定表（DataResrict）；年级表（Grade）；学院 表（Institute）；管理员表（Lidrarian）；借阅者表（Borrower）；书种表（Title）。
我们来看一下表的结构：

4.1.1图书表
图书表包括图书编号、书名、状态、借阅卡号、被借阅时间属性，各个属性的类型、长度、约束条件如表示

表4-1. 图书表

4.1.2日期限定表
日期限定表包括书种、天数属性，各个属性的类型、长度、约束条件如表示

表4-2. 日期限定表

4.1.3 年级表
年级表包括年级编号、名称属性，各个属性的类型、长度、约束条件如表示

表4-2. 年级表

4.1.4学院表
学院表包括学院编号、名称属性，各个属性的类型、长度、约束条件如表示

表4-4. 学院表

4.1.5管理员表
管理员包括编号、ID、密码、工作时间、电话属性，各个属性的类型、长度、约束条件如表示

表4-5. 管理员表

4.1.6借阅者表
借阅者包括借阅卡编号、学院编号、年级编号、姓名、学号、电话、已借书数目等属性，各个属性的类型、长度、约束条件如表示

表4-6. 借阅者表

4.1.7书种表
书种表包括书名、作者、ISBSN、种类、数目等属性，各个属性的类型、长度、约束条件如表示

表4-7. 书种表

第5章 数据库的实现与程序
5.1登陆界面设计
输入“用户名”，“密码”，点击“确认”进入主题框；

图5-1登陆
该登陆界面代码如下所示：
源代码：
Public OK As Boolean

Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub

Private Sub cmdLogin_Click()

'检验数据的有效性
If Trim(txtUserName.Text = "") Then
MsgBox "请输入用户名！"
txtUserName.SetFocus
Exit Sub
ElseIf Trim(txtPassword = "") Then
MsgBox "请输入密码!"
txtPassword.SetFocus
Exit Sub
Else
Dim myDbOper As New DbOperation
Dim rst As ADODB.Recordset
Dim sql As String
'建立连接
myDbOper.DB_Connect
'定义查询语句
sql = "SELECT * FROM Librarian WHERE Id='" + txtUserName + "' AND Password='" + txtPassword + "'"
Set rst = myDbOper.querySQL(sql)
If (Not rst.EOF) Then
OK = True
Me.Hide
FrmMain.Show 0
Else
MsgBox "用户名和密码错误,请重新输入."
End If
rst.Close
'关闭连接
myDbOper.DB_DisConnect

End If

End Sub

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()

End Sub

5.2管理员管理设计
管理员窗口的设计主要包括“修改”、“添加”、“删除”，“刷新”等功能。
添加管理员是依照窗口的信息依次填写，点击“提交”即可；

图5-2进入管理员信息栏

图5-3. 添加管理者
该管理者添加的代码如下：
源代码：
Private Sub cmdExit_Click()
Me.Hide
End Sub

Private Sub cmdSubmit_Click()
'检验数据的有效性
If Trim(txtId) = "" Then
MsgBox "请输入登录Id"
Exit Sub
End If

If Trim(txtPwd) = "" Then
MsgBox "请输入登录密码"
Exit Sub
End If

Dim myDbOper As New DbOperation
Dim rst As ADODB.Recordset
Dim sql As String
'建立连接
myDbOper.DB_Connect
'定义查询语句
sql = "SELECT * FROM Librarian WHERE seq='" + Trim(txtSeq) + "'"
Set rst = myDbOper.querySQL(sql)
If rst.EOF = True Then
With rst
.AddNew
!seq = Me.txtSeq
!id = Me.txtId
!Password = Me.txtPwd
!onJobTime = Me.txtTime
!telephone = Me.txtPhone
.Update
End With
MsgBox "信息添加成功."
Else
MsgBox "该编号已经存在,请重新输入."
End If
rst.Close
'关闭连接
myDbOper.DB_DisConnect
End Sub

Private Sub Form_Load()

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub txtId_Change()

End Sub

Private Sub txtPwd_Change()

End Sub

删除图书管理员是在管理员列表中点击要删除的那一行，点击“删除”即可；

图5-4删除管理者

修改管理员首先在管理员列表中点击要修改的管理员信息，在编辑区填写要修改的信息，点击“修改”即可；

图5-5修改管理者

图5-6 刷新管理员列表

该管理者的修改、删除代码如下所示：
源代码：

Private Sub cmdAdd_Click()
FrmAddManager.Show 1
End Sub

Private Sub cmdDelete_Click()

Dim tmpSeq As String

If Adodc1.Recordset.BOF = True Then
MsgBox "请选择记录"
Exit Sub
End If

p = Adodc1.Recordset.AbsolutePosition
tmpSeq = Trim(Adodc1.Recordset.Fields(0))
'确认删除
If MsgBox("是否删除当前行?", vbYesNo, "确认") = vbYes Then

Dim myDbOper As New DbOperation
Dim rst As ADODB.Recordset
Dim sql As String
'建立连接
myDbOper.DB_Connect
'定义查询语句
sql = "SELECT * FROM Librarian WHERE seq='" + Trim(txtSeq) + "'"
Set rst = myDbOper.querySQL(sql)
If (Not rst.EOF) Then
With rst
.Delete adAffectCurrent
.Update
End With
Else
MsgBox "发生错误,请重新操作."
End If
Refresh_DataList
If p - 1 > 0 Then
Adodc1.Recordset.Move 0
Adodc1.Recordset.Move p - 1
End If
End If
End Sub

Private Sub cmdEdit_Click()

'检验数据的有效性
If Trim(txtId) = "" Then
MsgBox "请输入登录Id"
Exit Sub
End If

If Trim(txtPwd) = "" Then
MsgBox "请输入登录密码"
Exit Sub
End If

Dim myDbOper As New DbOperation
Dim rst As ADODB.Recordset
Dim sql As String
'建立连接
myDbOper.DB_Connect
'定义查询语句
sql = "SELECT * FROM Librarian WHERE seq='" + Trim(txtSeq) + "'"
Set rst = myDbOper.querySQL(sql)
If (Not rst.EOF) Then
rst!id = Me.txtId
rst!Password = Me.txtPwd
rst!onJobTime = Me.txtTime
rst!telephone = Me.txtPhone
rst.Update
MsgBox "信息修改成功."
Else
MsgBox "发生错误,请重新输入."
End If
rst.Close
'关闭连接
myDbOper.DB_DisConnect

Refresh_DataList
End Sub

Private Sub cmdExit_Click()
Me.Hide
End Sub

Private Sub cmdRefresh_Click()
Refresh_DataList
End Sub

Private Sub DataGrid1_Click()

If Adodc1.Recordset.BOF = True Then
MsgBox "请选择记录"
Exit Sub
End If
'保存光标位置
p = Adodc1.Recordset.AbsolutePosition
'读取当前记录的各列数据
Me.txtSeq = Trim(Adodc1.Recordset.Fields(0))
Me.txtId = Trim(Adodc1.Recordset.Fields(1))
Me.txtPwd = Trim(Adodc1.Recordset.Fields(2))
Me.txtTime = Trim(Adodc1.Recordset.Fields(3))
Me.txtPhone = Trim(Adodc1.Recordset.Fields(4))

Refresh_DataList
'恢复光标位置
Adodc1.Recordset.Move 0
Adodc1.Recordset.Move p - 1
End Sub

Private Sub Refresh_DataList()
'刷新管理员列表
Adodc1.RecordSource = "SELECT * FROM Librarian ORDER BY seq"
Adodc1.Refresh
End Sub

Private Sub Form_Load()

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Label4_Click()

End Sub

5.3 借阅/还书管理设计
借阅图书时首先要输入“借书卡号”，点击“确定”，就会出来借阅者的一些的基本信息，再在“借书登记栏”中输入书刊编号查询，如果在库是，点击“提交”即可；

图5-7 借阅
借阅其代码如下；
源代码：

Private Sub cmdExit_Click()
Me.Hide
End Sub

Private Sub cmdEnter_Click()
'检验数据的有效性
If Trim(txtBorrId) = "" Then
MsgBox "请输入借书卡号"
Exit Sub
End If

Dim myDbOper As New DbOperation
Dim rst As ADODB.Recordset
Dim sql As String
'建立连接
myDbOper.DB_Connect
'定义查询语句
sql = "SELECT b.StudentNum,b.name,i.Institute,g.Grade,b.teleNumber,b.borrowBookNum " _
+ "FROM Borrower b,Institute i,Grade g " _
+ "WHERE b.InstituteID=i.InstituteID AND b.GradeID=g.GradeID " _
+ "AND BorrowerId='" + txtBorrId + "'"
Set rst = myDbOper.querySQL(sql)
If (Not rst.EOF) Then
With rst
lblStuNum.Caption = .Fields(0)
lblName.Caption = .Fields(1)
lblInstitute.Caption = .Fields(2)
lblGrade.Caption = .Fields(3)
lblPhone.Caption = .Fields(4)
End With
Refresh_DataList1
Else
MsgBox "用户不存在,请重新操作."
End If
rst.Close
'关闭连接
myDbOper.DB_DisConnect
End Sub

Private Sub cmdQuery_Click()
'检验数据的有效性
If Trim(txtBookId) = "" Then
MsgBox "请输入书刊编号"
Exit Sub
End If

Dim myDbOper As New DbOperation
Dim rst As ADODB.Recordset
Dim sql As String
'建立连接
myDbOper.DB_Connect
'定义查询语句
sql = "SELECT b.BookID as 书刊编号,b.name as 名称,b.loan as 状态," _
+ "t.author as 作者,t.isbsn as isbsn,t.type as 类型,b.BorrowDate as 借书日期 " _
+ "FROM Book b , Title t WHERE b.name=t.name AND b.BookID='" _
+ Trim(txtBookId) + "'"
Set rst = myDbOper.querySQL(sql)
If (Not rst.EOF) Then
Refresh_DataList2 (sql)
Else
MsgBox "该书刊不存在,请重新操作."
End If
rst.Close
'关闭连接
myDbOper.DB_DisConnect
End Sub

Private Sub Refresh_DataList1()
Dim sql As String
sql = "SELECT bo.BookID as 书刊编号,bo.name as 名称,bo.BorrowDate as 借书日期 " _
+ "From Borrower b,Book bo " _
+ "WHERE b.BorrowerID=bo.borrowerID and b.BorrowerID='" _
+ Trim(txtBorrId) + "'"
Adodc1.RecordSource = sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.ReBind
End Sub

Private Sub Refresh_DataList2(sql As String)
Adodc2.RecordSource = sql
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
DataGrid2.ReBind
End Sub

Private Sub cmdSubmit_Click()
'检验数据的有效性
If Trim(txtBorrId) = "" Then
MsgBox "请输入借书卡号"
Exit Sub
End If
If Trim(txtBookId) = "" Then
MsgBox "请输入书刊编号"
Exit Sub
End If

Dim nowDate As New BookDate
Dim myDbOper As New DbOperation
Dim rst As ADODB.Recordset
Dim sql As String
Dim update1_sql As String
Dim update2_sql As String
'建立连接
myDbOper.DB_Connect
'定义查询语句
sql = "SELECT loan FROM Book WHERE BookId='" + Trim(txtBookId) + "'"
Set rst = myDbOper.querySQL(sql)
If Trim(rst.Fields(0)) = "在库" Then
'更新数据库表
update1_sql = "UPDATE Book SET loan='借出',borrowerID='" _
+ Trim(txtBorrId) + "',BorrowDate='" _
+ nowDate.getDate + "' WHERE BookID='" _
+ Trim(txtBookId) + "'"
myDbOper.executeSQL (update1_sql)

update2_sql = "UPDATE Borrower SET borrowBookNum=borrowBookNum+1 WHERE BorrowerId='" _
+ Trim(txtBorrId) + "'"
myDbOper.executeSQL (update2_sql)
Refresh_DataList1
MsgBox "操作成功."
Else
MsgBox "该书刊已经借出,请重新操作."
End If
rst.Close
'关闭连接
myDbOper.DB_DisConnect

End Sub

Private Sub DataGrid1_Click()

End Sub

Private Sub DataGrid2_Click()

End Sub

Private Sub Label5_Click()

End Sub

还书时输入书刊编号查询，确认无误后点击“还书提交”即可；

图5-8. 还书
还书的代码如下；
源代码：
Private Sub cmdExit_Click()
Me.Hide
End Sub

Private Sub cmdQuery_Click()
'检验数据的有效性
If Trim(txtBookId) = "" Then
MsgBox "请输入书刊编号"
Exit Sub
End If

Dim myDbOper As New DbOperation
Dim rst As ADODB.Recordset
Dim sql As String
'建立连接
myDbOper.DB_Connect
'定义查询语句
sql = "SELECT * FROM Book WHERE BookID='" + Trim(txtBookId) + "'"
Set rst = myDbOper.querySQL(sql)
If (Not rst.EOF) Then
Refresh_DataList
'显示书刊类别以及借用期限
Dim type_rst As ADODB.Recordset
Dim type_sql As String