输入输出界面设计.doc

管理信息系统实验78江长斌 输入输出界面设计2步骤一：建立实验文件夹设置路径1 建立文件夹在我的电脑选择磁盘分区D，建立实验用文件夹CASES。由于在实验中涉及具体的路径和文件夹名，如路径和文件夹名有更改，实验中应作相应更改。2 设置默认路径进入Visual FoxPro（以下简称VFP），依次选择工具选项文件路径默认目设置实验路径。图1-1 默认路径位置在上图中点击修改，弹出图1-2，在图1-2中勾选使用默认目录。图1-2 定位默认目录在上图中点击浏览按钮（带按钮），弹出图1-3，在图1-3中选择CASES,再单击选定按钮。图1-3 选择目录再在图1-4中依次点确定（A）设置为默认值（B）确定（C）。CBA图1-4 更改默认目录步骤二：建立实验用数据库表1 建立员工表employeeemployee表中各个字段名和相关长度如图2-1所示。address 字符型 50图2-1 employee表结构图2 输入员工表employee数据图2-2 employee表模拟数据步骤三：设计员工信息注册表单Label11 设计注册表单利用表单设计器，设计如图3-1所示的注册界面。设计中注意布局工具栏的灵活使用和控件的复制。（表单名register）图3-1员工信息注册界面Commandgroup1Optiongroup12 添加数据环境在表单上单击右键数据环境添加数据表employee。图3-2注册表单数据环境- 23 -3 设置控件属性控件名属性名设置值所在选项卡Lable1AutosizeT全部Backstyle0-透明全部Caption员工信息录入全部Forecolor128,0,0全部Fontname楷体全部FontboldT全部Fontsize22全部Lable2AutosizeT全部Caption编号全部Fontname楷体全部FontboldT全部Fontsize16全部Height26全部Width48全部Lable2Lable7除Caption不同外，其它同Lable2Form1AutocenterT全部Borderstyle2-固定对话框全部Caption好美家销售管理系统全部DesktopT全部Init event用户自定义过程（见表后代码）方法程序MaxbuttonF全部MinbuttonF全部Text1Controlsourceemployee.no全部Maxlength9数据Gotfocus event用户自定义过程（见表后代码）方法程序Text2C全部Text3Controlsourceemployee.password全部Passwordchar*全部Maxlength6数据Optiongroup1Controlsourceemployee.sex全部Buttoncount2全部Combo1Controlsourceemployee.duty全部Rowsource总经理,部门经理,销售主管,销售支持,业务员全部Rowsourcetype1-值全部Text5Controlsourceemployee.birthday全部Text6Controlsourceemployee.salary全部Inputmask9999.9数据Text4Controlsourceemployee.address全部Commandgroup1Backcolor255,0,255全部Buttoncount8全部Click event 用户自定义过程（见表后代码）方法程序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方法的代码程序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()recc() 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:casesemployee.dbf *=与trim()的使用 delete for trim(employee.no)=trim(thisform.text1.value) pack case this.value=8 *退出时删除空记录 use d:casesemployee.dbf delete for trim(employee.no)= pack thisform.releaseendcase *退出时刷新各个控件的值 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）Label2Command3图4-1系统登陆界面此处为Caption为空的Label42 添加数据环境在表单上单击右键数据环境添加数据表employee。图4-2登录表单数据环境3 设置控件属性控件名属性名设置值所在选项卡Form1AutocenterT全部Borderstyle1-单线边框全部Caption好美家销售管理系统全部DesktopT全部Init Event用户自定义过程（见表后代码）方法程序MaxbuttonF全部MinbuttonF全部Label1AutosizeT全部Caption用户登录界面全部Forecolor128,0,0全部fontname楷体全部Label2AutosizeT全部Caption用户帐号：全部FontboldT全部Fontname楷体全部Fontsize14全部Forecolor0,0,160全部Height24全部Width107全部Label3Caption用户密码：全部其他属性设置同Label2Label4AutosizeT全部Caption无全部Combo1Height25布局Width187布局Combo1属性通过生成器产生（具体方法见4、Combo1的属性设置）Text1Passwordchar*全部Height25布局Width187布局Command1Caption登 录全部Click Event用户自定义过程（见表后代码）方法程序Height25布局Width73布局Command2Caption退 出全部Click Event用户自定义过程（见表后代码）方法程序Command3Caption注 册全部Click Event用户自定义过程（见表后代码）方法程序4 Combo1的属性设置对着Combo1单击右键生成器组合框生成器，如图4-3所示。在图中选择字段No,Name。图4-3 Combo1属性设置图在布局选项卡中拖动No,Name之间的标题框使之能清晰显示。图4-4 Combo1布局设置图在值选项卡中选择返回值列名No。图4-5 返回值设置图5 主要控件代码Form1控件Init Event程序代码Tmand1.enabled=.t.public z &z 用于记录登录次数z=0public un &z 用于存储登录帐号,在修改密码程序中使用public pw &z 用于存储登录密码,在修改密码程序中使用Command1控件click Event程序代码use d:casesemployee.dbf locate for trim(no)=trim(bo1.value) if found( ) and trim(password)=trim(thisform.text1.value) do mainmenu.mpr *设置菜单窗口标题 &modify windows screen title 好美家销售管理信息系统 pw=trim(thisform.text1.value) un=trim(bo1.value) thisform.releaseelse if not found( ) thisform.label4.forecolor=RGB(255,0,0) thisform.label4.caption=该用户不存在！重新输入 bo1.value= thisform.text1.value= bo1.setfocus thisform.refresh z=z+1 if z=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 if z=3 thisform.label4.forecolor=RGB(255,0,0) thisform.label4.caption=对不起，你无权使用本系统！ thisform.text1.enabled=.f. bo1.enabled=.f. mand1.enabled=.f. endifendifendifCommand2控件click Event程序代码Thisform.releaseCommand3控件click Event程序代码Do form registerThisform.release步骤五：修改密码表单设计1 设计登陆表单利用表单设计器，设计如图5-1所示的修改密码界面。（表单名changepassword）图5-1修改密码界面2 设置控件属性控件名属性名设置值所在选项卡Form1AutocenterT全部Borderstyle1-单线边框全部Caption好美家销售管理系统全部DesktopT全部MaxbuttonF全部MinbuttonF全部Text1Text3Maxlength6数据Passwordchar*布局Commandgroup1Backcolor255,0,255全部Buttoncount8全部Click event 用户自定义过程（见表后代码）方法程序3 主要控件代码Commandgroup1控件Click event t程序代码do case case this.value=1 if trim(thisform.text1.value)=pw if not(trim(thisform.text2.value)=trim(thisform.text3.value) xz=messagebox(两次密码输入不一致，请重新输入！,0+48+256,提示信息) if xz=1 thisform.text2.value= thisform.text3.value= thisform.text2.setfocus endif else use d:casesemployee.dbf locate for trim(no)=un replace password with thisform.text2.value xz=messagebox(密码修改成功，请记住新密码！,0+48+256,提示信息) if xz=1 thisform.release endif endif else xz=messagebox(原始密码输入错误，请重新输入！,0+48+256,提示信息) if xz=1 thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text1.setfocus endif endif case this.value=2 thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text1.setfocus case this.value=3 thisform.releaseendcase *退出时刷新各个控件的值 thisform.text1.refresh thisform.text2.refresh thisform.text3.refresh 步骤六：其它表单设计1 软件信息表单设计利用表单设计器设计如图6-1所示的表单。（表单名aboutus）图6-1 软件信息表单确认按钮的Command1控件click事件代码为：Thisform.release2 设备信息维护表单依据实验材料提供给你的设备表（sb.dbf和sb.fpt）利用表单生成向导，生成设备信息维护表单。并对相关属性作简单设置，得到如图6-2所示的表单。（表单名sb）图6-2 设备信息维护表单3 商品信息维护表单依据实验材料提供给你的商品表（sp.dbf和sp.fpt）