橡胶制品厂生产管理系统论文

49/49新疆广播电视大学毕业论文（设计）书（开放教育计算机科学与技术本科专业）题目新疆昆仑橡胶制品厂生产治理系统姓名学号班级指导教师 职称2007年12月10日摘要【摘要】生产部门假如没有专业化治理的工具，都会受到如周期、库存、人力、发货、废品、引入新产品和满足客户要求等问题的困扰。假如没有一个有效的打算，生产部门对以上这些问题以及其他一些类似的问题是专门难回答的。由于缺乏公认的专业工具和知识体系以及其有效系统，也专门难准确的衡量生产部门的工作业绩。由此可见，生产治理系统的引入迫在眉睫。在应用生产治理系统的环境下，在制定销售与运作规划时先要通过资源打算来估算为生产一定数量的某类产品所需的资源，以保证销售与运作规划的合理性。【关键词】生产部门问题生产治理系统AbstractUnlessmanagingmeansiseffectivelyputonuseinproductiondepartment,itwillbetiredbytime,stock,humanresources,deliveryandevenhownewproductssatisfythecustomers.onlyafterconceivingtheseproblem.Canweanswerthosethoughquestion.Becauseofshortageofstandard,meansandsuccessfulknowledgesystems,wearedifficultiesmeasureandaccesstheresultfromproductiondivisions.Therefore,tobringinproductionmanagingsystemisurgentandmagnificent.Inordertoensuretherationalityfosalesandrunningplans.wehavetoreckontheresourceformanufacturingwhenyouwillbescheduledtomakethegeneralplan.目录TOC\o"1-3"\h\z摘要 2目录 30引言 41系统分析 51.1需求分析 51.2可行性分析 52总体设计 52.1项目规划 52.2系统功能架构图 63系统设计 63.1设计目标 63.2开发及运行环境 73.3数据库设计 74要紧功能模块设计 84.1公共模块设计 84.2主窗体 94.3系统登录窗体 124.4物料信息设置 164.5生产打算单治理 214.6设备报废信息 23附录A参考文献 26附录B数据表 27附录C文件架构图 370引言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)WithtlbIfstate=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=TrueElse'假如状态变量为False.Buttons(1).Enabled=True:.Buttons(2).Enabled=True:.Buttons(3).Enabled=True.Buttons(6).Enabled=True:.Buttons(4).Enabled=False:Buttons(5).Enabled=FalseEndIfEndWithEndFunction4.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,StrTempAsStringDimNodAsNode'定义一个节点变量rs1.Open"selectdistinctmenu_menu,menu_menuidfromtb_SCGL_menuorderbymenu_menuid",cnn,adOpenKeysetIfrs1.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,adOpenKeysetIfrs2.RecordCount>0Thenrs2.MoveFirstDoWhilers2.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.MoveNextLoopEndIfrs2.Closers1.MoveNextLoopEndIfrs1.CloseEndSub4.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要紧控件对象的属性列表对象属性值功能ImageNameStrechImg_TxTrue显示登录的操作员头像ImageListNameImt_Tx用于存储图片ListViewNameListView1显示操作员列表PictureBoxNamePicture1显示图片TextBoxNamePasswordCharTextTxt_mm*空输入操作员密码TextBoxNameTextVisibleTxt_TimeTxt_TimeFalse存储错误输入次数2．代码设计在窗体加载时，向ListView控件中添加所有的操作员信息，并将显示在前面的操作员头像、操作员编号、操作员姓名显示在操作员信息中，事实上现的代码如下：PrivateSubForm_Load()Lbl_Infor.Caption="初始用户名为：mr密码为：mrsoft"+Chr(10)+Chr(10)+"本软件由巴州电大路航开发，"'设置标签内容rs.Open"select*fromtb_user",cnn,adOpenKeyset'打开对象Ifrs.RecordCount>0Thenrs.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=FalseMystr=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.MoveNextLoopEndIfrs.Close'关闭对象Txt_mm.Text=""EndSub当用户单击ListView控件中操作员列表项时，系统会自动将用户所选择的操作员的头像、操作员编号、操作员姓名显示在相应的位置，以便用户确认该信息是否正确。事实上现的代码如下：PrivateSubListView1_Click()IfListView1.ListItems.Count>0Then'查询操作员信息rs.Open"select*fromtb_userwhereuser_Name='"+ListView1.SelectedItem+"'",cnn,adOpenKeysetIfrs.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).PictureEndIfrs.Close'关闭数据集对象EndIfEndSub当用户选定相应的操作员，并在文本框中输入密码，单击【确定】按钮或在Txt_mm文本框中按〈Enter〉键，系统会核实其输入的密码是否正确，假如正确即进入到生产治理系统内部，否则提示用户输入错误。假如用户输入的错误密码超过3次，系统将强行退出。事实上现代码如下：PrivateSubLabel7_Click()rs.Open"select*fromtb_userwhereuser_name='"+Trim(Lbl_Name.Caption)+"'",cnn,adOpenKeysetIfrs.RecordCount>0Then'假如记录数大于零'验证操作员及密码IfTxt_mm.Text=rs.Fields("user_mm")Then'假如输入密码正确LoadFrm_Main'加载窗体Frm_Main.ShowFrm_Main.StatusBar1.Panels(2).Text=Lbl_Name.Caption'设置状态栏信息UnloadMe'关闭本窗体Else'否则IfLbl_Name.Caption=""Then'假如操作员姓名为空MsgBox"请选择操作员！",,"信息提示"ListView1.SetFocus'设置焦点ElseIfTxt_mm.Text<>rs.Fields("user_mm")Then'假如密码输入错误MsgBox"密码错误,请重新输入密码！",,"信息提示"Txt_Time.Text=Val(Txt_Time.Text)+1'计数文本框中的数量加一Txt_mm.SetFocus'将焦点设置在密码文本框中EndIfEndIfIfTxt_Time.Text="3"Then'密码错误3次，退出系统MyMsg=MsgBox("密码输入错误,请向系统治理员查询！",,"信息提示")IfMyMsg=vbOKThenEndEndIfEndIfEndIfrs.CloseEndSub4.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.keyCase"add"'添加blnAdd=True'设置变量，假如为True，则在【保存】按钮中作插入操作tlbStateToolbar1,True'调用模块中的过程'打开数据集连接rs1.Open"select*fromtb_SCGL_wlxxorderbywlxx_id",cnn,adOpenStaticIfrs1.RecordCount>0Then'假如数据记录大于零rs1.MoveLast'移至最后一条记录Text1(0)="WL"+Format(Val(Right(Trim(rs1.Fields("wlxx_id")),3))+1,"###000")'编号自动加1Else'假如没有记录Text1(0)="WL001"EndIfrs1.Close'关闭数据对象Fori=1ToText1.UBoundText1(i)=""Text1(i).Locked=FalseNextiCbx_Cpbh.Locked=FalseFori=1ToText1.UBoundText1(i).Enabled=TrueNextiCbx_Cpbh.Enabled=True:Text1(1).SetFocusCase"modify"'修改IfAdodc1.Recordset.RecordCount>0ThenblnAdd=False'设置变量，假如为False，则在【保存】按钮中作修改操作tlbStateToolbar1,True'调用模块中的过程Fori=1ToText1.UBoundText1(i).Locked=FalseNextiCbx_Cpbh.Locked=Falseview_data'调用自定义的过程mybookmark=Dgr_Wlxx.BookmarkFori=1ToText1.UBoundText1(i).Enabled=TrueNextiCbx_Cpbh.Enabled=TrueElseMsgBox"系统没有要修改的数据！",,"提示窗口"EndIfCase"delete"'删除IfAdodc1.Recordset.RecordCount>0Then'查询其他表中是否有相关的信息正在使用，假如有这不能删除该信息Dimrs2AsNewADODB.Recordsetrs2.Open"select*fromtb_SCGL_wlxqwherewlxq_wlbh='"+Adodc1.Recordset.Fields("wlxx_id")+"'",cnn,adOpenKeysetIfrs2.RecordCount>0ThenMsgBox"该信息正在使用，不能删除！",,"信息提示"ExitSubElseAdodc1.Recordset.DeleteAdodc1.RefreshFori=0ToText1.UBoundText1(i).Text=""NextiCbx_Cpbh.Text=""Callview_data'调用数据显示自定义过程CallDgr_Title'调用设置表头的字定义过程EndIfElseMsgBox"系统没有要删除的数据！",,"提示窗口"EndIfCase"save"'保存OnErrorGoToSaveErr'错误处理IfText1(1).Text=""ThenMsgBox"系统不同意"&Label2&"为空！",,"提示窗口"ExitSubEndIfIfblnAdd=TrueThen'添加新记录cnn.Execute("insertintotb_SCGL_wlxx(wlxx_id,wlxx_wlmc,wlxx_wlgg,wlxx_wldw,wlxx_cpbh,wlxx_cpmc,wlxx_cpgg,wlxx_bz,wlxx_wlsl)values('"+Text1(0)+"','"+Text1(1)+"','"+Text1(2)+"','"+Text1(3)+"','"+Cbx_Cpbh.Text+"','"+Text1(4).Text+"','"+Text1(5).Text+"','"+Text1(6)+"','"+Text1(7)+"')")UnloadMeFrm_Jcxx_Wlxx.Show1:tlbStateToolbar1,FalseFori=1ToText1.UBoundText1(i).Locked=TrueNextiCbx_Cpbh.Locked=TrueElse'修改原有记录cnn.Execute("updatetb_SCGL_wlxxsetwlxx_wlmc='"+Text1(1)+"',wlxx_wlgg='"+Text1(2)+"',wlxx_wldw='"+Text1(3)+"',wlxx_cpbh='"+Cbx_Cpbh.Text+"',wlxx_cpmc='"+Text1(4)+"',wlxx_cpgg='"+Text1(5)+"',wlxx_bz='"+Text1(6)+"',wlxx_wlsl='"+Text1(7)+"'wherewlxx_id='"+Text1(0).Text+"'")UnloadMeFrm_Jcxx_Wlxx.Show1:Dgr_Wlxx.Bookmark=mybookmarktlbStateToolbar1,False'调用模块中的自定义过程Fori=1ToText1.UBoundText1(i).Locked=TrueNextiCbx_Cpbh.Locked=TrueEndIfExitSubSaveErr:'出错处理程序MsgBoxErr.Description,,"信息提示"Case"cancel"'取消tlbStateToolbar1,FalseFori=1ToText1.UBoundText1(i).Locked=TrueNextiCbx_Cpbh.Locked=True:Callview_dataCase"find"'查询Mystr=InputBox("请输入要查询的物料信息编号","物料信息查询","WL001")rs1.Open"select*fromtb_SCGL_wlxxwherewlxx_id='"+Mystr+"'",cnn,adOpenKeysetIfrs1.RecordCount>0ThenFori=0To3Ifrs1.Fields(i)<>""ThenText1(i).Text=rs1.Fields(i)ElseText1(i).Text=""Cbx_Cpbh.Text=""NextiIfrs1.Fields(4)<>""ThenCbx_Cpbh.Text=rs1.Fields(4)ElseCbx_Cpbh.Text=""Ifrs1.Fields(5)<>""ThenText1(4).Text=rs1.Fields(5)ElseText1(4).Text=""Ifrs1.Fields(6)<>""ThenText1(5).Text=rs1.Fields(6)ElseText1(5).Text=""Ifrs1.Fields(7)<>""ThenText1(6).Text=rs1.Fields(7)ElseText1(6).Text=""Ifrs1.Fields(8)<>""ThenText1(7).Text=rs1.Fields(8)ElseText1(7).Text=""EndIfrs1.CloseCase"close"'关闭UnloadMeEndSelectEndSub4.5生产打算单治理生产打算单治理窗体是生产治理系统中一个比较重要的部分。后面的物料打算治理模块、产品入库模块都与生产打算单有着紧密的联系。在生产打算单中能够完成对生产打算单的增加、删除、修改、查找操作。在生产打算单治理中，当用户单击【增加】按钮时，系统会自动生成生产打算单编号，并将企业所生产的产品添加到产品编号组合框中，当用户选择要生产的产品编号后，系统会自动将产品名称、产品规格、计量单位自动添加到相应的文本框中，用户只需添入打算数量、投产日期、打算日期等即可。无须用户查找相应的产品信息，使用户操作更加简便。生产打算单窗体的运行结果如图9所示。图9生产打算单治理运行结果1．窗体设计（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_Jhgl_Scjhd，Caption属性设置为“生产打算单”，MaxButton属性设置为False，StartUpPosition属性设置为2–屏幕中心。（2）向窗体上添加1个Toolbar控件，1个ImageList控件。向ImageList控件中添加图片，并将这两个控件连接起来。（3）向窗体上添加1个ADO控件，1个DataGrid控件。设置DataGrid控件的“名称”为Dgr_Scjhd，DataSource属性设置为Adodc1。设置Adodc1控件的CommandType属性为1–adCmdText，RecordSource属性设置为select*fromtb_SCGL_scjhd。其中DataGrid控件用于显示生产打算单信息，ADO控件用于数据连接。（4）向窗体上添加2个DTPicker控件，“名称”设置为Dtp_Tcrq和Dtp_Wgrq，分不用于显示投产日期和完工日期。（5）向窗体上添加2个ComboBox控件，分不设置其“名称”为Cbx_Cpbh和Cbx_wcf，Style属性为0–DropdownCombo。分不用来显示产品编号和是否完工。（6）向窗体上添加Label控件和TextBox控件。设置TextBox控件为“名称”是Text1的控件数组。2．代码设计在生产打算单治理窗体中的增加、删除、修改操作差不多上利用差不多的SQL语句执行的，在那个地点就不做详细的介绍，请参见源程序。在那个地点只介绍一下如何利用〈Enter〉键使光标从一个文本框移动到下一个文本框当中。同时当该文本框获得焦点时，背景色设置为蓝色，失去焦点时，背景色恢复为白色。下面首先介绍一下有关光标移动的代码。关于控件数组的处理方法，可利用KeyPress事件和Index属性来实现，其关键代码如下：PrivateSubtext1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)IfKeyAscii=13Then'按下回车键IfIndex=4Then'假如光标在Text1（4）上，Dtp_Tcrq.SetFocus'则将焦点设置在Dtp_Tcrq上ExitSub'结束本领件EndIfIfIndex=5ThenExitSub'若光标在Text1（5）上，则结束Text1(Index+1).SetFocus'光标移至下一个文本框EndIfEndSub关于非数组控件的处理方法，可直接利用KeyDown事件，那个地点以Cbx_Cpbh控件（ComboBox控件）为例，事实上现的关键代码如下：PrivateSubCbx_Cpbh_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenText1(4).SetFocusEndSub下面再介绍一下关于背景色的设置方法。关于控件数组的处理方法，可利用GotFocus事件和LostFocus事件以及Index属性来实现，其关键代码如下：PrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).BackColor=&HFFFF80'设置背景色为蓝色Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_LostFocus(IndexAsInteger)Text1(Index).BackColor=&HFFFFFF'设置背景色为白色EndSub4.6设备报废信息设备报废信息窗体要紧实现的功能是关于设备报废信息进行增加、删除、修改、查找的操作，并能够逐条扫瞄报废的设备信息。其运行的效果如图10所示。图10设备报废信息窗体运行效果1．窗体设计（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_Sbgl_Sbbf，Caption属性设置为“设备报废信息”，MaxButton属性设置为False，StartUpPosition属性设置为2–屏幕中心。（2）向窗体上添加1个Toolbar控件，1个ImageList控件。向ImageList控件中添加图片，并将其与Toolbar控件相连接。（4）向窗体上添加2个ADO控件和DataGrid控件。设置DataGrid控件的“名称”为Dgr_Sbbf，DataSource属性为Adodc1。设置Adodc1控件的CommandType属性设置为1–adCmdText，RecordSource属性设置为select*fromtb_SCGL_sbbforderbysbbf_id，设置Adodc2控件的CommandType属性为1–adCmdText，RecordSource属性为select*fromtb_SCGL_scsborderbyscsb_sbbh。其中DataGrid控件用于显示设备报废信息，ADO控件用于数据连接。（5）向窗体上添加2个DTPicker控件，“名称”设置为Dtp_Qyrq和Dtp_Bfrq，分不用于显示设备启用日期和设备报废日期。（6）向窗体上添加1个ComboBox控件，设置其“名称”为Cbx_Sbbh，Style属性为0–DropdownCombo。用来显示产品编号信息。（7）向窗体上添加Label控件和TextBox控件。设置TextBox控件为“名称”属性是Text1的控件数组。2．代码设计设备报废信息窗体在对报废信息进行增加、删除、修改、查找操作时，所采纳的方法和其他窗体大致相同（请参阅物料信息设置窗体）。值得一提的是在执行添加操作时，系统不但将数据信息添加到报废信息表（tb_SCGL_sbbf）中，还将设备表（tb_SCGL_scsb）中该设备的状态设置为“报废”。以保持信息的完整性。事实上现的关键代码如下：Setrs1=NewADODB.Recordsetrs1.Open"tb_SCGL_sbbf",cnn,adOpenKeyset,adLockOptimisticcnn.Execute("insertintotb_SCGL_sbbf(sbbf_id,sbbf_sbbh,sbbf_sbmc,sbbf_sybm,sbbf_sblx,sbbf_qyri,sbbf_bfrq,sbbf_bz)values('"+Text1(0).Text+"','"+Cbx_Sbbh.Text+"','"+Text1(1).Text+"','"+Text1(2).Text+"','"+Text1(3).Text+"','"+Str(Dtp_Qyrq.Value)+"','"+Str(Dtp_Bfrq.Value)+"','"+Text1(4).Text+"')")Dimrs4AsNewADODB.Recordsetrs4.Open"select*fromtb_SCGL_scsbwherescsb_sbbh='"+Cbx_Sbbh.Text+"'",cnn,adOpenStaticIfrs4.RecordCount>0Thencnn.Execute("updatetb_SCGL_scsbsetscsb_sbzt='报废'wherescsb_sbbh='"+Cbx_Sbbh.Text+"'")EndIfrs4.CloseAdodc1.Refreshrs1.Close在进行“添加”操作时，用户能够在设备编号文本框中选择或输入设备编号，当该文本框失去焦点时，查询输入或选择的设备编号是否是本企业的设备，假如不是或者尽管是本企业的设备，然而差不多报废，则提示相应的信息，让用户重新输入或选择，否则程序接着执行。事实上现的关键代码如下：PrivateSubCbx_Sbbh_LostFocus()Cbx_Sbbh.BackColor=&HFFFFFFrs4.Open"select*fromtb_SCGL_scsbwherescsb_sbbh='"+Cbx_Sbbh.Text+"'",cnn,adOpenKeysetIfrs4.RecordCount<=0ThenMsgBox"该设备不是本公司的，请核实！",,"信息提示"Cbx_Sbbh.SetFocusEndIfrs4.Closers5.Open"select*fromtb_SCGL_sbbfwheresbbf_sbbh='"+Cbx_Sbbh+"'",cnn,adOpenKeysetIfrs5.RecordCount>0ThenMsgBox"该设备差不多报废，请核实！",,"信息提示"Cbx_Sbbh.SetFocusEndIfrs5.CloseEndSub

