mainfrm.frm

用于控制氧乐果生产的程序

If fyf3_Control.WorkState Then tmrControl(2).Enabled = True
fyf3_Control.tlfaKaiDu = gsngManualToAutoKaiDu(3)
With zkhmfrm
    .Text1(2).Locked = True
    .Text1(2).BackColor = &H80000000
End With
gblnIsAuto(3) = True
End Sub

Private Sub mnufyf3Manual_Click()
tmrControl(2).Enabled = False
With zkhmfrm
    .Text1(2).Locked = False
    .Text1(2).BackColor = &H80000005
End With
zkhmfrm.Text1(2).Text = CStr(fyf3_Control.tlfaKaiDu)
gblnIsAuto(3) = False
End Sub

Private Sub mnuReadData_Click()
frmChart.Show
End Sub

'Private Sub mnuMain_ZuTai_Click()
'With frmZuTai
'    .Show
'    .SetFocus
'End With
'End Sub

'*******************
'控制
'*******************
Private Sub tmrControl_Timer(Index As Integer)
Select Case Index
    Case 0
        fyf1_Control.Control
    Case 1
        fyf2_Control.Control
    Case 2
        fyf3_Control.Control
End Select
End Sub
Private Sub m_cssz_Click()
With frmCanShu
    .Show
    .SetFocus
End With
End Sub
Private Sub m_fyf1Add_Click()
fyftlfrm.IsZhuiJia = True
If gGongZuoZhuangTai(1) Then
    With frmPassword
        .EventChar = "fyf1xiuzheng"
        .Show vbModal
    End With
End If
End Sub

Private Sub m_fyf1pause_Click()
With frmPassword
    .EventChar = "fyf1pause"
    .Show vbModal
End With
End Sub

Private Sub m_fyf1stop_Click()
With frmPassword
    .EventChar = "fyf1stop"
    .Show vbModal
End With
End Sub

Private Sub m_fyf2Add_Click()
fyftlfrm.IsZhuiJia = True
If gGongZuoZhuangTai(2) Then
    With frmPassword
        .EventChar = "fyf2xiuzheng"
        .Show vbModal
    End With
End If
End Sub

Private Sub m_fyf2pause_Click()
With frmPassword
    .EventChar = "fyf2pause"
    .Show vbModal
End With
End Sub

Private Sub m_fyf2stop_Click()
With frmPassword
    .EventChar = "fyf2stop"
    .Show vbModal
End With
End Sub

Private Sub m_fyf3Add_Click()
fyftlfrm.IsZhuiJia = True
If gGongZuoZhuangTai(3) Then
    With frmPassword
        .EventChar = "fyf3xiuzheng"
        .Show vbModal
    End With
End If
End Sub

Private Sub m_fyf3pause_Click()
With frmPassword
    .EventChar = "fyf3pause"
    .Show vbModal
End With
End Sub

Private Sub m_fyf3stop_Click()
With frmPassword
    .EventChar = "fyf3stop"
    .Show vbModal
End With
End Sub

Private Sub m_gylc1_Click()
Unload gylc1frm
With gylc1frm
    .fyfIndex = 1
    .Show
    .SetFocus
End With
End Sub
Private Sub M_gylc2_Click()
Unload gylc1frm
With gylc1frm
    .fyfIndex = 2
    .Show
    .SetFocus
End With
End Sub
Private Sub m_gylc3_Click()
Unload gylc1frm
With gylc1frm
    .fyfIndex = 3
    .Show
End With
End Sub
Private Sub m_lsjl1_Click()
With lsjl1frm
    .Show
    .SetFocus
End With
End Sub
Private Sub m_lsjl2_Click()
With lsjl2frm
    .Show
    .SetFocus
End With
End Sub
Private Sub m_lsjl3_Click()
With lsjl3frm
    .Show
    .SetFocus
End With
End Sub
Private Sub m_lxlsjl1_Click()
With lxjl1frm
    .Show
    .SetFocus
End With
End Sub
Private Sub m_lxlsjl3_Click()
With lxjl3frm
    .Show
    .SetFocus
End With
End Sub
Private Sub m_lxsljl2_Click()
With lxjl2frm
    .Show
    .SetFocus
