第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 [NextPage]

　　三、

　　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”，接着关闭编辑窗口。