sys_set.vb

这是我自己用VB.NET编写的一款监护仪的电脑软件

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Me.yiyuanming.Enabled = True
        Me.yiyuandizhi.Enabled = True
        Me.yiyuanwangzhan.Enabled = True
        Me.yiyuanemail.Enabled = True
        Me.yiyuandianhua.Enabled = True
        Me.shuoming.Enabled = True
        Me.yiyuanming.Focus()
        Button3.Enabled = True
    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim i As MsgBoxResult = (MessageBox.Show("To update the hospital information , please confirm the above information is correct！" & vbCrLf & "Are you going to continue？", "Hospital information updating", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question))
        If i = MsgBoxResult.Cancel Then
            Button3.Enabled = False
            Me.yiyuanming.Enabled = False
            Me.yiyuandizhi.Enabled = False
            Me.yiyuanwangzhan.Enabled = False
            Me.yiyuanemail.Enabled = False
            Me.yiyuandianhua.Enabled = False
            Me.shuoming.Enabled = False

            Dim MyStr As String = Login.MySqlDataBaseConnectionString
            Dim MyCon As New Odbc.OdbcConnection(MyStr)
            MyCon.Open()
            Dim myhos As New Preg_FileDataSet.HospitalDataTable()
            Dim MySQL As String
            MySQL = "Select * From [Hospital]"
            Dim MyDataAda As New Odbc.OdbcDataAdapter(MySQL, MyCon)
            MyDataAda.Fill(myhos)
            yiyuanming.Text = myhos.Rows.Item(0).Item(0)
            yiyuandizhi.Text = myhos.Rows.Item(0).Item(1)
            yiyuanwangzhan.Text = myhos.Rows.Item(0).Item(2)
            yiyuanemail.Text = myhos.Rows.Item(0).Item(3)
            yiyuandianhua.Text = myhos.Rows.Item(0).Item(4)
            shuoming.Text = myhos.Rows.Item(0).Item(5)
            If MyCon.State = ConnectionState.Open Then
                MyCon.Close()
            End If


        ElseIf i = MsgBoxResult.Yes Then
            Try
                Dim MyStr1 As String = Login.MySqlDataBaseConnectionString
                Dim MyCon1 As New Odbc.OdbcConnection(MyStr1)
                MyCon1.Open()

                Dim MySQL As String
                Dim MyComm1 As Odbc.OdbcCommand = MyCon1.CreateCommand

                MySQL = "update Hospital set Hos_Website='" & Me.yiyuanwangzhan.Text
                MySQL += "',Hos_Name= '" & yiyuanming.Text & "',Hos_Addr='" & yiyuandizhi.Text & "',Hos_Email='"
                MySQL += "',Hos_Contact='" & yiyuandianhua.Text & "',Hos_Note='" & shuoming.Text & "'"
                MyComm1.CommandText = MySQL
                MyComm1.ExecuteNonQuery()
                MessageBox.Show("The hospital information updated successfully！")
                Me.yiyuanming.Enabled = False
                Me.yiyuandizhi.Enabled = False
                Me.yiyuanwangzhan.Enabled = False
                Me.yiyuanemail.Enabled = False
                Me.yiyuandianhua.Enabled = False
                Me.shuoming.Enabled = False
                Button3.Enabled = False

                If MyCon1.State = ConnectionState.Open Then
                    MyCon1.Close()
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

        End If
    End Sub

    Private Sub Button_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Cancel.Click
        Close()
    End Sub

    Private Sub Button_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_OK.Click
        '波特率
        MainForm.MyBaudRate = CInt(Me.BaudRate_Combo.Text)
        Select Case Me.Twin.Text
            Case "0"
                MainForm.Twin_Offset = 0
            Case "-20"
                MainForm.Twin_Offset = -20
            Case "-40"
                MainForm.Twin_Offset = -40
            Case "-60"
                MainForm.Twin_Offset = -60
            Case "+20"
                MainForm.Twin_Offset = 20
            Case "+40"
                MainForm.Twin_Offset = 40
            Case "+60"
                MainForm.Twin_Offset = 60
            Case Else
                MainForm.Twin_Offset = 0
                Me.Twin.Text = "0"
        End Select
        If Me.RadioButton1.Checked Then
            MainForm.Monitor_Time = 20
        ElseIf Me.RadioButton2.Checked Then
            MainForm.Monitor_Time = 30
        ElseIf Me.RadioButton3.Checked Then
            Try
                MainForm.Monitor_Time = CInt(Me.ComboBox5.Text)
            Catch ex As Exception
                MessageBox.Show("Unexpected input format！")
            End Try
        End If
        If Me.RadioButton6.Checked Then
            MainForm.PortID = "COM1"
        End If
        If Me.RadioButton5.Checked Then
            MainForm.PortID = "COM2"
        End If
        If Me.RadioButton4.Checked Then
            MainForm.PortID = Me.ComboBox3.Text
        End If
        If Me.RadioButton7.Checked Then
            MainForm.Print_rate.Text = "3 cm/min"
        ElseIf Me.RadioButton8.Checked Then
            MainForm.Print_rate.Text = "2 cm/min"
        ElseIf Me.RadioButton9.Checked Then
            MainForm.Print_rate.Text = "1 cm/min"
        End If

        MainForm.FHR1_ForeColor = Me.FHR1_Color.BackColor
        MainForm.FHR2_ForeColor = Me.FHR2_Color.BackColor
        MainForm.UC_ForeColor = Me.UC_Color.BackColor
        MainForm.Shadow_ForeColor = Me.Shadow_Color.BackColor
        Close()
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If Me.RadioButton4.Checked Then
            Me.ComboBox3.Enabled = True
        Else
            Me.ComboBox3.Enabled = False
        End If
    End Sub


    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Me.RadioButton3.Checked Then
            Me.ComboBox5.Enabled = True
        Else
            Me.ComboBox5.Enabled = False
        End If
    End Sub


    Private Sub FHR1_Color_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FHR1_Color.Click
        If Me.ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.FHR1_Color.BackColor = Me.ColorDialog1.Color
        End If
    End Sub

    Private Sub FHR2_Color_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FHR2_Color.Click
        If Me.ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.FHR2_Color.BackColor = Me.ColorDialog1.Color
        End If
    End Sub

    Private Sub UC_Color_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UC_Color.Click
        If Me.ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.UC_Color.BackColor = Me.ColorDialog1.Color
        End If
    End Sub

    Private Sub Shadow_Color_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Shadow_Color.Click
        If Me.ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.Shadow_Color.BackColor = Me.ColorDialog1.Color
        End If
    End Sub

    Private Sub AudioAlarm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.FHR1_Color.BackColor = Color.BlueViolet
        Me.FHR2_Color.BackColor = Color.Lime
        Me.UC_Color.BackColor = Color.Blue
        Me.Shadow_Color.BackColor = Color.FromArgb(255, 220, 200, 230)
    End Sub

    Private Sub RadioButton3_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If Me.RadioButton3.Checked Then
            Me.ComboBox5.Enabled = True
        Else
            Me.ComboBox5.Enabled = False
        End If
    End Sub

End Class