印前管理系统.docx

上传人:b****6 文档编号:7126295 上传时间:2023-01-20 格式:DOCX 页数:31 大小:651.82KB
下载 相关 举报
印前管理系统.docx_第1页
第1页 / 共31页
印前管理系统.docx_第2页
第2页 / 共31页
印前管理系统.docx_第3页
第3页 / 共31页
印前管理系统.docx_第4页
第4页 / 共31页
印前管理系统.docx_第5页
第5页 / 共31页
点击查看更多>>
下载资源
资源描述

印前管理系统.docx

《印前管理系统.docx》由会员分享,可在线阅读,更多相关《印前管理系统.docx(31页珍藏版)》请在冰豆网上搜索。

印前管理系统.docx

印前管理系统

上海XXXX学院本科毕业论文

 

印前管理系统

 

班  级:

XXXXXXXX

学号:

XXXXXXXX

学生姓名:

XXXXXX

指导教师:

XXXXX

 

上海XXXXXXXX学院

xxxxxx年xx月

印前管理系统

摘要

印前是印刷前期中必不可少的一个环节,它对于印刷品的质量、生产周期起着非常重要的作用。

长期以来,对于印前的管理都是手工或Excel记录,这种管理方式存在着许多缺点,如:

效率低、统计困难等,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对产品信息进行管理,具有着手工管理所无法比拟的优点.例如:

检索迅速、查找方便、可靠性高、存储量大等。

这些优点能够极大地提高印前管理的效率,也是印刷企业的科学化、正规化管理,与世界接轨的重要条件。

印前管理系统包括后台数据库的建立和前端应用程序的开发。

本系统主要完成对印前的管理,包括工单管理,产量管理和员工管理三个方面。

系统可以完成对各类信息的浏览、查询、添加、删除、统计等功能。

系统采用Access来设计数据库,使用VB6.0开发应用程序,它对数据库应用有着良好的支持。

[关键词:

VB,数据库,印前、工单]

PrepressManagementSystem

ABSTRACT

Prepressisanessentialpre-printedalink,itplaysaveryimportantroleinprintqualityandtheproductionleadtime.Foralongtime,themanagementoftheprepressarerecordedmanuallyorExcel,therearemanydrawbacksforthismanagementstyle,suchas:

lowefficiency,statisticaldifficulties,andovertime,willproducealargenumberofdocumentsanddata,itbringaboutmanydifficultiesforsearch,updatingandmaintenance.Withthecontinuousimprovementofscienceandtechnology,computerscienceincreasinglymatureandpeoplehaveaprofoundunderstandingwithitspowerfulfunctions,ithasenteredthehumansocietyinvariousfieldsandisplayinganimportantroledaybyday.

Asapartofthecomputerapplication,usecomputertomanageproductinformationhaveincomparableadvantagescomparewiththemanualmanagement.Suchas,searchesquick,findconvenient,highsecurity,storagecapacity,andsoon.Theseadvantagescangreatlyimprovetheefficiencyofprepressmanagement,butalsohelpprintingenterprisesmanagemorescientificandnormalized,andanimportantconditionconnectstotheworld.

Prepressmanagementsystemincludingestablishbackgrounddatabaseanddevelopfront-endapplication.Thissystemismainmanageprepressdept,includingthreeaspectsproductionorders,outputandstaffmanagement.Systemcanbecompletedonallinformationbrowsing,inquiries,add,delete,statistical,andotherfunctions.

SystemusingAccesstodesigndatabase,useVisualBasic6.0todevelopapplications,ithavegreatsupporttodatabaseapply.

[KEYWORDS:

VB,DataBase,Prepress,Jobticket]

 

第1章、绪论

1.1印前管理系统

印刷工艺繁多,印前的工作直接影响到后面各种工艺的实现,做好印前的管理工作等于为日后的其他印刷工艺打好了基础。

最初的印前工作都是使用人工方式处理,管理粗放,已不能适应现在高效快速运作管理的需求,虽然已经有专门针对印厂的ERP,但其印前管理模块往往非常简单。

正是印刷企业现代化管理的这种需求,使得印前管理计算机化成为可能。

印刷企业印前管理系统就是使用电脑代替人工统计和查询,完成印前信息的处理,同时使用电脑还可以安全地、完整地保存大量的工单记录。

 

