输入输出界面设计.docx
- 文档编号:7048388
- 上传时间:2023-01-16
- 格式:DOCX
- 页数:17
- 大小:202.53KB
输入输出界面设计.docx
《输入输出界面设计.docx》由会员分享,可在线阅读,更多相关《输入输出界面设计.docx(17页珍藏版)》请在冰豆网上搜索。
输入输出界面设计
输入输出界面设计2
步骤一:
建立实验文件夹设置路径
1建立文件夹
在我的电脑选择磁盘分区D,建立实验用文件夹CASES。
由于在实验中涉及具体的路径和文件夹名,如路径和文件夹名有更改,实验中应作相应更改。
2设置默认路径
进入VisualFoxPro(以下简称VFP),依次选择工具→选项→文件路径→默认目
设置实验路径。
图1-1默认路径位置
在上图中点击修改,弹出图1-2,在图1-2中勾选使用默认目录。
图1-2定位默认目录
在上图中点击浏览按钮(带…按钮),弹出图1-3,在图1-3中选择CASES,再单击选定按钮。
图1-3选择目录
再在图1-4中依次点确定(A)→设置为默认值(B)→确定(C)。
图1-4更改默认目录
步骤二:
建立实验用数据库表
1建立员工表employee
employee表中各个字段名和相关长度如图2-1所示。
图2-1employee表结构图
2输入员工表employee数据
图2-2employee表模拟数据
步骤三:
设计员工信息注册表单
1
Label1
设计注册表单
利用表单设计器,设计如图3-1所示的注册界面。
设计中注意布局工具栏的灵活使用和控件的复制。
(表单名register)
图3-1员工信息注册界面
Commandgroup1
Optiongroup1
2添加数据环境
在表单上单击右键→数据环境→添加数据表employee。
图3-2注册表单数据环境
3设置控件属性
控件名
属性名
设置值
所在选项卡
Lable1
Autosize
T
全部
Backstyle
0-透明
全部
Caption
员工信息录入
全部
Forecolor
128,0,0
全部
Fontname
楷体
全部
Fontbold
T
全部
Fontsize
22
全部
Lable2
Autosize
T
全部
Caption
编号
全部
Fontname
楷体
全部
Fontbold
T
全部
Fontsize
16
全部
Height
26
全部
Width
48
全部
Lable2~Lable7
除Caption不同外,其它同Lable2
Form1
Autocenter
T
全部
Borderstyle
2-固定对话框
全部
Caption
好美家销售管理系统
全部
Desktop
T
全部
Initevent
用户自定义过程(见表后代码①)
方法程序
Maxbutton
F
全部
Minbutton
F
全部
Text1
Controlsource
employee.no
全部
Maxlength
9
数据
Gotfocusevent
用户自定义过程(见表后代码②)
方法程序
Text2
Controlsource
employee.name
全部
Text3
Controlsource
employee.password
全部
Passwordchar
*
全部
Maxlength
6
数据
Optiongroup1
Controlsource
employee.sex
全部
Buttoncount
2
全部
Combo1
Controlsource
employee.duty
全部
Rowsource
总经理,部门经理,销售主管,销售支持,业务员
全部
Rowsourcetype
1-值
全部
Text5
Controlsource
employee.birthday
全部
Text6
Controlsource
employee.salary
全部
Inputmask
9999.9
数据
Text4
Controlsource
employee.address
全部
Commandgroup1
Backcolor
255,0,255
全部
Buttoncount
8
全部
Clickevent
用户自定义过程(见表后代码③)
方法程序
4设置控件次序
选择菜单→显示→Tab键次序,为各个控件设置次序。
图3-3注册表控件次序设置
5主要控件代码
①Form1对象Init方法的代码程序
Tbo1.enabled=.f.
Thisform.optiongroup1.option1.enabled=.f.
Thisform.optiongroup1.option2.enabled=.f.
②Text1控件Gotfocus方法的代码程序
Tbo1.enabled=.t.
Thisform.optiongroup1.option1.enabled=.t.
Thisform.optiongroup1.option2.enabled=.t.
③Commandgroup1控件Click方法的代码程序
docase
case this.value=1
go top
case this.value=2
*比较与使用!
bof()的区别
if recn()>1
skip-1
else
gobottom
endif
case this.value=3
*比较与使用!
eof()的区别
if recn() skip else gotop endif case this.value=4 go bottom case this.value=5 append blank case this.value=6 browse noappend case this.value=7 used: \cases\employee.dbf *==与trim()的使用 delete for trim(employee.no)==trim(thisform.text1.value) pack case this.value=8 *退出时删除空记录 used: \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) Label2 Command3 图4-1系统登陆界面 此处为Caption为空的Label4 2添加数据环境 在表单上单击右键→数据环境→添加数据表employee。 图4-2登录表单数据环境 3设置控件属性 控件名 属性名 设置值 所在选项卡 Form1 Autocenter T 全部 Borderstyle 1-单线边框 全部 Caption 好美家销售管理系统 全部 Desktop T 全部 InitEvent 用户自定义过程(见表后代码①) 方法程序 Maxbutton F 全部 Minbutton F 全部 Label1 Autosize T 全部 Caption 用户登录界面 全部 Forecolor 128,0,0 全部 fontname 楷体 全部 Label2 Autosize T 全部 Caption 用户帐号: 全部 Fontbold T 全部 Fontname 楷体 全部 Fontsize 14 全部 Forecolor 0,0,160 全部 Height 24 全部 Width 107 全部 Label3 Caption 用户密码: 全部 其他属性设置同Label2 Label4 Autosize T 全部 Caption 无 全部 Combo1 Height 25 布局 Width 187 布局 Combo1属性通过生成器产生(具体方法见4、Combo1的属性设置) Text1 Passwordchar * 全部 Height 25 布局 Width 187 布局 Command1 Caption 登录 全部 ClickEvent 用户自定义过程(见表后代码②) 方法程序 Height 25 布局 Width 73 布局 Command2 Caption 退出 全部 ClickEvent 用户自定义过程(见表后代码③) 方法程序 Command3 Caption 注册 全部 ClickEvent 用户自定义过程(见表后代码④) 方法程序 4Combo1的属性设置 对着Combo1→单击右键→生成器→组合框生成器,如图4-3所示。 在图中选择字段No,Name。 图4-3Combo1属性设置图 在布局选项卡中拖动No,Name之间的标题框使之能清晰显示。 图4-4Combo1布局设置图 在值选项卡中选择返回值列名No。 图4-5返回值设置图 5主要控件代码 ①Form1控件InitEvent程序代码 Tmand1.enabled=.t. publicz &&z用于记录登录次数 z=0 publicun &&z用于存储登录帐号,在修改密码程序中使用 publicpw &&z用于存储登录密码,在修改密码程序中使用 ②Command1控件clickEvent程序代码 used: \cases\employee.dbf locatefortrim(no)==trim(bo1.value) if found()andtrim(password)==trim(thisform.text1.value) domainmenu.mpr *设置菜单窗口标题 &&modifywindowsscreentitle'好美家销售管理信息系统' pw=trim(thisform.text1.value) un=trim(bo1.value) thisform.release else ifnotfound() thisform.label4.forecolor=RGB(255,0,0) thisform.label4.caption="该用户不存在! 重新输入" bo1.value="" thisform.text1.value="" bo1.setfocus thisform.refresh z=z+1 ifz=3 thisform.label4.forecolor=RGB(255,0,0) thisform.label4.caption="对不起,你无权使用本系统! ! " thisform.text1.enabled=.f. bo1.enabled=.f. mand1.enabled=.f. endif else thisform.label4.forecolor=RGB(255,0,0) thisform.label4.caption="密码不正确! 重新输入" thisform.text1.value="" thisform.text1.setfocus thisform.refresh z=z+1 ifz=3 thisform.label4.forecolor=RGB(255,0,0) thisform.label4.caption="对不起,你无权使用本系统! ! " thisform.text1.enabled=.f. bo1.enabled=.f. mand1.enabled=.f. endif endif endif ③Command2控件clickEvent程序代码 Thisform.release ④Command3控件clickEvent程序代码 Doformregister Thisform.release 步骤五: 修改密码表单设计 1设计登陆表单 利用表单设计器,设计如图5-1所示的修改密码界面。 (表单名changepassword) 图5-1修改密码界面
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 输入输出 界面设计
![提示](https://static.bdocx.com/images/bang_tan.gif)