《生产管理系统》论文.doc

吉林省明日科技有限公司监制生产管理系统学 院专 业班 级学 号姓 名指导教师教师职称年月日 3 摘要【摘要】生产部门如果没有专业化管理的工具，都会受到如周期、库存、人力、发货、废品、引入新产品和满足客户要求等问题的困扰。如果没有一个有效的计划，生产部门对以上这些问题以及其他一些类似的问题是很难回答的。由于缺乏公认的专业工具和知识体系以及其有效系统，也很难准确的衡量生产部门的工作业绩。由此可见，生产管理系统的引入迫在眉睫。在应用生产管理系统的环境下，在制定销售与运作规划时先要通过资源计划来估算为生产一定数量的某类产品所需的资源，以保证销售与运作规划的合理性。【关键词】 生产部门 问题 生产管理系统目录摘要10 引言11 系统分析21.1 需求分析21.2 可行性分析22 总体设计22.1 项目规划22.2 系统功能架构图33 系统设计33.1 设计目标33.2 开发及运行环境43.3 数据库设计44 主要功能模块设计44.1 数据模块设计44.2 主窗体设计74.3 系统登录设计114.4 产品物料清单的录入与维护模块设计134.5 生产产品确认完工入库模块设计22附录A 参考文献34附录B 数据表35附录C 文件架构图380 引言20世纪60年代以来，一种以“既要降低库存，又要不出现物料短缺”的计划方法逐渐发展起来，主要解决间歇生产的生产计划和控制问题。在间歇生产的情况下，如何保证生产计划的高校运行，保证及时供应物料以满足生产需要，是生产管理中的重要问题，这个问题处理不好，就会造成又库存积压，又物料短缺的情况。目前，无论是企业还是工厂都实行了信息化管理，以提高管理水平和工作效率，同时也可以最大限度的减少手工操作带来的错误。于是生产管理系统应运而生。随着我国改革开放的不断深入，企业发展已经从面向区域市场转向面对国内外广阔的市场。过去长期采用的传统手工或手工加微机的管理方式已无法对经营过程中多层次、多品种、多批量的生产计划进行管理，也无法对任何一种产品生产全过程的动态信息进行管理。各部门之间的信息传递不流畅，而且大量冗余，决策者常常得不到他们所需要的准确信息，结果造成了生产过程中库存、资金严重积压，原材料时常短缺，零部件生产不配套，计划不准确等不良现象。这在很大程度上影响了公司的进一步发展。本系统正是在这种背景之下提出的。本系统的功能特点集中表现在：q 提高了企业的经营质量和效率。q 降低了企业的生产成本，增强了企业的市场竞争力。q 强化了企业的资金流管理，提高了资金利用率。q 优化生产管理，疏通生产渠道。q 提高了生产效率。1 系统分析1.1 需求分析通过调查，要求系统需要有以下功能：q 有良好的人机界面。q 有较好的权限管理。q 完全人性化设计，无需专业人士指导，即可使用该系统。q 系统具有数据备份及数据还原功能。能够保证系统数据的安全性。q 方便的全方位的数据查询。q 在相应的权限下，删除数据方便简单，数据稳定性好。q 数据计算自动完成，尽量减少人工干预。q 强大的报表打印功能。q 系统退出。1.2 可行性分析现在的许多中小型企业用的都是纸和笔的人工管理方式，这样的管理即困难又浪费时间和成本，还很容易出错。所以应该走大型企业先进的管理方式，从而提高企业的效率和降低成本。用Delphi和SQL Server来完成这个系统的功能，根据企业管理现状和需求开发的生产管理系统。解决生产过程中零件配套、物资配套、库存积压等问题，同时提高生产管理的水平，降低库存成本、提高生产效率方面起到显著作用。2 总体设计2.1 项目规划生产管理系统是一个典型的数据库开发应用程序，由产品物料清单管理模块、生产订单管理模块、生产领料管理模块、生产产品管理模块、质量检验模块、查询系统模块、系统管理模块、关于模块等部分组成，规划系统功能模块如下：q 产品物料清单管理模块该模块主要负责物料的录入与维护；产品物料清单的录入与维护。q 生产订单管理模块该模块主要负责生产订单录入与维护。q 生产领料管理模块该模块主要负责生产领料单的生成与维护。q 生产产品管理模块该模块主要负责生产产品确认完工的入库。q 质量检验模块该模块主要负责入库产品的检验。q 查询打印系统模块该模块主要负责生产产品物料清单、生产订单、生产领料单、生产产品入库的查询及打印。q 系统管理模块该模块主要负责操作员管理、修改密码、修改权限、数据备份与恢复、系统初始化。q 关于模块该模块主要负责重新登录、退出系统。2.2 系统功能架构图图1 系统功能架构图3 系统设计3.1 设计目标本系统属于小型的数据库系统，为了对中小型企业生产的管理，实现一些初步的计算机化管理。通过本系统可以达到以下目标：q 灵活的运用表格批量输入数据，使信息传递更快捷。q 系统采用人机对话方式，界面美观友好、信息查询灵活、方便、快捷、准确、数据存储安全可靠。q 键盘操作，快速响应。q 实现各种查询及打印等。q 实现物料的入库、生产产品的入库、入库产品检验等功能。q 操作员可以随时修改自己的口令。q 管理员可以设置操作员的权限。q 对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。q 为每个用户设置权限级别，数据保密性强。q 系统最大限度地实现了易安装性、易维护性和易操作性。q 系统运行稳定、安全可靠。3.2 开发及运行环境系统开发平台：Delphi 7.0。数据库管理系统软件：SQL Server 2000。运行平台：Windows xp/ Windows 2000。分辨率：最佳效果1024*768。3.3 数据库设计本系统数据库采用SQL Server 2000数据库，系统数据库名称为“LB_scglxt”。数据库共包含7张表。下面分别给出数据表概要说明及数据表的结构。1数据表概要说明如图2所示的即为本系统中数据库中的数据表的树形结构图，该数据表树型结构图包含系统所有数据表。可以清晰地反应数据库信息。图2 数据表树型结构图2数据表的结构由于篇幅所限，关于数据库中的数据表请参见附录B4 主要功能模块设计4.1 数据模块设计为了节省系统资源，实现代码重用，可以在系统中新建一个Modulel模块。就本系统而言，该模块主要用于共享数据库连接。数据模块窗体主要功能是连接和处理数据的数据库组件统一规范管理的模块，在设计期间数据模块是以窗体的形式显示在界面中的，但是不可以向数据模块中加入可视化组件，因为该模块不会在系统运行时显示出来。数据模块如图3所示。图3 数据模块1数据模块创建（1）在Delphi中选择“File/New/Data Module”菜单项，新建一个数据模块，命名为“DATA”。（2）在“ADO”组件页中点选“TADOConnection”组件，添加到窗体上，命名为“ADOConnection1”。TADOConnection组件用于连接数据库，其他数据库组件通过它连接数据库。（3）点选ADOConnection1组件，在“Object Inspector”窗口中，单击ConnectionString属性右侧的【】按钮，弹出对话框如图4所示。图4 设置连接字符串（4）单击【Build】按钮，在弹出的对话框中的“提供程序”选项卡中设置希望连接的数据，如图5所示。图5 选择驱动程序（5）选择“连接”选项卡，设置连接相关设置，如图6所示。图6 数据库连接设置（6）单击【测试连接】按钮，如果连接成功，则提示成功，单击【确定】按钮完成数据库的连接。（7）在窗体上添加TADOQuery组件，分别命名为“ADOa”、“ADOb”、“ADOc”、“ADOd”、“ADO_user”、“ADO_bb”设置它们的Connection属性为“ADOConnection1”。4.2 主窗体设计主程序窗体设计的好坏往往会影响系统的整体形象，因此应首先设计好主程序窗体。同时，主程序窗体也是程序控制的核心，操作权限、程序功能调用等都要通过主程序窗体调用实现。生产管理系统主窗体运行结果如图7所示。图7 主窗体运行结果1窗体设计步骤（1）运行Delphi会自动创建一个窗体，设置该窗体为程序主窗体。在“Additional”组件页中点选“TActionManeger”组件，添加到窗体上。双击该组件打开动作编辑器。如图8所示。New Action图8 显示TActionManeger编辑器（2）在“Standard”组件页中点选“TMainMenu”组件，添加到窗体上双击该组件弹出菜单编辑器，如图9所示。图9 显示TmainMenu编辑器（3）在“Object Inspector”窗口中，在Action属性中选择相应的图10中Action文本框中动作项的命名名称。如图11所示。N1的Action属性 图10 添加TMainMenu对象 图11 N1的Action属性（4）在“Win32”组件页中点选“TStatusBar”组件，添加到窗体上。如图12所示。图12 面板编辑器（5）在“Standard”组件页中点选“TPanel”组件，添加到窗体上。在“Additional”组件页中点选“TImage”组件，分别添加到相应的TPanel中。在“Additional”组件页中选择“TSpeedButton”组件，在“Image3”中添加14个。在“System”组件页中选择“TTimer”组件，添加到窗体上。在“Image2”组件上添加8个TLabel组件。（6）重要组件的相关属性设置如表1所示。表1 组件相关属性设置对象名对象类型属性值FRM_ERP_ZJMTFormCaption生产管理系统Borderlcons中的biMaximizeFalsePositionpoScreenCenterSpeedButton1-14TSpeedButtonFlatTruePanel1- Panel3TPanelBevelInnerbvNoneBevelOuterbvNone2程序相关代码在implementation上面定义公共变量。代码如下： var FRM_YHDL: TFRM_YHDL;jj : integer = 0;implementationttp()函数主要设置窗体上功能按钮不可见。代码如下：procedure TFRM_ERP_ZJM.ttp(tt : integer);begin SpeedButton1.Visible := false; SpeedButton2.Visible := false; SpeedButton3.Visible := false; SpeedButton4.Visible := false; SpeedButton5.Visible := false; SpeedButton6.Visible := false; SpeedButton7.Visible := false; SpeedButton8.Visible := false; SpeedButton9.Visible := false; SpeedButton10.Visible := false; SpeedButton11.Visible := false; SpeedButton12.Visible := false; SpeedButton13.Visible := false; SpeedButton14.Visible := false;end;在主窗体显示之前首先显示登录窗体，并将相应的TSpeedButton按钮显示在用户区的桌面上。主窗体的OnShow事件代码如下：procedure TFRM_ERP_ZJM.FormShow(Sender: TObject);begin jj := 0; APPLICATION.CreateForm(TFRM_YHDL, FRM_YHDL); FRM_YHDL.ShowModal; FRM_YHDL.Free; ttp(1); /此函数使所有的TspeedButton组件的Visible属性为“False”。 speedbutton1.Action := Action2; /将动态项的OnExecute事件给speedbutton1 speedbutton2.Action := Action3; /将动态项的OnExecute事件给speedbutton2 SpeedButton1.Caption:=; SpeedButton2.Caption:=;end; 双击TActionManeger组件打开动作编辑器。在“Actions”选项卡的Action文本框中双击“物料的录入与维护”。动作项“Action2”的OnExecute事件代码如下：procedure TFRM_ERP_ZJM.Action2Execute(Sender: TObject);beginif a1 = 1 then /数组a在MRYHDL单元中定义的，如果为1则有权进入 begin application.CreateForm(TFRM_CLXX, FRM_CLXX); /动态生成窗体 FRM_CLXX.ShowModal; /显示窗体 FRM_CLXX.Free; /释放窗体 end else showmessage(超出权限); /超出权限时显示提示框emd;在Label1的OnClick事件处理过程中，先清空Timage组件的Picture所加载的图片，然后加载指定的图片。其代码如下：procedure TFRM_ERP_ZJM.Label1Click(Sender: TObject);begin image2.Picture.CleanupInstance; /清空image2所加载的图片 image3.Picture.CleanupInstance; chdir(ExtractFilepath(Application.ExeName); image2.Picture.LoadFromFile(Image12.jpg); image3.Picture.LoadFromFile(Image13.jpg); ttp(1); speedbutton1.Action := Action2; speedbutton2.Action := Action3; SpeedButton1.Caption:=; SpeedButton2.Caption:=; end;在Ttimer组件的OnTimer事件处理过程中，设置状态栏中显示的时间，其代码如下：procedure TFRM_ERP_ZJM.Timer1Timer(Sender: TObject);begin StatusBar1.Panels5.Text := +timetostr(gettime();end;4.3 系统登录设计系统登录主要用于对进入生产管理系统的用户进行安全性检查，以防止非法用户进入该系统。只有合法的用户，才可以进入系统，同时根据管理员分配的权限，给予这个操作员相应的操作权限。验证操作员及其密码，主要通过对数据表tb_user的查询，判断用户选定的操作员及其输入的密码是否符合数据库中的操作员和密码，如果符合则允许登录，并给予相应的权限；否则提示用户非法登录。生产管理系统登录模块运行结果如图13所示。图13 系统登录模块运行结果1窗体设计步骤（1）选择“File”/“New”/“Form”菜单项，新建一个窗体，命名窗体为“FRM_YHDL”，设置Caption属性为“登录”；设置BorderStyle属性为“bsNone”；设置Position属性为“poScreenCenter”。（2）在“Standard”组件页中点选“TPanel”组件，添加到窗体上，设置Align属性为“alClient”；设置BorderStyle属性为“bsSizeable”；设置Position属性为“poScreenCenter”。（3）在“Additional”组件页中点选“TImage”组件，添加到TPanel组件上，设置Align属性为“alClient”；设置Picture属性为组件加载图片。（4）在“Standard”组件页中点选TEdit组件，在窗体上添加2个TEdit组件。分别命名为“Edit1”、“Edit2”，设置它们的Ctl3D属性为“False”，Edit2组件的PassWordChar属性为“*”。（5）在“Additional”组件页中点选“TSpeedButton”组件，在窗体上添加2个，设置它们的Caption属性为空，设置Flat属性为“True”，设置相应的大小，覆盖图片上的“登录”和“退出”按钮。2程序相关代码定义公共变量。代码如下： var FRM_YHDL: TFRM_YHDL; dl,p : integer; yhmc,ppl : string; a : array1.11 of string; /定义数组implementation【登录】按钮的OnClick事件处理过程中，首先要确定用户名和密码是否正确，如果正确则判断jj是否等于1，如果等于1，则调用重新登录窗口。否则是调用登录窗口，登录窗口只能输入3次用户名及密码，超出则退出本系统，在登录成功后给各窗体赋值用户的相应权限。其代码如下：procedure TFRM_YHDL.SpeedButton1Click(Sender: TObject);var P:INTEGER;Begin with data.ADOc do /查找用户名和密码正确的信息 begin close; sql.Clear; sql.Add(select * from tb_user where czyname=:a and czymm=:b); Parameters.ParamByName(a).Value := Trim(Edit1.Text); /将用户名赋值给变量a Parameters.ParamByName(b).Value := Trim(Edit2.Text); /将密码赋值给变量b open; end; if data.ADOc.RecordCount0 then /判断查询结果是否有信息 begin yhmc := data.ADOc.fieldbyname(czyname).AsString; /将用户名赋给变量yhmc for p := 1 to 11 do /将用户的权限赋值给数组 begin ppl := inttostr(p); ap := data.ADOc.fieldbyname(ppl).AsString; end; if jj = 1 then /判断jj=1时，为重新登录，否则为登录窗体 begin self.Close; FRM_ERP_ZJM.StatusBar1.Panels.Items1.Text := +操作员名称： +yhmc; end else begin SElf.Close; FRM_ERP_ZJM.StatusBar1.Panels.Items1.Text := +操作员名称： +yhmc; end; end else begin showmessage(操作员名称、密码不正确+#13+请重新输入。); edit1.Clear; edit2.Clear; dl := dl+1; end; if jj 1 then begin if dl = 4 then /判断登录的错误不能大于3次，如果大于则退出本系统 begin FRM_ERP_ZJM.Close; end; end;end;在【退出】按钮的OnClick事件处理过程中，如果jj=1则为重新登录的【退出】按钮，只关闭本窗体。否则为登录的【退出】按钮，退出整个系统。其代码如下：procedure TFRM_YHDL.SpeedButton2Click(Sender: TObject);begin if jj = 1 then FRM_YHDL.Close else APPLICATION.Terminate; /关闭所有窗体，即关闭本系统end;在.Edit1组件的OnKeyDown事件处理过程中，如果在edit1上按Enter键，则光标停留在edit2中。其代码如下：procedure TFRM_YHDL.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key = vk_return then edit2.SetFocus;end;4.4 产品物料清单的录入与维护模块设计产品物料清单的录入与维护模块主要是对产品所用物料信息的添加、修改和删除。产品物料清单的录入与维护模块运行结果如图14所示。图14 产品物料清单的录入与维护模块1窗体设计步骤（1）选择“File/New/Form”菜单项，新建一个窗体。在“Win32”组件页中点选“TImageList”组件，添加到窗体上。在“Standard”组件页中点选“TPanel”组件，添加到窗体上。设置相应的大小。在“Win32”组件页中点选“TToolBar”组件，添加到TPanel组件上，在TToolBar组件上单击右键，在弹出的菜单中单击“New Button”菜单项，添加工具栏按钮。如图15所示。图15 工具栏按钮属性（2）在“Data Access”组件页中点选“TDataSource” 组件 ，添加到窗体上。在“Win32”组件页中点选“TPageControl”组件，添加到窗体上，命名为“PageControl1”。在PageControl1组件上单击右键，在弹出的菜单中选择“New Page”菜单项，创建两个页。在“Standard”组件页中点选“TPanel”组件，添加到TabSheet1页中，其相关属性设置，如图16所示。图16 Panel1属性设置（3）在“Standard”组件页中点选“TLabel”组件，添加到Panel1组件上。在“Standard”组件页中点选“TEdit”组件，添加到Panel1组件上。在“Standard”组件页中点选“TComboBox”组件，添加到Panel1组件上。在“Standard”组件页中点选“TPanel”组件，添加到TabSheet2页中。（4）在“Data Controls”组件页中点选“TDBGrid”组件，添加到Panel3组件上，双击DBGrid1组件，弹出的列编辑器，如图17所示。选择数据表中相应的字段名字段名相应的标题 图17 TDBGrid组件编辑器（5）重要组件的相关属性设置如表2所示。表2 组件的相关属性设置对象名对象类型属性值FRM_CPCLTFormCaption产品物料清单的录入与维护Borderlcons中的biMaximizeFalsePositionpoScreenCenterToolBar1TToolBarAlignalClientImagesImagelist1FlatTureShowCaptionsTurePanel1- Panel3TPanelBevelInnerbvNoneBevelOuterbvNoneDatalbTDataSourceDataSetDATA.ADOaDBGrid1TDBGridDataSourceDatalb2程序相关代码在窗体显示时，将tb_cl表中的cl_hh字段中的数据存入TComboBox组件的下拉列表中。连接数据库中的tb_cpcl表，如果有数据，则将第一条记录的信息显示在相应的组件中，否则清空相应的组件。窗体OnShow事件代码如下：procedure TFRM_CPCL.FormShow(Sender: TObject);begin combobox1.Clear; /清空Tcombobox组件 with data.ADOb do /连接数据库中的tb_cl表 begin close; sql.Clear; sql.Add(select * from tb_cl); open; end; if data.ADOb.RecordCount0 then /判断tb_cl表中是否有数据 begin while not data.ADOb.Eof do /如果不到文件尾则执行循环体的语句 begin combobox1.Items.Add(data.ADOb.fieldbyname(cl_hh).AsString); /判断输入是否为空 data.ADOb.Next; /下一条记录 end; end; with data.ADOa do /连接数据库中的tb_cpcl表 begin close; sql.Clear; sql.Add(select * from tb_cpcl); open; end; datalb.DataSet := data.ADOa; /连接数据库 if data.ADOa.RecordCount 1 then /如果表中的记录为空则清空下面的组件 begin edit1.Clear; edit2.Clear; edit3.Clear; combobox1.Text := ; /注意：此处不能写成combobox1.Clear; end else /否则将表中的第一条记录的内容赋给下面的组件 begin data.ADOa.First; edit1.Text := data.ADOa.fieldbyname(cpbh).AsString; edit2.Text := data.ADOa.fieldbyname(cpmc).AsString; combobox1.Text := data.ADOa.fieldbyname(clhh).AsString; edit3.Text := data.ADOa.fieldbyname(clmc).AsString; edit4.Text := data.ADOa.fieldbyname(dw).AsString; edit5.Text := data.ADOa.fieldbyname(gg).AsString; edit6.Text := floattostr(data.ADOa.fieldbyname(yl).AsFloat); end;end;在【添加】按钮的OnClick事件处理过程中，首先清空TabSheet1页中所有编辑框的数据，然后判断tb_cpcl表是否为空，如果为空则将编号（最后6位为000001）赋给edit1的Text属性，否则将tb_cpcl表中最大的编号加1赋给edit1的Text属性。其代码如下：procedure TFRM_CPCL.ToolButton1Click(Sender: TObject);var i : integer; s : string;begin i := 1; tb := 1; edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit6.Clear; combobox1.Text := ; s := PW+formatdatetime(yyyymm,now(); if data.ADOa.RecordCount0 then begin ef := strtofloat(data.ADOd.fieldbyname(sl).AsString); scdd := data.ADOd.fieldbyname(scddh).AsString; while not data.ADOd.Eof do begin data.ADOd.Edit; data.adod.FieldByName(cpmc).AsString := en; data.adod.Post; data.ADOd.Next; end; end; with data.ADOd do /连接数据库中的tb_ll表并查询字段scddh等于scdd变量的所有记录 begin close; sql.Clear; sql.Add(select * from tb_ll where scddh=+scdd+); open; end; if data.ADOd.RecordCount0 then begin while not data.ADOd.Eof do begin data.ADOd.Edit; /如果tb_cpcl表中的字段信息被修改则修改tb_ll表中的相应字段 data.adod.FieldByName(cpmc).AsString := en; data.ADOd.FieldByName(gg).AsString := eg; data.ADOd.FieldByName(wlhh).AsString := wh; data.ADOd.FieldByName(wlmc).AsString := wm; data.ADOd.FieldByName(sl).AsFloat := el*ef; data.adod.Post; data.ADOd.Next; end; end; with data.ADOd do begin close; sql.Clear; sql.Add(select * from tb_ll where scddh=+scdd+); open; end; with data.ADOd do /连接数据库中的tb_cprk表并查询scddh字段等于scdd普量的所有信息 begin close; sql.Clear; sql.Add(select * from tb_cprk where scddh=+scdd+); open; end; if data.ADOd.RecordCount0 then begin while not data.ADOd.Eof do begin data.ADOd.Edit; /修改相关的字段信息 data.adod.FieldByName(cpmc).AsString := en; data.adod.Post; data.ADOd.Next; end; end; with data.ADOd do /连接数据库中的tb_jy表并查询scddh字段等于scdd变量的所有信息 begin close; sql.Clear; sql.Add(select * from tb_jy where scddh=+scdd+); open; end; if data.ADOd.RecordCount0 then begin while not data.ADOd.Eof do begin data.ADOd.Edit; /修改相关的字段信息 data.adod.FieldByName(cpmc).AsString := en; data.adod.Post; data.ADOd.Next; end; end;end;在【查询】按钮的OnClick事件处理过程中，调用查询对话框进行查询，然后进行修改。其代码如下：procedure TFRM_CPCL.ToolButton6Click(Sender: TObject);begin ToolButton5.Enabled := TRUE; /使取消按钮可用 application.CreateForm(TFRM_CPCL_CX, FRM_CPCL_CX); /调用查询对话框 FRM_CPCL_CX.ShowModal; /显示查询对话框 FRM_CPCL_CX.Free; 释放查询对话框end;在【第一条】按钮的OnClick事件处理过程中，使指针指向数据表的第一条记录，把相关的信息赋值给TabSheet1页中的所有组件，使【第一条】、【上一条】按钮不可用。其代码如下：procedure TFRM_CPCL.ToolButton8Click(Sender: TObject);begin data.ADOa.First; /使指针指向第一条记录 edit1.Text := data.ADOa.fieldbyname(cpbh).AsString; edit2.Text := data.ADOa.fieldbyname(cpmc).AsString; combobox1.Text := data