readme.txt

FLA-502控制、标定、分析用

mdlPublic

启动顺序
        Set rs = HyConn.Execute("select * from A_系统启动顺序")
        If Not (rs.EOF = True And rs.BOF = True) Then
            rs.MoveFirst
            Select Case Val(rs!StartSequenceId)
            Case 41
                frm五气分析仪标定.Show vbModal
            Case 42
                frm五气分析仪浓度监视.Show vbModal
            Case 51
                frm五气分析仪标定结果.Show vbModal
            End Select
        End If


联接设置
Public Sub GetDataConnectionString()
    g_szSQLConnStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GBVmas;Data Source=dds"

    'g_szSQLConnStr = "Provider=SQLOLEDB.1;Password=chinahy;Persist Security Info=True;User ID=sa;Initial Catalog=GBVmas;Data Source=HBJ-Y5YLMPWKX5B\SQLSERVER1"
    Dim m_clsDataConn As New clsDataConn
On Error GoTo Err_1
    If g_szSQLConnStr = "" Then
        g_szSQLConnStr = m_clsDataConn.GetConnectionString()
        If (Trim(g_szSQLConnStr) = "") Then
            Exit Sub
        End If
    End If
    Exit Sub
Err_1:
   Call ShowErrorMsg(Err)
End Sub

端口设置
Public Sub 刷新设备对应的串口数据()
    Dim rsTemp As ADODB.Recordset
    Set rsTemp = Database.取数据("select name, COMPort ,handle from SysHandles")
    If rsTemp.EOF = False Then
        rsTemp.MoveFirst
        While Not rsTemp.EOF
            If UCase(Trim(rsTemp!Name)) = "ANALYZERHANDLE" Then
                Analyzer.AnalyzerHandle = rsTemp!Handle
                Analyzer.AnalyzerPort = rsTemp!comport
            End If
            rsTemp.MoveNext
        Wend
    End If
    rsTemp.Close
    Set rsTemp = Nothing
End Sub
---------------------------------------