生产管理系统论文.docx

1、生产管理系统论文摘要【摘要】生产部门如果没有专业化管理的工具，都会受到如周期、库存、人力、发货、废品、引入新产品和满足客户要求等问题的困扰。如果没有一个有效的计划，生产部门对以上这些问题以及其他一些类似的问题是很难回答的。由于缺乏公认的专业工具和知识体系以及其有效系统，也很难准确的衡量生产部门的工作业绩。由此可见，生产管理系统的引入迫在眉睫。在应用生产管理系统的环境下，在制定销售与运作规划时先要通过资源计划来估算为生产一定数量的某类产品所需的资源，以保证销售与运作规划的合理性。【关键词】 生产部门 问题 生产管理系统0 引言20世纪60年代以来，一种以“既要降低库存，又要不出现物料短缺”的计划

2、方法逐渐发展起来，主要解决间歇生产的生产计划和控制问题。在间歇生产的情况下，如何保证生产计划的高校运行，保证及时供应物料以满足生产需要，是生产管理中的重要问题，这个问题处理不好，就会造成又库存积压，又物料短缺的情况。目前，无论是企业还是工厂都实行了信息化管理，以提高管理水平和工作效率，同时也可以最大限度的减少手工操作带来的错误。于是生产管理系统应运而生。随着我国改革开放的不断深入，企业发展已经从面向区域市场转向面对国内外广阔的市场。过去长期采用的传统手工或手工加微机的管理方式已无法对经营过程中多层次、多品种、多批量的生产计划进行管理，也无法对任何一种产品生产全过程的动态信息进行管理。各部门之间

3、的信息传递不流畅，而且大量冗余，决策者常常得不到他们所需要的准确信息，结果造成了生产过程中库存、资金严重积压，原材料时常短缺，零部件生产不配套，计划不准确等不良现象。这在很大程度上影响了公司的进一步发展。本系统正是在这种背景之下提出的。本系统的功能特点集中表现在：提高了企业的经营质量和效率。降低了企业的生产成本，增强了企业的市场竞争力。强化了企业的资金流管理，提高了资金利用率。优化生产管理，疏通生产渠道。提高了生产效率。1 系统分析1.1 需求分析通过调查，要求本系统需要有以下功能：由于操作人员的计算机操作能力普遍较差，因此要求系统具有良好的人机交互界面。由于本系统的使用对象较多，因此要有完备

4、的权限管理功能。完全人性化设计，无需专业人士指导，即可操作本系统。系统具有数据备份及数据还原功能，能够保证系统数据的安全性。方便的、全方位的数据查询功能。自动完成数据计算，尽量减少人工干预。强大的报表打印功能。1.2 可行性分析生产管理系统后台数据库采用SQL Server 2000数据库，以保证数据的安全、高效和稳定。前台采用Microsoft公司的Visual Basic 6.0作为主要的开发工具，该工具可与SQL Server 2000数据库无缝链接。2 总体设计2.1 项目规划生产管理系统是一个典型的数据库开发应用程序，由基础信息管理模块、计划信息管理模块、生产设备管理模块、产品库存管

5、理模块、辅助功能模块、系统维护模块、帮助信息模块7个功能模块组成，规划系统功能模块如下：基础信息管理模块该模块主要包括产品基础信息、物料基本信息、设备状态设置、设备类型设置、设备摊销时间设置、车间部门设置6部分组成。计划信息管理模块该模块主要包括生产计划单管理、生产计划单查询、物料需求计划、物料需求查询4部分。生产设备管理模块该模块主要由生产设备档案、生产设备查询、生产设备报废、生产设备报废查询、生产设备维修、生产设备维修查询6部分组成。产品库存管理模块该模块主要由产品完工入库、产品入库查询、物料入库、物料入库查询、生产领料、生产领料查询、物料库存信息查询7部分组成。辅助功能模块该模块主要包括

6、调用Word、调用Excel、调用计算器、登录Internet、工作备忘5部分。系统维护模块该模块主要由操作员设置、密码修改、操作权限设置、数据清理、数据备份与恢复、设置主窗口图片6部分组成。帮助信息模块该模块主要有：本单位信息、关于、帮助。2.2 系统功能架构图图1 生产管理系统功能架构图3 系统设计3.1 设计目标本系统属于典型的数据库管理系统，是针对中小型企业生产管理开发设计的，实现进一步的计算机化的管理。通过本系统可以达到以下目标：灵活的运用表格批量输入数据，使信息传递更快捷。系统采用良好的人机对话模式，界面设计美观友好，信息查询灵活、方便、快捷、准确，数据存储安全可靠。键盘操作，快速

