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

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.5 书名查询界面设计

在该界面下，用户可根据书名查询相关书籍的对应信息和借阅情况。 1、表单界面的设计与运行情况如下图所示

2、添加响应代码

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

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

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

ALLTRIM(书名)=ALLTRIM(thisform.text.value)into TABLE cxb书名 select cxb书名

LOCATE FOR ALLTRIM(书名)=ALLTRIM(thisform.text.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.6 书号查询页面设计

在该界面下，用户可根据书名查询相关书籍的对应信息和借阅情况。 1、表单界面的设计与运行情况如下图所示

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) 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 新书入库界面设计

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

②图书查找界面