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

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