资源描述：
《数据库应用基础(第二版)第五章 面向对象程序设计基础 实验5之实验报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、四、实验5报告1．实验过程报告（1）写出第1题“判断”按钮和“退出”按钮的Click事件代码。答：“判断”按钮的Click事件代码为：M=VAL(THISFORM.TEXT1.VALUE)IFINT(M/2)=M/2THISFORM.TEXT2.VALUE="是偶数!"ELSETHISFORM.TEXT2.VALUE="是奇数!"ENDIFTHISFORM.TEXT1.SETFOCUSTHISFORM.REFRESH“退出”按钮的Click事件代码为：THISFORM.RELEASE（2）写出第2题表单的Init事件和“确定”按钮的Click事件
2、代码。答：表单的Init事件代码为：THISFORM.TEXT1.VALUE=0THISFORM.TEXT2.VALUE=0THISFORM.TEXT3.VALUE=0THISFORM.COMMAND1.DEFAULT=.T.THISFORM.TEXT1.SELECTONENTRY=.T.THISFORM.TEXT2.SELECTONENTRY=.T.THISFORM.TEXT3.SELECTONENTRY=.T.“确定”按钮的Click事件代码为：A=THISFORM.TEXT1.VALUEB=THISFORM.TEXT2.VALUEC=THI
3、SFORM.TEXT3.VALUED=B*B-4*A*CP=-B/(2*A)IFD<0X1="复数根"X2="复数根"ELSEX1=ALLTRIM(STR((-B+SQRT(D))/(2*A),19,2))X2=ALLTRIM(STR((-B-SQRT(D))/(2*A),19,2))ENDIFTHISFORM.TEXT4.VALUE=X1THISFORM.TEXT5.VALUE=X2THISFORM.REFRESHTHISFORM.TEXT1.SETFOCUS（3）写出第3题“抽奖”表单的Init事件，计时器的Timer事件，以及“开始”按钮和
4、“停止”按钮的Click事件代码。答：“抽奖”表单的Init事件代码为：THISFORM.TIMER1.ENABLED=.F.THISFORM.TEXT1.VALUE="以职工号和姓名抽奖"SETDELETEON计时器的Timer事件代码为：SKIPIFEOF()GOTOPENDIFTHISFORM.TEXT1.VALUE=职工号+""+姓名THISFORM.REFRESH“开始”按钮的Click事件代码为:THISFORM.TIMER1.ENABLED=.T.THISFORM.TEXT1.FORECOLOR=RGB(0,0,0)THISFORM
5、.REFRESH“停止”按钮的Click事件代码为：THISFORM.TIMER1.ENABLED=.F.THISFORM.TEXT1.FORECOLOR=RGB(0,0,255)DELETETHISFORM.REFRESH（4）写出第5题“汉字时钟”表单的Init事件和计时器的Timer事件代码。答：“汉字时钟”表单的Init事件代码为：WITHTHISFORM.S=THISFORM.SZZH(SUBSTR(TIME(),1,2)).F=THISFORM.SZZH(SUBSTR(TIME(),4,2)).M=THISFORM.SZZH(SUBS
6、TR(TIME(),7,2))ENDWITHTHISFORM.TEXT1.VALUE=THISFORM.S+"时"+THISFORM.F+"分"+THISFORM.M+"秒"THISFORM.REFRESH计时器的Timer事件代码为：THISFORM.INITTHISFORM.REFRESH2．简答题（1）解释属性FontName、FontSize、FontBold、ForeColor、Caption、Interval、Name、ReadOnly、SelectOnEntry、Default的含义。答：FontName：指定显示文本时所用的字体名
7、（字型）；取值范围：字库中所有字体，默认为宋体。FontSize：指定显示文本时字体的大小（字号）；取值范围：自然数，默认值为9。FontBold：指定现实文本时是否为粗体；取值范围：.T.或.F.（默认）。ForeColor：指定对象中显示文本和图形的前景色；取值范围：RGB（0,0,0）～RGB（255,255,255）。Caption：指定显示在对象中的标题文本；取值范围：字符串。Interval：Timer事件之间的时间间隔；取值范围：以毫秒为单位，默认0，范围0～2147483647。Name：指定在代码中用以引用对象的名称。ReadO
8、nly：指定控件是否只读；取值范围：.T.,.F.（默认）。SelectOnEntry：当控件得到焦点后是否选中该单位；取值范围：.T.
