vf课程设计 设备管理系统

1、一、需求分析根据任务书给定的“课程设计内容”和“课程设计要求”作如下的需求分析。该系统是一个较典型的数据管理系统，其使用者被假定为某高校的设备信息管理人员，系统应该具有稳定、安全、功能齐全等特点。1. 安全性分析系统管理的数据涉及到某高校的所有设备，数据量较大且是一种重要性数据，能够为其它方面的设备信息管理工作提供重要参考，所以要通过设置密码等手段确保数据不能被随意的删减和修改。2. 稳定性分析指系统比较稳定，只要是用户的合理操作，系统都应给出合理正确的回应，而不能出现令用户感到意外的系统错误或系统崩溃。3. 主要功能分析（1）系统登录：允许用户输入用户名、密码等进入系统。（2）数据维护：该模

2、块是针对于管理员操作，一般包括查询、修改等，对于输入的数据，或被修改的数据应该保存到某个磁盘文件中，实现永久存储。（3）数据查询：用户可以选择按照设备名称，设备编号，设备类别查询，当输入查询条件，系统规则地在界面显示查询结果，且显示的数据尽量全面详细。 (4）功能界面：用户可以根据实际需要如购买设备及报废设备等对数据进行添加和删除，对数据进行完善。二、系统主要功能模块设备信息管理系统基于Visual FoxPro 6.0中文版开发，VFP在数据库开发方面具有方面，实用，简单，直接等优点，同时其也具有一定的局限性。本系统主要面向高校设备信息管理人员开发使用，因此主要侧重于系统的使用性和方便性，同

3、时在安全性方面，也十分重视。特别是系统登陆界面中的登录操作，我们都做了仔细的分析研究。1. “学生信息管理系统”的模块结构图（如图1）系统主界面登陆界面设备信息管理功能菜单设备信息统计退出信息维护信息查询购买设备报废设备信息统计正确图1 系统模块化分2、本系统的主要内容(如图2)图 2 项目管理器三、数据库设计数据库设计是总体设计阶段中非常重要的环节，数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。本系统的数据库包括2个表，即密码表及设备信息表。1.密码表(密码.dbf)密码表(密码.dbf)用于记录用户名，密码等信息，其逻辑结构如表1所示。表

4、1 密码表字段名称字段类型宽度小数位NULL用户名C10否密码C10否2.设备信息表(设备信息.dbf)设备信息表(设备信息.dbf)用于记录设备基本信息，包括设备名称，编号，类别，数量，购进时间，购进价格，所属单位，运行情况等信息，其逻辑结构如表2所示。表2设备信息字段名称字段类型宽度小数位NULL类别C10否设备名称C10否编号C10否数量C10否购进价格Y8否购进时间D8否所属单位C10否运行情况C10否四、各功能模块的具体设计根据系统规划和需要分析，把系统划分为登陆界面，用户主界面，各级功能模块等。本系统用到的主要有以下文件：系统登录界面(表单1.scx)，用户主界面（高校设备管理界面

5、1.scx）主菜单（高校设备管理界面.mpr）等。程序的调用关系如下：系统登录界面(表单1.scx)中调用界面表单用户主界面（高校设备管理界面1.scx），各菜单项调用相对应的表单。1登陆界面表单(表单1.scx)(图3)密码验证作为系统最基本的安全管理步骤。用户如果不输入合法的用户名和密码，系统是不能进入的。当用户输入合法的用户名和密码时，系统管理会自动判断此用户，使用户的操作具有合法性。：用户在文本框输入操作员及口令，若正确则调用用户主界面。图3 登陆界面1）将密码表添加到系统调用表单的数据环境中。2）系统调用界面中主要控件属性如表3所示。表3 登陆界面表单控件属性对象名称属性名称属性值F

6、orm1caption登陆界面AutoCenter.T.Command1caption确定Command2caption取消Text1NameText1Text2NameText2passwordchar*3）主要事件代码：Command1的click事件代码：set exact on select 密码 if allt(thisform.text1.value)= messagebox(用户名为空，请输入!,64,提示) thisform.text1.setfocus else if allt(thisform.text2.value)= messagebox(密码为空，请输入,64,提示)

7、 thisform.text2.setfocus else locate for allt(用户名)=allt(thisform.text1.value) and allt(密码)=allt(thisform.text2.value) if found() do form 高校设备管理界面1 thisform.release else messagebox(输入用户名或密码错误,45,提示) endif endif endif Command2的click事件代码：close all thisform.release2用户主界面（高校设备管理界面1.scx）(图4)当操作员的名称和密码均正确的

8、时候，系统便会进入系统主界面使用主菜单。主菜单共分为四个分菜单项：设备信息管理，功能菜单，设备信息统计及退出。如图(4)图4 用户主界面在设备信息管理中分为信息维护和查询两个菜单项，在功能菜单中含有购买设备和报废设备表4 用户主界面表单控件属性对象名称属性名称属性值Form1caption用户主界面AutoCenter.T.label1caption沈阳航空航天大学Label2caption设备管理系统Label3caption欢迎您！3用户主界面菜单设计1)用户主界面的菜单在应用系统中，各个了模块是通过菜单组织在一起的。通过对用户主界面功能模块的设计，可以交系统划分为4大模块：设备信息管理，

