您现在的位置：毕业论文 >> 论文 >> 正文

VB的COREX-C3000熔融气化炉能量利用的研究第7页

更新时间：2016-11-1: 来源：毕业论文

4.2 Access数据库与VB的连接
冶炼操作参数界面，主要包含物料用量、铁水成分、炉渣成分、气化炉煤气成分，通过Ado控件使VB与Access数据库相连，显示出各项数据。

图6 冶炼操作参数界面

代码实现：
Private Sub cmd输入_Click()
Dim 炉号 As String
Dim Ore1, Ore2, Ore3, Ore4, Add1, Add2, Add3, Coke1, Coke2, Coal1, Coal2 As String
     炉号 = cmb炉号.Text

   ado冶炼情况.Recordset.MoveFirst
   ado冶炼情况.Recordset.Find "炉号=" & "'" & 炉号 & "'"

   txt大块ASS矿用量 = ado冶炼情况.Recordset.Fields("大块ASSMANG矿用量").Value
   txtASS矿用量 = ado冶炼情况.Recordset.Fields("ASSMANG矿用量").Value
   txt大块智利球团矿用量 = ado冶炼情况.Recordset.Fields("大块智利球团矿用量").Value
   txtMBR球团矿用量 = ado冶炼情况.Recordset.Fields("MBR球团矿用量").Value
   txtreya矿用量 = ado冶炼情况.Recordset.Fields("reya矿用量").Value
   txt大块CVRD球团矿用量 = ado冶炼情况.Recordset.Fields("大块CVRD球团矿").Value
   txtDRI用量 = ado冶炼情况.Recordset.Fields("DRI用量").Value
   txt大块白云石用量 = ado冶炼情况.Recordset.Fields("大块白云石用量").Value
   txt硅石用量 = ado冶炼情况.Recordset.Fields("硅石用量").Value
   txt大块石灰石用量 = ado冶炼情况.Recordset.Fields("大块石灰石用量").Value
   txt大块焦炭用量 = ado冶炼情况.Recordset.Fields("大块焦炭用量").Value
   txt大块山西焦用量 = ado冶炼情况.Recordset.Fields("大块山西焦用量").Value
   txt兴隆庄块煤用量 = ado冶炼情况.Recordset.Fields("兴隆庄块煤用量").Value
   txt优质块煤用量 = ado冶炼情况.Recordset.Fields("优质块煤用量").Value
   txt金属化率 = ado冶炼情况.Recordset.Fields("金属化率").Value
   txt风口氧量 = ado冶炼情况.Recordset.Fields("风口氧量").Value
   txt烧嘴氧量 = ado冶炼情况.Recordset.Fields("烧嘴氧量").Value
   txt输出煤气 = ado冶炼情况.Recordset.Fields("熔融气化炉出炉煤气量").Value
   txt铁水量 = ado冶炼情况.Recordset.Fields("铁水量").Value
   txt炉渣量 = ado冶炼情况.Recordset.Fields("炉渣量").Value

   ado铁水成分.Recordset.MoveFirst
   ado铁水成分.Recordset.Find "炉号=" & "'" & 炉号 & "'"

   txtFe = ado铁水成分.Recordset.Fields("Fe").Value
   txtC = ado铁水成分.Recordset.Fields("C").Value
   txtSi = ado铁水成分.Recordset.Fields("Si").Value
   txt铁水S = ado铁水成分.Recordset.Fields("S").Value
   txtP = ado铁水成分.Recordset.Fields("P").Value
   txtTi = ado铁水成分.Recordset.Fields("Ti").Value
   txtMn = ado铁水成分.Recordset.Fields("Mn").Value
   txt铁水其他 = ado铁水成分.Recordset.Fields("其他").Value