考试网 >> IT认证 >> 等级 >> 二级考试 >> 二级FOXPRO样卷(二)

发布时间：2006-06-27 23:57     点击：

(4) DO WHILE .NOT.EOF()

(5) IF SUBSTR(编号,1,1)= "3"

（6） S1=S1+标准工资

（7） S2=S2+津贴

（8） S3=S3+补贴

（9） S4=S4+应领工资

（10） S5=S5+扣款

（11） S6=S6+实领工资

（12） ENDIF

（13） EXIT

（14） ENDDO

（15） APPEND BLANK

（16） REPL标准工资WITH S1，津贴WITH S2，补贴 WITH S3

（17） REPL 应领工资 WITH S4，扣款 WITH S5，实领工资 WITH S6

（18） USE

（19） SET TALK ON

（20） RETURN

3．显示未婚职工的基本情况。

（1） SET TALK OFF

（2） CLEAR

（3） USE RS

（4） DO WHILE .NOT.EOF()

（5） IF .NOT. 婚否

（6） @ROW()+2,10 SAY "编号:"+编号

（7） @ROW()+1,10 SAY "姓名:"+姓名

（8） @ROW()+1,10 SAY "性别:"+性别

（9） @ROW()+1,10 SAY "出生日期:"+出生日期

（10） @ROW()+1,10 SAY "职称:"+职称

（11） @ROW()+1,10 SAY "职称:"+职称

（12） @ROW()+1,10 SAY "工龄:"+STR(工龄,2)

（13） ENDIF

（14） SKIP

（15） ENDDO

（16） SET TALK ON

（17） USE

（18） RETURN

4.查出应领工资超过800元的职工,并在其捐款项中加上超过部分20%。

（1） SET TALK OFF

（2） USE GZ

（3） DO WHILE .NOT.EOF()

（4） SS=标准工资+津贴+补贴

（5） IF SS>800

（6） ? 编号

（7） REPL 扣款 WITH (SS-800)*0.2

（8） ENDIF

（9） SKIP

（10） ENDDO

（11） SET TALK ON

（12） USE

（13） RETURN

5.在RS.DBF和GZ.DBF中对副教授以上职称的职工增加津贴50元。

（1） SET TALK OFF

（2） SELE A

（3） USE GZ

（4） INDEX ON 编号 TO IGZ1

（5） SELE B

（6） USE RS

（7） SET RELA TO 编号 INTO A

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。