计算机2级VFP：如何书写表单程序设计中的FORM1.docVIP

如何书写表单程序设计中的FORM1_INIT事件 常用TEXTBOX的代码： 1、将所有的文本框属性初始设置为只读。 THISFORM.SETALL(“READONLY”,.T.,”TEXTBOX”) 2、将除文本框TEXT1外其他文本框初始设置为不可显示。 THISFORM.SETALL(“VISIBLE”,.F.,”TEXTBOX”) THISFORM.TEXT1.VISIBLE=.T. 3、表单运行时，将光标定位在文本框TEXT1上 THISFORM.TEXT1.SETFOCUS 4、表单运行时，将所有文本框的初始值置空。 THISFORM.SETALL(“VALUE”,” ”,”TEXTBOX”) 5、表单运行时，将TEXT1的字体设置为“宋体”，字号设置为“24”，字体颜色设置为“红色”，背景色为“蓝色”。 THISFORM.TEXT1.FONTNAME=“宋体” THISFORM.TEXT1.FONTSIZE=24 THISFORM.TEXT1.FORECOLOR=RGB（255，0，0） THISFORM.TEXT1.BACKCOLOR=RGB（0，0，255） 6、将文本框与表中的字段绑定 THISFORM.TEXT1.CONTROLSOURCE=”字段名” 列表框或组合框中的代码 在表与表单已绑定的情况下（已将表添加到数据环境中） THISFORM.LIST1.ROWSOURCETYPE=6 THISFORM.LIST1.ROWSOURCE=”字段名” 2、在表与表单未绑定的情况下 SCAN THISFORM.LIST1.ADDITEM(字段名) ENDSCAN 列表框中的项目与班级号(学号中的前三位绑定) USE 学生 INDEX ON LEFT（学号,3）TO CLASS UNIQUE SCAN THISFORM.LIST1.ADDITEM(LEFT（学号,3）) ENDSCAN SET INDEX TO 表格的代码： THISFORM.GRID1.RECORDSOURCETYPE=1 THISFORM.GRID1.RECORDSOURCE=”别名” 计时器的代码： THISFORM.TIMER1.ENABLED=.F. THISFORM.TIMER1.INTERVAL=1000 标签的代码： THISFORM.LABEL1.CAPTION=字符型的常量(如”请输入学生的学号”) 命令按钮组的代码 C=“首 条上一条下一条末 条” FOR I=1 TO THISFORM.COMMANDGROUP1.BUTTONCOUNT THISFORM.COMMANDGROUP1.BUTTONS(I).CAPTION=; SUBSTR(C,6*(I-1)+1,6) ENDFOR 环境设置等 SET DELETE ON PUBLIC X，Y，Z STORE 0 TO X，Y，Z 表的关联 当学生表与成绩表均已添加到数据环境中。 SELECT 学生 SET ORDER TO 学号 IN 成绩 SET RELATION TO 学号 INTO 成绩 表单的代码 THISFORM.CAPTION=字符型常量 THISFORM.AUTOCENTER=.T. THISFORM.BORDERSTYLE=2 THISFORM.ALWAYSTOP=.T. THISFORM.MOVABLE=.F. 如何书写表单程序设计中的常用控件中的事件 TEXT1_VALID事件 LOCA FOR 字段名=THISFORM.TEXT1.VALUE IF FOUND() THISFORM.REFRESH (以下是字段与文本框未绑定的情况下) THISFORM.TEXT2.VALUE=字段1 THISFORM.TEXT3.VALUE=字段2 THISFORM.TEXT4.VALUE=字段3 (结束) ELSE MESSAGEBOX(“该学生学号找不到”) ENDIF LIST1(COMBO1)_INTERACTIVECHANGE事件 LOCA FOR 字段名=THISFORM.LIST1.VALUE THISFORM.REFRESH (以下是字段与文本框未绑定的情况下) THISFORM.TEXT2.VALUE=字段1 THISFORM.TEXT3.VALUE=字段2 THISFORM.TEXT4.VALUE=字段3 (结束) 三、“继续”COMMAND1_CLICK事件 THISFORM.TEXT1.SETFOCUS 四、“输入” COMMAND1_CLICK事件 APPEND BLANK THISFORM.RE