《VF实习练习题汽车修理管理信息系统》由会员分享，可在线阅读，更多相关《VF实习练习题汽车修理管理信息系统（14页珍藏版）》请在金锄头文库上搜索。
1、-VFP及其应用系统开发实习报告*：肖梦 班号：080122 *： 指导教师：於世为实习容表1 职工工资表*分厂根本工资奖金扣款应发工资备注民1500.00200.0050生产优秀奖王华1400.0050.0040.00立1280.0080.0040.00彭伟2350.0060.0040.00良2480.0080.00200.00生产事故合计99一、根据表1，作如下操作练习 1. Create gz2、添加： use gz append blank在表末尾添加空白记录插入： insert into gz(*,分厂,根本工资,奖金,扣款) value(肖梦 ,3,300.00,60.00,50.
2、00)删除： go 7 Delete逻辑删除 Pack 物理删除修改：replace 根本工资 with 根本工资+100.00 3、记录指针移动：go 3reo(),bof()skip -2reo(),bof()skip 5reo(),bof() 4、排序： use gz list sort to jz* on 奖金 for 分厂=1 use jz* list索引： 单索引：inde* on 扣款 to kq* List 复合索引： clear use gz List inde* on 奖金 tag jz descending list inde* on 分厂+str(奖金,6,1) tag
3、 fcjj descending list inde* on 根本工资+奖金-扣款 tag yfgz candidate list 统计：count for 分厂=2 to fc2分厂人数：,fc 求和： sum 奖金 to mjj总奖金：,mjj二、 简单编程练习、1、程序：modify mand yzc*yzc.prgclear10,5 say 请输入所求圆的半径input 半径: to rs=2*pi()*rsreturn2、程序：modify mandyfb*yfb*.prgclear2,5 say 请输入您的储户存款input 储户存款： to *input 存款时间： to ndo
4、 casecase n=1y=*(5.0/100+1)case n=2y=*(5.5/100+1)case n=3y=*(6.2/100+1)endcase应归还本息金额:,yreturn 3、 程序：modify mand qg*qg.prgclearinput输入一次项系数 to ainput输入二次项系数 to binput输入常数项系数 to cn=b*b-4*a*cdo casecase n0*1=(-b+SQRT(n)/(2*a)*2=(-b-SQRT(n)/(2*a)*1=,*1*2=,*2endcasereturn 4、程序：modify mand QH*qh.prgclear
5、3,5 say 计算S=1+2+3+Ninput 输入求和项数： to NS=0for i=1 to N S=S+ine*tS=,S三、根据表1，用命令方式和程序方式分别完成以下任务1 计算每个人的应发工资及各项工资合计计算应发工资：命令语句：use gzlistreplace all 应发工资 with 根本工资+奖金-扣款list程序：*应发工资.prgclearuse gzlistreplace all 应发工资 with 根本工资+奖金-扣款list各项工资合计：命令语句：use gzlistdimension s(1,4)Sum 根本工资,奖金,扣款,应发工资 to s(1),s(2
6、),s(3),s(4)go 6gather from s fields 根本工资,奖金,扣款,应发工资list程序：*工资合计.prgclearuse gzlistdimension s(1,4)Sum 根本工资,奖金,扣款,应发工资 to s(1),s(2),s(3),s(4)go 6gather from s fields 根本工资,奖金,扣款,应发工资list 2、按分厂汇总，生成全厂工资汇总表gzhz.dbf，其格式如下：分厂根本工资奖金扣款应发工资1299命令语句：use gzinde* on 分厂 tag fctotal on 分厂 to gzhz fields 根本工资,奖金,扣
7、款,应发工资use gzhzbrowse fields 分厂,根本工资,奖金,扣款,应发工资 title全厂工资汇总表程序语句： *全厂工资汇总.prgclearuse gz inde* on 分厂 tag fc total on 分厂 to gzhz fields 根本工资,奖金,扣款,应发工资 use gzhz browse fields 分厂,根本工资,奖金,扣款,应发工资 title全厂工资 汇总表3、根据需要，打印职工工资表或者全厂工资汇总表 命令语句：close use gz list to printer use gzhz list to printer程序：*打印工资表.prg
8、clearte*t * * 1.打印职工工资表 * * 2.打印全厂工资汇总表 * * 3.退出 * *endte*tdo while .t. 6,5 clear input 请输入13： to * do case case *=1 use gz list to printer prompt nocon case *=2 use gzhz list to printer prompt nocon case *=3 wait 系统将关闭 window timeout 2 e*it endcaseenddouse4、 利用表单，设计gz.dbf的录入、修改等维护功能程序：*录入修改.prgclea
9、ruse gzTe*t * * 1.录入数据 * * 2.修改数据 * * 3.退出 * *endte*tdo 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 *g case hy=3 wait 系统将关闭! window timeout 3 e*it endcaseenddouseclearset talk onset safety onprocedure lr 记录输入完毕后按 Ctrl+W 存盘.appendprocedure *g 记录修改完毕后按 Ctrl+W 存盘.go 1browse四、小型系统设计1 编写一个主控程序，将第三题中各子程序组装起来，建成一个工资管理系统程序：*主程序.prgclearuse gzte*t * * 1.应发工资合计 4.打印工资数据 * * 2.各项工资合计 5.录入修改功能 * * 3.按分厂汇总工资 6.退出 * *endte*tdo while .t. input 请输入1-6： to hy do case case hy=1 do 应发工资 case hy=2 do 工资合计 case hy=3 do 全厂工资汇总 case hy=4 do