9、功能菜单，设备信息统计及退出，具体的菜单设计见表5：表5用户主界面菜单设备信息管理信息维护管理员对数据的操作及应用查询功能菜单购买设备管理员对系统的应用报废设备设备信息统计管理员对系统的应用退出退出系统4. 设备信息维护表单(高校设备信息维护.scx)设备信息维护表单(如图5)包换下列功能：数据添加、修改、删除、查询、浏览等。本表单左边是浏览窗口，便于用据；右边是查询结果输出及编辑窗口，主要用于查询结果输出及输入修改数据户浏览数。图5学生数据维护界面1) 在表单数据环境中添加表：设备信息.dbf。在表单数据环境中的设备信息.dbf 的exclusive属性为.t.2）学生数据维护表单界面中主要

10、控件属性如表6所示。表6 设备信息维护表单控件属性对象名称属性名称属性值Form1caption设备信息维护AutoCenter.T.Grid1recordsourcetype1-别名recordsource设备信息维护Commandgroup1buttoncount3value1Text1nameText1Text2controlsource设备名称Text3controlsource类别Text4controlsource编号Text5controlsource数量Text6controlsource购进价格Text7controlsource购进时间Text8controlsource所

11、属单位Text9controlsource运行情况3) 事件代码：“上一个“的CLICK事件代码：skip-1if bof()go bottomendifthisform.refresh“下一个“的CLICK事件代码：skipif eof()go topendifthisform.refresh“浏览“的CLICK事件代码：select 设备信息set filter to do casecase thisform.optiongroup1.value=1set filter to 设备名称=alltrim(thisform.text1.value)locate for 设备名称=alltrim

12、(thisform.text1.value)case thisform.optiongroup1.value=2set filter to 类别=alltrim(thisform.text1.value)locate for 类别=alltrim(thisform.text1.value)case thisform.optiongroup1.value=3set filter to 所属单位=alltrim(thisform.text1.value)locate for 所属单位=alltrim(thisform.text1.value)endcasethisform.refresh“添加“按

13、钮的CLICK事件代码：if this.caption=添加this.caption=保存endif select 设备信息append blankgo bottom thisform.text4.setfocus()thisform.refresh “删除“按钮的CLICK事件代码：select 设备信息sel=messagebox (真的要删除吗？,4,提示)if sel=6deletepackmessagebox(删除成功！,4,提示)use thisform.grd设备信息.recordsourcetype=0thisform.grd设备信息.recordsource=设备信息endi

14、f“修改“按钮的CLICK事件代码：select 设备信息replace 设备名称 with alltrim(thisform.text2.value)replace 类别 with alltrim(thisform.text3.value)replace 编号 with alltrim(thisform.text4.value)replace 数量 with alltrim(thisform.text5.value)replace 购进价格 with thisform.text6.valuereplace 购进时间 with thisform.text7.valuereplace 所属单位

15、with alltrim(thisform.text8.value)replace 运行情况 with alltrim(thisform.text9.value)messagebox(修改成功,1,提示)thisform.refresh“退出“按钮的CLICK事件代码：thisform.release4）运行界面：(如图6)图6学生数据维护5.设备信息查询表单(高校设备信息查询.scx)的设计首先，信息查询表单的设计与信息维护表单的设计比较类似。表单调用的是设备信息.dbf。设备信息的查询如图7，是基于设备信息.dbf表，提供设备名称，设备编号，设备类别，设备数量等查询。分别利用不同的命令代码

