数据库范文.docx

湖北广播电视大学计算机网络专业
图书借阅管理系统
学 号 1042001450952
姓 名 桑又红
指导教师 吴丹
设计完成日期 2 0 1 2
第1章课程设计目的与要求 1
1
、系别ID等，对图书 进行查询。
伺书报表
”
图书管理
号S者版版价 甘书作出出原
期 IDILI社曰 沛容号加羯容耆脇版伶注 ■漑姓.「岸凍iti电；非idii泄原圈
惜书很表
号号名别3IJI归標桩期诗名 孚书姓性系专胡◎购心书
團书惜厨•••
L —
<
证 夸名别族紀业书 学姓性民学老借
学号 性别

系别工D 查询编号 查询类型

III 班
号
证 社 别名书毛名考版 性姓借书书作出
系统首先打开进入的是个欢迎界面，：
君飲迎界面:啻休 Z卫lx
欢迎使用图书管理系统
本系统具有：图书信息管珪、•借隧者信 息管理、岀借信息管理等功竈产A
Copyri ght © 2009

通过以上模块和E-R图可知这个窗体是由图书管理、借阅者管理、出借管理和退出系
统4部分组成，所以主窗体具体图如下:
退
i±
共有记录数
信息查询
查 看报表
出 系 统
信息管理
管理系统:也体
r x

F图是借阅者信息查询，通过该查询可以很方便的查出借阅者的信息。

信息查询窗体包含图书查询、借阅者查询、出借查询，通过该信息查询窗体方便进行浏
览，便于查找、查询。
图书管理报表是以打印的形式显示出数据的。
图书馆管理系统窗体的主要代码如下：
欢迎界面代码：
Option Compare Database
Private Sub Textl2_Click()
Dim i As Long
Dim oWMP As WindowsMediaPlayer
Dim oMedia As IWMPMedia3
Dim oPlaylist As IWMPPlaylist
Set oWMP = WindowsMediaPlayer1
Set oMedia = ("E:\music\")
Set oPlaylis t 二 tCollec t("我的列表") oMedia
Set 二 oPlaylist
With oMedia
'列出所有可用属性
For i = 0 To .attributeCount — 1
nt .ge tAttribut eName(i)
Nex t
'设定属性作者
Call .se tit emInfo("Au thor","超级绿豆")
End With
End Sub
信息查询的代码：
Option Compare Database
Private Sub Option21_GotFocus()
End Sub
Private Sub 出借查询_Click()
On Error GoTo Err_ 查询 _Click
Dim stDocName As String
stDocName = ChrW(22270) & ChrW(20070) & ChrW(26597) & ChrW(-29726)
stDocName, acNormal, acEdit
Exi t_ 查询 _Click:
Exit Sub
Err_ 查询 _Click:
MsgBox
Resume Exit_ 查询 _Click
End Sub
Private Sub 借阅者查询_Click()
On Error GoTo Err_ 查询 _Click
Dim stDocName As String
stDocName = ChrW(22270) & ChrW(20070) & ChrW(26597) & ChrW(-29726)
stDocName, acNormal, acE