数据库应用基础(第二版)第五章 面向对象程序设计基础 实验5之实验报告.docVIP

四、实验5报告 1．实验过程报告 （1）写出第1题“判断”按钮和“退出”按钮的Click事件代码。 答：“判断”按钮的Click事件代码为： M=VAL(THISFORM.TEXT1.VALUE) IF INT(M/2)=M/2 THISFORM.TEXT2.VALUE=是偶数! ELSE THISFORM.TEXT2.VALUE=是奇数! ENDIF THISFORM.TEXT1.SETFOCUS THISFORM.REFRESH “退出”按钮的Click事件代码为： THISFORM.RELEASE （2）写出第2题表单的Init事件和“确定”按钮的Click事件代码。 答：表单的Init事件代码为： THISFORM.TEXT1.VALUE=0 THISFORM.TEXT2.VALUE=0 THISFORM.TEXT3.VALUE=0 THISFORM.COMMAND1.DEFAULT=.T. THISFORM.TEXT1.SELECTONENTRY=.T. THISFORM.TEXT2.SELECTONENTRY=.T. THISFORM.TEXT3.SELECTONENTRY=.T. “确定”按钮的Click事件代码为： A=THISFORM.TEXT1.VALUE B=THISFORM.TEXT2.VALUE C=THISFORM.TEXT3.VALUE D=B*B-4*A*C P=-B/(2*A) IF D0 X1=复数根 X2=复数根 ELSE X1=ALLTRIM(STR((-B+SQRT(D))/(2*A),19,2)) X2=ALLTRIM(STR((-B-SQRT(D))/(2*A),19,2)) ENDIF THISFORM.TEXT4.VALUE=X1 THISFORM.TEXT5.VALUE=X2 THISFORM.REFRESH THISFORM.TEXT1.SETFOCUS （3）写出第3题“抽奖”表单的Init事件，计时器的Timer事件，以及“开始”按钮和“停止”按钮的Click事件代码。 答：“抽奖”表单的Init事件代码为： THISFORM.TIMER1.ENABLED=.F. THISFORM.TEXT1.VALUE=以职工号和姓名抽奖 SET DELETE ON 计时器的Timer事件代码为： SKIP IF EOF() GO TOP ENDIF THISFORM.TEXT1.VALUE=职工号+ +姓名 THISFORM.REFRESH “开始”按钮的Click事件代码为: THISFORM.TIMER1.ENABLED=.T. THISFORM.TEXT1.FORECOLOR=RGB(0,0,0) THISFORM.REFRESH “停止”按钮的Click事件代码为： THISFORM.TIMER1.ENABLED=.F. THISFORM.TEXT1.FORECOLOR=RGB(0,0,255) DELETE THISFORM.REFRESH （4）写出第5题“汉字时钟”表单的Init事件和计时器的Timer事件代码。 答：“汉字时钟”表单的Init事件代码为： WITH THISFORM .S=THISFORM.SZZH(SUBSTR(TIME(),1,2)) .F=THISFORM.SZZH(SUBSTR(TIME(),4,2)) .M=THISFORM.SZZH(SUBSTR(TIME(),7,2)) ENDWITH THISFORM.TEXT1.VALUE=THISFORM.S+时+THISFORM.F+分+THISFORM.M+秒 THISFORM.REFRESH 计时器的Timer事件代码为： THISFORM.INIT THISFORM.REFRESH 2．简答题 （1）解释属性FontName、FontSize、FontBold、ForeColor、Caption、Interval、Name、ReadOnly、SelectOnEntry、Default的含义。 答：FontName：指定显示文本时所用的字体名（字型）；取值范围：字库中所有字体，默认为宋体。 FontSize：指定显示文本时字体的大小（字号）；取值范围：自然数，默认值为9。 FontBold：指定现实文本时是否为粗体；取值范围：.T.或.F.（默认）。 ForeColor：指定对象中显示文本和图形的前景色；取值范围：RGB（0,0,0）～RGB（255,255,255）