毕业设计（论文）-商店存货管理系统设计与实现.doc

计算机信息处理综合作业题目： 商店存货管理系统设计与实现 准考证号： 考生姓名： 工作单位： 2011年 4月 20日综合作业任务与成绩考核登记表题 目商店存货管理系统设计与实现指导教师职称/学位工程师联系电话任务及 要求 任务：综合运用计算机信息管理专业知识,实现商店存货管理系统。实现功能：登录界面、系统主页面及操作菜单设计、信息的录入、修改、查询和删除功能。要求：1.分析商店存货管理系统所应具备的功能; 2.设计并实现商店存货管理系统; 3.撰写综合作业； 4.作业字数不少于15000字。任务下达日期： 2010-11-29 任务完成日期： 2011-4-22成绩 评定 意见 导师签名 年 月 日 学生联系电话准考证号所学专业计算机信息管理姓 名摘 要存货在企业营运资本中占很大比重，所以保持最恰当的存货量、努力降低营运资本是商店存货管理的重要内容。存货管理水平的高低是对一个企业内部控制效果的评价标尺，能够为企业带来经济效益。所以，加强对存货的管理显得非常重要。商店存货管理系统服务于随处可见的各种中小型商店，有着广泛的使用前景。建立一个好的存货系统，才能有效地解决这些问题的存在。本系统主要完成对商品的存货管理，包括对信息添加、删除、修改与查询，有用户管理模块、货物管理模块。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功能，方便用户使用。关键词： 存货 管理 数据库 商品 目 录第一章 绪 论111 可行性研究与计划11.2 系统可行性分析21.3系统功能模块设计31.4系统模块详细设计4第二章商店存货管理系统的引入52.1商店存货管理系统的引入原因52.2商店存货管理系统实现的模块62.3 商店存货管理系统实现的功能6第三章 开发工具的介绍73.1系统的架构73.2系统运行环境操作系统73.3系统开发环境73.4开发工具83.4.1 Visual Basic的简介83.4.2 ACCESS简介10第四章 商店存货管理系统的设计与实现114.1用户登录界面的实现114.2 用户主界面的实现144.3数据库的创建与连接154.3.1创建货物管理表、用户表154.3.2数据库的连接174.4 用户管理界面模块功能实现184.5货物管理界面模块功能实现22结论27致谢28参考文献：29附录30 全国高等教育自学考试计算机信息管理专业（专科）计算机信息处理综合作业第一章 绪 论随着社会经济的迅速发展和科学技术的全面进步，计算机事业的飞速发展，以计算机与通信技术为基础的信息系统正处于蓬勃发展的时期。随着经济文化水平的显著提高，人们对生活质量及工作环境的要求也越来越高。与此同时，为了管理大量的物品，库存也大量的出现，商店存货管理的问题也就提上了日程。随着的大量增加，其管理难度也越来越大，如何优化库存的日常管理也就成为了一个大众化的课题。 在计算机飞速发展的今天，将计算机这一信息处理利器应用于商店存货的日常管理已是势必所然，而且这也将为库存管理带来前所未有的改变，它可以带来意想不到的效益，同时也会为企业的飞速发展提供无限潜力。采用计算机管理信息系统已成为库存管理科学化和现代化的重要标志，它给企业管理来了明显的经济效益和社会效益。11 可行性研究与计划随着现代科学技术的快速发展，计算机的使用之间普遍化，各种应用软件以快速便捷的优点深入到每一个角落。商店存货管理系统服务于随处可见的各种小中型商店，有着广泛的使用前景。库存管理系统是生产、计划和控制的基础。库存管理主要功能是记录入库、出库、盘点等库存详细信息。帮助用户清楚地统一管理库存的每一次出库入库及盘点情况，提高库存管理效率。因此，管理好一个商店或企业的存货系统是非常重要的。合理的库存可以在企业各个物流环节中起到一定的缓冲作用，并可以缩短物流活动的实现时间，加快企业对市场的反应速度。存货的存在是企业生产经营活动顺利进行的前提，但是过多的存货投资往往会使企业承担过重的存货储存成本，影响企业的利润水平，而过少的存货投资又会增加企业存货短缺的风险，家中企业订货成本，因此，权衡利弊，只有通过建立一个好的存货系统，才能有效地解决这些问题的存在。根据供应和需求规律确定生产和流通过程中经济合理的物资存储量的管理工作。库存管理应起缓冲作用，使物流均衡通畅，既保证正常生产和供应，又能合理压缩库存资金，以得到较好的经济效果。库存管理的作用主要是：在保证企业生产、经营需求的前提下，使库存量经常保持在合理的水平上；掌握库存量动态，适时，适量提出订货，避免超储或缺货；减少库存空间占用，降低库存总费用；控制库存资金占用，加速资金周转。 库存的管理的操作自动化和信息的电子化，全面提高了库存的管理水平。随着我国改革开放的不断深入，经济飞速的发展，企业要想生存、发展，要想在激烈的市场竞争中立于不败之地，没有现代化的管理是万万不行的，库存管理的全面自动化、信息化则是其中极其重要的部分。为了加快库存管理自动化的步伐，提高库存的管理业务处理效率，建立商店存货管理系统已变得十分心要。总之，使用该商店存货管理系统，将会有以下好处： 1.电脑管理，打印帐单：快速准确，减少计算的时间，并可杜绝管理过程中的各种现象。 2. 高效的商店存货管理：能有效的提高管理效率，增加营业收入。3.提高决策依据：管理者可以随时了解经营情况，以制定相应的经营方针。 4.可以减少人员的浪费，从而可以节省更多的财务开支。 5.简单、方便地保存和查询历史资料。 6.树立良好的商店管理形象。1.2 系统可行性分析技术上可行：该系统所需硬件设备，市场上销售且价格较低，甚至可以使用原有的设备，软件上，操作系统采用Windows系列操作系统，数据库管理系统采用Visual Basic，这些软件在MIS开发中已被大量应用，技术上都比较成熟。因此在技术上是可行的。经济上可行：由于商店急需采用计算机来进行管理，因此对开发商店存货管理系统大力支持，开发经费没有问题。综上所述，开发商店存货管理系统在技术上、经济上、都是可行的。1.3系统功能模块设计（如图1-1）商店存货管理系统用户管理货物管理退出系统用户查询密码修改权限修改添加信息修改信息删除信息 信息查询图1-1 系统功能模块设计1.4系统模块详细设计（如表1-1所示）表1-1 系统模块详细设计模块名称实现功能详细说明1用户管理添加用户，修改密码，删除用户，查询用户用户名，密码，权限2货物管理添加商品，删除商品，修改商品，查询商品货物ID，货物名，数量，类别，单价，进货时间。3退出系统第二章 商店存货管理系统的引入2.1商店存货管理系统的引入原因传统的商店存货存在很多问题，导致经营效率低、利润小。随着全球经济的发展，传统的存货方式已经不能适应当今社会发展的需求了。例如对商店的存货进行有效、合理的管理与控制是必不可少的。商店库存商品过多会带来如下不利影响：首先，它会使不易腐烂没有消费期限商品变旧（商品上有灰尘，包装褪色）使提供的商品不能满足顾客的需要，增加甩卖的风险。使易腐烂的商品变质（保质期过期），增加破损损耗, 不明损耗和甩卖的风险；其次，占用了仓库空间，虽然有一种商品仓库积压但仍然要订购其他商品，这样就增大了库存量，处于不利的竞争地位，造成企业资源的大量闲置，影响其合理配置和优化；再者，库存上不断增加的财务资金，使我们不能购进畅销商品和新品，它导致：营业额和毛利的下降，增加费用的百分比率造成员工劳动力浪费：需要投入更多的人力进行货物管理和般运，使团队失去工作动力.掩盖了企业生产、经营全过程的各种矛盾和问题，不利于企业提高管理水最后一点，它掩盖了供货缺货。库存量过小所产生的问题：造成服务水平的下降，影响销售利润和企业信誉；造成生产系统原材料或其他物料供应不足，影响生产过程的正常进行；使订货间隔期缩短，订货次数增加，使订货（生产）成本提高；影响生产过程的均衡性和装配时的成套性。库存控制的作用主要是：在保证企业生产、经营需求的前提下，使库存量经常保持在合理的水平上；掌握库存量动态，适时，适量提出订货，避免超储或缺货；减少库存空间占用，降低库存总费用；控制库存资金占用，加速资金周转。总之不管库存过多或过少，都会对商店带来不良影响。因此，做好商店存货管理系统是十分重要的。2.2商店存货管理系统实现的模块商店存货管理系统主要完成对商店的商品的基本信息进行管理，如当一种商品第一次进入商店是。就要对该商品进行登记保存，把其基本信息存入数据库，以便以后的查询、修改及删除。主要完成对商品的存货数量信息进行管理，通过查询可以得知某商品的当前库存量信息，可以为商店决策者提供商品信息，若发现某种商品库存量不足，则可以立即去进货，使每种商品能保证有适量存货。所以商品存货管理包括包括添加商品信息、修改商品信息和查询商品信息及删除商品信息等功能。2.3 商店存货管理系统实现的功能进入主界面后，一是我们在货物管理模块，可以添加新的商品信息、修改商品信息 、查询商品信息和删除商品信息；二是我们在用户管理模块，可以添加新的用户信息、编辑用户权限与密码信息、查询用户信息和删除用户信息；三是在主界面中可以自由切换到其它不同的管理界面。第三章 开发工具的介绍3.1系统的架构本系统开发使用的系统只是普通的PC机，操作系统为Windows XP版本。考虑到使用的数据量不大，数据库的建立使用的是Office 2003 中的Microdoft Access。数据访问方法为使用ADO(Active数据对象ActiveDataObjects)通过ODBC的方法同数据库借口。使用这种方式访问数据，可以使用任何一种ODBC数据源，即不止适合于SQL Server、 Oracle、 Access等数据库应用程序，也适合与Excel表格、文本文件、图形文件和无格式的数据文件。3.2系统运行环境操作系统采用的是当前流行的主流操作系统微软公司的WindowsXP。3.3系统开发环境系统开发环境包括硬件平台和软件平台两种。硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的MIS管理系统，因此对计算机硬件的要求不高，比较经济，只要配备有PII300处理器（或以上）、64M内存（或以上）、20G硬（或以上）的普通微机即可顺利运行。软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Basic6.0作为开发语言，同时选用了Access数据库，由于这些软件产品都是Microsoft公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。Visual Basic 6.0具有可视化的开发环境，可以快速完成系统的开发，内部集成的数据库访问通道，使得可以轻松方便的对数据库管理。数据库采用MICROSOFT ACCESS，由于我们的系统要求，采用它完全可以适合我们的工作需求，并且它所支持的数据类型十分丰富，维护简便，费用较低，容易升级。3.4开发工具在确定了操作系统后，就该选择开发工具了。经过了综合的比较而且最重要的是本人在学校期间学习的就是Visual Basic。这个是个数据库管理系统，系统，所以我们必须得选一个合适的数据库。考虑到我这个系统针对的用户，已经价格方面的考虑，完全可以使用Access来进行开发，而且我在使用Visual Basic的时候，操作数据库方面使用的是微软提供的数据访问接口，我们先来介绍一下Visual Basic以及微软提供了哪些数据库访问方法，并且各自都有什么特点。3.4.1 Visual Basic的简介首先，我们还从Visual Basic这个名字开始，来认识这个软件。所谓“Visual”指的是开发图形用户界面 (GUI) 的方法。它不需编写大量的代码去描述界面元素的外观和位置，而只要把预先建立的对象添加到屏幕上的某一位置即可。如果已使用过诸如 Paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。“Basic”指的是 BASIC (Beginners All-Purpose Symbolist Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的编程语言。Visual Basic 在原有 BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic 不仅是 Visual Basic 编程语言。Visual Basic 编程系统和 VBA 都使用这一语言。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集。这样，在学习 Visual Basic 中得到的经验可应用到所有这些领域中。接着，我们再从Visual Basic的发展历史来进一步地认识一下它。Visual Basic的最初版本是Visual Basic1.0，那时的Visual Basic只是简单地以对象的属性为中心来进行编程。到了Visual Basic2.0时，开始正式地采用面向对象技术，其有一个重要的新特性就是可拥有对象变量，并把Variant型变量作为缺省数据类型变量。没过多久Visual Basic的下两个版本Visual Basic3.0和Visual Basic4.0接踵而至，一种内建的新的控件类型数据控件，能够使创建一个与数据库交互作用的应用程序变得令人惊讶的容易。在微软的其它应用程序，如WORD字处理软件、EXCEL电子报表软件、ACCESS数据库软件中都做了改变，使得它们可以与Visual Basic一致工作。这种新技术被称作为Visual Basic For Applications，它帮助实现了Visual Basic的最初设想。理论上，人们总是能够通过某种叫做动态数据交换（DDE）的技术使视窗系统应用程序彼此交互。但那样既慢而且又麻烦。Visual Basic的完美之处在于它能使程序员获得一块数据如报表，并将它看作是Visual Basic的对象。其目的就是要使视窗系统下的每一件事情都支持同样的易于使用的高级语言。Visual Basic5.0出现以后，在某些方面有了重大的突破。它给予了程序员长期期待的不用离开Visual Basic环境，就可以创建新的定制控件类型和创建其它项目类型的能力。除了一般应用程序外，程序员还能创建文档、DLLs、OLE服务器和ActiveX控件。当Visual Basic逐渐复杂时，世界已经在围着它转了。项目类型的增加不是用来迷惑程序员，而是提供灵活性的。视窗系统已经成为一个特别丰富的环境，可使应用程序彼此交流和共享数据。我们现在所使用的Visual Basic6.0被看着是Visual Basic的网络版本。可以看出它投入了相当一部分的精力去支持微软日益在Internet和分布式（网络）计算方面的重视程度。虽然它没有象Visual Basic5.0所引起的那样激动人心，但它还是在某些方面做了一些有用的改进。其最重要的一个改进就是增加了ADO数据控件，它可以缩小本地和远程数据控件之间的差别。换句话说，程序员在很大程度上可以与数据库交互作用，而不用担心网络上由谁来提供服务。此外，Visual Basic在数据开发方面提供了十分强大的功能。有自带的数据管理器（Data Manager）、数据控件（Data Control）及数据访问对象(DAO)等一系列功能强大的工具来协助管理人员轻松地进行与数据库的连接和管理。3.4.2 ACCESS简介数据库选用Microsoft公司的Access产品作为数据库应用程序。目前的Access 2003是Microsoft强大的桌面数据库平台的第六代产品，是32位Access的第三个版本。Access有以下一些基本定义：（1）数据库是一个包含各种Access “对象”(表、查询、窗体、报表、宏和模块)的文件，Access中所有工作都是建立在此基础之上的。（2）表是存放数据的容器，被设计成行和列的格式，就像电子表中的那样。每一列叫做一个“字段”，包含特定类型的信息。每一行称为一个“记录”，包含与单个实体有关的所有信息。对于像Access这样的关系数据库管理程序，一个数据库通常包含几个存放相关数据的不同表。（3）查询是一个Access对象，它询问数据库中有关数据的问题。根据设计方法的不同，查询能够在数据库中检索并组合来自不同表的数据。例如，可以设计一个查询来告知在公司中工作超过1年的职员有多少。查询还可以对一组数据执行操作，如更新或删除某组记录。（4）窗体是一个窗口，它提供一种很方便的途径来查看数据库中已有记录或向数据库中增添新记录。在Access中，可以创建一个窗体，用来同时查阅单个表或多个表中的数据，还可以打印和显示窗体。（5）报表是一个Access对象，设计来显示数据，其作用类似于窗体，但主要是用于数据打印，不能输入数据。（6）页是一种特殊类型的窗体，它使用户能够利用Web浏览器查看和编辑Access的表。（7）宏用来保存Access中的一系列操作。可自动执行一些日常的任务，以便简化在Access中的工作。（8）模块是用Visual Basic for Applications(VBA) 编写的过程，VBA是Access的基础程序设计语言。利用VBA可以编写程序代码来完成Access宏所不能完成的特定任务。 第四章 商店存货管理系统的设计与实现4.1用户登录界面的实现在登陆界面中，如图主要是对用户的身份进行确认，在界面中需要输入用户名和密码，密码用*号显示，确保用户信息的安全性。同时通过登陆信息输入来确认使用权限，管理员通过登陆系统后，便可进行管理和维护。利用visual basic 6.0建立一个工程，工程名为商店存货系统管理。步骤：1、打开visual basic6.0，点击 文件新建工程，在新建工程中选择标准EXE，然后确定，这样就新建了一个窗体，将这个窗体的名称属性改为frmlog，caption属性改为登陆系统。2、在用户登录窗体中添加标签、文本框及按钮如图4-1所示，图4-1 用户登录窗体1) 在 登录 按钮上添加如下代码：Private Sub Command1_Click()Static intErr As IntegerDim strUser As String, strPass As String, strSQL As StringstrUser = Trim$(Text1.Text) 用户名strPass = Trim$(Text2.Text) 密码strSQL = SELECT * FROM 表1 WHERE 用户名 = & strUser & AND 密码 = & strPass & With Adodc1.CommandType = adCmdText 设置ADO数据控件的命令类型为SQL.RecordSource = strSQL 设置记录源Adodc1.Refresh 刷新纪录集（关键语句）If .Recordset.EOF And .Recordset.BOF Then intErr = intErr + 1 If intErr = 3 Then MsgBox 对不起，您无权访问本系统！, , 提示！ End Else MsgBox 用户名或密码错误，请重新输入！, , 提示 Call FocusBack(Text1) End IfElse gstrUser = strUser 存用户名 If .Recordset(权限) = -1 Then gblnPurview = True Else gblnPurview = False End IfMDIfrmmain.ShowUnload MeEnd IfEnd WithEnd Sub2) 在 重置 按钮上加入如下代码，就可以将记录排空：Private Sub Command2_Click()strUser.Text = strPass.Text = End Sub这些代码的功能就是对用户名、密码进行初始化，即排空设置，也就是说当点击重置按钮时，文本框中的信息就会变成空白显示。用户登陆窗体为本系统的启动窗体，其功能是让合法的用户使用本系统，以防止其它的非法人员使用该系统。并对登陆的用户做一下权限的区别：分为管理员和普通员工。系统初始化窗体的主要目的是：在本系统的试运行阶段成功后是管理员可以直接把除了员工表以外的所有数据表的内容清零。登陆窗体中设计了一个权限，可以区分是员工登陆还是管理员登陆，如果是管理员则提示是否进行系统初始化，否则直接进入主窗体。对系统进行调试，不同的权限的用户会有不同的界面：在用户名文本框中输入：admin在密码文本框中输入：admin由于该账户为超级管理员，因此点击 登录 按钮就可以直接登录到主界面了；如下图4-2所示：图4-2 系统主界面倘若 在用户名文本框中输入：msz在密码文本框中随便输入正确密码，由于这个账户为普通账户，因此会弹出如下图所示的对话框提示对不起，您无权访问本系统！如下图4-3：图4-3 用户登录当用户名或密码输入错误时比如在用户名文本框中输入：admin在密码文本框中随便输入一个密码，因为这些信息在数据库中找不到，就会弹出对话框提示用户名或密码错误，请重新输入！如图4-4图4-4 用户登录4.2 用户主界面的实现用户主界面就是将各个模块的大意列在菜单中，然后通过每一个菜单将其它的窗体逐个对应的连到主窗体中。当点击各个菜单项时可以就可以打开相关的信息，连到相关的数据库中。在输入正确的用户名和密码后，点击登录就可以进入用户的主界面，如下图4-5所示：图4-5 用户主界面主界面的菜单栏有3个菜单：用户管理、货物管理、退出系统。其中用户管理有2个菜单项用户管理界面与用户登录界面、货物管理有1个货物管理项、退出系统只包含一个退出菜单项4.3数据库的创建与连接4.3.1创建货物管理表、用户表启动access 2003，选择 文件新建空数据库，新建设计视图，然后就进入了表的设计视图，分别设计字段名称、数据类型；用户表字段名称分别是：用户名、密码、权限，数据类型分别是文本型、文本型、是/否型；将设计视图关闭，双击用户表就进入了数据表视图。可以向表里输入记录，在数据库中输入的记录，在登录时可以用数据库中的任意一条记录，但前提是有权限的用户才可以进入本系统有。具体如图4-6所示：图4-6 创建用户表货物管理图标上右击，选择-设计视图，分别加入以下字段：货物ID、货物名、数量、类别、单价、进货时间，数据类型分别是文本型、文本型、数字型、文本型、货币性、日期/时间型。关闭设计视图，然后双击管理货物表，向表中输入记录，数据库的表中的记录的改变，可以在货物管理界面中得到体现。数据库中的数据如下图4-7所示：图4-7 创建货物管理表4.3.2数据库的连接在工具栏中找到Date控件，点击Date控件在窗体中拖动加入一Date，这就是前台界面与后台数据库进行连接的关键。在Date控件上右击选择 ADODC 属性 ，就会弹出属性页对话框。在 选项卡中点击生成按钮，在弹出的数据链接属性中就可以选择所要连接的数据库的路径，然后点击按钮，就会出现弹出对话框。这样就会在使用连接字符串文本框中自动生成字符串Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:综合作业fs.mdb;Persist Security Info=False 。将Date的名称改为Adodc1，Caption为Adodc1，ConnectionString连接字符串为Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:综合作业1s.mdb;Persist Security Info=False 把Enabled属性改为True，表示决定一个对象响应用户生成事件。RecordSource为记录源，它可以来连接数据库中的表。数据库的连接字符串为：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:综合作业fs.mdb;Persist Security Info=False以上代码的路径的路径是绝对路径；Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fs.mdb;Persist Security Info=False以上代码的路径的路径是相对路径；在数据库中输入记录就会更改整个系统的信息，或者通过界面中的修改功能也能完成相同的效果，这两边的修改是同步的。前台的数据界面与后台信息就是通过以上数据库连接字符串实现的。4.4 用户管理界面模块功能实现照下图4-8所示的样式对页面进行编辑，用户管理界面如下图所示图4-8 用户管理界面的实现 在 添加用户 按钮上加入如下代码： Private Sub Command1_Click() If Text3.Text Text4.Text Then MsgBox 前后密码不一致，请重新输入！, , 提示！ End If If Text1.Text = Or Text3.Text = Or Text4.Text = Then MsgBox 用户名或密码不能为空！, , 提示！ End If Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Text1.Text Adodc1.Recordset.Fields(密码) = Text3.Text Adodc1.Recordset.Fields(权限) = Check1.Value Adodc1.Recordset.Update 更新记录 Adodc1.Refresh Text1.Text = : Text3.Text = Text4.Text = End Sub这样往用户名、权限、密码、确认密码文本框中里输入记录，点击添加用户按钮，就会插入记录。当密码和确认密码里输入的内容不一致时会弹出一个对话框提示前后密码不一致，请重新输入！如下图4-9所示：图4-9 用户管理界面的实现当用户名输入为空时，会弹出提示对话框提示用户名或密码不能为空！如下图4-10：图4-10用户管理界面的实现选中一个用户，将其原先密码、确认密码记录删掉，重新输入新记录，当点击时就会更改该用户的密码。在 修改密码 按钮中加入代码：Private Sub Command2_Click() Adodc1.Recordset.MoveFirstusername = InputBox(请输入你要修改密码的用户：, 该用户的密码将修改为您输入的密码！) If username Then password = 用户名= & Trim(username) Adodc1.Recordset.Find (password) If Not Adodc1.Recordset.EOF Then q2 = MsgBox(你真的要修改用户名为： & username & 的用户的密码吗？, 36) If q2 = 6 Then 点击是按钮值为6 Adodc1.Recordset. (密码) = username End If MsgBox 密码修改成功！ Adodc1.Recordset.Update Else MsgBox 密码修改失败！ End If Else MsgBox 查无此用户！ End If Else MsgBox 请输入正确的用户名！ End IfEnd Sub在 删除用户 按钮加入如下代码：Private Sub Command3_Click()Adodc1.Recordset.MoveFirst username2 = InputBox(请输入你要删除的用户的用户名：) If username2 Then fi2 = 用户名= & Trim(username2) Adodc1.Recordset.Find (fi2) If Adodc1.Recordset.EOF Then MsgBox 查无此用户！ Else q1 = MsgBox(你真的要删除用户名为： & username2 & 的用户吗？, 36) If q1 = 6 Then 点击是按钮值为6 Adodc1.Recordset.Delete Adodc1.Recordset.Update Adodc1.Recordset.MoveFirst MsgBox 记录删除成功！ Else MsgBox 记录删除失败！ End If End If Else MsgBox 请输入正确的用户名！ End IfEnd Sub4.5货物管理界面模块功能实现货物管理 货物管理界面， 就会弹出货物管理界面，如图4-11所示图4-11 货物管理界面1、当向商品编号、商品名称、商品数量、商品售价、进货时间文本框中录入数据，这时点击 添加商品 按钮，就会将录入的记录添加到数据库中。在 添加商品 按钮应加入的代码如下：Private Sub Command1_Click()strID As StringIf Text1.Text = ThenMsgBox 商品编号不能为空！, , 提示！End IfIf Text2.Text = ThenMsgBox 商品名称不能为空！, , 提示！End IfIf Text3.Text = ThenMsgBox 商品数量不能为空！, , 提示！End IfIf Text4.Text = ThenMsgBox 商品售价不能为空！, , 提示！End IfIf Text5.Text = ThenMsgBox 商品类别不能为空！, , 提示！End IfAdodc1.Recordset.Find 货物ID= & Text1.Text & , , adSearchForward, 1If Not Adodc1.Recordset.EOF ThenMsgBox 此商品已经存在，请尝试修改商品！, , 提示Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(货物ID) = Text1.Text Adodc1.Recordset.Fields(货物名) = Text2.Text Adodc1.Recordset.Fields(数量) = Text3.Text Adodc1.Recordset.Fields(单价) = Text4.Text Adodc1.Recordset.Fields(类别) = Text5.Text Adodc1.Recordset.Fields(进货时间) = Text6.Text Adodc1.Recordset.Update 更新记录 Adodc1.Refresh Text1.Text = : Text2.Text = : Text3.Text = Text4.Text = : Text5.Text = : Text6.Text = End IfEnd Sub2、当商品编号录入为空时就会弹出对话框提示商品编号不能为空！如下图4-12所示图4-12 货物管理界面3、当商品编号录入为空时就会弹出对话框提示商品编号不能为空！如下图4-13所示图4-13 货物管理界面其它类似的情况，当录入为空时都会弹出提示对话框。4、在 删除商品 按钮加入以下代码： Private Sub Command2_Click()Adodc1.Recordset.MoveFirst sno = InputBox(请输入你要删除的商品的编号：) If sno Then fi2 = 商品编号= & Trim(sno) Adodc1.Recordset.Find (fi2) If Adodc1.Recordset.EOF Then MsgBox 查无此商品！ Else q1 = MsgBox(你真的要删除该商品编号为： & sno & 的商品吗？, 36) If q1 = 6 Then 点击是按钮值为6 Adodc1.Recordset.Delete Adodc1.Recordset.Update Adodc1.Recordset.MoveFirst MsgBox 记录删除成功！ Else MsgBox 记录删除失败！ End If End If Else MsgBox 请输入正确的商品编号！ End IfEnd Sub5、当选择一条记录 然后对其属性进行修改，然后点击 修改商品 按钮，就会将原来的记录修改。在修改商品按钮上加入如下代码：Private Sub Command3_Click() Adodc1.Recordset.MoveFirstsql = select * from 商品信息 where hwID = Int( & Text1.Text & ) hwm = & Text2.Text & hwsl = & Text3.Text & hwdj = & Text4.Text & hwlb = & Text5.Text & jhsj = Date & Text6.Text & Adodc1.Recordset.Find 货物ID= & Text1.Text & , , adSearchForward,1If Not Adodc1.Recordset.EOF ThenMsgBox 您确定要修改商品信息吗？, , 提示Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(货物ID) = Text1.Text Adodc1.Recordset.Fields(货物名) = Text2.Text Adodc1.Recordset.Fields(数量) = Text3.Text Adodc1.Recordset.Fields(单价) = Text4.Text Adodc1.Recordset.Fields(类别) = Text5.Text Adodc1.Recordset.Fields(进货时间) = Text6.Text Adodc1.Recordset.Update 更新记录 Adodc1.RefreshEnd If结 论在这次实习中，自己的vb语言知识和数据库知识得到了巩固，编程能力也有了一定的提高。同时也学会了解决问题的方法。总结起来，自己主要有以下几点体会：1.必须牢固掌握基础知识。刚刚看到我综合作业的题目，不知如何下手，但在后来的学习过程中自己通过看书和课外资料，并请教其他同学，慢慢地对这门语言和数据库有所熟悉。这时才逐渐有了思路。所以，这次实习之后，我告诫自己：今后一定要牢固掌握好专业基础知识。2.必须培养严谨的学习态度。自己在编程时经常因为一些类似于“少了分号”的小错误而导致错误，不够认真细致，这给自己带来了许多麻烦。编程是一件十分严谨的事情，容不得马虎。所以在今后自己一定要培养严谨的科学态度。我想这不仅是对于程序设计，做任何事都应如此。3.这次课程设计也让我充分认识到这门课的重要性。它给我们一个思想和大纲，让我们在编程时容易找到思路，不至于无章可循。同时它也有广泛的实际应用。总之，在这次实习中，自己的visual basic语言以及数据结构知识和数据库access得到提高，编程能力也得到了提高。设计一个面向超市及商店，具有一定实用性的数据库信息管理里系统，对商店及超市与日俱增的商品货物进行管理提供方便，具有很强的实用性。通过实习巩固并提高对基础知识的理解，能综合运用计算机的各应用软件，并能灵活掌握前台界面与后台的数据库的连接， 更深入理解Visual basic的知识，提高了我的编程能力与专业水平。一个好的商店存货管理系统可以有效的管理商品的库存量，合理的利用存货的规律达到合理的库存量。合理的库存可以在企业各个物流环节中起到一定的缓冲作用，并可以缩短物流活动的实现时间，加快企业对市场的反应速度。致 谢感谢我的辅导老师老师，他严谨细致、一丝不苟的作风一直是我工作、学习中的榜样；他循循善诱的教导和不拘一格的思路给予我无尽的启迪。他严肃的科学态度，严谨的治学精神，深深地感染和激励着我。本设计及论文是在李老师的亲切关怀和悉心指导下完成的，还有我的同窗们，他们也给了我很大的帮助与鼓励。从课题的选择到项目的最终完成，离不来他们对我的支持。通过这次毕业设计，在李老师的指导下，我初步掌握了用VB开发软件的方法，在进行设计软件时我遇到了一些困难，于是我在老师的提示下，查资料，上网和网友进行探讨。经过三个多月的设计和开发，我终于完成了商店存货系统的开发与实现。由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不完善等多方面问题。这些都有待进一步改善。由于时间仓促，这个系统做的还有很多不完善的地方，不足之处恳请李老师提出批评和改进意见。我相信,本次毕业设计我为本系统搭下了一个框架,以后我一定在此基础上不断完善它。我愿在未来的学习和工作中，以更加丰厚的成果来答谢所有曾经关心、帮助和支持过我的亲人、老师、同学与朋友！参考文献1 田孝文，朱强. 计算机信息管理综合作业， 经济科学出版社 20082邵洁主编. VB程序设计, 东南大学出版社，19993杨小影主编. VB程序设计基础, 中国水利水电出版社，19974古梅主编. 新编VB程序设计教程,中国电力出版社， 19985 姚领田. 精通MFC程序设计M. 北京：人民邮电出版社，2006.6 李大友. Visual Basic 程序设计 清华大学出版社 2002年 7 陈明. Visual Basic 程序设计 中央电大出版 2000年8 刘韬,骆娟. Visual Basic6.0实效编程百例 人民邮电出版社 2002年附 录（1）在 登录 按钮上添加如下代码：Private Sub Command1_Click()Static intErr As IntegerDim strUser As String, strPass As String, strSQL As StringstrUser = Trim$(Text1.Text) 用户名strPass = Trim$(Text2.Text) 密码strSQL = SELECT * FROM 表1 WHERE 用户名 = & strUser & AND 密码 = &