此主题相关图片如下：无标题20240322.png

Dim errlog As String = vbcrlf

Dim t1 As Date = Date.Now

If QQClient.Ready Then QQClient.Stop

Dim cmd As new SQLCommand

cmd.ConnectionName = "Sq_data"

 

\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~增加Zc_Data数据源~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

e.Sender.Enabled = False

cmd.CommandText = "Se lect * From {Acset} Where [fid] = 1 and [Name] = \'" & e.Form.Controls("Comb账套").text & "\'"

Dim vas = cmd.ExecuteValues

\'MessageBox.Show(vas.Count)

If vas.Count > 0 Then

    \'if sdt.DataRows.Count then

    Dim cnns As String = Functions.Execute("解密", vas("Note"))

    errlog &= vbcrlf & Date.Now & " --- 登录窗体>1>>>:得到【ZC_data】的数据源的设置数据："\' & cnns

    If e.Form.Controls("TxtIP").text <> "127.0.0.1" Then

        If cnns.Contains("Source") = False Then cnns &= "; Data Source = " & e.Form.Controls("TxtIP").text

        errlog &= vbcrlf & Date.Now & " --- 登录窗体>2>>>:重置默认服务器IP为233："

    End If

    \'    MessageBox.Show(cnns)

    If Connections.TryConnect(cnns) Then

        If Connections.Contains("Zc_Data") Then Connections.Delete("Zc_data")

        Connections.Add("Zc_Data", cnns)

        errlog &= vbcrlf & Date.Now & " --- 登录窗体>88>>>:增加【ZC_data】的数据源成功："

    Else

        MessageBox.Show("数据源设置有问题，请重新设置或与管理者联系！", "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Question)

        Return

    End If

Else

    MessageBox.Show("账套设置有问题，请重新设置！", "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Question)

    e.Form.Controls("Comb账套").Text = Nothing

    e.Sender.Enabled = True

    Return

End If

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

If QQClient.Start() = True Then \'如果登录成功

    Functions.Execute("ErrFileWrite", Date.Now & " --- 登录窗体>3start>>>QQClient.Ready = " & QQClient.Ready)

       

Else \'如果登录失败,显示服务器返回错误信息

    Functions.Execute("ErrFileWrite", Date.Now & " --- 登录窗体>000>>>QQClient.Ready = " & QQClient.Ready)

    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage, "提示", PopiconEnum.Error, 3)

    e.Sender.Enabled = True

End If

Functions.Execute("ErrFileWrite", errlog)