End With
End Sub
Private Sub m_zkhm_Click()
On Error Resume Next
'******************************
'返回zkhm，从内存中卸载其他窗口
'******************************
Unload frmBlackBox
Unload frmCanShu
Unload frmDBManage
Unload frmHelp
Unload frmStat
Unload frmUser
Unload frmWarning
Unload gylc1frm
Unload lsjl1frm
Unload lsjl2frm
Unload lsjl3frm
Unload lxjl1frm
Unload lxjl2frm
Unload lxjl3frm
With zkhmfrm
    .Show
    .SetFocus
End With
End Sub

Private Sub MDIForm_Load()
'******************************
'以下窗口在程序运行期间始终存在
'******************************
baojingfrm.Show
dataviewfrm.Show
With zkhmfrm
    .Show
    .SetFocus
End With
Set fyf1_Control = New module_control
Set fyf2_Control = New module_control
Set fyf3_Control = New module_control
mnuCreat1.Enabled = True
mnuCreat2.Enabled = True
mnuCreat3.Enabled = True
m_fyf1Add.Enabled = False
m_fyf2Add.Enabled = False
m_fyf3Add.Enabled = False
'******************************************
'打开数据库，为相应数据库变量和记录集变量赋值
'******************************************
Set Lsdb = DBEngine.Workspaces(0).OpenDatabase("d:\ylg2\lsdata\lsjl.mdb")

Set Batchlsrs(1) = Lsdb.OpenRecordset("batchls1")
Set Detaillsrs(1) = Lsdb.OpenRecordset("detaills1")
Set Continousrs(1) = Lsdb.OpenRecordset("continous1")

Set Batchlsrs(2) = Lsdb.OpenRecordset("batchls2")
Set Detaillsrs(2) = Lsdb.OpenRecordset("detaills2")
Set Continousrs(2) = Lsdb.OpenRecordset("continous2")

Set Batchlsrs(3) = Lsdb.OpenRecordset("batchls3")
Set Detaillsrs(3) = Lsdb.OpenRecordset("detaills3")
Set Continousrs(3) = Lsdb.OpenRecordset("continous3")

Set Statrs = Lsdb.OpenRecordset("stat")

Set BlackBoxRec = Lsdb.OpenRecordset("blackbox")


Set Csdb = DBEngine.Workspaces(0).OpenDatabase("d:\ylg2\csdata\csdb.mdb", False, False, ";pwd=yangzhixiao")
Set Csrs(1) = Csdb.OpenRecordset("gongyics")
Set Csrs(2) = Csdb.OpenRecordset("kongzhics")
Set Csrs(3) = Csdb.OpenRecordset("neibucs")
Set Csrs(4) = Csdb.OpenRecordset("neibuchucs")

Set Baojingdb = DBEngine.Workspaces(0).OpenDatabase("d:\ylg2\warning\bjdb.mdb", False, False, ";pwd=yangzhixiao")
Set Bjrs = Baojingdb.OpenRecordset("bjjl")

Set UserDB = DBEngine.Workspaces(0).OpenDatabase("d:\ylg2\csdata\user.mdb", False, False, ";pwd=yangzhixiao")
Set UserRec = UserDB.OpenRecordset("user")

Call ReadParameter

mfyf1WenDu(0) = -35
mfyf1WenDu(1) = -35

mfyf2WenDu(0) = -35
mfyf2WenDu(1) = -35

mfyf3WenDu(0) = -35
mfyf3WenDu(1) = -35

For i = 0 To 2
    tmrControl(i).Enabled = False
    gIsTouLiao(i + 1) = False
Next
mnuGoOn1.Enabled = False
mnuGoOn2.Enabled = False
mnuGoOn3.Enabled = False

For i = 1 To 3
    gblnBeginSet(i) = False
    gintkdSheDing(i) = 0
    tmrSoftSpring(i - 1).Enabled = False
Next
gintKaiDuXiaXian(0) = 0
With Me
    Call A_out(.fyf1_Control.tlfBaseAddress, .fyf1_Control.tlfChannel, gintkdSheDing(1), 0)
    Call A_out(.fyf2_Control.tlfBaseAddress, .fyf2_Control.tlfChannel, gintkdSheDing(2), 0)
    Call A_out(.fyf3_Control.tlfBaseAddress, .fyf3_Control.tlfChannel, gintkdSheDing(3), 0)
End With
For i = 0 To 2
    tmrSoftSpring(i).Enabled = True
