图书馆图书管理系统课程设计 本文简介：
课程设计（图书馆图书管理系统）指导老师：班级：能动姓名：学号：20XX年X月X日图书管理系统实例一、系统简介1、本图书管理系统，包含了对图书、作者、读者等基本信息的管理，也包含了借书信息，还书信息等的查询，和管理。本系统具有如下功能：能够修改、输入、查询、与图书有关的信息，如图书信息、读者信息、作者
图书馆图书管理系统课程设计 本文内容：
课程设计（图书馆图书管理系统）
指导老师：班级：能动姓名：学
号：
20XX年X月X日图书管理系统实例一、系统简介1、本图书管理系统，包含了对图书、作者、读者等基本信息的管理，也包含了借书信息，还书信息等的查询，和管理。本系统具有如下功能：能够修改、输入、查询、与图书有关的信息，如图书信息、读者信息、作者信息、图书借阅信息等：能打印图书信息，图书借阅信息等2
，本系统的总体结构设计树状图。二，具体操作步骤。
1，
数据库设计
（1）
创建三个自由表，各自由表的字段值如下。
表名
字段1
字段2
字段3
字段4
字段5
字段6
字段7
字段8
字段9
books
isbn
书名
作者
出版社
单价
购买日期
借阅状态
类别
简介
User1
用户名
密码jiebooks
Read编号
书名readpeopie
编号
班级
姓名
性别
权限（2）
创建一个数据库，并把三个表添加到数据库中，建立索引和关联。
2.界面设计
（1）系统启动表单在数据库中创建一个表单，命名为登录界面。添加一个标签控件，两个命令按钮
按照自己的喜好分别设置他们的属性。在确定按钮的Click事件下写入如下代码：sele
user1
locate
for
allt(thisform.Text1.value)==allt(用户名)if
found()
if
allt(thisform.Text2.value)==allt(密码)
messagebox("登陆成功！",0+64,"恭喜")
do
主界面.mpr
thisform.release
else
messagebox("密码错误！请检查后重新输入！",0+64,"错误")
thisform.Text2.value=""
thisform.Text2.setfocus
endifelse
messagebox("该用户不存在，请检查您的用户名！",0+64,"错误")endif
双击退出按钮，并在它的Click事件写下如下代码：quit
（2）创建主表单创建一个表单保存为“主表单”并且设置它的ShowWindows属性为“2——作为顶层表单”如图设置它的其他控件属性。
（3）其菜单控件分别为图书管理，读者，读者借还书，打印，退出，图书管理下设子菜单三个，分别为删除，修改，查询，并且在他们之下分别设查询条件。
（4）创建一个表单为读者查询，并且在表单中插入一个确定按钮和六个按钮组分别为首页，上一页，下一页，尾记录，修改，退出。
在确定按钮组的click事件下编写如下程序
if
select("readpeople")=0
&&检查数据表是否打开
messagebox("数据表readpeople不存在，请检查后再试！",0+16,"警告")
elseselec
jieboos
go
top
q2=""do
while
.not.eof()
if
allt(read编号)==allt(thisform.Combo1.value)
q2=q2+书名endifskip
enddo
go
top
select
readpeople
&&选取account表locate
for
allt(thisform.Combo1.value)==allt(编号)
if
found()thisform.Text1.value=班级thisform.Text2.value=姓名thisform.Text3.value=学号thisform.Text4.value=姓别thisform.Text5.value=权限thisform.text6.value=q2endif
endif
&&THISFORM.combo1.ADDITEM(temp.学号)
skip
if
eof()
thisform.Command4.enabled=.F.
thisform.Command3.enabled=.T.
else
skip
-2if
bof()thisform.Command3.enabled=.F.
thisform.Command4.enabled=.T.
else
thisform.Command4.enabled=.T.
thisform.Command3.enabled=.T.
endif
endif
在按钮组中的首页click下写如下程序。
go
top
thisform.Text1.value=班级thisform.Text2.value=姓名thisform.Text3.value=学号thisform.Text4.value=姓别thisform.Text5.value=权限
thisform.Combo1.value=编号selec
jieboos
q2=""do
while
.not.eof()
if
allt(read编号)==allt(thisform.Combo1.value)
q2=q2+书名endifskip
enddo
thisform.text6.value=q2
go
top
sele
readpeople
thisform.Command3.enabled=.F.
thisform.Command4.enabled=.T.
在按钮组中的上一页click下写如下程序。if
!bof()
skip
-1thisform.Text1.value=班级thisform.Text2.value=姓名thisform.Text3.value=学号thisform.Text4.value=姓别thisform.Text5.value=权限thisform.Combo1.value=编号t=recno()
selec
jieboos
go
top
q2=""do
while
.not.eof()
if
allt(read编号)==allt(thisform.Combo1.value)
q2=q2+书名endifskip
enddo
thisform.text6.value=q2
sele
readpeople
go
t
if
bof()
thisform.Command3.enabled=.F.
endif
endifif
eof()
thisform.Command4.enabled=.F.
else
thisform.Command4.enabled=.T.
endif
在按钮组中的下一页click下写如下程序
if
!eof()
skip
thisform.Text1.value=班级thisform.Text2.value=姓名thisform.Text3.value=学号thisform.Text4.value=姓别thisform.Text5.value=权限thisform.Combo1.value=编号t=recno()selec
jieboosgo
top
q2=""do
while
.not.eof()
if
allt(read编号)==allt(thisform.Combo1.value)
q2=q2+书名endifskip
enddo
thisform.text6.value=q2
sele
readpeople
go
t
else
thisform.Command4.enabled=.F.
endif
if
bof()
thisform.Command3.enabled=.F.
else
thisform.Command3.enabled=.T.
endif
在按钮组中的尾记录click下写如下程序
sele
readpeople
go
bottom
thisform.Text1.value=班级thisform.Text2.value=姓名thisform.Text3.value=学号thisform.Text4.value=姓别thisform.Text5.value=权限thisform.Combo1.value=编号selec
jieboos
go
top
q2=""
do
while
.not.eof()
if
allt(read编号)==allt(thisform.Combo1.value)
q2=q2+书名endifskip
enddo
thisform.text6.value=q2
go
bottom
selec
readpeoplethisform.Command4.enabled=.F.
thisform.Command3.enabled=.T.
在按钮组中的退出click下写如下程序
thisform.release
（5）创建一个表单为报表显示，并且在表单中插入三个命令按钮分别为按书名，按isbn，读者显示
在按书名的click事件下写如下程序
report
form
按书名
在按isbn的click事件下写如下程序
report
form
按isbn
在读者显示的click事件下写如下程序
report
form
readperson
（6）创建一个查询-按isbn的表单并且在其按钮确定下写如下程序
if
select("books")=0
&&检查数据表是否打开
messagebox("数据表books不存在，请检查后再试！",0+16,"警告")
else
select
books
&&选取account表
&&set
order
to
UID
&&设置username为控制索引
locate
for
allt(thisform.Combo1.value)==allt(isbn)
&&按索引查找当前所选user相关记录seek
if
found()thisform.Text1.value=书名thisform.Text2.value=出版社thisform.Text3.value=类别thisform.Text4.value=简介thisform.Text5.value=作者thisform.Text6.value=单价thisform.Text7.value=购买日期thisform.Text8.value=借阅状态
endif
endif
&&THISFORM.combo1.ADDITEM(temp.学号)
（3）创建其他表单，分别创建询借还书，删除，修改，查询-按书名，查询-按任意条件等。
（4）创建一个主界面。
3、连编程序
三、总结
在做图书管理系统的过程中翻阅书籍，查阅资料，询问同学中学了很多，也懂了很多。系统做得不是那么完善，还有待学习和加强，希望老师指教。
指导老师:
图书馆图书管理系统课程设计 本文关键词：课程设计，图书馆，图书管理系统
图书馆图书管理系统课程设计 来源：网络整理
免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。
《
图书馆图书管理系统课程设计》
由：
76范文网互联网用户整理提供,链接地址：
http://m.yuan0.cn/a/102709.html
免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。