加我微信1347400116

* 视图按“学生编号”升序排列；
* “Student”与“Chengji”是“一对多”关系；
* “Kecheng”与“Chengji”也是“一对多”关系。
SET SAFE OFF
CLOSE DATABASES ALL
ACCEPT("请输入姓名") To XM
IF .NOT.FILE("XS_DBF\XSDA.DBC")
CREATE DATABASES XS_DBF\XSDA
ADD TABLE XS_DBF\Student.DBF
ADD TABLE XS_DBF\KeCheng.DBF
ADD TABLE XS_DBF\ChengJi.DBF
ADD TABLE XS_DBF\ZongF.DBF
ENDIF
OPEN DATABASE XS_DBF\XSDA.DBC EXCLUSIVE
SELECT Chengji.行次,Chengji.学生编号,Student.姓名,Student.性别,;
Student.年龄,Chengji.课程代码,Kecheng.课程名称,Chengji.考试日期,;
Chengji.分数,Kecheng.学分,Chengji.说明 ;
FROM xsda!kecheng ;
Where Student.姓名 = XM ;
INNER JOIN xsda!chengji INNER JOIN xsda!student ;
ON Student.学生编号 = Chengji.学生编号 ;
ON Kecheng.课程代码 = Chengji.课程代码 ;
ORDER BY Chengji.学生编号 ASC ;
INTO DBF XS_DBF\CX01.DBF && [ASC]DESC [升]降序排列
BROWSE && 对于"视图"来说，浏览命令仍然是"只读"属性。
CLOSE DATABASES ALL
RETURN