【導讀】為企業(yè)技術改造的重點。染色工藝管理工作的信息化尤為重要，因為染色數(shù)據(jù)的。但由于目前染色機種類繁多，自動化水平參差不齊，功能規(guī)格均有所區(qū)別，率，提高企業(yè)效益，提高市場競爭力。借助數(shù)據(jù)庫，可對各染機的染色工藝參數(shù)。進行保存，對生產(chǎn)過程中的數(shù)據(jù)進行有效管理，大大降低企業(yè)人工記錄的成本，和人為疏忽所產(chǎn)生的風險。染色工藝設置與管理系統(tǒng)的`設計使染廠對染色工。有助于印染企業(yè)建立靈敏的生產(chǎn)體系，具有較強的現(xiàn)實意義。面很多停留在人工處理階段。而且染色行業(yè)普遍存在染色機種類各異、自動化程。人員對自動化設備操作的熟練程度不一等問題，嚴重影響了染色效果[3]。一些信息管理系統(tǒng)，絕大多數(shù)的數(shù)據(jù)需要手動輸入。這種管理方式無法保證生產(chǎn)。制、節(jié)能入排水控制等功能，有的控制器還能實現(xiàn)曲線加染料的功能。并能和染缸集中控制系統(tǒng)進行集成。通過驗證此方案可行。

　　

【正文】 count))。 I:=1。 First。 while not Eof do begin pid:=inttostr(fieldbyname(39。pid39。).value)。 if length(pid)=1 then pid:=39。039。+pid。 fun:=inttostr(fieldbyname(39。function39。).value)。 if length(fun)=1 then fun:=39。039。+fun。 sub:=inttostr(fieldbyname(39。subfunc39。).value)。 if length(sub)=1 then sub:=39。039。+sub。 vallo:=inttostr(fieldbyname(39。valuelo39。).value)。 if length(vallo)=3 then vallo:=39。039。+vallo。 if length(vallo)=2 then vallo:=39。039。+39。039。+vallo。 if length(vallo)=1 then vallo:=39。039。+39。039。+39。039。+vallo。 valhi:=inttostr(fieldbyname(39。valuehi39。).value)。 if length(valhi)=3 then valhi:=39。039。+valhi。 if length(valhi)=2 then valhi:=39。039。+39。039。+valhi。 if length(valhi)=1 then valhi:=39。039。+39。039。+39。039。+valhi。 str:=pid+fun+sub+vallo+valhi。 str2:=str2+str。 (39。save39。+ptid+pid+39。_39。+fun+39。_39。+sub+39。_39。+vallo+39。_39。+valhi)。 浙江理工大學本科畢業(yè)設計 35 inc(I)。 next。 end。 close。 。 (39。Update sysparametertypes Set paramdata=:p1 Where (ptid=:p2)39。)。 (39。p139。).Value:=str2。 (39。p239。).Value:=ptid。 ExecSQL。 close。 end。 result:=ptid。 end。 procedure (Sender: TObject)。 var i:integer。 pm1,pm2,pm3,pm4,sendstr,viewstr:string。 begin if pg=auto then begin pm1:=pmdata[pg]+pmdata[pg+1]。 pm2:=pmdata[pg+2]+pmdata[pg+3]。 pm3:=pmdata[pg+4]+pmdata[pg+5]。pm4:=pmdata[pg+6]+pmdata[pg+7]。 sendstr:=39。snd39。+pm1+pm2+pm3+pm4。 (sendstr)。 viewstr:=39。發(fā)送 39。+39。 39。+inttostr(k)+39。 39。+sendstr。 sleep( 30 )。 (viewstr)。 k:=k+1。 pg:=pg+8。 :=pg。 end else begin :=false。 showmessage(39。下載完成 39。)。 end。 end。 procedure 。 var I:integer。 str:string。 begin with do begin close。 染色工藝設置與管理系統(tǒng)設計 36 。 (39。Select paramdata From sysparametertypes order by typeid39。)。 Open。 First。 While not Eof do begin str:=fieldbyname(39。paramdata39。).Value。 pmdata:=pmdata+str。 Next。 end。 pmdata:=39。ABCD0101010139。+inttostr(16+length(pmdata))+pmdata。// end。 pg:=1。 auto:=length(pmdata)。 :=0。:=auto。 :=false。:=30。:=true。 end。 End. IO 預排代碼 implementation uses Udm,Ufrmiodownload。 {$R *.dfm} procedure (status: Boolean)。 begin :=status。 end。 procedure (status: Boolean)。 begin :=status。 end。 procedure (Sender: TObject)。 var I:integer。 str:string。 str2,ioad,iocd,io,ionu,ioen,iosf,iosn:string。 begin 。 str:=39。39。 str2:=39。39。 浙江理工大學本科畢業(yè)設計 37 for I := 1 to 54 do begin with do begin close。 。 (39。Select * From public_funcio Where ioid=:p139。)。 (39。p139。).Value:=I。 open。 if fieldbyname(39。ioenable39。).value then ioen:=39。039。+39。139。 else ioen:=39。039。+39。039。 io:=fieldbyname(39。io39。).Value。 ioad:=fieldbyname(39。ioaddress39。).Value。 iocd:=inttostr(fieldbyname(39。iomand39。).value)。 ionu:=inttostr(fieldbyname(39。ionumber39。).value)。 if length(ionu)=1 then ionu:=39。039。+ionu。 iosf:=inttostr(fieldbyname(39。sbffunction39。).value)。 if length(iosf)=1 then iosf:=39。039。+iosf。 iosn:=inttostr(fieldbyname(39。sbfnumber39。).value)。 if length(iosn)=1 then iosn:=39。039。+iosn。 str:=ioad+iocd+ionu+ioen+iosf+iosn。 str2:=str2+str。 (ioad+39。_39。+io+ionu+39。_39。+ioen+39。_39。+iosf+39。_39。+iosn)。 end。 end。 str2:=39。ABCD0101010139。+inttostr(16+length(str2))+str2。 with do begin close。 。 (39。Update syscontroller Set ctlrecsta=:p1 where ctlid=139。)。 (39。p139。).Value:=str2。 ExecSQl。 end。 setBtn2(true)。 end。 procedure (Sender: TObject)。 染色工藝設置與管理系統(tǒng)設計 38 var Index,sbff,check: Integer。//定義數(shù)組下標變量 begin mgid:=。 nai:=0。nao:=0。ndi:=0。 ndo:=0。npi:=0。 with do begin for sbff := 1 to 11 do begin Close。 。 (39。SELECT * FROM public_syssubfunctionschn Where ((fncitd=:p2)AND(sbffunction=:p3)) order by sbfnumber asc 39。)。 (39。p239。).Value:=39。139。 (39。p339。).Value:=sbff。 Open。 Index := 1。//初始化下標 First。 While Not Eof Do //數(shù)據(jù)集循環(huán) begin check:=FieldByName(39。check39。).Value。 nai:=nai+FieldByName(39。ai39。).Value*check。 nao:=nao+FieldByName(39。ao39。).Value*check。 ndi:=ndi+FieldByName(39。di39。).Value*check。 ndo:=ndo+FieldByName(39。do39。).Value*check。 npi:=npi+FieldByName(39。pi39。).Value*check。 Next。 end。 end。 end。 :=inttostr(nai)。:=inttostr(nao)。 :=inttostr(ndi)。:=inttostr(ndo)。 :=inttostr(npi)。 end。 procedure (Sender: TObject)。 begin with do begin Close。 。 (39。SELECT * FROM syscontroller Where ctlid=:p139。)。 (39。p139。).Value:=strtoint()。 浙江理工大學本科畢業(yè)設計 39 Open。 :=fieldbyname(39。ctlai39。).Value。 hai:=strtoint()。 :=fieldbyname(39。ctlao39。).Value。 hao:=strtoint()。 :=fieldbyname(39。ctldi39。).Value。 hdi:=strtoint()。 :=fieldbyname(39。ctldo39。).Value。 hdo:=strtoint()。 :=fieldbyname(39。ctlpi39。).Value。 hpi:=strtoint()。 end。 end。 procedure (Sender: TObject)。 begin (Tfrmiodownload,frmiodownload)。 。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin Action:=caFree。 end。 procedure (Sender: TObject)。 begin setBtn1(false)。 setBtn2(false)。 :=39。39。:=39。