use student_xh
list fields XM, XH, CSRQ
sum SX to SXZF for XH>=“98030201” ? SXZF
试写出程序运行结果：
____________
2、程序2.prg Clear all Close all Select 1
Use STUDENT.dbf exclusive Index on XH to 学号1 Select 2
Use CJ.DBF exclusive
Index on XH to 学号2
Replace all 课程名 with “计算机” Goto top For I= 1 to 4 Select 1
Replace JSJ with B.成绩 SKIP Select 2 SKIP NEXT Select 1
Replace JSJ with B.成绩 Replace all PJF with (JSJ+SX)/2
9
9Browse last
试写出程序运行后数据表student.dbf和cj.dbf的显示结果： student.dbf Cj.dbf 3、clear
use 房屋.dbf exclusive Input “请输入入住时间:” to dd Display all for 入住时间=dd
4、SET TALK OFF
CLEAR
ACCEPT \请输入您的密码：\ TO AAA IF AAA=\
CLEAR
? \欢迎使用本系统！\ELSE
? \密码错误！\WAIT ENDIF
SET TALK ON
100
1
5、Clear
Use 房屋.dbf excl
Accept \请输入入住时间:\ to rzsj List All For 入住时间<=Ctod(rzsj)
wait \入住时间\的记录已显示\SET TALK OFF 6、CLEAR
INPUT \请输入收入：\ TO DO CASE CASE P<800 R=0 CASE P<2000 R=0.05 CASE P<5000 R=0.08 OTHERWISE R=0.1
ENDCASE TAX=P*R
? \税金为：\SET TALK ON RETURN
7、SET TALK OFF CLEAR
OPEN DATABASE RCDA USE RCDA
DO WHILE .NOT. EOF（）
IF 性别=\男\
DISPLAY ENDIF SKIP ENDDO
CLOSE DATABASE
P 111 1
SET TALK ON
8、SET TALK OFF CLEAR
OPEN DATABASE RCDA USE RCDA
SCAN FOR 性别= \女\
? 姓名,性别,出生日期 ENDSCAN
CLOSE DATABASE SET TALK ON RETURN
9、试写出SQL语句的执行结果(用文字描述)
1）SELECT 编号，姓名，性别，出生日期，工资现状，党员; FROM rcda Where 工资现状>=5000 Order by 工资现状 Desc
2）CREATE TABLE STUD(学号C(10),姓名 C(10),性别 C(2),班级名 C(10),系别代号 C(2),地址 C(50),出生日期 D,是否团员 L,备注 M,照片 G) 3）CREATE TABLE SC (学号 C(10),课程号 C(2) ,成绩 N(2)) 4）UPDATE SC SET 成绩=成绩+5 WHERE 课程号=\
5）DELETE FROM STUD WHERE 性别=“男”
6）INSERT INTO STUD (学号，姓名，性别，班级名，系别代号，地址，出生日期，是否团员) VALUES (\，\李建国\，\男\，\计0121\，\，\湖北武汉\，{09/28/02}，.T.)
习题集参考答案
一、填空题 1） 数据 2）形式
3）网状、层次、关系
4)数据描述语（DDL）、数据操纵语言（DML）、数据库管理例行程序
1122