(4)表单的6ad事件代码的设置:双击表单窗口打开代码编辑窗臼三在对象组合框中确定表 单选项,并在过程组合框中确定Load事件选项在列表框中输入以下代码 PubLiC i &&Load事件在表单装入内存时触发,设置I为公共变量 (5)文本框的 Click事件代码编写如下 IF i= T &&变量I用于控制轮流显示 THISFORM. TEXT1. VALUE=DATE O &&本表单的文本框的值设置为当前日期 THISFORM.TEXT. DateFormat=12&&日期格式设置为年月日次序 THISFORM. TEXT1. DateMark= &&年月日间隔符设置为点号 ,F. &&触发 Click事件I值就变反 ELSE THISFORM. TEXT1. VALUE=TIME O &&本表单的文本框的值设置为当前时间 &触发 Click事件I值就变反 ENDIF 表单控件曰设计器 回国性 Eex 部|数据方法程布局其他 圃画 A国期财间 BorderStyle 单线边 它圖回 Caption Closable 真 Color source ndow usScroll, T E forml Load L区|[aa 对象0):forl 过程aR Desta 指定对象标题文本(4) 表单的Load事件代码的设置: 双击表单窗口打开代码编辑窗口 在对象组合框中确定表 单选项,并在过程组合框中确定Load事件选项 在列表框中输入以下代码： PUBLIC i && Load事件在表单装入内存时触发,设置I为公共变量 (5) 文本框的Click事件代码编写如下: IF i=.T. && 变量I用于控制轮流显示 THISFORM.TEXT1.VALUE=DATE() && 本表单的文本框的值设置为当前日期 THISFORM.TEXT1.DateFormat=12 && 日期格式设置为年月日次序 THISFORM.TEXT1.DateMark="." && 年月日间隔符设置为点号 i=.F. && 触发Click事件I值就变反 ELSE THISFORM.TEXT1.VALUE=TIME() && 本表单的文本框的值设置为当前时间 i=.T. && 触发Click事件I值就变反 ENDIF