工程材料管理系统全套.docx

摘 要在工程成本中，工程材料费一般占工程总造价的70%左右。由于工程材料费用所占比重很大，就意味者节约材料用量、减少材料的损失和降低材料费用，可以有效地降低工程成本。随着建筑业地改革与发展，材料管理对企业经济效益地影响已经越来越得到重视，其中一个行之有效的手段就是：利用计算机技术来提高建筑材料的科学管理水平、最大限度地发挥企业物资的经济效益。关键词： Visual Basic；Access；数据库；DBA；JETABSTRACTKeyWord:目录摘 要1ABSTRACT2目录3前言5第一章 工程材料管理系统的需求分析51.1建筑施工企业项目部需要什么样的材料管理软件51.1.1实用性51.1.2易操作性51.1.3先进性61.1.4可维护性61.1.5可升级性61.1.6强大的统计查询、核算、分析功能61.1.7完善的材料价格采集、比选功能61.1.8数据安全性61.2借助信息技术加强施工企业管理7第二章 编程环境的选择102.1编程工具102.2关系型数据库的实现102.3二者的结合（DBA）10第三章 系统简介及运行环境113.1 系统简介113.1.1 数据维护113.1.2出入库管理113.1.3报表输出113.2 系统运行环境12第四章 总体设计134.1系统功能模块134.2 数据库设计134.2.1 Goods（材料分类表）134.2.2 inlib（进库明细表）134.2.3 inlibdetail（进库表）134.2.4 msurplus（库存材料表）134.2.5 outlib（出库明细表）134.2.6 outlibdetail（出库表）1343 登陆模块设计1443 界面设计1644 功能设计20441 用户管理20442 材料管理：23443 仓库管理30444 信息查询39第四章 结论56附录57前言工程材料管理系统通过对工程材料进行科学的分类、实时动态的统计来提高工程项目中材料的使用率和周转效率，降低工程成本。其最终目标是实现项目现场及相关企业工程材料管理的科学化、规范化。本系统在单机上运行，能够满足中、小型施工企业的实际需求。第一章 工程材料管理系统的需求分析1.1建筑施工企业项目部需要什么样的材料管理软件目前，市场中已经出现了一些材料管理软件，那么，对于施工项目部来说究竟需要什么样的材料管理软件呢？1.1.1实用性材料管理软件应适合当前施工企业项目部材料管理工作的实际业务流程，能够满足客户的合理需求，解决实际问题。1.1.2易操作性施工企业现场工作人员受客观条件限制，计算机的操作水平有限，如果软件操作步骤复杂，难于掌握，势必也会影响工作效率，要求材料管理人员在不影响正常工作的前提下花费很大精力学习软件的使用是不太现实的。因此就要求软件界面直观，操作简单，容易理解和掌握。1.1.3先进性企业所选择的材料管理软件不应该仅仅是作为进、销、存工具软件来使用，软件中应融入先进的材料管理思想，只有这样，才能有助于施工企业项目部提高材料管理水平。1.1.4可维护性不同企业对于材料管理的业务模式、管理机制、岗位设置等是千差万别的，甚至是在同一企业的不同项目部间都会有所差别，各自有适合本企业的一套管理经验。这就要求材料管理软件可维护性比较强，具有一定的伸缩性，可以根据不同的业务需求，来灵活地配置软件系统的模块、功能。1.1.5可升级性由于用户需求会发生变化，不可避免的带来软件升级的问题，软件应预留接口，方便日后升级及软件功能的扩展，满足企业未来发展的需求。1.1.6强大的统计查询、核算、分析功能材料管理过程中会产生大量的数据，需要相关人员做统计查询、核算、分析工作，以便实时、动态地监控材料成本的发生，辅助管理层进行决策。材料管理软件应在这方面提供强大的功能，改变过去手工统计查询的低效率状况。利用软件的统计、分析功能为企业编制内部材料消耗定额及建立材料价格库提供基础数据，指导企业投标。1.1.7完善的材料价格采集、比选功能软件应该提供多种途径帮助用户实时采集材料市场价格，进行价格比较，使用户购买到质优价廉的材料，降低采购成本。1.1.8数据安全性在实现信息化管理过程中，数据安全性显得尤为重要。如果软件的数据安全性得不到保障，一旦遇到突发情况，如断电、操作系统崩溃、电脑病毒等，用户辛辛苦苦建立起的重要数据信息无法得到恢复，那损失将是惨重的。因此，软件应具有较高的数据安全策略，提供数据实时备份与恢复功能，用来保证数据安全。基于以上的选择标准，施工企业一定能够优选出适合本企业施工项目部使用的材料管理软件系统，从而加快工作效率，规范材料管理制度，控制和节约材料成本，最终提高项目部的材料管理水平。1.2借助信息技术加强施工企业管理当前，建筑市场逐渐规范，施工企业间的激烈竞争、市场覆盖区域的逐渐扩大；再加上工程建设周期的缩短、经济环境的错综复杂等，都使建筑施工企业面临着越来越大的压力和风险。如何有效的规避风险，加强建筑施工企业的综合素质，提高企业的竞争力，并在新的市场环境中健康、快速的发展，已成为施工企业管理者不停思考的课题。首先，地域间楚河汉界变通途和经济的全球化的趋势越来越明显，地理距离对施工企业的市场扩张的限制已经越来越小了，各地的施工企业乃至世界的各路诸侯都在全国范围内不断的扩张、渗透。身处此境，施工企业的组织结构、业务流程、管理手段、人力资源等方面皆面临着前所未有的冲击和挑战。其次，进入新的经济时代以来，施工企业间的竞争正在转化为基于企业核心能力的竞争。麦肯锡咨询公司曾对核心竞争力的定义：一个组织内部将具有互补性的技术和知识进行整合，使得组织内的一项业务或者多项业务能够成为竞争行业的领先者，具有明显优势，这便叫核心竞争力。施工企业现都面临着互补性知识间整合的问题，新知识的掌握和应用正成为企业构筑这种核心竞争力的焦点。同时，在整合之际，也为企业的发展和壮大提供了难得的机遇。正如达尔文的进化论曾指出的那样：能够在不断变化的环境中生存下来的生物，不是那些最强大或最凶猛的动物，而是那些最能适应变化的动物。企业的兴与衰也是如此，诸多企业在市场竞争中的此消彼长就印证了这个道理：谁主动应对、主动变革，谁就能基业常青；谁漠视变化、不善应对，则在市场竞争中谁就会陷入越来越被动的境地。环顾全国范围乃至世界范围内的成功企业，他们共同的特点就是一直不断的审视和改进自身的业务流程；不断的发展员工的技能和能力；不断的将新技术应用到所在领域中，并向管理广度和深度进军，从而持续提高企业的工作效率，并最终获得竞争优势。从过去到今天，施工企业对于提高运作效率和经营效益的追求一直没有改变过。保证施工项目运作效率的是业务流程及相应的组织架构，监控和反映经营效益的是会计体系和绩效管理机制，而能支撑企业这些业务活动的正是企业的信息管理系统，如图0-1所示。迅猛发展的信息技术给社会的发展带来了巨大的能量，有效的推动了社会的进步，已经或正在改变着我们的工作、学习、生活和思想。信息技术在社会各个领域的广泛应用，实际上就是信息系统的应用。使用信息系统完善和加强传统的管理方式，重新认识和再造各种企业原有的业务流程，成为了企业在激烈的市场竞争中取胜的战略手段。信息管理系统的概念示意如图0-2所示。从组织的角度看，信息管理系统是组织的一个组成部分或是组织的自然延伸；从管理的角度看，信息管理系统是企业的管理人员应对市场环境的一种解决方案；从技术的角度看，信息管理系统实际上是企业组织的管理人员为了解决面临的各种问题而采用的一种集成了计算机硬件和软件的工具。信息管理系统的应用，目前在我国的建筑行业还处于起步阶段，要谨慎对待 “全面建设、一步到位”的做法。其他行业初期建设信息化管理系统时给我们留下了很多可供借鉴的经验和教训。面对复杂问题，寄希望于捷径，往往会进入雷区，欲速而不达。因为，一个企业全体员工的意识、技能都不是一朝一夕就可具备的，需要培育、需要发展。企业与周边环境的配套与适应也是重要问题，否则会出现，一面高精尖、一面小米步枪，在接口处卡脖子的现象。随着问题的积累，甚至会导致系统被废弃，巨额投资浪费的严重后果。我们要遵循规律，防止陷阱，就要从最基础、最根本的做起，层层推进，依次改善，最终实现“通过全面应用信息管理系统，大幅提高企业效益”的目标。第二章 编程环境的选择2.1编程工具微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。2.2关系型数据库的实现Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。2.3二者的结合（DBA）微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。第三章 系统简介及运行环境3.1 系统简介工程材料管理系统是为了满足广大建筑企业对工程材料的管理需求而开发的，既能管理普通材料，又能对周转材料进行管理；能够满足对多个仓库材料自动盘点和按工程项目的材料使用情况进行核算。系统采用Visual Basic 6.0开发，用户权限管理保证了系统与数据的安全。工程材料管理系统主要包括以下几大方面的功能：3.1.1 数据维护对系统的用户及权限、材料分类及编码、仓库信息、供应商信息、客户信息等进行初始化设置。3.1.2出入库管理能够方便地录入和管理出入库各种材料的数据信息。3.1.3报表输出能够准确地自动生成仓库材料期段报表。3.2 系统运行环境第四章 总体设计4.1系统功能模块系统设计包括数据库设计、登陆界面设计、主界面设计、菜单设计和功能设计。功能设计包括输入设计、查询设计。4.2 数据库设计数据库采用Access数据库，使用VisData或在Access环境中创建数据库，数据库名STORE，有如下表单：4.2.1 Goods（材料分类表）分为4个字段：GoodsID为自动编号；GoodsName为货物名称；Unit为计量单位；Type为数量。4.2.2 inlib（进库明细表）分为进库单号码；发票号码；进库日期；经办人；保管人。4.2.3 inlibdetail（进库表）分为进库单号码；材料编码；数量；单价；金额；备注。4.2.4 msurplus（库存材料表）分为材料编码；数量；单价；金额；备注。4.2.5 outlib（出库明细表）分为出库单号码；发票号码；出库类型；工程号；出库日期；经办人；保管人。4.2.6 outlibdetail（出库表）分为出库单号码；材料编码；数量；单价；金额；备注。如图：（图1）43 登陆模块设计此模块使用了Access数据库，用户名和密码存放在logo.mdb里。程序在判断输入的ID和密码是否正确时将IFELSE嵌套使用。当用户名不存在时，第一循环判定为“TURE”返回“没有这个用户名，请重新输入”，反之进入第二循环。第二循环判断用户名和密码是否相符合，值为“TURE”时进入主界面，为“FAILE”时返回“输入密码不正确，请重新输入！”（源代码见附录）43 界面设计主界面是用户打开系统首先见到的界面，也是进入其他模块的入口。主界面将常用菜单项设计为工具栏，在工具栏上有系统、材料管理、仓库管理、信息查询、数据统计、报表管理和帮助菜单。主界面运行如下：（图2）（源代码实现较简单，见附录）44 功能设计项目模块项目模块分为用户管理、材料管理、仓库管理、信息查询、数据统计、报表管理等部分，用来输入各项信息。441 用户管理用户管理展开后有添加用户；删除用户和修改密码三项，分别用于添加新用户，删除不需要用户，修改已存在用户密码。运行界面如下图所示：（图3）这里，程序类似登陆模块，也使用IFELSE嵌套。当符合条件时数据将记录到Access数据库文件logo.mdb里。（源代码见附录）442 材料管理：窗体分为左右两个部分。左侧材料列表里显示了材料编码、名称、规格型号、计量单位等信息，并可选择已登记的各种材料。右侧可对已选择的材料进行修改、删除，并可新增材料种类。如图 （图4）（源代码见附录）443 仓库管理在仓库管理模块中，有入库信息和出库信息两项，各项又细分为添加和编辑两个界面。各界面实现基本相同，这里以添加入库单为例。运行效果图如下 （图5）窗体分基本信息和材料明细两页，每页主要由六个标签、五个文本框和三个按钮组成。添加的信息会存入数据库文件。（源代码见附录）444 信息查询查询部分分为入库信息，出库信息，仓库余额，价格信息。下图为入库信息查询界面：（图5）查询可以以数字（如进库单号码、发票号码、材料编码），文本（如名称、型号）和时间（进出库时间）为查询条件，可实现单条件或多条件查询。程序将从数据库里查找出符合条件的信息显示。（源代码见附录）第四章 结论流程符合工程材料管理的要求。界面友好，输入信息方便（信息系统自动生成），系统扩充容易。由于资料有限，有很多地方还需要更好的完善。即面向开发人员，又面向用户。由于时间的原因，输出报表不完善。网络功能欠缺，本系统只能在单机上运行，不能实现网络连接，资源共享。容错性不高。系统的抗错，容错性不高，这方面有待加强。由于资料有限，有很多地方还设计的不够详细，还需要更好的完善。1 Visual Basic 6.0 使用指南 作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：电子工业出版社2 中文版Microsoft Office 97 自学通作者：Ned Snell出版社：机械工业出版社3 Visual Basic 6.0 中文版控件大全作者：Microsoft出版社；电子工业出版社4 中文Access 2000 24学时教程 作者：Craig Eddy ，Timothy Buchanan出版社：机械工业出版社附录主界面代码：Option ExplicitPrivate Sub MDIForm_Activate() Me.StatusBar1.Panels(1).Text = 就绪End SubPrivate Sub MDIForm_Load() 放置背景文字 Label1.Left = Screen.Width / 2 - Label1.Width / 2 Label1.Top = Screen.Height / 5 * 1 Label2.Left = Screen.Width / 2 - Label2.Width / 2 Label2.Top = Screen.Height / 5 * 2 Label3.Left = Screen.Width / 2 - Label3.Width / 2 Label3.Top = Screen.Height / 5 * 3End SubPrivate Sub MDIForm_Resize() On Error GoTo err1 Picture1.ScaleTop = Me.Top Picture1.ScaleLeft = Me.Left Picture1.ScaleWidth = Me.ScaleWidth Picture1.ScaleHeight = Me.ScaleHeight - StatusBar1.Height Exit Suberr1: Exit SubEnd SubPrivate Sub mnuAbout_Click() StatusBar1.Panels(1).Text = 显示版本信息 frmAbout.Show 1End SubPrivate Sub mnuExit_Click() Unload MeEnd SubPrivate Sub mnuInadd_Click() StatusBar1.Panels(1).Text = 添加进库单 frmInAdd.Show 1End SubPrivate Sub mnuInedit_Click() StatusBar1.Panels(1).Text = 编辑进库单 frmInUpdate.Show 1End SubPrivate Sub mnuMaterailInfo_Click() StatusBar1.Panels(1).Text = 材料基本信息管理 frmMaterialManage.Show 1End SubPrivate Sub mnuOutadd_Click() StatusBar1.Panels(1).Text = 添加出库单 frmOutAdd.Show 1End SubPrivate Sub mnuOutedit_Click() StatusBar1.Panels(1).Text = 编辑出库单 frmOutUpdate.Show 1End SubPrivate Sub mnuPrice_Click() StatusBar1.Panels(1).Text = 查询材料的最高价和最低价 frmPriceQuery.Show 1End SubPrivate Sub mnuPriceRepair_Click() StatusBar1.Panels(1).Text = 统计修理成本 frmTotalRepair.Show 1End SubPrivate Sub mnuPriceUpdate_Click() StatusBar1.Panels(1).Text = 统计改造成本 frmTotalRevise.Show 1End SubPrivate Sub mnuPriceWork_Click() StatusBar1.Panels(1).Text = 统计特定工程的成本 frmTotalProject.Show 1End SubPrivate Sub mnuQin_Click() StatusBar1.Panels(1).Text = 查询材料入库信息 frmInQuery.Show 1End SubPrivate Sub mnuQout_Click() StatusBar1.Panels(1).Text = 查询材料出库信息 frmOutQuery.Show 1End SubPrivate Sub mnuQsub_Click() StatusBar1.Panels(1).Text = 查询仓库余额信息 frmSurplus.Show 1End SubPrivate Sub mnuReportIn_Click() StatusBar1.Panels(1).Text = 查询、打印进库材料报表 frmReportIn.Show 1End SubPrivate Sub mnuReportNorth_Click() StatusBar1.Panels(1).Text = 查询、打印北拨材料报表 frmReportNorth.Show 1End SubPrivate Sub mnuReportRepair_Click() StatusBar1.Panels(1).Text = 查询、打印修理材料报表 frmReportRepair.Show 1End SubPrivate Sub mnuReportRetail_Click() StatusBar1.Panels(1).Text = 查询、打印销售材料报表 frmReportSale.Show 1End SubPrivate Sub mnuReportRevise_Click() StatusBar1.Panels(1).Text = 查询、打印改造材料报表 frmReportRevise.Show 1End SubPrivate Sub mnuReportSouth_Click() StatusBar1.Panels(1).Text = 查询、打印南拨材料报表 frmReportSouth.Show 1End SubPrivate Sub mnuReportTotal_Click() StatusBar1.Panels(1).Text = 查询、打印仓库报表 frmReportStore.Show 1End SubPrivate Sub mnuRetail_Click() StatusBar1.Panels(1).Text = 统计销售额 frmTotalSale.Show 1End SubPrivate Sub mnuUserAdd_Click() StatusBar1.Panels(1).Text = 添加用户 frmUserAdd.Show 1End SubPrivate Sub mnuUserDelete_Click() StatusBar1.Panels(1).Text = 删除用户 frmUserDel.Show 1End SubPrivate Sub mnuUserUpdata_Click() StatusBar1.Panels(1).Text = 修改密码 frmUserUpdate.Show 1End SubPrivate Sub Picture1_Click()End Sub项目管理代码：Option Explicit Reg Key Security Options.Const READ_CONTROL = &H20000Const KEY_QUERY_VALUE = &H1Const KEY_SET_VALUE = &H2Const KEY_CREATE_SUB_KEY = &H4Const KEY_ENUMERATE_SUB_KEYS = &H8Const KEY_NOTIFY = &H10Const KEY_CREATE_LINK = &H20Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL Reg Key ROOT Types.Const HKEY_LOCAL_MACHINE = &H80000002Const ERROR_SUCCESS = 0Const REG_SZ = 1 Unicode nul terminated stringConst REG_DWORD = 4 32-bit numberConst gREGKEYSYSINFOLOC = SOFTWAREMicrosoftShared Tools LocationConst gREGVALSYSINFOLOC = MSINFOConst gREGKEYSYSINFO = SOFTWAREMicrosoftShared ToolsMSINFOConst gREGVALSYSINFO = PATHPrivate Declare Function RegOpenKeyEx Lib advapi32 Alias RegOpenKeyExA (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib advapi32 Alias RegQueryValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As LongPrivate Declare Function RegCloseKey Lib advapi32 (ByVal hKey As Long) As LongPrivate Sub cmdSysInfo_Click() Call StartSysInfoEnd SubPrivate Sub cmdOK_Click() Unload Me frmProject.StatusBar1.Panels(1).Text = 就绪End SubPrivate Sub Form_Load() Me.Caption = About & App.Title lblVersion.Caption = Version & App.Major & . & App.Minor & . & App.Revision lblTitle.Caption = App.TitleEnd SubPublic Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String Try To Get System Info Program PathName From Registry. If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then Try To Get System Info Program Path Only From Registry. ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then Validate Existance Of Known 32 Bit File Version If (Dir(SysInfoPath & MSINFO32.EXE) ) Then SysInfoPath = SysInfoPath & MSINFO32.EXE Error - File Can Not Be Found. Else GoTo SysInfoErr End If Error - Registry Entry Can Not Be Found. Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox System Information Is Unavailable At This Time, vbOKOnlyEnd SubPublic Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long Loop Counter Dim rc As Long Return Code Dim hKey As Long Handle To An Open Registry Key Dim hDepth As Long Dim KeyValType As Long Data Type Of A Registry Key Dim tmpVal As String Tempory Storage For A Registry Key Value Dim KeyValSize As Long Size Of Registry Key Variable - Open RegKey Under KeyRoot HKEY_LOCAL_MACHINE. - rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) Open Registry Key If (rc ERROR_SUCCESS) Then GoTo GetKeyError Handle Error. tmpVal = String$(1024, 0) Allocate Variable Space KeyValSize = 1024 Mark Variable Size - Retrieve Registry Key Value. - rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) Get/Create Key Value