实验四 常用控的使用.docVIP

实验四 常用控件的使用 一、实验目的 1．熟练掌握标签、文本框、编辑框、组合框、列表框、命令按钮、命令按钮组、选项按钮组、复选框、计时器等常用控件的使用方法。 2．理解微调、表格、Active等控件的使用方法。 3．全面掌握Visual FoxPro控件和表单设计。 二、实验内容及上机步骤 【上机题1】设计如图15-1所示的员工数据维护表单，用户可以浏览、增加、修改、删除员工表记录。 图15-1 员工数据维护表单 【上机步骤】本题考查的知识点是常用控件（如标签、文本框、选项按钮组、复选框、微调控件、组合框等）的使用方法。操作步骤如下： 新建表单，打开表单设计器。 设置数据环境：将部门表和员工表添加到数据环境设计器中，右击员工表，选择快捷菜单中的“属性”命令，将员工表的Exclusive属性设置为.T.，指定以独占方式打开员工表，这样可以物理删除记录。然后从数据环境设计器窗口中，将员工表的员工编号、姓名、婚否、职称、工作日期、联系电话、简历、照片等字段依次拖到表单上。 在表单上添加4个标签（Label1~Label4）、一个选项按钮组（OptionGroup1)、一个组合框（Combo1）、一个命令组（Commandgroup1），一个命令按钮（Command1）、一个线条控件（Line1）。 按表15-1所示，设置各控件的属性。 表15-1员工数据维护表单中各控件属性设置 对 象 属性名 属性值 说明 Label1 Caption 员工基本情况 标题文本 Fontsize 16 字号 Fontname 隶书 字体 Label2 Caption 性别 标题文本 Label3 Caption 部门编号 标题文本 Label4 Caption 工资级别 标题文本 OptionGroup1 Value 男 默认选男 Controlsource 员工表.性别 绑定数据 Option1 Caption 男 标题文本 Option2 Caption 女 标题文本 Combo1 RowSourceType 6-字段 设置选项数据源的类型 RowSource 部门表.部门编号 设置选项数据源 ControlSource 员工表.部门编号 绑定数据 Commandgroup1 ButtonCouunt 7 按钮数目 Command1 Caption 首记录 标题文本 Command2 Caption 末记录 标题文本 Command3 Caption 上一条 标题文本 Command4 Caption 下一条 标题文本 Command5 Caption 增加 标题文本 Command6 Caption 删除 标题文本 Command7 Caption 退出 标题文本 双击命令组控件，编写命令按钮组（CommandGroup1）的Click事件代码，代码如下： DO CASE CASE Thisform.CommandGroup1.Value=1 移到第一条记录 GO TOP CASE Thisform.CommandGroup1.Value=2 移到最后一条记录 GO BOTTOM CASE Thisform.CommandGroup1.Value =3 移到上一条记录 IF RECNO()1 SKIP -1 ELSE GO TOP ENDIF CASE Thisform.CommandGroup1.Value=4 移到下一条记录 IF RECNO()RECCOUNT() SKIP ELSE GO BOTTOM ENDIF CASE Thisform.CommandGroup1.Value=5 增加一条记录 APPEND BLANK CASE Thisform.CommandGroup1.Value=6 删除一条记录 DELETE PACK CASE Thisform.CommandGroup1.Value=7 释放表单 Thisform.Release ENDCASE Thisform.Refresh 刷新表单 保存和运行表单。 【上机题2】设计如图15-2所示的表单，要求按部门查询各部门工资信