NEU
This commit is contained in:
402
UID/Programme/frmProgDetails.vb
Normal file
402
UID/Programme/frmProgDetails.vb
Normal file
@@ -0,0 +1,402 @@
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmProgDetails
|
||||
Private PROG As New cProgramme
|
||||
Public codename As String = ""
|
||||
|
||||
Dim sicherheitsfrageUeberspringen = False
|
||||
|
||||
|
||||
Private Sub frmProgDetails_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
|
||||
'Dim usrCntlProgramme As New usrCntlProgramme
|
||||
'usrCntlProgramme.init()
|
||||
End Sub
|
||||
|
||||
Private Sub frmProgDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
init()
|
||||
End Sub
|
||||
Public Sub showData()
|
||||
If codename = "ADMIN" Then picIcon.Image = My.Resources.admin
|
||||
If codename = "UID" Then picIcon.Image = My.Resources.uid_ico
|
||||
If codename = "DISPO" Then picIcon.Image = My.Resources.dispo_ico
|
||||
If codename = "PARKZEIT" Then picIcon.Image = My.Resources.parkzeit
|
||||
If codename = "MONITORING" Then picIcon.Image = My.Resources.admin
|
||||
If codename = "ROUTINE_MANAGER" Then picIcon.Image = My.Resources.admin_monitoring
|
||||
If codename = "MAIL_SENDER" Then picIcon.Image = My.Resources.admin_monitoring
|
||||
If codename = "DOKU" Then picIcon.Image = My.Resources.doku_sym
|
||||
|
||||
|
||||
|
||||
lblTitel.Text = codename
|
||||
|
||||
Dim daten As cProgramm = Nothing
|
||||
' daten = New cProgramm
|
||||
daten = PROG.getProgrammByCodeName(codename)
|
||||
txtSourcePfad.Text = daten.prog_source_path
|
||||
txtDevPfad.Text = daten.prog_dev_path
|
||||
txtProdPfad.Text = daten.prog_prod_path
|
||||
txtInstallSourcePfad.Text = daten.prog_installer_source_path
|
||||
txtInstallDevPfad.Text = daten.prog_installer_dev_path
|
||||
txtInstallProdPfad.Text = daten.prog_installer_prod_path
|
||||
txtVersion.Text = daten.prog_aktuelleVersion
|
||||
txtInfo.Text = daten.prog_info
|
||||
|
||||
txtProdPfadAtilla.Text = daten.prog_prod_path_atilla
|
||||
txtInstallProdPfadAtilla.Text = daten.prog_installer_prod_path_atilla
|
||||
|
||||
txtProdPfadImex.Text = daten.prog_prod_path_imex
|
||||
txtInstallProdPfadimex.Text = daten.prog_installer_prod_path_imex
|
||||
|
||||
txtProdPfadSBG.Text = daten.prog_prod_path_SBG
|
||||
txtInstallProdPfadSBG.Text = daten.prog_installer_prod_path_SBG
|
||||
|
||||
txtProdPfadWAI.Text = daten.prog_prod_path_WAI
|
||||
txtInstallProdPfadWAI.Text = daten.prog_installer_prod_path_WAI
|
||||
|
||||
txtProdPfadNKD.Text = daten.prog_prod_path_NKD
|
||||
txtInstallProdPfadNKD.Text = daten.prog_installer_prod_path_NKD
|
||||
|
||||
txtProdPfadNEU.Text = daten.prog_prod_path_NEU
|
||||
txtInstallProdPfadNEU.Text = daten.prog_installer_prod_path_NEU
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnVersionAkt_Click(sender As Object, e As EventArgs) Handles btnVersionAkt.Click
|
||||
PROG.setProgrammVersion(codename, txtVersion.Text)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub btnSourceAkt_Click(sender As Object, e As EventArgs) Handles btnSourceAkt.Click
|
||||
PROG.setParam("prog_source_path", txtSourcePfad.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
Private Sub init()
|
||||
If codename = "NEW" Then
|
||||
btnInsert.Visible = True
|
||||
grpName.Visible = True
|
||||
btnDevAkt.Visible = False
|
||||
btnDevCopy.Visible = False
|
||||
btnInstallDevAkt.Visible = False
|
||||
btnInstallDevCopy.Visible = False
|
||||
btnInstallProdAkt.Visible = False
|
||||
btnInstallProdCopy.Visible = False
|
||||
btnInstallSourceAkt.Visible = False
|
||||
btnProdAkt.Visible = False
|
||||
btnProdCopy.Visible = False
|
||||
btnSourceAkt.Visible = False
|
||||
btnVersionAkt.Visible = False
|
||||
btnAktInfo.Visible = False
|
||||
lblTitelDetails.Visible = False
|
||||
lblTitel.Visible = False
|
||||
picIcon.Visible = False
|
||||
Else
|
||||
showData()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnDevAkt_Click(sender As Object, e As EventArgs) Handles btnDevAkt.Click
|
||||
PROG.setParam("prog_dev_path", txtDevPfad.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub btnProdAkt_Click(sender As Object, e As EventArgs) Handles btnProdAkt.Click
|
||||
PROG.setParam("prog_prod_path", txtProdPfad.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub btnInstallSourceAkt_Click(sender As Object, e As EventArgs) Handles btnInstallSourceAkt.Click
|
||||
PROG.setParam("prog_installer_source_path", txtInstallSourcePfad.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub btnInstallDevAkt_Click(sender As Object, e As EventArgs) Handles btnInstallDevAkt.Click
|
||||
PROG.setParam("prog_installer_dev_path", txtInstallDevPfad.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub btnInstallProdAkt_Click(sender As Object, e As EventArgs) Handles btnInstallProdAkt.Click
|
||||
PROG.setParam("prog_installer_prod_path", txtInstallProdPfad.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
|
||||
Dim daten As New cProgramm
|
||||
daten.prog_codename = txtProgramCodeName.Text
|
||||
daten.prog_name = txtProgramName.Text
|
||||
daten.prog_aktuelleVersion = txtVersion.Text
|
||||
daten.prog_info = txtInfo.Text
|
||||
daten.prog_source_path = txtSourcePfad.Text
|
||||
daten.prog_dev_path = txtDevPfad.Text
|
||||
daten.prog_prod_path = txtProdPfad.Text
|
||||
daten.prog_installer_source_path = txtInstallSourcePfad.Text
|
||||
daten.prog_installer_dev_path = txtInstallDevPfad.Text
|
||||
daten.prog_installer_prod_path = txtInstallProdPfad.Text
|
||||
|
||||
|
||||
daten.prog_installer_prod_path_atilla = txtProdPfadAtilla.Text
|
||||
daten.prog_prod_path_atilla = txtInstallProdPfadAtilla.Text
|
||||
daten.prog_prod_path_imex = txtProdPfadImex.Text
|
||||
daten.prog_installer_prod_path_imex = txtInstallProdPfadimex.Text
|
||||
daten.prog_prod_path_SBG = txtProdPfadSBG.Text
|
||||
daten.prog_installer_prod_path_SBG = txtInstallProdPfadSBG.Text
|
||||
daten.prog_prod_path_WAI = txtProdPfadWAI.Text
|
||||
daten.prog_installer_prod_path_WAI = txtInstallProdPfadWAI.Text
|
||||
daten.prog_prod_path_NKD = txtProdPfadNKD.Text
|
||||
daten.prog_installer_prod_path_NKD = txtInstallProdPfadNKD.Text
|
||||
daten.prog_prod_path_NEU = txtProdPfadNEU.Text
|
||||
daten.prog_installer_prod_path_NEU = txtInstallProdPfadNEU.Text
|
||||
|
||||
|
||||
If PROG.insertProgramm(daten) Then Me.Close()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnAktInfo_Click(sender As Object, e As EventArgs) Handles btnAktInfo.Click
|
||||
PROG.setParam("prog_info", txtInfo.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Sub setBG(sender As Button, erg As Boolean)
|
||||
If erg Then
|
||||
sender.BackColor = Color.LightGreen
|
||||
Else
|
||||
sender.BackColor = Color.Red
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Dim PROG_FUNC As New cProgramFunctions
|
||||
|
||||
Sub copyProgrammFiles(sender As Button, von As String, nach As String, cbx As Boolean, Optional standort As String = "")
|
||||
sender.BackColor = Color.LightGray
|
||||
Application.DoEvents()
|
||||
Me.Refresh()
|
||||
If von = "" Then sender.BackColor = Color.White : Exit Sub
|
||||
If nach = "" Then sender.BackColor = Color.White : Exit Sub
|
||||
If checkSicherheitsfrage(von, nach) Then
|
||||
setBG(sender, PROG_FUNC.copyProgram(von, nach, cbx))
|
||||
End If
|
||||
Application.DoEvents()
|
||||
Me.Refresh()
|
||||
|
||||
If standort <> "" Then
|
||||
SaveLogFile(nach, standort)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Function checkSicherheitsfrage(von, nach) As Boolean
|
||||
If sicherheitsfrageUeberspringen Then Return True
|
||||
If vbYes = MsgBox("Möchten Sie folgende Aktion ausführen?:" & vbNewLine & vbNewLine & " Kopiere alle Files von: " & von & vbNewLine & "Nach: " & nach, vbYesNo, "Aktion ausführen?") Then
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
Private Sub btnDevCopy_Click(sender As Object, e As EventArgs) Handles btnDevCopy.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtDevPfad.Text, cbxZip.Checked)
|
||||
End Sub
|
||||
|
||||
Private Sub btnProdCopy_Click(sender As Object, e As EventArgs) Handles btnProdCopy.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfad.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnInstallDevCopy_Click(sender As Object, e As EventArgs) Handles btnInstallDevCopy.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallDevPfad.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnInstallProdCopy_Click(sender As Object, e As EventArgs) Handles btnInstallProdCopy.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfad.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
PROG.setParam("prog_prod_path_atilla", txtProdPfadAtilla.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
PROG.setParam("prog_installer_prod_path_atilla", txtInstallProdPfadAtilla.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadAtilla.Text, cbxZip.Checked, If(cbxStandorttxtErstellen.Checked, "ATILLA", ""))
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadAtilla.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub genTxtStandort(pfadAtilla)
|
||||
Try
|
||||
If Not File.Exists(pfadAtilla & "Standort.txt") Then
|
||||
File.Create(pfadAtilla & "Standort.txt")
|
||||
End If
|
||||
|
||||
' Dim fs As New FileStream(pfadAtilla & "Standort.txt", FileMode.CreateNew)
|
||||
'' Dim sw As New StreamWriter(fs)
|
||||
' sw.WriteLine("ATILLA")
|
||||
' sw.Close()
|
||||
|
||||
|
||||
My.Computer.FileSystem.WriteAllText(pfadAtilla & "Standort.txt", "ATILLA", False)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub SaveLogFile(Pfad, TEXT)
|
||||
If Pfad.trim = "" Then Exit Sub
|
||||
Dim Dateiname As String = "\Standort.txt"
|
||||
|
||||
Dim streami As FileStream
|
||||
If Directory.Exists(Pfad) = True Then
|
||||
streami = File.Create(Pfad & Dateiname)
|
||||
Else
|
||||
Directory.CreateDirectory(Pfad)
|
||||
streami = File.Create(Pfad & Dateiname)
|
||||
End If
|
||||
|
||||
Dim cfile As StreamWriter = New StreamWriter(streami, System.Text.Encoding.Default)
|
||||
|
||||
cfile.WriteLine(TEXT)
|
||||
cfile.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
PROG.setParam("prog_prod_path_imex", txtProdPfadImex.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadImex.Text, cbxZip.Checked, If(cbxStandorttxtErstellenImex.Checked, "IMEX", ""))
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
PROG.setParam("prog_installer_prod_path_imex", txtInstallProdPfadimex.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadimex.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
|
||||
PROG.setParam("prog_prod_path_sbg", txtProdPfadSBG.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadSBG.Text, cbxZip.Checked, If(cbxStandorttxtErstellenSBG.Checked, "SBG", ""))
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
||||
PROG.setParam("prog_installer_prod_path_sbg", txtInstallProdPfadSBG.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadSBG.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
|
||||
If vbYes = MsgBox("Möchten Sie die Programmdaten an alle NL verteilen?", vbYesNo, "Aktion ausführen?") Then
|
||||
sicherheitsfrageUeberspringen = True
|
||||
btnDevCopy.PerformClick()
|
||||
btnProdCopy.PerformClick()
|
||||
Button2.PerformClick()
|
||||
Button6.PerformClick()
|
||||
Button12.PerformClick()
|
||||
Button16.PerformClick()
|
||||
Button18.PerformClick()
|
||||
Button20.PerformClick()
|
||||
End If
|
||||
sicherheitsfrageUeberspringen = False
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
|
||||
If vbYes = MsgBox("Möchten Sie die Programmdaten an alle NL verteilen?", vbYesNo, "Aktion ausführen?") Then
|
||||
sicherheitsfrageUeberspringen = True
|
||||
btnInstallDevCopy.PerformClick()
|
||||
btnInstallProdCopy.PerformClick()
|
||||
Button4.PerformClick()
|
||||
Button8.PerformClick()
|
||||
Button10.PerformClick()
|
||||
Button22.PerformClick()
|
||||
Button24.PerformClick()
|
||||
Button26.PerformClick()
|
||||
End If
|
||||
sicherheitsfrageUeberspringen = False
|
||||
End Sub
|
||||
|
||||
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
|
||||
PROG.setParam("prog_prod_path_wai", txtProdPfadWAI.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
|
||||
PROG.setParam("prog_prod_path_nkd", txtProdPfadNKD.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
|
||||
PROG.setParam("prog_prod_path_neu", txtProdPfadNEU.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
|
||||
PROG.setParam("prog_installer_prod_path_wai", txtInstallProdPfadWAI.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
|
||||
PROG.setParam("prog_installer_prod_path_nkd", txtInstallProdPfadNKD.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
|
||||
PROG.setParam("prog_installer_prod_path_neu", txtInstallProdPfadNEU.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadWAI.Text, cbxZip.Checked, If(cbxStandorttxtErstellenWAI.Checked, "WAI", ""))
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadNKD.Text, cbxZip.Checked, If(cbxStandorttxtErstellenNKD.Checked, "NKD", ""))
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadNEU.Text, cbxZip.Checked, If(cbxStandorttxtErstellenNEU.Checked, "NEU", ""))
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadWAI.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNKD.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNEU.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user