SE THIS.VALUE=1
THISFORM.TEXT1.FONTNAME= “黑体”
CASE THIS.VALUE=2
THISFORM.TEXT1.FONTNAME= “宋体”
CASE THIS.VALUE=3
THISFORM.TEXT1.FONTNAME= “隶书”
CASE THIS.VALUE=4
THISFORM.TEXT1.FONTNAME= “楷体_GB2312”
ENDCASE
编写COMMAND1的CLICK事件代码如下:
THISFORM.RELEASE
8.
COMMANDGROUP1的CLICK事件代码:
DO CASE
CASE THIS.VALUE=1
GO TOP
CASE THIS.VALUE=2
IF RECN()>1
SKIP-1
ELSE
GO BOTTOM
CASE THIS.VALUE=3
IF RECN()
SKIP
ELSE
GO TOP
ENDIF
CASE THIS.VALUE=4
GO BOTTOM
ENDCASE
THISFORM.REFRESH
9.
命令按钮COMMAND1的CLICK事件代码:
LOCA FOR =ALLTRIM(THISFORM.TEXT1.VALUE)
IF FOUND()
THISFORM.TEXT2.VALUE=职称
THISFORM.TEXT3.VALUE= 基本工资
ELSE
MESSAGEBOX(“查无此人!”)
ENDIF
THISFORM.COMMAND2.SETFOCUS
命令按钮COMMAND2的CLICK事件代码:
REPALCE基本工资 WITH 基本工资*1.1
THISFORM.TEXT3.VALUE= 基本工资
命令按钮COMMAND3的CLICK事件代码:
THISFORM.RELEASE
10.
TIMER1的TIMER事件代码:
IF THISFORM.LABEL1.LEFT+THISFORM.LABEL1.WIDTH<0
THISFORM.LABEL1.LEFT=THISFORM.LABEL1.WIDTH
ELSE
THISFORM.LABEL1.LEFT+THISFORM.LABEL1.LEFT-10
ENDIF
11.
编写文本框TEXT1的INIT事件代码如下:
THIS.VALUE=“”
编写按键“0”的CLICK事件代码如下:
THISFORM.TEXT1.VALUE= THISFORM.TEXT1.VALUE+“0”
编写按键“1”的CLICK事件代码如下:
THISFORM.TEXT1.VALUE =THISFORM.TEXT1.VALUE+“1”
编写 “=”按键的CLICK事件代码如下:
R=THISFORM.TEXT1.VALUE
RR=&;R
THISFORM.TEXT1.VALUE= RR
编写 “清除”按钮的CLICK事件代码如下:
THISFORM.TEXT1.VALUE= “
”
编写 “关闭”按键的CLICK事件代码如下:
THISFORM.RELEASE
12.
命令按钮组COMMANDGROUP1的CLICK事件代码:
DO CASE
CASE THIS.VALUE=1
IF RECN()>1
SKIP-1
ELSE
GO BOTTOM
ENDIF
THISFORM.REFRESH
CASE THIS.VALUE=2
IF RECN() SKIP
ELSE
GO TOP
ENDIF
THISFORM.REFRESH
CASE THIS.VALUE=3
THISFORM.REFRESH
ENDCASE