⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 dlgxfhtesttype.frm

📁 电力机车牵引变压器试验站总控程序
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
            Set cn = CreateObject("adodb.connection")
            Set rs = CreateObject("adodb.recordset")
            cn.ConnectionString = "uid=admin;pwd=111;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\试验结果1.mdb;Persist Security Info=False"
            cn.Open
            rs.CursorLocation = 3
        
            rs.Open "select * from 变压器试验结果2 where 试验日期 like '" & byqData(4) & "'", cn, adOpenKeyset, adLockBatchOptimistic
            rs.Filter = "试验日期 = '" & byqData(4) & "'"
            rs.Delete
            rs.UpdateBatch
            rs.Close
            
            Set cn = CreateObject("adodb.connection")
            Set rs = CreateObject("adodb.recordset")
            cn.ConnectionString = "uid=admin;pwd=111;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\试验结果1.mdb;Persist Security Info=False"
            cn.Open
            rs.CursorLocation = 3
            
            rs.Open "select * from 变压器试验结果1", cn, adOpenKeyset, adLockBatchOptimistic
            
            x = rs.Fields.count
            If rs.Recordcount <> 0 Then
                rs.MoveLast
            End If
            rs.AddNew
            
            For i = 0 To x - 1
               rs.Fields(i) = byqData(i)
            Next i
            rs.UpdateBatch
            rs.Close
                     
            Set cn = CreateObject("adodb.connection")
            Set rs = CreateObject("adodb.recordset")
            cn.ConnectionString = "uid=admin;pwd=111;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\试验结果1.mdb;Persist Security Info=False"
            cn.Open
            rs.CursorLocation = 3
            
            rs.Open "select * from 变压器试验结果2", cn, adOpenKeyset, adLockBatchOptimistic
            
            Y = rs.Fields.count
            If rs.Recordcount <> 0 Then
                rs.MoveLast
            End If
            rs.AddNew
            For i = 0 To 4
                rs.Fields(i) = byqData(i)
            Next i
            For i = 5 To Y - 1
                rs.Fields(i) = byqData(i + 234)
            Next i
            rs.UpdateBatch
            rs.Close
            
            Set cn = CreateObject("adodb.connection")
            Set rs = CreateObject("adodb.recordset")
            cn.ConnectionString = "uid=admin;pwd=111;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\试验结果1.mdb;Persist Security Info=False"
            cn.Open
            rs.CursorLocation = 3
            
            rs.Open "select * from 电抗器试验结果 where 试验日期 like '" & dkqData(4) & "'", cn, adOpenKeyset, adLockBatchOptimistic
            rs.Filter = "试验日期 = '" & dkqData(4) & "'"
            rs.Delete
            rs.UpdateBatch
            rs.Close
            
            Set cn = CreateObject("adodb.connection")
            Set rs = CreateObject("adodb.recordset")
            cn.ConnectionString = "uid=admin;pwd=111;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\试验结果1.mdb;Persist Security Info=False"
            cn.Open
            rs.CursorLocation = 3
            
            rs.Open "select * from 电抗器试验结果", cn, adOpenKeyset, adLockBatchOptimistic
    
            Y = rs.Fields.count
            If rs.Recordcount <> 0 Then
                rs.MoveLast
            End If
            rs.AddNew
            
            For i = 0 To 206
                rs.Fields(i) = dkqData(i)
            Next i
            rs.UpdateBatch
            rs.Close
            
            MsgBox "数据存档完毕"
            ProgressBar4.Value = ProgressBar4.Max
            Frame8.Visible = False
            ProgressBar4.Visible = False
        ElseIf x1 = 7 Then
            MsgBox "数据未保存"
            ProgressBar4.Value = ProgressBar4.Max
            Frame8.Visible = False
            ProgressBar4.Visible = False
        End If
    End If
    cn.Close
End Sub

Private Sub Command10_Click()
    Command3.Enabled = False
    Command4.Enabled = False
    Command7.Enabled = False
    Command8.Enabled = False
    Command9.Enabled = False
    Command9.Visible = False
    Command1.Enabled = True
    Command6.Enabled = True
