📄 form5.frm
字号:
Next i
rs2_new.Update
End If
''''溶剂计算系数----------------------------------------------------------------
Set rs2 = New ADODB.Recordset
sql2 = "select * from tb_flux_coef where conv_no='" & Trim(num) & "' order by conv_no, flux_no"
rs2.Open sql2, cn, adOpenStatic, adLockOptimistic
If rs2.RecordCount <> 0 Then
j = rs2.RecordCount
ReDim flux_coef(0 To j - 1, 0 To 13)
rs2.MoveFirst
For l = 0 To j - 1
For i = 0 To 13
If IsNull(rs2.Fields(i)) = True Then
flux_coef(l, i) = 0
Else
flux_coef(l, i) = rs2.Fields(i)
End If
Next i
rs2.MoveNext
Next
End If
Set rs2_new = New ADODB.Recordset
For l = 0 To j - 1
'sql2_new = "select * from tb_flux_coef where conv_no='" & Trim(flux_coef(l, 0)) & "' and flux_no ='" & Trim(flux_coef(l, 1)) & "'"
sql2_new = "select * from tb_flux_coef where conv_no=3 and flux_no ='" & Trim(flux_coef(l, 1)) & "'"
rs2_new.Open sql2_new, cn_new, adOpenStatic, adLockOptimistic
If rs2_new.RecordCount <> 0 Then
For i = 2 To 13
rs2_new.Fields(i) = flux_coef(l, i)
Next i
rs2_new.Update
rs2_new.Close
Else
rs2_new.AddNew
For i = 1 To 13
rs2_new.Fields(i) = flux_coef(l, i)
Next i
rs2_new.Fields(0) = 3
rs2_new.Update
rs2_new.Close
End If
Next l
''''静态计算系数----------------------------------------------------------------
Set rs2 = New ADODB.Recordset
sql2 = "select * from tb_stat_coef1 "
rs2.Open sql2, cn, adOpenStatic, adLockOptimistic
If rs2.RecordCount <> 0 Then
rs2.MoveFirst
For i = 0 To 46
If IsNull(rs2.Fields(i)) = True Then
stat_coef1(i) = 0
Else
stat_coef1(i) = rs2.Fields(i)
End If
Next i
End If
Set rs2_new = New ADODB.Recordset
sql2_new = "select * from tb_stat_coef1 "
rs2_new.Open sql2_new, cn_new, adOpenStatic, adLockOptimistic
If rs2_new.RecordCount <> 0 Then
rs2_new.MoveFirst
For i = 0 To 46
If IsNull(rs2_new.Fields(i)) = True Then rs2_new.Fields(i) = 0
rs2_new.Fields(i) = stat_coef1(i)
Next i
rs2_new.Update
End If
''''静态组----------------------------------------------------------------
Set rs2 = New ADODB.Recordset
sql2 = "select * from tb_stat_coef2 where conv_no='" & Trim(num) & "' order by conv_no,stat_no"
rs2.Open sql2, cn, adOpenStatic, adLockOptimistic
If rs2.RecordCount <> 0 Then
j = rs2.RecordCount
ReDim stat_coef2(0 To j - 1, 0 To 6)
rs2.MoveFirst
For l = 0 To j - 1
For i = 0 To 6
If IsNull(rs2.Fields(i)) = True Then
stat_coef2(l, i) = 0
Else
stat_coef2(l, i) = rs2.Fields(i)
End If
Next i
rs2.MoveNext
Next
End If
Set rs2_new = New ADODB.Recordset
For l = 0 To j - 1
'sql2_new = "select * from tb_stat_coef2 where conv_no='" & Trim(stat_coef2(l, 0)) & "' and stat_no ='" & Trim(stat_coef2(l, 1)) & "'"
sql2_new = "select * from tb_stat_coef2 where conv_no=3 and stat_no ='" & Trim(stat_coef2(l, 1)) & "'"
rs2_new.Open sql2_new, cn_new, adOpenStatic, adLockOptimistic
If rs2_new.RecordCount <> 0 Then
For i = 2 To 6
rs2_new.Fields(i) = stat_coef2(l, i)
Next i
rs2_new.Update
rs2_new.Close
Else
rs2_new.AddNew
For i = 1 To 6
rs2_new.Fields(i) = stat_coef2(l, i)
Next i
rs2_new.Fields(0) = 3
rs2_new.Update
rs2_new.Close
End If
Next l
''''静态自学习----------------------------------------------------------------
Set rs2 = New ADODB.Recordset
sql2 = "select * from tb_stat_self where conv_no='" & Trim(num) & "' order by CONV_NO, STAT_GRP_NO, SEQUENC_NO"
rs2.Open sql2, cn, adOpenStatic, adLockOptimistic
If rs2.RecordCount <> 0 Then
j = rs2.RecordCount
ReDim stat_self(0 To j - 1, 0 To 51)
rs2.MoveFirst
For l = 0 To j - 1
For i = 0 To 51
If IsNull(rs2.Fields(i)) = True Then
stat_self(l, i) = 0
Else
stat_self(l, i) = rs2.Fields(i)
End If
Next i
rs2.MoveNext
Next l
End If
Set rs2_new = New ADODB.Recordset
For l = 0 To j - 1
'sql2_new = "select * from tb_stat_self where conv_no='" & Trim(stat_self(l, 0)) & "' and STAT_GRP_NO ='" & Trim(stat_self(l, 1)) & "' and SEQUENC_NO ='" & Trim(stat_self(l, 2)) & "'"
sql2_new = "select * from tb_stat_self where conv_no=3 and STAT_GRP_NO ='" & Trim(stat_self(l, 1)) & "' and SEQUENC_NO ='" & Trim(stat_self(l, 2)) & "'"
rs2_new.Open sql2_new, cn_new, adOpenStatic, adLockOptimistic
If rs2_new.RecordCount <> 0 Then
For i = 3 To 51
rs2_new.Fields(i) = stat_self(l, i)
Next i
rs2_new.Update
rs2_new.Close
Else
rs2_new.AddNew
For i = 1 To 51
rs2_new.Fields(i) = stat_self(l, i)
Next i
rs2_new.Fields(0) = 3
rs2_new.Update
rs2_new.Close
End If
Next l
'''钢种标准------------------------------------------------------------------
Set rs2 = New ADODB.Recordset
sql2 = "select * from tb_sg_std order by GE_NO"
rs2.Open sql2, cn, adOpenStatic, adLockOptimistic
If rs2.RecordCount <> 0 Then
j = rs2.RecordCount
ReDim sg_std(0 To j - 1, 0 To 26)
rs2.MoveFirst
For l = 0 To j - 1
For i = 0 To 26
If IsNull(rs2.Fields(i)) = True Then
sg_std(l, i) = 0
Else
sg_std(l, i) = rs2.Fields(i)
End If
Next i
rs2.MoveNext
Next l
End If
Set rs2_new = New ADODB.Recordset
For l = 0 To j - 1
sql2_new = "select * from tb_sg_std where GE_NO='" & Trim(sg_std(l, 0)) & "' "
rs2_new.Open sql2_new, cn_new, adOpenStatic, adLockOptimistic
If rs2_new.RecordCount <> 0 Then
For i = 0 To 26
rs2_new.Fields(i) = sg_std(l, i)
Next i
rs2_new.Update
rs2_new.Close
Else
rs2_new.AddNew
For i = 0 To 26
rs2_new.Fields(i) = sg_std(l, i)
Next i
rs2_new.Fields(27) = 1
rs2_new.Fields(28) = 1
rs2_new.Fields(29) = 1
rs2_new.Update
rs2_new.Close
End If
Next l
'''''''''''''''''''对动静态系数组的修正
Dim aa, bb, cc, dd, ee, ff, gg, hh, jj, mm
Set rs2_new = New ADODB.Recordset
sql2_new = "select * from tb_sg_std order by GE_NO"
rs2_new.Open sql2_new, cn_new, adOpenStatic, adLockOptimistic
If rs2_new.RecordCount <> 0 Then
j = rs2_new.RecordCount
rs2_new.MoveFirst
For i = 0 To j - 1
aa = rs2_new.Fields(6) 'SCRAP_NO
bb = rs2_new.Fields(15) 'STD_TAP_AIM_C
cc = rs2_new.Fields(27) 'STAT_NO
dd = rs2_new.Fields(28) 'DYN_NO
ee = rs2_new.Fields(29) 'STAT_REFER_NO
' ff = rs2_new.Fields(30) 'DYN_STOP_LANCE_C_COEF
' gg = rs2_new.Fields(31) 'DYN_STOP_LANCE_C_COEF
rs2_new.Fields(27) = aa
mm = Int(bb * 100) - 1
If mm >= 10 Then mm = 10
rs2_new.Fields(28) = mm
rs2_new.Fields(29) = aa
If bb < 0.04 Then ff = 0.007
If bb >= 0.04 And bb <= 0.08 Then ff = 0.012
If bb > 0.08 Then ff = 0.0235
' rs2_new.Fields(30) = gg
rs2_new.Fields(31) = ff
rs2_new.Update
rs2_new.MoveNext
Next i
rs2_new.Close
End If
''废钢组---------------------------------------------------------------
Set rs2 = New ADODB.Recordset
sql2 = "select * from tb_scrap_patt order by SCRAP_PATT_NO"
rs2.Open sql2, cn, adOpenStatic, adLockOptimistic
If rs2.RecordCount <> 0 Then
j = rs2.RecordCount
ReDim scrap_patt(0 To j - 1, 0 To 11)
rs2.MoveFirst
For l = 0 To j - 1
For i = 0 To 11
If IsNull(rs2.Fields(i)) = True Then
scrap_patt(l, i) = 0
Else
scrap_patt(l, i) = rs2.Fields(i)
End If
Next i
rs2.MoveNext
Next l
End If
Set rs2_new = New ADODB.Recordset
For l = 0 To j - 1
sql2_new = "select * from tb_scrap_patt where SCRAP_PATT_NO='" & Trim(scrap_patt(l, 0)) & "' "
rs2_new.Open sql2_new, cn_new, adOpenStatic, adLockOptimistic
If rs2_new.RecordCount <> 0 Then
For i = 0 To 11
rs2_new.Fields(i) = scrap_patt(l, i)
Next i
rs2_new.Update
rs2_new.Close
Else
rs2_new.AddNew
For i = 0 To 11
rs2_new.Fields(i) = scrap_patt(l, i)
Next i
rs2_new.Update
rs2_new.Close
End If
Next l
''''标准温度表----------------------------------------------------------------
Set rs2 = New ADODB.Recordset
sql2 = "select * from tb_std_temp order by STD_TEMP_NO"
rs2.Open sql2, cn, adOpenStatic, adLockOptimistic
If rs2.RecordCount <> 0 Then
j = rs2.RecordCount
ReDim std_temp(0 To j - 1, 0 To 22)
rs2.MoveFirst
For l = 0 To j - 1
For i = 0 To 22
If IsNull(rs2.Fields(i)) = True Then
std_temp(l, i) = 0
Else
std_temp(l, i) = rs2.Fields(i)
End If
Next i
rs2.MoveNext
Next l
End If
Set rs2_new = New ADODB.Recordset
For l = 0 To j - 1
sql2_new = "select * from tb_std_temp where STD_TEMP_NO='" & Trim(std_temp(l, 0)) & "' "
rs2_new.Open sql2_new, cn_new, adOpenStatic, adLockOptimistic
If rs2_new.RecordCount <> 0 Then
For i = 0 To 22
rs2_new.Fields(i) = std_temp(l, i)
Next i
rs2_new.Update
rs2_new.Close
Else
rs2_new.AddNew
For i = 0 To 22
rs2_new.Fields(i) = std_temp(l, i)
Next i
rs2_new.Update
rs2_new.Close
End If
Next l
''''熔剂组数据----------------------------------------------------------------
Set rs2 = New ADODB.Recordset
sql2 = "select * from tb_flux_data order by FLUX_ID"
rs2.Open sql2, cn, adOpenStatic, adLockOptimistic
If rs2.RecordCount <> 0 Then
j = rs2.RecordCount
ReDim flux_data(0 To j - 1, 0 To 22)
rs2.MoveFirst
For l = 0 To j - 1
For i = 0 To 22
If IsNull(rs2.Fields(i)) = True Then
flux_data(l, i) = 0
Else
flux_data(l, i) = rs2.Fields(i)
End If
Next i
rs2.MoveNext
Next l
End If
Set rs2_new = New ADODB.Recordset
For l = 0 To j - 1
sql2_new = "select * from tb_flux_data where FLUX_NAME='" & Trim(flux_data(l, 0)) & "' "
rs2_new.Open sql2_new, cn_new, adOpenStatic, adLockOptimistic
If rs2_new.RecordCount <> 0 Then
For i = 0 To 22
rs2_new.Fields(i) = flux_data(l, i)
Next i
rs2_new.Update
rs2_new.Close
Else
rs2_new.AddNew
For i = 0 To 22
rs2_new.Fields(i) = flux_data(l, i)
Next i
rs2_new.Update
rs2_new.Close
End If
Next l
'''''动态系数----------------------------------------------------------------
If Check1.Value = 1 Then
Set rs2 = New A⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -