如何书写表单程序设计中的 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=”字段名” 二、列表框或组合框中的代码 1、 在表与表单已绑定的情况下(已将表添加到数据环境中) THISFORM.LIST1.ROWSOURCETYPE=6 THISFORM.LIST1.ROWSOURCE=”字段名” 2、在表与表单未绑定的情况下 SCAN THISFORM.LIST1.ADDITEM(字段名) ENDSCAN
列表框中的项目与班级号(中的前三位绑定) USE 学生 INDEX ON LEFT( )TO CLASS UNIQUE (,3) 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 四、 “输入” COMMA
ND1_CLICK 事件 APPEND BLANK THISFORM.REFRESH (以下是字段与文本框未绑定的情况下) REPLACE 字段 1 WITH THISFORM.TEXT1.VALUE,; 字段 2 WITH THISFORM.TEXT2.VALUE,; …… (结束) 五、命令组 COMMANDGROUP1_CLICK 事件 DO CASE CASE THIS.VALUE=1 GO TOP CASE THIS.VALUE=2 SKIP -1 CASE THIS.VALUE=3 SKIP CASE THIS.VALUE=4 GO BOTTOM ENDCASE THISFORM.REFRESH