End Sub

Private Sub Command11_Click()
    dlgCalendar.Show vbModal
    Text1(3).Text = choosenDate
    choosenDate = ""
End Sub

Private Sub Command12_Click()
    dlgCalendar.Show vbModal
    Text3(3).Text = choosenDate
    choosenDate = ""
End Sub

Private Sub Command17_Click()
    dlgObjectSelection.Show vbModal
    Command4.Enabled = True
    Command17.Enabled = False
End Sub

Private Sub Command2_Click()
    If continuedTest = False Then
        If Text1(0).Text = "" Or Text1(1).Text = "" Or Text1(2).Text = "" Or Text1(3).Text = "" Then
            Dim i As Integer
            i = MsgBox("请先完成基本信息录入!", 0 + 0 + 48, "警告")
        Else
            For i = 0 To 2
                byqData(i + 1) = Text1(i).Text
                hgqData(i + 1) = Text1(i).Text
                dkqData(i + 1) = Text1(i).Text
            Next i
            Call GetCurrentTime
            byqData(4) = Text1(3).Text & " " & currentTime
            hgqData(4) = Text1(3).Text & " " & currentTime
            dkqData(4) = Text1(3).Text & " " & currentTime
            dataFile = App.Path & "\试验结果\" & byqData(4) & ".doc"
            Frame1.Enabled = True
            Frame3.Enabled = False
            SSTab1.TabEnabled(1) = False
        End If
    ElseIf continuedTest = True Then
        Frame1.Enabled = True
        dataFile = App.Path & "\试验结果\" & byqData(4) & ".doc"
    End If
End Sub

Private Sub Command3_Click()
    Call controlCommand("00100001", 0)
    frmProcessing.Show vbModal
    If ttype = "7" Then
        Command9.Enabled = True
        Command9.Visible = True
    End If
End Sub

Private Sub Command4_Click()
    Dim strCommand As String
    Select Case ttype
        Case "7"
            strCommand = TEST_START
        Case Else
            MsgBox "请先选择试验项目", 0 + 0 + 48, "警告"
    End Select
    Call controlCommand(strCommand, 0)
    Frame1.Enabled = False
    Command2.Enabled = False
    Command1.Enabled = False
    frmProcessing.Show vbModal
    Command7.Enabled = True
    Command8.Enabled = True
    Command3.Enabled = True
End Sub

Private Sub Command5_Click()
    If continuedTest = False Then
        If Text3(0).Text = "" Or Text3(1).Text = "" Or Text3(2).Text = "" Or Text3(3).Text = "" Then
            Dim i As Integer
            i = MsgBox("请先完成基本信息录入!", 0 + 0 + 48, "警告")
        Else
            For i = 0 To 2
                byqData(i + 1) = Text3(i).Text
                hgqData(i + 1) = Text3(i).Text
                dkqData(i + 1) = Text3(i).Text
            Next i
            Call GetCurrentTime
            byqData(4) = Text3(3).Text & " " & currentTime
            hgqData(4) = Text3(3).Text & " " & currentTime
            dkqData(4) = Text3(3).Text & " " & currentTime
            dataFile = App.Path & "\试验结果\" & dkqData(4) & ".doc"
            Frame7.Enabled = True
            Frame6.Enabled = False
            SSTab1.TabEnabled(0) = False
        End If
    ElseIf continuedTest = True Then
        Frame7.Enabled = True
        dataFile = App.Path & "\试验结果\" & dkqData(4) & ".doc"
    End If
End Sub

Private Sub Command6_Click()
    Call Command1_Click
End Sub

Private Sub Command9_Click()
    dlgManualTest.Show vbModal
    Command10.Enabled = True
    Command17.Enabled = True
End Sub