16、方式实现查询打印功能。功能是便于设备信息管理员检索查询。图7学生信息查询表单1) 在表单数据环境中添加表：设备信息.dbf。在表单数据环境中的设备信息.dbf 的exclusive属性为.t.2）设备信息查询表单界面中主要控件属性如表7所示。表7设备信息查询表单控件属性对象名称属性名称属性值Form1caption设备信息维护AutoCenter.T.Grid1recordsourcetype1-别名recordsource设备信息维护Commandgroup1buttoncount3value1Text1nameText1Text2controlsource设备名称Text3controls

17、ource编号Text4controlsource类别Text5controlsource数量Text6controlsource购进价格Text7controlsource所属单位Text8controlsource购进时间Text9controlsource运行情况3)各事件的代码如下：，“上一个“的CLICK事件代码：skip-1if bof()go bottomendifthisform.refresh“下一个“的CLICK事件代码：skipif eof()go topendifthisform.refresh“查询“的CLICK事件代码：select 设备信息set filter t

18、o do casecase thisform.optiongroup1.value=1set filter to 设备名称=alltrim(thisform.text1.value)locate for 设备名称=alltrim(thisform.text1.value)case thisform.optiongroup1.value=2set filter to 类别=alltrim(thisform.text1.value)locate for 类别=alltrim(thisform.text1.value)case thisform.optiongroup1.value=3set fil

19、ter to 所属单位=alltrim(thisform.text1.value)locate for 所属单位=alltrim(thisform.text1.value)endcasethisform.refresh“打印预览“的CLICK事件代码：report form 设备信息.frx preview“打印“的CLICK事件代码：report form 设备信息.frx to printer“退出“按钮的CLICK事件代码：thisform.release4）该表单的运行图示如下(图8)图8学生信息查询表单6.购买设备表单(设备购买.scx)设计1）将设备信息.dbf添加到该表单的数据环

20、境中2）设备购买表单界面中主要控件属性如表8所示。表8设备购买表单控件属性对象名称属性名称属性值Form1caption设备购买AutoCenter.T.Command1caption信息输入Command2caption取消设计界面如图9，界面如下：3) 各事件代码均类似于学生信息查询的事件代码。“信息输入”的CLICK的事件代码为：go bottomdimension a(8)a(1)=alltrim(thisform.text3.value)a(2)=alltrim(thisform.text1.value)a(3)=alltrim(thisform.text2.value)a(4)=a

21、lltrim(thisform.text4.value)a(5)=thisform.text6.valuea(6)=thisform.text5.valuea(7)=alltrim(thisform.text7.value)a(8)=alltrim(thisform.text8.value)insert into 设备信息 from array a messagebox(输入成功,1,提示)“取消”的CLICK的事件代码为：thisform.release4）该表单的运行图示如下(图10)7.报废设备表单(设备报废.scx)设计1）将设备信息.dbf添加到该表单的数据环境中2）设备购买表单界面

22、中主要控件属性如表9所示。表9设备购买表单控件属性对象名称属性名称属性值Form1caption报废设备AutoCenter.T.Command1caption确认报销Command2caption取消Commandgroup1buttoncount3value1设计界面如图11，界面如下：3)各事件代码。“查询”的CLICK的事件代码为：select 设备信息set filter to do casecase thisform.optiongroup1.value=1set filter to 设备名称=alltrim(thisform.text4.value)locate for 设备名称

23、=alltrim(thisform.text4.value)case thisform.optiongroup1.value=2set filter to 类别=alltrim(thisform.text4.value)locate for 类别=alltrim(thisform.text4.value)case thisform.optiongroup1.value=3set filter to 所属单位=alltrim(thisform.text4.value)locate for 所属单位=alltrim(thisform.text4.value)endcasethisform.refr

24、esh“确认报销”的CLICK的事件代码为：select 设备信息sel=messagebox (真的要报销吗？,4,提示)if sel=6deletepackmessagebox(操作成功,4,提示)*use Endif“取消”的CLICK的事件代码为：thisform.release4）该表单的运行图示如下(图12)8.设备信息统计表单(设备信息统计.scx)设计设备信息统计表单用于系统的使用者对整个数据进行统计，便于对数据整体情况的了解。1）将设备信息.dbf添加到该表单的数据环境中。2）设备信息统计表单界面中主要控件属性如表10所示。表10设备信息统计表单控件属性对象名称属性名称属性值Form1caption设备信息统计AutoCenter.T.Command1caption统计Command2caption退出设计界面如图1