SELECT 借还书表.书号,书名,作者,出版社,价格,姓名,借书日期,还书日期,是否按期还书 FROM 图书信息表,借还书表,读者表 WHERE 读者表.读者编号=借还书表.读者编号;

AND 借还书表.书号=图书信息表.书号 AND;

ALLTRIM(图书信息表.书号)=ALLTRIM(thisform.text1.value)into TABLE cxb书号

select cxb书号

LOCATE FOR ALLTRIM(图书信息表.书号)=ALLTRIM(thisform.text1.value) thisform.grd.recordsourcetype=0

thisform.grd.recordsource="cxb书号" (2)”退出”按钮的click事件

yn=MESSAGEBOX("您确定退出吗？",4+32,"系统信息") IF yn=6

thisform.Release CLEAR EVENTS QUIT Endif

4.4.7 新书入库界面设计

在主界面点击新书入库，可在该界面下进行新书信息的录入与保存。而且在该界面下，也可以利用图书的任一属性对已有图书进行查找，快速定位。 ①新书信息录入界面

②图书查找界面