附录A参考文献1．VisualBasic精彩编程200例机械工业出版社 赛奎春、高春艳等2003年1月 2．VisualBasic数据库开发实例解析机械工业出版社 刘志铭、高春艳等2003年8月 3．VisualFoxPro数据库开发实例解析机械工业出版社 王晶莹、王国辉等2003年9月 4．VisualBasic工程应用与项目实践机械工业出版社 高春艳、李俊民等2005年1月 5．VisualC＋＋工程应用与项目实践机械工业出版社 张雨、阮伟良等5005年1月6．JSP工程应用与项目实践机械工业出版社陈威、白伟明、李楠 2005年2月7．ASP工程应用与项目实践机械工业出版社王国辉、牛强、李南南 2005年4月8．VisualBasic信息系统开发实例精选机械工业出版社 高春艳、李俊民、张耀庭等 2005年7月9．ASP信息系统开发实例精选机械工业出版社王国辉、牛强、李南南等2005年7月 10．Delphi信息系统开发实例精选机械工业出版社宋坤、赵智勇、刘强等2005年7月 11．Visualfoxpro数据库开发关键技术与实例应用人民邮电出版社周桓、张雨、王国辉2004年5月12．PoweBuilder数据库开发关键技术与实例应用人民邮电出版社刘志铭张振坤冯文萃2004年5月13．Delphi数据库开发关键技术与实例应用人民邮电出版社赛奎春陈紫鸿宋昆2004年5月14．Visualbasic数据库开发关键技术与实例应用人民邮电出版社高春艳、李艳2004年5月15．VisualC++治理信息系统完整项目实例剖析人民邮电出版社2005年7月 16．VisualBasic治理信息系统完整项目实例剖析人民邮电出版社2005年7月 17．PowerBuilder治理信息系统完整项目实例剖析人民邮电出版社2005年7月 18．VisualFoxPro治理信息系统完整项目实例剖析人民邮电出版社2005年7月 19．SQLServer数据库开发实例解析机械工业出版社宋昆、李严等2006年1月20．Access数据库开发实例解析机械工业出版社李俊民、高春燕等2006年1月

