生产管理系统论文.docx
《生产管理系统论文.docx》由会员分享，可在线阅读，更多相关《生产管理系统论文.docx（43页珍藏版）》请在冰点文库上搜索。
生产管理系统论文
摘要
【摘要】
生产部门如果没有专业化管理的工具，都会受到如周期、库存、人力、发货、废品、引入新产品和满足客户要求等问题的困扰。
如果没有一个有效的计划，生产部门对以上这些问题以及其他一些类似的问题是很难回答的。
由于缺乏公认的专业工具和知识体系以及其有效系统，也很难准确的衡量生产部门的工作业绩。
由此可见，生产管理系统的引入迫在眉睫。
在应用生产管理系统的环境下，在制定销售与运作规划时先要通过资源计划来估算为生产一定数量的某类产品所需的资源，以保证销售与运作规划的合理性。
【关键词】生产部门问题生产管理系统
0引言
20世纪60年代以来，一种以“既要降低库存，又要不出现物料短缺”的计划方法逐渐发展起来，主要解决间歇生产的生产计划和控制问题。
在间歇生产的情况下，如何保证生产计划的高校运行，保证及时供应物料以满足生产需要，是生产管理中的重要问题，这个问题处理不好，就会造成又库存积压，又物料短缺的情况。
目前，无论是企业还是工厂都实行了信息化管理，以提高管理水平和工作效率，同时也可以最大限度的减少手工操作带来的错误。
于是生产管理系统应运而生。
随着我国改革开放的不断深入，企业发展已经从面向区域市场转向面对国内外广阔的市场。
过去长期采用的传统手工或手工加微机的管理方式已无法对经营过程中多层次、多品种、多批量的生产计划进行管理，也无法对任何一种产品生产全过程的动态信息进行管理。
各部门之间的信息传递不流畅，而且大量冗余，决策者常常得不到他们所需要的准确信息，结果造成了生产过程中库存、资金严重积压，原材料时常短缺，零部件生产不配套，计划不准确等不良现象。
这在很大程度上影响了公司的进一步发展。
本系统正是在这种背景之下提出的。
本系统的功能特点集中表现在：
❑提高了企业的经营质量和效率。
❑降低了企业的生产成本，增强了企业的市场竞争力。
❑强化了企业的资金流管理，提高了资金利用率。
❑优化生产管理，疏通生产渠道。
❑提高了生产效率。
1系统分析
1.1需求分析
通过调查，要求本系统需要有以下功能：
❑由于操作人员的计算机操作能力普遍较差，因此要求系统具有良好的人机交互界面。
❑由于本系统的使用对象较多，因此要有完备的权限管理功能。
❑完全人性化设计，无需专业人士指导，即可操作本系统。
❑系统具有数据备份及数据还原功能，能够保证系统数据的安全性。
❑方便的、全方位的数据查询功能。
❑自动完成数据计算，尽量减少人工干预。
❑强大的报表打印功能。
1.2可行性分析
生产管理系统后台数据库采用SQLServer2000数据库，以保证数据的安全、高效和稳定。
前台采用Microsoft公司的VisualBasic6.0作为主要的开发工具，该工具可与SQLServer2000数据库无缝链接。
2总体设计
2.1项目规划
生产管理系统是一个典型的数据库开发应用程序，由基础信息管理模块、计划信息管理模块、生产设备管理模块、产品库存管理模块、辅助功能模块、系统维护模块、帮助信息模块7个功能模块组成，规划系统功能模块如下：
❑基础信息管理模块
该模块主要包括产品基础信息、物料基本信息、设备状态设置、设备类型设置、设备摊销时间设置、车间部门设置6部分组成。
❑计划信息管理模块
该模块主要包括生产计划单管理、生产计划单查询、物料需求计划、物料需求查询4部分。
❑生产设备管理模块
该模块主要由生产设备档案、生产设备查询、生产设备报废、生产设备报废查询、生产设备维修、生产设备维修查询6部分组成。
❑产品库存管理模块
该模块主要由产品完工入库、产品入库查询、物料入库、物料入库查询、生产领料、生产领料查询、物料库存信息查询7部分组成。
❑辅助功能模块
该模块主要包括调用Word、调用Excel、调用计算器、登录Internet、工作备忘5部分。
❑系统维护模块
该模块主要由操作员设置、密码修改、操作权限设置、数据清理、数据备份与恢复、设置主窗口图片6部分组成。
❑帮助信息模块
该模块主要有：
本单位信息、关于、帮助。
2.2系统功能架构图
图1生产管理系统功能架构图
3系统设计
3.1设计目标
本系统属于典型的数据库管理系统，是针对中小型企业生产管理开发设计的，实现进一步的计算机化的管理。
通过本系统可以达到以下目标：
❑灵活的运用表格批量输入数据，使信息传递更快捷。
❑系统采用良好的人机对话模式，界面设计美观友好，信息查询灵活、方便、快捷、准确，数据存储安全可靠。
❑键盘操作，快速响应。
❑实现各种查询及打印功能。
❑操作员可以随时修改自己的口令。
❑管理员可以设置操作员的权限。
❑对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。
❑数据保密性强，为每个用户设置权限级别。
❑系统运行稳定、安全可靠。
3.2开发及运行环境
系统开发平台：
VisualBasic6.0。
数据库管理系统软件：
SQLServer2000。
运行平台：
Windowsxp/Windows2000。
分辨率：
最佳效果800*600。
3.3数据库设计
本系统数据库采用SQLServer2000数据库，系统数据库名称为db_SCGL。
数据库db_SCGL中包含19张数据表。
下面分别给出数据表概要说明和数据表的结构。
1．数据表概要说明
如图2所示的即为本系统中数据库中的数据表的树形结构图，该数据表树型结构图包含系统所有数据表。
可以清晰地反应数据库信息。
图2数据表树型结构图
2．数据表的结构
由于篇幅所限，关于数据库中的数据表请参见附录二。
4主要功能模块设计
4.1公共模块设计
为了节省系统资源，实现代码重用，可以在系统中创建一个Modulel模块。
就本系统而言，该模块主要用于共享数据库连接。
在公共模块中定义了一些公共的变量、数据连接以及Toolbar控件中的相关设置。
由于本系统中的大部分窗体都采用Toolbar控件的风格模式，因此，在这里出模块中关于Toolbar控件中按钮设置的代码。
其他相关代码请参见源程序。
'定义设置Toolbar控件上按钮状态的函数
PublicFunctiontlbState（tlbAsToolbar,stateAsBoolean）
Withtlb
Ifstate=TrueThen'如果状态变量为True
.Buttons
（1）.Enabled=False:
.Buttons
（2）.Enabled=False:
.Buttons（3）.Enabled=False
.Buttons（6）.Enabled=False:
.Buttons（4）.Enabled=True:
.Buttons（5）.Enabled=True
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
EndIf
EndWith
EndFunction
4.2主窗体
主窗体主要是对生产管理系统的各个子功能模块进行调用，并在主窗体中显示操作员的姓名及日期，其运行结果如图3所示。
图3主窗体运行结果
1．窗体设计
（1）在“工程”中新建一个窗体，将窗体的“名称”设置为frm_Main，MaxButton属性设置为False，Caption属性设置为“生产管理系统”，StartUpPosition属性设置为2-屏幕中心。
（2）利用VB提供的菜单编辑器设计窗体菜单。
如图4所示。
图4生产管理系统菜单设计
（3）向窗体上添加1个Toolbar控件，和1个ImageList控件，并将这两个控件连接。
（4）向窗体上添加1个TreeView控件。
添加完成后将其与ImageList控件连接，同时设置其“热跟踪”属性为True。
并将其MousePointer属性设置为99–Custom，MouseIcon属性为“生产管理系统\Program\窗体\Image\鼠标.ico”。
（5）向窗体上添加1个Image控件。
设置其Picture属性，设置Stretch属性为True。
该控件用于显示系统的主界面。
（6）向窗体上添加1个StatusBar控件。
（7）向窗体上添加1个Timer控件，设置其Interval属性为60，Enabled属性为True。
用于显示系统当前的时间。
（8）向窗体上添加1个CommonDialog控件。
由于CommonDialog控件属于ActiveX控件，在使用之前必须从“部件”对话框中添加到工具箱。
添加方法如下：
在“工程”/“部件”对话框中勾选“MicrosoftCommonDialogControls6.0（SP6）”列表项，单击【确定】按钮之后即可将CommonDialog控件添加到工具箱当中。
该控件用于打开相应的对话框。
2．代码设计
在窗体加载时，调用自定义过程Tree_Change，设置TreeView控件中的数据信息。
其设计思路是：
首先将菜单中的项目存储到数据表tb_SCGL_menu中，在窗体启动时，利用嵌套循环向TreeView控件中添加数据信息。
其实现的代码如下：
'自定义一个过程，用于显示TreeView控件中的数据
PublicSubTree_change（）
Dimkey,Text,BH,StrTempAsString
DimNodAsNode'定义一个节点变量
rs1.Open"selectdistinctmenu_menu,menu_menuidfromtb_SCGL_menuorderbymenu_menuid",cnn,adOpenKeyset
Ifrs1.RecordCount>0Then'如果记录数大于零
rs1.MoveFirst'移至第一条记录集
DoWhilers1.EOF=False'循环读取第1层节点中的数据信息
key=Trim（rs1.Fields（"menu_menu"））
Text=rs1.Fields（"menu_menu"）
StrTemp=rs1.Fields（"menu_menu"）
Setnode1=TreeView1.Nodes.Add（,tvwChild,key,Text,1）'给第1层节点赋与数值
rs2.Open"select*fromtb_SCGL_menuwheremenu_menu='"+StrTemp+"'",cnn,adOpenKeyset
Ifrs2.RecordCount>0Then
rs2.MoveFirst
DoWhilers2.EOF=False'循环读取第2层节点中的数据信息
key=Trim（rs2.Fields（"menu_submenu"））
Text=rs2.Fields（"menu_submenu"）
'给第2层节点赋与数值
SetNode2=TreeView1.Nodes.Add（node1.Index,tvwChild,key,Text,2）
rs2.MoveNext
Loop
EndIf
rs2.Close
rs1.MoveNext
Loop
EndIf
rs1.Close
EndSub
4.3系统登录窗体
系统登录主要用于对登录生产管理系统的用户进行安全性检查，以防止非法用户进入该系统。
只有合法的用户，才可以登录本系统，同时系统根据操作员的不同，给予这个操作员相应的操作权限。
验证操作员及其密码，主要通过对数据表tb_user的查询，结合If语句判断用户选定的操作员及其输入的密码是否符合数据库中的操作员和密码，如果符合则允许登录，并给予相应的权限，否则提示错误信息。
如果错误超过3次，则强行退出系统。
生产管理系统登录界面如图5所示。
图5系统登录界面
1．窗体设计
（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_mm，BorderStyle属性设置为0–None，StartUpPosition属性设置为2–屏幕中心。
（2）向窗体上添加1个PictureBox控件，设置其Picture属性。
（3）向窗体上添加1个ListView控件，1个ImageList控件，设置ListView控件的Picture属性，并将ListView控件与ImageList控件连接在一起。
用于显示操作员头像和姓名。
（4）分别向窗体上添加Label控件、TextBox控件、Image控件。
本窗体应用到的主要控件的相关属性请参见表1。
图6生产管理系统登录界面
表1主要控件对象的属性列表
对象
属性
值
功能
Image
Name
Strech
Img_Tx
True
显示登录的操作员头像
ImageList
Name
Imt_Tx
用于存储图片
ListView
Name
ListView1
显示操作员列表
PictureBox
Name
Picture1
显示图片
TextBox
Name
PasswordChar
Text
Txt_mm
*
空
输入操作员密码
TextBox
Name
Text
Visible
Txt_Time
Txt_Time
False
存储错误输入次数
2．代码设计
在窗体加载时，向ListView控件中添加所有的操作员信息，并将显示在前面的操作员头像、操作员编号、操作员姓名显示在操作员信息中，其实现的代码如下：
PrivateSubForm_Load（）
Lbl_Infor.Caption="初始用户名为：
mr密码为：
mrsoft"+Chr（10）+Chr（10）+"本软件由明日科技有限公司开发，欢迎各界朋友来电来函垂询！
"'设置标签内容
rs.Open"select*fromtb_user",cnn,adOpenKeyset'打开对象
Ifrs.RecordCount>0Then
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）））
SetImg_Tx.Picture=Imt_Tx.ListImages（MyIcon）.Picture
'向ListView中添加图片
DoWhilers.EOF=False
Mystr=rs.Fields（"user_name"）
MyIcon=Val（Right（rs.Fields（"user_tx"）,Val（Len（rs.Fields（"user_tx"））-2）））
SetitmX=ListView1.ListItems.Add（,,Mystr,MyIcon）
rs.MoveNext
Loop
EndIf
rs.Close'关闭对象
Txt_mm.Text=""
EndSub
当用户单击ListView控件中操作员列表项时，系统会自动将用户所选择的操作员的头像、操作员编号、操作员姓名显示在相应的位置，以便用户确认该信息是否正确。
其实现的代码如下：
PrivateSubListView1_Click（）
IfListView1.ListItems.Count>0Then
'查询操作员信息
rs.Open"select*fromtb_userwhereuser_Name='"+ListView1.SelectedItem+"'",cnn,adOpenKeyset
Ifrs.RecordCount>0Then'如果记录数大于零
'显示操作员信息
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）））
'将所选择的操作员头像添加到Image控件中
SetImg_Tx.Picture=Imt_Tx.ListImages（MyIcon）.Picture
EndIf
rs.Close'关闭数据集对象
EndIf
EndSub
当用户选定相应的操作员，并在文本框中输入密码，单击【确定】按钮或在Txt_mm文本框中按〈Enter〉键，系统会核实其输入的密码是否正确，如果正确即进入到生产管理系统内部，否则提示用户输入错误。
如果用户输入的错误密码超过3次，系统将强行退出。
其实现代码如下：
PrivateSubLabel7_Click（）
rs.Open"select*fromtb_userwhereuser_name='"+Trim（Lbl_Name.Caption）+"'",cnn,adOpenKeyset
Ifrs.RecordCount>0Then'如果记录数大于零
'验证操作员及密码
IfTxt_mm.Text=rs.Fields（"user_mm"）Then'如果输入密码正确
LoadFrm_Main'加载窗体
Frm_Main.Show
Frm_Main.StatusBar1.Panels
（2）.Text=Lbl_Name.Caption'设置状态栏信息
UnloadMe'关闭本窗体
Else'否则
IfLbl_Name.Caption=""Then'如果操作员姓名为空
MsgBox"请选择操作员！
",,"信息提示"
ListView1.SetFocus'设置焦点
Else
IfTxt_mm.Text<>rs.Fields（"user_mm"）Then'如果密码输入错误
MsgBox"密码错误,请重新输入密码！
",,"信息提示"
Txt_Time.Text=Val（Txt_Time.Text）+1'计数文本框中的数量加一
Txt_mm.SetFocus'将焦点设置在密码文本框中
EndIf
EndIf
IfTxt_Time.Text="3"Then'密码错误3次，退出系统
MyMsg=MsgBox（"密码输入错误,请向系统管理员查询！
",,"信息提示"）
IfMyMsg=vbOKThenEnd
EndIf
EndIf
EndIf
rs.Close
EndSub
4.4物料信息设置
物料信息设置窗体可以用于对本企业所需要的物料信息进行增加、删除、修改、查找操作，并可以通过下面的列表浏览所有的物料信息。
物料信息设置窗体的运行结果如图7所示。
图7物料信息设置窗体运行结果
1．窗体设计
（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_Jcxx_Wlxx，Caption属性设置为“物料信息设置”，MaxButton属性设置为False。
（2）在窗体上添加1个Toolbar控件，1个ImageList控件。
向ImageList1控件中添加图片，并将其与Toolbar控件相连接。
（3）向窗体上添加1个ADO控件，1个DataGrid控件。
设置DataGrid控件的“名称”为Dgr_Wlxx，DataSource属性为Adodc1。
设置Adodc1控件的CommandType属性为1–adCmdText，RecordSource属性设置为select*fromtb_SCGL_wlxxorderbywlxx_id。
其中DataGrid控件用于显示物料信息，ADO控件用于数据连接。
（4）向窗体上添加ComboBox控件，设置其“名称”为Cbx_Cpbh，Style属性为0–DropdownCombo。
该控件用于显示产品编号。
（5）向窗体上添加若干Label控件和TextBox控件。
设置TextBox控件为“名称”为Text1的控件数组。
图8物料信息设置设计窗体
2．代码设计
在程序运行时，数据的增加、删除、修改、查找操作都是通过Toolbar控件上的按钮来实现的。
其实现的关键代码如下：
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.key
Case"add"'添加
blnAdd=True'设置变量，如果为True，则在【保存】按钮中作插入操作
tlbStateToolbar1,True'调用模块中的过程
'打开数据集连接
rs1.Open"select*fromtb_SCGL_wlxxorderbywlxx_id",cnn,adOpenStatic
Ifrs1.RecordCount>0Then'如果数据记录大于零
rs1.MoveLast'移至最后一条记录
Text1（0）="WL"+Format（Val（Right（Trim（rs1.Fields（"wlxx_id"））,3））+1,"###000"）'编号自动加1
Else'如果没有记录
Text1（0）="WL001"
EndIf
rs1.Close'关闭数据对象
Fori=1ToText1.UBound
Text1（i）=""
Text1（i）.Locked=False
Nexti
Cbx_Cpbh.Locked=False
Fori=1ToText1.UBound
Text1（i）.Enabled=True
Nexti
Cbx_Cpbh.Enabled=True:
Text1
（1）.SetFocus
Case"modify"'修改
IfAdodc1.Recordset.RecordCount>0Then
blnAdd=False'设置变量，如果为False，则在【保存】按钮中作修改操作
tlbStateToolbar1,True'调用模块中的过程
Fori=1ToText1.UBound
Text1（i）.Locked=False
Nexti
Cbx_Cpbh.Locked=False
view_dat
升级会员 