毕业设计（论文）-VB6.0+Access办公用品管理系统设计（含源程序） .doc

1 江苏广播电视大学五年制（高职） 办公用品管理系统办公用品管理系统 学 校： 江苏电大张家港学院 年 级： 02 级 专 业： 计算机信息管理 姓 名： 学 号： 指导教师： 职称：_讲师_ 二 00 七 年 四 月 2 【摘摘 要要】: 办公用品管理系统是办公自动化管理系统的重要组成部分，它可以对办公用品的入库和领 用进行规范化管理，进而提高工作效率，避免资源的浪费。此系统根据单位的办公用品的购买， 入库，领用流程而设计的，特别适用于分批次购买，各部门领用的模式，具有完善的输入，统计， 查询功能。这样就更可以合理规范对企业办公用品的管理. 本论文将介绍办公用品管理系统的设计和开发过程，采用 visual basic 6.0 作为开发工具， access 作为后台数据库进行开发，我有理由相信，基于计算机管理办公用品的方案，有助于缓 解办公用品人工管理上压力与缺陷，为办公用品管理的办公自动化创造条件。 【关键词关键词】: 办公用品管理系统、数据库、vb 6.0、access 目目 录录 3 【摘摘 要要】:】:2 2 【关键词关键词】:】:2 2 第一章第一章 选题说明及需求介绍选题说明及需求介绍4 4 1.11.1 开发该系统的背景，目标，意义开发该系统的背景，目标，意义 4 4 1.1.11.1.1 开发背景开发背景4 4 1.1.21.1.2 系统开发目标系统开发目标5 5 1.1.31.1.3 系统开发意义系统开发意义 5 5 1.21.2 需求分析需求分析 5 5 1.2.11.2.1 数据需求数据需求5 5 1.2.21.2.2 功能需求功能需求 6 6 1.2.31.2.3 系统流程图系统流程图6 6 1 13 3 可行性分析可行性分析 7 7 1.41.4 开发环境，开发工具介绍开发环境，开发工具介绍 7 7 1.4.11.4.1 硬件环境和软件环境硬件环境和软件环境 8 8 1.4.21.4.2 开发工具的选择开发工具的选择 8 8 第二章第二章 数据库设计说明数据库设计说明9 9 2.12.1 概念设计概念设计 9 9 2.22.2 建立数据库，基本表建立数据库，基本表 1313 第三章第三章 办公用品管理系统功能模块设计办公用品管理系统功能模块设计1818 4 3.13.1 功能模块功能模块 1818 3.1.13.1.1 系统用户管理模块系统用户管理模块 1818 3.1.23.1.2 基本信息管理模块基本信息管理模块1818 3.1.33.1.3 出库信息管理模块出库信息管理模块 1818 3.1.43.1.4 进货信息管理模块进货信息管理模块1919 3.1.53.1.5 库存信息浏览模块库存信息浏览模块1919 3.1.63.1.6 综合查询模块综合查询模块1919 3.23.2 系统功能模块图系统功能模块图 2020 第四章第四章 系统详细设计系统详细设计2121 4.14.1 系统用户登录模块的设计系统用户登录模块的设计 2121 4.24.2 系统主模块的设计系统主模块的设计 2222 4.34.3 系统用户管理模块的设计系统用户管理模块的设计 2424 4.44.4 基本信息管理模块的设计基本信息管理模块的设计 2626 4.54.5 出库信息管理模块的设计出库信息管理模块的设计 2828 4.64.6 进货信息管理模块的设计进货信息管理模块的设计 3030 4.74.7 库存信息浏览模块的设计库存信息浏览模块的设计 3232 4.84.8 综合查询模块的设计综合查询模块的设计 3434 第五章第五章 系统运行、调试情况、评价系统运行、调试情况、评价3636 5.15.1 系统运行系统运行 3636 5.25.2 系统的调试情况系统的调试情况 3636 5 5.35.3 系统评价系统评价 3737 第六章第六章 总结总结3838 第七章第七章 致谢致谢3939 参考文献参考文献3939 附录：源代码清单附录：源代码清单4040 用户登录界面代码用户登录界面代码4040 综合查询模块代码综合查询模块代码4242 系统安全设置模块代码系统安全设置模块代码4444 保管员管理模块代码保管员管理模块代码4747 商品设置管理模块代码商品设置管理模块代码4949 进货信息查询模块代码进货信息查询模块代码5151 员工管理模块的代码员工管理模块的代码5454 供应商信息管理模块的代码供应商信息管理模块的代码5656 第一章第一章 选题说明及需求介绍选题说明及需求介绍 1.11.1 开发该系统的背景，目标，意义开发该系统的背景，目标，意义 1.1.11.1.1 开发背景开发背景 6 当今时代是飞速发展的信息时代。各行各业都离不开信息处理。办公室作为一种信息资源的 集散地，办公用品和领用资料繁多，包含很多的信息数据的管理，现今，有很多的企业都是初步 开始使用，甚至尚未使用计算机进行信息管理。他们以前对信息管理的主要方式是基于文本、表 格等纸介质的手工处理，对于库存办公用品的统计和核实等往往采用人工检查进行，数据信息处 理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找。 因此有一个智能化、系统化、信息化的办公用品管理系统十分重要的。充分利用计算机的功 能实现对入库管理、领用管理，库存信息查询等自动化控制，将会使办公用品管理工作大大减弱。 方便友好的图形界面、简便的操作、完善的数据库管理。将会使得办公用品管理系统极大限度的 应用于现代化企业办公之中。 1.1.21.1.2 系统开发目标系统开发目标 建立办公用品管理系统，采用计算机对公司用品进行管理，进一步提高办学效益和现代化水平.帮 助广大职员提高工作效率，实现办公用品信息管理工作流程的系统化、规范化和自动化。 1.1.31.1.3 系统开发意义系统开发意义 办公用品管理系统是为各个企、事业单位做铺设计服务的，是企、事业不可或缺的一个软件。 这是一款针对中小企业设计的程序。有了它，您可以轻松管理您的数据库，方便的进行用品管理， 灵活的搜索和查询功能使您完全摆脱传统管理模式下经营者面对庞大的办公用品，不知道有哪些 用品，缺哪些物品，数量有多少。 总的来说，本系统提高了对办公用品管理的效率，降低管理成本，能帮助维护企业的正常办 公用品借还秩序， 满足企业对办公用品的管理正常化、合理化、科学化。因此，本系统的出现， 将对办公用品管理的进一步发展提供决策支持。 1.21.2 需求分析需求分析 1.2.11.2.1 数据需求数据需求 针对办公用品管理系统的需求，通过对入库，出库以及办公用品信息的添加等操作的数据需 求分析，为本系统的办公用品数据库设计如下的数据项和数据结构： 员工信息：用户编号，姓名，电话，手机，联系地址。 保管员信息：员工编号，姓名，性别，电话，地址，备注。 7 出库信息：出库编号，出库方式，商品编号，售价，数量，结帐方式，数额，员工编号，用 户编号，日期，备注。 供应商信息：供应商编号，供应商名称，联系人，联系电话，联系地址，备注。 进货信息：进货编号，供应商编号，商品编号，结帐方式，单价，数量，总额，日期，备注。 库存信息：库存编号，商品编号，商品名称，数量。 商品信息：商品编号，商品名称，零售价，批发价，供应商名称，备注。 系统信息：用户名，密码，权限。 1.2.21.2.2 功能需求功能需求 办公用品管理系统的用户是各单位管理办公用品的员工和领导。该系统主要包括六大功能模 块，分别为：系统用户管理模块、基本信息管理模块、出库信息管理模块、进货信息管理模块、 库存信息管理模块和综合查询模块。 （1）系统用户管理模块 进入系统后就可以使用系统管理模块，该模块包括对系统数据的清空、用户名和密码的修改、数 据备份、恢复、系统初始化和退出等功能。 （2）基本信息管理模块 基本信息管理模块包括对基本信息的添加、修改、删除和查询等功能。基本信息包括分类、部门 和供应商等内容，为以下模块提供依据。 （3）出库信息管理模块 出库信息管理模块包括对办公用品信息的添加、修改、删除、查询和打印等功能。 （4）进货信息管理模块 进货信息管理模块包括对办公用品信息的添加、修改、删除、查询和打印等功能。 （5）库存信息浏览模块 库存信息管理模块包括对库存信息的统计和打印等功能。 （6）综合查询模块 综合查询模块包括对供应商信息、商品信息、保管员信息和员工信息的查询和打印等功能。 1.2.31.2.3 系统流程图系统流程图 8 图 1.1 系统流程图 1 13 3 可行性分析可行性分析 1.技术可行性： 本系统的开发，使用 visual basic6.0 作为系统开发的开发环境，它作为一种现代的编程语 言，给开发高性能系统提供的保障为开发满足客户要求的系统。并且利用 access2000 数据库,由 于 access2000 数据库所占用的系统资源较小，功能完善、灵活，因此比较适合客户资源管理系 统的开发，在技术上的准备应该不成问题。 2.经济可行性： 现在，计算机的价格已经十分低廉，性能却有了长足的进步，该系统可以代替人工进行繁杂 的工作，节省许多资源，还可以大大提高工作效率，所以从人力、物力、财力方面来说都是可行 的。 1.41.4 开发环境，开发工具介绍开发环境，开发工具介绍 9 1.4.11.4.1 硬件环境和软件环境硬件环境和软件环境 1.硬件环境： 平台： microsoft windows xp/2000 内存： 256mb 应用： 40mb 硬盘存储空间：40gb，建议 80gb 2.软件环境： 操作系统：windows xp 1.4.21.4.2 开发工具的选择开发工具的选择 本系统以 visual basic 6.0 为前台开发工具，access 2000 为后台数据库。 visual basic 6.0 是 90 年代 microsoft 公司推出的以结构化 basic 语言为基础，以“事件驱 动”为运行机制的新一代可视化设计语言。采取“事件驱动”方式在设计好用户界面后才开始编 写程序。vb 中的编程与传统的编程方法不同。visual basic 改变了程序的机制，没有传统意义 上的主程序，使程序执行的基本方法是由“事件”来驱动子程序的运行。例如登录用户界面上的 “确定”按钮，用户用鼠标单击此钮，就产生一个“单击鼠标事件” 。由此执行一个相应的“单 击鼠标过程” ，该过程应执行将登录到系统主界面上的操作，单击“取消”按钮，该过程应执行 退出登录界面。 access 中文版是 microsoft office 2000 套装软件的数据库管理系统软件，是目前比较流行的 小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方式实现对数 据收集、分类、筛选处理，提供用户查询或打印报表。 第 10 页 第二章第二章 数据库设计说明数据库设计说明 2.12.1 概念设计概念设计 概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相互间的 关系，概念设计中自顶向下的实体分析方法，即常用的实体联系模型(简称 e-r 模型)，对具体数 据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联系。 e-r 模型是建立概念性数据模型的有力工具。 根据需求分析规划出的实体，相关 e-r 图有：保管员信息 e-r 图、出库信息 e-r 图、供应 商信息 e-r 图、进货信息 e-r 图、库存信息 e-r 图、商品信息 e-r 图、员工信息 e-r 图、用户信 息 e-r 图。 各个实体具体的描述-图如下： 保管员信息 员工编号 姓名 性别 电话 地址 备注 图 2.1 保管员信息 e-r 图 第 11 页 出库信息 息 商品编号 售价 结帐方式 数量 数额 员工编号 备注 日期 用户编号 记录编号 出库编号 出库方式 图 2.2 出库信息 e-r 图 供应商信息 供应商编号 供应商名称 联系人 联系电话 话 联系地址 备注 图 2.3 供应商信息 e-r 图 第 12 页 进货信息 进货编号 编号 商品编号 结帐方式 单价 数量 总额 日期 备注 图 2.4 进货信息 e-r 图 库存信息 商品编号 库存编号数量 商品名称 图 2.5 库存信息 e-r 图 记录编号 供应商编号 第 13 页 商品信息 商品编号 商品名称 零售价 批发价 话 供应商名称 备注 图 2.6 商品信息 e-r 图 员工信息 用户编号 姓名 电话 手机 联系地址 备注 图 2.7 员工信息 e-r 图 用户信息 用户名 密码 权限 图 2.8 用户信息 e-r 图 第 14 页 2.22.2 建立数据库，基本表建立数据库，基本表 根据上面的数据库概念结构转化为 access server 2000 数据库系统所支持的实际数据模型， 也就是数据库的表结构设计。 本系统所涉及到 8 个数据表，分别表示为：表 2.1 为保管员信息表，用来保存保管员的信 息；表 2.2 为出库信息表，用来保存商品出库的信息；表 2.3 为供应商信息表，用来保存供应商 的信息；表 2.4 为进货信息表，用来保存进货的信息；表 2.5 为库存信息表，用来保存库存商品 的信息；表 2.6 为商品信息表，商品表用来保存系统中的商品信息；表 2.7 为员工信息表，用 来保存员工的信息；表 2.8 为用户信息表，用来保存用户的信息。 表 2.1 保管员信息表 编号字段名称数据类型说明 1 员工编号文本，长度 50保管员编号，主键 2 姓名文本，长度 50保管员姓名 3 性别文本，长度 50保管员性别 4 电话文本，长度 50联系电话 5 地址文本，长度 50联系地址 6 备注备注备注信息 第 15 页 表 2.2 出库信息表 编号字段名称数据类型说明 1id 自动编号 商品排列编号，主键 2 出库编号文本，长度 50 出库编号 3 出库方式文本，长度 50 出库方式 4 商品编号文本，长度 50 商品编号 5 售价货币 商品单价 6 数量数字/长整型 商品数量 7 结帐方式文本，长度 50 结帐方式 8 数额货币 商品总额 9 员工编号文本，长度 50 员工编号 10 用户编号文本，长度 50 用户编号 11 日期日期/时间 出库日期 12 备注备注 备注信息 第 16 页 编号字段名称数据结构说明 1 供应商编号文本，长度 50 供应商编号，主键 2 供应商名称文本，长度 50 供应商名称 3 联系人文本，长度 50 联系人 4 联系电话文本，长度 50 联系电话 5 联系地址文本，长度 100 联系地址 6 备注备注 备注信息 表 2.3 供应商信息表 编号字段名称数据结构说明 1id 自动编号 商品排列编号，主键 2 进货编号文本，长度 50 进货编号 3 供应商编号文本，长度 50 供应商编号 4 商品编号文本，长度 50 商品编号 5 结帐方式文本，长度 50 结帐方式 6 单价货币 商品单价 7 数量数字/长整型 商品数量 8 总额数字/长整型 商品总额 9 日期日期/时间 进货日期 10 备注备注 备注信息 表 2.4 进货信息表 第 17 页 编号字段名称数据结构说明 1 库存编号自动编号 库存编号，主键 2 商品编号文本，长度 50 商品编号 3 商品名称文本，长度 50 商品名称 4 数量数字/长整型商品数量 表 2.5 库存信息表 编号字段名称数据类型说明 1 商品编号文本商品编号，主键 2 商品名称文本商品名称 3 零售价货币商品零售价 4 批发价货币商品批发价 5 供应商名称文本供应商名称 6 备注备注信息备注 表 2.6 商品信息表 编号字段名称数据类型说明 1 用户编号文本用户编号，主键 2 姓名文本员工姓名 3 电话文本员工电话 4 手机文本员工手机 5 联系地址文本联系地址 6 备注备注备注信息 表 2.7 员工信息表 第 18 页 编号字段名称数据类型说明 1 用户名文本用户名，主键 2 密码文本登陆密码 3 权限数字管理权限 表 2.8 用户信息表 第 19 页 第三章第三章 办公用品管理系统功能模块设计办公用品管理系统功能模块设计 3.13.1 功能模块功能模块 办公用品管理系统的用户是各单位管理办公用品的员工和领导，该系统包括六大模块，分 别为：系统用户管理模块、基本信息管理模块、出库信息管理模块、进货信息管理模块、库存信 息浏览模块和综合查询模块。 3.1.13.1.1 系统用户管理模块系统用户管理模块 系统用户管理模块包括数据备份、数据恢复、注销、安全设置、系统初始化。 安全设置主要实现对用户名和密码的修改功能。 3.1.23.1.2 基本信息管理模块基本信息管理模块 基本信息的添加、修改、删除和查询。基本信息管理模块包括供应商设置、商品设置、保 管员设置、员工管理。此功能为办公用品管理模块和数据统计模块提供依据。 供应商设置主要实现添加、修改和删除供应商信息等功能。 商品设置主要实现添加、修改和删除商品信息等功能。 保管员设置主要实现添加、修改和删除保管员信息等功能。 员工管理主要实现添加、修改和删除员工信息等功能。 3.1.33.1.3 出库信息管理模块出库信息管理模块 出库信息管理模块包括出库信息录入、出库信息查询、保管员出库查询。 出库信息录入主要实现对出库信息的保存、修改与删除等功能。 出库信息查询主要实现按日期、日期间隔、编号分别查询的功能。 第 20 页 保管员出库查询主要实现对保管员的出库的信息查询的功能。 3.1.43.1.4 进货信息管理模块进货信息管理模块 进货信息管理模块包括进货信息录入、按日期间隔查询、按日期查询汇总。 进货信息录入主要实现对出库信息的保存、修改与删除等功能。 按日期间隔查询主要实现对商品的进货的信息按日期间隔查询的功能。 按日期查询汇总主要实现对商品的进货的信息按日期查询并分类汇总的功能。 3.1.53.1.5 库存信息浏览模块库存信息浏览模块 库存信息管理模块主要实现对库存信息的统计和打印等功能。 3.1.63.1.6 综合查询模块综合查询模块 综合查询模块主要实现对供应商信息、商品信息、保管员信息和员工信息的查询和打印等功 能。 第 21 页 3.23.2 系统功能模块图系统功能模块图 根据以上系统数据库设计以及上一章节的系统功能分析，得出图 3.1 所示的系统各个功能模 块图。见下图： 办公用品管理系统 基本信息管理 出库信息管理 进货信息管理 库存信息浏览 安全设置 系统初始化 数据备份 数据备份 数据备份 数据备份 数据备份 数据备份 数据备份 数据备份 数据备份 图 3.1 系统功能模块图 数据备份 数据恢复 注销 系统用户管理 综合查询 数据备份 第 22 页 第四章第四章 系统详细设计系统详细设计 4.14.1 系统用户登录系统用户登录模块的设计模块的设计 用户登录界面，主要实现两个功能： 连接数据库 检验用户登录 图 4.1 为所示的系统用户登录界面，表 4.1 所示系统登录界面包含的控件及其属性。 图 4.1 系统的登陆 对象名属性属性值 labuser(0)label 用户名： labuser(1)label 密码： tbusernametextbox 空 tbpwdtextbox 空 cmdtcommandbutton 确定 cmdfcommandbutton 取消 表 4.1 系统登录界面包含的控件及其属性 窗体功能实现： 在用户登录界面，我们主要实现【确定】和【取消】两个按钮的功能，当用户单击【确 定】按钮后，程序应该检验用户输入的用户名是否存在，密码是否正确，正确则将用户资料 第 23 页 存入内存并进入系统。如果单击【取消】按钮则退出程序。 4.2 系统主系统主模块的设计模块的设计 公司办公用品管理系统的主界面，此界面主要有以下几个功能： 系统用户管理 基本信息管理 出库信息管理 进货信息管理 库存信息浏览 综合查询 如图 4.2 系统的主界面，表 4.2 菜单项的属性。 第 24 页 图 4.2 系统主界面 标题对象名 系统（&s） system 注销(&o) logout 安全设置(&a) aqset -spitbak 数据备份 mdbbak 数据恢复 restores -spitsys 系统初始化 initsystem 退出(&q) quit 基本信息设置 jbset 供应商设置(&g) gys 商品设置(&p) sp 保管员管理 yginfo 员工管理 kumanage 出库信息管理 sale 出库信息录入 salewrite 出库信息查询 salesearch 按日期间隔查询 searchdate 按日期查询 searchday 按编号查询 searchid 保管员出库查询 ygsale 进货信息管理 ininfo 进货信息录入 jh 第 25 页 按日期间隔查询 jhsearch 按日期查询汇总 jhinfofind 库存信息浏览 store 综合查询 zhcx 基本信息查询 jbxxcx 帮助(&h) help 关于 about 表 4.2 菜单项的属性 4.34.3 系统用户管理模块的设计系统用户管理模块的设计 用户管理模块包括用户信息管理和修改自身密码。 (1) 用户信息管理界面 如下图：图 4.3 用户信息管理界面，表 4.3 用户信息管理界面包含的属性及其控件。 图 4.3 用户信息管理界面 第 26 页 对象名属性属性名 sstab1sstab frame2frame 用户名设置 label1(3)label 原用户名 textoldnametextbox label1(4)label 新用户名 textnewnametextbox label1(5)label 输入密码 textpwdtextbox cmdtruecommandbutton 确认 cmdresetcommandbutton 重填 cmdbackcommandbutton 返回 sstab1sstab 密码修改 frame1frame 安全设置 label1(0)label 原密码 txtoldpwdtextbox label1(1)label 新密码 txtnewpwdtextbox label1(2)label 确认密码 txtnewpwd2textbox command1commandbutton 确认 第 27 页 command3commandbutton 重填 command2commandbutton 返回 表 4.3 用户信息管理界面包含的属性及其控件 4.44.4 基本信息管理模块的设计基本信息管理模块的设计 基本信息管理模块包括供应商设置、商品设置、保管员设置、员工管理。主要实现基本信息 的添加、修改、删除和查询。如下图所示：图 4.4.1 保管员信息管理界面，表 4.4.2 保管员信息 管理界面包含的属性及控件。图 4.4.2 商品设置界面，表 4.4.2 商品设置界面包含的属性及其控 件。其他类似。 图 4.4.1 保管员信息管理界面 第 28 页 表 4.4.1 保管员信息管理界面包含的属性及其控件 图 4.4.2 商品设置界面 对象名属性属性值 label1label 保管员信息管理 frame2frame 保管员信息浏览 sglistmsflexgeid frame1frame command1commandbutton 添加 command2commandbutton 修改 command3commandbutton 删除 command4commandbutton 返回 第 29 页 对象名属性属性值 label1label 商品信息浏览 frame2frame 商品信息浏览 sglistmsflexgeid frame1frame command1commandbutton 添加 command2commandbutton 修改 command3commandbutton 删除 command4commandbutton 返回 表 4.4.2 商品设置界面包含的属性及其控件 4.54.5 出库信息管理模块的设计出库信息管理模块的设计 做为办公用品管理系统，入库以及出库是它核心实现的两大功能，出库时应该注意在库存数 量上减去出库数量以及在修改时注意还原库存可用量。如图 4.5 出库信息界面，表 4.5 出库信息 界面包含的属性及其控件。 第 30 页 图 4.5 出库信息界面 对象名属性属性值 frame1frame1 出库登记 label(0)label 出库编号 textxs(0)textbox label(1)label 出库方式 combo3combobox 零售 label(3)label 商品名称 combo4combobox label(4)label 售价 textxs(1)textbox label(5)label 数量 textxs(2)textbox 第 31 页 label(6)label 结帐方式 combo5combobox 现金 label(7)label 数额 textxs(3)textbox label(8)label 保管员姓名 combo6combobox label(9)label 员工姓名 combo7combobox label(10)label 日期 dtpickersaledtpicker label(11)label 备注 textxs(4)textbox labpslabel 配送地址 frame8frame 操作 command6commandbutton 保存 cmdchangecommandbutton 修改与删除 command7commandbutton 取消 表 4.5 出库信息界面包含的属性及其控件 4.64.6 进货信息管理模块的设计进货信息管理模块的设计 在进货信息管理界面可以对办公用品信息的添加、修改、删除、查询和打印等。如图 4.6 进货信息界面，表 4.6 进货信息界面包含的属性及其控件。 第 32 页 图 4.6 进货信息界面 combo2combobox labjh(3)label 单价： textjh(1)textbox labjh(4)label 数量： textjh(2)textbox labjh(5)label 数额： textjh(3)textbox labjh(6)label 日期： dtpickerjhdtpicker labjh(7)label 备注： textjh(4)textbox 第 33 页 frame3frame 操作 command1commandbutton 保存 command2commandbutton 修改与删除 command3commandbutton 取消 表 4.6 进货信息界面包含的属性及其控件 4.74.7 库存信息浏览模块的设计库存信息浏览模块的设计 库存信息管理模块主要实现对库存信息的统计和打印等功能。如图 4.7.1 库存信息浏览界面， 表 4.7 库存信息浏览界面包含的属性及控件。 图 4.7.1 库存信息浏览界面 第 34 页 对象属性属性值 frame1frame1 库存信息浏览 label(0)label 库存编号 textxs(0)textbox label(1)label 商品编号 textxs(1)textbox label(2)label 商品名称 textxs(2)textbox label(3)label 数量 textxs(3)textbox cmdprientcommandbutton 打印 表 4.7 库存信息浏览界面包含的属性及控件 库存信息浏览界面上有个报表打印功能，如下图 4.7.2 为在查询库存信息后的打印预览： 第 35 页 4.84.8 综合查询模块的设计综合查询模块的设计 在整个办公用品管理系统中，每天都交换着大量的录入与商品领用信息，如果不能建立一个 有效的检索机制，那将是使办公用品管理系统的效率大大降低，因此，本次开发提供了一个功能 全面的综合查询系统。如下所示，图 4.8.1 综合查询界面，表 4.8.1 综合查询界面包含的属性及其 控件。 图 4.8.1 综合查询 对象名属性属性值 frame1frame label1label 选择查询对象: combo1combobox command1commandbutton 查询 command2commandbutton 退出 第 36 页 cmdprientcommandbutton 打印 picturekfpicturebox optkf(0)optionbutton 员工编号 textkf(0)textbox optkf(1)optionbutton 员工姓名 textkf(1)textbox optkf(2)optionbutton 联系电话 textkf(2)textbox optkf(3)optionbutton 手机号码 textkf(3)textbox datagridshowdatagrid 表 4.8.1 综合查询界面包含的属性及其控件 综合查询窗体上有个报表打印功能，如下图 4.8.2 为在查询商品信息后的打印预览： 图图 4.8.2 综合查询报表界面 第 37 页 第五章第五章 系统运行、调试情况、评价系统运行、调试情况、评价 5.15.1 系统运行系统运行 1、怎样进入系统 将本系统所在的文件夹拷贝到硬盘，然后执行其中的乔奇诺公司客户资源管理系统的程序 文件即可，应注意要将全部文件的属性变以存档，消除只读属性。 （前提：本系统的运行环境中要安装有 visual basic 6.0 中文版） 2、怎样使用本系统： 本系统的使用相应简单，基本上只要会使用 windows 软件就会使用本系统，在具体的操作 时，只需点击鼠标左键即可进行相应功能的选择。 3、系统的维护： 本系统是个较复杂的人-机系统，由于系统外部环境与内部因素的变化，不断影响系统的运 行，同时需要系统不断地适应这些变化，不断地完善系统，以提高系统运行的效率与服务水平， 这就需要自始至终进行系统的维护工作。 5.25.2 系统的调试情况系统的调试情况 在进行系统运行时，我碰到了许许多多的问题，比如说：在进入登录界面时，三次输入密 码不正确系统是要自动关闭的，而一开始我忘了对其设置，在进行登录时，我故意输错了三次密 码，可是系统并没自动关闭，在程序代码中我又重新对其进行了设置，这样这个功能才得以实现。 第 38 页 5.35.3 系统评价系统评价 我所开发的系统只是一个小型系统，基本上达到了需求分析阶段所提出的目标，经过上机调 试，功能基本实现。在历时将近两个月的时间里，我遇到了若干个问题和解决了不少的问题。 界面友好、操作简单、易于维护、方便、效率高好等是本管理系统的优点。 但因为条件的限制，该管理系统的功能还不是很全面，到现在还有未知安全性和可靠性的 未能发现和解决。 第 39 页 第六章第六章 总结总结 短短的 2 个多月过去了，毕业设计的任务终于完成了。通过一个完整的办公用品管理信息 系统的创建，了解到一个数据库系统的开发，即是前台和后台的开发。我在整个设计过程中，主 要使用了 vb 程序设计语言，我觉得 vb 在实际操作中很实用，而且 vb 程序设计语言具有强大的 可视化程序设计和面向对象程序设计的功能。对我们初学者来说，vb 简单易学，简化了复杂的 界面设计工作。本次设计完成了对办公用品信息管理的实现，设计中还采用了 access 数据库技 术等等。 通过开发这个系统，使我对 visual basic 有了一定的认识和了解，也使我对 access 数据库 的开发有所了解，同时，也使我自己认识到所学的知识还很肤浅，这也正是我今后需要努 力提高的。 但在这次毕业设计中的最大收获并不是掌握这几门开发工具的应用，而是学会了设 计系统的思维方法，以及与同学们之间相互帮助的精神。 第 40 页 第七章第七章 致谢致谢 此次毕业设计是在我指导老师的精心指导下完成的，特别是指导老师从课题的选择、方案论 证、论文的修改方面，都尽其所能给予了我很多的指导与帮助。同时，还有同学们的支持和鼓励， 在此衷心的感谢他们！ 通过这次毕业设计，我不但巩固了以前所学的知识，增强了知识间的联系，而且学到了好多 新的理论知识。同时，也增强了我的思维和动手能力。另外在这次毕业设计过程中，我学习了有 关 vb 和 access 的一些新知识，收益匪浅。 最后，向始终关心、支持和帮助我的老师和同学致以诚挚的谢意。 参考文献参考文献 1 李光明.visual basic 6.0 编程实例.大制作冶金工业出版社.2004.06 2 刘炳文.精通 visual basic 6.0 入门与提高.人民邮电出版社.2003.02 3 bob reselman.visual basic 6.0 使用指南.电子工业出版社.2002.06 4 温小敏.visual basic 数据库系统项目开发实践.科学出版社.2004.07 5 三味工作室编著. access 2000.人民邮电出版社.2000 6 microsoft .visual basic 6.0 中文版控制大全.电子工业出版社.2004.05 第 41 页 附录：源代码清单附录：源代码清单 用户登录界面代码 实现【确定】功能的代码： private sub cmd_ok_click() dim j as single 数据有效性检查 if txtuser = “ then msgbox “请输入用户名“ txtuser.setfocus exit sub end if if txtpwd = “ then msgbox “请输入密码“ txtpwd.setfocus exit sub end if namekey = trim(txtuser) passwordkey = trim(txtpwd) 第 42 页 判断用户是否存在 if myuser.in_db(namekey) = false then msgbox “用户名不存在“ try_times = try_times + 1 if try_times = 3 then msgbox “您已经三次尝试进入本系统，均不成功，系统将关闭“ dbapi_disconnect end else exit sub end if end if 判断密码是否正确 myuser.getinfo (namekey) if myuser.userpwd = 3 then msgbox “您已经三次尝试进入本系统，均不成功，系统将关闭“ dbapi_disconnect end 第 43 页 else exit sub end if end if 登录成功，将当前用户的信息保存在 curuser 中 curuser.getinfo (myuser.username) 关闭自己 unload me end sub 实现【取消】功能的代码 private sub cmd_cancel_click() end end sub 综合查询模块代码 实现【查询】功能的代码： private sub combo1_click() select case combo1.text case “供应商信息“ picturegys.visible = true picturesp.visible = false pictureyg.visible = false 第 44 页 picturekf.visible = false for i = 0 to 3 textgys(i).text = “ next case “商品信息“ picturesp.visible = true picturegys.visible = false pictureyg.visible = false picturekf.visible = false for i = 0 to 2 textsp(i).text = “ next case “保管员信息“ picturesp.visible = false picturegys.visible = false pictureyg.visible = true picturekf.visible = false for i = 0 to 3 textyg(i).text = “ next case “员工信息“ 第 45 页 picturesp.visible = false picturegys.visible = false pictureyg.visible = false picturekf.visible = true for i = 0 to 3 textkf(i).text = “ next end select end sub 实现【退出】功能的代码： private sub command2_click() unload me end sub 系统安全设置模块代码 实现【确定】功能的代码： private sub cmdtrue_click() dim rsname as adodb.recordset dim sqlname as string if trim(textoldname) = “ then msgbox “原用户名不能为空“, vbinformation + vbokonly, “系统提示“ textoldname.setfocus 第 46 页 exit sub elseif trim(textnewname) = “ then msgbox “新用户名不能为空“, vbinformation + vbokonly, “系统提示“ textnewname.setfocus exit sub elseif trim(textpwd) = “ then msgbox “密码不能为空“, vbinformation + vbokonly, “系统提示“ textpwd.setfocus exit sub end if sqlname = “select * from 系统表“ set rsname = exesql(sqlname) if trim(textoldname) = rsname(“用户名“) and checkpwd.md5(trim(textpwd) = rsname(“密码“) then rsname!用户名 = trim(textnewname.text) rsname.update else msgbox “用户名或者密码出错,请重新输入“, vbinformation + vbokonly, “系统提示“ textoldname.setfocus end if rsname.close 第 47 页 set rsname = nothing msgbox “用户名更新成功!“, vbinformation + vbokonly, “系统提示“ call cmdreset_click end sub 实现【重填】功能的代码： private sub command1_click() dim rspwd as adodb.recordset dim sqlpwd as string if txtoldpwd.text = “ then msgbox “原密码不能为空“, vbexclamation, “系统提示“ txtoldpwd.setfocus exit sub elseif txtnewpwd.text = “ then msgbox “新密码不能为空“, vbexclamation, “系统提示“ txtnewpwd.setfocus exit sub elseif trim(txtnewpwd.text) checkpwd.md5(trim(txtoldpwd.text) then 密码采用 md5 加密 msgbox “原密码输入错误“, vbexclamation, “系统提示“ txtoldpwd.setfocus exit sub else rspwd!密码 = checkpwd.md5(trim(txtnewpwd.text) rspwd.update msgbox “密码修改成功“, vbinformation, “系统提示“ call command3_click end if rspwd.close set rspwd = nothing end sub 保管员管理模块代码 实现【修改】功能的代码： private sub command2_click() dim intcount as integer dim txtsql as string 第 49 页 if msglist.rows 1 then intcount = msglist.row if intcount 0 then txtsql = “select * from 保管员表 where 员工编号 =“ & trim(msglist.textmatrix(intcount, 1) & “ ygedit = 1 load frmyg frmyg.showdata (txtsql) frmyg.show 1, frmyginfo else msgbox “警告“, vbokonly + vbexclamation, “请首先选择需要修改的纪录！“ end if end if end sub 实现【删除】功能的代码： private sub command3_click() dim txtsql as string dim intcount as integer dim msgtext as string if msglist.rows 1 then if msgbox(“确认要删除编号为“ & trim(msglist.textmatrix(msglist.row, 1) & “ 第 50 页 的供应商记录吗？“, vbokcancel + vbexclamation, “警告“) = vbok then intcount = msglist.row txtsql = “delete from 保管员表 where 员工编号 =“ & trim(msglist.textmatrix(intcount, 1) & “ exesql (txtsql) msgbox “记录删除成功!“, vbinformation, “系统提示“ call showdata end if end if end sub 商品设置管理模块代码 实现【修改】功能的代码： private sub command2_click() dim intcount as integer dim txtsql as string if msglist.rows 1 then gintdhmode = 2 intcount = msglist.row if intcount 0 then txtsql