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

《毕业设计论文VB6.0Access办公用品管理系统设计含源程序 .doc》由会员分享，可在线阅读，更多相关《毕业设计论文VB6.0Access办公用品管理系统设计含源程序 .doc（59页珍藏版）》请在三一办公上搜索。

1、江苏广播电视大学五年制（高职）办公用品管理系统 学 校： 江苏电大张家港学院 年 级： 02 级 专 业： 计算机信息管理 姓 名： 学 号： 指导教师： 职称：_讲师_二00七 年 四 月【摘 要】:办公用品管理系统是办公自动化管理系统的重要组成部分，它可以对办公用品的入库和领用进行规范化管理，进而提高工作效率，避免资源的浪费。此系统根据单位的办公用品的购买，入库，领用流程而设计的，特别适用于分批次购买，各部门领用的模式，具有完善的输入，统计，查询功能。这样就更可以合理规范对企业办公用品的管理.本论文将介绍办公用品管理系统的设计和开发过程，采用Visual Basic 6.0作为开发工具，A

2、ccess作为后台数据库进行开发，我有理由相信，基于计算机管理办公用品的方案，有助于缓解办公用品人工管理上压力与缺陷，为办公用品管理的办公自动化创造条件。【关键词】:办公用品管理系统、数据库、VB 6.0、Access目 录【摘 要】:2【关键词】:2第一章 选题说明及需求介绍41.1开发该系统的背景，目标，意义41.1.1开发背景41.1.2系统开发目标51.1.3 系统开发意义51.2 需求分析51.2.1数据需求51.2.2 功能需求61.2.3系统流程图613 可行性分析71.4 开发环境，开发工具介绍71.4.1 硬件环境和软件环境81.4.2 开发工具的选择8第二章 数据库设计说明

3、92.1概念设计92.2建立数据库，基本表13第三章 办公用品管理系统功能模块设计183.1 功能模块183.1.1 系统用户管理模块183.1.2基本信息管理模块183.1.3 出库信息管理模块183.1.4进货信息管理模块193.1.5库存信息浏览模块193.1.6综合查询模块193.2系统功能模块图20第四章 系统详细设计214.1系统用户登录模块的设计214.2系统主模块的设计224.3 系统用户管理模块的设计244.4基本信息管理模块的设计264.5 出库信息管理模块的设计284.6进货信息管理模块的设计304.7库存信息浏览模块的设计324.8综合查询模块的设计34第五章 系统运行

4、、调试情况、评价365.1系统运行365.2 系统的调试情况365.3系统评价37第六章 总结38第七章 致谢39参考文献39附录：源代码清单40用户登录界面代码40综合查询模块代码42系统安全设置模块代码44保管员管理模块代码47商品设置管理模块代码49进货信息查询模块代码51员工管理模块的代码54供应商信息管理模块的代码56第一章 选题说明及需求介绍1.1开发该系统的背景，目标，意义1.1.1开发背景当今时代是飞速发展的信息时代。各行各业都离不开信息处理。办公室作为一种信息资源的集散地，办公用品和领用资料繁多，包含很多的信息数据的管理，现今，有很多的企业都是初步开始使用，甚至尚未使用计算机

5、进行信息管理。他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于库存办公用品的统计和核实等往往采用人工检查进行，数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找。因此有一个智能化、系统化、信息化的办公用品管理系统十分重要的。充分利用计算机的功能实现对入库管理、领用管理，库存信息查询等自动化控制，将会使办公用品管理工作大大减弱。方便友好的图形界面、简便的操作、完善的数据库管理。将会使得办公用品管理系统极大限度的应用于现代化企业办公之中。1.1.2系统开发目标建立办公用品管理系统，采用计算机对公司用品进行管理，进一步提高办学效益和现代化水平.帮助广大职员提高工作

6、效率，实现办公用品信息管理工作流程的系统化、规范化和自动化。 1.1.3 系统开发意义办公用品管理系统是为各个企、事业单位做铺设计服务的，是企、事业不可或缺的一个软件。这是一款针对中小企业设计的程序。有了它，您可以轻松管理您的数据库，方便的进行用品管理，灵活的搜索和查询功能使您完全摆脱传统管理模式下经营者面对庞大的办公用品，不知道有哪些用品，缺哪些物品，数量有多少。 总的来说，本系统提高了对办公用品管理的效率，降低管理成本，能帮助维护企业的正常办公用品借还秩序， 满足企业对办公用品的管理正常化、合理化、科学化。因此，本系统的出现，将对办公用品管理的进一步发展提供决策支持。1.2 需求分析1.2

