欢迎来到天天文库
浏览记录
ID:37835448
大小:41.50 KB
页数:7页
时间:2019-06-01
《33次上机考试参考答案1》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、33次上机考试参考答案第一套二、程序设计,实现该程序功能的代码如下:CLEARSELECT1USE成绩REPLACEALL成绩with成绩*1.15FOR课程名='Access程序设计'INDEXON学号TAGXHSELECT2USE学生SETRELATIONTO学号INTOASETSKIPTOAACCEPT"请输入查询的学号:"TOXHLOCATEALLFOR学号=XH?"***********************查询结果***********************"IFFOUND()@row()+1,1say"学号"@row(),11SAY"姓名"@row(),
2、21SAY"课程名"@row(),41SAY"成绩"@row(),50SAY"学院"DOWHILE.NOT.EOF()@row()+1,1say学号@row(),11SAY姓名@row(),19SAYA.课程名@row(),35SAYA.成绩@row(),50SAY学院CONTENDDOELSE?"表中没有查找到此人的信息!"ENDIFCLOSEALLRETURN三、表单设计1.打开表单设计器2.设置表单的数据环境(显示——数据环境),把与本表单有关的数据表添加到该数据环境中。3.在表单中添加相应的控件,并设置其相关属性GRID1的相关属性:RECORDSOURCETYP
3、E:4-SQL说明RECORDSOURCE:无VISIBLE:.F.OPTIONGROUP1的VALUE属性设置为04.为OPTIONGROUP1控件的INTERACTIVECHANGE事件编写如下代码:THISFORM.GRID1.VISIBLE=.T.A=THISFORM.OPTIONGROUP1.VALUEIFA=1THISFORM.GRID1.RECORDSOURCE='SELECT*FROM学生WHERE性别="男"INTOCURSORTEMP'ELSETHISFORM.GRID1.RECORDSOURCE='SELECT*FROM学生WHERE性别="女"IN
4、TOCURSORTEMP'ENDIFTHISFORM.REFRESH5.结束命令按钮的CLICK事件的代码为:THISFORM.RELEASE第二套二、程序设计,该程序的代码如下:CLEARCLOSEALLSELECT1USEYYUREPLACEALL平均分WITH(笔试+听力)/2INDEXON学号TAGXHSELECT2USEKSHSETRELATO学号INTOAGOTOPDOWHILENOTEOF()DOCASECASEA.平均分>=90REPL评语WITH'优'CASEA.平均分>=80REPL评语WITH'良'CASEA.平均分>=70REPL评语WITH'中'
5、ENDCASESKIPENDDOCLOSEALL三、表单设计1.打开表单设计器2.设置表单的数据环境(显示——数据环境),把与本表单有关的数据表添加到该数据环境中。3.在表单中添加相应的控件,并设置其相关属性(1)添加页框控件PAGEFRAME1PAGECOUNT的值为:2PAGE1的CAPTION属性值为:成绩PAGE2的CAPTION属性值为:综合(2)在PAGE1页面上添加一个表格控件GRID1GRID1的相关属性:RECORDSOURCETYPE:4-SQL说明RECORDSOURCE:无(3)在PAGE2页面上添加三个标签、三个文本框、一个命令按钮组TEXT1的
6、CONTROLSOURCE属性值为:KSH.学号TEXT2的CONTROLSOURCE属性值为:KSH.平均分TEXT3的CONTROLSOURCE属性值为:KSH.评语(4)在表单中添加一个命令按钮,其CAPTION属性为:退出4.为PAGE2页面中的命令按钮组的CLICK事件编写如下代码:DOCASECASETHIS.VALUE=1SKIP-1IFBOF()GOTOPENDIFCASETHIS.VALUE=2SKIPIFEOF()GOBOTTOMENDIFCASETHIS.VALUE=3THISFORM.RELEASEENDCASETHISFORM.REFRESH5.
7、为表单的INIT事件编写如下代码:THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=;'SELECTYYU.学号,姓名,笔试,听力FROMYYU,KSH;WHEREYYU.学号=KSH.学号INTOCURSORTEMP'THISFORM.REFRESH5.命令按钮组的CLICK事件的代码如下DOCASECASETHIS.VALUE=1SKIP-1IFBOF()GOTOPENDIFCASETHIS.VALUE=2SKIPIFEOF()GOBOTTOMENDIFCASETHIS.VALUE=
此文档下载收益归作者所有