数据库应用基础(第二版)第六章常用表单控件的使用实验62之实验报告.docVIP

四、实验6-2报告 1．实验过程报告 （1）写出第1题“口令”表单中“确定”按钮的Click事件代码。 答：“口令”表单中“确定”按钮的Click事件代码为： LOCATE FOR ALLTRIM(姓名)=ALLTRIM(THISFORM.TEXT1.VALUE) IF !EOF() MESSAGEBOX(正确!) ELSE MESSAGEBOX(错误!) ENDIF THISFORM.TEXT1.SETFOCUS THISFORM.REFRESH （2）写出第2题“手工日历”表单中微调按钮的UpClick事件代码。 答：“手工日历”表单中微调按钮的UpClick事件代码为： THISFORM.TEXT1.VALUE=THISFORM.TEXT1.VALUE+1 THISFORM.REFRESH （3）写出第3题“职工信息查询”表单中的Init事件代码。 答：“职工信息查询”表单中的Init事件代码为： THISFORM.LIST1.ROWSOURCETYPE=6 THISFORM.LIST1.ROWSOURCE=职工.姓名 THISFORM.SETALL(READONLY,.T.,TEXTBOX) THISFORM.SETALL(VISIBLE,.F.,TEXTBOX) THISFORM.SETALL(VISIBLE,.F.,LABEL) THISFORM.SETALL(VISIBLE,.F.,CHECKBOX) THISFORM.LABEL1.VISIBLE=.T. THISFORM.REFRESH （4）写出第4题“职工销售额查询”表单中“确定”按钮的Click事件代码。 答：“职工销售额查询”表单中“确定”按钮的Click事件代码为： SELECT 职工 LOCATE FOR ALLTRIM(姓名)=ALLTRIM(THISFORM.COMBO1.DISPLAYVALUE) IF FOUND() SELECT 销售 AVERAGE 金额 TO PJJE FOR 职工号=职工.职工号 THISFORM.TEXT1.VALUE=PJJE ELSE MESSAGEBOX(输入的姓名不存在!,0+48,信息错误) ENDIF THISFORM.COMBO1.SETFOCUS THISFORM.REFRESH （5）写出第5题“显示矩阵”表单中“显示”按钮的Click事件代码。 答：“显示矩阵”表单中“显示”按钮的Click事件代码为： N=THISFORM.TEXT1.VALUE THISFORM.LIST1.CLEAR FOR I=1 TO N C= FOR J=1 TO N IF I=J OR I+J=N+1 A=0 ELSE A=1 ENDIF C=C+STR(A,2) ENDFOR THISFORM.LIST1.ADDITEM(C) ENDFOR THISFORM.TEXT1.SETFOCUS THISFORM.REFRESH 2．简答题 （1）写出函数：MessageBox(答错了，再试！,32+0,评判结果)各项目的含义。 答：MessageBox(答错了，再试！,32+0,评判结果)中， 答错了，再试！的含义是指定在对话框中显示的字符串提示信息为：答错了，再试！ 32+0的含义是指定对话框的类型参数中按钮类型为“确定”，图标类型为“问号图标”，焦点选项为“第一个按钮”。 评判结果的含义是指定对话框标题栏中的字符串信息为：评判结果。 （2）文本框的显示内容以“*”代替是如何实现的？ 答：在文本框中属性名为PassWordChar的属性值中输入“*”符号，便可以使文本框的显示内容以“*”代替。 （3）第1题“手工日历表单”的日期显示为什么要借助文本框，不能直接显示在微调框中？ 答：“手工日历表单”的日期显示要借助文本框，不能直接显示在微调框中是因为此题要用来显示日期型数据，而微调框不能用来直接显示日期数据，但将微调与文本框结合起来就可以显示多种类型的数据了。用文本框来显示日期型数据，通过微调的DownClick、UpClick事件实现上下翻动。 （4）如果将第4题的“确定”按钮去掉，那么其Click事件代码应放在哪个事件中？ 答：将第4题的“确定”按钮去掉，其Click事件代码中用于检验输入的姓名是否存在的事件代码应放在组合