7、.1数据需求针对办公用品管理系统的需求，通过对入库，出库以及办公用品信息的添加等操作的数据需求分析，为本系统的办公用品数据库设计如下的数据项和数据结构：员工信息：用户编号，姓名，电话，手机，联系地址。保管员信息：员工编号，姓名，性别，电话，地址，备注。出库信息：出库编号，出库方式，商品编号，售价，数量，结帐方式，数额，员工编号，用户编号，日期，备注。供应商信息：供应商编号，供应商名称，联系人，联系电话，联系地址，备注。进货信息：进货编号，供应商编号，商品编号，结帐方式，单价，数量，总额，日期，备注。库存信息：库存编号，商品编号，商品名称，数量。商品信息：商品编号，商品名称，零售价，批发价，供应

8、商名称，备注。系统信息：用户名，密码，权限。1.2.2 功能需求办公用品管理系统的用户是各单位管理办公用品的员工和领导。该系统主要包括六大功能模块，分别为：系统用户管理模块、基本信息管理模块、出库信息管理模块、进货信息管理模块、库存信息管理模块和综合查询模块。（1）系统用户管理模块进入系统后就可以使用系统管理模块，该模块包括对系统数据的清空、用户名和密码的修改、数据备份、恢复、系统初始化和退出等功能。（2）基本信息管理模块基本信息管理模块包括对基本信息的添加、修改、删除和查询等功能。基本信息包括分类、部门和供应商等内容，为以下模块提供依据。（3）出库信息管理模块出库信息管理模块包括对办公用品信

9、息的添加、修改、删除、查询和打印等功能。（4）进货信息管理模块进货信息管理模块包括对办公用品信息的添加、修改、删除、查询和打印等功能。（5）库存信息浏览模块库存信息管理模块包括对库存信息的统计和打印等功能。（6）综合查询模块综合查询模块包括对供应商信息、商品信息、保管员信息和员工信息的查询和打印等功能。1.2.3系统流程图图1.1 系统流程图13 可行性分析1.技术可行性：本系统的开发，使用Visual Basic6.0作为系统开发的开发环境，它作为一种现代的编程语言，给开发高性能系统提供的保障为开发满足客户要求的系统。并且利用Access2000数据库,由于Access2000数据库所占用的

10、系统资源较小，功能完善、灵活，因此比较适合客户资源管理系统的开发，在技术上的准备应该不成问题。2.经济可行性：现在，计算机的价格已经十分低廉，性能却有了长足的进步，该系统可以代替人工进行繁杂的工作，节省许多资源，还可以大大提高工作效率，所以从人力、物力、财力方面来说都是可行的。1.4 开发环境，开发工具介绍1.4.1 硬件环境和软件环境 1.硬件环境： 平台： Microsoft Windows XP/2000 内存：256MB应用： 40MB 硬盘存储空间：40GB，建议80GB2.软件环境：操作系统：Windows XP1.4.2 开发工具的选择本系统以Visual Basic 6.0为前

11、台开发工具，Access 2000为后台数据库。Visual Basic 6.0是90年代Microsoft公司推出的以结构化Basic语言为基础，以“事件驱动”为运行机制的新一代可视化设计语言。采取“事件驱动”方式在设计好用户界面后才开始编写程序。VB中的编程与传统的编程方法不同。Visual Basic改变了程序的机制，没有传统意义上的主程序，使程序执行的基本方法是由“事件”来驱动子程序的运行。例如登录用户界面上的“确定”按钮，用户用鼠标单击此钮，就产生一个“单击鼠标事件”。由此执行一个相应的“单击鼠标过程”，该过程应执行将登录到系统主界面上的操作，单击“取消”按钮，该过程应执行退出登录界

12、面。Access中文版是Microsoft Office 2000套装软件的数据库管理系统软件，是目前比较流行的小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方式实现对数据收集、分类、筛选处理，提供用户查询或打印报表。9第二章 数据库设计说明2.1概念设计概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相互间的关系，概念设计中自顶向下的实体分析方法，即常用的实体联系模型(简称E-R模型)，对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联系。E-R模型是建立概念性数据模型的有力工具。根据需求分析规划出的实体

