Ex07_增强表单辅助操作功能

明德至善 博学笃行 实验课程名称 Visual FoxPro实验 实验项目名称 增强单辅助操作功能 专 业 班 级 电子信息科学与技术08级1班 学 生 姓 名 学 号 指 导 教 师 理 学 院 实验时间：2010年11月24日 第7章 增强表单辅助操作功能 1.实验目的 （1）熟练掌握在表单中创建控件的方法。 （2）熟练地修改表单，培养设计辅助功能的意识和能力。 2.实验要求 修改实验6设计的“订单”表单，使之具有悬停提示、快捷提示、选项输入和列表浏览等功能（见图2.7.1），具体要求如下： （1）提供悬停操作提示，即对于“客户编号1”、“工号1”以及表格中的“货号”等文本框在鼠标悬停时都能显示操作提示信息。快捷提供详细数据，即右击上述任一对象时将弹出信息框，用于显示数据所属表中当前记录的其他数据。 （2）创建“请选客户编号：”和“货物浏览：”两对标签与组合框，并使它们仅在添加记录时变为可爱。上一级合框具有“选项输入”功能，即通过在全部客户数据下拉列表中选定一项，自动将客户编号填入“客户编号1”文本框；下一级合框则提供“列表浏览”功能，即在全部货物数据下拉列表中选定一项，以供填写货号时参考。 3.实验准备 （1）阅读主教材7.1.1节、7.2.1节、7.3.1节、7.4.1节和7.4.3节。 （2）由实验6设计好如图2.6.2所示的“订单”表单。 4.实验步骤 （1）复制表单：打开“订单”表单的表单设计器，选定文件菜单另存为命令产生“订货.SCX”表单。 （2）数据环境设计：右击表单，在快捷菜单中选定“数据环境”命令，然后在“数据环境设计器”窗口中，按图2.7.2不回表以及字段窗口之间的关系线。 （3）创建控件 ①创建“请选客户编号：”和“货物浏览：”2个标签。 ②在“请选客户编号：”标签正文创建组合框Combo1→右击该组合框，并在快捷菜单中选定“生成器”命令，使显示“组合框生成器”对话框（参阅主教材图7.4（a））→在“列表项”选项卡中选定客户表的全部字段→在“值”选项卡（参阅主教材图7.4（b））的“字段名”组合框选定“订单.客户编号”，这将使选定项的“客户编号”列的值填入该字段。 类似地，在“货物浏览：”标签下方创建组合框Combo2，在“组合框生成器”对话框中选用货物表的全部字段，但“值”选项卡不进行设置。 （4）属性设置：见表2.7.1。 表2.7.1 “订货”表单属性设置 对象 属性 属性值 说明 Form1 ShowTips .T. 配合ToolTipText属性 grid1.Column1.Text1 ToolTipText 右击显示货物信息 在文本框获得焦点后悬停时才显示文本 Label1 Caption 请选客户编号： 标签显示文本 AutoSize .T. 控件大小正好容纳内容 Label2 Caption 货物浏览： AutoSize .T. “客户编号1”文本框 ToolTipText 右击显示客户信息 悬停时的显示文本 “工号1”文本框 ToolTipText 右击显示员工信息 （5）grid1.Column1.Text1文本框的RightClick事件代码编写如下： =MESSAGEBOX(“货名：”+货物.货名+”单价：”+STR(货物.单价,5,2)+”库存量：”+; STR(货物.库存量,4)) （6）“客户编号1”文本框的RightClick事件代码编写如下： =MESSAGEBOX(“公司名称：”+客户.公司名称+”联系人”+客户.联系人+”电话：”+; 客户.电话) （7）“工号1”文本框的RightClick事件代码编写如下： =MESSAGEBOX(“姓名：”+员工.姓名+”电话：”+员工.电话+”备注：”+; 员工.备注) （8）Form1的Init事件代码编写如下： *标签和组合框均不可用（显示为灰色） THISFORM.Label1.Enabled=.F. THISFORM.Combo1.Enabled=.F. THISFORM.Label2.Enabled=.F. THISFORM.Combo2.Enabled=.F. （9）THISFORM.BUTTONSET1.cmdAdd（“添加”命令按钮）的GotFocus事件代码编写如下： LPARAMETERS cProperty *若在“添加记录”对话框“添加”按钮退出，订货表单“添加”按钮的标变成“保存(\