Next
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
With frmPassword
    .EventChar = "end"
    .Show vbModal
End With
End Sub

Private Sub mnuBaoBiao_Click()
With frmStat
    .Show
    .SetFocus
End With
End Sub

Private Sub mnuBaoJing_Click()
With frmWarning
    .Show
    .SetFocus
End With
End Sub

Private Sub mnuCreat1_Click()
On Error Resume Next
fyftlfrm.IsZhuiJia = False
'With Batchlsrs(1)
'    .MoveLast
'    If (IsNull(.Fields("pici"))) Or (IsNull(.Fields("banci"))) Or _
'    (IsNull(.Fields("toulufang"))) Or (IsNull(.Fields("yansuan"))) _
'    Or (IsNull(.Fields("bujialufang"))) Or (IsNull(.Fields("zdph"))) _
'    Or (IsNull(.Fields("hcyzongliang"))) Or _
'    (IsNull(.Fields("chuliang"))) Then
'        Call Inform(71)
'    Else
'        frmPassword.EventChar = "fyf1touliao"
'        frmPassword.Show vbModal
'    End If
'End With

frmPassword.EventChar = "fyf1touliao"
frmPassword.Show vbModal

End Sub

Private Sub mnuCreat1ChuLiang_Click()
On Error Resume Next
With Batchlsrs(1)
    .MoveLast
    If (Not IsNull(.Fields("pici"))) And (Not IsNull(.Fields("banci"))) And _
    (Not IsNull(.Fields("toulufang"))) And (Not IsNull(.Fields("yansuan"))) _
    And (Not IsNull(.Fields("bujialufang"))) And (Not IsNull(.Fields("zdph"))) _
    And (Not IsNull(.Fields("hcyzongliang"))) And _
    (Not IsNull(.Fields("chuliang"))) Then
        Call Inform(72)
    End If
End With
With frmPassword
    .EventChar = "fyf1chuliang"
    .Show vbModal
End With
End Sub

Private Sub mnuCreat2_Click()
On Error Resume Next
fyftlfrm.IsZhuiJia = False
'With Batchlsrs(2)
'    .MoveLast
'    If (IsNull(.Fields("pici"))) Or (IsNull(.Fields("banci"))) Or _
'    (IsNull(.Fields("toulufang"))) Or (IsNull(.Fields("yansuan"))) _
'    Or (IsNull(.Fields("bujialufang"))) Or (IsNull(.Fields("zdph"))) _
'    Or (IsNull(.Fields("hcyzongliang"))) Or _
'    (IsNull(.Fields("chuliang"))) Then
'        Call Inform(71)
'    Else
'        frmPassword.EventChar = "fyf2touliao"
'        frmPassword.Show vbModal
'    End If
'End With

frmPassword.EventChar = "fyf2touliao"
frmPassword.Show vbModal

End Sub

Private Sub mnuCreat2ChuLiang_Click()
On Error Resume Next
With Batchlsrs(2)
    .MoveLast
    If (Not IsNull(.Fields("pici"))) And (Not IsNull(.Fields("banci"))) And _
    (Not IsNull(.Fields("toulufang"))) And (Not IsNull(.Fields("yansuan"))) _
    And (Not IsNull(.Fields("bujialufang"))) And (Not IsNull(.Fields("zdph"))) _
    And (Not IsNull(.Fields("hcyzongliang"))) And _
    (Not IsNull(.Fields("chuliang"))) Then
        Call Inform(72)
    End If
End With
With frmPassword
    .EventChar = "fyf2chuliang"
    .Show vbModal
End With
End Sub

Private Sub mnuCreat3_Click()
On Error Resume Next
fyftlfrm.IsZhuiJia = False
'With Batchlsrs(3)
'    .MoveLast
'    If (IsNull(.Fields("pici"))) Or (IsNull(.Fields("banci"))) Or _
'    (IsNull(.Fields("toulufang"))) Or (IsNull(.Fields("yansuan"))) _
'    Or (IsNull(.Fields("bujialufang"))) Or (IsNull(.Fields("zdph"))) _
'    Or (IsNull(.Fields("hcyzongliang"))) Or _
'    (IsNull(.Fields("chuliang"))) Then
'        Call Inform(71)
'    Else
'        frmPassword.EventChar = "fyf3touliao"
'        frmPassword.Show vbModal
'    End If