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.0 500.0 青岛

20001 电子字典 360.0 200.0 深圳

10002 手机8210 980.0 600.0 北京

30001 MP3 800.0 560.0 广州

10003 商务通 890.0 460.0 深圳

设计一个名称为MY_FORM的表单，上面有“浏览”、“调整”、“备份”和“退出”四个命令按钮，“商品名称”标签和文本框text1。

1） 在text1中输入文本，单击“浏览”按钮时，显示商品名含有该文本的所有商品记

录。

a=allt(thisform.text1.value)

aa="sele * from sb where 商品名 like '%&a%' into cursor x"

thisform.grid1.recordsource=aa

thisform.grid1.refresh

2） 单击“调整”按钮时，将“商品号”前两位编号为“10”的商品的“单价”修改为

出厂单价的110%。

update sb set 单价=出厂单价*1.1 where left(商品号,2)="10"

bb="sele * from sb into cursor y"

thisform.grid1.recordsource=bb

3） 单击“备份”按钮时，将“商品表”进行备份(使用命令COPY TO )，备份文件名

为“商品表备份.DBF”，

copy to 商品表备份

4） 单击“退出”按钮时，关闭表单。

2． 在建立“D:\学号姓名”文件夹下，建立表单（bd2.scx），添加标签“输入字符串”、文本框，添加“输出”、“退出”命令按钮，并编写代码。“输出”Click代码：把文本框内输入的字符串，去掉左、右、中间所有空格字符后，在信息框显示。“退出”：结束表单运行。 a=thisform.text1.value

n=len(a)

i=1

s=""

for i=1 to n

if substr(a,i,1)<>space(1)

s=s+substr(a,i,1)

endif

endfor

messagebox(s,0)

3． 建立“学生管理” 数据库，在其中新建“成绩”数据表并任意输入3条记录，结构如下：学号C(8),姓名C(8),计算机N(5.1),英语N(5.1),数学N(5.1)，总成绩N(5.1)。建立表单