第八章后半部分-表单设计与应用.pptVIP

Visual FoxPro 6.0;第8章 表单设计与应用;8.1 创建表单;8.1.1 使用表单向导创建表单;8.1.1 使用表单向导创建表单;8.1.1 使用表单向导创建表单;8.1.1 使用表单向导创建表单;8.1.1 使用表单向导创建表单;8.1.2 使用表单设计器创建表单;8.1.2 使用表单设计器创建表单;8.1.2 使用表单设计器创建表单;8.1.2 使用表单设计器创建表单;8.1.3 表单的保存与运行（已讲）;8.2 表单设计器（已讲） ;8.3 表单的数据环境;8.3.1 数据环境设计器;8.3.1 数据环境设计器;8.3.2 数据信息与数据环境;8.3.2 数据信息与数据环境;8.3.2 数据信息与数据环境;8.3.2 数据信息与数据环境;8.3.2 数据信息与数据环境;8.3.2 数据信息与数据环境;例1：在“教学”项目中设计一个名为tj的表单，表单界面如图所示。要求： 1、将数据环境设置为：st.dbf； 2、表单的标题设置为：查找与统计； 3、表单中有两个命令按钮，标题分别为“查找与统计”和“退出” 4、表单程序运行时，输入性别（男或女），单击“查找与统计”按钮，可统计出该性别的人数和入学平均成绩。 ;set talk off xb=alltrim(thisform.text1.value) loca for 性别=xb if not eof() count to rs for 性别=xb average to pj for 性别=xb thisform.label2.caption=该性别有：+str(rs,3)+人 thisform.label3.caption=该性别的平均入学成绩为：+str(pj,6,2) else thisform.label2.caption= thisform.label3.caption=查无此性别 endif ;“查找与统计”按钮,方法二，代码如下:;例2：在上例中，如果改为查找某年级（学号的前2位）的同学，如何进行呢？(tj11.scx) ;例3：在例1中，如果查不到时，弹出对话框“查无此性别”，如何进行呢？ (tj12.scx) ;;;;;8.4 表单与常用控件的设计;8.4 表单与常用控件的设计;8.4 表单与常用控件的设计;8.4.1 建立表单;8.4.1 建立表单;8.4.2 标签控件;8.4.3 文本框控件;8.4.4 命令按钮控件;8.4.5 编辑框控件;8.4.6 选项按钮组控件（不讲）;8.4.7 命令按钮组; 例1：设计一个程序jsjc.scx，实现输入一个数N，可以计算N！，运行前后如图所示。; 例1：设计一个程序jsjc.scx，实现输入一个数N，可以计算N！，运行结果如图所示。;例2（改进）：设计一个程序jsjc.scx，实现输??一个数N，可以计算N！，如果N为负数，弹出提示框：输入的数据不能为负数，请重新输入！运行结果如图所示。;改写程序： ①计算命令按钮： N=val(ThisForm.text1.value) IF N0 ThisForm.Label2.caption= MessageBox(输入的数据不能为负数，请重新输入！,16,提示信息) P222,P36 ThisForm.Text1.value= Thisform.Text1.SetFocus 调用方法 ELSE T=1 FOR I=1 TO N T=T*I ENDFOR ThisForm.Label2.caption=str(N)+!=+str(T,12) ENDIF;8.4.8 复选框控件;8.4.9 列表框与组合框控件;8.4.9 列表框与组合框控件;8.4.9 列表框与组合框控件;8.4.10 表格控件;8.4.10 表格控件;8.4.10 表格控件;8.4.11 页框控件;8.4.11 页框控件