13、，相关E-R图有：保管员信息E-R图、出库信息E-R图、供应商信息E-R图、进货信息E-R图、库存信息E-R图、商品信息E-R图、员工信息E-R图、用户信息E-R图。各个实体具体的描述-图如下：保管员信息员工编号姓名性别电话地址备注图2.1保管员信息E-R图出库信息息商品编号售价结帐方式数量数额员工编号备注日期用户编号记录编号出库编号出库方式图2.2出库信息E-R图供应商信息供应商编号供应商名称联系人联系电话话联系地址备注图2.3供应商信息E-R图供应商编号记录编号进货信息进货编号编号商品编号结帐方式单价数量总额日期备注图2.4进货信息E-R图库存信息商品编号库存编号数量商品名称图2.5库存信

14、息E-R图商品信息商品编号商品名称零售价批发价话供应商名称备注图2.6商品信息E-R图员工信息用户编号姓名电话手机联系地址备注图2.7员工信息E-R图用户信息用户名密码权限图2.8用户信息E-R图2.2建立数据库，基本表根据上面的数据库概念结构转化为Access Server 2000 数据库系统所支持的实际数据模型，也就是数据库的表结构设计。本系统所涉及到8个数据表，分别表示为：表2.1为保管员信息表，用来保存保管员的信息；表2.2为出库信息表，用来保存商品出库的信息；表2.3为供应商信息表，用来保存供应商的信息；表2.4为进货信息表，用来保存进货的信息；表2.5为库存信息表，用来保存库存商

15、品的信息；表2.6 为商品信息表，商品表用来保存系统中的商品信息；表2.7为员工信息表，用来保存员工的信息；表2.8为用户信息表，用来保存用户的信息。编号字段名称数据类型说明1员工编号文本，长度50保管员编号，主键2姓名文本，长度50保管员姓名3性别文本，长度50保管员性别4电话文本，长度50联系电话5地址文本，长度50联系地址6备注备注备注信息表2.1 保管员信息表编号字段名称数据类型说明1ID自动编号商品排列编号，主键2出库编号文本，长度50出库编号3出库方式文本，长度50出库方式4商品编号文本，长度50商品编号5售价货币商品单价6数量数字/长整型商品数量7结帐方式文本，长度50结帐方式8

16、数额货币商品总额9员工编号文本，长度50员工编号10用户编号文本，长度50用户编号11日期日期/时间出库日期12备注备注备注信息表2.2出库信息表编号字段名称数据结构说明1供应商编号文本，长度50供应商编号，主键2供应商名称文本，长度50供应商名称3联系人文本，长度50联系人4联系电话文本，长度50联系电话5联系地址文本，长度100联系地址6备注备注备注信息表2.3供应商信息表编号字段名称数据结构说明1ID自动编号商品排列编号，主键2进货编号文本，长度50进货编号3供应商编号文本，长度50供应商编号4商品编号文本，长度50商品编号5结帐方式文本，长度50结帐方式6单价货币商品单价7数量数字/长

17、整型商品数量8总额数字/长整型商品总额9日期日期/时间进货日期10备注备注备注信息表2.4进货信息表编号字段名称数据结构说明1库存编号自动编号库存编号，主键2商品编号文本，长度50商品编号3商品名称文本，长度50商品名称4数量数字/长整型商品数量表2.5库存信息表编号字段名称数据类型说明1商品编号文本商品编号，主键2商品名称文本商品名称3零售价货币商品零售价4批发价货币商品批发价5供应商名称文本供应商名称6备注备注信息备注 表2.6商品信息表编号字段名称数据类型说明1用户编号文本用户编号，主键2姓名文本员工姓名3电话文本员工电话4手机文本员工手机5联系地址文本联系地址6备注备注备注信息 表2.

18、7员工信息表编号字段名称数据类型说明1用户名文本用户名，主键2密码文本登陆密码3权限数字管理权限表2.8 用户信息表第三章 办公用品管理系统功能模块设计3.1 功能模块办公用品管理系统的用户是各单位管理办公用品的员工和领导，该系统包括六大模块，分别为：系统用户管理模块、基本信息管理模块、出库信息管理模块、进货信息管理模块、库存信息浏览模块和综合查询模块。3.1.1 系统用户管理模块系统用户管理模块包括数据备份、数据恢复、注销、安全设置、系统初始化。安全设置主要实现对用户名和密码的修改功能。3.1.2基本信息管理模块基本信息的添加、修改、删除和查询。基本信息管理模块包括供应商设置、商品设置、保管

