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+书名
endif skip
enddo
thisform.text6.value=q2
go bottom selec readpeople
thisform.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(\&&检查数据表是否打开
messagebox(\数据表books不存在，请检查后再试！\警告\
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、连编程序
三、总结
在做图书管理系统的过程中翻阅书籍，查阅资料，询问同学中学了很多，也懂了很多。系统做得不是那么完善，还有待学习和加强，希望老师指教。
冉旭东 20142106206 指导老师:李振恩 2015-12-4