印前管理系统.docVIP

毕业论文2020-3-25印前管理系统上海XXXX学院本科毕业论文印前管理系统班级：XXXXXXXX学 号：XXXXXXXX学生姓名：XXXXXX指导教师：XXXXX上海XXXXXXXX学院xxxxxx年xx月Page - 32 - of 33印前管理系统摘 要印前是印刷前期中必不可少的一个环节，它对于印刷品的质量、生产周期起着非常重要的作用。长期以来，对于印前的管理都是手工或Excel记录，这种管理方式存在着许多缺点,如:效率低、统计困难等，另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对产品信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大等。这些优点能够极大地提高印前管理的效率,也是印刷企业的科学化、正规化管理,与世界接轨的重要条件。 印前管理系统包括后台数据库的建立和前端应用程序的开发。本系统主要完成对印前的管理，包括工单管理，产量管理和员工管理三个方面。系统可以完成对各类信息的浏览、查询、添加、删除、统计等功能。 系统采用Access来设计数据库，使用VB 6.0开发应用程序，它对数据库应用有着良好的支持。 关键词：VB，数据库，印前、工单Prepress Management SystemABSTRACTPrepress is an essential pre-printed a link, it plays a very important role in print quality and the production lead time. For a long time, the management of the prepress are recorded manually or Excel, there are many drawbacks for this management style ,such as: low efficiency, statistical difficulties, and over time, will produce a large number of documents and data, it bring about many difficulties for search, updating and maintenance. With the continuous improvement of science and technology, computer science increasingly mature and people have a profound understanding with its powerful functions, it has entered the human society in various fields and is playing an important role day by day.As a part of the computer application, use computer to manage product information have incomparable advantages compare with the manual management. Such as, searches quick, find convenient, high security, storage capacity, and so on. These advantages can greatly improve the efficiency of prepress management, but also help printing enterprises manage more scientific and normalized, and an important condition connects to the world.Prepress management system including establish background database and develop front-end application . This system is main manage prepress dept, including three aspects production orders, output and staff management. System can be completed on all information browsing, inquiries, add, delete, statistical, and other functions.System using Access to design database, use Visual Basic 6.0 to develop applications, it have great support to database apply.KEY WORDS：VB, DataBase, Prepress, Jobticket目 录第1章、绪论- 4 -1.1印前管理系统- 4 -第2章 数据库管理系统和开发工具- 5 -2.1 数据库管理系统- 5 -2.2开发工具简介- 5 -第3章印前管理系统设计分析- 6 -3.1应用需求分析- 6 -3.2系统功能模块划分- 7 -3.3 系统数据库设计- 9 -第4章 印前管理系统开发- 13 -4.1 “登录模块”详细设计- 13 -4.2 “主窗体”模块详细设计- 14 -4.3 各项子模块详细设计- 15 -第5章 系统总结- 30 -第1章、 绪论1.1印前管理系统印刷工艺繁多，印前的工作直接影响到后面各种工艺的实现，做好印前的管理工作等于为日后的其他印刷工艺打好了基础。最初的印前工作都是使用人工方式处理，管理粗放，已不能适应现在高效快速运作管理的需求，虽然已经有专门针对印厂的ERP，但其印前管理模块往往非常简单。正是印刷企业现代化管理的这种需求，使得印前管理计算机化成为可能。印刷企业印前管理系统就是使用电脑代替人工统计和查询，完成印前信息的处理，同时使用电脑还可以安全地、完整地保存大量的工单记录。第2章 数据库管理系统和开发工具2.1 数据库管理系统数据库管理系统（DBMS）是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定义、更新及各种控制,都是通过DBMS进行的。DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同，DBMS可以分成层次型、网状型、关系型、面向对象型等。MS Access 2000就是一种关系型数据库管理系统。关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据，表格简单用户易懂，编程时并不涉及存储结构，访问技术等细节。SQL语言是关系型数据库的标准化语言，已得到了广泛的应用。2.2 开发工具简介微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。因此，本系统使用MS Visual Basic 6.0开发。第3章 印前管理系统设计分析3.1应用需求分析需求分析的过程可以说是一个对具体问题的反复理解和抽象的过程。理解就是对现实问题的理解，要弄清楚究竟需要解决什么问题。抽象就是除去问题的表面，提取问题的本质，建立问题的逻辑模型，以便于以后阶段的系统的设计实现。需求分析阶段是软件产品生存命期中的一个重要阶段，其根本任务是确定用户对软件系统的需求。所谓需求是指用户对软件的功能和性能的要求，就是用户希望软件能什么事情，完成什么样的功能，达到什么性能。通常需求分为两种类型：一种是功能性需求，一种是非功能性需求，这一点也需要有一种清楚的认识。功能性需求是指需要计算机系统解决的问题，也就是对数据的处理要求，这是一类最主要的需求。非功能性需求是指实际使用环境所要求的需求，往往是一些限制要求，例如：性能要求，可靠性要求，安全保密要求，等等。软件需求一般包含三个层次业务需求、用户需求和功能需求，还包括非功能需求。业务需求：反映了组织机构或客户对系统、产品高层次的目标要求，它们在项目视图与范围文档中予以说明。用户需求：描述了用户使用产品必须要完成的任务和具备的功能，这在使用实例文档或方案脚本说明中予以说明。功能需求：定义了开发人员必须实现的软件功能，使得用户能完成他们的任务，从而满足其业务需求。3.2系统功能模块划分开发这个系统的目的就是帮助印刷企业印前部门提高工作效率，实现印厂信息管理的系统化、规范化和自动化。真正实现企业高效、科学、现代化的员工管理。系统最终实现的主要功能如下。 印前作业信息管理部分：包括添加，查询等功能。 印前生产进度管理部分：包括生产进度，已完成、未完成作业的跟踪。 统计部分：包括PS版消耗统计，菲林耗用统计等。 系统设定部分：包括添加用户和修改密码。系统的业务流程图如下：系统的主要模块及E-R图如下：3.3 系统数据库设计数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，确保数据信息的完整性和一致性。针对印前管理系统的需求，通过对印前生产流程的分析，为本系统设计如下的数据项和数据结构：基本工单信息：包括生产单号，产品代码，工单类别，产品类别，完成尺寸，排版只数等。其他工单信息：包括入单时间，印前、车间、后工序复期，画稿完成时间等。耗材统计信息：包括PS版、菲林等生产状态跟踪：当前复期，未完成工单查询等。这里的数据库采用Access，用ADO作为连接数据对象。1、建立Access 数据库启动Access，建立一个空的数据库prepress.mdb，如图3.8所示。图3.8建立Jobticket表如图3.9：图3.9建立CSnameList表如图3.10下：图3.10建立Person表如图3.11：图3.11建立film表如图3.12：图3.12建立JobKind表如图3.13:图3.14建立PrePressStatlist表如图3.15:图3.15所需要的所有表的名称如图3.16：图3.16第4章 印前管理系统开发4.1 “登录模块”详细设计登录模块的详细设计主要是用户登录的一个界面，进入后将面对的是主界面，从而进行相关的操作。 登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。登录界面如图4.1：图4.1相关代码如下：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() EndEnd SubPrivate Sub cmdOK_Click() 判断用户是否为合法用户 Dim IsValid As Boolean If ConnDb() Then 数据库连接成功 1、获得用户输入的用户名和密码 Dim strUserName, strPassword As String strUserName = Me.txtUserName.Text strPassword = Me.txtPassword.Text 2、判断密码的正确性 IsValid = ValidateUser(strUserName, strPassword) If IsValid Then Me.Hide mainform.Show Else MsgBox 用户密码不正确！, vbExclamation Or vbOKOnly, 错误 End If Else 数据库连接失败 MsgBox 连接数据库失败！, vbExclamation Or vbOKOnly, 错误 End IfEnd Sub4.2 “主窗体”模块详细设计在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。主窗体设计的界面是用菜单编辑器做的，主要由工单、生产状态、统计、系统设定和关于这五个大模块组成。主窗体是进行相关操作的主界面。在这几个里，管理员有所有的权利进行各种操作。图4.24.3 各项子模块详细设计4.3.1 选择“工单”“添加工单”输入相关的信息可以添加新的工单。界面如下：图4.3本界面的代码如下：Private Sub btnAdd_Click() If ConnDb() Then 数据库连接成功 1、获得定单信息 生产单号 Dim strJobTicketNo As String 产品代码 Dim strPNo As String 拼版只数 Dim strPageAmount As String 完成尺寸 Dim strPSize As String 菲林张数 Dim strFilmNo As String 4KPS版张数 Dim str4KPS As String 8KPS版张数 Dim str8KPS As String 工单类别 Dim strJobKind As String 产品类别 Dim strPKind As String 跟单员 Dim strCSnameList As String 菲林大小 Dim strFilm As String 操作员 Dim strOPnameList As String 印前状态 Dim strPrePressStatList As String 急单 Dim IsEmergency As Boolean UV Dim IsUV As Boolean 丝网 Dim IsScreen As Boolean 烫电化铝 Dim IsFiol As Boolean 凹凸 Dim IsEmbossed As Boolean 刀版 Dim IsCut As Boolean 入单时间 Dim InComeDate As String 车间复期 Dim DemandedDate As String strJobTicketNo = Me.txtJobTicketNo.Text strPNo = Me.txtPNo.Text strPageAmount = Me.txtPageAmount.Text strPSize = Me.txtSize.Text strFilmNo = Me.txtFilmAmount str4KPS = Me.txtPS4Kamount str8KPS = Me.txtPS8Kamount strJobKind = Me.cbJobKind.Text strPKind = Me.cbPKind.Text strCSnameList = Me.cbCS strFilm = Me.cb4K8K strOPnameList = Me.cbOP strPrePressStatList = Me.cbStat IsEmergency = Me.chkIsEmergency IsUV = Me.chkUV IsScreen = Me.chkScreen IsFiol = Me.chkFiol IsEmbossed = Me.chkEmboss IsCut = Me.chkCutline strInComeDate = Me.DTPicker2.Value strDemandedDate = Me.DTPicker1.Value 2、添加定单信息 AddJobTicket strJobTicketNo, strPNo, strPageAmount, strPSize, strFilmNo, str4KPS, str8KPS, strJobKind, strPKind, strCSnameList, strFilm, strOPnameList, strPrePressStatList, IsEmergency, IsUV, IsScreen, IsFiol, IsEmbossed, IsCut, strInComeDate, strDemandedDate Else 数据库连接失败 MsgBox 连接数据库失败！, vbExclamation Or vbOKOnly, 错误 End IfEnd SubPrivate Sub btnCancel_Click() Me.HideEnd SubPrivate Sub Form_Load() InitJobKind InitPKind InitCSnameList InitFilm InitOPnameList InitPrePressStatListEnd Sub初始化工单类型Public Sub InitJobKind() 取得全部工单类型的SQL语句 sql = SELECT * FROM JobKind Set rs = GetRecordset(sql) 添加下拉项 If IsObject(rs) Then While Not rs.EOF cbJobKind.AddItem rs.Fields(1) rs.MoveNext Wend rs.Close Set rs = Nothing End IfEnd Sub初始化产品类型Public Sub InitPKind() 取得全部产品类型的SQL语句 sql = SELECT * FROM PKind Set rp = GetRecordset(sql) 添加下拉项 If IsObject(rp) Then While Not rp.EOF cbPKind.AddItem rp.Fields(1) rp.MoveNext Wend rp.Close Set rp = Nothing End IfEnd Sub初始化跟单员Public Sub InitCSnameList() 取得全部跟单员的SQL语句 sql = SELECT * FROM CSnameList Set r2 = GetRecordset(sql) 添加下拉项 If IsObject(r2) Then While Not r2.EOF cbCS.AddItem r2.Fields(1) r2.MoveNext Wend r2.Close Set r2 = Nothing End IfEnd Sub初始化菲林大小Public Sub InitFilm() 取得全部菲林大小的SQL语句 sql = SELECT * FROM Film Set r3 = GetRecordset(sql) 添加下拉项 If IsObject(r3) Then While Not r3.EOF cb4K8K.AddItem r3.Fields(1) r3.MoveNext Wend r3.Close Set r3 = Nothing End IfEnd Sub初始化操作员Public Sub InitOPnameList() 取得全部操作员的SQL语句 sql = SELECT * FROM OPnameList Set r4 = GetRecordset(sql) 添加下拉项 If IsObject(r4) Then While Not r4.EOF cbOP.AddItem r4.Fields(1) r4.MoveNext Wend r4.Close Set r4 = Nothing End IfEnd Sub初始化印前状态Public Sub InitPrePressStatList() 取得全部印前状态的SQL语句 sql = SELECT * FROM PrePressStatList Set r5 = GetRecordset(sql) 添加下拉项 If IsObject(r5) Then While Not r5.EOF cbStat.AddItem r5.Fields(1) r5.MoveNext Wend r5.Close Set r5 = Nothing End IfEnd Sub4.3.2 选择“工单”“查询工单”选择查询方式，输入查询内容，可以进行工单的查询。如选中“模糊查询”则可以进行模糊查询，如图4.4图4.4本界面的代码如下：Option ExplicitPrivate Sub Command1_click()Dim X As StringIf Text1.Text = Then MsgBox 请输入查询内容, vbInformation + vbOKOnly, 警告 Text1.SetFocus Exit SubEnd IfIf Option1.Value = False And Option2.Value = False And Option3.Value = False Then MsgBox 请选择查询方式, vbInformation + vbOKOnly, 警告 Option1.Value = True Exit SubEnd IfIf Option1.Value = True Then If Check1.Value = 0 Then X = select * from JobTicket where 生产单号 in( + + Text1.Text + ) Else X = select * from JobTicket where 生产单号 like % & Text1.Text & % End IfEnd IfIf Option2.Value = True Then If Check1.Value = 0 Then X = select * from JobTicket where 产品代码 in( + + Text1.Text + ) Else X = select * from JobTicket where 产品代码 like % & Text1.Text & % End IfEnd IfIf Option3.Value = True Then If Check1.Value = 0 Then X = select * from JobTicket where 完成尺寸 in( + + Text1.Text + ) Else X = select * from JobTicket where 完成尺寸 like % & Text1.Text & % End IfEnd If Adodc1.CommandType = adCmdText Adodc1.RecordSource = X Adodc1.Refresh If Adodc1.Recordset.RecordCount = # & DTPicker3.Value & # and 入单时间 “菲林统计”模块，可进行选定时间段内的耗材统计。图4.6本功能代码如下：Private Sub Command1_click() If ConnDb() Then Dim rs As Recordset Dim strSql As String strSql = select * from JobTicket where 菲林大小 = 4K and 入单时间= # & DTPicker1.Value & # and 入单时间 = # & DTPicker1.Value & # and 入单时间 “用户管理”模块，可进行用户的添加和删除等工作。 图4.7本功能代码如下：Option ExplicitPrivate Sub cmdADD_click()If Text1.Text = Then MsgBox 登陆名称不能为空！, vbInformation + vbOKOnly, 警告 Text1.SetFocus Exit SubEnd IfIf Text2.Text = Then MsgBox 登陆密码不能为空！, vbInformation + vbOKOnly, 警告 Text2.SetFocus Exit SubEnd IfIf Text3.Text = Then MsgBox 密码确认不能为空！, vbInformation + vbOKOnly, 警告 Text3.SetFocus Exit SubEnd IfIf Text2.Text Text3.Text Then MsgBox 两次密码不一样，请重新输入！, vbInformation + vbOKOnly, 提示 Text2.Text = Text3.Text = Text2.SetFocus Exit SubEnd IfaddUser Text1.Text, Text4.Text, Text3.TextlistUserAdodc1.RefreshEnd SubPrivate Sub cmdDEL_Click() DataGrid1.Col = 0 With Adodc1.Recordset .Delete End With delUser (DataGrid1.Text)End SubPrivate Sub Form_Load() listUserEnd SubPrivate Sub listUser() GetDbConnString Adodc1.ConnectionString = GetDbConnString Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from Person Adodc1.RefreshEnd Sub4.3.6 关于模块的界面如下： 代码略。4.3.7 公用模块的设计，代码如下：Option ExplicitPrivate g_dbconn As ADODB.Connection 数据库连接Public Function GetDbConnString() As StringGetDbConnString = PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & prepress.mdb;End FunctionPublic Function ConnDb() As BooleanOn Error GoTo FunctionEndConnDb = FalseSet g_dbconn = New ADODB.Connectiong_dbconn.CursorLocation = adUseClientg_dbconn.Open GetDbConnString()ConnDb = TrueFunctionEnd:End FunctionPublic Function ValidateUser(ByVal strUserID As String, ByVal strPassword As String) As Boolean变量定义Dim sql As String SQLDim rs As ADODB.Recordset 记录集生成SQLsql = SELECT * FROM Person WHERE ID = & strUserID & & and Password = & strPassword & 执行查询On Error GoTo ERRENDSet rs = g_dbconn.Execute(sql)If rs.RecordCount 0 ThenValidateUser = TrueElseValidateUser = FalseEnd Ifrs.CloseSet rs = NothingExit FunctionValidateUser = FalseERREND:ValidateUser = FalseEnd Function添加工单信息Public Sub AddJobTicket(ByVal strJobTicketNo As String, ByVal strPNo As String, ByVal strPageAmount As String, ByVal strPSize As String, ByVal strFilmNo As Single, ByVal str4KPS As Single, ByVal str8KPS As Single, ByVal strJobKind As String, ByVal strPKind As String, ByVal strCSnameList As String, ByVal strFilm As String, ByVal strOPnameList As String, ByVal strPrePressStatList As String, ByVal boolIsEmergency As Boolean, ByVal boolIsUV As Boolean, ByVal boolIsScreen As Boolean, ByVal boolIsFiol As Boolean, ByVal boolIsEmbossed As Boolean, ByVal boolIsCut As Boolean, ByVal strInComeDate As String, ByVal strDemandedDate As String)Dim sql As String SQLAddNew.DTPicker2.Format = dtpCustomAddNew.DTPicker2.CustomFormat = yyyy年mm月dd日hh时MM分sql = INSERT INTO JobTicket(生产单号,产品代码,排版只数,完成尺寸,菲林张数,4KPS版数量,8KPS版数量,工单类别,产品类别,跟单员,菲林大小,操作员,印前状态,急单,UV,丝网印刷,烫电化铝,凹凸,刀版,入单时间,车间复期) VALUES ( & strJobTicketNo & , & strPNo & , & strPageAmount & , & strPSize & , & strFilmNo & , & str4KPS & , & str8KPS & , & strJobKind & , & strPKind & , & strCSnameList & , & strFilm & , & str