19、员设置、员工管理。此功能为办公用品管理模块和数据统计模块提供依据。供应商设置主要实现添加、修改和删除供应商信息等功能。商品设置主要实现添加、修改和删除商品信息等功能。保管员设置主要实现添加、修改和删除保管员信息等功能。员工管理主要实现添加、修改和删除员工信息等功能。3.1.3 出库信息管理模块出库信息管理模块包括出库信息录入、出库信息查询、保管员出库查询。出库信息录入主要实现对出库信息的保存、修改与删除等功能。出库信息查询主要实现按日期、日期间隔、编号分别查询的功能。保管员出库查询主要实现对保管员的出库的信息查询的功能。3.1.4进货信息管理模块进货信息管理模块包括进货信息录入、按日期间隔查询

20、、按日期查询汇总。进货信息录入主要实现对出库信息的保存、修改与删除等功能。按日期间隔查询主要实现对商品的进货的信息按日期间隔查询的功能。按日期查询汇总主要实现对商品的进货的信息按日期查询并分类汇总的功能。3.1.5库存信息浏览模块 库存信息管理模块主要实现对库存信息的统计和打印等功能。3.1.6综合查询模块综合查询模块主要实现对供应商信息、商品信息、保管员信息和员工信息的查询和打印等功能。3.2系统功能模块图根据以上系统数据库设计以及上一章节的系统功能分析，得出图3.1所示的系统各个功能模块图。见下图：综合查询数据备份数据备份注销数据恢复数据备份系统用户管理办公用品管理系统基本信息管理出库信息

21、管理进货信息管理库存信息浏览安全设置系统初始化数据备份数据备份数据备份数据备份数据备份数据备份数据备份数据备份数据备份图3.1系统功能模块图 第 59 页第四章 系统详细设计4.1系统用户登录模块的设计用户登录界面，主要实现两个功能： 连接数据库 检验用户登录图4.1为所示的系统用户登录界面，表4.1所示系统登录界面包含的控件及其属性。 图4.1 系统的登陆对象名属性属性值Labuser(0)Label用户名：Labuser(1)Label密码：tbusernameTextBox空tbpwdTextBox空cmdtCommandButton确定cmdfCommandButton取消表4.1 系

22、统登录界面包含的控件及其属性窗体功能实现：在用户登录界面，我们主要实现【确定】和【取消】两个按钮的功能，当用户单击【确定】按钮后，程序应该检验用户输入的用户名是否存在，密码是否正确，正确则将用户资料存入内存并进入系统。如果单击【取消】按钮则退出程序。4.2系统主模块的设计公司办公用品管理系统的主界面，此界面主要有以下几个功能： 系统用户管理 基本信息管理 出库信息管理 进货信息管理 库存信息浏览 综合查询如图4.2系统的主界面，表4.2菜单项的属性。图4.2 系统主界面标题对象名系统（&S）system注销(&O)logout安全设置(&A)aqset-spitbak数据备份MdbBak数据恢

23、复Restores-spitsys系统初始化initSystem退出(&Q)quit基本信息设置jbset供应商设置(&G)gys商品设置(&P)sp保管员管理yginfo员工管理kumanage出库信息管理sale出库信息录入salewrite出库信息查询salesearch 按日期间隔查询searchDate 按日期查询searchDay 按编号查询searchId保管员出库查询ygsale进货信息管理ininfo进货信息录入jh按日期间隔查询jhsearch按日期查询汇总jhinfoFind库存信息浏览store综合查询zhcx基本信息查询jbxxcx帮助(&H)help关于about表

24、4.2菜单项的属性4.3 系统用户管理模块的设计 用户管理模块包括用户信息管理和修改自身密码。(1) 用户信息管理界面如下图：图4.3 用户信息管理界面，表4.3 用户信息管理界面包含的属性及其控件。图4.3用户信息管理界面 对象名属性属性名SSTab1SSTabFrame2Frame用户名设置Label1(3)Label原用户名TextOldNameTextBoxLabel1(4)Label新用户名TextNewNameTextBoxLabel1(5)Label输入密码TextPWDTextBoxCmdTrueCommandButton确认CmdReSetCommandButton重填Cmd

25、BackCommandButton返回SSTab1SSTab密码修改Frame1Frame安全设置Label1(0)Label原密码txtoldpwdTextBoxLabel1(1)Label新密码txtnewpwdTextBoxLabel1(2)Label确认密码txtnewpwd2TextBoxCommand1CommandButton确认Command3CommandButton重填Command2CommandButton返回表4.3用户信息管理界面包含的属性及其控件4.4基本信息管理模块的设计基本信息管理模块包括供应商设置、商品设置、保管员设置、员工管理。主要实现基本信息的添加、修改