Private Sub Form_Load()
    Dim i As Integer
    If continuedTest = True Then
        SSTab1.TabEnabled(0) = False
        SSTab1.TabEnabled(1) = False
        
        If dkqData(4) <> "" And dkqData(138) = "未完成" Then
            SSTab1.Tab = 1
            SSTab1.TabEnabled(1) = True
            Frame6.Enabled = False
            Frame7.Enabled = False
            For i = 0 To 4
                If dkqData(i + 132) = "完成" Then
                    Option1(i + 17).Enabled = False
                End If
            Next i
            For i = 0 To 3
                Text3(i).Text = dkqData(i + 1)
            Next i
        End If
        
        If byqData(4) <> "" And byqData(238) = "未完成" Then
            SSTab1.Tab = 0
            SSTab1.TabEnabled(0) = True
            Frame3.Enabled = False
            Frame1.Enabled = False
            For i = 0 To 12
                If byqData(i + 225) = "完成" Then
                    Option1(i).Enabled = False
                End If
            Next i
            For i = 0 To 3
                Text1(i).Text = byqData(i + 1)
            Next i
        End If
        
        
    ElseIf continuedTest = False Then
        byqData(0) = "先锋号"
        dkqData(0) = "先锋号"
        hgqData(0) = "先锋号"
        Text1(3).Text = Date
        Text3(3).Text = Date
        SSTab1.TabEnabled(0) = True
        SSTab1.TabEnabled(1) = True
        Frame3.Enabled = True
        Frame1.Enabled = False
        Frame6.Enabled = True
        Frame7.Enabled = False
        SSTab1.Tab = 0
    End If
End Sub

Private Sub OKButton_Click()
    Unload Me
End Sub

Private Sub Option1_Click(Index As Integer)
    If Index = 0 Then
        ttype = "1"
        Text6.Text = "您选择了外观检查试验！" + Chr(13) + Chr(10) + Text6.Text
        dlgManualTest.Show [vbModal]
    ElseIf Index = 1 Then
        ttype = "2"
        Text6.Text = "您选择了密封试验！" + Chr(13) + Chr(10) + Text6.Text
        dlgManualTest.Show [vbModal]
    ElseIf Index = 2 Then
        ttype = "3"
        Text6.Text = "您选择了电压比试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 3 Then
        ttype = "4"
        Text6.Text = "您选择了联结组标号试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 4 Then
        ttype = "5"
        Text6.Text = "您选择了绕组直流电阻测定试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 5 Then
        ttype = "6"
        Text6.Text = "您选择了绝缘电阻及吸收比试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 6 Then
        ttype = "7"
        Text6.Text = "您选择了变压器油电器强度试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 7 Then
        ttype = "8"
        Command17.Visible = True
        Command17.Enabled = True
        Text6.Text = "您选择了外施工频耐压试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 8 Then
        ttype = "9"
        Text6.Text = "您选择了感应耐压试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 9 Then
        ttype = "10"
        Text6.Text = "您选择了空载试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 10 Then
        ttype = "11"
        Text6.Text = "您选择了变压器油理化试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 11 Then
        ttype = "12"
        Text6.Text = "您选择了冷却系统试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 12 Then
        ttype = "13"
        Text6.Text = "您选择了负载试验！" + Chr(13) + Chr(10) + Text6.Text
    ElseIf Index = 13 Then
    
    ElseIf Index = 14 Then
    
    ElseIf Index = 15 Then
    
    ElseIf Index = 16 Then
    
    ElseIf Index = 17 Then
    
    ElseIf Index = 18 Then
    
    ElseIf Index = 19 Then
    
    ElseIf Index = 20 Then
    
    ElseIf Index = 21 Then
    
    ElseIf Index = 22 Then
    
    ElseIf Index = 23 Then
    
    ElseIf Index = 24 Then
    
    ElseIf Index = 25 Then
    
    ElseIf Index = 26 Then
    
    ElseIf Index = 27 Then
    
    ElseIf Index = 28 Then
    
    ElseIf Index = 29 Then

    ElseIf Index = 30 Then
    
    ElseIf Index = 31 Then
    
    ElseIf Index = 32 Then
    
    End If
End Sub
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -