课程设计
(图书馆图书理系统)
指导老师:
班 级:动
姓 名:
学 号:
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(thisformText1value)allt(户名)
if found()
if allt(thisformText2value)allt(密码)
messagebox(登陆成功0+64恭喜)
do 界面mpr
thisformrelease
else
messagebox(密码错误请检查重新输入0+64错误)
thisformText2value
thisformText2setfocus
endif
else
messagebox(该户存请检查您户名0+64错误)
endif
双击退出钮Click事件写代码:quit
(2)创建表单创建表单保存表单设置ShowWindows属性2——作顶层表单图设置控件属性
(3)菜单控件分图书理读者读者书印退出图书理设子菜单三分删修改查询分设查询条件
(4)创建表单读者查询表单中插入确定钮六钮组分首页页页尾记录修改退出
确定钮组click事件编写程序
if select(readpeople)0 &&检查数表否开
messagebox(数表readpeople存请检查试0+16警告)
else
selec jieboos
go top
q2
do while noteof()
if allt(read编号)allt(thisformCombo1value)
q2q2+书名
endif
skip
enddo
go top
select readpeople &&选取account表
locate for allt(thisformCombo1value)allt(编号)
if found()
thisformText1value班级
thisformText2value姓名
thisformText3value学号
thisformText4value姓
thisformText5value权限
thisformtext6valueq2
endif
endif
&&THISFORMcombo1ADDITEM(temp学号)
skip
if eof()
thisformCommand4enabledF
thisformCommand3enabledT
else
skip 2
if bof()
thisformCommand3enabledF
thisformCommand4enabledT
else
thisformCommand4enabledT
thisformCommand3enabledT
endif
endif
钮组中首页click写程序
go top
thisformText1value班级
thisformText2value姓名
thisformText3value学号
thisformText4value姓
thisformText5value权限
thisformCombo1value编号
selec jieboos
q2
do while noteof()
if allt(read编号)allt(thisformCombo1value)
q2q2+书名
endif
skip
enddo
thisformtext6valueq2
go top
sele readpeople
thisformCommand3enabledF
thisformCommand4enabledT
钮组中页click写程序
if bof()
skip 1
thisformText1value班级
thisformText2value姓名
thisformText3value学号
thisformText4value姓
thisformText5value权限
thisformCombo1value编号
trecno()
selec jieboos
go top
q2
do while noteof()
if allt(read编号)allt(thisformCombo1value)
q2q2+书名
endif
skip
enddo
thisformtext6valueq2
sele readpeople
go t
if bof()
thisformCommand3enabledF
endif
endif
if eof()
thisformCommand4enabledF
else
thisformCommand4enabledT
endif
钮组中页click写程序
if eof()
skip
thisformText1value班级
thisformText2value姓名
thisformText3value学号
thisformText4value姓
thisformText5value权限
thisformCombo1value编号
trecno()
selec jieboos
go top
q2
do while noteof()
if allt(read编号)allt(thisformCombo1value)
q2q2+书名
endif
skip
enddo
thisformtext6valueq2
sele readpeople
go t
else
thisformCommand4enabledF
endif
if bof()
thisformCommand3enabledF
else
thisformCommand3enabledT
endif
钮组中尾记录click写程序
sele readpeople
go bottom
thisformText1value班级
thisformText2value姓名
thisformText3value学号
thisformText4value姓
thisformText5value权限
thisformCombo1value编号
selec jieboos
go top
q2
do while noteof()
if allt(read编号)allt(thisformCombo1value)
q2q2+书名
endif
skip
enddo
thisformtext6valueq2
go bottom
selec readpeople
thisformCommand4enabledF
thisformCommand3enabledT
钮组中退出click写程序
thisformrelease
(5)创建表单报表显示表单中插入三命令钮分书名isbn读者显示
书名click事件写程序
report form 书名
isbnclick事件写程序
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(thisformCombo1value)allt(isbn) &&索引查找前选user相关记录seek
if found()
thisformText1value书名
thisformText2value出版社
thisformText3value类
thisformText4value简介
thisformText5value作者
thisformText6value单价
thisformText7value购买日期
thisformText8value阅状态
endif
endif
&&THISFORMcombo1ADDITEM(temp学号)
(3)创建表单分创建询书删修改查询书名查询意条件等
(4)创建界面
3连编程序
三总结
做图书理系统程中翻阅书籍查阅资料询问学中学懂系统做完善学加强希老师指教
指导老师
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容,不代表《香当网》观点或立场,请自行判断内容的真实性和可靠性!
该内容是文档的文本内容,更好的格式请下载文档