7、响应。实现各种查询及打印功能。操作员可以随时修改自己的口令。管理员可以设置操作员的权限。对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。数据保密性强，为每个用户设置权限级别。系统运行稳定、安全可靠。3.2 开发及运行环境系统开发平台：Visual Basic 6.0。数据库管理系统软件：SQL Server 2000。运行平台：Windows xp/ Windows 2000。分辨率：最佳效果800*600。3.3 数据库设计本系统数据库采用SQL Server 2000数据库，系统数据库名称为db_SCGL。数据库db_SCGL中包含19张数据表。下面分别给出数据表概要说明和

8、数据表的结构。1数据表概要说明如图2所示的即为本系统中数据库中的数据表的树形结构图，该数据表树型结构图包含系统所有数据表。可以清晰地反应数据库信息。图2 数据表树型结构图2数据表的结构由于篇幅所限，关于数据库中的数据表请参见附录二。4 主要功能模块设计4.1 公共模块设计为了节省系统资源，实现代码重用，可以在系统中创建一个Modulel模块。就本系统而言，该模块主要用于共享数据库连接。在公共模块中定义了一些公共的变量、数据连接以及Toolbar控件中的相关设置。由于本系统中的大部分窗体都采用Toolbar控件的风格模式，因此，在这里出模块中关于Toolbar控件中按钮设置的代码。其他相关代码请

9、参见源程序。定义设置Toolbar控件上按钮状态的函数 Public Function tlbState(tlb As Toolbar, state As Boolean) With tlb If state = True Then 如果状态变量为True .Buttons(1).Enabled = False : .Buttons(2).Enabled = False : .Buttons(3).Enabled = False .Buttons(6).Enabled = False : .Buttons(4).Enabled = True : .Buttons(5).Enabled = Tr

10、ue Else 如果状态变量为False .Buttons(1).Enabled = True : .Buttons(2).Enabled = True : .Buttons(3).Enabled = True .Buttons(6).Enabled = True : .Buttons(4).Enabled = False : Buttons(5).Enabled = False End If End WithEnd Function4.2 主窗体主窗体主要是对生产管理系统的各个子功能模块进行调用，并在主窗体中显示操作员的姓名及日期，其运行结果如图3所示。图3 主窗体运行结果1窗体设计（1）在

11、“工程”中新建一个窗体，将窗体的“名称”设置为frm_Main，MaxButton属性设置为False，Caption属性设置为“生产管理系统”，StartUpPosition属性设置为2-屏幕中心。（2）利用VB提供的菜单编辑器设计窗体菜单。如图4所示。图4 生产管理系统菜单设计（3）向窗体上添加1个Toolbar控件，和1个ImageList控件，并将这两个控件连接。（4）向窗体上添加1个TreeView控件。添加完成后将其与ImageList控件连接，同时设置其“热跟踪”属性为True。并将其MousePointer属性设置为99Custom，MouseIcon属性为“生产管理系统Pro

12、gram窗体Image鼠标.ico”。（5）向窗体上添加1个Image控件。设置其Picture属性，设置Stretch属性为True。该控件用于显示系统的主界面。（6）向窗体上添加1个StatusBar控件。（7）向窗体上添加1个Timer控件，设置其Interval属性为60，Enabled属性为True。用于显示系统当前的时间。（8）向窗体上添加1个CommonDialog控件。由于CommonDialog控件属于ActiveX控件，在使用之前必须从“部件”对话框中添加到工具箱。添加方法如下：在“工程”/“部件”对话框中勾选“Microsoft Common Dialog Control

13、s6.0（SP6）”列表项，单击【确定】按钮之后即可将CommonDialog控件添加到工具箱当中。该控件用于打开相应的对话框。2代码设计在窗体加载时，调用自定义过程Tree_Change，设置TreeView控件中的数据信息。其设计思路是：首先将菜单中的项目存储到数据表tb_SCGL_menu中，在窗体启动时，利用嵌套循环向TreeView控件中添加数据信息。其实现的代码如下：自定义一个过程，用于显示TreeView控件中的数据Public Sub Tree_change() Dim key, Text, BH, StrTemp As String Dim Nod As Node 定义一个节

