授课-I_图书系统表单.pptVIP

18.1 查看借书情况表单 【学习目标】 查看借书情况表单的制作 【关键方法】 一对多表单向导的使用 【任务】 设计制作“查看借书情况”表单 【解决任务】 设计制作 在“项目TS”中创建表单（用一对多表单向导），完成后，以TSKJ为名保存。 按图6C所示，在使用表单向导制作过程中，父表为DZB，并选用表中的证号、姓名、部门、电话等字段；子表为JSV视图，并选用表中的编码、书名、作者、出版社、单价、借书日期、 还书日期、书号等字段。 按图6C所示，进行表单的 重新布局和美化工作。 运行中的表单， 见图6C。 18.2 成批录入图书表单 【学习目标】 成批录入图书表单的制作 【关键方法】 VFP应用程序的编写 【任务】 设计制作“成批录入图书”表单 【解决任务】 可将电子表格的图书数据成批录入到数据库,提高工作效率。 1. 设计思路 在“项目TS”中创建表单（用表单设计器），以TSPL为名保存。 设置表单TSPL相关的属性，使其成为在顶层表单中，运行时居中。 按图6D所示，在表单TSPL中添加一个“列表框”控件。 按图6D所示，在表单中施放 “转换和导入”、 “退出”两个 按钮。施放 一些标签，用以 表明表单的标 题和提示操作 方法。 运行中的表单， 见图6D。 2. 属性设置 表单 Form1的属性 AutoCenter 为 .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 （3） “转换和导入”按钮的Click事件代码 KBB=ALLT(KB) KBX=KBB+ TYPE XL5 SELE E USE TSB COPY STRU TO YTSB P105 USE SELE F USE YTSB APPE FROM KBX 把选中的Excel表中的记录录入到表YTSBK 中 DELE RECO 1草药 删除表头/字段名 PACK BROW NOAPPEND NODELETE NOEDIT 浏览时不允许对记录进行追加、删除、编辑p100 USE X=MESSAGEBOX(你已将表: KBB. 电子表的数据成功转换!+CHR(13)+CHR(13)+; 你确认将表: KBB. 数据添加到本系统的表[TSB]中吗?,1+32,提示) IF X=1 SELE E USE TSB SELE F USE YTSB GO TOP DO 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 USE TSB BROW NOAP NODE NOED USE ENDI ELSE MESSAGEBOX(取消本次添加操作!,64,提示) ENDI 茂名职业技术学院 授课-18 图书系统表单制作(2) 18.1 查看借书情况表单 18.2 成批录入图书表单 本课通过讲授几个图书系统表单制作的实例，提高同学们解决实际问题的能力。 图6C 图6D - 结束 -