第38套
一、
1. 打开并修改表单
MODIFY FORM one
2. 双击“显示”命令按钮，在Command1.Click中输入“Thisform.Text1.Value=Year(date())”。
1. 打开并修改表单
MODIFY FORM two
2. 单击“表单\新建方法程序”菜单项，在“新建方法程序”对话框的“名称”输入“Test”，并单击添加按钮，接着单击“关闭”按钮来关闭对话框。
3. 双击在Form1“属性”的test事件输入并“Thisform.command1.enabled=.F.”。
1. 在命令窗口输入建立报表命令
CREATE REPORT study_report
2. 单击“报表\快速报表”菜单项，在“打开”对话框中选择表“课程表”并单击“确定”按钮。
3. 在“快速报表”对话框中，单击“确定”按钮，在“报表设计器-study_report.frx”窗口中。
4. 关闭保存该报表。
在文件three.prg中存放
ALTER TABLE 教师表 ALTER 职工号 SET CHECK LEFT(职工号,3)="110"
二、
在文件four.prg中存放
OPEN DATABASE 课程管理
CREATE VIEW salary AS SELECT 系号,AVG(工资) AS 平均工资 FROM 教师表 GROUP BY 系号 ORDER BY 平均工资 DESC
第1处：DO WHILE not EOF()
第2处：ENDIF
第3处：SKIP
第4处：IF flag=0
三、
1. 建立表单
CREATE FORM myform
2. 在“表单设计器”中，在“属性”的Caption处输入“教师情况”，在Name处输入“myform”。
3. 在“表单设计器”中，添加两个复选框，在第1个复选框Check1“属性”的Caption处输入“系名”，在第2个复选框Check1“属性”的Caption处输入“工资”。
4. 在“表单设计器”中，添加一个选项按钮组Optiongroup1，并在选定它且单击右键，再选择“编辑”项，接着选定Option1，在其Caption处输入“按职工号升序”，接着选定Option2，在其Caption处输入“按职工号降序”，
5. 在“表单设计器”中，添加两个命令按钮(Command1和Command2)，在第1个命令按钮Command1“属性”窗口的Caption处输入“生成表”，在第2个命令按钮Command2“属性”窗口的Caption处输入“退出”。
6. 双击“生成表”命令按钮，在“Command1.Click”编辑窗口中输入命令组，接着关闭编辑窗口。
IF ThisForm.Check1.Value=1 And ThisForm.Check2.Value=1 Then
IF ThisForm.Optiongroup1.Value=1 Then
SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE TWO
ELSE
SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE TWO
ENDIF
ELSE
IF ThisForm.Check1.Value=1 Then
IF ThisForm.Optiongroup1.Value=1 Then
SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE ONE_X
ELSE
SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE ONE_X
ENDIF
ELSE
If ThisForm.Check2.Value=1 Then
IF ThisForm.Optiongroup1.Value=1 Then
SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE ONE_XX
ELSE
SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE ONE_XX
ENDIF
ENDIF
ENDIF
ENDIF
7. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“ThisForm.Release”，接着关闭编辑窗口。