VF实习练习题汽车修理管理信息系统

1、 VFP及其应用系统开发 实习报告VFP及其应用系统开发实习报告 姓名：肖梦 班号：080122 学号：20121003361 指导老师：於世为 时间：2014.01.11-2014.01.15实习内容表1 职工工资表姓名分厂基本工资奖金扣款应发工资备注李民1500.00200.0050生产优秀奖王华1400.0050.0040.00胡立1280.0080.0040.00彭伟2350.0060.0040.00张良2480.0080.00200.00生产事故合计99一、根据表1，作如下操作练习 1. Create gz20121003361 2、添加： use gz20121003361 app

2、end 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

3、 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

4、 fc ?"2分厂人数：",fc 求和： sum 奖金 to mjj ?"总奖金：",mjj2、 简单编程练习、1、程序：modify command yzc*yzc.prgclear10,5 say "请输入所求圆的半径"?input "半径:" to rs=2*pi()*r?sreturn 2、程序：modify command yfbx*yfbx.prgclear2,5 say "请输入您的储户存款"?input "储户存款：" to xinput "存款时间

5、：" to ndo casecase n=1y=x*(5.0/100+1)case n=2y=x*(5.5/100+1)case n=3y=x*(6.2/100+1)endcase?"应偿还本息金额:",yreturn 3、 程序：modify command qg*qg.prgclearinput"输入一次项系数" to ainput"输入二次项系数" to binput"输入常数项系数" to cn=b*b-4*a*cdo casecase n<0?"无实数解"case n=

6、0x=(-b+SQRT(n)/(2*a)?"x1=x2=",xcase n>0x1=(-b+SQRT(n)/(2*a)x2=(-b-SQRT(n)/(2*a)?"x1=",x1?"x2=",x2endcasereturn 4、程序：modify command QH*qh.prgclear3,5 say "计算S=1+2+3+N"input "输入求和项数：" to NS=0for i=1 to N S=S+inext?"S=",S三、根据表1，用命令方式和程序方式分别

7、完成以下任务1 计算每个人的应发工资及各项工资合计计算应发工资：命令语句：use gz20121003361listreplace all 应发工资 with 基本工资+奖金-扣款list程序：*应发工资.prg clear use gz20121003361 list replace all 应发工资 with 基本工资+奖金-扣款 list各项工资合计：命令语句：use gz20121003361listdimension s(1,4)Sum 基本工资,奖金,扣款,应发工资 to s(1),s(2),s(3),s(4)go 6gather from s fields 基本工资,奖金,扣款,

8、应发工资list 程序：*工资合计.prg clear use gz20121003361 list dimension s(1,4) Sum 基本工资,奖金,扣款,应发工资 to s(1),s(2),s(3),s(4) go 6 gather from s fields 基本工资,奖金,扣款,应发工资 list 2、按分厂汇总，生成全厂工资汇总表gzhz?.dbf，其格式如下：分厂基本工资奖金扣款应发工资1299 命令语句：use gz20121003361 index on 分厂 tag fc total on 分厂 to gzhz fields 基本工资,奖金,扣款,应发工资 use g

9、zhz browse fields 分厂,基本工资,奖金,扣款,应发工资 title"全厂工资 汇总表"程序语句： *全厂工资汇总.prg clear use gz20121003361 index on 分厂 tag fc total on 分厂 to gzhz fields 基本工资,奖金,扣款,应发工资 use gzhz browse fields 分厂,基本工资,奖金,扣款,应发工资 title"全厂工资 汇总表"3、根据需要，打印职工工资表或者全厂工资汇总表 命令语句：close use gz20121003361 list to printe

10、r use gzhz list to printer 程序：*打印工资表.prgcleartext * * 1.打印职工工资表 * * 2.打印全厂工资汇总表 * * 3.退出 * *endtextdo while .t. 6,5 clear input '请输入13：' to x do case case x=1 use gz20121003258 list to printer prompt nocon case x=2 use gzhz list to printer prompt nocon case x=3 wait '系统将关闭' window ti

11、meout 2 exit endcaseenddouse4、 利用表单，设计gz?.dbf的录入、修改等维护功能 程序：*录入修改.prgclearuse gz20121003361Text * * 1.录入数据 * * 2.修改数据 * * 3.退出 * *endtextdo while .t. 6,10 clear 6,10 say "请输入1-3:" get hy default space(1) read do case case hy="1" do lr case hy="2" do xg case hy="3&q

12、uot; wait "系统将关闭!" window timeout 3 exit endcaseenddouseclearset talk onset safety onprocedure lr?" 记录输入结束后按 Ctrl+W 存盘."appendprocedure xg?" 记录修改结束后按 Ctrl+W 存盘."go 1browse四、小型系统设计1 编写一个主控程序，将第三题中各子程序组装起来，建成一个工资管理系统程序：*主程序.prgclearuse gz20121003361text * * 1.应发工资合计 4.打印工资数据 * * 2.各项工资合计 5.录入修改功能 * * 3.按分厂汇总工资 6.退出 * *endtextdo while .t. input "请输入1-6：" to hy do case case hy=1 do 应发工资 ca