VF实习练习题 汽车修理管理信息系统要点.docVIP

VFP及其应用系统开发实习报告 姓名：肖梦 班号：080122 学号：20121003361 指导老师：於世为 时间：2014.01.11-2014.01.15 实习内容 表1 职工工资表 姓名 分厂 基本工资 奖金 扣款 应发工资 备注 李民 1 500.00 200.00 50 生产优秀奖 王华 1 400.00 50.00 40.00 胡立 1 280.00 80.00 40.00 彭伟 2 350.00 60.00 40.00 张良 2 480.00 80.00 200.00 生产事故 合计 99 一、根据表1，作如下操作练习 1. Create gz20121003361 2、添加： use gz20121003361 append blank（在表末尾添加空白记录） 插入： insert into gz20121003361(姓名,分厂,基本工资,奖金,扣款) value(肖梦 ,3,300.00,60.00,50.00) 删除： go 7 Delete（逻辑删除） Pack （物理删除） 修改：replace 基本工资 with 基本工资+100.00 3、记录指针移动：go 3 ?recno(),bof() skip -2 ?recno(),bof() skip 5 ?recno(),bof() 4、排序： use gz20121003361 list sort to jzx on 奖金 for 分厂=1 use jzx list 索引： 单索引：index on 扣款 to kqx List 复合索引： clear use gz20121003361 List index on 奖金 tag jz descending list index on 分厂+str(奖金,6,1) tag fcjj descending list index on 基本工资+奖金-扣款 tag yfgz candidate list 统计： count for 分厂=2 to fc ?2分厂人数：,fc sum 奖金 to mjj ?总奖金：,mjj return 2、程序：modify command yfbx *yfbx.prg clear @2,5 say 请输入您的储户存款 ? input 储户存款： to x input 存款时间： to n do case case n=1 y=x*(5.0/100+1) case n=2 y=x*(5.5/100+1) case n=3 y=x*(6.2/100+1) endcase ??应偿还本息金额:,y return 程序：modify command qg *qg.prg clear input输入一次项系数 to a input输入二次项系数 to b input输入常数项系数 to c n=b*b-4*a*c do case case