授课I图书系统表单

1、18.1 查看借书情况表单18.2 成批录入图书表单118.1 查看借书情况表单【学习目标】 查看借书情况表单的制作 【关键方法】 一对多表单向导的使用 2 【任务】 设计制作“查看借书情况”表单 【解决任务】 设计制作 在“项目TS”中创建表单（用一对多表单向导），完成后，以TSKJ为名保存。 按图6C所示，在使用表单向导制作过程中，父表为DZB，并选用表中的证号、姓名、部门、电话等字段；子表为JSV视图，并选用表中的编码、书名、作者、出版社、单价、借书日期、还书日期、书号等字段。 按图6C所示，进行表单的 重新布局和美化工作。运行中的表单， 见图6C。图6C318.2 成批录入图书表单【学

2、习目标】 成批录入图书表单的制作 【关键方法】 VFP应用程序的编写4 【任务】 设计制作“成批录入图书”表单 【解决任务】 可将电子表格的图书数据成批录入到数据库,提高工作效率。 1. 设计思路 在“项目TS”中创建表单（用表单设计器），以TSPL为名保存。 设置表单TSPL相关的属性，使其成为在顶层表单中，运行时居中。 按图6D所示，在表单TSPL中添加一个“列表框”控件。 按图6D所示，在表单中施放 “转换和导入”、 “退出”两个 按钮。施放 一些标签，用以 表明表单的标 题和提示操作 方法。 运行中的表单， 见图6D。图6D52. 属性设置 表单 Form1的属性 AutoCenter

3、 为 .T. ShowWindow 为 1在顶层表单中 其它一些属性按图6D自行设置。3. 事件代码 （1）列表框LIST1 的INIT事件代码: LIST1 INIT: PUBL KB public arl 1 =ADIR(arl,tsb*.XLS) =ASORT(arl) thisform.list1.Rowsourcetype=5 thisform.list1.Rowsource=arl（2）列表框LIST1 的CLICK事件代码: KB=THIS.VALUE 6（3） “转换和导入”按钮的Click事件代码KBB=ALLT(KB)KBX=KBB+ TYPE XL5SELE EUSE T

4、SBCOPY STRU TO YTSB &P105USESELE FUSE YTSBAPPE FROM &KBX &把选中的Excel表中的记录录入到表YTSBK 中DELE RECO 1草药 &删除表头/字段名PACKBROW NOAPPEND NODELETE NOEDIT &浏览时不允许对记录进行追加、删除、编辑p100USEX=MESSAGEBOX(你已将表: &KBB. 电子表的数据成功转换!+CHR(13)+CHR(13)+;你确认将表: &KBB. 数据添加到本系统的表TSB中吗?,1+32,提示)IF X=1 SELE E USE TSB SELE F USE YTSB GO

5、TOP7DO WHIL !EOF() &直到最后一条记录 SCAT TO BA & P63将表的当前记录复制到数组“BA”中 SELE E LOCA FOR 书号=BA(2) &查找此记录在原TSB中是否存在，并定位 IF FOUND() REPL 数量 WITH 数量+F.数量 &此记录在原TSB中存在，则使书的数量加1 ELSE INSE INTO TSK!TSB FROM ARRA BA ENDIF SELE F SKIP ENDDO DELE ALL PACK USE SELE E USE X1=MESSAGEBOX(你已将表: &KBB. 数据成功添加到本系统的表TSB中了!+CHR(13)+CHR(13)+; 想浏览一下吗?,1+32,提示) IF X1=1