图书馆信息管理系统课程设计(12)

2、添加响应代码

（1）“确定”按钮的click事件

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

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

ALLTRIM(读者表.读者编号)=ALLTRIM(thisform.text1.Value)INTO TABLE cxb读者编号

SELECT cxb读者编号

LOCATE FOR ALLTRIM(读者编号)=ALLTRIM(thisform.text1.value) IF NOT FOUND()

MESSAGEBOX("无该读者，请核对您输入是否正确",0+48,"注意：") ELSE

thisform.grd.recordsourcetype=0

thisform.grd.recordsource="cxb读者编号" Endif

（2）“退出”按钮的click事件

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

thisform.Release CLEAR EVENTS QUIT endif

4.4.4 读者姓名查询界面设计

在该页面下，用户可更具读者姓名查询相应读者的个人信息和书籍借阅情况。

1、表单界面的设计及运行结果如图所示。