第47套

　　一、

　　UPDATE student SET 院系 = "经济" WHERE 学号 = "99035001"

　　ALTER TABLE score RENAME COLUMN 成绩 TO 考试成绩

　　ALTER TABLE student ADD UNIQUE 学号 TAG 学号

　　1. 打开表文件

　　USE course

　　2. 建立索引

　　INDEX ON 课程编号 TAG 课程编号 CANDIDATE

　　二、

　　1. 在命令窗口中输入建立表单命令

　　CREATE FORM tab

　　2. 在“表单设计器”中，单击鼠标右键，在弹出菜单中选择“数据环境”菜单项，在“打开”对话框中，选择表“student”并按“确定”按钮。在“添加表或视图”对话框中，单击“其他”按钮，选择表“course”并按“确定”按钮，单击“其他”按钮，选择表“score”并按“确定”按钮，最后单击“关闭”按钮关闭“添加表或视图”对话框。

　　3. 在“表单控件”中选定“页框”控件，在“表单设计器”中建立这个“页框”，在“属性”的PageCount处输入“3”，接着选中这个“页框”并单击鼠标右键，在弹出菜单中选择“编辑”菜单项，再单击“Page1”，在其“属性”的Caption处输入“学生”，接着在“数据环境”中选中“student”表按住不放，再移动鼠标到“页框”内，最后松开鼠标。单击“Page2”，在其“属性”的Caption处输入“课程”，接着在“数据环境”中选中“course”表按住不放，再移动鼠标到“页框”内处，最后松开鼠标。单击“Page3”，在其“属性”的Caption处输入“成绩”，接着在“数据环境”中选中“score”表按住不放，再移动鼠标到“页框”内处，最后松开鼠标。

　　4. 在“表单设计器”的下方，添加一个命令按钮，在“属性”窗口的Caption处输入“退出”，双击“退出”命令按钮，在“Command1.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。

　　1. 打开并修改表单

　　MODIFY FORM modi2

　　2. 双击“计算”按钮，在“Command1.Click”编辑窗口中进行修改。

　　第1处：多个变量进行初始化，所以应改为：store 0 to x,s1,s2,s3

　　第2处：变量赋值，所以应改为：x=val(thisform.text1.value)

　　第3处：条件判断被3整除，所以应改为：if mod(x,3)=0

　　修改完以后，按“Ctrl+W”键进行保存。

　　3. 双击“退出”按钮，在“Command2.Click”编辑窗口中进行修改。

　　ThisForm.Release

　　修改完以后，按“Ctrl+W”键进行保存。 [NextPage]

　　三、

　　1. 打开并修改表单

　　MODIFY FORM zonghe

　　2. 双击“添加>”按钮，在“Command1.Click”编辑窗口中进行修改。

　　thisform.list2.additem(thisform.list1.value)

　　3. 双击“<移去”按钮，在“Command2.Click”编辑窗口中进行修改。

　　thisform.list2.removeitem(thisform.list2.listindex)

　　4. 双击“确定”按钮，在“Command3.Click”编辑窗口中进行修改。

　　cn=""

　　cc=thisform.list2.ListCount

　　FOR i=1 TO cc

　　x=allt(thisform.list2.listitem(i))

　　cn=cn+"课程名称='"+x+"'"+" or "

　　ENDFOR

　　cn=substr(cn,1,len(cn)-4)

　　*****上面的程序在Command3.Click中已有，考生只要添加下面的语句

　　select 姓名,课程名称,考试成绩 from student;

　　join course join score ;

　　on course.课程编号=score.课程编号;

　　on student.学号=score.学号 where &cn ;

　　order by 课程名称,考试成绩 desc into table zonghe