26、、删除和查询。如下图所示：图4.4.1保管员信息管理界面，表4.4.2保管员信息管理界面包含的属性及控件。图4.4.2商品设置界面，表4.4.2商品设置界面包含的属性及其控件。其他类似。 图4.4.1保管员信息管理界面对象名属性属性值Label1Label保管员信息管理Frame2Frame保管员信息浏览sgListMSFlexGeidFrame1FrameCommand1CommandButton添加Command2CommandButton修改Command3CommandButton删除Command4CommandButton返回表4.4.1 保管员信息管理界面包含的属性及其控件图4.

27、4.2商品设置界面对象名属性属性值Label1Label商品信息浏览Frame2Frame商品信息浏览sgListMSFlexGeidFrame1FrameCommand1CommandButton添加Command2CommandButton修改Command3CommandButton删除Command4CommandButton返回表4.4.2商品设置界面包含的属性及其控件4.5 出库信息管理模块的设计做为办公用品管理系统，入库以及出库是它核心实现的两大功能，出库时应该注意在库存数量上减去出库数量以及在修改时注意还原库存可用量。如图4.5出库信息界面，表4.5出库信息界面包含的属性及其控

28、件。图4.5 出库信息界面对象名属性属性值Frame1Frame1出库登记Label(0)Label出库编号TextXS(0)TextBoxLabel(1)Label出库方式Combo3ComboBox零售Label(3)Label商品名称Combo4ComboBoxLabel(4)Label售价TextXS(1)TextBoxLabel(5)Label数量TextXS(2)TextBoxLabel(6)Label结帐方式Combo5ComboBox现金Label(7)Label数额TextXS(3)TextBoxLabel(8)Label保管员姓名Combo6ComboBoxLabel(9)

29、Label员工姓名Combo7ComboBoxLabel(10)Label日期DTPickersaleDTPickerLabel(11)Label备注TextXS(4)TextBoxlabPSLabel配送地址Frame8Frame操作Command6CommandButton保存cmdChangeCommandButton修改与删除Command7CommandButton取消表4.5出库信息界面包含的属性及其控件4.6进货信息管理模块的设计在进货信息管理界面可以对办公用品信息的添加、修改、删除、查询和打印等。如图4.6进货信息界面，表4.6进货信息界面包含的属性及其控件。图4.6进货信息界

30、面Combo2ComboBoxLabjh(3)Label单价：Textjh(1)TextBoxLabjh(4)Label数量：Textjh(2)TextBoxLabjh(5)Label数额：Textjh(3)TextBoxLabjh(6)Label日期：DTPickerjhDTPickerLabjh(7)Label备注：Textjh(4)TextBoxFrame3Frame操作Command1CommandButton保存Command2CommandButton修改与删除Command3CommandButton取消表4.6进货信息界面包含的属性及其控件4.7库存信息浏览模块的设计库存信息管

31、理模块主要实现对库存信息的统计和打印等功能。如图4.7.1库存信息浏览界面，表4.7库存信息浏览界面包含的属性及控件。图4.7.1库存信息浏览界面对象属性属性值Frame1Frame1库存信息浏览Label(0)Label库存编号TextXS(0)TextBoxLabel(1)Label商品编号TextXS(1)TextBoxLabel(2)Label商品名称TextXS(2)TextBoxLabel(3)Label数量TextXS(3)TextBoxcmdPrientCommandButton打印表4.7库存信息浏览界面包含的属性及控件库存信息浏览界面上有个报表打印功能，如下图4.7.2为在

32、查询库存信息后的打印预览：4.8综合查询模块的设计在整个办公用品管理系统中，每天都交换着大量的录入与商品领用信息，如果不能建立一个有效的检索机制，那将是使办公用品管理系统的效率大大降低，因此，本次开发提供了一个功能全面的综合查询系统。如下所示，图4.8.1综合查询界面，表4.8.1综合查询界面包含的属性及其控件。图4.8.1综合查询对象名属性属性值Frame1FrameLabel1Label选择查询对象:Combo1ComboBoxCommand1CommandButton查询Command2CommandButton退出cmdPrientCommandButton打印PictureKFPic

