课设此文件仅供参考

1、沈阳航空航天大学北方科技学院VFPW程设计课程名称中兴商厦化妆品销售系教 学部经管教学部专 业市场营销班级 B943301学号 B94330119学生姓名祝旭芳指导教师王晓斌目录 TOC o 1-5 h z 目录 1 HYPERLINK l bookmark4 o Current Document 系统分析 2需求分析 2 HYPERLINK l bookmark6 o Current Document 总体设计 2系统主要功能 2 HYPERLINK l bookmark8 o Current Document 程序设计 2设计目标 2开发及运行环境 3制作过程 31系统分析1.1需求分析根

2、据市场的需求，要求系统具有以下功能：由于该系统的使用对象较多，要求有严密的权限管理。 具有数据备份及数据恢复的功能，确保系统的安全性。 方便的全方位的数据查询。强大的报表打印功能。在相应的权限下，可以删除或修改数据。2总体设计系统主要功能.可以对化妆品信息进行浏览。.可以对化妆品信息系统中的数据进行统计。.可以对化妆品信息系统中的数据进行查询。.可以对查询的数据打印 预览。.可以对系统数据备份恢复等。.密码修改等用户设置强大功能。3程序设计设计目标本系统是根据的家教实际需求而开发的，完全能够实现企业对客户的 自动化管理，通过本系统可以达到以下目标：系统运行稳定，安全可靠。界面设计美观，人机交互

3、界面友好。信息查询灵活、方便、快捷、准确，数据存储安全可靠。满足键盘和鼠标的双重操作，完全支持回车键。采用多种方式查询数据。操作员可以随时修改自己的口令。对用户输入的数据，系统进行严格的数据检验，尽可能排除人 为的错误。数据保密性强，为每个用户设置相应的权限级别。开发及运行环境系统开发平台：Visual FoxPro 6.0运行平台： Windows xp/Windows 2000/Windows 98制作过程.设置默认路径课设.建表.建立“密码”表，包括“用户名”（C, 8）, “密码”（C, 6）字段。.建立“化妆品”表，包括字段“商品名称”（C, 8）,“商品代码”（C, 8）, “产地

4、”（C, 20）, “功能”（C, 2）, “保质期”（C, 8）, “有无副作用”（L）, “生产日期” （D）, 20）, “价格”（货币）。.建立“登录”表单。.新建表单添加控件.form1的caption 属性改为：登录。.form1 的 autocenter 属性改为：T.Label的caption 属性改为：用户名。.Label的caption 属性改为：密码。.Command1的caption 属性改为：登录。.Command2勺caption 属性改为：退出。.combo1 的 rowsourcetype 改为：sql 语句；.在 rowsource 里输入：select 用户

5、名 from 密码 into cursor awa。.将form1的数据环境改为“密码”表*登录代码：yhm=trim(THISFORM.combo1.VALUE)MM=TRIM(THISFORM.TEXT1.VALUE)SELE密码loca for trim( 用户名)=yhm and trim( 密码 尸二mmif found()do form abc家教信息管理系统elseMESSAGEBOX密码错误！,48,提示)Endif*退出代码：Thisform.release.保存为“登录”。.建立“按教产地查询表单”.添加控件，更改属性。.form1的caption 属性改为：按商品查询。.

6、form1 的 autocenter 属性改为：T.form1的showwindow属性改成：在顶层表单中.Label的caption 属性改为：产地。.backstyle属性改为：透明。.Command1的caption 属性改为：查询。.Command2勺caption 属性改为：打印预览。.Command3勺caption 属性改为：退出。.combol 的 rowsourcetype 改为：sql 语句。.在 rowsource 里输入：select 产地 from 化妆品 into cursor awa.将forml的数据环境改为“化妆品”表。查询代码：spdm=trim(bo1.v

7、alue)If len(spdm)=0Thisform.grid1.recordsourcetype=4Thisform.grid1.recordsource=select * from化妆品into cursor tempelseThisform.grid1.recordsourcetype=4Thisform.grid1.recordsource=select * from化妆品 where产地二spdm into cursor tempEndifThisform.refresh退出代码：Thisform.release打印预览：SPDM=TRIM(THISFORM.COMBO1.VALU

8、E)SELECT化妆品REPORT FORM BBPRN PREVIEW FOR =SPDM保存为按产地查询。.建立“按价格查询表单”。.添加控件，更改属性。.forml的caption 属性改为：商品查询。.forml 的 autocenter 属性改为：T.forml的showwindow属性改成：在顶层表单中.Label的caption 属性改为：价格.backstyle 属性改为：透明。.Command1的caption 属性改为：查询。.Command2勺caption 属性改为：打印预览。.Command3勺caption 属性改为：退出。.将 combo1 的 rowsource

