一、实验目的
1. 理解对象的属性、事件和方法等基本概念。
2. 掌握使用表单向导创建表单的方法。
3. 学会使用表单设计器建立表单。
4. 掌握数据环境的设置方法。
5. 掌握一些表单控件的使用,并能对其进行属性的设置。
二、实验内容及上机步骤
【上机题一】
利用表单向导创建一个查询职工基本情况及工资数据的表单。
【上机步骤】
本题的知识点是掌握用“表单向导”的方法创建一个一对多的表单。
操作步骤如下:
(1)选择“文件”菜单中的“新建”选项,指定文件类型为表单,单击“向导”按钮,弹出“向导选取”对话框,选中“一对多表单向导”,然后单击“确定”,弹出“一对多表单向导”—“步骤1—从父表中选定字段”对话框。
(2)指定职工表作为父表,并从可用字段列表框中选择所有字段到选定字段列表框中,然后单击“下一步”,弹出“步骤2—从子表中选定字段”对话框。
(3)指定工资表作为子表,并选择其所有字段,单击“下一步”,弹出“步骤3—建立表之间的关系”对话框。
(4)指定两个表间的关联关系。表单向导程序已经指定默认的关联关系为职工表.职工编号---工资表.职工编号,这正是要建立的关联关系,直接单击“下一步”,弹出“步骤4—选择表单样式”对话框。
(5)选择表单样式。可供选择的样式有标准式、凹陷式、阴影式、边框式等4种,选择标准式,按钮类型选择文本按钮,单击“下一步”,弹出“步骤5—选择排序”对话框。
(6)指定排序次序。当对排序没有明确要求,不需要指定排序字段,可直接单击“下一步”,弹出“步骤6—完成”对话框。
(7)输入表单的标题并保存表单。在“请键入表单标题”文本框中输入“职工信息查询”,选择“保存并运行表单”选项,单击“完成”按钮,弹出“另存为”对话框。
(8)在“保存表单为”文本框中输入“职工信息查询”,选定FORMS文件夹为保存位置,然后单击“保存”按钮,显示表单运行结果。
【上机题二】
利用表单设计器创建一个浏览部门表记录的表单。
【上机步骤】
本题的知识点是表单设计器、属性窗口、表单控件工具栏和数据环境等的使用,操作步骤如下:
(1)启动表单设计器
在“项目管理器”的“文档”选项卡中,选择“表单”项,单击“新建”按钮,弹出“新建表单”对话框,单击“新建表单”按钮,则出现一个标题为Form1的表单设计器窗口。
(2)设置数据环境
在表单设计器中,右击表单,选择快捷菜单中的“数据环境”命令,在“添加表和视图”对话框中选择“部门表”,单击“添加”按钮。数据环境窗口中将显示一个部门表。
(3)添加控件
在数据环境设计器窗口中选择部门表的部门编号,拖到表单(Form1)中。以同样方法将部门表的部门名称添加到表单中。然后在表单控件工具栏中选定“命令按钮”控件,再单击表单,表单上会出现一个名字为Command1的命令按钮。以同样方法再添加两个命令按钮Command2和Command3。
(4)设置控件属性
选定命令按钮(Command1),在属性窗口选定“全部”选项卡,从属性列表中找到Caption属性,在属性设置框中输入“上一条”,按Enter键。以同样方法设置第二个命令按钮(Command2)的Caption属性为“下一条”,第三个命令按钮(Command3)的Caption属性为“关闭”。选定Form1表单,设置Form1表单的Caption属性为“部门信息查询”。
(5)编写事件代码
双击“上一条”命令按钮(Command1),打开代码编辑窗口。对象组合框中显示为“Command1”,在过程组合框中选择Click,然后在编辑框中编写事件代码,代码如下:
SKIP -1
IF BOF()
GO 1
ENDIF
Thisform.Refresh
双击“下一条”命令按钮,编写命令按钮(Command2)的Click事件代码,代码如下:
SKIP
IF EOF()
GO BOTTOM
ENDIF
Thisform.Refresh
双击“关闭”命令按钮,编写命令按钮(Command3)的Click事件代码,代码如下:
Thisform.Release
(6)保存和运行表单
选择“文件”菜单中的“保存”命令,弹出“另存为”对话框。在“保存表单为”文本框中输入表单文件名,单击“保存”按钮。
单击工具栏中的运行按钮,运行表单,若单击“关闭”按钮,可以关闭表单。