考试网 >> IT认证 >> 等级 >> 等级动态 >> 全国计算机考试二级FoxBASE程序修改题2

全国计算机考试二级FoxBASE程序修改题2

发布时间：2006-07-25 12:00 点击：

分页:上一页 1 2 [3] 4 5 6 7 8 9 下一页

　　index on 帐号to id2

　　sele 3

　　use p3db3

　　set relation to 支行号into A

　　**************found****************

　　set relation to 帐号into B ADDITIVE &&原句为set relation

　　go top

　　do while .not.eof()

　　**************found****************

　　if 存取&&原句为if 存取=.t.

　　sele 1

　　replace 现有资金with 现有资金+ c->金额

　　sele 2

　　replace 余额with 余额+ c->金额

　　else

　　sele 1

　　replace 现有资金with 现有资金- c->金额

　　sele 2

　　replace 余额with 余额- c->金额

　　endif

　　sele 3

　　**************found****************

　　SKIP &&原句为loop

　　enddo

　　sele 1

　　list

　　wait

　　sele 2

　　list

　　wait（资料来源：Http://www.eastedu.com.cn）

　　

　　

第四题：给定程序MODI1.PRG 具有书店的图书和订购管理查询功能，它可以由用户自由选择图书数据库或订购数据库，还能自由选择数据库中的任意字段进行查询。请修改并调试程序，使之正确运行。

　　set talk off

　　do while .t.

　　clear

　　@ 4,16 say "书店信息管理"

　　@ 6,16 prompt "1-图书管理" message "书店现有图书信息"

　　@ 8,16 prompt "2-订购管理" message "客户订单管理"

　　@ 10,16 prompt "0-退出" message "结束工作"

　　set message to 18

　　********************found*****************************

　　menu to m &&原句为accept to m

　　do case

　　case m=1

　　filename="p4db1"

　　case m=2

　　filename="p4db2"

　　otherwise

　　exit

　　endcase

　　sele 1

分页:上一页 1 2 [3] 4 5 6 7 8 9 下一页

版权申明:未经书面授权请勿转载本站信息!!作品版权归所属媒体与作者所有!!

发表评论：

匿名发表

用户名:

查看评论

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