[工学]VFp第06B章.ppt

Visual FoxPro 数据库与程序设计 第六B章 表单设计 第一节 使用表单向导创建表单 第二节 表单设计器及应用 第三节 常用表单控件 第四节 多表单设计 第五节 用户定义属性与方法程序 MESSAGEBOX()函数的返回值 *检查原密码，4种情况 set exact on locate for alltrim(username)=alltrim(thisform.txt用户名.value) .and.alltrim(pin)=alltrim(thisform.txt原密码.value) if not found()找到了非合法用户 messagebox(用户名或者对应密码错误，请重新输入,48) thisform.txt原密码.setfocus 方法调用，获得焦点 return endif 合法者改密码。输入了新密码和确认密码才可以点确定按钮 if empty(alltrim(thisform.txt新密码.value)).or.empty(alltrim(thisform.txt确认密码.value)) messagebox(密码不能为空，请重新输入,48) thisform.txt新密码.setfocus return endif *确认密码和新密码值相等才可以修改 if alltrim(thisform.txt新密码.value)alltrim(thisform.txt确认密码.value) messagebox(确认密码和新密码值不相等，请重新输入,48) thisform.txt新密码.setfocus return endif *其他正确情况， sname=alltrim(thisform.txt用户名.value) spass=alltrim(thisform.txt新密码.value) yn=messagebox(确定修改并保存？,4+32) if yn=6 update userinfo set pin=spass where username=sname thisform.release endif set exact off 6B.3 常用表单控件 表单控件 表格 【例6B-7】在课程信息表中,选择某一课程号,在表格 中显示选修该课程的学生成绩。 用户定义 属性与方法 表单集 方法程序 用户定义属性 输出类控件 输入类控件 控件类控件 容器类控件 连接类控件 多表单设计 文档界面 6B.3 常用表单控件 表单控件 表格 【例6B-7】在课程信息表中,选择某一课程号,在表格 中显示选修该课程的学生成绩。 用户定义 属性与方法 表单集 方法程序 用户定义属性 输出类控件 输入类控件 控件类控件 容器类控件 连接类控件 多表单设计 文档界面 [1] 按照图设计表单界面。 [2] 设置属性：ⅠList1： RowSourceType=6-字段 RowSource=课程信息表.课程号 Ⅱ Grid1: RecordSourceType=0-表 ColumnCount=3 [3] 编写List1的InteractiveChange代码： SELECT 学号,课程名,成绩FROM 成绩表,课程信息表； WHERE 成绩表.课程号=THIS.Value and成绩表.课程号; =课程信息表.课程号 INTO DBF ll.dbf THISFORM.Grid1.RecordSource=ll.dbf [4] 保存表单，运行表单。 6B.3 常用表单控件 表单控件 页框 页框的常用属性 是一个容器型控件,其中包含页面,而页面控件本身也 是一个容器型控件,在页面中可以添加其他控件对象。 用户定义 属性与方法 表单集 方法程序 用户定义属性 输出类控件 输入类控件 控件类控件 容器类控件 连接类控件 多表单设计 文档界面 ① PageCount属性：设置页框中的页面数。 ② Pages属性：存放页对象的数组属性。 ③ ActivePage属性：活动页面的编号。 ④ TabStretch属性:页的排列方式。0-单行,1-多重行。 ⑤ TabStyle属性:指定页框中页面的显示类型。 0-两端（默认值），1-非两端。 页面 常用 属性 ① Caption:标题。② BackColor:背景色。 ③ PageOrder：页面的顺序。 ④ Picture：页面的背景图。 6B.3 常用表单控件 表单控件 页框 【例6B-8】将学生信息表信息放置两个页面中。 用户定义 属性与方法 表单集 方法程序 用户定义属性