对“图书借阅”数据库中的表“borrows”、“loans”和"book”,建立文件名为“myform”的表单,标题为“图书借阅浏览”,表单上有3个命令按钮:“读者借书查阅”、“书籍借出查询”和“退出”。
单击“读书借书查询”按钮,查询每月下旬借出的书的所有读者的“姓名”、“借书证号”和“图书登记号”,同时将查询结果保存在表“tablel”中。
单击“书籍借出查询”按钮,查询借“数据库设计”一书的所有读者的“借书证号”和“借书日期”,结果中含“书名”、“借书证号”和“日期”字段,同时保存在表“table2”中。
单击“退出”按钮关闭菜单。
【操作步骤】
①在Visual Foxpro的命令窗口中输入:create form myform,打开表单设计器,设置其Caption属性为“图书借阅浏览”。
②单击主菜单【显示】→【数据环境】,然后单击右键,选择“添加”,将表“book”、“borrows”和“loans”添加到数据环境中。
③单击表单控件工具栏上的“命令按钮”控件图标,向表单添加3个命令按钮,选择其中一个将其Caption属性改成“读者借书查阅”。然后双击该按钮,在Click事件中输入:
Select borrows.姓名,borrows.借书证号,loans.图书登记号From borrows inner join loans on borrows.借书证号=loans,借书证号Where day(10ans.结束日期)>=20 into table table1
④选择第二个命令按钮,修改Caption属性为“书籍借出查询”。双击命令按钮,在Click事件中输入:
Select book.书名,loans.借书证号,loans.借书日期From book inner join loans on book.图书登记号=loans.图书登记号Where book.书名=“数据库设计”into table table2。
⑤选择第三个按钮,将其Caption属性改为“退出”,然后双击命令按钮,在Click事件中输入:Thisform.Release。
⑥保存表单。