vfp上机练习题(最终答案)

《vfp上机练习题(最终答案)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1．新建商品数据表SB.DBF，字段有：商品号（C,5），商品名（C,8），单价（N,5,2），出厂单价(N,5,2)，产地(C,6)。并添加如下记录：商品号（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)Sele*fromsbwhere商品名=”&a%”2）单击“调整”按钮时，将“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价的110%。Updatesbset单价=出厂单价*1.1whereleft(商品号,2)=”10”Usesbin0Selesbbrow3）单击“备份”按钮时，将“商品表”进行备份(使用命令COPYTO)，备份文件名为“商品

3、表备份.DBF”，Copyto商品表备份Use商品表备份in0aliaspSelespbrow4）单击“退出”按钮时，关闭表单。Thisform.release2．设计一个菜单。主菜单子菜单任务文件（F）建查询(C)Ctrl+C新建立查询，表自备，查询内容、文件名自定保存（S）_mfi_save关闭(G)编辑（E）输入(I)appendblank修改(E)修改该查询modifystructure运行（R）Ctrl+R运行该查询显示结果doform1.scx退出（X）过程提示“退出菜单？”，退出恢复系统隐含菜单msg=messagebox

4、(“退出菜单？”,1)ifmsg=1setsysmenutodefaendif1．在建立“E:专业姓名”文件夹下，建立表单（bd2.scx），添加标签“输入字符串”、文本框，添加“输出”、“退出”命令按钮，并编写代码。“输出”Click代码：把文本框内输入的字符串，去掉左、右、中间所有空格字符后，在信息框显示。“退出”：结束表单运行。n=thisform.text1.valuei=0H=len(thisform.text1.value)thisform.text1.value=space(0)dowhilei

5、rm.text1.value=thisform.text1.value+allt(substr(n,i,1))enddo2．设计一个电话计费程序。假定每分钟通话费用为0.12元。要求：表单窗口中用标签形式列出开始时间、结束时间、通话时间及应付金额（元），再设计一个开始按钮（按下后开始计时）和计费按钮（按下后显示结束时间、通话时间及费用）开始Thisform.text2.value=time()T1=second()/60Thiaform.refresh计费Thisform.text2.value=time()T2=second()/60

6、T=t2-t1T3=round(t+0.5,0)Thisform.text3.value=str(t,6,4)+”分钟”Thisform.text3.value=str(0.12*t3,6,4)+”元”Thisform.refresh3．建立“学生管理”数据库，在其中新建“成绩”数据表并任意输入3条记录，结构如下：学号C(8),姓名C(8),计算机N(5.1),英语N(5.1),数学N(5.1)，总成绩N(5.1)。建立表单（bd1.scx），用表格显示该数据表，添加标签“计算机平均成绩”及显示该数据的文本框。添加“计算”、“退出”命令

7、按钮，并编写代码。“计算”Click代码：计算“总成绩”字段的值(总成绩＝计算机+英语+数学)，计算“计算机平均成绩”的值并在文本框显示。“退出”：结束表单运行。COMMAND1:thisform.grid1.recordsource="sele*from成绩intocursora"seleavg(计算机)from成绩intoarrayAthisform.text1.value=Aupdate成绩set总成绩=计算机+英语+数学1．建“订货管理”数据库。在其中新建数据表customer，表结构如下：客户号(C/8)、客户名(C/10)、

8、地址(C/20)、电话(C/12)。以客户号建立主索引。新建数据表order_list，表结构如下：客户号(C/8)、订单号(C/10)、日期(D)、总金额(N/12,2)。以客户号建立普通索引，并与cus