33、tureBoxOptKF(0)OptionButton员工编号TextKF(0)TextBoxOptKF(1)OptionButton员工姓名TextKF(1)TextBoxOptKF(2)OptionButton联系电话TextKF(2)TextBoxOptKF(3)OptionButton手机号码TextKF(3)TextBoxDataGridShowDataGrid表4.8.1综合查询界面包含的属性及其控件综合查询窗体上有个报表打印功能，如下图4.8.2为在查询商品信息后的打印预览：图图4.8.2综合查询报表界面第五章 系统运行、调试情况、评价5.1系统运行1、怎样进入系统将本系统所在的

34、文件夹拷贝到硬盘，然后执行其中的乔奇诺公司客户资源管理系统的程序文件即可，应注意要将全部文件的属性变以存档，消除只读属性。（前提：本系统的运行环境中要安装有Visual Basic 6.0中文版）2、怎样使用本系统：本系统的使用相应简单，基本上只要会使用Windows软件就会使用本系统，在具体的操作时，只需点击鼠标左键即可进行相应功能的选择。3、系统的维护：本系统是个较复杂的人-机系统，由于系统外部环境与内部因素的变化，不断影响系统的运行，同时需要系统不断地适应这些变化，不断地完善系统，以提高系统运行的效率与服务水平，这就需要自始至终进行系统的维护工作。5.2 系统的调试情况在进行系统运行时，

35、我碰到了许许多多的问题，比如说：在进入登录界面时，三次输入密码不正确系统是要自动关闭的，而一开始我忘了对其设置，在进行登录时，我故意输错了三次密码，可是系统并没自动关闭，在程序代码中我又重新对其进行了设置，这样这个功能才得以实现。5.3系统评价我所开发的系统只是一个小型系统，基本上达到了需求分析阶段所提出的目标，经过上机调试，功能基本实现。在历时将近两个月的时间里，我遇到了若干个问题和解决了不少的问题。界面友好、操作简单、易于维护、方便、效率高好等是本管理系统的优点。但因为条件的限制，该管理系统的功能还不是很全面，到现在还有未知安全性和可靠性的未能发现和解决。 第六章 总结短短的2个多月过去了

36、，毕业设计的任务终于完成了。通过一个完整的办公用品管理信息系统的创建，了解到一个数据库系统的开发，即是前台和后台的开发。我在整个设计过程中，主要使用了VB程序设计语言，我觉得VB在实际操作中很实用，而且VB程序设计语言具有强大的可视化程序设计和面向对象程序设计的功能。对我们初学者来说，VB简单易学，简化了复杂的界面设计工作。本次设计完成了对办公用品信息管理的实现，设计中还采用了ACCESS数据库技术等等。 通过开发这个系统，使我对Visual Basic 有了一定的认识和了解，也使我对ACCESS数据库的开发有所了解，同时，也使我自己认识到所学的知识还很肤浅，这也正是我今后需要努力提高的。但在

37、这次毕业设计中的最大收获并不是掌握这几门开发工具的应用，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。第七章 致谢此次毕业设计是在我指导老师的精心指导下完成的，特别是指导老师从课题的选择、方案论证、论文的修改方面，都尽其所能给予了我很多的指导与帮助。同时，还有同学们的支持和鼓励，在此衷心的感谢他们！ 通过这次毕业设计，我不但巩固了以前所学的知识，增强了知识间的联系，而且学到了好多新的理论知识。同时，也增强了我的思维和动手能力。另外在这次毕业设计过程中，我学习了有关VB和ACCESS的一些新知识，收益匪浅。最后，向始终关心、支持和帮助我的老师和同学致以诚挚的谢意。参考文献1 李光

38、明.Visual Basic 6.0编程实例.大制作冶金工业出版社.2004.062 刘炳文.精通VISUAL BASIC 6.0入门与提高.人民邮电出版社.2003.023 Bob Reselman.Visual Basic 6.0 使用指南.电子工业出版社.2002.064 温小敏.Visual Basic 数据库系统项目开发实践.科学出版社.2004.075 三味工作室编著. Access 2000.人民邮电出版社.2000 6 Microsoft .Visual Basic 6.0 中文版控制大全.电子工业出版社.2004.05附录：源代码清单用户登录界面代码实现【确定】功能的代码：P

39、rivate 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) 判断用户是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox 用户名不存在 Try_times =

40、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 PasswordKey Then MsgBox 密码错误 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 登录成功，将当前用户的信息保存在CurUser中 CurUser.GetInfo (MyUser.UserName)关闭自己 Unload MeEnd Sub实现【取消】功能的代码Private Sub Cmd_Cancel_Click() EndEnd Sub 综合查询模块代码实现【查询】功能的代码：Private Sub Combo1_Click() Select