物资管理系统毕业论文i.doc

摘要本管理信息系统是针对企业的实际需求开发设计的，利用计算机运算速度快、存储信息容量大、处理逻辑问题强、功能强大的优势，从企业管理特别是查询与决策信息的管理需求出发，针对性强，功能齐备，旨在通过帮助该企业物资管理实现信息化，以提高企业管理的效率。大到总体框架、小到每一个数据库表的字段选取都采用真题真做的手法，在企业中采集了许多实际资料。利用计算机运算速度快、存储信息容量大、处理逻辑问题强、功能强大的优势，从企业管理特别是查询与决策信息的管理需求出发，针对性强，功能齐备，旨在通过帮助该企业管理实现信息化，以提高企业管理的效率。与此同时，我们所学到的知识也得到了理论联系实际的目的。物资管理是一般工业、商业企业生产管理环节中重要的一环，需要对物资基本信息管理、物资调配信息等进行完整的监控。物资入库首先要登记物资的基本信息，包括物资的种类、名称、型号、单位、单价等；然后登记物资入库信息，包括物资基本信息、入库地点、入库人、经办人、数量等；根据物资的入库、出库过程的综合，得到各种物资的余额信息，方便进行后续工作。因此物资管理信息系统需要记录物资流通的全过程。关键词：系统，设计，物资ABSTRACTThis management information system is aims at the enterprise the actual demand development design, using computer operating speed quick, information storage capacity big, processing logic question strong, function formidable superiority, specially is the inquiry and the decision information management demand embarks from the business management, pointed strong, the function is prepared, is for the purpose of through helping this enterprise goods and material handling realization information, enhances the business management the efficiency. As big as the overall frame, slightly all uses the technique to each database table field selection which really writes really does, has gathered many actual materials in the enterprise. Using computer operating speed quick, information storage capacitybig, processing logic question strong, function formidable superiority, specially is the inquiry and the decision informationmanagement demand embarks from the business management, pointed strong, the function is prepared, is for the purpose of through helping this business management realization information, enhances the business management the efficiency. At the same time, we learn the knowledge also obtained apply theory to reality the goal. The goods and material handling is the general industry, in the commercial department production management link an important link, needs to the commodity basic information management, the commodity to mix the information and so on to carry on the integrity the monitoring. The commodity goes into storage first must register the commodity the basic information, including commodity type, name, model, unit, unit price and so on; Then the registration commodity goes into storage the information, including the commodity basic information, goes into storage the place, goes into storage the person, the manager, the quantity and so on; Goes into storage, the storehouse process synthesis according to the commodity, obtains each kind of commodity the remaining sum information, facilitates carries on the following work. Therefore the goods and material handling information system needs to record the commodity circulation the entire process.Keywords：System,Design, Commodity目录目录2第1章 概述31.1 技术综述31.2 项目背景31.3 开发平台3第2章 需求分析42.1 业务需求及功能列表42.1.1 业务需求42.1.2 功能列表42.2 数据要求4第3章 系统设计4第4章 数据库设计64.1 数据库需求分析64.2 数据库概念结构设计74.3 数据库逻辑结构的设计8第5章 代码设计95.1 物资管理信息系统主窗体的创建95.1.1 创建工程项目Material_MIS95.1.2创建物资管理信息系统的主窗体105.1.3创建功用模块105.2 物资基本信息模块的创建125.2.1 添加物资基本信息窗体的创建13第6章 测试16第7章 结论19第8章 参考文献20第9章 致谢20第1章 概述1.1 技术综述本系统所使用的开发语言是Visual Basic6.0(简称VB6.0)。VB6.0在和数据库应用程序的开发中，提供了包括数据窗体控件和数据窗体对象等功能强大的工具，连接数据库文件，并访问其中数据，该语言不仅具有一般数据库语言的特点，而且有可视化的特点，是一种非常优秀的计算机软件开发语言。在屏幕的颜色搭配上突出了整体和协调原则，尽量减少多色调的无序使用，力求模块颜色搭配一致，又有一些变化，但风格统一。在窗体的格式上，基本上采用了统一的标准，命令按钮采用了统一的布局。本系统具有很强的针对性和实用性，主要是面向企业的具体的案例。1.2 项目背景物资管理是一般工业、商业企业生产管理环节中重要的一环，需要对物资基本信息管理、物资调配信息等进行完整的监控。物资入库首先要登记物资的基本信息，包括物资的种类、名称、型号、单位、单价等；然后登记物资入库信息，包括物资基本信息、入库地点、入库人、经办人、数量等；根据物资的入库、出库过程的综合，得到各种物资的余额信息，方便进行后续工作。因此物资管理信息系统需要纪录物资流通的全过程。加强物资管理，不但有算得出、看得到的效益，还可以大大提高管理队伍的素质，加强职工的增产节约意识、爱护财产意识和学习科技的意识，使科学管理形成共识，并可以减少物资设备各个环节上的矛盾。1.3 开发平台硬件环境：服务器端基本要求：P41.8以上+256M内存+10G以上硬盘；客户机端：P4600，40M内存，Win98、Win2000。软件环境：Visual Basic + SQL Server 2000Visual Basic6.0作为Microsoft公司开发的Basic Studio6.0套件的一部分，是一个功能丰富、方便实用的程序开发环境，它的一个很大的特色就是功能强大、编程简单的数据库操作能力。可视化的开发环境、丰富的数据库访问空间的支持使得Visual Basic成为数据库应用程序项目中重要的开发工具。Microsoft SQL Server 2000中文版是基于客户机/服务器模式的新一代大型数据库管理系统，它在电子商务、数据仓库和数据库解决方案等应用中起着重要的核心作用，可为企业的数据管理提供强大的支持，并采取有效的措施来实现数据的安全性、完整性、备份和恢复。是目前广泛使用的关系型数据库。ADO（ActiveX Data Object）是微软提出的数据访问接口，提供访问各种数据类型的连接机制，其集中了DAO和ROD的优点，可以通过简单的变成完成和各种数据结构进行连接。第2章 需求分析2.1 业务需求及功能列表2.1.1 业务需求长期以来，物资管理工作中的信息管理是采用人工的方式，要付出大量人力，填写各种表格、凭证、账册、卡片和文件。由于信息是随着时间不断变化的，各业务部门对信息的使用要求也各不相同，所以要按照不同的分类经常不断地汇总、统计，往往要做许多重复登记和转抄。这种手工操作的管理方式，不仅浪费人力，而且存在许多缺点：（1）处理速度慢，影响信息及时性。（2）易出现错误，影响信息精确性。（3）不便于查询。（4）缺乏综合性，不能起控制作用。由于这些缺点，大大降低了信息的利用价值，显然越来越不适应现代物资管理工作的需要。因此，发展以电子计算机为基础的物资管理信息系统已是十分迫切和必要的了。2.1.2 功能列表 有关物资信息的基本输入、查询和修改，入库物资信息的输入、查询和修改，出库物资信息的输入、查询和修改以及物资余额的查询和浏览。2.2 数据要求创建系统用户表 user_Info1create table dbo.user_Info1(user_ID char (10) collate chinese_PRC_CI_AS NOT NULLuser_PWD char (10) collate chinese_PRC_CI_AS NULLuser_Des char (10) collate chinese_PRC_CI_AS NULL利用SQL Server 2000 数据库系统中的 SQL 查询分析器实现的，通过查询分析器来运行数据库系统。第3章 系统设计系统开发的总体任务是实现物资信息的系统化、规范化、和自动化。系统功能分析是在系统开发的总体任务完成的基础上完成的，本物资管理信息系统需要完成的功能的主要有：l 有关物资信息的基本输入，包括物资编号、物资名称、规格型号、种类和计量单位等。l 物资基本信息的查询。l 物资基本信息的修改。l 入库物资信息的输入。l 入库物资信息的修改。l 入库物资信息的查询。l 出库物资信息的输入。l 出库物资信息的修改。l 出库物资信息的查询。l 物资余额信息的查询。l 物资余额信息的浏览。系统功能模块设计 对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图1所示的系统功能模块图。系统管理物资基本信息管理物资出库信息管理物资入库信息管理物资余额信息管理用户管理密码管理物资基本信息添加物资基本信息查询物资基本信息修改入库物资信息添加入库物资信息修改入库物资信息查询出库物资信息添加出库物资信息修改出库物资信息查询物资余额信息查询物资余额信息浏览物资管理信息系统第4章 数据库设计设计数据库系统时应该首先了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：l 数据库需要分析。l 数据库概念结构设计。l 数据库逻辑结构设计。4.1 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询等方面，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。 仔细分析调查有关物资管理信息需求的基础上，将得到入图1所示的本系统所处理的数据流程出库物资信息管理入库物资信息管理物资余额信息管理物资调配物资基本信息管理基本信息录入物资登记 图1 物资管理信息系统数据流程图针对一般物资管理信息系统的需求，通过对物资调配工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：l 物资基本信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位等。l 入库物资信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人、保管人、仓库、备注等。l 出库物资信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人、保管人、仓库、备注等。l 物资余额信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、金额、仓库等。4.2 数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种试题以及它们之间的关系，为后面的逻辑结构设计打下基础。这些试题包含各种具体信息，通过相互间的作用形成数据的流动。本系统根据上面的设计规划出的实体有：物资基本信息实体、物资入库信息实体、物资出库信息实体、物资余额信息实体。各个实体具体的描述E-R图如下：物资基本信息实体计量单位物资编号物资规格物资名称物资基本信息实体E-R图物资入库信息实体保管人物资基本信息经办人入库时间物资入库信息实体E-R图物资出库信息实体领用人物资基本信息经办人出库时间物资出库信息实体E-R图物资出库信息实体仓库物资基本信息数量金额物资余额信息实体E-R图4.3 数据库逻辑结构的设计现在将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。物资管理信息系统数据库中各个表格的设计结果如下面表格所示。每个表格在数据库中的一个表。Material 物资基本信息表列名数据类型可否为空说明wzidvarcharNOT NULL物资编号wznamevarcharNOT NULL物资名称wzspecvarcharNOT NOT规格型号wzkindvarcharNULL类别wzunitvarcharNULL计量单位msave 入库物资信息表列名数据类型可否为空说明rknovarcharNOT NULL入库编号rkidvarcharNOT NULL入库物资编号rknamevarcharNULL物资名称rkspecvarcharNULL规格型号rkkindvarcharNULL种类rkunitvarcharNULL单位rkaccountnumericNOT NULL数量rkpricenumericNOT NULL单价rkvaluenumericNOT NULL金额rkdatedatetimeNOT NULL入库时间rkdeal_personvarcharNOT NULL经办人rksave_personvarcharNOT NULL保管人rkbasevarcharNULL仓库rkmemotextNULL备注muse 出库物资信息表列名数据类型可否为空说明lynovarcharNOT NULL出库编号lyidvarcharNOT NULL出库物资编号lynamevarcharNULL物资名称lyspecvarcharNULL规格型号lykindvarcharNULL种类lyunitvarcharNULL单位lyaccountnumericNOT NULL数量lypricenumericNULL单价lyvaluenumericNULL金额lydatedatetimeNOT NULL出库时间lyuse_personvarcharNOT NULL经办人lydeal_personvarcharNOT NULL保管人lybasevarcharNULL仓库lymemotextNULL备注msurplus 物资余额信息表列名数据类型可否为空说明yeidvarcharNOT NULL物资编号yenamevarcharNOT NULL物资名称yespecvarcharNULL规格型号yekindvarcharNULL类别yeunitnumericNULL 计量单位yeaccountnumericNOT NULL数量yevaluenumericNOT NULL金额yebasevarcharNOT NULL仓库yememotextNULL备注第5章 代码设计5.1 物资管理信息系统主窗体的创建5.1.1 创建工程项目Material_MIS 打开Viaual Basic 后，单击File/New Project菜单，在工程摸版中选择Standard EXE,Visual Basic将自动产生一个Form窗体，属性都是却省设置。这里我们删除这个窗体，单击File/Save project菜单，将这个工程命名为Material_MIS。5.1.2 创建物资管理信息系统的主窗体 这个项目使用多文挡界面，单击工具栏中的ADD MDI Form按钮，产生一个窗体。在这个窗体上添加所需的控件，然后设置窗体和控件的属性设置。创建好的窗体如图所示：在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。5.1.3 创建功用模块在Visual Basic中可以用公用模块来存放整个工程项目的函数、过程和全局变量等。这样可以提高代码的效率。在项目资源管理器中为项目添加一个Module,保存为Module1.bas。 由于系统各个功能模块都将频繁使用数据库中各种数据，因此需要一个公共的数据操作函数，用意执行各种SQL语句。添加函数Execute SQL,代码如下： 传递参数为查询语句和查询信息，返回以数据集对象形式保存的查询结果Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordset执行SQL语句，并返回记录集对象声明一个连接 Dim cnn As ADODB.Connection 声明一个数据集对象 Dim rst As ADODB.Recordset Dim sTokens() As String 异常处理 On Error GoTo ExecuteSQL_Error 用split函数产生一个包含各个子串的数组 sTokens = Split(SQL) 创建一个新连接 Set cnn = New ADODB.Connection 打开连接 cnn.Open ConnectString 判断查询语句是否包含指定内容 If InStr(INSERT,DELETE,UPDATE, _UCase$(sTokens(0) Then执行查询语句cnn.Execute SQL返回查询信息 MsgString = sTokens(0) & _ query successful Else 创建一个数据集对象Set rst = New ADODB.Recordset执行查询语句 rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimisticrst.MoveLast get RecordCount返回记录集对象Set ExecuteSQL = rst返回查询信息 MsgString = 查询到 & rst.RecordCount & _ 条记录 End IfExecuteSQL_Exit: 卸载对象 Set rst = Nothing 中断连接 Set cnn = Nothing Exit Function 错误信息ExecuteSQL_Error: MsgString = 查询错误: & _ 显示错误信息 Err.Description Resume ExecuteSQL_ExitEnd Function使用了connect string 函数，这个函数用来连接数据库Public Function ConnectString() _ As String返回一个数据库连接 ConnectString = FileDSN=wuzi.dsn;UID=sa;PWD=End Function在录入有关信息时，需要回车来进入下一个文本框，这样对软件使用者非常方便。在所有的功能模块都需要这个函数，所以将它放在功用模块，代码如下：Public Sub EnterToTab(Keyasc As Integer)判断是否为回车键If Keyasc = 13 Then转换成Tab键 SendKeys TAB End IfEnd SubKeyasc用来保存当前按键，SendKeys函数用来指定的按键。一旦按下回车键，将返回Tab键，狭义个控件自动获得输入焦点。 添加全局变量，用来记录各个窗体的读写状态，代码如下： Public flagMedit As BooleanPublic flagIedit As BooleanPublic flagLedit As BooleanPublic flagOedit As BooleanPublic gintMmode As IntegerPublic gintImode As IntegerPublic gintLmode As IntegerPublic gintOmode As IntegerGintMmode变量用来记录是添加状态还是修改状态，赋值1为添加，赋值2为修改。FlagMedit变量用来标示是否进入修改的窗体。由于物资管理信息管理系统启动后，需要对用户进行判断。如果登录者是授权用户，将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此代码放在公用模块中。5.2 物资基本信息模块的创建物资基本信息管理模块主要实现如下功能：l 添加物资基本信息。l 修改物资基本信息。l 删除物资基本信息。l 查询物资基本信息。5.2.1 添加物资基本信息窗体的创建选择“物资基本信息管理/添加物资基本信息”菜单，将出现如图所示的窗体。在载入窗体是，程序首先判断所处状态，代码如下：Private Sub Exit_Click()If mblChange And Save.Enabled Then If MsgBox(保存当前记录的变化吗?, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call Save_Click End IfEnd If卸载Unload MeEnd SubPrivate Sub Form_Load() Dim intCount As Integer Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset 判断是否处于添加状态 If gintMmode = 1 Then Me.Caption = Me.Caption & 添加 ElseIf gintMmode = 2 Then txtItem(0).Text = m_id Me.Caption = Me.Caption & 修改 End If End SubPrivate Sub Save_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String 判断文本框内容是否为空 For intCount = 0 To 4 If Trim(txtItem(intCount) & ) = Then Select Case intCount Case 0 sMeg = 物资编号 Case 1 sMeg = 物资名称 Case 2 sMeg = 规格型号 Case 3 sMeg = 类别 Case 4 sMeg = 计量单位 End Select sMeg = sMeg & 不能为空! 提示信息 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 获得输入焦点 txtItem(intCount).SetFocus Exit Sub End If Next intCount 判断是否有相同ID的记录 If gintMmode = 1 Then 组成查询语句 txtSQL = select * from material where wzid= & Trim(txtItem(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) 判断是否有重复记录 If mrc.EOF = False Then MsgBox 已经存在此物资编号的记录!, vbOKOnly + vbExclamation, 警告 获得输入焦点 txtItem(0).SetFocus Exit Sub End If 关闭数据集对象 mrc.Close End If 判断是否有相同内容的记录 txtSQL = select * from material where wzid & Trim(txtItem(0) & and wzname= & Trim(txtItem(1) & and wzspec= & Trim(txtItem(2) & Set mrc = ExecuteSQL(txtSQL, MsgText) 判断数据集对象是否为空 If mrc.EOF = False Then MsgBox 已经存在相同物资内容的记录!, vbOKOnly + vbE