实验 6 Visual FoxPro 表单设计 实验目的 1. 学习使用表单向导和表单设计器 2. 掌握设计表单的方法 3. 掌握各种控件的常用属性 事件和方法 实验内容 1. 练习使用表单向导 2. 练习使用表单设计器 3. 练习给表单添加控件 实验要求与步骤 实验 6.1 实验准备工作 (1) 将 患者信息.dbf 表复制到 HZXX.dbf 表 (2) 修改 HZXX.dbf 表结构, 添加记录信息, 修改后的表文件如表 1-6-1 所示 表 1-6-1 HZXX.dbf 表文件 住院号 姓名 性别 出生日期 吸烟否 诊断 血型 住院科室 05001001 刘中华 男 1972-11-23.T. 肺占位性病变 B 外科 05002001 李小萍 女 1978-12-30.F. 肺炎 A 感染科 05002002 胡秉 男 1990-11-23.F. 急性肝炎 O 感染科 05001002 张军 男 1978-2-11.F. 腘窝囊肿 O 外科 05001003 郑蓬蓬 女 1985-3-15.F. 半月板骨折 B 外科 05001004 刘青 男 1982-3-15.F. 屈伸指肌腱断裂 B 外科 05001005 张小丽 女 1986-2-12.F. 颈部海绵状血管瘤 A 外科 05003001 刘军 女 1978-9-12.T. 舌下腺囊肿 B 口腔 05003002 赵海波 男 1969-5-30.T. 舌系带过短 AB 口腔 05003003 朱可 男 1973-8-9.F. 口腔颌面部巨大血管瘤 B 口腔 05003004 金名哲 男 1982-8-12.T. 口腔颌面部淋巴结肿大 O 口腔 05004001 赵成博 男 2047-4-1.T. 急性脑梗死 B 神经内科 05004002 李红雨 女 1955-5-6.T. 脑动脉管壁血栓 B 神经内科 (3) 关闭 HZXX.dbf 表文件 实验 6.2 练习使用表单向导, 建立一个访问 HZXX.dbf 表的表单 表单的运行结 果如图 1-6-1 所示 实验分析 表单向导引导用户通过 4 个步骤完成一个表单的设计过程 4 个步骤分别是 : 选取字段 ; 选取表单样式 ; 排序次序 ; 完成
Visual FoxPro 程序设计上机指导 图 1-6-1 表单运行结果操作步骤 1 在系统菜单中, 选择 文件 新建 命令, 在弹出的对话框中选择 表单 单选按钮, 然后单击 向导 按钮, 打开 向导选取 对话框, 如图 1-6-2 所示 2 单击按钮, 选择 HZXX.dbf, 单击双箭头按钮, 移动 HZXX.dbf 中的所有字段到 选定字段 列表中, 如图 1-6-3 所示 图 1-6-2 向导选取 对话框图 1-6-3 表单向导 - 步骤 1 3 单击 下一步 按钮, 进行表单样式的选择, 在这里选择 凹陷式 和 图片按钮 ( 有 4 种按钮类型可供选择, 文本按钮为默认按钮 ), 如图 1-6-4 所示 4 单击 下一步 按钮, 选择排序字段 选取 住院号, 单击 添加 按钮, 将 住院号 字段设为排序字段, 按照升序排序, 如图 1-6-5 所示 图 1-6-4 表单向导 - 步骤 2 图 1-6-5 表单向导 - 步骤 3 5 单击 下一步 按钮, 在表单标题文本框里键入 住院患者信息登记, 单击 预览 按钮来预览一下表单 ; 然后单击 返回向导 按钮, 选取 保存并运行表单 单选按钮, 如 73
图 1-6-6 所示 如果不满意, 可以单击 上一步 按钮返回前面的屏幕重新选择 图 1-6-6 表单向导 - 步骤 4 6 单击 完成 按钮 在弹出的 另存为 对话框中, 选择 E:\ 住院管理 \Forms 目录, 并给此表单命名为 Zydj.scx, 单击 保存 按钮后, 完成表单设计 技巧解析也可以使用快速表单功能完成设计, 但需要额外为表单添加命令按钮并自行设计表单风格 实验 6.3 命令按钮练习 使用命令按钮设计一个访问 床位分配.dbf 表的表单, 在表单上显示住院号 医生姓名 护士姓名 床位号 病房字段 表单的设计窗口如图 1-6-7 所示, 表单的运行结果如图 1-6-8 所示 图 1-6-7 表单设计窗口 图 1-6-8 表单运行结果 实验分析 首先建立文本框与 床位分配.dbf 数据表之间的联系, 然后设计命令按钮中的代码, 实现对数据表相关字段的维护操作 表单中控件的属性和方法如下 表单 Form1 Top=0 Left=0 Height=152 Width=490 Caption=" 命令按钮控件练习 " 命令按钮 Command1 Top=109 Left=6 Caption=" 第一个 " 74
Visual FoxPro 程序设计上机指导 Go Top 命令按钮 Command2 Top=109 Left=66 Caption=" 上一个 " Skip -1 If Bof() Go Top Messagebox(" 已经到了第一记录!",48," 提示信息 ") 命令按钮 Command3 Top=109 Left=126 Caption=" 下一个 " Skip If Eof() Go Bottom Messagebox(" 已经到了最后一个记录!",48," 提示信息 ") 命令按钮 Command4 Top=109 Left=186 Caption=" 最后一个 " Go Bottom 命令按钮 Command5 Top=109 Left=246 Caption=" 添加 " 75
Append Blank 命令按钮 Command6 Top=109 Left=306 Caption=" 添加 " Delete Set Delete On If Bof() Skip Else Skip -1 命令按钮 Command7 Top=109 Left=366 Caption=" 逻辑删除 " Recall All Skip -1 命令按钮 Command8 Top=109 Left=426 Caption=" 关闭 " Thisform.Release 操作步骤 (1) 将 床位分配.dbf 表添加到表单数据环境中 (2) 用鼠标右键单击文本框, 在弹出的快捷菜单中选择 生成器 命令, 弹出 文本 框生成器 窗口 (3) 在 文本框生成器 窗口中选择 值 标签 (4) 单击 字段名 组合框的下拉按钮, 选择对应字段, 单击 确定 按钮 (5) 观察文本框的 ControlSource 属性 76
Visual FoxPro 程序设计上机指导技巧解析使用生成器来确定文本框 Text1 Text2 Text3 Text4 Text5 的 ControlSource 属性 ControlSource 属性的含义是指定与对象建立联系的数据源 也可以通过设置文本框的属性窗口来完成这一操作 实验 6.4 选项按钮组练习 在文本框内输入 3 个数字, 比较它们的大小, 并将其按指定顺序排列出来 表单的设计窗口如图 1-6-9 所示, 表单的运行结果如图 1-6-10 所示 图 1-6-9 表单设计窗口 图 1-6-10 表单运行结果 实验分析 通过冒泡排序法对这 3 个数字进行排序, 利用分支结构实现对选项按钮组的控制, 当选 择第一项 升序 时, 选项按钮组的值为 1, 按照升序显示结果, 否则按照降序显示 表单中控件的属性和方法如下 表单 Form1 Top=0 Left=0 Height=210 Width=360 Caption=" 数字排序 " 选项按钮组 Optiongroup1 Top=84 Left=96 Height=44 Width=84 Option1.Caption=" 升序排序 " Option2.Caption=" 降序排序 " 命令按钮 Command1 Top=93 Left=226 Caption=" 排序 " a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value For i=1 to 3 If a>b temp=a a=b 77
b=temp If b>c temp=b b=c c=temp Endfor If ThisForm.Optiongroup1.Value=1 Thisform.Text4.Value=a Thisform.Text5.Value=b Thisform.Text6.Value=c Else Thisform.Text4.Value=c Thisform.Text5.Value=b Thisform.Text6.Value=a 操作步骤 (1) 在系统菜单中选择 文件 新建 命令 (2) 在 文件类型 对话框中选择 表单 单选按钮, 单击 新建文件 按钮 (3) 按要求设计表单 (4) 存盘 (5) 运行表单 技巧解析 Visual FoxPro 中可以用来做选择的控件有选项按钮组 复选框 组合框 列表框, 其中 可以同时进行多项选择的只有复选框与列表框 实验 6.5 文本框练习 任意输入一个字符串, 单击统计按钮, 分别统计出字符串长度 大写字母的个数 小写字母的个数 其他字符 ( 除英文字母以外所有字符 ) 的个数 ; 单击 退 出 按钮, 结束表单运行 表单的设计窗口如图 1-6-11 所示, 表单的运行结果如图 1-6-12 所示 实验分析 首先使用 Len 函数获取字符串长度, 使用 FOR ENDFOR 循环结构遍历字符串中的每 一个字符, 并利用 Asc 函数对字符取值, 根据其在 ASCII 表中位置的来确定字符的大小写还 是其他字符 图 1-6-11 表单设计窗口 图 1-6-12 表单运行结果 78
Visual FoxPro 程序设计上机指导 表单中控件的属性和方法如下 表单 Form1 Top=0 Left=0 Height=314 Width=465 Caption=" 大小写字符统计 " 文本框 Text1 Top=74 Left=248 Height=28 Width=248 Fontsize=16 文本框 Text2 Top=113 Left=248 Height=28 Width=96 Fontsize=16 文本框 Text3 Top=149 Left=248 Height=28 Width=96 Fontsize=16 文本框 Text4 Top=185 Left=248 Height=28 Width=96 Fontsize=16 文本框 Text5 Top=221 Left=248 Height=28 Width=96 Fontsize=16 命令按钮 Command1 Top=268 Left=144 Caption=" 统计 " FontSize=14 FontName=" 楷体 " 79
Store 0 to dx,xx,qt a=alltrim(thisform.text1.value) length=len(a) For i=1 to length m=substr(a,i,1) Do Case Case asc(m)>=65 and asc(m)<=90 dx=dx+1 Case asc(m)>=97 and asc(m)<=122 xx=xx+1 Otherwise qt=qt+1 Endcase Endfor Thisform.Text2.Value=length Thisform.Text3.Value=dx Thisform.Text4.Value=xx Thisform.Text5.Value=qt 命令按钮 Command2 Top=268 Left=240 Caption=" 统计 " FontSize=14 FontName=" 楷体 " Thisform.Release 技巧解析 使用生成器来确定文本框的数据类型为数值型 文本框的数据类型可以设置为字符型 日期型 逻辑型 数值型, 使用时根据文本框中输入或显示的值的不同类型进行相应设置 实验 6.6 计时器练习 在表单上设计文字滚动与随机变色 表单的设计窗口如图 1-6-13 所示, 表单的运行结果如图 1-6-14 所示 图 1-6-13 表单设计窗口 图 1-6-14 表单运行结果 实验分析 使用随机函数 Rand 来改变标签颜色 通过对标签 Left 属性的增加或减少来控制标签的 运动 当标签的 Left 属性值大于 0 时, 可以让标签向左运动 ; 当标签的 Left 属性值小于或等 80
Visual FoxPro 程序设计上机指导 于 0 时, 让标签向右运动 ; 测定标签到达表单右边界时的 Left 属性值为 238, 当标签的 Left 属性值大于或等于 238 时, 让标签向左运动 表单中控件的属性和方法如下 表单 Form1 Top=0 Left=0 Height=156 Width=365 Caption=" 计时器控件练习 " PROCDURE init Publ Flag Flag=1 计时器 Timer1 Interval=500 ThisForm.Label1.ForeColor=Rgb(Int(Rand()*255), ; Int(Rand()*255),Int(Rand()*255)) Do Case Case Flag=1 If Thisform.Label2.Left>0 Thisform.Label2.Left=ThisForm.Label2.Left-50 Else Flag=0 Case Flag=0 If Thisform.Label2.Left<238 Thisform.Label2.Left=ThisForm.Label2.Left+50 Else Flag=1 Endcase 标签 Label1 AutoSize=.T. FontSize=24 ForeColor=0,0,255 Caption=" 住院信息系统 " 标签 Label2 AutoSize=.T. FontSize=18 ForeColor=0,0,255 Caption=" 制作人 : XX 班 XXX" 技巧解析 使用计时器控件要注意在属性窗口设置好 Interval 属性,Interval 属性的含义是指定调用 计时器控件 Timer 的时间间隔, 以毫秒为单位 实验 6.7 复选框练习 在表单上设计一个标题为 住院信息系统 的标签, 设计 3 81
个复选框, 标题分别为 粗体 斜体 下划线, 通过选择复选框来控制标签显示的文本 效果 表单的设计窗口如图 1-6-15 所示, 表单的运行结果如图 1-6-16 所示 图 1-6-15 表单运行结果 图 1-6-16 表单运行结果 实验分析 当鼠标单击复选框时, 设置相应文字格式, 鼠标再次单击时, 取消设定 表单中控件的属性和方法如下 表单 Form1 Top=0 Left=0 Height=216 Width=355 Caption=" 复选框控件 " 复选框 Check1 AutoSize=.T. BackStyle=0 FontSize=18 Caption=" 粗体 " Thisform.Label1.Fontbold=This.Value 复选框 Check2 AutoSize=.T. BackStyle=0 FontSize=18 Caption=" 边框 " If Thisform.Check2.Value=1 Thisform.Label1.Borderstyle=1 Else Thisform.Label1.Fontbold =0 复选框 Check3 AutoSize=.T. BackStyle=0 FontSize=18 82
Caption=" 下划线 " Thisform.Label1.Fontunderline=This.Value 技巧解析 对文字格式的设置是通过对标签属性的设置完成的 FontBold 表示指定文字是否为粗体 ; BorderStyle 表示指定对象的边框样式 ; FontUnderline 表示指定文字是否带有下划线 Visual FoxPro 程序设计上机指导 实验 6.8 列表框练习 使用 HZXX.dbf 表, 当选择列表框中不同的患者住院号时, 在标签 Label3 上显示对应的患者姓名 表单的设计窗口如图 1-6-17 所示, 表单的运行结果如 图 1-6-18 所示 图 1-6-17 表单设计窗口 图 1-6-18 表单运行结果 实验分析 首先建立列表框与 HZXX.dbf 之间的联系, 当鼠标单击列表框时, 实现的操作是将记 录指针定位到所选择的记录上, 将该记录 姓名 字段的值赋给标签 Label3, 刷新表单 表单中控件的属性和方法如下 表单 Form1 Top=0 Left=0 Height=177 Width=382 Caption=" 列表框控件 " 标签 Label1 Top=22 Left=25 Height=26 Width=133 BackStyle=0 Caption=" 患者住院号 " FontName= 楷体 FontSize=16 标签 Label2 Top=22 Left=178 Height=26 Width=186 BackStyle=0 83
Caption=" 您选择的患者姓名 " FontName= 楷体 FontSize=16 标签 Label3 Top=83 Left=223 Height=48 Width=108 BackStyle=0 Caption="Label3" FontName= 楷体 FontSize=24 列表框 List1 Top=61 Left=22 Height=102 Width=132 FontName= 宋体 FontSize=12 ControlSource=Hzxx. 住院号 PROCDURE InteractiveChange Go Recno() Thisform.Label3.Caption=hzxx. 姓名 操作步骤 (1) 将 HZXX.dbf 添加到表单数据环境中 (2) 用鼠标右键单击列表框, 在弹出的快捷菜单中选择 生成器 命令, 弹出 列表 框生成器 对话框 (3) 在 列表框生成器 对话框中选择 列表项 标签 (4) 单击 用此填充列表 下拉列表的下拉按钮, 从中选择 表或视图中的字段 选项 (5) 在 数据库和表 下拉列表中, 选择 HZXX.dbf, 在 可用字段 列表框中选择 住院号 字段, 单击 确定 按钮, 如图 1-6-19 所示 图 1-6-19 列表框生成器窗口 (6) 观察列表框的 ControlSource 属性 84
Visual FoxPro 程序设计上机指导 实验 6.9 组合框与表格控件练习 设计一个标题为 患者信息组合查询 的表单, 设计两个组合框, 标题分别为 住院科室 性别, 通过选择组合框中的内容分别实现 按住院科室查询 按性别查询, 并且设计两个按钮 与查询 和 或查询, 点击不同按钮可以实现两个条件之间的 与 或 组合查询功能, 在表格控件中显示查询结果 表单的设计窗口如图 1-6-20 所示, 表单的运行结果如图 1-6-21(a)~(d) 所示 图 1-6-20 患者信息组合查询设计窗口 图 1-6-21(a) 按住院科室查询结果 图 1-6-21(b) 按性别查询结果 图 1-6-21(c) 与 操作查询结果 图 1-6-21(d) 或 操作查询结果 85
实验分析 使用生成器来确定组合框 Combo1 与 Combo2 列表项的值为手工输入数据, 并将 Grid 表 格控件与数据表 HZXX.dbf 联系起来, 使用 Set Filter To 过滤器进行查询 表单中控件的属性和方法如下 表单 Form1 Top=0 Left=0 Height=464 Width=459 Caption=" 患者信息组合查询 " PROCDURE init PUBL XB,KS 组合框 Combo1 Top=132 Left=48 Height=23 Width=82 FontSize=10 FontName=" 宋体 " KS=This.Value SET FILTER TO ALLT( 住院科室 )=ALLT(KS) 命令按钮 Combo2 Top=132 Left=312 Height=23 Width=82 FontSize=10 FontName=" 宋体 " XB=This.Value SET FILTER TO 性别 =XB 命令按钮 Command1 Top=96 Left=180 Height=30 Width=72 Caption=" 与查询 " FontSize=10 FontName=" 宋体 " 86
SET FILTER TO ALLT( 住院科室 )=ALLT(KS) AND 性别 =XB 命令按钮 Command2 Top=132 Left=180 Height=30 Width=72 Caption=" 或查询 " FontSize=10 FontName=" 宋体 " SET FILTER TO ALLT( 住院科室 )=Allt(ks) or 性别 =xb 命令按钮 Command3 Top=417 Left=178 Height=30 Width=72 Caption=" 退出 " FontSize=10 FontName=" 宋体 " Thisform.Release 技巧解析 Visual FoxPro 程序设计上机指导 SET FILTER TO < 条件表达式 > 命令是实现查询的一种方法, 可以将满足条件的记录过 滤出来 查询语句还有 LOCATE,FIND,SEEK 等, 使用时要注意用法上的区别, 例如 FIND SEEK 命令要使用索引,LOCATE 命令可以与 CONTINUE 命令一起使用, 当然也可以用 FOR 或者 WHILE 等条件语句实现查询功能 操作步骤 (1) 将 HZXX.dbf 添加到表单数据环境中 (2) 用鼠标将 HZXX.dbf 拖曳到表单上, 形成 Grid 表格控件 (3) 选中 Grid 表格控件, 单击鼠标右键, 在快捷菜单中, 选择 生成器 命令, 在表 格生成器中设计表格样式, 调整布局, 如图 1-6-22 和图 1-6-23 所示 (4) 用鼠标右键单击组合框, 在弹出的快捷菜单中选择 生成器 命令, 弹出 组合 框生成器 对话框 (5) 在 组合框生成器 对话框中选择 列表项 标签 (6) 在 用此填充列表 下拉列表中选择 手工输入数据 选项 87
(7) 在 列 1 中分别为两个组合框输入数据, 如图 1-6-24 和图 1-6-25 所示 (8) 运行表单, 观察表单运行结果 图 1-6-22 表格生成器样式设计 图 1-6-23 表格生成器布局设计 图 1-6-24 住院科室 组合框设计 图 1-6-25 性别 组合框设计 88