第2章数据库管理系统和开发工具

2.1数据库管理系统

数据库管理系统(DBMS)是指数据库系统中管理数据的软件系统。

DBMS是数据库系统的核心组成部分。

对数据库的一切操作,包括定义、更新及各种控制,都是通过DBMS进行的。

DBMS总是基于某种数据模型,可以把DBMS看成是某种数据模型在计算机系统上的具体实现。

根据数据模型的不同,DBMS可以分成层次型、网状型、关系型、面向对象型等。

MSAccess2000就是一种关系型数据库管理系统。

关系模型主要是用二维表格结构表达实体集,用外键表示实体间联系。

关系模型是由若干个关系模式组成的集合。

关系模式相当于前面提到的记录类型,每个关系实际上是一张二维表格。

关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据,表格简单用户易懂,编程时并不涉及存储结构,访问技术等细节。

SQL语言是关系型数据库的标准化语言,已得到了广泛的应用。

2.2开发工具简介

微软公司的VisualBasic6.0是Windows应用程序开发工具,是目前最为广泛的、易学易用的面向对象的开发工具。

VisualBasic提供了大量的控件,这些控件可用于设计界面和实现各种功能,减少了编程人员的工作量,也简化了界面设计过程,从而有效的提高了应用程序的运行效率和可靠性。

因此,本系统使用MSVisualBasic6.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

相关代码如下:

OptionExplicit

PublicLoginSucceededAsBoolean

PrivateSubcmdCancel_Click()

End

EndSub

PrivateSubcmdOK_Click()

'判断用户是否为合法用户

DimIsValidAsBoolean

IfConnDb()Then

'数据库连接成功

'1、获得用户输入的用户名和密码

DimstrUserName,strPasswordAsString

strUserName=Me.txtUserName.Text

strPassword=Me.txtPassword.Text

'2、判断密码的正确性

IsValid=ValidateUser(strUserName,strPassword)

IfIsValidThen

Me.Hide

mainform.Show

Else

MsgBox"用户密码不正确!

",vbExclamationOrvbOKOnly,"错误"

EndIf

Else

'数据库连接失败

MsgBox"连接数据库失败!

",vbExclamationOrvbOKOnly,"错误"

EndIf

EndSub

4.2“主窗体”模块详细设计

在这个项目中,选择使用多文档界面。

使用这个窗体的好处是可以使程序更加有条理。

对于一个多任务的应用程序,使用多文档窗体还可以减少占用的系统资源。

主窗体设计的界面是用菜单编辑器做的,主要由工单、生产状态、统计、系统设定和关于这五个大模块组成。

主窗体是进行相关操作的主界面。

在这几个里,管理员有所有的权利进行各种操作。

图4.2

4.3各项子模块详细设计

4.3.1选择“工单”——>“添加工单”输入相关的信息可以添加新的工单。

界面如下:

图4.3

本界面的代码如下:

PrivateSubbtnAdd_Click()

IfConnDb()Then

'数据库连接成功

'1、获得定单信息

'生产单号

DimstrJobTicketNoAsString

'产品代码

DimstrPNoAsString

'拼版只数

DimstrPageAmountAsString

'完成尺寸

DimstrPSizeAsString

'菲林张数

DimstrFilmNoAsString

'4KPS版张数

Dimstr4KPSAsString

'8KPS版张数

Dimstr8KPSAsString

'工单类别

DimstrJobKindAsString

'产品类别

DimstrPKindAsString

'跟单员

DimstrCSnameListAsString

'菲林大小

DimstrFilmAsString

'操作员

DimstrOPnameListAsString

'印前状态

DimstrPrePressStatListAsString

'急单

DimIsEmergencyAsBoolean

'UV

DimIsUVAsBoolean

'丝网

DimIsScreenAsBoolean

'烫电化铝

DimIsFiolAsBoolean

'凹凸

DimIsEmbossedAsBoolean

'刀版

DimIsCutAsBoolean

'入单时间

DimInComeDateAsString

'车间复期

DimDemandedDateAsString

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、添加定单信息

AddJobTicketstrJobTicketNo,strPNo,strPageAmount,strPSize,strFilmNo,str4KPS,str8KPS,strJobKind,strPKind,strCSnameList,strFilm,strOPnameList,strPrePressStatList,IsEmergency,IsUV,IsScreen,IsFiol,IsEmbossed,IsCut,strInComeDate,strDemandedDate

