edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Notfall Telefon Umleitungen, Service für automatische Umleitung, ...

Browse Source
This commit is contained in:
ms
2023-04-24 12:55:01 +02:00
parent 8f1362f9fc
commit e4f7efacc0
20 changed files with 800 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Dokumentation/Main.Designer.vb generated
View File

@@ -28,7 +28,6 @@ Partial Class Main
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Label20 = New System.Windows.Forms.Label()
Me.chkPano = New System.Windows.Forms.CheckBox()
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -117,6 +116,7 @@ Partial Class Main
Me.panTSSitzungen = New System.Windows.Forms.Panel()
Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.lblNotruf = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -148,8 +148,8 @@ Partial Class Main
'Panel4
'
Me.Panel4.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel4.Controls.Add(Me.lblNotruf)
Me.Panel4.Controls.Add(Me.Label20)
Me.Panel4.Controls.Add(Me.chkPano)
Me.Panel4.Controls.Add(Me.picAVISOMessenger)
Me.Panel4.Controls.Add(Me.Button1)
Me.Panel4.Controls.Add(Me.btnTSSitzungen)
@@ -187,24 +187,13 @@ Partial Class Main
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label20.Visible = False
'
'chkPano
'
Me.chkPano.AutoSize = True
Me.chkPano.Location = New System.Drawing.Point(327, 71)
Me.chkPano.Name = "chkPano"
Me.chkPano.Size = New System.Drawing.Size(51, 17)
Me.chkPano.TabIndex = 44
Me.chkPano.Text = "Pano"
Me.chkPano.UseVisualStyleBackColor = True
Me.chkPano.Visible = False
'
'picAVISOMessenger
'
Me.picAVISOMessenger.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.picAVISOMessenger.BackgroundImage = Global.Dokumentation.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessenger.Location = New System.Drawing.Point(466, 39)
Me.picAVISOMessenger.Location = New System.Drawing.Point(475, 48)
Me.picAVISOMessenger.Name = "picAVISOMessenger"
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
Me.picAVISOMessenger.TabIndex = 41
@@ -257,7 +246,7 @@ Partial Class Main
Me.LblDEBUGMODE.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblDEBUGMODE.Location = New System.Drawing.Point(7, 33)
Me.LblDEBUGMODE.Name = "LblDEBUGMODE"
Me.LblDEBUGMODE.Size = New System.Drawing.Size(115, 16)
Me.LblDEBUGMODE.Size = New System.Drawing.Size(113, 16)
Me.LblDEBUGMODE.TabIndex = 13
Me.LblDEBUGMODE.Text = "LblDebugmode"
Me.LblDEBUGMODE.Visible = False
@@ -265,7 +254,7 @@ Partial Class Main
'chkTSSitzungen
'
Me.chkTSSitzungen.AutoSize = True
Me.chkTSSitzungen.Location = New System.Drawing.Point(327, 5)
Me.chkTSSitzungen.Location = New System.Drawing.Point(327, 34)
Me.chkTSSitzungen.Name = "chkTSSitzungen"
Me.chkTSSitzungen.Size = New System.Drawing.Size(157, 17)
Me.chkTSSitzungen.TabIndex = 19
@@ -423,7 +412,7 @@ Partial Class Main
'ChkTools
'
Me.ChkTools.AutoSize = True
Me.ChkTools.Location = New System.Drawing.Point(327, 51)
Me.ChkTools.Location = New System.Drawing.Point(327, 80)
Me.ChkTools.Name = "ChkTools"
Me.ChkTools.Size = New System.Drawing.Size(107, 17)
Me.ChkTools.TabIndex = 10
@@ -443,7 +432,7 @@ Partial Class Main
'ChKZugangsdaten
'
Me.ChKZugangsdaten.AutoSize = True
Me.ChKZugangsdaten.Location = New System.Drawing.Point(327, 28)
Me.ChKZugangsdaten.Location = New System.Drawing.Point(327, 57)
Me.ChKZugangsdaten.Name = "ChKZugangsdaten"
Me.ChKZugangsdaten.Size = New System.Drawing.Size(141, 17)
Me.ChKZugangsdaten.TabIndex = 4
@@ -997,6 +986,15 @@ Partial Class Main
'Timer1
'
'
'lblNotruf
'
Me.lblNotruf.AutoSize = True
Me.lblNotruf.Location = New System.Drawing.Point(327, 15)
Me.lblNotruf.Name = "lblNotruf"
Me.lblNotruf.Size = New System.Drawing.Size(57, 13)
Me.lblNotruf.TabIndex = 44
Me.lblNotruf.Text = "Notruf an: "
'
'Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1124,10 +1122,10 @@ Partial Class Main
Friend WithEvents Button1 As Button
Public WithEvents PictureBox1 As PictureBox
Friend WithEvents btnTSSitzungen As Button
Friend WithEvents chkPano As CheckBox
Friend WithEvents RDPToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SpoolerNeuStartenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents TelefonManuellZuweisenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RDPFensterToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblNotruf As Label
End Class

