StartOpt, Program

This commit is contained in:
2026-02-10 10:17:54 +01:00
parent 9cb9133c80
commit 747ac29465
8 changed files with 1172 additions and 932 deletions

View File

@@ -140,6 +140,10 @@ Partial Class frmProgDetails
Me.Label29 = New System.Windows.Forms.Label()
Me.Button35 = New System.Windows.Forms.Button()
Me.cbxIncrementalCopy = New System.Windows.Forms.CheckBox()
Me.Label30 = New System.Windows.Forms.Label()
Me.txtProdPfadBackup = New System.Windows.Forms.TextBox()
Me.Button36 = New System.Windows.Forms.Button()
Me.Button37 = New System.Windows.Forms.Button()
CType(Me.picIcon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpName.SuspendLayout()
Me.SuspendLayout()
@@ -322,7 +326,7 @@ Partial Class frmProgDetails
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(20, 435)
Me.Label7.Location = New System.Drawing.Point(20, 452)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(79, 13)
Me.Label7.TabIndex = 67
@@ -332,7 +336,7 @@ Partial Class frmProgDetails
'
Me.btnInstallSourceAkt.Enabled = False
Me.btnInstallSourceAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallSourceAkt.Location = New System.Drawing.Point(427, 449)
Me.btnInstallSourceAkt.Location = New System.Drawing.Point(427, 466)
Me.btnInstallSourceAkt.Name = "btnInstallSourceAkt"
Me.btnInstallSourceAkt.Size = New System.Drawing.Size(76, 24)
Me.btnInstallSourceAkt.TabIndex = 66
@@ -342,7 +346,7 @@ Partial Class frmProgDetails
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(20, 454)
Me.Label8.Location = New System.Drawing.Point(20, 471)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(81, 26)
Me.Label8.TabIndex = 65
@@ -350,7 +354,7 @@ Partial Class frmProgDetails
'
'txtInstallSourcePfad
'
Me.txtInstallSourcePfad.Location = New System.Drawing.Point(132, 451)
Me.txtInstallSourcePfad.Location = New System.Drawing.Point(132, 468)
Me.txtInstallSourcePfad.Name = "txtInstallSourcePfad"
Me.txtInstallSourcePfad.Size = New System.Drawing.Size(289, 20)
Me.txtInstallSourcePfad.TabIndex = 64
@@ -358,7 +362,7 @@ Partial Class frmProgDetails
'btnInstallProdAkt
'
Me.btnInstallProdAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallProdAkt.Location = New System.Drawing.Point(427, 512)
Me.btnInstallProdAkt.Location = New System.Drawing.Point(427, 529)
Me.btnInstallProdAkt.Name = "btnInstallProdAkt"
Me.btnInstallProdAkt.Size = New System.Drawing.Size(76, 24)
Me.btnInstallProdAkt.TabIndex = 62
@@ -368,7 +372,7 @@ Partial Class frmProgDetails
'btnInstallDevAkt
'
Me.btnInstallDevAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallDevAkt.Location = New System.Drawing.Point(427, 486)
Me.btnInstallDevAkt.Location = New System.Drawing.Point(427, 503)
Me.btnInstallDevAkt.Name = "btnInstallDevAkt"
Me.btnInstallDevAkt.Size = New System.Drawing.Size(76, 24)
Me.btnInstallDevAkt.TabIndex = 61
@@ -378,7 +382,7 @@ Partial Class frmProgDetails
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(20, 517)
Me.Label9.Location = New System.Drawing.Point(20, 534)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(80, 13)
Me.Label9.TabIndex = 60
@@ -386,7 +390,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfad
'
Me.txtInstallProdPfad.Location = New System.Drawing.Point(132, 514)
Me.txtInstallProdPfad.Location = New System.Drawing.Point(132, 531)
Me.txtInstallProdPfad.Name = "txtInstallProdPfad"
Me.txtInstallProdPfad.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfad.TabIndex = 59
@@ -394,7 +398,7 @@ Partial Class frmProgDetails
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(20, 491)
Me.Label11.Location = New System.Drawing.Point(20, 508)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(84, 13)
Me.Label11.TabIndex = 58
@@ -402,7 +406,7 @@ Partial Class frmProgDetails
'
'txtInstallDevPfad
'
Me.txtInstallDevPfad.Location = New System.Drawing.Point(132, 488)
Me.txtInstallDevPfad.Location = New System.Drawing.Point(132, 505)
Me.txtInstallDevPfad.Name = "txtInstallDevPfad"
Me.txtInstallDevPfad.Size = New System.Drawing.Size(289, 20)
Me.txtInstallDevPfad.TabIndex = 57
@@ -410,7 +414,7 @@ Partial Class frmProgDetails
'btnInstallProdCopy
'
Me.btnInstallProdCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallProdCopy.Location = New System.Drawing.Point(509, 512)
Me.btnInstallProdCopy.Location = New System.Drawing.Point(509, 529)
Me.btnInstallProdCopy.Name = "btnInstallProdCopy"
Me.btnInstallProdCopy.Size = New System.Drawing.Size(100, 24)
Me.btnInstallProdCopy.TabIndex = 56
@@ -420,7 +424,7 @@ Partial Class frmProgDetails
'btnInstallDevCopy
'
Me.btnInstallDevCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallDevCopy.Location = New System.Drawing.Point(509, 485)
Me.btnInstallDevCopy.Location = New System.Drawing.Point(509, 502)
Me.btnInstallDevCopy.Name = "btnInstallDevCopy"
Me.btnInstallDevCopy.Size = New System.Drawing.Size(100, 24)
Me.btnInstallDevCopy.TabIndex = 55
@@ -549,7 +553,7 @@ Partial Class frmProgDetails
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(427, 538)
Me.Button3.Location = New System.Drawing.Point(427, 555)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(76, 24)
Me.Button3.TabIndex = 82
@@ -559,7 +563,7 @@ Partial Class frmProgDetails
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(20, 543)
Me.Label15.Location = New System.Drawing.Point(20, 560)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(80, 13)
Me.Label15.TabIndex = 81
@@ -567,7 +571,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadAtilla
'
Me.txtInstallProdPfadAtilla.Location = New System.Drawing.Point(132, 540)
Me.txtInstallProdPfadAtilla.Location = New System.Drawing.Point(132, 557)
Me.txtInstallProdPfadAtilla.Name = "txtInstallProdPfadAtilla"
Me.txtInstallProdPfadAtilla.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadAtilla.TabIndex = 80
@@ -575,7 +579,7 @@ Partial Class frmProgDetails
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Location = New System.Drawing.Point(509, 538)
Me.Button4.Location = New System.Drawing.Point(509, 555)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(100, 24)
Me.Button4.TabIndex = 79
@@ -645,7 +649,7 @@ Partial Class frmProgDetails
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Location = New System.Drawing.Point(427, 564)
Me.Button7.Location = New System.Drawing.Point(427, 581)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(76, 24)
Me.Button7.TabIndex = 92
@@ -655,7 +659,7 @@ Partial Class frmProgDetails
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(20, 569)
Me.Label17.Location = New System.Drawing.Point(20, 586)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(84, 13)
Me.Label17.TabIndex = 91
@@ -663,7 +667,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadimex
'
Me.txtInstallProdPfadimex.Location = New System.Drawing.Point(132, 566)
Me.txtInstallProdPfadimex.Location = New System.Drawing.Point(132, 583)
Me.txtInstallProdPfadimex.Name = "txtInstallProdPfadimex"
Me.txtInstallProdPfadimex.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadimex.TabIndex = 90
@@ -671,7 +675,7 @@ Partial Class frmProgDetails
'Button8
'
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Location = New System.Drawing.Point(509, 564)
Me.Button8.Location = New System.Drawing.Point(509, 581)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(100, 24)
Me.Button8.TabIndex = 89
@@ -681,7 +685,7 @@ Partial Class frmProgDetails
'Button9
'
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Location = New System.Drawing.Point(427, 590)
Me.Button9.Location = New System.Drawing.Point(427, 607)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(76, 24)
Me.Button9.TabIndex = 96
@@ -691,7 +695,7 @@ Partial Class frmProgDetails
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(20, 595)
Me.Label18.Location = New System.Drawing.Point(20, 612)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(80, 13)
Me.Label18.TabIndex = 95
@@ -699,7 +703,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadSBG
'
Me.txtInstallProdPfadSBG.Location = New System.Drawing.Point(132, 592)
Me.txtInstallProdPfadSBG.Location = New System.Drawing.Point(132, 609)
Me.txtInstallProdPfadSBG.Name = "txtInstallProdPfadSBG"
Me.txtInstallProdPfadSBG.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadSBG.TabIndex = 94
@@ -707,7 +711,7 @@ Partial Class frmProgDetails
'Button10
'
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Location = New System.Drawing.Point(509, 590)
Me.Button10.Location = New System.Drawing.Point(509, 607)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(100, 24)
Me.Button10.TabIndex = 93
@@ -779,7 +783,7 @@ Partial Class frmProgDetails
Me.Button14.BackColor = System.Drawing.Color.SteelBlue
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.White
Me.Button14.Location = New System.Drawing.Point(509, 449)
Me.Button14.Location = New System.Drawing.Point(509, 466)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(100, 24)
Me.Button14.TabIndex = 103
@@ -933,7 +937,7 @@ Partial Class frmProgDetails
'Button21
'
Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button21.Location = New System.Drawing.Point(427, 616)
Me.Button21.Location = New System.Drawing.Point(427, 633)
Me.Button21.Name = "Button21"
Me.Button21.Size = New System.Drawing.Size(76, 24)
Me.Button21.TabIndex = 122
@@ -943,7 +947,7 @@ Partial Class frmProgDetails
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Location = New System.Drawing.Point(20, 621)
Me.Label23.Location = New System.Drawing.Point(20, 638)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(79, 13)
Me.Label23.TabIndex = 121
@@ -951,7 +955,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadWAI
'
Me.txtInstallProdPfadWAI.Location = New System.Drawing.Point(132, 618)
Me.txtInstallProdPfadWAI.Location = New System.Drawing.Point(132, 635)
Me.txtInstallProdPfadWAI.Name = "txtInstallProdPfadWAI"
Me.txtInstallProdPfadWAI.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadWAI.TabIndex = 120
@@ -959,7 +963,7 @@ Partial Class frmProgDetails
'Button22
'
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button22.Location = New System.Drawing.Point(509, 616)
Me.Button22.Location = New System.Drawing.Point(509, 633)
Me.Button22.Name = "Button22"
Me.Button22.Size = New System.Drawing.Size(100, 24)
Me.Button22.TabIndex = 119
@@ -969,7 +973,7 @@ Partial Class frmProgDetails
'Button23
'
Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button23.Location = New System.Drawing.Point(427, 695)
Me.Button23.Location = New System.Drawing.Point(427, 712)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(76, 24)
Me.Button23.TabIndex = 126
@@ -979,7 +983,7 @@ Partial Class frmProgDetails
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Location = New System.Drawing.Point(20, 647)
Me.Label24.Location = New System.Drawing.Point(20, 664)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(81, 13)
Me.Label24.TabIndex = 125
@@ -987,7 +991,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadUNI
'
Me.txtInstallProdPfadUNI.Location = New System.Drawing.Point(132, 697)
Me.txtInstallProdPfadUNI.Location = New System.Drawing.Point(132, 714)
Me.txtInstallProdPfadUNI.Name = "txtInstallProdPfadUNI"
Me.txtInstallProdPfadUNI.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadUNI.TabIndex = 124
@@ -995,7 +999,7 @@ Partial Class frmProgDetails
'Button24
'
Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button24.Location = New System.Drawing.Point(509, 695)
Me.Button24.Location = New System.Drawing.Point(509, 712)
Me.Button24.Name = "Button24"
Me.Button24.Size = New System.Drawing.Size(100, 24)
Me.Button24.TabIndex = 123
@@ -1005,7 +1009,7 @@ Partial Class frmProgDetails
'Button25
'
Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button25.Location = New System.Drawing.Point(427, 721)
Me.Button25.Location = New System.Drawing.Point(427, 738)
Me.Button25.Name = "Button25"
Me.Button25.Size = New System.Drawing.Size(76, 24)
Me.Button25.TabIndex = 130
@@ -1015,7 +1019,7 @@ Partial Class frmProgDetails
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.Location = New System.Drawing.Point(20, 673)
Me.Label25.Location = New System.Drawing.Point(20, 690)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(81, 13)
Me.Label25.TabIndex = 129
@@ -1023,7 +1027,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadAMB
'
Me.txtInstallProdPfadAMB.Location = New System.Drawing.Point(132, 723)
Me.txtInstallProdPfadAMB.Location = New System.Drawing.Point(132, 740)
Me.txtInstallProdPfadAMB.Name = "txtInstallProdPfadAMB"
Me.txtInstallProdPfadAMB.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadAMB.TabIndex = 128
@@ -1031,7 +1035,7 @@ Partial Class frmProgDetails
'Button26
'
Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button26.Location = New System.Drawing.Point(509, 721)
Me.Button26.Location = New System.Drawing.Point(509, 738)
Me.Button26.Name = "Button26"
Me.Button26.Size = New System.Drawing.Size(100, 24)
Me.Button26.TabIndex = 127
@@ -1145,7 +1149,7 @@ Partial Class frmProgDetails
'Button31
'
Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button31.Location = New System.Drawing.Point(427, 668)
Me.Button31.Location = New System.Drawing.Point(427, 685)
Me.Button31.Name = "Button31"
Me.Button31.Size = New System.Drawing.Size(76, 24)
Me.Button31.TabIndex = 147
@@ -1154,7 +1158,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadNEU
'
Me.txtInstallProdPfadNEU.Location = New System.Drawing.Point(132, 670)
Me.txtInstallProdPfadNEU.Location = New System.Drawing.Point(132, 687)
Me.txtInstallProdPfadNEU.Name = "txtInstallProdPfadNEU"
Me.txtInstallProdPfadNEU.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadNEU.TabIndex = 146
@@ -1162,7 +1166,7 @@ Partial Class frmProgDetails
'Button32
'
Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button32.Location = New System.Drawing.Point(509, 668)
Me.Button32.Location = New System.Drawing.Point(509, 685)
Me.Button32.Name = "Button32"
Me.Button32.Size = New System.Drawing.Size(100, 24)
Me.Button32.TabIndex = 145
@@ -1172,7 +1176,7 @@ Partial Class frmProgDetails
'Button33
'
Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button33.Location = New System.Drawing.Point(427, 642)
Me.Button33.Location = New System.Drawing.Point(427, 659)
Me.Button33.Name = "Button33"
Me.Button33.Size = New System.Drawing.Size(76, 24)
Me.Button33.TabIndex = 144
@@ -1181,7 +1185,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadNKD
'
Me.txtInstallProdPfadNKD.Location = New System.Drawing.Point(132, 644)
Me.txtInstallProdPfadNKD.Location = New System.Drawing.Point(132, 661)
Me.txtInstallProdPfadNKD.Name = "txtInstallProdPfadNKD"
Me.txtInstallProdPfadNKD.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadNKD.TabIndex = 143
@@ -1189,7 +1193,7 @@ Partial Class frmProgDetails
'Button34
'
Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button34.Location = New System.Drawing.Point(509, 642)
Me.Button34.Location = New System.Drawing.Point(509, 659)
Me.Button34.Name = "Button34"
Me.Button34.Size = New System.Drawing.Size(100, 24)
Me.Button34.TabIndex = 142
@@ -1199,7 +1203,7 @@ Partial Class frmProgDetails
'Label28
'
Me.Label28.AutoSize = True
Me.Label28.Location = New System.Drawing.Point(20, 726)
Me.Label28.Location = New System.Drawing.Point(20, 743)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(96, 13)
Me.Label28.TabIndex = 149
@@ -1208,7 +1212,7 @@ Partial Class frmProgDetails
'Label29
'
Me.Label29.AutoSize = True
Me.Label29.Location = New System.Drawing.Point(20, 700)
Me.Label29.Location = New System.Drawing.Point(20, 717)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(106, 13)
Me.Label29.TabIndex = 148
@@ -1236,12 +1240,52 @@ Partial Class frmProgDetails
Me.cbxIncrementalCopy.Text = "IncrementalCopy"
Me.cbxIncrementalCopy.UseVisualStyleBackColor = True
'
'Label30
'
Me.Label30.AutoSize = True
Me.Label30.Location = New System.Drawing.Point(20, 427)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(95, 13)
Me.Label30.TabIndex = 152
Me.Label30.Text = "Produktiv Backup:"
'
'txtProdPfadBackup
'
Me.txtProdPfadBackup.Location = New System.Drawing.Point(132, 424)
Me.txtProdPfadBackup.Name = "txtProdPfadBackup"
Me.txtProdPfadBackup.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfadBackup.TabIndex = 153
'
'Button36
'
Me.Button36.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button36.Location = New System.Drawing.Point(427, 421)
Me.Button36.Name = "Button36"
Me.Button36.Size = New System.Drawing.Size(76, 24)
Me.Button36.TabIndex = 154
Me.Button36.Text = "Aktualisieren"
Me.Button36.UseVisualStyleBackColor = True
'
'Button37
'
Me.Button37.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button37.Location = New System.Drawing.Point(509, 421)
Me.Button37.Name = "Button37"
Me.Button37.Size = New System.Drawing.Size(100, 24)
Me.Button37.TabIndex = 155
Me.Button37.Text = "PRODUKTIV->F"
Me.Button37.UseVisualStyleBackColor = True
'
'frmProgDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(759, 903)
Me.Controls.Add(Me.Button37)
Me.Controls.Add(Me.Button36)
Me.Controls.Add(Me.txtProdPfadBackup)
Me.Controls.Add(Me.Label30)
Me.Controls.Add(Me.cbxIncrementalCopy)
Me.Controls.Add(Me.Button35)
Me.Controls.Add(Me.Label28)
@@ -1483,4 +1527,8 @@ Partial Class frmProgDetails
Friend WithEvents Label29 As Label
Friend WithEvents Button35 As Button
Friend WithEvents cbxIncrementalCopy As CheckBox
Friend WithEvents Label30 As Label
Friend WithEvents txtProdPfadBackup As TextBox
Friend WithEvents Button36 As Button
Friend WithEvents Button37 As Button
End Class

View File

@@ -38,9 +38,6 @@ Public Class frmProgDetails
txtSourcePfad.Text = getSourcePath()
txtDevPfad.Text = daten.prog_dev_path
txtProdPfad.Text = daten.prog_prod_path
txtInstallSourcePfad.Text = getSourceInstallPath() ' daten.prog_installer_source_path
@@ -73,6 +70,8 @@ Public Class frmProgDetails
txtProdPfadAMB.Text = daten.prog_prod_path_AMB
txtInstallProdPfadAMB.Text = daten.prog_installer_prod_path_AMB
txtProdPfadBackup.Text = daten.prog_prod_path_Backup
End Sub
Function getSourcePath() As String
@@ -174,7 +173,7 @@ Public Class frmProgDetails
daten.prog_prod_path_AMB = txtProdPfadAMB.Text
daten.prog_installer_prod_path_AMB = txtInstallProdPfadAMB.Text
daten.prog_prod_path_Backup = txtProdPfadBackup.Text
If PROG.insertProgramm(daten) Then Me.Close()
@@ -520,5 +519,12 @@ Public Class frmProgDetails
Return True
End Function
Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
PROG.setParam("prog_prod_path_backup", txtProdPfadBackup.Text, codename)
init()
End Sub
Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadBackup.Text, cbxZip.Checked, "")
End Sub
End Class