14、点变量 rs1.Open select distinct menu_menu,menu_menuid from tb_SCGL_menu order by menu_menuid, cnn, adOpenKeyset If rs1.RecordCount 0 Then 如果记录数大于零 rs1.MoveFirst 移至第一条记录集 Do While rs1.EOF = False 循环读取第1层节点中的数据信息 key = Trim(rs1.Fields(menu_menu) Text = rs1.Fields(menu_menu) StrTemp = rs1.Fields(menu_menu

15、) Set node1 = TreeView1.Nodes.Add(, tvwChild, key, Text, 1) 给第1层节点赋与数值 rs2.Open select * from tb_SCGL_menu where menu_menu = + StrTemp + , cnn, adOpenKeyset If rs2.RecordCount 0 Then rs2.MoveFirst Do While rs2.EOF = False 循环读取第2层节点中的数据信息 key = Trim(rs2.Fields(menu_submenu) Text = rs2.Fields(menu_sub

16、menu) 给第2层节点赋与数值Set Node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, key, Text, 2) rs2.MoveNext Loop End If rs2.Close rs1.MoveNext Loop End If rs1.CloseEnd Sub4.3 系统登录窗体系统登录主要用于对登录生产管理系统的用户进行安全性检查，以防止非法用户进入该系统。只有合法的用户，才可以登录本系统，同时系统根据操作员的不同，给予这个操作员相应的操作权限。验证操作员及其密码，主要通过对数据表tb_user的查询，结合If语句判断用户选定的操

17、作员及其输入的密码是否符合数据库中的操作员和密码，如果符合则允许登录，并给予相应的权限，否则提示错误信息。如果错误超过3次，则强行退出系统。生产管理系统登录界面如图5所示。图5 系统登录界面 1窗体设计（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_mm，BorderStyle属性设置为0None，StartUpPosition属性设置为2屏幕中心。（2）向窗体上添加1个PictureBox控件，设置其Picture属性。（3）向窗体上添加1个ListView控件，1个ImageList控件，设置ListView控件的Picture属性，并将ListView控件与ImageLis

18、t控件连接在一起。用于显示操作员头像和姓名。（4）分别向窗体上添加Label控件、TextBox控件、Image控件。本窗体应用到的主要控件的相关属性请参见表1。图6 生产管理系统登录界面表1 主要控件对象的属性列表对象属性值功能ImageNameStrechImg_TxTrue显示登录的操作员头像ImageListNameImt_Tx用于存储图片ListViewNameListView1显示操作员列表PictureBoxNamePicture1显示图片TextBoxNamePasswordCharTextTxt_mm*空输入操作员密码TextBoxNameTextVisibleTxt_Tim

19、eTxt_TimeFalse存储错误输入次数2代码设计在窗体加载时，向ListView控件中添加所有的操作员信息，并将显示在前面的操作员头像、操作员编号、操作员姓名显示在操作员信息中，其实现的代码如下：Private Sub Form_Load() Lbl_Infor.Caption = 初始用户名为：mr 密码为：mrsoft + Chr(10) + Chr(10) + 本软件由明日科技有限公司开发，欢迎各界朋友来电来函垂询！ 设置标签内容 rs.Open select * from tb_user, cnn, adOpenKeyset 打开对象 If rs.RecordCount 0 Th

20、en rs.MoveFirst 移至第一条记录 将第一条记录的信息显示在相应的控件中 Lbl_Czyid.Caption = rs.Fields(user_id) Lbl_Name.Caption = rs.Fields(user_name) MyIcon = Val(Right(rs.Fields(user_tx), Val(Len(rs.Fields(user_tx) - 2) Set Img_Tx.Picture = Imt_Tx.ListImages(MyIcon).Picture 向ListView中添加图片 Do While rs.EOF = False Mystr = rs.Fi

21、elds(user_name) MyIcon = Val(Right(rs.Fields(user_tx), Val(Len(rs.Fields(user_tx) - 2) Set itmX = ListView1.ListItems.Add(, , Mystr, MyIcon) rs.MoveNext Loop End If rs.Close 关闭对象 Txt_mm.Text = End Sub当用户单击ListView控件中操作员列表项时，系统会自动将用户所选择的操作员的头像、操作员编号、操作员姓名显示在相应的位置，以便用户确认该信息是否正确。其实现的代码如下：Private Sub Li

22、stView1_Click() If ListView1.ListItems.Count 0 Then 查询操作员信息 rs.Open select * from tb_user where user_Name = + ListView1.SelectedItem + , cnn, adOpenKeyset If rs.RecordCount 0 Then 如果记录数大于零 显示操作员信息 Lbl_Czyid.Caption = rs.Fields(user_id) : Lbl_Name.Caption = rs.Fields(user_Name) MyIcon = Val(Right(rs.

23、Fields(user_tx), Val(Len(rs.Fields(user_tx) - 2) 将所选择的操作员头像添加到Image控件中Set Img_Tx.Picture = Imt_Tx.ListImages(MyIcon).Picture End If rs.Close 关闭数据集对象 End IfEnd Sub当用户选定相应的操作员，并在文本框中输入密码，单击【确定】按钮或在Txt_mm文本框中按Enter键，系统会核实其输入的密码是否正确，如果正确即进入到生产管理系统内部，否则提示用户输入错误。如果用户输入的错误密码超过3次，系统将强行退出。其实现代码如下：Private Sub

24、 Label7_Click() rs.Open select * from tb_user where user_name = + Trim(Lbl_Name.Caption) + , cnn, adOpenKeyset If rs.RecordCount 0 Then 如果记录数大于零 验证操作员及密码 If Txt_mm.Text = rs.Fields(user_mm) Then 如果输入密码正确 Load Frm_Main 加载窗体 Frm_Main.Show Frm_Main.StatusBar1.Panels(2).Text = Lbl_Name.Caption 设置状态栏信息 U

25、nload Me 关闭本窗体 Else 否则 If Lbl_Name.Caption = Then 如果操作员姓名为空 MsgBox 请选择操作员！, , 信息提示 ListView1.SetFocus 设置焦点 Else If Txt_mm.Text rs.Fields(user_mm) Then 如果密码输入错误 MsgBox 密码错误,请重新输入密码！, , 信息提示 Txt_Time.Text = Val(Txt_Time.Text) + 1 计数文本框中的数量加一 Txt_mm.SetFocus 将焦点设置在密码文本框中 End If End If If Txt_Time.Text

26、= 3 Then 密码错误3次，退出系统 MyMsg = MsgBox(密码输入错误,请向系统管理员查询！, , 信息提示) If MyMsg = vbOK Then End End If End If End If rs.CloseEnd Sub4.4 物料信息设置物料信息设置窗体可以用于对本企业所需要的物料信息进行增加、删除、修改、查找操作，并可以通过下面的列表浏览所有的物料信息。物料信息设置窗体的运行结果如图7所示。图7 物料信息设置窗体运行结果1窗体设计（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_Jcxx_Wlxx，Caption属性设置为“物料信息设置”，MaxBu

27、tton属性设置为False。（2）在窗体上添加1个Toolbar控件，1个ImageList控件。向ImageList1控件中添加图片，并将其与Toolbar控件相连接。（3）向窗体上添加1个ADO控件，1个DataGrid控件。设置DataGrid控件的“名称”为Dgr_Wlxx，DataSource属性为Adodc1。设置Adodc1控件的CommandType属性为1 adCmdText，RecordSource属性设置为select * from tb_SCGL_wlxx order by wlxx_id。其中DataGrid控件用于显示物料信息，ADO控件用于数据连接。（4）向窗体

28、上添加ComboBox控件，设置其“名称”为Cbx_Cpbh，Style属性为0Dropdown Combo。该控件用于显示产品编号。（5）向窗体上添加若干Label控件和TextBox控件。设置TextBox控件为“名称”为Text1的控件数组。图8 物料信息设置设计窗体2代码设计在程序运行时，数据的增加、删除、修改、查找操作都是通过Toolbar控件上的按钮来实现的。其实现的关键代码如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.key Case add 添

29、加 blnAdd = True 设置变量，如果为True，则在【保存】按钮中作插入操作 tlbState Toolbar1, True 调用模块中的过程 打开数据集连接rs1.Open select * from tb_SCGL_wlxx order by wlxx_id, cnn, adOpenStatic If rs1.RecordCount 0 Then 如果数据记录大于零 rs1.MoveLast 移至最后一条记录 Text1(0) = WL + Format(Val(Right(Trim(rs1.Fields(wlxx_id), 3) + 1, #000) 编号自动加1 Else 如

30、果没有记录 Text1(0) = WL001 End If rs1.Close 关闭数据对象 For i = 1 To Text1.UBound Text1(i) = Text1(i).Locked = False Next i Cbx_Cpbh.Locked = False For i = 1 To Text1.UBound Text1(i).Enabled = True Next i Cbx_Cpbh.Enabled = True : Text1(1).SetFocus Case modify 修改 If Adodc1.Recordset.RecordCount 0 ThenblnAdd = False 设置变量，如果为False，则在【保存】按钮中作修改操作 tlbState Toolbar1, True 调用模块中的过程 For i = 1 To Text1.UBound Text1(i).Locked = False Next i Cbx_Cpbh.Locked = False view_dat