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 二、简单编程练习、 .. ... 1、程序： modify command yzc *yzc.prg clear @10,5 say 请输入所求圆的半径 ? input 半径 : to r s=2*pi()*r ?s 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 3、程序： modify command qg *qg.prg clear input 入一次 系数 to a input 入二次 系数 to b input 入常数 系数 to c n=b*b-4*a*c do case case n0 ? 无 数解 case n=0 x=(-b+SQRT(n))/(2*a) ?x1=x2=,x case n0 x1=(-b+SQRT(n))/(2*a) x2=(-b-SQRT(n))/(2*a) ?x1=,x1 ?x2=,x2 endcase return 4、程序： modify commandQH *qh.prg clear @3,5 say 算 S=1+2+3+??+N input 入求和 数： to N S=0 for i=1 to N S=S+i next ?S=,S 三、根据表 1，用命令方式和程序方式分别完成以下任务 1． 计算每个人的应发工资及各项工资合计 算 工 ： .. ... 命令语句： use gz20121003361 list replace all 应发工资 with 基本工资 +奖金 - 扣款 list 程序： * 应发工资 .prg clear use gz20121003361 list replace all 应发工资 with 基本工资 +奖金 - 扣款 list 各项工资合计： 命令语句： use gz20121003361 list dimension s(1,4) Sum 基本工资 , 奖金 , 扣款 , 应发工资 to s(1),s(2)