办公用品管理系统的设计与实现—毕业设计(论文

办公用品管理系统的设计与实现—毕业设计(论文内容摘要：

1 个组合框、 2 个命令按钮组；然后对各表单控件进行设置，将 2个命令按钮的“ caption”属性设置为“确定”和“取消”，对“确认”命令按钮的“ click”事件编程： IF NOT USED(lingquview) SELECT 0 USE lingquview ENDIF SELECT lingquview LOCATE FOR year(riqi)=val(alltrim()) IF FOUND() SELECT * from lingquview order by bumen INTO dbf c:\newsoft\myreport WHERE year(riqi)=val(alltrim()) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(对不起，没有此记录。 ) ENDIF 对“取消”命令按钮的“ click”事件编程： ㈩ 季报表生成表单 该表单包括了 4 个标签、 1 个组合框、 2 个命令按钮组；然后对各表单控件进行设置，将 2个命令按钮的“ caption”属性设置为“确定”和“取消”，对“确认”命令按钮的“ click”事件编程： IF NOT USED(lingquview) SELECT 0 USE lingquview ENDIF SELECT lingquview cjidu=VAL(ALLTRIM()) DO CASE CASE cjidu=1 LOCATE FOR year(riqi)=val(alltrim()) AND month(riqi)=3 IF FOUND() SELECT * from lingquview。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE year(riqi)=val(alltrim()) AND month(riqi)=3 report form c:\newsoft\myreport prev ELSE MESSAGEBOX(对不起，没有此记录。 ) ENDIF CASE cjidu=2 LOCATE FOR year(riqi)=val(alltrim()) AND (month(riqi)3 and month(riqi)=6) IF FOUND() SELECT * from lingquview。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE year(riqi)=val(alltrim()) AND (month(riqi)3 and month(riqi)=6) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(对不起，没有此记录。 ) ENDIF CASE cjidu=3 LOCATE FOR year(riqi)=val(alltrim()) AND (month(riqi)6 and month(riqi)=9) IF FOUND() SELECT * from lingquview。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE year(riqi)=val(alltrim()) AND (month(riqi)6 and month(riqi)=9) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(对不起，没有此记录。 ) ENDIF CASE cjidu=4 LOCATE FOR year(riqi)=val(alltrim()) AND (month(riqi)9 and month(riqi)=12) IF FOUND() SELECT * from lingquview。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE year(riqi)=val(alltrim()) AND (month(riqi)9 and month(riqi)=12) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(对不起，没有此记录。 ) ENDIF ENDCASE 对“取消”命令按钮的“ click”事件编程： (十一 )月报表生成表单 该表单包括了 4 个标签、 1 个组合框、 2 个命令按钮组；然后对各表单控件进行设置，将 2 个命令按钮的“ caption”属性设置为“确定”和“取消”，对“确认”命令按钮的“ click”事件编程： IF NOT USED(lingquview) SELECT 0 USE lingquview ENDIF SELECT lingquview cyue=ALLTRIM() LOCATE FOR year(riqi)=val(alltrim()) AND month(riqi)=val(cyue) IF FOUND() SELECT * from lingquview。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE year(riqi)=val(alltrim()) AND month(riqi)=val(cyue) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(对不起，没有此记录。 ) ENDIF 对“取消”命令按钮的“ click”事件编程： 五、报表设计 报表是数据库管理系统中最常使用的查看数据的手段之一。 生成报表就是把输入的数据按照一定的条件和格式转换成书面文档形式的过程。 报表设计是应用程序设计中非常重要的工作，报表设计主要分两个步骤来完成：第一步，用报表设计器设计报表；第 二步，编程调用报表。 操作步骤如下： 在项目管理器中选中“报表”，再单击项目管理器右边的“新建”按钮，将会弹出“新建报表”对话框，单击“新建报表”按钮，将会进入报表设计窗口。 本系统报表界面如下图： 六、菜单设计 Visual FoxPro “菜单设计器”可以简便、快捷地创建菜单，提高应用程序的质量。 在应用于程序中，用户最先接触到的就菜单系统。 主菜单用来控制系统中的各项操作，从开始的总体结构图，我们不难得出应用程序的菜单，如下图： 系统 数据处理 报表生成 用户管理 帮助 初始化系统 新购物品录入 年报表 修改口令 帮助主题 物品类别添加 领取物品录入 季报表 用户添加 自述文件 物品类别修改 月报表 关于 退出系统 本系统采用菜单作为初始化界面，并设置一个主文件来调用该菜单程序； 也可以采用表单作为初始界面，则需要在表单上设置若干个按钮来表示各子系统的功能； 菜单中的各项功能，要对它进行设计和编码才能实现。 创建自定义菜单： （ 1） 在项目管理器中选中“其它”下的“菜单”，再单击项目管理器右边的“新建”按钮，将会弹出“新建菜单”对话框，单击“菜单”按钮，将会进入菜单设计器 对话框。 （ 2） 在菜单设计器对话框中分别将主菜单项的名称输入到“菜单名称”文本框中。 （ 3） 设计子菜单  设计“系统”菜单项的子菜单 1） 在菜单设计器对话框中的“结果”栏选择“子菜单”，并单击“创建”按钮，将会弹出一个设置子菜单的对话框； 2） 在子菜单对话框中输入子菜单名称； 3） 在“结果”栏都选择“命令”，并在“命令”右边的文本框中分别输入命令 ， 由于普通用户不能使用这两个菜单功能，需要将其屏蔽，操作方法是：用鼠标单击“选项”栏的按钮，将人弹出一个“提示选项”对话框，并在“跳过”栏文本框中输入屏蔽菜单的条件，例如输入： superuser. 做完了之后，如果需要屏蔽菜单，只需要将 Superuser 的赋值为 .t .就可以了，如果不需要屏蔽菜单，就将 Superuser 的赋值为 .f. 七、主程序设计 在 Visual FoxPro 中，主程序不是必须的，表单和菜单都可以成为一个应用程序的入口。 在 Visual FoxPro 中把应用程序的入口点称为主文件。 您可以从鼠标右键弹出的快捷菜单中，选择文件来修改一个应用程序的入口点。 但使用主程序显得更规范。 在不同的系统中主文件的设置不完全相同，本系统的主文件的代码编写如下： 主 程序 ： set date to ansi set century on SET SAFETY OFF SET PATH TO c:\newsoft SET COLOR TO BG/BG public mysqlsever mysqlsever= deactivate window project manger zoom windows screen max DO FORM frm_login modify windows screen title 办公用品管理系统 ON SHUTDOWN down1() READ events 程序 : quit clear events close all 可毕竟还是做过主持人，意识到这是一个暗示，马上接过来。 “对啊，我们很急。 ” “你们急什么。 ”谢正看着已经慌成一团的学员们，严肃的问道。 “嗯，着急签合同啊。 ”已经有点抽泣的小姑娘接话到，不禁让这个有点悲哀的气氛添加一点喜剧色彩。 谢正摇摇头，意思这不是他想要的答案。 “如果今天签不回去，经理肯定会对我们很失望，请您关照一下我的工作。 ”俞可可试探性的问道。 “嗯，听上去不错，还有么。