毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

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

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页

VB的COREX-C3000熔融气化炉能量利用的研究 第7页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。