《基于CS结构的企业进销存管理系统毕业论文.doc》由会员分享，可在线阅读，更多相关《基于CS结构的企业进销存管理系统毕业论文.doc（39页珍藏版）》请在三一办公上搜索。
1、 计算机科学与技术专业毕业论文(设计)毕业论文课题：基于C/S结构的企业进销存管理系统 姓 名： 学 号： 年级专业： 组 别： 指导教师： 完成时间：_ _摘要进销存数据的统计对公司的发展及决策起着重要的作用。客户档案的管理，商品基础信息的管理，库存管理，销售管理，进货管理用手工进行效率很低，已不能适应公司发展的需求。现有进销存系统已实现了商品销售，进货上柜，卖场库存数据等各种统计数据，从而大大减少了数据的流通环节，增强了数据的可靠性。通过进销存管理系统，利用信息化的手段把先进的企业管理方法引入企业的实践，为企业的管理改革提供切实可行的途径。更重要的是，进销存管理系统可以及时通过信息技术把企
2、业数据转化为企业信息，进而为相关管理者提供决策依据。系统的主要功能是对商品的进货、销售和库存进行监控、调配和管理，以实现公司商品进销存管理的信息化、自动化和科学化。此系统前台应用程序界面采用VB6.0开发，系统的后台数据库选用SQL 2000作为开发工具。 【关键词】进销存系统 信息管理 VB SQL 2000数据库AbstractPurchase Sale Stock statistical data on the companys development and played an important role in the decision-making. Customer file m
3、anagement, commodity based information management, purchase management, sales management, stock management by hand to the low efficiency, the company has been unable to meet development needs. Now Purchase Sale Stock system has achieved sales of goods, OTC stock, store inventory data and other stati
4、stical data, thus greatly reducing the flow of data links and improved the reliability of dataPurchase Sale Stock system through the use of information and the means of the advanced enterprise management of the introduction of a corporate practice for the management reform practical way. More import
5、antly, Purchase Sale Stock system can be timely adoption of information technology to corporate data into enterprise information and then for the relevant managers to provide basis for decision making. The main function of the commodity purchase, sales and stock monitoring, deployment and management
6、, in order to achieve the companys goods Purchase Sale Stock information, automation and scientific. This system is a stand-alone version of the database management system. Future application interface using VB6.0 development, the choice of SQL 2000 database background as a development tool.【Key Wor
7、ds】Purchase Sale Stock system Information Management vb6.0 SQL 2000 database目录摘要2引言5第二章 相关技术92.1 Visualbasic 6.092.2 SQL Server 200010第三章 系统分析与设计123.1 系统业务流程图123.2 系统功能结构图与功能模块123.3 编码设计143.4 数据库设计15第四章 系统的实现164.1 公共模块实现164.2 启动窗体的实现174.3 系统登录实现174.4 主窗体实现204.5商品进货模块实现234.6库存状况模块实现284.7销售信息模块实现314.7
8、系统用户及权限模块设置33第五章 系统测试365.1运行项目36致 谢39参考文献40引言在当今我国经济蓬勃发展，企业林立的环境下，中小企业如何能在竞争中突围而出呢？或许，企业拥有固定的硬设备、人员数量、大量资金等资源投入能在规模上优胜，但实际上，而软投入如管理、人力资源价值、服务、品牌附加值、渠道等要素资源的投入却能增加企业的效益。“速度冲击规模”的速度经济概念已经向企业提出。 随着经济的全球化以及中国经济改革的逐渐深化，企业面临着越来越激烈的竞争。改善企业内部以及整个供应链各个环节的管理、调度及资源配置，迅速适应客户的新需求和市场新机遇，是企业赢得竞争胜利的决定性因素。企业为了赢得市场竞争
9、优势，就必须加强物流、信息流、资金流的动态管理，使企业管理更加规范化。企业信息管理系统、ERP系统是企业管理高效化的重要途径，而企业进销存管理系统是企业信息系统的重要部分，它是ERP系统中的核心运营子系统。因此，企业使用进销存管理系统，可以使企业各业务环节的配合更加紧密，有利于企业的发展，提升企业竞争力。 第一章 概述1.1、课题背景与意义近年来，中国经济发展迅速，各个领域的企业犹如雨后春笋般冒出头来。诚然，不管是那一个行业，产品销售必然是其中重要的一环。随着人们对各种物质资源的需求日益增加，作为企业的销售商品也相应日益增加，从而增加了企业对销售产品的管理问题。为了完善和发展企业的管理，很多大
10、型企业都率先采用了各种的EPR软件，但是这些软件却大多不适合在中小型企业中应用。而目前我国的中小企业数量较多，在我国经济发展中具有重要地位，比较而言，大型企业和外资企业具有更为雄厚的资金实力、丰富的管理经验和先进的技术手段，因此，如果我国的中小企业不借助先进的管理思想转变经营观念、使用信息化提高企业的管理水平和工作效率，将很难在今后的国际竞争中取胜。然而企业管理在很多方面、很大程度上都必须借助信息化来完成，可惜我国中小企业的信息化水平还很低。随着技术发展，电脑操作及管理日趋简化，电脑知识日趋普及，同时市场经济快速多变，竞争激烈，因此企业采用电脑管理进货、库存、销售等诸多环节也已成为趋势及必然。
11、为了增强企业的竞争力，以实现商品管理的信息化，就需要一个企业进销存管理系统。进销存管理系统是一个信息化管理软件，可大限度地减少手工操作带来的失误，实现企业的进货、销售、库存管理等各项业务的信息化管理。在信息技术的催化之下，世界经济的变革已经进入了加速状态。世界经济一体化，企业经营全球化，以及高度竞争造成的高度个性化与迅速改变的客户需求，令企业与顾客、企业与供方的关系变得更加密切和复杂。强化管理，规范业务流程，提高透明度，加快商品资金周转，以及为流通领域信息管理全面网络化打下基础，是众多商业企业梦寐以求的愿望。1.2、国内外研究现状以及发展趋势计算机在管理中的应用由来已久，早在1954年，当时美
12、国首先用来处理工资单。随着科技的发展和变迁，计算机在处理管理信息方面发展迅速，例如60年代美国计算机在管理中的应用项目只有不到300项，而现在，计算机的应用率已超过90%，其中经济管理更是计算机应用的主要领域。由于互联网及电子商务的诞生及其客观的发展速度，国外已经较早的涉及ERP系统的开发。相对于国内来说，技术的应用比较成熟，广泛应用于大中型企业中。而在国内，企业进销存管理系统，起步虽然比较慢，但它在国内市场却拥有广阔的发展前景，而且发展速度也相当快。目前，国内已经有很多企业使用了进销存管理系统。国际普遍公认，中国、印度和东欧是第三方进销存管理成长最快的地区，所以进销存管理行业在中国市场还有很
13、大的发展空间。1.3、可行性分析进销存软件概念起源于上世纪，由于电算化的普及，计算机管理的推广，不少企业对于仓库货品的进货，存货，出货管理，有了强烈的需求，进销存软件的发展从此开始。在90年代以后，随着进销存软件的应用面越来越广，出现了许多从功能上，从用途上，更为全面的进销存系统，从单纯的货品数量管理，扩展为货品的流程管理，进销存软件对每一批货品的来源，存放，去向，都作仔细的记录，随后并延伸为财务进销存一体化的管理模式。后来，各种各样的进销存软件产品应运而生，在仓库进销存管理的基础上，集合了财务管理。客户管理，业务管理等相关内容，成为进销存财一体化的管理系统。进销存与进销存之间的竞争优势主要取
14、决于进销存的创新能力和核心能力的竞争，国内制造和流通企业迫切需要运用IT技术实现其生产、库存、日常交易的管理规范化、精确化，加强企业成本控制，提高企业运营效率。在国内，调查显示，目前真正建设了完整的进销存系统的企业并不多，总之，进销存市场在国内仍处于启动期。随着越来越多的企业走出国门参与国际市场竞争，全球市场竞争趋势已由原来的企业与企业之间的竞争转变为进销存与进销存之间的竞争。进销存系统正在为越来越多的企业所采用。随着信息技术的飞速发展，企业进销存管理系统是公司或企业进销存管理中的典型代表，涉及到了商品或货物管理，入库、出库、查询等。无论公司还是企业对于货物都实行了信息化的管理，以提高管理水平
15、和工作效率，同时也最大限度地减少手工操作带来的错误，所以进销存系统具有广阔开发前景。1.4、项目目标与思路根据对中小企业的特点进行分析调查与用户的沟通,初步制定系统的纲领和思路如下:(1) 界面设计简洁、友好、美观大方。(2) 操作简单、快捷方便。(3) 数据存储安全、可靠。(4) 信息分类清晰、准确。(5) 强大的模糊查询功能，保证数据查询的灵活性。(6) 提供销售排行榜，为管理员提供真实的数据信息。(7) 提供灵活、方便的权限设置功能，使整个系统的分工明确。(8) 对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。1.5项目功能模块项目功能模块：进销存系统主要由基础信息模块、
16、进货信息模块、销售信息模块、库存信息模块、系统维护模块和帮助信息模块六部分组成。其功能结构图如图1所示。 图1 功能结构图基础信息模块：库存商品、往来单位、退出系统。该模块主要提供给使用者进行基础信息查询,以方便客户可以快速查阅库存信息和往来单位信息。进货信息模块：进货单、进货退货、进货分析、进货统计不含退货、与供应商对帐。该模块主要对进货方面信息进行管理，包含了对退货信息的反映,确保把每一笔的交易记录都能准确的反映出来,还包含了进货分析,能准确的显示每一笔进货的信息和兼顾进货单据和对帐，保证数据的准确性。销售信息模块：销售单、销售退货、销售统计不含退货、月销售状况、商品销售排行、与代理商对帐
17、、商品销售成本表。该模块能准确的记录了整个销售方面所需的各个业务,更增加了月销售状况的信息,能让公司领导能快速了解到产品的销售情况,了解市场热点,及时调整销售策略,同时能显示各种销售信息，兼顾了单据和对帐的管理，保证数据不会出错。库存信息模块：库存状况、库存上限警报、库存下限报警、商品进销存变动表、库存盘点。该模块能实现实时显示库存的状况，能让销售人员能在销售时准确知道供货能力,而且能够协助采购人员制定采购计划,确保公司产品的销售库存而不会积压过多的产品而无故占用资金。系统维护模块：操作员设置、操作员权限设置、数据备份和恢复、数据清理。该模块主要实现必要的操作员管理和权限设置，能很方便的对操作
18、员进行增加和删除,并对其权限进行管理分配.该模块同时能对数据进行备份和恢复,使数据的安全管理更容易实现,还能对数据进行清理,更方便对数据进行管理。帮助信息模块：本单位信息、帮助信息、系统关于。提供本单位信息和系统相关信息,让客户在使用过程中可了解本系统信息。同时该模块更能为客户提供使用本系统时所需的帮助信息,使客户更容易熟悉本系统的使用。1.6系统运行环境本系统的程序运行环境如下：系统开发语言：Microsoft VisualBasic6.0数据库管理软件：Microsoft SQL Server2000运行平台：Microsoft Windows XP/Windows 2000/Window
19、s Server2003CPU:Pentium 2 166MHZ内存：126MB RAM硬盘：500MB硬盘空间1.7评价指标企业进销存管理系统的使用可实现企业的信息化管理，减少盲目采购、降低成本、合理控制库存、减少资金占用并提升企业市场竞争力。系统在运行时，能保证数据的准确性、安全性和可靠性。第二章 相关技术2.1 Visualbasic 6.0 VB6.0全称为Visualbasic 6.0,是微软公司于1998年推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具之一。结构简单，编写程序对系统的资源占有极低，是程序编写者编写小型程序的第一选择！如果你是一个对编程一无所知
20、，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。即使考虑到VB程序本身编译和运行效率较低的不足，但是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。 VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随
21、着计算机速度的飞速增加，关于性能的争论已经越来越少。 窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮）。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。 VB的程序可以包含一个或多个窗体，或者是一个主窗
22、体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。 VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。 VB使用引用计数的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。 VB使得大量的外界控件有了自己的生存空间。大量的第三方
23、控件针对VB提供。VB也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单2.2 SQL Server 2000 SQL Server 2000 是Microsoft公司推出的SQL Server 数据库管理系统的一个版本。该版本继承了SQL Server 7.0 版本的优点同时又比它增加了许多更先进的功能，具有使用方便,可伸缩性好与相关软件集成程度高等优点，可跨越从运行Microsoft Windows 98 的膝上型电脑到运行Microsoft Windows 2000 的大型多处理器的服务器等多种平台使用。Internet 集成 SQL Serve
24、r 2000 数据库引擎提供完整的XML 支持。它还具有构成最大的Web 站点的数据存储组件所需的可伸缩性、可用性和安全功能。SQL Server 2000 程序设计模型与 Windows DNA 构架集成，用以开发 Web 应用程序，并且SQL Server 2000 支持 English Query 和 Microsoft 搜索服务等功能，在Web 应用程序中包含了用户友好的查询和强大的搜索功能。 可伸缩性和可用性 同一个数据库引擎可以在不同的平台上使用，从运行 Microsoft Windows® 98 的便携式电脑，到运行 Microsoft Windows 2000 数据中心
25、版的大型多处理器服务器。SQL Server 2000 企业版支持联合服务器、索引视图和大型内存支持等功能，使其得以升级到最大 Web 站点所需的性能级别。 企业级数据库功能 SQL Server 2000 关系数据库引擎支持当今苛刻的数据处理环境所需的功能。数据库引擎充分保护数据完整性，同时将管理上千个并发修改数据库的用户的开销减到最小。SQL Server 2000 分布式查询使您得以引用来自不同数据源的数据，就好象这些数据是 SQL Server 2000 数据库的一部分，同时分布式事务支持充分保护任何分布式数据更新的完整性。复制同样使您得以维护多个数据复本，同时确保单独的数据复本保持同
26、步。可将一组数据复制到多个移动的脱接用户，使这些用户自主地工作，然后将他们所做的修改合并回发布服务器。 易于安装部署和使用 SQL Server 2000 中包括一系列管理和开发工具，这些工具可改进在多个站点上安装、部署、管理和使用 SQL Server 的过程。SQL Server 2000 还支持基于标准的、与 Windows DNA 集成的程序设计模型，使 SQL Server 数据库和数据仓库的使用成为生成强大的可伸缩系统的无缝部分。这些功能使您得以快速交付 SQL Server 应用程序，使客户只需最少的安装和管理开销即可实现这些应用程序。 数据仓库。 SQL Server 2000
27、 中包括析取和分析汇总数据以进行联机分析处理 (OLAP) 的工具。SQL Server 中还包括一些工具，可用来直观地设计数据库并通过 English Query 来分析数据优点1、高性能设计，可充分利用WindowsNT的优势。 2、系统管理先进，支持Windows图形化管理工具，支持本地和远程的系统管理和配置。 3、强壮的事务处理功能，采用各种方法保证数据的完整性。 4、支持对称多处理器结构、存储过程、ODBC，并具有自主的SQL语言。 SQLServer以其内置的数据复制功能、强大的管理工具、与Internet的紧密集成和开放的系统结构为广大的用户、开发人员和系统集成商提供了一个出众的
28、数据库平台。第三章 系统的分析与设计3.1 系统业务流程图企业进销存管理系统的业务流程图如图2： 图2业务流程图3.2 系统功能结构图与功能模块企业进销存管理系统功能结构如图3所示。 图3 功能结构图企业进销存管理系统是一个典型的数据库开发应用程序，由基础信息模块、进货信息模块、销售信息模块、库存信息模块、系统维护模块、帮助信息模块等部分组成，规划系统功能模块如下：基础信息模块库存商品、往来单位、退出系统。该模块主要提供给使用者进行基础信息查询,以方便客户可以快速查阅库存信息和往来单位信息。进货信息模块进货单、进货退货、进货分析、进货统计不含退货、与供应商对帐。该模块主要对进货方面信息进行管理
29、，包含了对退货信息的反映,确保把每一笔的交易记录都能准确的反映出来,还包含了进货分析,能准确的显示每一笔进货的信息和兼顾进货单据和对帐，保证数据的准确性。销售信息模块销售单、销售退货、销售统计不含退货、月销售状况、商品销售排行、与代理商对帐、商品销售成本表。该模块能准确的记录了整个销售方面所需的各个业务,更增加了月销售状况的信息,能让公司领导能快速了解到产品的销售情况,了解市场热点,及时调整销售策略,同时能显示各种销售信息，兼顾了单据和对帐的管理，保证数据不会出错。库存信息模块库存状况、库存上限警报、库存下限报警、商品进销存变动表、库存盘点。该模块能实现实时显示库存的状况，能让销售人员能在销售
30、时准确知道供货能力,而且能够协助采购人员制定采购计划,确保公司产品的销售库存而不会积压过多的产品而无故占用资金。系统维护模块操作员设置、操作员权限设置、数据备份和恢复、数据清理。该模块主要实现必要的操作员管理和权限设置，能很方便的对操作员进行增加和删除,并对其权限进行管理分配.该模块同时能对数据进行备份和恢复,使数据的安全管理更容易实现,还能对数据进行清理,更方便对数据进行管理。帮助信息模块本单位信息、帮助信息、系统关于。提供本单位信息和系统相关信息,让客户在使用过程中可了解本系统信息。同时该模块更能为客户提供使用本系统时所需的帮助信息,使客户更容易熟悉本系统的使用。3.3 编码设计编码设计是
31、数据库系统开发的前提条件，是系统不可缺少的重要内容。编码是指与原来名称对应的编号、符号或记号。它是进行信息交换、处理、传输和实现信息资源共享的关键。编码也用于指定数据的处理方法、区别数据类型，并指定计算机处理的内容等。数据库命名规则数据库命名统一以字母db(小写）开头，后面加数据库相关英文单词或缩写。数据表命名统一以字母tb(小写）开头，后面加数据表相关英文单词或缩写。字段命名一律采用英文单词或词组（可利用翻译软件）命名，如果找不到专业的英文单词或者词组，可以用相同意义的英文单词或者词组代替。程序代码命名规则 变量以及对象名称定义规则：根据不同的程序需要，编写代码的时候都需要定义一定的变量或者
32、常量，为了使代码更容易读懂和维护，命名必须区分不同级别的变量或者常量,规则如下： 模块级变量：M_+数据类型简写+变量名称，举例：M_int_xx 全局变量： G_+数据类型简写+变量名称，举例：G_int_xx 局部变量： P_+数据类型简写+变量名称，举例：P_db1_sl 模块级常量：Mc_+数据类型简写+常量名称，举例：Mc_str_xx 全局常量： Gc_+数据类型简写+常量名称，举例：Gc_str_xx 过程级常量：Pc_+数据类型简写+常量名称，举例：Pc_str_xx控件命名规则 窗体和控件的命名应采用统一的规范，一般采用具有实际意义的英文单词或者标识，也可以采用多个单词的组合
33、。窗体一般采用frm_*或者Frm_main的形式，如frm_main等。3.4 数据库设计开发应用程序时，对数据库的操作是必不可少的。数据库设计是根据程序的需求及其实现功能所制定的，数据库设计的合理与否将直接影响到程序的开发过程。而本系统数据库采用SQL Server 2000数据库，系统数据库名称为db_SSS。数据库db_SSS中包含16张表。为了对本系统后台的数据库中数据表有一个更清晰的认识，下面设计了一个数据表树型结构图如图4所示，该数据表树型结构图包含系统所有数据表。图4 数据库表第四章 系统设计与实现4.1 、 公共模块实现 在开发应用程序时，可以将数据库的相关操作以及对一些控件
34、的设置、遍历等封装在自定义模块中，以便于在开发程序时调用，这样可以提高代码的重用性。本系统创建了一个名为Module1的标准模块，在该模块中定义了公共的变量、过程和函数。1、主函数设定在一个应用程序中，一般都有一个主程序（Sub Main）,程序的执行从这个主程序开始。2、数据库连接数据库连接在开发数据库管理系统中经常用到。在本程序中为了优化数据库的连接，减少代码的使用，在公共模块中定义一个函数用于执行数据库连接。编程过程中，如果需要使用数据库连接，就可以直接调用数据库连接函数cnn来操作数据库。关键代码如下：Public Function cnn() As ADODB.Connection
35、共享数据库连接 Set cnn = New ADODB.Connection cnn.Open Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SSSEnd Function3、拼音简码函数 拼音简码函数的设计很有必要性，在进销存管理系统中进行商品的进货和销售操作时，可以让操作者直接输入商品的拼音简码来完成商品的检索，这样可以为信息的录入带来极大的方便。关键代码如下：Public Function py(Mystr As String) As String 获得汉字的拼音简码 On Er
36、ror Resume Next If Asc(Mystr) 0 Then If Asc(Left(Mystr, 1) = Asc(啊) And Asc(Left(Mystr, 1) Asc(芭) Then py = A Exit Function End If .此处代码有省略 If UCase(Mystr) = A Then py = UCase(Left(Mystr, 1) Else py = Mystr End If End IfEnd Function4.2 启动窗体的实现 启动窗体用作欢迎客户使用之友好界面，可以在应用程序启动时一闪而过，也可以为用户提示一定信息，但用户无需对其进行任
37、何操作。本程序设计欢迎界面，是本着领导本程序界面更加友好，同时避免数据加载过程中使用者由于等待时间过长而产生焦虑。企业进销存管理系统中的启动窗体如图5所示: 图5 启动窗体4.3 系统登录实现 由于本系统内容关乎一个企业的来货以及销售信息，因此，一个安全的登录窗体设计是非常重要的。本窗体的设计主要就是用于对登录到企业进销存管理系统中的用户进行安全检查，以防止非法用户进入到本系统，即只有合法的用户才能登陆到本系统。登录窗体主要是通过对数据表tbS_power的查询，结合IF语句判断选定的用户以及输入的密码是否符合数据库中的用户名和密码是否正确，如果正确则正常登录，否则错误超过3次则强行退出系统。
38、系统登录窗体的界面效果如图6所示： 图6 登录界面1.添加用户名和编号 当窗体启动后，单击用户头像，将显示该用户的用户名和编号，并将焦点设置在“密码”文本框中。关键代码如下：Private Sub ListView1_Click() If ListView1.ListItems.Count 0 Then 查询操作员信息 rs.Open select * from tbS_power where sysuser = + ListView1.SelectedItem + , cnn, adOpenKeyset If rs.RecordCount 0 Then 给相应的控件赋值 Lbl_Czyid.
39、Caption = rs.Fields(userid) Lbl_Name.Caption = rs.Fields(sysuser) End If rs.Close Txt_mm.SetFocus End IfEnd Sub2.判断用户名和密码 选中用户名以后，在“密码”文本框中输入该用户的密码，然后单击“确定”按钮，进入系统内部。当用户单击“确定”按钮时候，系统将核对该用户所输入密码与数据库中的密码时候相同，如果相同则进入到系统内部；如果不正确，则提示信息并将输入次数加1，写入到Txt_Time文本框中；当Txt_Time文本框中的次数超过3次，则提示信息，退出系统.关键代码如下：Privat
40、e Sub Lbl_OK_Click() 确定 rs.Open select * from tbS_power where sysuser = + Trim(Lbl_Name.Caption) + , cnn, adOpenKeyset If rs.RecordCount 0 Then 如果记录数大于零 验证操作员及密码 If Txt_mm.Text = rs.Fields(password) Then 为用户分配权限 Adodc1.RecordSource = select * from tbS_power where sysuser = + Trim(Lbl_Name.Caption) +
41、 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then If Adodc1.Recordset.Fields(stock).Value Then 进货管理 MDIForm1.menu2.Enabled = True Else MDIForm1.menu2.Enabled = False End If If Adodc1.Recordset.Fields(vendition).Value Then 销售管理 MDIForm1.menu3.Enabled = True Else MDIForm1.menu3.Enabled = False En
42、d If If Adodc1.Recordset.Fields(storage).Value Then 库存管理 MDIForm1.menu4.Enabled = True Else MDIForm1.menu4.Enabled = False End If If Adodc1.Recordset.Fields(system).Value Then 系统管理 MDIForm1.menu5.Enabled = True Else MDIForm1.menu5.Enabled = False End If If Adodc1.Recordset.Fields(base).Value Then MDIForm1.menu1.Enabled = True Else MDIForm1.menu1.Enabled = False End If Else MsgBox 您输入的信息不正确！ txtName.SetFocus 使控件获得焦点 Exit Sub End If MDIForm1.SBar1.Panels(2).Text = MDIForm1.SBar1.Panels(2).Text & Lbl_Name.Caption Load MDIForm1 MDIForm1.Show Unload
