《物资管理系统免费毕业设计论文.doc》由会员分享，可在线阅读，更多相关《物资管理系统免费毕业设计论文.doc（40页珍藏版）》请在三一办公上搜索。
1、物资管理系统目 录摘 要0绪论1第一章：系统开发背景及意义211 管理信息系统概述212 物资信息系统开发的意义2第二章 国内外现状的研究32.1国外现状322 国内状况3第三章 应用系统开发工具43.1 Visual Basic简介及实现原理43.2 数据库组件介绍53.3 Access 2000简述7第四章、系统设计分析94.1需求分析94.2模块划分104.3流程图设计114.4数据库设计12第五章 应用程序设计1451.登陆界面设计145.2系统主界面设计175.3、货品入库界面实现195.4货品出库界面实现225.5、查询界面实现245.6、系统权限设置界面实现26总结31致谢31参
2、考文献32摘 要随着现代工业的发展，计算机信息管理系统越来越受到企业重视。本文主要分析了物资管理系统的一些基本功能和组成情况，包括系统的需求分析、系统结构，功能模块划分以及数据库模式分析等，重点对应用程序的实际开发实现作了介绍。达到了数据的一致性和安全性，且应用程序功能完备，符合了物资管理系统作为典型的信息管理系统(MIS)的要求。同时简单介绍了Visual Basic编程环境和Access数据库管理系统的功能特点，物资管理系统是企业物流管理中不可或缺的一部分。关键词：物资管理，数据库，信息管理，VBAbstractWith the development of modern industry
3、, the information management system of the computer is being paid attention to by enterprises. This text has analysed some basic functions of the administrative system of the stock and makes up the situation mainly, including the systematic demand is analysed, systematic structure, the function modu
4、le divides and the data base mode is analysed etc., have realized doing the introduction to the actual development of the application program especially. Having reached the consistency and security of the data, and the application program function is complete, have accorded with the administrative s
5、ystem of the stock as the request for the typical information management system (MIS). Introduced the function characteristics of Visual Basic programming environment and Access data base management system briefly at the same time, the administrative system of the stock is an indispensable part in e
6、nterprises material flow management.Keywords: stock management, database, information management, VB绪论物资管理系统是一个企事业单位不可缺少的一部分,它的内容对于企业的决策者和管理者来说都是至关重要的，因此，物资管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统的人工方式管理物资管理，这种管理方式存在着许多缺点，诸如效率低，保密性差等，而且时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学不断发展，其强大的功能
7、已经被人们深刻认识，它已经进入了人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对产品物资管理信息进行管理，具有着人工管理无法比拟的优点，它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，可减少更多的人力物力，这些都能够极大地提高货品物资管理的管理效率，也是企业物资管理科学化、正规化，与世界接轨的重要条件。因此，开发一个物资管理系统是很有必要的，具有其特有的技术意义和管理意义。第一章：系统开发背景及意义当今社会是一个信息社会，一个知识经济时代。自世界上第一台计算机ENINC(Electronic numerical integrator and
8、 calculator)于1946年在美国问世到现在，计算机业飞速发展，技术淘汰指标高的惊人，价格下降以及软件应用的快速扩展引发了以信息处理计算机化为标志的“微机革命”，随之而来的是以全球信息网络普及和全球信息共享为标志的“全球信息网络革命”的蓬勃兴起。可见，世界已进入在计算机信息管理领域中激烈竞争的时代，计算机已经变得普通的不能再普通的工具，如同我们离不开的自行车、汽车一样。我们应该承认，谁掌握的知识多，信息量大，信息处理速度快，批量大，谁的效率就高，谁就能在各种竞争中立于不败之地。 11 管理信息系统概述管理信息系统（MIS）的概念是1961年美国人J。D。GALLAGHER首先提出来的，
9、是一门新兴的、集管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是企业中信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行现代化管理。管理信息系统是企业的信息系统，它具备数据处理、计划、控制、预测和辅助决策功能，具体作用如下：（1） 用统一标准处理和提供信息，排除使用前后矛盾的不完整的数据。（2） 完整、及时提供在管理及决策中需要数据。（3） 利用指定的数据关系式分析数据，客观预测未来。（4） 向各级管理机构提供不同详细程度的报告，缩短分析和解释时间。（5） 用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业
10、的经济效益。12 物资信息系统开发的意义信息已成为继劳动力、土地、资本之后的又一大资源。谁控制的信息越多，谁利用信息资源的效率越高，谁就会在各方面的竞争中占有一席之地，谁就会有更多的优势。物资供应部门是企业与生产单位之间的桥梁、纽带，是企业正常生产的物资保障部门。正因为供应部门是关键的中转环节，建立一套物资 管理信息系统对于如何有效的把本单位生产所需的生产资料及时、保质保量的供应上去，有着重要的意义。从微观上讲，建立一套物资管理信息系统能够加快物资的周转速度，提高生产效率，从而加强了管理的信息化手段，提高了本单位的经济效益。从宏观上讲，顺应了社会的信息化、社会化潮流，缩短了整个社会化大生产的周
11、期。第二章 国内外现状的研究2.1国外现状计算机的发明应用，被视为人类的第三次重大的科学技术革命，是一次飞跃。过去的革命最高成就就是“用机器制造机器”，是手的延长，而计算机的出现却能做到“用机器控制机器”，是脑的延伸。计算机是提高生产效率的主要工具 及途径。在西方国家，计算机系统的发展有以下四个阶段：第一阶段（1954-1964）电子数据处理阶段（EDP）。 此阶段以单项数据处理为主，如财务管理、物资管理、工资管理等。第二阶段（1964-1974）管理信息系统阶段（MIS）。在这期间，由于高速度的处理机、高速度大容量的存储器与器件有了突破性进展，使得计算机应用系统从单项应用的 EDP发展到多功
12、能、多层次、综合性的应用阶段，使得 MIS日渐成熟，具有了控制、预测、辅助和决策的功能。第三阶段（1974-1980）决策支持系统阶段（DSS）。在此阶段解决的主要是面向高层管理，大范围的决策问题以及非结构化信息的处理。第四阶段（1980-）职能管理系统阶段（IMS）。这个阶段强调的是综合管理功能，多维服务模式，人机协调的、智能化的、集成化的计算机辅助管理功能等。据统计，目前，美国在财务会计上占有90%的工作由计算机完成；物资管理中80-100%的信息处理由计算机完成；计划管理是8090%；在计算机应用发展较快的国家中，计算机应用于经济管理的占80%；用于科技计算的占8%，用于生产过程控制的占
13、12%；由此可以看出，经济管理是计算机应用的主要领域。 22 国内状况由于种种原因，我国的信息资源建设水平远远落后于信息基础设施的建设的水平。长期以来，我国信息资源的开发管理未能与信息资源的增长同步进行。我国有丰富的原始信息资源，但在此基础上再生的二次信息系统和数据库产业的规模和市场占有率、使用率相当低，大量的有价值的信息未能进一步加工成商品使其增值。我国的计算机应用要比西方国家落后十几年，管理信息系统的开发应用是从1973年开始的，83年以后才开始了大量的实际的开发和研究工作。因此，信息资源的开发和利用已被确立为国民经济信息的核心内容，信息数字化，传输的网络化是缩小发展中国家与发达国家差距的
14、捷径，值世界信息化浪潮正以不可阻挡之势席卷全球时，我国要迎头赶上，就必须利用现有的信息基础设施，重点开发和推广应用于各类科技经济等数据库和网络资源服务系统，以便取得巨大的社会效益和经济效益。由于种种原因，我国的信息资源建设水平远远落后于信息基础设施的建设的水平。长期以来，我国信息资源的开发管理未能与信息资源的增长同步进行。我国有丰富的原始信息资源，但在此基础上再生的二次信息系统和数据库产业的规模和市场占有率、使用率相当低，大量的有价值的信息未能进一步加工成商品使其增值。我国的计算机应用要比西方国家落后十几年，管理信息系统的开发应用是从1973年开始的，83年以后才开始了大量的实际的开发和研究工
15、作。因此，信息资源的开发和利用已被确立为国民经济信息的核心内容，信息数字化，传输的网络化是缩小发展中国家与发达国家差距的捷径，值世界信息化浪潮正以不可阻挡之势席卷全球时，我国要迎头赶上，就必须利用现有的信息基础设施，重点开发和推广应用于各类科技经济等数据库和网络资源服务系统，以便取得巨大的社会效益和经济效益。由于物资管理在社会大生产中占用重要地位，其计算机化在发达国家已达到95%以上，而我国在全国范围内推广计算机在管理中的应用，是在80年代初开始的。起步虽晚，但发展快。特别是微型计算机的出现和普及，为信息处理提供了物美价廉的手段，对于推动我国管理信息处理现代化起到了重要作用。 第三章 物资管理
16、工作中存在的主要问题技术检测中心是1991年初成立的局属二级单位，主要负责油田地区各单位的安全教育、工程质量、锅炉压力容器、计量设备、仪器仪表及环境检测，井架检测等监督检测工作。供应站则负责保证检测工作的顺利进行所需的物资正常供应工作。我单位供应站属直属四级站，物资类别99大类，年吞吐量450万元，周转速度为49天，库存30万元，一年以上无动态积压物资4万元。供应站每月要向局供应处及中心机关上报月度库存清册，其数据都是从各种账本中收集，再统计，最后逐级汇总再报送。目前存在的主要问题是：1 ） 根据各三级单位所报材料明细逐个与库存账本对照查阅，进行库平，即库中有其所需材料则开据料单从库中领取，若
17、库中无，则通知采购人员采购。库中物资种类繁多，查对繁琐，易出错。2 ） 从开据发料单到每月结帐、清册都是手工操作，计算器加算盘，效率低且准确率不高。单位配备的计算机仅局限于打字，做报表，不能开单据，计算机应有的功能没有充分发挥。针对以上存在的问题，领导决定通过建立物资管理信息系统使物资管理工作更加规范化、程序化，提高其处理工作的速度和准确性，也便于动态查询，提高决策水平第三章应用系统开发工具3.1 Visual Basic简介及实现原理Visual Basic（简称VB）是美国微软公司（Microsoft）于1990年推出的一套完整的Windows系统软件开发工具，可用于开发Windows环境
18、下的各类应用程序，是一种可视化、面向对象、用事件驱动方式的结构化高级程序设计语言和工具，是目前使用最广泛的编程语言之一。至今以升级到了6.0版。VB的重要特点之一是可视性。系统引进了窗体和控件的机制，用于设计应用程序界面。用户通过在屏幕上生成窗体，在窗体中绘制所需要的控件和按钮，设计菜单和对话框，VB会自动生成相应的代码。VB的另一重要特点是事件驱动。当窗体或控件上发生一个事件时，VB立即把控制权交给程序员。程序员不必担心如何判断事件是否已发生，只需要编写一段代码告诉计算机在事件发生以后应该做什么工作就可以了。这样，设计一个Windows应用程序简化为用鼠标在屏幕上点击、拖拽并添加少量的代码就
19、可以完成了，大大降低了对程序设计的要求，提高了应用程序的开发效率。利用VB的可视性特点，可方便的设计了程序的窗体界面，并在各个窗体中的合适位置绘制所需的每种控件。如要修改窗体或控件的某项属性，只需在相应的窗体或控件的属性窗口修改相应的参数便可达到需要的设计效果。利用VB的事件驱动性特点，只需在窗体或控件上的代码窗口中添加少量的代码，便可达到告诉当在相应的窗体或控件上发生某一事件时，它们在事件发生后应该做什么工作的目的。例如几个窗体上的添加、删除、返回按钮的作用，就是通过在各个相应按钮的代码窗口中输入相应的代码，来达到当在几个按钮上出现单击（Click）事件后，相应按钮实现添加、删除、返回的功能
20、的。3.2 数据库组件介绍在使用Visual Basic开发数据库应用程序的时候，会经常使用数据库访问控件。这些控件包括：Data控件；ADO Data控件；DataList控件/DataCombo控件；DataGrid控件；MSChart控件。下面将分别对这些控件的主要功能及使用方法进行介绍。3.2.1Data控件Data控件是Visual Basic中最基本的数据库操作控件。它使用Recordset对象提供对存储在数据库中数据的访问。Data控件允许从一个记录移动到另一个记录，并显示和操纵来自被连接控件的记录的数据。许多其他的数据库操作控件都需要Data控件或类似的数据源控件（比如ADO
21、Data控件）。Data控件可以执行大部分数据库访问操作，但是它并不能显示数据库中数据的内容。Data控件通常需要与其他控件结合使用。这些与Data控件结合使用的控件，可以称之为“数据觉察控件”。因为程序员无需编写任何代码，就可以在这些控件中显示当前记录的数据。当Data控件中当前记录发生变化时，数据觉察控件的内容也会随之发生变化。当与Data控件相连接时，DataList、DataCombo、DataGrid和MSHFlexGrid控件都能管理记录集合。所有这些控件都允许一次显示或操作几个记录。内部的Picture、Label、TextBox、CheckBox、Image、OLE、ListB
22、ox和ComboBox控件也是数据觉察的，能和由Data控件管理的Recordset对象的某个字段相连接。3.2.2ADO Data控件ADO Data控件与内部Data控件以及Remote Data控件（RDC）相似。用户可以使用ADO Data控件快速地创建一个到数据库的连接。3.2.3DataList控件/DataCombo控件DataList控件是一个数据绑定列表框，它可以自动地由一个附加数据源中的一个字段充填，并且可选择地更新另一个数据源中一个相关表的一个字段。DataCombo控件的功能与DataList控件完全相同，只不过DataCombo控件是一个组合框。3.2.4DataGr
23、id控件在许多情况下，需要使用表格形式来显示数据库中的数据。这时就要借助于DaatGrid控件。用户可以设置DataGrid控件的DataSource属性为一个ADO Data控件，从而将ADO Data中的数据自动地填充到DataGrid表格中。这个DataGrid控件实际上是一个固定的列集合，每一列的行数都是不确定的。3.2.5MSChart控件MSChart控件的功能是以图形方式显示数据的图表。这会使枯燥的数据变得更加生动直观，增加了程序的实用价值。MSChart控件支持一下特性：1、真三维表示；2、支持所有主要的图表类型；3、数据网络成员支持随机数据，数据数组。3.3 SQL语言在VB
24、中的应用1.SQL提供的实用函数为实现使用VB程序调用SQL语言访问Access数据库多个记录的目的，我们利用SQL提供的函数。Davg Function（求平均值）Dcount Function（计算满足条件的记录数）Dfirst Function（返回记录集的第一个记录的某个域值）Dlast Function（返回记录集的最后一个记录的某个域值）Dlookup Function（返回记录集中满足待定条件的记录的域值）Dsum Function（求和计算）Dmax Function（求最大值）Dmin Function（求最小值）利用以上的SQL函数能够方便地进行数据库文件记录地查询和统计工
25、作，以Dsum为例，语法如下：Dsum(expr,clomain,criteria)例：计算目的港为英国地所有订单地运费总和。假定“Orders”是数据库文件中地一张表格，则x=Dsum(“Feight”,”Order”.”ship country=UK”)2.利用SQL访问多个记录地方法在进信息查询和统计地过程中，我们往往需要从记录集中根据待定的条件提取其中的一部分记录信息。这种改变基于数据库关系视图的记录集，这里我们介绍提取记录信息的有效方法。（1）建立一个新的查询set mydb=Open Database(“c:DIR1manage.mdb”)（打开数据库文件c:DIR1manage.
26、mdb）set myquery=mydb.creat QueryDef(“monthquery”)(创建查询名为monthquery的查询)Myquery.SQL=”select*from OPNRPT where mid $(year,7,2)=”&yeartext.text&”(利用查询的SQL属性，建立查询依据，即查询的条件。这里用到了Setect Statement)以后如果需要这样的查询，只需要引用查询名”monthquery”即可。需要说明的两点是：使用前先定义Dim mydb AS Database及myquery AS querydef.查询”monthquery”没有使用Da
27、ta控件，也就不直接显示信息。（2）如何设置Data控件的Recordsource属性设置Datasource属性的命令为：Data.Recordsource=”Setect Vss_code,voyage,Sum(weight)AS Weight20 from monthquery where ctn_size=20group by Vss_code,Voyage”在这个命令中字段名Vss_code为船名代码，Voyage为航次，ctn_size为集装箱号，weight为集装箱重量。计算机通过增加了条件的monthquery查询组成了新的记录集。AS为关键字表示，并定义了别名。通过这一个方法
28、定义的记录集可以使用move和Find方法逐条记录的进行操作。3.3 Access 2000简述Access2000 是关系数据库开发工具，1992年，Microsoft Access作为第一个面向Windows操作平台的桌面数据库管理系统而诞生，它不但充分体现了面向对象的思想，提供可视化的编程手段，而且充分利用了Windows操作平台的优越性，采用与Windows完全一致的界面风格，使界面非常友好。在Access中，用户不需要编写复杂的程序就可以建立一个完整的数据库应用系统，是一个典型的开放式数据库系统，它可以和Windows下的其他应用程序共享数据库资源。数据库能汇集各种信息以供查询、存储
29、和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于
30、组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 3.3.1 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被标识的字段到表中；3 标识主关键字字段；4 绘制一个简单的数据图表；5 规范数据；6 标识指定字段的信息；7 创建物理表。_ 修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均
31、可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。3.3.2 实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。第四章、系统设计分析4.1需求分析本
32、套应用程序名称为“物资管理系统”，主要用于物资管理货品信息的管理，系统包括物资管理、入库、销售、一些统计查询和报表等几部分组成。物资管理系统需满足物资管理员及工作人员的需求，他们具有登陆应用系统的权限，所以需要对工作人员的登陆本模块进行更多的考虑，设计不同用户的操作权限和登陆方法。对于一个物资管理来说，最大的功能就是存储货品，所以物资管理就是对货品信息，物资管理信息，短线货品及超储货品的管理，用户可以根据实际情况对各种货品信息进行分类管理，包括添加，删除更新数据库等。当然，物资管理中货品入库也是常有的事，入库管理操作就是对于货品入库情况的管理，用户可以方便地输入一些货品的信息。有了货品的入库，
33、自然也就有货品的销售，这部分提供的功能与入库操作流程差不多，有所区别的只是对一些销售货品的管理，也很方便数据的输入。物资管理货品的信息量大，数据安全性和保密性要求高。本系统实现对货品信息的管理和总体的统计等，物资管理信息，供货单位和经办人员信息的查看及维护。物资管理人员可以浏览、查询、添加、删除等货品的基本信息以及统计等，并可以对一些基本的信息生成报表形式，并打印输出的功能。报表是一个数据库中最重要的功能之一，有了报表才能清楚地知道货品的出入库情况，在数据报表功能中包括销售报表，物资管理报表及经办人员报表等一些基本信息的打印，方便简洁。本系统基本涵盖了物资管理的主要需求，具有完善细致的功能、友
34、好的用户界面、强大的数据处理功能和完备的安全机制；随心所欲的查询和所见即所得的打印功能，并全面支持分析和决策的功能。 系统特色： 1.设置系统用户登陆功能，即时对系统数据进行安全设置与保护。 2.友好的用户界面，业务操作简单，进入系统即能使用。3.成熟先进的技术和系统构架，采用先进的数据库访问方式，数据更安全，性能更稳定。4.强大的数据处理能力和开放的数据接口，选用具有大型数据库安全机制的数据库系统，提供各种级别的数据保护和权限控制方式，确保数据的安全可靠。5.系统每种操作都可以通过菜单来进行。操作快捷、方便。易懂易会。系统集输入、维护、查询、统计和各种处理为一体，信息导入导出方便共享。物资管
35、理系统4.2模块划分系统维护数据报表查询统计货品管理期初设置数据备份恢复权限设置密码修改操作员管理供应商信息仓库设置期初设置归还货品出库货品收供货品入库货品基本模块与功能：1.系统包括用户管理，密码管理，关闭系统，以及数据的备份与恢复，可以根据需要对整个数据库进行备份，以确保数据的安全性。帮助：本系统的帮助信息，包括应用程序的版本信息；2.物资管理货品信息管理：对物资管理里的货品进行登记；货品物资管理：管理物资管理的物资管理情况；货品管理：对物资管理里短线的货品进行登记，以便及时采购补货；3.入库管理入库登记管理：能对货品的入库登记，删除，更改等；入库期间统计：货品入库期间年度的统计；4.出库
36、管理出库登记管理：能对货品的出库登记，删除，更改等；4.打印与查询可根据输入的条件，对货品的入库信息，物资管理信息等进行简单查询和组合查询。5.管理员权限设置系统超级管理员可以对系统管理员进行那一项操作进行设置。具体包括添加、删除、修改、查询。4.3流程图设计登陆管理系统验证用户信息系统主窗体仓库管理入库管理出库管理操作员管理期初设置权限设置登录日志打印、查询系统货品入库单经办人员报表货品出库单数据备份备份输出仓库汇总图41 物资管理系统数据流程图 密码错误 汇总计算货品登记基本信息录入货品基本信息管理货品调配汇总出库货品信息管理入库货品信息管理货品其他信息管理图42 货品信息管理数据流程图4
37、.4数据库设计本物资管理系统是应用在单机系统上的，所以只需建立起一个数据库，在此数据库基础上建立起表格，现将部分数据结构表描述如下：仓库信息表（cksz）表1仓库信息表字段名数据类型字段长度是否为空仓库名称文本20负责人文本10联系电话数字13所属单位文本20构建日期日期13备注文本50表2仓库信息表入库登记表字段名数据类型字段长度是否为空入库日期日期/时间货品单号文本10货物编码文本5货物名称文本10数量数字长整型单价货币供货商编号文本5供货商名称文本20备注备注表3入库登记表出库登记表字段名数据类型字段长度是否为空出库日期日期/时间货品单号文本10货物编码文本5货物名称文本10数量数字长整
38、型单价货币备注备注供货单位信息表字段名数据类型字段长度是否为空供货商编号文本5供货商名称文本50供货商地址文本50电话文本15联系人文本8表5供货单位信息表用户表字段名数据类型字段长度是否为空用户名文本10密码文本6权限文本6表7用户表另外，我们还建立了几张查询表，用以存放部分用于计算的统计信息，以便查询。入库登记统计表 入库登记_合计货品入库年度统计表入库登记_n供货单位年度供货金额统计表入库登记_w物资管理汇总表物资管理销售登记统计表销售登记_合计第五章应用程序设计51.登陆界面设计在进入系统，要求输入用户名和密码。如果输入正确的用户名和密码则进入系统主界面，若系统用户名和密码不正确则无法
39、进入系统，在这个登陆界面有系统用户名的显示，也可以进行选择登陆，若密码输错三次后则系统自动退出，不允许你再输入。系统登陆包括管理员和普通管理员登陆，用户权限可以由超级管理员身份登录后进行设置，普通用户无权进行修改自己的权限。登录界面源代码如下：Dim itmX As ListItem 定义一个ListItem对象Dim aDim key As String 定义字符串变量* 用户登录按钮的事件代码 *Private Sub Command1_Click() rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实
40、现取消窗体置前的功能On Error Resume NextDim MPassword As StringIf Text2.Text = mr And Text1.Text = mingrisoft Then 判断是否使用的是超级口令登录 frm_main.StatusBar1.Panels.Item(2).Text = 当前操作员： mr Name1 = Text2.Text Unload Me frm_main.ShowElse Adodc1.RecordSource = select * from tb_enter where M_Name = & Text2.Text & Adodc1
41、.Refresh If Adodc1.Recordset.RecordCount 0 Then MPassword = Adodc1.Recordset.Fields(M_Password) If Text1.Text = MPassword Then 判断数据的密码是否正确 frm_main.StatusBar1.Panels.Item(2).Text = 当前操作员： + Adodc1.Recordset.Fields(M_Name) Name1 = Text2.Text frm_main.Show 添加登录日志 Open (App.Path & 系统日志.ini) For Input A
42、s #1 Do While Not EOF(1) Line Input #1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) Loop Close #1 TStr = TStr + + Name1 + + Format(Now, yyyy-mm-dd hh:mm:ss) + + 系统登录 + Chr(13) + Chr(10) Open (App.Path & 系统日志.ini) For Output As #1 Print #1, TStr Close #1 Unload Me Else MsgBox 密码不正确,请您确认后重新输入, , 库
43、存管理系统 Text1.Text = Text1.SetFocus End If Else MsgBox 对不起 没有此用户的信息, , 库存管理系统 Text2.Text = Text1.Text = End If End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()Call WHScreen rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现使窗体置前的功能使用代码连接数据库与数据表Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.P