附录B数据表（1）生产打算单表（tb_SCGL_scjhd）生产打算单表用来存储生产打算单信息。该数据表的结构如表B.1所示。表B.1生产打算单表字段名数据类型长度描述scjhd_idvarchar30生产打算单编号scjhd_cpbhvarchar50产品编号scjhd_cpmcvarchar50产品名称scjhd_cpggvarchar50产品规格scjhd_jldwvarchar50计量单位scjhd_jhslnumeric9打算数量scjhd_tcrqvarchar50打算投产日期scjhd_wgrqvarchar50完工日期scjhd_wcfvarchar10完成否scjhd_bztext16备注信息（2）生产领料表（tb_SCGL_scll）生产领料表用来存储生产领料信息。该数据表的结构如表B.2所示。表B.2生产领料表字段名数据类型长度描述scll_idvarchar50领料编号scll_scjhdvarchar50生产打算单scll_cpbhvarchar50产品编号scll_cpmcvarchar50产品名称scll_cpggvarchar50产品规格scll_cpdwvarchar50产品单位scll_cpslnumeric9产品数量scll_wlbhvarchar50物料编号scll_wlmcvarchar50物料名称scll_wlggvarchar50物料规格scll_wldwvarchar50物料单位scll_dwslnumeric9每单位产品所需的物料数量scll_wlslnumeric9物料数量scll_ylslnumeric9已领数量scll_llslnumeric9领料数量scll_syslnumeric9剩余未领数量scll_llrqvarchar50领料日期scll_bzvarchar50备注信息（3）物料库存表（tb_SCGL_wlkc）物料库存表用来储存物料的库存信息。该数据表的结构如表B.3所示。表B.3物料库存表字段名数据类型长度描述wlkc_wlbhvarchar50物料编号wlkc_wlmcvarchar50物料名称wlkc_wlggvarchar50物料规格wlkc_wldwvarchar50物料单位wlkc_kcslnumeric9库存数量（4）物料入库表（tb_SCGL_wlrk）物料入库信息表用来储存入库物料的详细信息。该数据表的结构如表B.4所示。表B.4物料入库表字段名数据类型长度描述wlrk_rkidvarchar30入库编号wlrk_wlbhvarchar50物料编号wlrk_wlmcvarchar50物料名称wlrk_wlggvarchar50物料规格wlrk_jldwvarchar50物料单位wlrk_rkslvarchar50入库数量wlrk_rkrqvarchar50入库时刻wlrk_bztext16备注信息（5）生产设备表(tb_SCGL_scsb)生产设备表用来储存企业设备的相关信息。该数据表的结构如表B.5所示。表B.5生产设备表字段名数据类型长度描述scsb_sbbhvarchar30设备编号scsb_sbmcvarchar50设备名称scsb_sybmvarchar50使用部门scsb_sblxvarchar50设备类型scsb_sbztvarchar50设备状态scsb_syrqvarchar50启用日期scsb_gmjznumeric9设备购买价值scsb_txsjnumeric9摊销时刻scsb_bztext16备注信息（6）tb_bdwxx（本单位信息表）本单位信息表，用于显示本单位的相关信息。该数据表的结构如表B.6所示表B.6本单位信息表字段名数据类型长度描述bdwxx_mcnvarchar50单位名称bdwxx_lxdznvarchar50联系地址bdwxx_ybnvarchar50邮政编码bdwxx_cznvarchar50传真bdwxx_frdbnvarchar50法人代表bdwxx_lxdhnvarchar50联系电话bdwxx_khyhnvarchar50开户银行bdwxx_yhzhnvarchar50银行账号bdwxx_wznvarchar50网址bdwxx_nshnvarchar50纳税号（7）tb_SCGL_cjsz（车间信息表）车间信息表，用于显示车间名称编号等信息。该数据表的结构如表B.7所示表B.7车间信息表字段名数据类型长度描述cjsz_idvarchar10车间编号cjsz_cjmcvarchar50车间名称（8）tb_SCGL_cprk（产品入库信息表）产品入库信息表，用于显示产品入库信息。该数据表的结构如表B.8所示表B.8产品入库信息表字段名数据类型长度描述cprk_idvarchar20入库编号cprk_cpbhvarchar50产品编号cprk_cpmcvarchar50产品名称cprk_cpggvarchar50产品规格cprk_jldwvarchar50计量单位cprk_rkslnumeric9入库数量cprk_rkrqvarchar50入库日期cprk_ddbhvarchar30订单编号cprk_bzvarchar100备注信息（9）tb_SCGL_cpxx（产品信息表）产品信息表，用于显示产品信息。该数据表的结构如表B.9所示表B.9产品信息表字段名数据类型长度描述cpxx_idvarchar30产品编号cpxx_cpmcvarchar50产品名称cpxx_cpggvarchar50产品规格cpxx_jldwvarchar50产品计量单位cpxx_bzvarchar50备注信息（10）tb_SCGL_gzbw（工作备忘信息表）工作备忘信息表，用于记录工作中的备忘信息。该数据表的结构如表B.10所示表B.10工作备忘信息表字段名数据类型长度描述gzbw_idvarchar10编号gzbw_btvarchar30主题gzbw_nrtext16内容gzbw_jsrqdatetime8记事日期gzbw_txrqdatetime8提醒日期gzbw_bztext16备注（11）tb_SCGL_menu（菜单表）菜单表，用于记录本系统主窗体上的菜单信息。该数据表的结构如表B.11所示表B.11菜单表字段名数据类型长度描述menu_idvarchar10编号menu_submenuvarchar50子菜单menu_menuvarchar50主菜单menu_menuidvarchar50主菜单编号（12）tb_SCGL_sbbf（设备报废信息表）设