VFP.... 最好可以有详细的过程，，谢谢。。。

1
首先创建数据库VFKS-ADBC，然后创建那两个表。SXDBF里把零件编号设置为主索引（PRIMARY），单价设置为普通索引（REGULAR）；YTDBF里把零件编号设置为主索引。在设计窗口的数据库窗口中两个表 *** 作建立永久关系：鼠标左键按住SXDBF字段列表最下方索引里的索引字段零件编号拖至YTDBF字段列表最下的索引字段里的零件编号，然后释放鼠标。这是会出现一条黑线，表示两个表的永久关系已经建立。
2
创建程序VFKS-APRG，其中代码如下：
考生姓名：XXX
学号：100001
2(1)
OPEN DATABASE vfks-aDBC
USE sx ALIAS sx IN 0
USE yt ALIAS yt IN 0
SELECT sx
SET ORDER TO 单价 DESCENDING
GO TOP
FOR I=1 TO 2
零件编号,零件名,yt用途
SKIP
ENDFOR
2(2)
SELECT sx零件编号,(sx单价yt数量) AS 合计,yt用途 FROM sx;
INNER JOIN yt;
ON sx零件编号=yt零件编号;
ORDER BY yt用途;
INTO CURSOR LINSHI
SELECT LINSHI
LIST
CALCULATE SUM(合计) TO ZJ
CLOSE TABLES ALL
CLOSE DATABASES
3
1)表单的CAPTION属性设置为学号及姓名；表单中添入4个LABEL,2个BUTTON，2个TEXTBOX;
2)表单的INIT事件里写上：THISFORMLABEL4VISIBLE=F；两个TEXTBOX的INIT事件里写上：THISVALUE=0 只能输入整数的设定
3）在BUTTON1中写上代码：
IF THISFORMTEXT1Value<100 OR THISFORMTEXT1VALUE>200
=MESSAGEBOX("请在TEXT1中输入100-200之间的自然数！",0+64,"提示")
THISFORMTEXT1SetFocus
ELSE
N=THISFORMTEXT1Value
HE=0
GESHU=0
FOR I=3 TO N
IF I%3=0
HE=HE+I
GESHU=GESHU+1
ENDIF
ENDFOR
THISFORMTEXT2Value=HE
THISFORMLABEL1Caption="共有"+ALLTRIM(STR(GESHU))+"个数能被3整除！"
THISFORMLABEL1Visible=T
ENDIF
THISFORMRefresh
4）在BUTTON2里写上代码：THISFORMRELEASE

设置关键字，在新建表窗口的index选项卡中，创建索引，索引类型选择“主键”/primary key,
完成索引类型的选择后，选择一下排序方式，确定，那么这个字段就是主键了。

注意的一点是：VFP中的表有自由表和数据库表两类，只有数据库表才可以创建主键，自由表是不能创建的。如果创建，必须先把表加入到一个数据库中才可以。

1
1）len(xh)=6 or len(xh)=8 or len(xh)=10
2）把表设计器打开，选中xh字段，在字段注释中输入 "该字段是学生表的主关键字，不允许重复"
3）把表设计器打开，选中xm字段，在索引下拉列表中选择 升序，单击索引选项卡，修改索引名为xing，类型惟一索引，索引表达式
left(xm,2)
4）打开表设计器，选中表选项卡，在标注释框中输入 学生基本信息
2
update xs set xh=left(xh,2)+substr(bjbh,3,2)+substr(xh,3)

---