VB通用药品公司进销售存管理系统设计(源代码+系统)
收藏
资源目录
压缩包内文档预览：(预览前20页/共55页)
编号：149911303
类型：共享资源
大小：1.61MB
格式：RAR
上传时间：2021-10-10
上传人：好资料QQ****51605
认证信息
个人认证
孙**（实名认证）
江苏
IP属地：江苏
20
积分
- 关 键 词：
-
VB
通用
药品
公司
销售
管理
系统
设计
源代码
- 资源描述：
-
VB通用药品公司进销售存管理系统设计(源代码+系统),VB,通用,药品,公司,销售,管理,系统,设计,源代码
- 内容简介：
-
计算机毕业设计：进销存管理系统 - -I摘摘 要要计算机管理信息系统是一项系统工程，综合了计算机、网络、数据库、通讯技术，也包括了企业管理科学和众多丰富实践经验的总结。它是先进科学技术和现代企业经营管理结合的范例。它的产生和运行是企业经营管理发展到一定阶段、一定规模及特定经济环境下的必然要求。目前，全球药品市场竞争日益激烈，超市企业要想获得持续性的赢利取决于其是否能够赢得和保持相当的客户的满意度。经过分析，我们使用MICROSOFT 公司的 VISUAL BASIC 开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。关键词：窗体,域,数据库。计算机毕业设计：进销存管理系统 - -IIAbstractThe calculator management information system is a system engineering, synthesizing the calculator, network, database, the communication technique, also including the business enterprise management science and numerous abundant empirical summary of fulfillment.It is the example that the advanced science technique combines with the modern business enterprise management. Its creation and movement is the business enterprise management management develops the certain stage, inevitable request of certain scale and particular and economic environmentses are. Currently, the global drugs market competition is increasingly vigorous, the companies medicine enterprise wants to be keep on the win the benefit to be decided by whether it can win and keep the satisfaction of the equal customers or not.Through analysis, we use the VISUAL BASIC development tool of the company of MICROSOFT, making use of various development tool that faces to the object of what it provide, particularly is this ability of the data window way is convenient and simple and direct to manipulate the database of intelligence turn the object, build up the system application prototype in the in a short time first, then, start the prototype system to carry on the need generation to the beginning, revise and improve continuously, until formation the customer is satisfied and can go the system.Keywords: window body area database.计算机毕业设计：进销存管理系统 - -III目目 录录摘摘 要要IABSTRACT II第第 1 章章 绪论绪论 11.1 课题背景1第第 2 章章 用户需求分析用户需求分析 22.1 功能需求22.2 实现目标2第第 3 章章 相关技术介绍及系统数据库介绍相关技术介绍及系统数据库介绍 33.1 前台开发工具语言33.1.1 Visual Basic 语言的特点：33.2 数据库简介73.2.1 关系型数据库的实现 73.3 二者的结合(DBA)83.3.1 使用 Microsoft Access 2000 创建数据库83.3.2 修改已建的数据库 83.4 软件的运行环境设计83.4.1 软件环境： 93.4.2 硬件环境： 9第第 4 章章 系统模块设计系统模块设计 104.1 超市进销存管理系统结构图104.2 数据库需求分析11第第 5 章章 系统设计与数据库实现系统设计与数据库实现 125.1 库的结构125.1.1 供应商基础信息表 gys125.1.2 库存表 kc135.1.3 密码表 ma 145.1.4 客户基础信息表 kh 14计算机毕业设计：进销存管理系统 - -IV5.1.5 入库表 rkd155.1.6 入库退单表 rktd165.1.7 销售表 xsd175.1.8 销售退单表 xstd185.2 系统主界面设计195.3 日常业务设计215.3.1 入库单模块设计 215.3.2 销售单模块设计 225.3.3 销售退单模块设计 225.4 库存管理设计235.4.1 库存查询模块设计 235.4.2 库存盘点模块设计 245.4.3 价格管理模块设计 255.5 查询统计设计255.5.1 入库查询模块设计 255.5.2 销售查询模块设计 265.5.3 销售退货查询模块设计 275.6 基础信息管理设计285.6.1 供应商管理模块设计 285.6.2 客户管理模块设计 285.7 系统设置设计295.7.1 初期建帐模块设计 295.7.2 密码设置模块设计 29结结 论论 31致致 谢谢 32参考文献参考文献 33附录附录 1 34附录附录 2 2 36附录附录 3 3 38计算机毕业设计：进销存管理系统 - -V计算机毕业设计：进销存管理系统- -1第第 1 章章 绪论绪论1.1 课题背景 随着我国市场经济的蓬勃发展和人们对日常生活用品需求的迅速增加,超市行业正处于一个高速发展的时期.行业的快速发展必然导致竞争的加剧,要想在激烈的市场竞争中谋求发展,客观上要求企业必须加强内部管理,提高运营销率.而我国大部分超市企业是由原来的国有零售商店改造或职工下海创办的,虽然经营实现了专业化,但是从信息机制上还没有摆脱原有的销售模式,企业内部没有形成完善、有效的激励和约束的信息化管理机制,企业发展的动力不足,从而影响了企业的持续、稳定、快速发展. 同时我国超市经营形式正在向集团化、连锁化发展.在这一发展过程中,旧的企业管理模式已不适应新型的社会主义市场经济的要求,而新的企业管理模式正在被广泛探讨、研究之中.这其中,如何利用现代信息技术使企业拥有快速、高效的市场反映能力和高度的效率,已是超市经营企业,特别是超市连锁经营企业特别关心的问题.再者,由于超市产品种类繁多、销售模式特殊、业务量大,单凭手工记账已很难适应工作的需要.超市作为一个关系到人们健康的特殊行业,国家对超市行业又有一些不同于其他行业的管理政策,这些都加大了管理的难度.如何尽快建立和完善现代企业的信息化管理机制问题,已成为超市企业发展的关键所在. 计算机毕业设计：进销存管理系统- -2第第 2 章章 用户需求分析用户需求分析在超市行业由于每天销售量大,呆帐,错帐时有发生且常出现开”空单”的现象,管理者常为进销存业务中存在的问题而头痛.为提高企业管理水平,更好地服务于广大用户,所以采用计算机来管理超市门店的进销存业务.要实现一个超市管理软件系统，首先应该进行需求分析，只有进行了充分的需求分析和调查，才能设计出满足用户各项要求的软件，以免出现半途而废的现象。以下是为超市进销存管理系统设计进行的需求分析2.1 功能需求功能需求 通过对超市门店日常业务的设计处理,实现了现代化的超市门店管理模式.具体功能包括日常业务、库存管理、查询统计、基础信息管理、系统设置五大模块.系统主要的功能模块设计有:1 日常业务:入库单、销售单、入库退单、销售退单.2 库存处理:库存盘点、库存查询、价格管理.3 查询统计:入库查询、销售查询、入库退单查询、销售退单查询.4 基础信息管理:客户管理、供应商管理.5 系统设置:初期建帐、密码设置、数据备份、数据恢复.2.2 实现目标实现目标面对超市行业的高速发展及其发展过程中出现的各种情况,超市门店进销存管理系统在实施后应能够达到以下目标:1 实现多点操作的信息共享,相互之间信息传递准确、快捷、顺畅.2 全面自动化管理,可随时掌握药品的库存、销售等情况.3 能够快速、准确地处理药品进、销、存、退、盘点、变价、折扣等多种业务模式.4 系统界面友好美观,操作简单易行,查询灵活方便,数据存储安全可靠.5 提供助记码及支持多种结算方式.6 系统维护安全、方便、可靠,并且能够满足实用性、先进性的要求.计算机毕业设计：进销存管理系统- -3第第 3 章章 相关技术介绍及系统数据库介绍相关技术介绍及系统数据库介绍3.1 前台开发工具语言前台开发工具语言现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft 公司的 Visual BasicMicrosoft 公司的 Visual CBorland 公司的 Delphi Powersoft 公司的 PowerBulider在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic 是一个非常理想选择。数据库是MIS 中的重要支持技术，在 MIS 开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言 Visual Basic 语言，该开发工具具有很多长处：3.1.1 Visual Basic 语言的特点：语言的特点： Visual Basic 语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动编程。（1）可视化设计：表现在 VB 在设计应用于程序界面时有“所见即所得”的处理功能。（2）事件驱动编程：在设计应用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户基本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对鼠标和键盘操作所引发的事件做出响应，来执行一段应用程序。Visual Basic 系统几个在程序应用中的常用名词：Visual Basic 系统除计算机毕业设计：进销存管理系统- -4了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：（1）视窗（Form）：视窗是进行人机交互的界面或接口，也叫窗体。VB 系统的人机交互界面或接口，无论是在设计时或是在运行时，都是 Windows 系统的标准视窗。（2）对象 (Object)：对象是 VB 系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，网格 (Data Grid)，ADO 控件 (Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象和控件。用户可以通过设置对象的“属性”和“方法” ，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。（3）属性 (Properties)：属性是 VB 系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。（4）事件 (Events)：事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB 系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有 KeyPress（按键）事件，KeyDown 事件和 KeyUp事件；鼠标事件有 Click（单击鼠标）事件，DbDlicd（双击鼠标） 。（5）方法 (Method)：方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有 Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。（6）过程 (Procedure)：过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。（7）模块 (Module)：模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。 面向对象的编程：面向对象的设计方法 (OOP, Objected Programming) 从应用领域内的问计算机毕业设计：进销存管理系统- -5题着手，以直观自然的方式描述客观世界的实体。Visual Basic 作为一种面向对象的编程方法，把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，由 Visual Basic 自动生成对象的程序代码并封装起来。Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法） 。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可扩展性和强有力的功能。Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。Visual Basic 是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发 Windows 环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与 Windows 的专业开发工具 SDK 相媲美，而且程序开发人员不必具有 C/C+编程基础。在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用 Windows 内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出 Windows 环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic 具有以下特点：可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic 提供了可视化设计工具，把 Windows 界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件” ，即图形对象，并设置这些图形对象的属性。Visual Basic 自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。面向对象的程序设计4.0 版后的 Visual Basic 支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而 Visual Basic 则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和计算机毕业设计：进销存管理系统- -6描述每个对象的程序代码，而是用工具画在界面上，Visual Basic 自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言Visual Basic 是在 BASIC 语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic 语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic 是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic 程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离 Visual Basic 环境，直接在 Windows环境下运行。事件驱动编程机制Visual Basic 通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用 Visual Basic 设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。访问数据库Visual Basic 具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理 Microsoft Access 格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic 还能直接编辑和访问其他外部数据库，如 dBASE，FoxPro，Paradox 等，这些数据库格式都可以用 Visual Basic编辑和处理。Visual Basic 提供开放式数据连接，即 ODBC 功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如 SQL Server，Oracle 等。在应用程序中，可以使用结构化查询语言 SQL 数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的 SQL 的编程技术，为单机上运行的数据库提供了 SQL 网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。动态数据交换(DDE)计算机毕业设计：进销存管理系统- -7利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic 提供了动态数据交换的编程技术，可以在应用程序中与其他 Windows 应用程序建立动态数据交换，在不同的应用程序之间进行通信。对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE 技术是Microsoft 公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用 OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。动态链接库(DLL)Visual Basic 是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将 C/C+或汇编语言编写的程序加入到 Visual Basic 应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用 Windows 应用程序接口(API)函数，实现 SDK 所具有的功能。3.2 数据库数据库简介简介数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库（relational） 。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语， 像记录、域等。3.2.1 关系型数据库的实现关系型数据库的实现Microsoft Access 2000 就是关系型数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他用户共享数据库。Access 是一种关系型数据库工具，关系型数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系型计算机毕业设计：进销存管理系统- -8数据库开发具备了许多优点，可以在一个数据包同时拥有桌面数据库的便利和关系型数据库的强大功能。3.3 二者的结合二者的结合(DBA)微软的 JET 数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access 以及其他微软的软件产品都是通过共用 JET 数据库引擎，从而给用户提供了丰富的数据类型。ADODC 控件在数据库中的信息与信息显示给用户看的 Visual Basic 程序之间架起了一座桥梁。我们可以设置 ADODC 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADODC 控件根据数据库中的一个或多个数据库表建立一个 dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的内容改变了以后，该记录集合中的记录也会随之改变。将 ADODC 控件放置在窗体中之后，我们还必须在控件与处理的数据库之间建立联系。3.3.1 使用使用 Microsoft Access 2000 创建数据库创建数据库新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1）标识需要的数据；（2）收集被子标识的字段到表中；（3）标识主关键字字段；（4）规范数据；（5）标识指定字段的信息；3.3.2 修改已建的数据库修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。3.4 软件的运行环境设计软件的运行环境设计为了保证系统运行的效率和可靠性，服务器应具有较高的软硬件配置，客户端的要求不是很高。此应用程序可广泛运行于 Internet，也适用于内部的局域网。运行要求如下：计算机毕业设计：进销存管理系统- -93.4.1 软件环境：软件环境：软件环境：服务器端：Windows2000、 IIS5.0 及其以上版本。客户端：Windows98，Internet Explorer4.0 以上版本。数据库：采用 Access 数据库，运行于服务器端。3.4.2 硬件环境：硬件环境：服务器：CPU 要求 PIII800 以上，内存 256MB 以上。客户机：CPU 要求 200MMX 以上，内存 64MB 以上。计算机毕业设计：进销存管理系统- -10第第 4 章章 系统模块设计系统模块设计根据需求分析，超市进销存管理系统的系统模块图如下4.1 超市进销存管理系统结构图超市进销存管理系统结构图 图 4-1 超市进销存管理系统结构图超市进销存管理系统日常业务库存管理查询统计基础信息管理系统设置初期建帐密码设置数据备份数据恢复供应商管理客户管理入库查询销售查询入库退货查询销售退货查询库存盘点价格管理库存查询入库单销售单入库退单销售退单计算机毕业设计：进销存管理系统- -11图 4-2 超市进销存管理系统结构图4.2 数据库需求分析数据库需求分析 针对一般超市进销存管理系统的需求,通过对航空公司管理工作流程的内容和数据流程分析,设计下面的数据项和数据结构:(1)入库单(入库票号、入库品种、入库数量、入库金额)(2)销售单(销售票号、销售日期、销售品种、销售数量、销售金额)(3)销售退单(销售退单票号、销售退单日期、退货品种、退货数量、退货金额)(4)价格管理(库存商品的进价、库存数量的修改、库存品种、库存数量、库存金额)(5)供应商管理(供应商信息的录入、保存、修改、删除)(6)客户管理(客户信息的录入、保存、修改、删除)(7)密码设置(操作员密码的修改、保存)库存盘点入库作业库存信息入库信息入库查询供应商退货返厂价格管理库存查询客户退货销售作业 客户销售查询销售信息计算机毕业设计：进销存管理系统- -12第第 5 章章 系统设计与数据库实现系统设计与数据库实现5.1 库的结构库的结构根据超市门店的业务量，本系统采用了小型的 access 数据库，数据库名称为 yyjxc数据库 yyjxc 包含以下个表：供应商基础信息表 gys、库存表kc、 、密码表 ma、客户基础信息表 kh、入库表 rkd、入库退单表 rktd、销售表xsd、销售退单表 xstd 图 5-1 yyjxc 数据库5.1.1 供应商基础信息表供应商基础信息表 gys 供应商基础信息表 gys 用来保存供应商基础信息供应商基础信息包括: 供应商编号、供应商全称、简称、地址、所属地区、邮政编码、电话传真、联系人、联系人电话、开户银行、银行帐号、纳税人登记、预付金额、实际金额、尚余欠款、网址邮箱.计算机毕业设计：进销存管理系统- -13表 5-1 供应商基础信息表字段名称数据类型字段大小 供应商编号 文本 10 供应商全称 文本 100 简称 文本 20 地址 文本 100 所属地区 文本 50 邮政编码 文本 50 电话 文本 30 传真 文本 20 联系人 文本 30 联系人电话 文本 30 开户银行 文本 100 银行帐号 文本 50 纳税人登记 文本 50 预付金额 文本 20 实际金额 文本 20 尚余欠款 文本 20 网址邮箱 文本 205.1.2 库存表库存表 kc库存表 kc 用来保存库存商品信息库存商品信息包括:商品名称、简称、批号、产地、规格、包装、单位、进价、库存金额.计算机毕业设计：进销存管理系统- -14表 5-2 库存表字段名称数据类型字段大小商品名称文本255简称文本255批号文本100产地文本255规格文本255包装文本255单位文本255进价数字双精度型库存数字双精度型库存金额数字双精度型5.1.3 密码表密码表 ma密码表 ma 用来保存操作员及操作员密码密码表包括: 操作员、密码表 5-4 密码表字段名称数据类型字段大小 操作员 文本10 密码文本65.1.4 客户基础信息表客户基础信息表 kh客户基础信息表 kh 用来保存客户基础信息客户基础信息包括: 客户编号、客户全称、简称、地址、所属地区、邮政编码、电话传真、联系人、联系人电话、开户银行、银行帐号、纳税人登记、预付金额、实际金额、尚余欠款、网址邮箱、日期.计算机毕业设计：进销存管理系统- -15表 5-3 客户基础信息表字段名称 数据类型 字段大小客户编号 文本 10客户全称 文本100简称文本20地址 文本100所属地区文本50邮政编码文本50电话文本30传真文本20联系人文本30联系人电话文本30开户银行文本100银行帐号文本50纳税人登记文本50预付金额文本20实际金额文本20尚余欠款文本20网址邮箱文本20日期 日期/时间5.1.5 入库表入库表 rkd入库表 rkd 用来保存商品入库的详细信息入库商品信息包括:商品名称、简称、批号、产地、规格、包装、单位、进价、金额、备注、供应商、日期、经手人、票号.计算机毕业设计：进销存管理系统- -16表 5-5 入库表字段名称数据类型字段大小商品名称文本100简称文本20批号文本20产地文本40规格文本50包装文本50单位文本10数量数字双精度型进价货币金额货币备注文本100供应商文本50日期日期/时间经手人文本10票号文本305.1.6 入库退单表入库退单表 rktd入库退单表 rktd 用来保存商品入库退货的详细信息入库退货信息包括:商品名称、简称、批号、产地、规格、包装、单位、进价、金额、备注、供应商、日期、经手人、票号. 表 5-6 入库退单表计算机毕业设计：进销存管理系统- -17字段名称数据类型字段大小商品名称文本100批号文本20产地文本40规格文本50包装文本50单位文本10数量数字双精度型进价货币金额货币备注文本100供应商文本50日期日期/时间经手人文本10票号文本305.1.7 销售表销售表 xsd销售表 xsd 用来保存商品销售的详细信息商品销售信息包括:商品名称、简称、批号、产地、规格、包装、单位、进价、金额、备注、供应商、日期、经手人、票号.表 5-7 销售表计算机毕业设计：进销存管理系统- -18字段名称数据类型字段大小商品名称文本100批号文本20产地文本40规格文本50包装文本50单位文本10数量数字双精度型进价货币金额货币备注文本100供应商文本50日期日期/时间经手人文本10票号文本305.1.8 销售退单表销售退单表 xstd销售退单表 xstd 用来保存商品销售退货的详细信息销售退货信息包括:商品名称、简称、批号、产地、规格、包装、单位、进价、金额、备注、供应商、日期、经手人、票号.表 5-8 销售退单表计算机毕业设计：进销存管理系统- -19字段名称数据类型字段大小商品名称文本100批号文本20产地文本40规格文本50包装文本50单位文本10数量数字双精度型进价货币金额货币备注文本100供应商文本50日期日期/时间经手人文本10票号文本305.2 系统主界面设计系统主界面设计1. 实现过程程序启动后,再登陆界面验证操作员密码后,将进入主程序界面.主程序界面主要实现如下功能:(1)选择主界面的菜单或工具栏,调用相应程序,进行相应操作.(2)显示开发者信息、系统日期和时间.主程序界面如图所示计算机毕业设计：进销存管理系统- -20图 5-2 超市进销存管理系统主程序界面其代码放置在附录 3 中一:系统登陆模块设计程序启动后,首先进入系统登陆界面验证操作员密码.系统登陆模块主要实现如下功能:可选择操作员,支持鼠标和键盘操作.操作员和密码验证成功后,进入主界面.操作员错误或密码错误提醒并返回错误点.输入三次错误的密码,系统自动退出. 系统登陆界面如图所示图 5-3 系统登陆界面其代码放置在附录 3 中计算机毕业设计：进销存管理系统- -215.3 日常业务设计日常业务设计5.3.1 入库单模块设计入库单模块设计程序启动后,选择”日常业务”菜单下的”入库单”项,将进入入库单模块.在入库单模块中主要实现如下功能:完成药品入库工作.入库采用智能化表单式录入,在商品名称栏内只需输入商品名称或简称的前几个字或按键,系统将自动利用表格显示相关商品信息,使用方向键、选择商品,回车后该商品的信息将自动录入到表格中,然后只需输入入库数量(系统自动计算商品金额),回车即可入库下一商品.自动生成入库票号,可利用键在列表框中选择供应商信息.系统自动统计入库品种、入库数量、入库金额.入库单界面如图所示图 5-4 入库单界面其代码放置在附录 3 中计算机毕业设计：进销存管理系统- -225.3.2 销售单模块设计销售单模块设计程序启动后,选择”日常业务”菜单下的”销售单”项,将进入销售单模块.在销售单模块中主要实现如下功能:完成商品销售的功能.自动生成销售票号、销售日期;统计销售品种、销售数量、销售金额.在”商品名称”栏输入商品名称或按键,即可智能检索符合条件的商品信息,以供用户选择.销售单界面如图所示图 5-5 销售单界面其代码放置在附录 3 中5.3.3 销售退单模块设计销售退单模块设计程序启动后,选择”日常业务”菜单下的”销售退单”项,将进入销售退单模块.在销售退单模块中主要实现如下功能:完成商品销售退货功能.自动生成销售退单票号、销售退单日期;统计退货品种、退货数量、退货金额.在”商品名称”栏输入商品名称或按键,即可智能检索符合计算机毕业设计：进销存管理系统- -23条件的商品信息,以供用户选择.销售退单界面如图所示图 5-6 销售退单界面其代码放置在附录 3 中5.4 库存管理设计库存管理设计5.4.1 库存查询模块设计库存查询模块设计程序启动后,选择”库存管理”菜单下的”库存查询”项,将进入库存查询模块.在库存查询模块中主要实现如下功能:选择字段查询库存商品信息,可模糊查询.删除库存商品信息.库存查询界面如图所示计算机毕业设计：进销存管理系统- -24图 5-7 库存查询界面其代码放置在附录 3 中5.4.2 库存盘点模块设计库存盘点模块设计程序启动后,选择”库存管理”菜单下的”库存盘点”项,将进入库存盘点模块.在库存盘点模块中主要实现盘点库存商品信息. 库存盘点界面如图所示图 5-8 库存盘点界面其代码放置在附录 3 中计算机毕业设计：进销存管理系统- -255.4.3 价格管理模块设计价格管理模块设计程序启动后,选择”库存管理”菜单下的”价格管理”项,将进入价格管理模块.在价格管理模块中主要实现如下功能:选择任意字段查询库存商品信息.完成库存商品的进价、库存数量的修改.统计库存品种、库存数量、库存金额.价格管理界面如图所示图 5-9 价格管理界面其代码放置在附录 3 中5.5 查询统计设计查询统计设计5.5.1 入库查询模块设计入库查询模块设计程序启动后,选择”查询统计”菜单下的”入库查询”项,将进入入库查询模块.在入库查询模块中主要实现如下功能:按任意时间段、任意字段查询入库商品信息.删除入库商品信息.入库查询界面如图所示计算机毕业设计：进销存管理系统- -26图 5-10 入库查询界面其代码放置在附录 3 中5.5.2 销售查询模块设计销售查询模块设计程序启动后,选择”查询统计”菜单下的”销售查询”项,将进入销售查询模块.在销售查询模块中主要实现如下功能:按任意时间段、任意字段查询商品销售信息.删除商品销售信息.销售查询界面如图所示计算机毕业设计：进销存管理系统- -27图 5-11 销售查询界面其代码放置在附录 3 中5.5.3 销售退货查询模块设计销售退货查询模块设计程序启动后,选择”查询统计”菜单下的”销售退货查询”项,将进入销售退货查询模块.在销售退货查询模块中主要实现如下功能:按任意时间段、任意字段查询商品销售退货信息.删除商品销售退货信息.销售退货查询界面如图所示图 5-12 销售退货查询界面其代码放置在附录 3 中计算机毕业设计：进销存管理系统- -285.6 基础信息管理设计基础信息管理设计5.6.1 供应商管理模块设计供应商管理模块设计程序启动后,选择”基础信息管理”菜单下的” 供应商管理”项,将进入供应商管理模块.在供应商管理模块中主要实现如下功能:完成供应商基本信息的录入、保存、修改、删除.选择任意字段、任意条件查询供应商基本信息.通过卡片式、列表式两种方式查看供应商基本信息.供应商管理界面如图所示.图 5-13 供应商管理界面其代码放置在附录 3 中5.6.2 客户管理模块设计客户管理模块设计程序启动后,选择”基础信息管理”菜单下的” 客户管理”项,将进入客户管理模块.在客户管理模块中主要实现如下功能:完成客户基本信息的录入、保存、修改、删除.选择任意字段、任意条件查询客户基本信息.通过卡片式、列表式两种方式查看客户基本信息.客户管理界面如图所示.计算机毕业设计：进销存管理系统- -29图 5-14 客户管理界面其代码放置在附录 3 中5.7 系统设置设计系统设置设计5.7.1 初期建帐模块设计初期建帐模块设计程序启动后,选择”系统设置”菜单下的”初期建帐”项,将进入初期建帐模块.在初期建帐模块中主要实现清空系统全部或部分数据.初期建帐界面如图所示图 5-15 初期建帐界面5.7.2 密码设置模块设计密码设置模块设计程序启动后,选择”系统设置”菜单下的”密码设置”项,将进入密码设置计算机毕业设计：进销存管理系统- -30模块.在密码设置模块中主要实现设置完成操作员密码的修改、保存.密码设置界面如图所示 图 5-16 密码设置界面其代码放置在附录 3 中哈尔滨工业大学成人高等教育毕业设计(论文)- -31结 论本系统采用的测试方法是先进行各模块测试，经过修改和调整通过以后，进行总体测试。测试结果各项功能均已基本达到设计要求。本系统采用的数据库是加密的数据库，即使其他人打开了管理员表或用户表，其中的密码是加密后的密码，同样是不能使用的密码，进一步保障了系统的安全性。本系统的实现解决了超市门店的错帐、呆帐的问题.使企业拥有现代信息技术的快速、高效的市场反映能力和高度的效率.加强了对超市产品种类繁多、销售模式特殊的管理.形成了完善、有效的激励和约束的信息化管理机制.从而提高了超市门店的持续、稳定、快速的发展.哈尔滨工业大学成人高等教育毕业设计(论文)- -32致致 谢谢在本系统的开发过程中，得到了许多老师和同学们的悉心指导和大力支持，使此设计得以顺利完成。在此特别感谢郭萍老师的指导，郭老师不仅在毕业设计过程中帮助了我，而且还指导了我对论文设计的理解。对于曾给予帮助和支持我的同学表示真诚的谢意。哈尔滨工业大学成人高等教育毕业设计(论文)- -33参考文献1 活用 Visual Basic 6.0 数据库编程陈俊元 清华大学出版社 2000 年.7 月2 Visual Basic 循序渐进教程王一华 北京希望电子出版社 1999 年.8月3 Visual Basic 6.0 参考详解 李怀名 清华大学出版社 1999 年.11 月4 Access 2000 中文版 骆元 电子工业出版社 1999 年.8 月5 中文 Access 疑难解析 郑敬云 北京电子工业出版社 1997 年.6月6 如何使用 Access 中文版郭言 北京机械工业出版社 1999 年.5 月7 Visual Basic 6.0 数据库开发指南林立军 西安电子科技大学出版社 2000 年.2 月8 Access 2000 系统开发实务 刘建南 人民邮电出版社 2000 年.3 月9 Visual Basic 6.0 高级编程技巧 白鹏 西安交通大学出版社 1999年.12 月10Access 中文版即学即通 铁超 人民邮电出版社 1999 年.4 月11Visual Basic 程序设计教程 刘瑞新 电子工业出版社 2000 年.2 月12Access 2000 中文版速成 莫卫东 北京科学出版社 1997 年.6 月13Visual Basic 6.0 数据库编程 张龙之 中国科学技术大学出版社 1999 年.6 月14Access 2000 中文版技巧与实例 马龙 中国水利水电出版社 1999年.5 月15用 Visual Basic 访问数据库 Jeffrey P. McManus 电子工业出版社 1999 年.2 月16Microsoft Access 2000 即学即会 林立于 北京大学出版社 1999年.8 月17AN INTRODUCTION TO DATABASE SYSTEMS SEVENTH EDITIONC.J.DATE 机械工程出版社 2000 年5 月18A FIRST COURSE IN DATABASE SYSTEMS JEFFREY D.ULLMAN JENNIFER WIDOM 机械工业出版社2003 年5 月 哈尔滨工业大学成人高等教育毕业设计(论文)- -34附录附录 1Web 服务随着越来越多的公司寻求在因特网上做大生意，他们面临着这样一个问题：如何使其应用程序能与其客户和供应商的应用程序一起工作。 此类集成的困难不是难在应用程序之间互相传送数据和指令，而是你要决定公共的标准、编写所需要的转换器，就是这个难题。但是随着应用程序数量的增加，可能的通信路径的数量会增加得更快。 迄今为止，对此问题的惟一解决办法是采用中间件产品。例如，视窗操作系统可以视作非常成功的中间件应用程序，它为今天的桌面软件提供了公共的消息环境。但突然间，所有的中间件供应商（包括微软公司在内）都手忙脚乱起来，为在对目前系统造成巨大冲击的 Web 服务下求得生存而重新定位。 Web 服务是一些应用程序，它们相互之间采用一种通用的语言传送数据和指令，无需转换。它们利用因特网，因而多数连接问题就迎刃而解了。 然而，因特网主要是用以人为中心的方式使用的。应用程序送出数据供人们通过浏览器加以阅读。如果在接收端是另一个应用程序，它不得不把信息从屏幕上“刮下来”（由于网站和应用程序设计者改变网页的显示格式和来回移动部件，所以这项工作注定要失败） ，或者它不得不用专用的后台频道。 Yodlee 公司就是采用双策略的例子，它是一家向银行和门户网站提供财务整合服务的公司。Yodlee 或是通过登录进入和假装是你将你的支票和信用卡资产负债表从网页上得到，或者分别请求每家金融机构发送数据。 这是一个很慢的过程，也正是 Web 服务这类技术能够更好地发挥作用的地方。 下面是一个假想的例子，如果银行能建立合适的 Web 服务，Yodlee 公司将会在一两年内如何工作：因为回应数不清的数据发送的请求而疲于奔命的各家银行，有可能建立提供资产负债平衡表的 Web 服务。 Web 服务的地址将在目录（即通用描述、发现和集成目录）中公布，该目录确定每个 Web 服务在因特网上的地址。 然后，每家银行会对 Web 服务需要什么作为输入、又能返回什么样的信息编写说明。例如，银行需要客户的账号和个人身份号码或口令，以及确认信息已经付费。此说明的格式使用基于 XML 的 Web 服务描述语言定义。 在前端，银行需要把对客户资产负债平衡表的访问，限制在经批准、有选择的中介人名单中。这需要通过口令、公开密钥或其他机制进行认证，接下来哈尔滨工业大学成人高等教育毕业设计(论文)- -35可能要对请求进行优先化处理，比方说，根据为此服务向银行支付的客户数量来决定优先等级。最后，要确认此服务的付款已收到，甚至还有可能要发送发票。 有几家公司争相要使所有这些功能变成 Web 服务。其中一家位于旧金山、叫 Grand Central Networks 的公司提供对认证方法、访问限制和优先化的选择。另一家认证和安全提供商是纽约的 CertCo 公司。 如果有家银行要从擦去（信息）来构建系统，可以用微软公司提供的BizTalk 服务器，该服务器能处理登录、认证和路由。在后台，Web 服务不得不弄到每个客户的资产负债平衡表。一个办法就是从绿色屏幕或其他界面上取出数据。这不比今天所发生的先进多少，除非银行本身能完成擦除工作，因而能控制此过程。 另一个替代办法就是把老的应用程序改造成 Web 服务，其办法是增加程序代码或重新编译，让应用程序在如微软公司新的.Net 这样的平台上运行。微软公司声称，.Net 标准倡议支持多种语言，能把老的应用程序变成 Web 服务。 现存的中间件基础结构也能用于此目的，主要的供应商争相推出此类产品，如 IBM 的 WebSphere 和 BEA 系统公司的 WebLogic。 现在真正重要的问题涉及到 Web 服务的长远影响。当新的应用程序能不管是什么样的机器、语言、操作系统和中间件都能交互时，会出现什么情况呢？基于这样的功能会产生怎样的、尚未预见到的新应用程序？我们能不能非常有把握地保证不断增加的流量？哈尔滨工业大学成人高等教育毕业设计(论文)- -36附录 2WebWeb ServicesServicesAs more and more companies seek to conduct significant business over the Internet, they face the problem of making their applications work with those of their customers and suppliers. The difficulty with this type of integration isnt that its hard to get applications to send data and instructions to one another-you just decide on a common standard, write any needed converters, and thats it.But as the number of applications goes up, the number of possible communications paths increases much faster. Until recently, the only solution to this problem was to go with a middleware product. For example, the Windows operating system, which you can think of as a very successful middleware application, provides a common messaging environment for much of todays desktop software. But suddenly, all of those middleware vendors (including Microsoft Corp.) are scrambling furiously to position themselves to survive whats about to be a big shock to the current system: Web services. Web services are applications that use a universal language to send data and instructions to one another, with no translation required. And they use the Internet, so most of the connection problems are eliminated. So far, the Internet has been used primarily in a people-centric way. Applications send out data for humans to read through Web browsers. If another application is on the receiving end, it has to “scrape” the information off the screen (a task bound to fail as Web and application designers change page layouts and move elements around), or it has to use a dedicated back channel. An example of a company using both strategies is Yodlee. Com. Inc., a provider of financial account aggregation services to banks and portals. Yodlee either scrapes your checking and credit card balances off Web pages by logging in and pretending to be you, or it asks each financial institution individually to send it the data. Its a slow process. And just the kind of thing Web services could handle better. Heres a hypothetical example of how Yodlee could work in a year or two, if banks were to create appropriate Web services: Tired of fielding numerous requests for data feeds, each bank could set up a Web service that provides account balances. The address of the Web service would be published in a directorythe Universal Description, Discovery and Integration directorywhich locates each Web service on the Internet. Then each bank would write a description of what its Web service would require as input and what information would be given out in return. For example, the bank would want the customers account number and personal identification number 哈尔滨工业大学成人高等教育毕业设计(论文)- -37or password, and confirmation that payment for the information had been sent. The format for this description would be defined in the XML-based Web Services Description Language. On the front end, the bank would need to limit access to customersaccount balances to a select list of approved intermediaries. That would require authentication through passwords, public keys or other mechanisms. Then it might want to prioritize requestssay, by how much customers are paying the bank for the service. Finally, it would want to confirm that payment for the service had arrived and maybe even send a receipt. Several vendors are lining up to enable all of these functions as Web services. One such vendor is Grand Central Networks Inc. in San Francisco, which offers a choice of authentication methods, access restriction and prioritization. Another security and authentication provider is New York-based CertCo Inc. If a bank wanted to build a system from scratch, Microsoft offers BizTalk Server, which can handle logging, authentication and routing. On the back end, the Web service would have to get each customers balance somehow. One way would be to scrape the data off a green screen or other interface.This isnt much more advanced than what happens today, except that the bank itself would be doing the scraping and thus could control the process. Another alternative would be to turn the legacy application into a Web service by adding code or recompiling it to run on, say, Microsofts emerging .Net platform. Microsoft claims that its .Net initiative supports a variety of languages and that it will be able to turn legacy applications into Web services. Existing middleware infrastructures could also be used for that purpose, and the leading vendors are lining up productsincluding IBMs WebSphere and BEA Systems Inc.s WebLogic. Now, the really interesting questions involve the longer-term implications of Web services. What happens when new applications can interact with all othersregardless of machine, language, operating system or middleware? What new, unforeseen applications may emerge from this capability? And will we be able to adequately safeguard such increased traffic? 哈尔滨工业大学成人高等教育毕业设计(论文)- -38附录 3部分原代码:Public Sub entercell() Dim x, y As String If Text1.Text = 1 Then Set myform = main_rcyw_rk If Text1.Text = 2 Then Set myform = main_rcyw_rktd If Text1.Text = 3 Then Set myform = main_rcyw_xs If Text1.Text = 4 Then Set myform = main_rcyw_xstd If myform.mf1.CellWidth = 0 Or myform.mf1.CellHeight = 0 Then Exit Sub x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col) y = myform.mf1.TextMatrix(myform.mf1.Row, 0) If y Then If myform.mf1.Col - myform.mf1.LeftCol 0 And myform.mf1.CellHeight 0 Then myform.Text1.Width = myform.mf1.CellWidth myform.Text1.Height = myform.mf1.CellHeight myform.Text1.Left = myform.mf1.CellLeft + myform.mf1.Left myform.Text1.Top = myform.mf1.CellTop + myform.mf1.Top End If x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col) y = myform.mf1.TextMatrix(myform.mf1.Row, 0) p = myform.mf1.TextMatrix(myform.mf1.Row, myform.mf1.Col) myform.Text1.Text = myform.mf1.Text myform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text) End IfEnd SubPublic Sub moveright() If Text1.Text = 1 Then Set myform = main_rcyw_rk If Text1.Text = 2 Then Set myform = main_rcyw_rktd If Text1.Text = 3 Then Set myform = main_rcyw_xs哈尔滨工业大学成人高等教育毕业设计(论文)- -39 If Text1.Text = 4 Then Set myform = main_rcyw_xstd If myform.Text1.Text Then myform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text) End If If myform.mf1.Col + 1 = myform.mf1.Cols - 1 Then myform.mf1.Col = myform.mf1.Col + 1 Else If myform.mf1.Row + 1 = myform.mf1.Rows - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1 End If End IfEnd SubPublic Sub moveleft() If Text1.Text = 1 Then Set myform = main_rcyw_rk If Text1.Text = 2 Then Set myform = main_rcyw_rktd If Text1.Text = 3 Then Set myform = main_rcyw_xs If Text1.Text = 4 Then Set myform = main_rcyw_xstd If myform.Text1.Text Then myform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text) End If If myform.mf1.Col - 11 = myform.mf1.Cols + 1 Then myform.mf1.Col = myform.mf1.Col - 1 If myform.mf1.Col = 0 Then myform.mf1.Col = 1 Else If myform.mf1.Row + 1 = myform.mf1.Row - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1 End If End IfEnd SubPublic Sub movereturn() If Text1.Text = 1 Then Set myform = main_rcyw_rk哈尔滨工业大学成人高等教育毕业设计(论文)- -40 If Text1.Text = 2 Then Set myform = main_rcyw_rktd If Text1.Text = 3 Then Set myform = main_rcyw_xs If Text1.Text = 4 Then Set myform = main_rcyw_xstd If myform.mf1.Col = 10 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1 Else If myform.mf1.Col + 1 = myform.mf1.Cols - 1 Then myform.mf1.Col = myform.mf1.Col + 1 Else If myform.mf1.Row + 1 = myform.mf1.Rows - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1 End If End If End IfEnd SubPrivate Sub Form_Load()在标题栏上显示软件名称及版本 Me.Caption = App.Title & 版本： V & App.Major & . & App.Minor & . & App.Revision Dim i As Integer 定义一个整型变量 For i = 0 To 1 Label1(i).Caption = App.Title Next i Label2.Caption = 版本： V & App.Major & . & App.Minor & . & App.RevisionEnd SubPrivate Sub rkd_Click() 调入入库单 Load main_rcyw_rk main_rcyw_rk.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsd_Click() 调入销售单 Load main_rcyw_xs哈尔滨工业大学成人高等教育毕业设计(论文)- -41 main_rcyw_xs.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsth_Click() 调入销售退货 Load main_rcyw_xstd main_rcyw_xstd.Show frm_main.Enabled = FalseEnd SubPrivate Sub rkth_Click() 调入退货返厂 Load main_rcyw_rktd main_rcyw_rktd.Show frm_main.Enabled = FalseEnd SubPrivate Sub kccx_Click() 调入库存查询 Load main_kcgl_kccx main_kcgl_kccx.Show frm_main.Enabled = FalseEnd SubPrivate Sub kcpd_Click() 调入库存盘点 Load main_kcgl_kcpd main_kcgl_kcpd.Show frm_main.Enabled = FalseEnd SubPrivate Sub jggl_Click() 调入价格管理 Load main_kcgl_jggl main_kcgl_jggl.Show frm_main.Enabled = FalseEnd SubPrivate Sub rkcx_Click() 调入入库查询 Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = 0 frm_main.Enabled = FalseEnd SubPrivate Sub thfccx_Click() 调入退货返厂哈尔滨工业大学成人高等教育毕业设计(论文)- -42 Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = 1 frm_main.Enabled = FalseEnd SubPrivate Sub xscx_Click() 调入销售查询 Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = 2 frm_main.Enabled = FalseEnd SubPrivate Sub xsthcx_Click() 调入销售退货查询 Load main_rqDialog main_rqDialog.Show main_rqDialog.Text1.Text = 3 frm_main.Enabled = FalseEnd SubPrivate Sub gysgl_Click() 调入供应商管理 Load main_jbxx_gys main_jbxx_gys.Show frm_main.Enabled = FalseEnd SubPrivate Sub khgl_Click() 调入客户管理 Load main_jbxx_kh main_jbxx_kh.Show frm_main.Enabled = FalseEnd SubPrivate Sub cqjz_Click() 调入初期建帐 Load main_xt_cqjz main_xt_cqjz.Show frm_main.Enabled = FalseEnd SubPrivate Sub mmsz_Click() 调入密码设置 Load main_xt_mmsz main_xt_mmsz.Show哈尔滨工业大学成人高等教育毕业设计(论文)- -43 frm_main.Enabled = FalseEnd SubPrivate Sub sjbf_Click() 调入数据备份 Load main_xt_sjbf main_xt_sjbf.Show frm_main.Enabled = FalseEnd SubPrivate Sub sjhf_Click() 调入数据恢复 Load main_xt_sjhf main_xt_sjhf.Show frm_main.Enabled = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Is = rkd 调入入库单 rkd_Click Case Is = xsd 调入销售单 xsd_Click Case Is = xscx 调入销售查询 xscx_Click Case Is = kccx 调入库存查询 kccx_Click Case Is = gys 调入供应商管理 gysgl_Click Case Is = kh 调入客户管理 khgl_Click Case Is = cqjz 调入初期建帐 cqjz_Click End SelectEnd SubPrivate Sub exit_Click() EndEnd Sub Dim x, i 定义变量哈尔滨工业大学成人高等教育毕业设计(论文)- -44Public Sub viewdata() 定义显示数据的函数 For i = 0 To 16 If Data1.Recordset.Fields(i) Then kh(i).Text = Data1.Recordset.Fields(i) Else kh(i).Text = Next iEnd SubPrivate Sub Form_Activate() 向 combo1 添加查询项目列表 x = Array(客户编号, 客户全称, 简称, 地址, 所属地区, 邮政编码, 电话, 传真) For i = 0 To 7 Combo1.AddItem (x(i) Next i Combo1.Text = 客户全称初始化给 kh(i)赋值 If Data1.Recordset.RecordCount 0 Then Call viewdata 调用函数 End IfEnd SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & yyjxc.mdb 自动识别数据库路径End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = True Unload MeEnd SubPrivate Sub ComFind_Click()查询客户信息 Data1.RecordSource = select * from kh where (kh. & Combo1.Text & & like + Chr(34) + Text1.Text + * + Chr(34) + ) Data1.Refresh Call viewdata 调用函数End SubPrivate Sub kh_KeyDown(Index As Integer, KeyCode As Integer, Shift 哈尔滨工业大学成人高等教育毕业设计(论文)- -45As Integer)回车获得焦点 If KeyCode = vbKeyReturn And Index 0 Then If SSTab1.Tab = 2 And ComAdd.Enabled = False Then MsgBox (您正在处理数据,请取消数据处理,在执行本操作!) SSTab1.Tab = 0 Else End If End IfEnd SubPrivate Sub CmdMD_Click(Index As Integer) Select Case Index Case Is = 0 移到第一条记录 If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Case Is = 1 移到上一条记录 If Data1.Recordset.RecordCount 0 Then If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst End If Case Is = 2 移到下一条记录 If Data1.Recordset.RecordCount 0 Then If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End If Case Is = 3 移到最后一条记录 If Data1.Recordset.RecordCount 0 Then If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End If End Select哈尔滨工业大学成人高等教育毕业设计(论文)- -46 Call viewdata 调用函数End SubPrivate Sub ComAdd_Click() 允许用户添加新记录 For i = 0 To 16 kh(i).Text = kh(i).Enabled = True Next i ComSaveM.Visible = True: C
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号