随着世界各国工业化程度的不断加大，各国的钢铁需求量也不断加大，需要的钢铁的种类也不断增多。这就要求我们在钢铁的生产过程中不断改进自己的工艺技术，提高生产过程控制精度，从而生产出更多更好的高质量钢材。
在炼钢过程中配料、上料过程将直接影响钢的产量及质量，如果能对这一过程进行记录分析，将有利于工艺的改进及分析产生次品的原因。下面就讲解一下通过紫金桥实时数据库实现配料、上料过程记录分析的方法和过程。
工艺过程
从总的工艺过程可以分为焦上料和矿上料两部分，通常焦或矿又各自由两套上料系统来完成。在上料前，首先要根据生产不同种类的钢材进行配料。一个称量斗可以对应一个料仓或两上料仓，当一个称量斗对应两个料仓时，要通过选料器进行选料。通常焦炭是通过焦炭称量斗称量后直接上料的;而矿通常是由多个量称量斗按比例进行称量混合，然后再由矿总称量斗进行汇总称量上料。
记录过程分析
对于所有称量斗，当称量斗打开时为一次称量结束，这时根据称量斗物料来源(料仓选择器选择状态)，将这个值记录到对应本次加料量中间量中。对于矿总称量斗打开时或焦炭称量斗打开时，则产生一条上料记录。对于焦炭上料记录，只记录一个当前选择料仓的上料量;对于矿的上料记录，则要记录各分组成分的上料量(由中间量获得)和矿总的上料量。
上料过程产生的记录要通过WEB浏览发布，为了使用所WEB客户端看到相同的记录结果，这要求记录时要将数据插入到历史中。WEB客户端通过查询指定时间范围内的上料记录，而得一致的完整的记录结果。
记录过程实现。
对于矿上料记录，由于其是由多种组分混合组成，并要对各组分含量进行记录，因此行成上料记录前，要通过一组中间变量对各组分的称重结果记录。根据分矿称量斗对应一个或两个料仓的不同，在产生中间量记录时，处理方法有所不同，但触发条件都由分矿称量斗的放料门打开产生的。在数据库的“值改变”脚本中为每个分矿称量斗打开开关定义一段处理脚本，如下所示：
一个分矿称量斗对应一个料仓，开关状态变化时脚本：
if( 580称量斗5打开信号.PV ) then
580烧5称重E.PV = 580称量斗5称重.PV;
endif;
一个分矿称量斗对应两个料仓，开关状态变化时脚本：
if (580称量斗1打开信号.PV) then
if( 580矿1烧11选择信号.PV == 0) then
580矿1称重E.PV = 580称量斗1称重.PV;
580烧11称重E.PV = -99999;
else
580矿1称重E.PV = -99999;
580烧11称重E.PV = 580称量斗1称重.PV;
endif;
endif;
当矿总称量斗或焦炭称量斗打开时就会产生一条上料记录，为了方便以时间为序的记录检索，增加了一个“记录时间”数据库点，其保存的值没有太多实际意义，但它所对应的时间则是其它量值的检索条件。对于矿总称量斗或焦炭称量斗同样要在数据库的“值改变”脚本中为每个称量打开开关定义一段处理脚本，如下所示：
焦炭称量斗开关状态变化时脚本：
int Millisecond = $SYSTEM.Millisec;
int CurTime = $SYSTEM.LongTime;
if( 580西焦称量斗打开.PV == 1) then
InsertHisData2(580记录时间.PV,$SYSTEM.LongTime, $SYSTEM.LongTime,Millisecond);
InsertHisData2(580装料制度.PV,-99999, CurTime, Millisecond);//装料制度0表示为P
InsertHisData2(580焦3上料量.PV, -99999, CurTime, Millisecond);
//没有上料的矿
InsertHisData2(580矿总上料量.PV, -99999, CurTime, Millisecond);
//这里假设为0时为选择焦1
if( 580焦1焦2选择信号.PV == 0) then
InsertHisData2(580焦1上料量.PV, 580西焦称重.PV, CurTime, Millisecond);
InsertHisData2(580焦2上料量.PV, -99999, CurTime, Millisecond);
else
InsertHisData2(580焦1上料量.PV, -99999, CurTime, Millisecond);
InsertHisData2(580焦2上料量.PV, 580西焦称重.PV, CurTime, Millisecond);
endif;
endif;
矿总称量斗开关状态变化时脚本：
int Millisecond = $SYSTEM.Millisec;
int CurTime= $SYSTEM.LongTime;
if (580西矿称量斗打开.PV) then
InsertHisData2(580记录时间.PV,CurTime, CurTime, Millisecond);
InsertHisData2(580装料制度.PV,1, CurTime, Millisecond);//1表示装料制度为K
InsertHisData2(580焦1上料量.PV, -99999, CurTime, Millisecond);
//没有上料的矿或焦
InsertHisData2(580球10上料量.PV, -99999, CurTime, Millisecond);
InsertHisData2(580矿1上料量.PV, 580矿1称重E.PV, CurTime, Millisecond);
//上料的矿或焦
InsertHisData2(580矿总上料量.PV, 580西矿称重.PV, CurTime, Millisecond);
endif;
记录查询显示
对于记录的显示首先是通过一个隐藏的“所有历史数据表”将选定时间范围内的所有记录时间检索出来，然后再通过这个时间检索其它记录值，并将这些值填充到显示表中。这个处理过程是通过“所有历史数据表”的“事件脚本”来完成的：
“事件脚本”中的“数据刷新”脚本如下所示：
int RecordCou nt = #RecordTime.GetDataCou nt();
int RecordIndex = 1;
int i,j;
//第一个记录的时间有可能小于开始时间
if( #RecordTime.GetVal(1,1) < #StartDate.Time ) then
RecordCou nt = RecordCou nt - 1;
RecordIndex = RecordIndex+ 1;
endif;
if( RecordCou nt > #List.RowCou nt() - 2) then
#List.AddRow(RecordCou nt - (#List.RowCou nt() - 2));
else
if( RecordCou nt < 18 ) then//18是本例中缺省记录数，可根据实际情况调整
#List.DelTailRow(#List.RowCou nt() - 20);//20为缺省记录数加表头行数。
#List.ClearRowData(3,18);
else
#List.DelTailRow(#List.RowCou nt()-2 -RecordCou nt);
endif;
endif;
j=1;
for i=1to RecordCou nt+1step1
if( #RecordTime.GetVal(1,RecordIndex+i) == #RecordTime.GetVal(3,RecordIndex+i)) then
#list.SetVal(1, j+2, #RecordTime.GetVal(1,RecordIndex+i));
#list.SetVal(2, j+2, #RecordTime.GetVal(2,RecordIndex+i));
j=j+1;
endif;
next;
小结
本文主要是以钢铁的配料、上料记录过程为例，结合工艺过程实现数据记录和查询显示。对于这个示例不仅可以做为钢铁配料、上料记录、数据分析显示的原型，也可以根据它的应用特点(数据产生存储由服务器端——数据库脚本来完成，数据查询显示由客户端脚本来完成)，而将其扩展到其它行业。希望对学习使用紫金桥实时数据库所有帮助。
