DO CASE
CASE LEFT(THISFORM.Cmd1.Caption,4)='开始'
THISFORM.Cmd1.Caption='停止'+SUBS(THISFORM.Cmdl.Caption,5) THISFORM.Text2.Value=Time()
CASE LEFT(THISFORM.Cmd1.Caption,4)='停止'
THISFORM.Cmd1.Caption='退出'+SUBS(THISFORM.Cmd1.Caption,5) THISFORM.Text3.Value=Time()
THISFORM.Text4.Value=THISFORM.Text3.Value-THISFORM.Text2.Value CASE LEFT(THISFORM.Cmd1.Caption,4)='退出'
___(27)___
ENDCASE
21.设有"表格控件示例"表单用于显示考试成绩表(KSCJ)数据,表单在设计时和运行时的界面分别如图2和图3所示。KSCJ表有三个字段,分别为考号(KH)字段、姓名(XM)字段和成绩(CJ)字段,其中KH和XM字段为字符型,CJ字段为数值型。表单上有一个命令按钮控件(Command1)、一个文本框控件(Text1)和一个表格控件(GrdKscj),KSCJ表已添加到表单的数据环境中,且已与表格控件进行数据绑定。为了使表格中显示的数据只读,可以设置表格控件的___(28)___属性值为.T.;为了使表格中的三个标头控件居中显示,可以在表格控件的Init事件代码中设置下列语句:
THIS.SETALL('Alignment',2,'___(29)___’) &&Alignment属性值为2表示居中
Text1文本框用于输入一个针对KSCJ表进行记录选择的条件表达式。命令按钮的作用是:单击该命令按钮,如果Text1文本框给出的字符串是一个有效的条件表达式,则表格中符合条件的记录的背景色用绿色显示(其它记录用白色背景色显示);如果Text1文本框给出的不是条件表达式,则返回:如果Text1文本框中无内容(为空或为空格字符串),则所有记录均用白色背景色显示。命令按钮的Click事件代码为
c=ALLTRIM(THISFORM.Text1.Value)
IF LEN(c)=0
c='F'
ENDIF
IF TYPE('c')#___(30)___
RETURN
ENDIF
THISFORM.GrdKscj.SetAll('DynamicBackColor',;
'IIF('+c+',RGB(0,255,0),RGB(255,255,255))','Column')
GOTOTOP
THISFORM.GrdKscj.Refresh
3040