|
第四章 用户界面的基本构成及功能 结构图 paper51.com
内容来自论文无忧网 www.paper51.com 由图可知，系统分为五大模块： copyright paper51.com 4.1系统设置模块可以实现以下功能： 内容来自www.paper51.com （1）分类设置：包括编号、分类名称和种类编号等信息。 paper51.com
（2）会员类型设置：包括编号、类型名称、收费金额、使用天数和折扣等信息。 copyright paper51.com
（3）收费标准设置：包括编号、分类、押金和租金等信息。 paper51.com （4）退出：退出系统。 内容来自论文无忧网 www.paper51.com 4.1.1 设置分类设计表单，如图： 内容来自www.paper51.com copyright paper51.com 分类设置表单用于对音像商品的分类信息进行管理，包括添加、修改和删除等操作。可以对两种分类信息进行管理，即影片分类和语种分类。 内容来自www.paper51.com 表单中使用页框控件选择分类。 paper51.com
当用户单击“保存”按钮时，程序将会根据添加数据和修改数据的状态决定进行的操作。为了标记添加数据和修改数据的状态，需要为表添加一个fmode属性。 paper51.com 分类设置表单可以分为编辑和查看两个状态，为了设置不同情况下控件的状态，需要为表彰添加两个方法程序，即modeedit和moderead。 内容来自论文无忧网 www.paper51.com 4.1.2 设置会员类型设置表单 内容来自www.paper51.com 会员类型设置表单用于对会员类型和收费情况等信息进行管理，包括添加修改和删除等操作。 copyright paper51.com 办理会员分三类： 内容来自论文无忧网 www.paper51.com
普通卡： 80元，使用100天，可借无限多次。 paper51.com 金卡： 150元，使用200天，可借无限多次 http://www.paper51.com VIP卡：300元。 使用一年，可借无限多次 http://www.paper51.com 如图: 内容来自论文无忧网 www.paper51.com http://www.paper51.com 4.1.3 设计收费标准设置表单 paper51.com 收费标准设置表单用于对不同类型音像商品的收费标准进行管理，包括添加修改和删除等操作。如图: 内容来自www.paper51.com
http://www.paper51.com 4.2.会员管理模块设计 paper51.com 会员在租借音像商品时，享受一定程度的优惠政策，会员信息管理模块可以实现以下功能： 内容来自www.paper51.com （1）录入会员信息，包括姓名、性别、类型编号、状态等信息。 copyright paper51.com （2）浏览会员信息 copyright paper51.com 4.2.1 设计会员信息录入表单 内容来自www.paper51.com 会员信息录入表单，用于对会员的基本信息进行管理，包括添加、修改和删除等操作。 http://www.paper51.com 因为类型编号组合框中显示的数据为编号，所以用户无法直接的了解数据的含义，为了解决这个问题，在组合框的左侧添加了一个文本框“txt类型名称”，用于显示类型名称，当用户从组合框中选择了编号时，程序会自动将对应的文本显示在相应的文本框中。 内容来自论文无忧网 www.paper51.com “txt到期日期”是由程序根据会员类型表中的“使用天数”字段值和会员表中的“登记日期”字段值计算得到的，只用于显示数据。文本框“txt累计次数”和“txt累计金额”也不允许用户修改，因此将他们的readonly属性设置为.T. 内容来自论文无忧网 www.paper51.com
该会员信息录入表的按钮是由可视类cmdpointer导入的。如图: 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 4.2.2 设计会员信息浏览表单 内容来自www.paper51.com
会员信息浏览表单可以使用表格的形式查看会员信息，并提供模糊查询、注销会员、取消注销和删除等功能。 paper51.com 如图： copyright paper51.com
内容来自www.paper51.com
为了实现模糊查询，在SET FILTER TO 命令中使用了$操作符。$操作符的功能是判断一个字符串是否包含另一个字符串。 http://www.paper51.com 表单上的组合框和文本框控件用于设置查询条件，包括姓名、会员类型和到期范围。“注销”和“取消注销”按钮用于改变会员的状态。 copyright paper51.com 当用户单击“查找”按钮时，程序将根据文本框和组合框中输入的数据生成查询条件，并刷新表格内容，当用户单击“重置”按钮时，程序将对查询条件文本框和组合框进行初始化，并刷新表格内容。 paper51.com 4.3商品管理模块设计： 内容来自论文无忧网 www.paper51.com 商品管理可以实现以下功能： 内容来自论文无忧网 www.paper51.com （1）录入音像商品，包括名称、收费编号、语种分类编号和影片分类编号、租借次数、库存数量等信息。 内容来自www.paper51.com （2）浏览音像商品。 http://www.paper51.com 4.3.1 设计音像商品录入表单 内容来自www.paper51.com 音像商品录入表单用于对音像商品信息进行管理，包括添加、保存和修改等操作。 http://www.paper51.com
因为“收费编号”组合框中显示的数据都是编号，所以用户无法直观地了解数据的含义，为了解决这个问题，在表彰中添加一个文本框“txt收费分类”。当用户从组合框中选择了编号时，程序将自动将对应的文本显示在相应的文本框中。同理，添加“txt影片分类”和“txt语种分类”文本框。 copyright paper51.com
本表单的按钮也是由可视类cmdpointer导入的。 copyright paper51.com
如图: copyright paper51.com
paper51.com 4.3.2 设计音像商品浏览表单 http://www.paper51.com 在音像商品浏览表单中，可以使用表格的形式查看音像商品信息，表单也具有模糊查询、重置和删除的功能 paper51.com paper51.com 4.4租赁管理模块设计 http://www.paper51.com
音像商品租赁管理模块可以实现以下功能： copyright paper51.com
（1）录入租赁单，包括类型、租赁日期、会员编号和租赁音像商品明细等信息。 内容来自论文无忧网 www.paper51.com （2）浏览零租信息。 http://www.paper51.com
（3）浏览租赁信息。 http://www.paper51.com （4）在浏览表单中录入归还单。 http://www.paper51.com 4.4.1 设计音像租赁单表单,如图 http://www.paper51.com 内容来自论文无忧网 www.paper51.com 在音像租赁单中，需要选择用户的类型并输入租赁日期。用户类型包括“零租”和“会员”两种情况。如果选择“零租”，则可以点击下一步；如果选择“会员”，则还需要选择会员姓名。 内容来自论文无忧网 www.paper51.com 因为“会员编号”组合框中显示的数据都是编号，所以用户无法直观地了解数据的含义，为了解决这个问题，在表单中添加四个文本框，即txt姓名、txt类型、txt状态和txt性别。当用户从组合框中选择了编号时，程序会自动将对应的文本显示在相应的文本框中。 copyright paper51.com
4.4.2 设计租赁单录入表单,如图: copyright paper51.com
copyright paper51.com
租赁单录入表单用于对音像商品的租赁信息进行管理，包括添加、修改、删除和出租等操作。 copyright paper51.com 出租操作是尤为重要的，一个租赁单中可以同时租赁多个音像商品，它们被添加到租赁明细表中，并显示在表格中。租赁单录入表单也可以分为编辑和查看两个状态，为了设置不同情况下控件的状态，需要为表单添加两个方法程序，即modeedit和moderead. 内容来自www.paper51.com
4.4.3设计零租信息浏览表单，如图： paper51.com
内容来自www.paper51.com 零租信息浏览表单可以使用表格的形式查看零租用户的租赁信息，并提供模糊查询、编辑、审核、归还、查看明细和删除等功能。 内容来自www.paper51.com
4.4设计会员租赁浏览表单，如图 内容来自论文无忧网 www.paper51.com
paper51.com 在会员租赁浏览表单中，可以使用表格的形式查看会员用户的租赁信息，表单也具有模糊查询、编辑、审核、归还、查看明细和删除等功能 paper51.com 4.4.5设计查看租赁明细表单: paper51.com 在查看明细表中，可以使用表格的形式查看指定租赁单的明细信息，包括商品编号、租赁日期，租赁数量、应交押金、实交押金、应交租金、实交租金等信息。 http://www.paper51.com 如图： http://www.paper51.com
内容来自www.paper51.com
4.4.6 设计归还单录入表单 内容来自论文无忧网 www.paper51.com
归还单录入表彰可以使用表格的形式查看指定租赁撞蝗明细信息，并归还租赁的音像商品。 内容来自www.paper51.com 表单的界面与查看租赁明细表单相似，只是多了“退还押金”、“实交租金”文本框和“归还”按钮。 内容来自www.paper51.com
paper51.com 4.5．用户管理模块设计 paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 根据用户类型的不同，用户管理模块的功能也不相同。可以包含以下两个情形： paper51.com ·Admin用户可以创建普通用户、复位用户密码、删除普通用户，也可以修改自身的密码 http://www.paper51.com ·普通用户只能修改自身的密码 copyright paper51.com
总之，任何用户再修改密码时，原密码必须输入正确，新密码和确认密码的输入也一定要一致。 paper51.com
第五章 如何正确使用该系统 copyright paper51.com 首先，登陆到该系统，通过输入正确的用户名和密码进入系统主界面。 copyright paper51.com 1．如有一商品要入库，则进入到音像商品录入表单里面点修改然后将库存数量加1，如果没有该产品的信息则按添加按钮，输入相应的音像商品信息。 copyright paper51.com
2．假设有一顾客要租赁商品，有以下几种情况 内容来自www.paper51.com
（1）如果是会员则直接进入租赁单选择会员，然后点确定按钮进入音像商品租赁单进行输入，然后点出租按钮将完成此项任务。 paper51.com
（2）如果不是会员则进入租赁单选择零租，然后点确定按钮进入音像商品租赁单进行输入，然后点出租按钮将完成此项任务。 paper51.com （3）如果不是会员但是想办理会员，则先进入会员信息录入，将这位顾客添加成会员。然后再按照会员租赁商品的方法进入租赁。 内容来自论文无忧网 www.paper51.com 3．商品归还时有以下两种情况： 内容来自www.paper51.com （1）如果是会员归还商品则进入租赁管理的会员租赁浏览表单，选中要归还的信息，然后点归还按钮完成操作。 paper51.com
（2）如果不是会员归还商品则进入租赁管理的零租租赁浏览表单，选中要归还的信息，然后点归还按钮完成操作。 内容来自论文无忧网 www.paper51.com
除了基本的商品入库和商品租赁操作，我还在这个系统中添加了一些常用的功能： 内容来自论文无忧网 www.paper51.com （1）查询功能：通过此功能，输入索要查询的产品名称，就可以查到相关产品的一系列情况，省得去利用产品信息表进行核对，省去了很多时间。 copyright paper51.com （2）重置功能：重新刷新表的信息，解决了查询之后的不便之处。 内容来自论文无忧网 www.paper51.com （3）审核功能：审核输入的信息，审核之后将不能更改租赁的信息。 内容来自www.paper51.com 第六章 系统的主要程序代码 内容来自www.paper51.com 6.1创建主文件main程序，代码如下： 内容来自论文无忧网 www.paper51.com SET TALK OFF &&关闭对话 paper51.com
SET ESCAPE OFF &&关闭ESCAPE键 paper51.com SET EXACT ON &&打开完全匹配 http://www.paper51.com SET EXCLUSIVE ON &&打开独占 copyright paper51.com SET CONSOLE ON &&将输出结果到发送到Visual FoxPro主窗口或当前的活动窗口 内容来自论文无忧网 www.paper51.com SET DATE TO SHORT &&设置短日期 paper51.com SET SCORE OFF &&关闭分值栏 paper51.com SET SAFETY OFF &&关闭安全提示 paper51.com SET STATUS BAR OFF &&关闭系统提示栏 http://www.paper51.com SET CENTURY ON &&打开世纪开关 内容来自论文无忧网 www.paper51.com SET DELETED ON &&屏闭删除项 内容来自www.paper51.com SET SYSMENU OFF &&关闭系统菜单 内容来自www.paper51.com
SET NOTIFY OFF &&关闭提示 copyright paper51.com &&设置系统窗口属性 paper51.com _SCREEN.MaxButton = .F. &&取消最大化按钮 http://www.paper51.com _SCREEN.MaxWidth = 780 &&设置最大宽度 内容来自www.paper51.com
_SCREEN.MaxHeight = 600 &&设置最大高度 内容来自论文无忧网 www.paper51.com
_SCREEN.Caption = "音像租赁管理系统" &&设置窗口标题 内容来自www.paper51.com _SCREEN.Picture = 'img\vcd.bmp' &&设置窗口背景图片 内容来自论文无忧网 www.paper51.com _SCREEN.AutoCenter = .T. &&指定表单初次显示时，自动位于主窗口中央 copyright paper51.com &&公共变量 copyright paper51.com
PUBLIC FindRecordNo 内容来自www.paper51.com PUBLIC UserName 内容来自www.paper51.com Do MyMenu.mpr &&打开菜单 http://www.paper51.com &&打开登录表单 http://www.paper51.com Do Form [Forms\登录.scx] paper51.com READ EVENTS 内容来自www.paper51.com Procedure OnQuit copyright paper51.com CLEAR EVENTS copyright paper51.com CLOSE ALL copyright paper51.com QUIT 内容来自论文无忧网 www.paper51.com Endproc http://www.paper51.com
为了能够在其他表单中退出VF，定义一个过程OnQuit，用于进行退出系统的处理。 http://www.paper51.com 6.2 登录表单的代码如下： copyright paper51.com 内容来自www.paper51.com “确定按钮（cmdOk）”的CLICK事件为： paper51.com
IF ALLTRIM(thisform.txtUserName.Value) == '' paper51.com MessageBox("请输入用户名") http://www.paper51.com
RETURN 内容来自论文无忧网 www.paper51.com ENDIF paper51.com IF ALLTRIM(thisform.txtUserPwd.Value) == '' 内容来自www.paper51.com
MessageBox("请输入密码") copyright paper51.com
RETURN 内容来自www.paper51.com ENDIF 内容来自www.paper51.com OPEN DATABASE data\音像租赁.dbc http://www.paper51.com USE data\用户表 paper51.com &&查找指定用户名为的记录 http://www.paper51.com Locate For Allt(用户名)=Allt(thisform.txtUserName.Value) copyright paper51.com If Found() == .T. &&如果找到 http://www.paper51.com
If Allt(密码) ==Allt(thisform.txtUserPwd.Value) &&比较密码，成功则进入 内容来自www.paper51.com
MessageBox("欢迎光临", 64, "提示信息") copyright paper51.com
UserName = 用户名 内容来自www.paper51.com releasethisform copyright paper51.com Else &&比较密码不成功 http://www.paper51.com MessageBox("密码不正确", 16, "错误提示") 内容来自www.paper51.com Endif paper51.com Else &&没有找到指定用户 内容来自论文无忧网 www.paper51.com MessageBox("用户名不存在", 16, "错误提示") copyright paper51.com Endif 内容来自论文无忧网 www.paper51.com 程序将首先判断用户输入的数据是否有效，如果用户名或密码为空，则要求用户重新输入。然后使用Locate For 语句在用户表中查找指定的用户名，如果不存在，则提示用户“用户名不存在”；如果找到指定用户，则比较用户表中的密码数据和用户输入的密码数据。如果密码比较成功（foun()==.t.）,则显示“欢迎光临”，然后关闭登录表单；如果密码比较不成功，则提示“密码不正确”。 paper51.com |