新Visual FoxPro数据库程序设计教程 教学课件 康贤 第8章 第10章.pptVIP

图10.6 图书借阅表单 　　下面对有关对象的属性及代码进行说明： 　　(1) 数据环境。数据环境中共包含了四个表，为读者理解后面给出的代码，这里对数据环境的Cusosr对象与表的对应关系说明如下： 　　Cuosorl—typer.dbf 图书类型表 　　Cursor2—booker.dbf 图书登记表 　　Cursor3—reader.dbf 借书证登记表 　　Cursor4—brower.dbf 借书登记表 　　(2) “借书证编号”组合框的属性和事件代码。 　　ControlSource属性——reader.dzbh 　　InteractiveChange代码： 　　　　ThisForm.Dataenvironment.Cursor3.Filter=dzbh= ++This.Value+ 　　　　ThisForm.Dataenvironmen.Cursor4.Filter= dzbh=++； 　　　　This.Value++ AND data( )-browe.ghrq=0 　　　　ThisForm.Refresh 　　LostFocus代码： 　　　　ThisForm.Dataenvironment.Cursor3.Filter= dzbh=++This.Value+ 　　　　ThisForm.Dataenvironment.Cursor4.Filter= dzbh=++； 　　　　 This.Value++ AND data( )-browe.ghrq=0 　　　　ThisForm.Refresh 　　(3) “图书类型选择”组合的属性。 　　RowSource属性——Typer.lb 　　(4) 显示姓名的文本框。 　　Controlsource属性——reader.xm 　　(5) 显示电话号码的文本。 　　Controlsource 属性——reader.dh 　　(6) 表单上半部分的表格对象，由表格对象生成器生成即可，注意该表格对象以book.dbf表为数据源。 　　(7) 表单下半部分的表格对象，由表格对象生成器生成即可，注意该表格对象以brower.dbf表为数据源。 　　(8) “借书”按钮的Click时间代码如下： 　　　　if booker.tsbh=trim(bo2.value) 　　　　　　replace booker.zks with booker.zks-1 　　　　endif 　　　　if used(brower) 　　　　select brower 　　　　go bottom 　　　　append blank 　　　　endif 　　　　if booker.tsbh=trim(bo2.value) 　　　　replace brower.tsbh with booker.tsbh 　　　　replace brower.jyrq with date() 　　　　endif 　　　　if used(reader) 　　　　select reader 　　　　replace brower.dzbh with reader.dzbh 　　　　endif 　　　　thisform.refresh 　　　　return 　　3) 还书登记表单的设计 　　还书登记表单的运行界面如图10.7所示。该表单共涉及reader.dbf，brower.dbf和book.dbf等三个数据表，当用户在借书证编号的组合框中选择一个借书证编号后，系统自动在后面的文本框中显示与该编号对应的读者姓名和联系电话，并在表格对象中显示该读者尚未归还的图书，然后由用户在表格中用鼠标选择其要归还的图书，选中后单击“还书”按钮。程序进行两项工作，其一，将系统日期赋值给brower.dbf表的当前记录的对应字段，表示其已于当日归还所借图书；其二，在book.dbf表中修改与所还图书对应“在库数zks字段”的数量。 图10.7 还书表单 　　有关对象的属性及代码说明如下。 　　(1) 数据环境。该数据环境中包含三个表，数据环境中Cursor对象与表的对应关系是： 　　　 Cursor1——reader.dbf 　　　 Cursor2——rower.dbf 　　　 Cursor3——book.dbf 　　(2) “借书证编号”组合框的属性和事件代码。 　　RowSource属性——reader.dzbh 　　GotFocus事件代码： 　　　　ThisForm.Dataenvironment.Cursorl.Filter= 　　　　ThisForm.Refresh 　　InteractiveChange事件代