64 lines
2.3 KiB
VB.net
64 lines
2.3 KiB
VB.net
Public Class uscntr_Notruf
|
|
|
|
Dim ds As New DataSet
|
|
Dim WeiterleitungsZiel As String = ""
|
|
Dim aktuellesWeiterleitungsziel As String = ""
|
|
|
|
Private Sub uscntr_Notruf_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
refreshDisplay() : refreshds()
|
|
Class1.AutocompleteCombo(ComboBox1, "Name", "TbL_NotfallKontakte")
|
|
|
|
End Sub
|
|
|
|
Function refreshds()
|
|
cSQL.SQL2DS("select name, Telefonnummer,notruf from TbL_NotfallKontakte", ds)
|
|
End Function
|
|
|
|
Function refreshDisplay()
|
|
Dim tmp As New DataSet
|
|
cSQL.SQL2DS("select name, Telefonnummer from TbL_NotfallKontakte where Notruf = 1", tmp)
|
|
If tmp.Tables(0).Rows.Count > 0 Then
|
|
Label3.Text = tmp.Tables(0).Rows(0).Item(0).ToString
|
|
WeiterleitungsZiel = tmp.Tables(0).Rows(0).Item(1).ToString
|
|
End If
|
|
Dim pascom As New cPascom
|
|
aktuellesWeiterleitungsziel = pascom.getredirect("555")
|
|
Label1.Text = aktuellesWeiterleitungsziel
|
|
|
|
Dim tmp2 As New DataSet
|
|
cSQL.SQL2DS("select Aktiv from TbL_Dienste where Name = 'IT_Notruf_Auto'", tmp2)
|
|
CheckBox1.Checked = tmp2.Tables(0).Rows(0).Item(0)
|
|
End Function
|
|
|
|
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
|
|
cSQL.UpdateSQL("TbL_NotfallKontakte", "Notruf = 0", "Notruf = 1")
|
|
cSQL.UpdateSQL("TbL_NotfallKontakte", "Notruf = 1", "name = " & "'" & ComboBox1.SelectedValue & "'")
|
|
refreshDisplay()
|
|
refreshds()
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
|
|
Dim pascom As New cPascom
|
|
pascom.Weiterleitung("555", WeiterleitungsZiel, aktuellesWeiterleitungsziel)
|
|
refreshDisplay()
|
|
|
|
End Sub
|
|
|
|
Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
|
|
Dim pascom As New cPascom
|
|
pascom.Weiterleitung("555", "199", aktuellesWeiterleitungsziel)
|
|
refreshDisplay()
|
|
End Sub
|
|
|
|
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
|
|
refreshDisplay()
|
|
|
|
End Sub
|
|
|
|
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
|
cSQL.UpdateSQL("TbL_Dienste", "Aktiv = '" & CheckBox1.Checked & "'", "Name = 'IT_Notruf_Auto'")
|
|
End Sub
|
|
End Class
|