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

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

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

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

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

　　use &filename &&原句为use filename

　　copy to p4db3 structure extended

　　sele 2

　　use p4db3

　　do while .t.

　　clear

　　@ 1,4 say "请选择字段名:"

　　go top

　　i=3

　　do while .not.eof() &&显示所选数据库的字段名

　　j=1

　　do while j<=5.and..not.eof()

　　@ i,(j-1)*10+4 prompt field_name

　　skip

　　j=j+1

　　enddo

　　i=i+2

　　enddo

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

　　menu to n &&原句为select menu

　　go n

　　store field_name to fname

　　sele 1

　　disp all fields &fname

　　wait

　　sele 2

　　exit

　　enddo

　　close all

　　enddo

　　set talk on

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

　　

　　第五题：给定程序MODI1.PRG 的功能是：往P5DB2学生数据库中输入学生信息，为了保持参照完整性，系名信息必须是P5DB1学校数据库系名字段所拥有的值。为此，MODI1.PRG采用了选择菜单的方法录入系名字段值，选择菜单的菜单项内容，就是P5DB1学校数据库的系名字段值。（资料来源：东方教育网 Http://www.eastedu.com.cn）

　　set talk off

　　dimension array(3) &&为存储学生记录

　　store 200000 to array(1) &&为学号

　　store " " to array(2) &&为姓名

　　store " " to array(3) &&为所属系系名

　　use p5db2

　　zap

　　select 1

　　use p5db1 &&为包括系号,系名的学校信息数据库

　　index on 系名to p5db1

　　count to n

　　x=1

　　dimension d(n)

　　go top

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

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

发表评论：

匿名发表

用户名:

查看评论

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