一种自动生成钢管管号的方法技术

一种自动生成钢管管号的方法。利用钢管的切断信号与是否接头的信号，再配合电脑程序和适当的硬件接口可以在电脑系统中自动生成管号并将该管号生成可识别的标识附加到该根钢管上，同时在电脑系统中将生产该根钢管的板带信息、其他需要的生产信息以及规格信息与该管号相关联。主要用在高标准的钢管生产企业的钢管信息按管号实时电脑追踪的应用中。

【技术实现步骤摘要】

本专利技术应用与企业生产物流领域，特别应用于钢管管号的计算机实时追踪二、
技术介绍
当一家钢管公司致力于高质量钢管生产所面临的主要问题就是，管号全程实时跟踪，管 号跟踪传统是采用手工书写或者是用喷码机自动喷管号，这样往往是手工编写钢管号，但这 样做一方面效率低，而且也不能满足计算机系统管理的要求。用计算机来实现钢管的全程追 踪首先要给钢管在系统中产生一个号码，有些自动系统中一般都是按规格等编码方法产生一 个编码，但这样做的缺点就是没有和系统中的其他信息如该钢管的板带号，板巻号对应起来， 从而无法追踪到钢管的前面或其他流程信息。三、
技术实现思路
本专利技术是设计一种自动生成管号的方法，以克服传统的其他方法造成管号无^aa踪到生 产该钢管所对应的板带。 '本专利技术是这样实现的首先，将开巻上料所对应的板带号按顺序录入数据库系统；然^ 将钢管切断的脉冲信号和接头管得脉冲信号通过接口硬件和软件引入电脑；电脑程序首先i 过检测钢管切断信号按既定的管号编码规律产生一个钢管管号，然后将前面板带临时数据库 的第一个板带号给该钢管，表示该钢管是由这个板带号的板带生产的；后面几根也是如此。 直到该板带切完时，两个板带中间会有一个接头，电脑通过检测切断信号前己经有一个接头 信号(该信号可通过电脑程序逻辑保持)，则判断该管为接头管(同时将接头管信号复位)。 系统此时将第一个板带标记为已经用完的状态，将该管后面的管子标记为另一个板带。依次 类推。系统自动生成管号后，可以根据该管号制作一个唯一的可识别的标识附加到该根钢管 上。标识形式可以是条形码、RFID以及用喷涂设备喷到钢管上的可电脑识别德信息等。从而 使得后道生产或检验工序可以在电脑信息系统识别该管号从而实现管号全程追踪。本专利技术的特点第一，在钢管产生的第一瞬间，就在信息系统形成了唯一的标识号，方 便以后的信息追踪；第二，通过与接头信号的配合，实现板带的切换，从而使产生的钢管可 以与前端的原料信息及生产合同信息所结合。四具体实施方式钢管的切断信号一般由切断机引出，切断机一般由智能设备控制，当钢管长度达到设定 值或其他原因发出切断信号时，由其中间继电器引出一对干接点到电脑接口设备；接头信号 有几种产生方式，对于一直有人在监控的岗位，可以连接一个按钮到电脑接口板，当其发现 将要切断的是一个接口管时，即按一下按钮从而给电脑一个接头管信号；另一种方式可以采 用长度计算方式，电脑自动产生的方法，这种方法要求能够确切知道板带的长度，然后通过 精确测长的编码其来累计钢管的长度，从而可以自动计算接头的位置并发出接头管信号；还 可以通过其他检测设备如图像或电磁的方法检测出接头管从而发脉冲信号告知电脑程序。电 脑的接口硬件有多种方式，最简单的就是通过电脑接口卡来实现，如研华的PCI1753卡。该 卡不仅有完善的功能如高速采集，还提供完善的测试诊断程序以及免费的驱动和接口示例程序，可以方便地实现系统集成。对于编程语言可以根据信息化系统所采用的语言如C/C++， Delphi, VB等，后台数据库 可以根据单位系统的数据库，也可采用流行的SQLServer2000, Access等。 下面给出一个实现实例硬件电脑一台，windows2000操作系统；配研华PCI1753接口卡一块，带接口模块；编程 语言为DELPHI6;数据库采用SQLServer2000定义PT_DioRe3dBit = Record port : Smallint; bit : Smallint; state : ^Smallint; End;lp，lpl， pt_dioreadbit;b， zh， bl， d， jtg, c:smallint;设备初始化ErrCde:= DRV_DeviceOpen(000， DriverHandle) ;//打开pcil753 If (ErrCde 〈〉 0) Then beginDRV一GetErrorMessage(ErrCde， pszErrMsg);Response := Application. MessageBox(fiszErrMsg， 'Error!!', MB—OK);Exit;end;〃端口0切断信号；初始信号值为l，切断时为Olp.port:=0; lp. state:=@b; lp. bit:二O;〃端口 1第一位接头信号，接头信号是第一位由初始1变为0lpl.port:=1;lpl. state:=@bl;lpl.bit:=l;〃无信号时初值b:=l;bl:=l;jtg:=l:读切断或接头状态ErrCde:=DRV_DioReadbit(DriverHandle，lp); If (ErrCde 〈> 0) Then beginDRV_GetErrorMessage(ErrCde， pszErrMsg);Response :二 Application. MessageBox(pszErrMsg， ' Error!!', MB—0K);Exit;end;ErrCde:= DRV—Dioreadbit(DriverHandle，lpl); If (ErrCde 〈〉 0) Then beginDRV—GetErrorMessage (ErrCde, pszErrMsg);Response :二 Application. MessageBox(pszErrMsg， ' Error!!' ， MB—OK); Exit; end; 合格管if (jtg〈〉0) then beginProcDMFrm. LoginADOQuery.Close; ProcDMFrm. LoginADOQuery. SQL. Clear;ProcDMFrm. LoginADOQuery. SQL. Text:二， select max(pipeno) as no from process ProcDMFrm. LoginADOQuery. Open; if ProcDMFrm. LoginADOQuery. Eof then beginPipeNo:=，8，+，a00000，； endbeginPipeNo:二Copy(ProcDMFrm. LoginADOQuery. FieldValues， 2， 7); end;NewNo:二' G' +PipeN0Return(PipeNo);〃按规定函数规律产生新管号 tryProcDMFrm. LoginADOQuery. SQL Clear;ProcDMFrm.LoginADOQuery. SQL. Add('BEGIN TRANSACTION insert into process (pipeNo， pipestate， CutShift, orderNO, WeekPlanNo， HeatNo， Criterion, CutWorker, CoilNO, BandN0， CutTime, productclassify， dia, length, thickness, wast印ipe， result, grade) values('''+NewNo+''' ， 1，'，'十MainFrFrm. ShiftCrabBx. T本文档来自技高网...

【技术保护点】
一种自动生成钢管管号的方法，本专利技术的特征在于：利用钢管切断机系统所产生的切断电气信号来在电脑信息系统中自动生成管号。

【技术特征摘要】

【专利技术属性】
技术研发人员：李春林，杨顺利，
申请(专利权)人：李春林，
类型：发明
国别省市：45[中国|广西]