9、type 改为：sql 语句。.在 rowsource 里输入：select 价格 from 化妆品 into cursor awa。.将form1的数据环境改为“化妆品”表。查询代码：spdm=trim(bo1.value)If len(spdm)=0Thisform.grid1.recordsourcetype=4Thisform.grid1.recordsource=select * from化妆品into cursor tempelseThisform.grid1.recordsourcetype=4Thisform.grid1.recordsource=select * from化妆

10、品 where价格=spdm into cursor temp.将.将form1的数据环境改为：化妆品EndifThisform.refresh打印预览：SPDM=TRIM(THISFORM.COMBO1.VALUE)SELECT化妆品REPORT FORM BBPRN PREVIEW FOR =SPDM退出代码：Thisform.release.保存为“按价格查询”。.建立“按商品代码查询表单”。.添加控件，更改属性。.form1的caption 属性改为：代码查询。.form1 的 autocenter 属性改为：T.form1的showwindow属性改成：在顶层表单中.Label的ca

11、ption 属性改为：商品代码。.backstyle 属性改为：透明。.Command1的caption 属性改为：查询。.Command2勺caption 属性改为：打印预览。.Command3勺caption 属性改为：退出。.将 combo1 的 rowsourcetype 改为：sql 语句。.在rowsource 里输入：select 商品代码 from 化妆品into cursor awa查询代码：spdm=trim(bo1.value)If len(spdm)=0Thisform.grid1.recordsourcetype=4Thisform.grid1.recordsourc

12、e=select * from化妆品into cursor tempelseThisform.grid1.recordsourcetype=4Thisform.grid1.recordsource=select * from化妆品 where商品代码 =spdm into cursor tempEndifThisform.refresh打印预览：SPDM=TRIM(THISFORM.COMBO1.VALUE)SELECT化妆品REPORT FORM BBPRN PREVIEW FOR 代码=SPDM退出代码：Thisform.release.保存为“按商品代码查询”。.建立统计表单。.添加控件

13、，更改属性。.forml的caption 属性改为：数据统计。.forml 的 autocenter 属性改为：T.forml的showwindow属性改成：在顶层表单中.Commandl的caption 属性改为：按商品代码统计。.Command2勺caption 属性改为：按保质期统计。.Command3勺caption 属性改为：按功能统计。.将forml的数据环境改为“化妆品”表。按按商品代码统计代码：THISFORM.GRID1.RECORDSOURCETYPE=4THISFORM.GRID1.RECORDSOURCE=SE底CK码，COUNT(*) AS 数量 FROM化妆品 GR

14、OUP BYW品代码 INTO CURSOR TEMPTHISFORM.REFRESH按保质期统计代码：THISFORM.GRID1.RECORDSOURCETYPE=4THISFORM.GRID1.RECORDSOURCE=SELECTg ,COUNT(*) AS 数量FROMfc妆品 GROUP BY保质期 INTO CURSOR TEMPTHISFORM.REFRESH按功能统计代码：THISFORM.GRID1.RECORDSOURCETYPE=4THISFORM.GRID1.RECORDSOURCE=SELECTCOUNT(*) AS 数量FROMfc妆品 GROUP BWl能 IN

15、TO CURSOR TEMPTHISFORM.REFRESH退出代码：Thisorm.release.保存为“商品统计”。.用向导建立浏览表单。(如下图).分别保存为“学生”和“教师”。.建立“化妆品管理系统”表单.forml的caption属性改为：中兴商厦化妆品销售系统。.forml 的 autocenter 属性改为：T.forml的showwindow属性改为：作为顶层表单。.windowstate 属性改为：最大化。.保存为“中兴商厦化妆品销售系统”。*form1代码：do 中兴商厦化妆品销售系统.mpr WITH This,.t.建立“用户设置”表单.添加控件，更改属性。.form

16、1的caption 属性改为：密码设置。.form1 的 autocenter 属性改为：T.Command1的caption 属性改为：确定。.Command2勺caption 属性改为：取消。.将form1的数据环境改为“密码”表。确定代码：YHM=TRIM(THISFORM.COMBO1.VALUE)MM=TRIM(THISFORM.TEXT2.VALUE)MM1=TRIM(THISFORM.TEXT3.VALUE)MM2=TRIM(THISFORM.TEXT4.VALUE)SELECT密码LOCATE FORffl 户名=YHM AN嘀 5?=MMIF FOUND()IF MM1=MM

17、2REPL 密码 WITH MM1MESSAGEBOX(密码修改成功！,48, 提示)ELSEMESSAGEBOX(新密码两次输入不一致!,48, 提示)THISFORM.TEXT2.VALUE=THISFORM.TEXT2.SETFOCUS()ENDIFELSE取消代码：Thisform.release.保存为“用户设置”。.建立“系统初始化”表单.添加控件，更改属性。.form1的caption 属性改为：系统初始化。.form1 的 autocenter 属性改为：T.form1的showwindow属性改成：在顶层表单中.label的caption属性改为：系统初始化。.labe2的caption属性改为：将删除数据库中所有数据。.Command1的caption 属性改为：确定。.Command2勺caption 属性改为：取消。*按钮组代码n