Else

'数据库连接失败

MsgBox"连接数据库失败!

",vbExclamationOrvbOKOnly,"错误"

EndIf

EndSub

PrivateSubbtnCancel_Click()

Me.Hide

EndSub

PrivateSubForm_Load()

InitJobKind

InitPKind

InitCSnameList

InitFilm

InitOPnameList

InitPrePressStatList

EndSub

'初始化工单类型

PublicSubInitJobKind()

'取得全部工单类型的SQL语句

sql="SELECT*FROMJobKind"

Setrs=GetRecordset(sql)

'添加下拉项

IfIsObject(rs)Then

WhileNotrs.EOF

cbJobKind.AddItemrs.Fields

(1)

rs.MoveNext

Wend

rs.Close

Setrs=Nothing

EndIf

EndSub

'初始化产品类型

PublicSubInitPKind()

'取得全部产品类型的SQL语句

sql="SELECT*FROMPKind"

Setrp=GetRecordset(sql)

'添加下拉项

IfIsObject(rp)Then

WhileNotrp.EOF

cbPKind.AddItemrp.Fields

(1)

rp.MoveNext

Wend

rp.Close

Setrp=Nothing

EndIf

EndSub

'初始化跟单员

PublicSubInitCSnameList()

'取得全部跟单员的SQL语句

sql="SELECT*FROMCSnameList"

Setr2=GetRecordset(sql)

'添加下拉项

IfIsObject(r2)Then

WhileNotr2.EOF

cbCS.AddItemr2.Fields

(1)

r2.MoveNext

Wend

r2.Close

Setr2=Nothing

EndIf

EndSub

'初始化菲林大小

PublicSubInitFilm()

'取得全部菲林大小的SQL语句

sql="SELECT*FROMFilm"

Setr3=GetRecordset(sql)

'添加下拉项

IfIsObject(r3)Then

WhileNotr3.EOF

cb4K8K.AddItemr3.Fields

(1)

r3.MoveNext

Wend

r3.Close

Setr3=Nothing

EndIf

EndSub

'初始化操作员

PublicSubInitOPnameList()

'取得全部操作员的SQL语句

sql="SELECT*FROMOPnameList"

Setr4=GetRecordset(sql)

'添加下拉项

IfIsObject(r4)Then

WhileNotr4.EOF

cbOP.AddItemr4.Fields

(1)

r4.MoveNext

Wend

r4.Close

Setr4=Nothing

EndIf

EndSub

'初始化印前状态

PublicSubInitPrePressStatList()

'取得全部印前状态的SQL语句

sql="SELECT*FROMPrePressStatList"

Setr5=GetRecordset(sql)

'添加下拉项

IfIsObject(r5)Then

WhileNotr5.EOF

cbStat.AddItemr5.Fields

(1)

r5.MoveNext

Wend

r5.Close

Setr5=Nothing

EndIf

EndSub

4.3.2选择“工单”——>“查询工单”选择查询方式,输入查询内容,可以进行工单的查询。

如选中“模糊查询”则可以进行模糊查询,如图4.4

图4.4

本界面的代码如下:

OptionExplicit

PrivateSubCommand1_click()

DimXAsString

IfText1.Text=""Then

MsgBox"请输入查询内容",vbInformation+vbOKOnly,"警告"

Text1.SetFocus

ExitSub

EndIf

IfOption1.Value=FalseAndOption2.Value=FalseAndOption3.Value=FalseThen

MsgBox"请选择查询方式",vbInformation+vbOKOnly,"警告"

Option1.Value=True

ExitSub

EndIf

IfOption1.Value=TrueThen

IfCheck1.Value=0Then

X="select*fromJobTicketwhere生产单号in("+"'"+Text1.Text+"')"

Else

X="select*fromJobTicketwhere生产单号like'%"&Text1.Text&"%'"

EndIf

EndIf

IfOption2.Value=TrueThen

IfCheck1.Value=0Then

X="select*fromJobTicketwhere产品代码in("+"'"+Text1.Text+"')"

Else

X="select*fromJobTicketwhere产品代码lik

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 经管营销 > 销售营销

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1