资源描述：
《中国海洋大学2013年vfp上机练习题参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1．在项目管理器中新建商品数据表SB.DBF，字段有：商品号（C,5），商品名（C,8），单价（N,5,2），出厂单价(N,5,2)，产地(C,6)。并添加如下记录：单价要求在300~900之间。商品号（C,5），商品名（C,8），单价（N,6,2），出厂单价(N,6,2)，产地(C,6)。10001电视机800.0500.0青岛20001电子字典360.0200.0深圳10002手机8210980.0600.0北京30001MP3800.0560.0广州10003商务通890.0460.0深圳设计一个名称为MY_FORM的表单，上面有“浏览”、“调整”、“备份”和
2、“退出”四个命令按钮，“商品名称”标签和文本框text1。1）在text1中输入文本，单击“浏览”按钮时，显示商品名含有该文本的所有商品记录。a=allt(thisform.text1.value)aa="sele*fromsbwhere商品名like'%&a%'intocursorx"thisform.grid1.recordsource=aathisform.grid1.refresh2）单击“调整”按钮时，将“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价的110%。updatesbset单价=出厂单价*1.1whereleft(商品号,2)="1
3、0"bb="sele*fromsbintocursory"thisform.grid1.recordsource=bb3）单击“备份”按钮时，将“商品表”进行备份(使用命令COPYTO)，备份文件名为“商品表备份.DBF”，copyto商品表备份4）单击“退出”按钮时，关闭表单。2．在建立“D:学号姓名”文件夹下，建立表单（bd2.scx），添加标签“输入字符串”、文本框，添加“输出”、“退出”命令按钮，并编写代码。“输出”Click代码：把文本框内输入的字符串，去掉左、右、中间所有空格字符后，在信息框显示。“退出”：结束表单运行。a=thisform.text1
4、.valuen=len(a)i=1s=""fori=1tonifsubstr(a,i,1)<>space(1)s=s+substr(a,i,1)endifendformessagebox(s,0)3．建立“学生管理”数据库，在其中新建“成绩”数据表并任意输入3条记录，结构如下：学号C(8),姓名C(8),计算机N(5.1),英语N(5.1),数学N(5.1)，总成绩N(5.1)9/9。建立表单（bd1.scx），用表格显示该数据表，添加标签“计算机平均成绩”及显示该数据的文本框。添加“计算”、“退出”命令按钮，并编写代码。“计算”Click代码：计算“总成绩”字段的
5、值(总成绩＝计算机+英语+数学)，计算“计算机平均成绩”的值并在文本框显示。“退出”：结束表单运行。update成绩set总成绩=计算机+英语+数学aa="sele*from成绩intocursory"thisform.grid1.recordsource=aaseleavg(计算机)asAfrom成绩intocursor"x"thisform.text1.value=A1．建“订货管理”数据库。在其中新建数据表customer，表结构如下：客户号(C/8)、客户名(C/10)、地址(C/20)、电话(C/12)。以客户号建立主索引。新建数据表order_list，
6、表结构如下：客户号(C/8)、订单号(C/10)、日期(D)、总金额(N/12,2)。以客户号建立普通索引，并与customer建立表间永久关系。1）两个数据表各添加3条记录（保证两个表的客户号存在一对一关系）。2）新建项目“订单”并将数据库添加到该项目中。3）在项目中新建表单如下：完成“上一条”和“下一条”命令按钮的代码。skip-1thisform.refreshifbof()thisform.command1.enabled=.f.thisform.command2.enabled=.t.Endifskipthisform.refreshifeof()this
7、form.command2.enabled=.f.thisform.command1.enabled=.t.endif2．在项目管理器中创建一个student.dbf数据表其结构为学号(C,3)，姓名(C,6)，性别9/9(C,2)，出生日期(D,8)。记录内容自定（出生日期应在1995年以前出生）。要求，根据输入限制条件的上限和下限来查找数据表中的记录，表单会显示查找到的结果。程序的演示效果如图所示。a=thisform.text1.valueb=thisform.text2.valueaa="sele*fromstudentwhere学号betweenaan
