vf作业设计(编辑修改稿)

vf作业设计(编辑修改稿)内容摘要：

主菜单如下图所示 ： 子菜单如下图所示： 系统运行后，单击主菜单或子菜单上选项实现相关操作。 (3) 单击“ 货品资料录入修改”，调用“货品资料表单”，如下图： １３ 具体操作步骤如下： 第 1 步：新建表单。 第 2 步：设计用户界面，在表单中添加 9 个 COMMAND，并进行相关属性的设 置。 第 3 步：单击右键，选择“数据环境”，添加“货品资料表 .dbf”。 第 4 步：将“货品资料表 .dbf”中各个字段拖入表单中，并进行整理。 此表单的属性及方法设置如下表所示： 对象 属性 属性值 属性 属性值 Form1 Autocenter .T. Command1 Caption 上一个 FontSize 9 Command2 Caption 下一个 FontSize 9 Command3 Caption 第一个 FontSize 9 Command4 Caption 最后一个 FontSize 9 Command5 Caption 录入 FontSize 9 Command6 Caption 删除 FontSize 9 Command7 Caption 添加 FontSize 9 Command8 Caption 编辑 FontSize 9 Command9 Caption 返回 FontSize 9 其命令按钮组中各命令按钮的事件代码如下： １４ “上一个”命令按钮的 Click 事件： IF reo()=1 =.F. =.F. =.T. =.T. ELSE SKIP 1 =.T. =.T. =.T. =.T. ENDIF 货品资料表单 .REFRESH 货品资料表单 .SETFOCUS “下一个”命令按钮的 Click 事件： IF EOF()=.t. =.T. =.T. =.F. =.F. ELSE SKIP 1 =.T. =.T. =.T. =.T. ENDIF 货品资料表单 .REFRESH 货品资料表单 .SETFOCUS “第一个”命令按钮的 Click 事件： GO TOP =.F. =.F. =.T. =.T. 货品资料表 .REFRESH 货品资料表 .SETFOCUS “最后一个”命令按钮的 Click 事件： １５ GO BOTT =.T. =.T. =.F. =.F. 货品资料表单 .REFRESH 货品资料表单 .SETFOCUS “录入”命令按钮的 Click 事件： =.T. =.F. =.F. =.T. =.F. APPEND BLANK 货品资料表 .REFRESH 货品资料表 .SETFOCUS “删除”命令按钮的 Click 事件： DELE YN=MESSAGEBOX(是否确认删除 ?,4+48,确认删除 ) IF YN=6 PACK =.T. =.T. =.T. =.F. =.T. ELSE RECALL =.T. =.T. =.T. =.F. =.T. ENDIF 货品资料表单 .SETFOCUS “添加”命令按钮的 Click 事件： 货品资料表单 .READONLY=.F. =.F. １６ =.F. =.F. =.T. =.F. 货品资料表单 .SETFOCUS “编辑”命令按钮的 Click 事件： YN=MESSAGEBOX(您已完成对数据的保存。 ,0+64,确认保存 ) IF YN=1 =.T. =.T. =.T. =.F. =.T. 货品资料表单 .READONLY=.T. 货品资料表单 .SETFOCUS ENDIF =.T. =.T. =.T. =.F. =.T. “返回”命令按钮的 Click 事件： (4)单击仓库录入修改，调用“ 分销商资料表单”，见下图所示： 具体操作步骤如下： １７ 第 1 步：新建表单。 第 2 步：设计用户界面，在表单中添加 9 个 COMMAND，并进行相关属性的设置。 第 3 步：单击右键，选择“数据环境”，添加“分销商资料表 .dbf”。 第 4 步：将“分销商资料 .dbf”中各个字段拖入表单中，并进行整理。 此表单的属性及方法设置如下表所示： 对象 属性 属性值 属性 属性值 Form1 Autocenter .T. Command1 Caption 上一个 FontSize 9 Command2 Caption 下一个 FontSize 9 Command3 Caption 第一个 FontSize 9 Command4 Caption 最后一个 FontSize 9 Command5 Caption 录入 FontSize 9 Command6 Caption 删除 FontSize 9 Command7 Caption 添加 FontSize 9 Command8 Caption 编辑 FontSize 9 Command9 Caption 返回 FontSize 9 其命令按钮组中各命令按钮的事件代码如下： “上一个”命令按钮的 Click 事件： IF reo()=1 =.F. =.F. =.T. =.T. ELSE SKIP 1 =.T. =.T. =.T. =.T. ENDIF 分销商资料 表 单 .REFRESH 分销商资料 表 单 .SETFOCUS １８ “下一个”命令按钮的 Click 事件： IF EOF()=.t. =.T. =.T. =.F. =.F. ELSE SKIP 1 =.T. =.T. =.T. =.T. ENDIF 分销商资料 表 单 .REFRESH 分销商资料 表 单 .SETFOCUS “第一个”命令按钮的 Click 事件： GO TOP =.F. =.F. =.T. =.T. 分销商资料 表 单 .REFRESH 分销商资料 表 单 .SETFOCUS “最后一 个”命令按钮的 Click 事件： GO BOTT =.T. =.T. =.F. =.F. 分销商资料 表 .REFRESH 分销商资料 表 .SETFOCUS “录入”命令按钮的 Click 事件： =.T. =.F. =.F. =.T. =.F. １９ APPEND BLANK 分销商资料 表 单 .REFRESH 分销商资料 表 单 .SETFOCUS “删除”命令按钮的 Click 事件： DELE YN=MESSAGEBOX(是否确认删除 ?,4+48,确认删除 ) IF YN=6 PACK =.T. =.T. =.T. =.F. =.T. ELSE RECALL =.T. =.T. =.T. =.F. =.T. ENDIF 分销商资料 表。