7
Dokumentation/Main.vb
View File

@@ -1236,6 +1236,8 @@ exit"
Public Function CheckUpdate(starter As String)
dbload()
Dim pascom As New cPascom
lblNotruf.Text = "Notruf geht an: " & pascom.getredirect("555")
Dim RemoteVersion As String = ""
LblVersion.Text = "Version: " & Version
Try
@@ -1660,7 +1662,7 @@ exit"
ChkFreieHosts.Checked = Class1.ini.prop_FreiHostsAnzeigen
ChkDHCPClients.Checked = Class1.ini.prop_DHCPClientsAnzeigen
ChkTools.Checked = Class1.ini.prop_ToolsPanelAnzeizgen
chkPano.Checked = Class1.ini.prop_Pano
' chkPano.Checked = Class1.ini.prop_Pano
Else
' File.Create(Application.StartupPath & "\config.ini")
End If
@@ -1735,7 +1737,6 @@ exit"
End Sub
Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked
@@ -1743,7 +1744,7 @@ exit"
Class1.ini.prop_DHCPClientsAnzeigen = ChkDHCPClients.Checked
Class1.ini.prop_ToolsPanelAnzeizgen = ChkTools.Checked
Class1.ini.prop_TSSitzungenAnzeigen = chkTSSitzungen.Checked
Class1.ini.prop_Pano = chkPano.Checked
'Class1.ini.prop_Pano = chkPano.Checked
Class1.ini.save()
End Sub

2
Dokumentation/My Project/Resources.Designer.vb generated
View File

@@ -289,7 +289,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.84 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.85 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

2
Dokumentation/My Project/Resources.resx
View File

@@ -155,7 +155,7 @@
<value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>0.0.1.84</value>
<value>0.0.1.85</value>
</data>
<data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

13
Dokumentation/uscntr_Notruf.Designer.vb generated
View File

@@ -35,6 +35,7 @@ Partial Class uscntr_Notruf
Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
CType(Me.DokuDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TbLNotfallKontakteBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TbLNotfallKontakteBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -147,12 +148,23 @@ Partial Class uscntr_Notruf
Me.Label4.TabIndex = 14
Me.Label4.Text = "Akutelles Ziel:"
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(22, 124)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(73, 17)
Me.CheckBox1.TabIndex = 16
Me.CheckBox1.Text = "Automatik"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'uscntr_Notruf
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.FlatButton3)
@@ -184,4 +196,5 @@ Partial Class uscntr_Notruf
Friend WithEvents FlatButton3 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents Label1 As Label
Friend WithEvents Label4 As Label
Friend WithEvents CheckBox1 As CheckBox
End Class

8
Dokumentation/uscntr_Notruf.vb
View File

@@ -24,6 +24,10 @@
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
@@ -52,4 +56,8 @@
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