图书管理系统实例

新疆大学电气工程学院课程设计（图书馆图书管理系统） 指导老师：李振恩班级：能动141姓名：何照云学号：201421062182014年12月19日图书管理系统实例一、系统简介1、本图书管理系统，包含了对图书、作者、读者等基本信息的管理，也包含了借书信息，还书信息等的查询，和管理。本系统具有如下功能：能够修改、输入、查询、与图书有关的信息，如图书信息、读者信息、作者信息、图书借阅信息等：能打印图书信息，图书借阅信息等2，本系统的总体结构设计树状图。二，具体操作步骤。数据库设计创建三个自由表，各自由表的字段值如下。表名字段1字段2字段3字段4字段5字段6字段7字段8字段9booksisbn书名作者出版社单价购买日期借阅状态类别简介User1用户名密码jiebooksRead编号书名readpeopie编号班级姓名性别权限创建一个数据库，并把三个表添加到数据库中，建立索引和关联。2.界面设计（1）系统启动表单在数据库中创建一个表单，命名为登录界面。添加一个标签控件，两个命令按钮按照自己的喜好分别设置他们的属性。在确定按钮的Click事件下写入如下代码：seleuser1 locatefor allt(thisform.Text1.value)==allt(用户名) iffound() ifallt(thisform.Text2.value)==allt(密码) messagebox("登陆成功！",0+64,"恭喜") do主界面.mpr thisform.release else messagebox("密码错误！请检查后重新输入！",0+64,"错误") thisform.Text2.value="" thisform.Text2.setfocus endif else messagebox("该用户不存在，请检查您的用户名！",0+64,"错误") endif双击退出按钮，并在它的Click事件写下如下代码：quit（2）创建主表单创建一个表单保存为“主表单”并且设置它的ShowWindows属性为“2——作为顶层表单”如图设置它的其他控件属性。（3）其菜单控件分别为图书管理，读者，读者借还书，打印，退出，图书管理下设子菜单三个，分别为删除，修改，查询，并且在他们之下分别设查询条件。（4）创建一个表单为读者查询，并且在表单中插入一个确定按钮和六个按钮组分别为首页，上一页，下一页，尾记录，修改，退出。在确定按钮组的click事件下编写如下程序ifselect("readpeople")=0 &&检查数据表是否打开 messagebox("数据表readpeople不存在，请检查后再试！",0+16,"警告")else selecjieboos gotop q2="" dowhile.not.eof() ifallt(read编号)==allt(thisform.Combo1.value) q2=q2+书名 endif skip enddo gotop selectreadpeople &&选取account表 locateforallt(thisform.Combo1.value)==allt(编号) iffound() thisform.Text1.value=班级 thisform.Text2.value=姓名 thisform.Text3.value=学号 thisform.Text4.value=姓别 thisform.Text5.value=权限 thisform.text6.value=q2 endifendif &&THISFORM.combo1.ADDITEM(temp.学号)skipifeof()thisform.Command4.enabled=.F.thisform.Command3.enabled=.T.else skip-2ifbof()thisform.Command3.enabled=.F. thisform.Command4.enabled=.T. else thisform.Command4.enabled=.T. thisform.Command3.enabled=.T. endifendif在按钮组中的首页click下写如下程序。gotopthisform.Text1.value=班级 thisform.Text2.value=姓名 thisform.Text3.value=学号 thisform.Text4.value=姓别 thisform.Text5.value=权限 thisform.Combo1.value=编号 selecjieboos q2="" dowhile.not.eof() ifallt(read编号)==allt(thisform.Combo1.value) q2=q2+书名 endif skip enddo thisform.text6.value=q2 gotopselereadpeoplethisform.Command3.enabled=.F.thisform.Command4.enabled=.T.在按钮组中的上一页click下写如下程序。if!bof() skip-1 thisform.Text1.value=班级 thisform.Text2.value=姓名 thisform.Text3.value=学号 thisform.Text4.value=姓别 thisform.Text5.value=权限 thisform.Combo1.value=编号 t=recno() selecjieboos gotop q2="" dowhile.not.eof() ifallt(read编号)==allt(thisform.Combo1.value) q2=q2+书名 endif skip enddo thisform.text6.value=q2 selereadpeople got ifbof() thisform.Command3.enabled=.F. endifendififeof()thisform.Command4.enabled=.F.elsethisform.Command4.enabled=.T.endif在按钮组中的下一页click下写如下程序if!eof()skipthisform.Text1.value=班级 thisform.Text2.value=姓名 thisform.Text3.value=学号 thisform.Text4.value=姓别 thisform.Text5.value=权限 thisform.Combo1.value=编号 t=recno() selecjieboos gotop q2="" dowhile.not.eof() ifallt(read编号)==allt(thisform.Combo1.value) q2=q2+书名 endif skip enddo thisform.text6.value=q2selereadpeoplegot else thisform.Command4.enabled=.F.endififbof()thisform.Command3.enabled=.F.elsethisform.Command3.enabled=.T.endif在按钮组中的尾记录click下写如下程序selereadpeoplegobottomthisform.Text1.value=班级 thisform.Text2.value=姓名 thisform.Text3.value=学号 thisform.Text4.value=姓别 thisform.Text5.value=权限 thisform.Combo1.value=编号 selecjieboos gotop q2="" dowhile.not.eof() ifallt(read编号)==allt(thisform.Combo1.value) q2=q2+书名 endif skip enddo thisform.text6.value=q2gobottomselecreadpeoplethisform.Command4.enabled=.F.thisform.Command3.enabled=.T.在按钮组中的退出click下写如下程序thisform.release（5）创建一个表单为报表显示，并且在表单中插入三个命令按钮分别为按书名，按isbn，读者显示在按书名的click事件下写如下程序reportform按书名在按isbn的click事件下写如下程序reportform按isbn在读者显示的click事件下写如下程序reportformreadperson（6）创建一个查询-按isbn的表单并且在其按钮确定下写如下程序ifselect("books")=0 &&检查数据表是否打开 messagebox("数据表books不存在，请检查后再试！",0+16,"警告")else selectbooks &&选取account表 &&setordertoUID &&设置username为控制索引 locateforallt(thisform.Combo1.value)==allt(isbn) &&按索引查找当前所选user相关记录seek iffound() thisform.Text1.value=书名 thisform.Text2.value=出版社 thisform.Text3.value=类别 thisform.Text4.value=简介 thisform.Text5.value=作者 thisform.Text6.value=单价 thisform.Text7.value=购