输入输出界面设计

输入输出界面设计2

步骤一：建立实验文件夹设置路径

1建立文件夹

在我的电脑选择磁盘分区D，建立实验用文件夹CASE S。由于在实验中涉及具体的路径和文件夹名，如路径和文件夹名有更改，实验中应作相应更改。

2设置默认路径

进入Visual FoxPro（以下简称VFP），依次选择工具→选项→文件路径→默认目设置实验路径。

图1-1 默认路径位置

在上图中点击修改，弹出图1-2，在图1-2中勾选使用默认目录。

图1-2 定位默认目录

在上图中点击浏览按钮（带…按钮），弹出图1-3，在图1-3中选择CASES,再单击选定按钮。

图1-3 选择目录

再在图1-4中依次点确定（A）→设置为默认值（B）→确定（C）。

A

B C

图1-4 更改默认目录

步骤二：建立实验用数据库表

1建立员工表employee

employee表中各个字段名和相关长度如图2-1所示。

address 字符型50

图2-1 employee表结构图2输入员工表employee数据

图2-2 employee表模拟数据

步骤三：设计员工信息注册表单

1 设计注册表单

利用表单设计器

，设计如图

3-1所示的注册界面。设计中注意布局工具栏的灵活使用和控件的复制。（表单名register ）

图3-1员工信息注册界面

2 添加数据环境

在表单上单击右键→数据环境→添加数据表employee 。

图3-2注册表单数据环境

3设置控件属性

4设置控件次序

选择菜单→显示→Tab键次序，为各个控件设置次序。

图3-3注册表控件次序设置5主要控件代码

①Form1对象Init方法的代码程序

bo1.enabled=.f.

Thisform.optiongroup1.option1.enabled=.f. Thisform.optiongroup1.option2.enabled=.f.

②Text1控件Gotfocus 方法的代码程序

bo1.enabled=.t.

Thisform.optiongroup1.option1.enabled=.t. Thisform.optiongroup1.option2.enabled=.t.

③Commandgroup1控件Click方法的代码程序

do case

case this.value=1

go top

case this.value=2

*比较与使用! bof()的区别

if recn()>1

skip -1

else

go bottom

endif

case this.value=3

*比较与使用! eof()的区别

if recn()

skip

else

go top

endif

case this.value=4

go bottom

case this.value=5

append blank

case this.value=6

browse noappend

case this.value=7

use d:\cases\employee.dbf

*==与trim()的使用

delete for trim(employee.no)==trim(thisform.text1.value) pack

case this.value=8

*退出时删除空记录

use d:\cases\employee.dbf

delete for trim(employee.no)==""

pack

thisform.release

endcase

*退出时刷新各个控件的值

thisform.text1.refresh

thisform.text2.refresh

thisform.text3.refresh

thisform.text4.refresh thisform.text5.refresh thisform.text6.refresh bo1.refresh thisform.optiongroup1.refresh

步骤四：设计登陆表单

1 设计登陆表单

利用表单设计器，设计如图4-1所示的登陆界面。（表单名login ）

图4-1系统登陆界面

2 添加数据环境

在表单上单击

右键→数据环境→添加数据表employee

。

图4-2登录表单数据环境

3设置控件属性

4Combo1的属性设置

对着Combo1→单击右键→生成器→组合框生成器，如图4-3所示。在图中选择字段No,Name。

图4-3 Combo1属性设置图

在布局选项卡中拖动No,Name之间的标题框使之能清晰显示。

图4-4 Combo1布局设置图

在值选项卡中选择返回值列名No。

图4-5 返回值设置图

5主要控件代码

①Form1控件Init Event程序代码

mand1.enabled=.t.

public z &&z 用于记录登录次数

z=0