You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1383 lines
91 KiB
1383 lines
91 KiB
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Color
|
|
Imports System.ComponentModel
|
|
Public Class frmApplication
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
|
Friend WithEvents ToolBtnClose As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBtnSave As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
|
|
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
|
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
|
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
|
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
|
Friend WithEvents Label12 As System.Windows.Forms.Label
|
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents txtLogischesLaufwerk As System.Windows.Forms.TextBox
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Label13 As System.Windows.Forms.Label
|
|
Friend WithEvents Label14 As System.Windows.Forms.Label
|
|
Friend WithEvents Label15 As System.Windows.Forms.Label
|
|
Friend WithEvents Label16 As System.Windows.Forms.Label
|
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
|
Friend WithEvents Label17 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Label18 As System.Windows.Forms.Label
|
|
Friend WithEvents Label19 As System.Windows.Forms.Label
|
|
Friend WithEvents Label20 As System.Windows.Forms.Label
|
|
Friend WithEvents Label21 As System.Windows.Forms.Label
|
|
Friend WithEvents Label22 As System.Windows.Forms.Label
|
|
Friend WithEvents Label23 As System.Windows.Forms.Label
|
|
Friend WithEvents Label24 As System.Windows.Forms.Label
|
|
Friend WithEvents Label25 As System.Windows.Forms.Label
|
|
Friend WithEvents txtAlertMail As System.Windows.Forms.TextBox
|
|
Friend WithEvents cbHOST As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cbAMS As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cbRDM As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cbColdbatch As System.Windows.Forms.ComboBox
|
|
Friend WithEvents txtColdbatch As System.Windows.Forms.TextBox
|
|
Friend WithEvents cLogin As System.Windows.Forms.CheckBox
|
|
Friend WithEvents txtVersion As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtExcelPasswort As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtWordPasswort As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtExcelVerzeichnis As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtWordVerzeichnis As System.Windows.Forms.TextBox
|
|
Friend WithEvents cNetUse As System.Windows.Forms.CheckBox
|
|
Friend WithEvents txtServerPasswort As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtServerUser As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtDokumentpfad As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtDokumentserver As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtReportPasswort As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtReportUser As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtRPTPfad As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtReportServer As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtReportDB As System.Windows.Forms.TextBox
|
|
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
Friend WithEvents txtApplikationsnr As System.Windows.Forms.TextBox
|
|
Friend WithEvents TXTHost As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtAMS As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtRDM As System.Windows.Forms.TextBox
|
|
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label26 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label27 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label28 As System.Windows.Forms.Label
|
|
Friend WithEvents txtTempVerz As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label29 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label30 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label31 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label32 As System.Windows.Forms.Label
|
|
Friend WithEvents txtBCFont As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label33 As System.Windows.Forms.Label
|
|
Friend WithEvents Label34 As System.Windows.Forms.Label
|
|
Friend WithEvents cBCSize As System.Windows.Forms.ComboBox
|
|
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
|
|
Friend WithEvents txtcoldpassword As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label35 As System.Windows.Forms.Label
|
|
Friend WithEvents txtcoldusesr As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label36 As System.Windows.Forms.Label
|
|
Friend WithEvents Label37 As System.Windows.Forms.Label
|
|
Friend WithEvents txtcoldsystem As System.Windows.Forms.TextBox
|
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
|
Friend WithEvents Passwort As System.Windows.Forms.TextBox
|
|
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label38 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label39 As System.Windows.Forms.Label
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmApplication))
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
|
Me.ToolBtnClose = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBtnSave = New System.Windows.Forms.ToolBarButton()
|
|
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
|
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
|
Me.txtApplikationsnr = New System.Windows.Forms.TextBox()
|
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
|
Me.Label25 = New System.Windows.Forms.Label()
|
|
Me.txtAlertMail = New System.Windows.Forms.TextBox()
|
|
Me.cbHOST = New System.Windows.Forms.ComboBox()
|
|
Me.TXTHost = New System.Windows.Forms.TextBox()
|
|
Me.Label24 = New System.Windows.Forms.Label()
|
|
Me.cbAMS = New System.Windows.Forms.ComboBox()
|
|
Me.txtAMS = New System.Windows.Forms.TextBox()
|
|
Me.Label23 = New System.Windows.Forms.Label()
|
|
Me.cbRDM = New System.Windows.Forms.ComboBox()
|
|
Me.txtRDM = New System.Windows.Forms.TextBox()
|
|
Me.Label22 = New System.Windows.Forms.Label()
|
|
Me.cbColdbatch = New System.Windows.Forms.ComboBox()
|
|
Me.txtColdbatch = New System.Windows.Forms.TextBox()
|
|
Me.Label21 = New System.Windows.Forms.Label()
|
|
Me.Label20 = New System.Windows.Forms.Label()
|
|
Me.Label19 = New System.Windows.Forms.Label()
|
|
Me.Label18 = New System.Windows.Forms.Label()
|
|
Me.Label17 = New System.Windows.Forms.Label()
|
|
Me.cLogin = New System.Windows.Forms.CheckBox()
|
|
Me.Label7 = New System.Windows.Forms.Label()
|
|
Me.txtVersion = New System.Windows.Forms.TextBox()
|
|
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
|
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
|
Me.cBCSize = New System.Windows.Forms.ComboBox()
|
|
Me.Label34 = New System.Windows.Forms.Label()
|
|
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
|
Me.Label30 = New System.Windows.Forms.Label()
|
|
Me.TextBox5 = New System.Windows.Forms.TextBox()
|
|
Me.Label31 = New System.Windows.Forms.Label()
|
|
Me.TextBox6 = New System.Windows.Forms.TextBox()
|
|
Me.Label32 = New System.Windows.Forms.Label()
|
|
Me.txtBCFont = New System.Windows.Forms.TextBox()
|
|
Me.Label33 = New System.Windows.Forms.Label()
|
|
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
|
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
|
Me.Label26 = New System.Windows.Forms.Label()
|
|
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
|
Me.Label27 = New System.Windows.Forms.Label()
|
|
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
|
Me.Label28 = New System.Windows.Forms.Label()
|
|
Me.txtTempVerz = New System.Windows.Forms.TextBox()
|
|
Me.Label29 = New System.Windows.Forms.Label()
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
|
Me.Passwort = New System.Windows.Forms.TextBox()
|
|
Me.Button1 = New System.Windows.Forms.Button()
|
|
Me.txtExcelPasswort = New System.Windows.Forms.TextBox()
|
|
Me.Label16 = New System.Windows.Forms.Label()
|
|
Me.txtWordPasswort = New System.Windows.Forms.TextBox()
|
|
Me.Label15 = New System.Windows.Forms.Label()
|
|
Me.txtExcelVerzeichnis = New System.Windows.Forms.TextBox()
|
|
Me.Label14 = New System.Windows.Forms.Label()
|
|
Me.txtWordVerzeichnis = New System.Windows.Forms.TextBox()
|
|
Me.Label13 = New System.Windows.Forms.Label()
|
|
Me.Label6 = New System.Windows.Forms.Label()
|
|
Me.cNetUse = New System.Windows.Forms.CheckBox()
|
|
Me.txtServerPasswort = New System.Windows.Forms.TextBox()
|
|
Me.Label5 = New System.Windows.Forms.Label()
|
|
Me.txtServerUser = New System.Windows.Forms.TextBox()
|
|
Me.Label4 = New System.Windows.Forms.Label()
|
|
Me.txtDokumentpfad = New System.Windows.Forms.TextBox()
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|
Me.txtDokumentserver = New System.Windows.Forms.TextBox()
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.txtLogischesLaufwerk = New System.Windows.Forms.TextBox()
|
|
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
|
Me.txtReportPasswort = New System.Windows.Forms.TextBox()
|
|
Me.Label8 = New System.Windows.Forms.Label()
|
|
Me.txtReportUser = New System.Windows.Forms.TextBox()
|
|
Me.Label9 = New System.Windows.Forms.Label()
|
|
Me.txtRPTPfad = New System.Windows.Forms.TextBox()
|
|
Me.Label10 = New System.Windows.Forms.Label()
|
|
Me.txtReportServer = New System.Windows.Forms.TextBox()
|
|
Me.Label11 = New System.Windows.Forms.Label()
|
|
Me.Label12 = New System.Windows.Forms.Label()
|
|
Me.txtReportDB = New System.Windows.Forms.TextBox()
|
|
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
|
Me.TextBox7 = New System.Windows.Forms.TextBox()
|
|
Me.Label38 = New System.Windows.Forms.Label()
|
|
Me.txtcoldpassword = New System.Windows.Forms.TextBox()
|
|
Me.Label35 = New System.Windows.Forms.Label()
|
|
Me.txtcoldusesr = New System.Windows.Forms.TextBox()
|
|
Me.Label36 = New System.Windows.Forms.Label()
|
|
Me.Label37 = New System.Windows.Forms.Label()
|
|
Me.txtcoldsystem = New System.Windows.Forms.TextBox()
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
|
Me.DataSet1 = New System.Data.DataSet()
|
|
Me.TextBox8 = New System.Windows.Forms.TextBox()
|
|
Me.Label39 = New System.Windows.Forms.Label()
|
|
Me.TabControl1.SuspendLayout()
|
|
Me.TabPage1.SuspendLayout()
|
|
Me.GroupBox2.SuspendLayout()
|
|
Me.TabPage2.SuspendLayout()
|
|
Me.GroupBox4.SuspendLayout()
|
|
Me.GroupBox3.SuspendLayout()
|
|
Me.GroupBox1.SuspendLayout()
|
|
Me.TabPage3.SuspendLayout()
|
|
Me.TabPage4.SuspendLayout()
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBtnClose, Me.ToolBtnSave})
|
|
Me.ToolBar1.DropDownArrows = True
|
|
Me.ToolBar1.ImageList = Me.ImageList1
|
|
Me.ToolBar1.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(408, 25)
|
|
Me.ToolBar1.TabIndex = 0
|
|
'
|
|
'ToolBtnClose
|
|
'
|
|
Me.ToolBtnClose.ImageIndex = 0
|
|
'
|
|
'ToolBtnSave
|
|
'
|
|
Me.ToolBtnSave.ImageIndex = 1
|
|
'
|
|
'TabControl1
|
|
'
|
|
Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage2, Me.TabPage3, Me.TabPage4})
|
|
Me.TabControl1.Location = New System.Drawing.Point(8, 40)
|
|
Me.TabControl1.Name = "TabControl1"
|
|
Me.TabControl1.SelectedIndex = 0
|
|
Me.TabControl1.Size = New System.Drawing.Size(392, 464)
|
|
Me.TabControl1.TabIndex = 3
|
|
'
|
|
'TabPage1
|
|
'
|
|
Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtApplikationsnr, Me.GroupBox2, Me.Label17, Me.cLogin, Me.Label7, Me.txtVersion})
|
|
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage1.Name = "TabPage1"
|
|
Me.TabPage1.Size = New System.Drawing.Size(384, 438)
|
|
Me.TabPage1.TabIndex = 0
|
|
Me.TabPage1.Text = "Applikation"
|
|
'
|
|
'txtApplikationsnr
|
|
'
|
|
Me.txtApplikationsnr.Location = New System.Drawing.Point(224, 16)
|
|
Me.txtApplikationsnr.Name = "txtApplikationsnr"
|
|
Me.txtApplikationsnr.Size = New System.Drawing.Size(72, 20)
|
|
Me.txtApplikationsnr.TabIndex = 27
|
|
Me.txtApplikationsnr.Text = "TextBox1"
|
|
'
|
|
'GroupBox2
|
|
'
|
|
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox8, Me.Label39, Me.Label25, Me.txtAlertMail, Me.cbHOST, Me.TXTHost, Me.Label24, Me.cbAMS, Me.txtAMS, Me.Label23, Me.cbRDM, Me.txtRDM, Me.Label22, Me.cbColdbatch, Me.txtColdbatch, Me.Label21, Me.Label20, Me.Label19, Me.Label18})
|
|
Me.GroupBox2.Location = New System.Drawing.Point(8, 72)
|
|
Me.GroupBox2.Name = "GroupBox2"
|
|
Me.GroupBox2.Size = New System.Drawing.Size(368, 360)
|
|
Me.GroupBox2.TabIndex = 26
|
|
Me.GroupBox2.TabStop = False
|
|
Me.GroupBox2.Text = "Batchverarbeitung"
|
|
'
|
|
'Label25
|
|
'
|
|
Me.Label25.Location = New System.Drawing.Point(16, 168)
|
|
Me.Label25.Name = "Label25"
|
|
Me.Label25.Size = New System.Drawing.Size(72, 24)
|
|
Me.Label25.TabIndex = 16
|
|
Me.Label25.Text = "Alert-Mailadresse"
|
|
'
|
|
'txtAlertMail
|
|
'
|
|
Me.txtAlertMail.Location = New System.Drawing.Point(96, 172)
|
|
Me.txtAlertMail.Name = "txtAlertMail"
|
|
Me.txtAlertMail.Size = New System.Drawing.Size(248, 20)
|
|
Me.txtAlertMail.TabIndex = 15
|
|
Me.txtAlertMail.Text = "TextBox19"
|
|
'
|
|
'cbHOST
|
|
'
|
|
Me.cbHOST.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|
Me.cbHOST.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "24", "48", "72"})
|
|
Me.cbHOST.Location = New System.Drawing.Point(224, 128)
|
|
Me.cbHOST.Name = "cbHOST"
|
|
Me.cbHOST.Size = New System.Drawing.Size(56, 21)
|
|
Me.cbHOST.TabIndex = 14
|
|
'
|
|
'TXTHost
|
|
'
|
|
Me.TXTHost.Enabled = False
|
|
Me.TXTHost.Location = New System.Drawing.Point(96, 128)
|
|
Me.TXTHost.Name = "TXTHost"
|
|
Me.TXTHost.Size = New System.Drawing.Size(120, 20)
|
|
Me.TXTHost.TabIndex = 13
|
|
Me.TXTHost.Text = "TextBox18"
|
|
'
|
|
'Label24
|
|
'
|
|
Me.Label24.Location = New System.Drawing.Point(16, 128)
|
|
Me.Label24.Name = "Label24"
|
|
Me.Label24.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label24.TabIndex = 12
|
|
Me.Label24.Text = "HOST-Abgl."
|
|
'
|
|
'cbAMS
|
|
'
|
|
Me.cbAMS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|
Me.cbAMS.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "24", "48", "72"})
|
|
Me.cbAMS.Location = New System.Drawing.Point(224, 104)
|
|
Me.cbAMS.Name = "cbAMS"
|
|
Me.cbAMS.Size = New System.Drawing.Size(56, 21)
|
|
Me.cbAMS.TabIndex = 11
|
|
'
|
|
'txtAMS
|
|
'
|
|
Me.txtAMS.Enabled = False
|
|
Me.txtAMS.Location = New System.Drawing.Point(96, 104)
|
|
Me.txtAMS.Name = "txtAMS"
|
|
Me.txtAMS.Size = New System.Drawing.Size(120, 20)
|
|
Me.txtAMS.TabIndex = 10
|
|
Me.txtAMS.Text = "TextBox17"
|
|
'
|
|
'Label23
|
|
'
|
|
Me.Label23.Location = New System.Drawing.Point(16, 104)
|
|
Me.Label23.Name = "Label23"
|
|
Me.Label23.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label23.TabIndex = 9
|
|
Me.Label23.Text = "AMS-Abgl."
|
|
'
|
|
'cbRDM
|
|
'
|
|
Me.cbRDM.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|
Me.cbRDM.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "24", "48", "72"})
|
|
Me.cbRDM.Location = New System.Drawing.Point(224, 80)
|
|
Me.cbRDM.Name = "cbRDM"
|
|
Me.cbRDM.Size = New System.Drawing.Size(56, 21)
|
|
Me.cbRDM.TabIndex = 8
|
|
'
|
|
'txtRDM
|
|
'
|
|
Me.txtRDM.Enabled = False
|
|
Me.txtRDM.Location = New System.Drawing.Point(96, 80)
|
|
Me.txtRDM.Name = "txtRDM"
|
|
Me.txtRDM.Size = New System.Drawing.Size(120, 20)
|
|
Me.txtRDM.TabIndex = 7
|
|
Me.txtRDM.Text = "TextBox16"
|
|
'
|
|
'Label22
|
|
'
|
|
Me.Label22.Location = New System.Drawing.Point(16, 80)
|
|
Me.Label22.Name = "Label22"
|
|
Me.Label22.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label22.TabIndex = 6
|
|
Me.Label22.Text = "RDM"
|
|
'
|
|
'cbColdbatch
|
|
'
|
|
Me.cbColdbatch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|
Me.cbColdbatch.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "24", "48", "72"})
|
|
Me.cbColdbatch.Location = New System.Drawing.Point(224, 56)
|
|
Me.cbColdbatch.Name = "cbColdbatch"
|
|
Me.cbColdbatch.Size = New System.Drawing.Size(56, 21)
|
|
Me.cbColdbatch.TabIndex = 5
|
|
'
|
|
'txtColdbatch
|
|
'
|
|
Me.txtColdbatch.Enabled = False
|
|
Me.txtColdbatch.Location = New System.Drawing.Point(96, 56)
|
|
Me.txtColdbatch.Name = "txtColdbatch"
|
|
Me.txtColdbatch.Size = New System.Drawing.Size(120, 20)
|
|
Me.txtColdbatch.TabIndex = 4
|
|
Me.txtColdbatch.Text = "TextBox15"
|
|
'
|
|
'Label21
|
|
'
|
|
Me.Label21.Location = New System.Drawing.Point(16, 56)
|
|
Me.Label21.Name = "Label21"
|
|
Me.Label21.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label21.TabIndex = 3
|
|
Me.Label21.Text = "COLD-Batch"
|
|
'
|
|
'Label20
|
|
'
|
|
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label20.Location = New System.Drawing.Point(224, 32)
|
|
Me.Label20.Name = "Label20"
|
|
Me.Label20.Size = New System.Drawing.Size(136, 23)
|
|
Me.Label20.TabIndex = 2
|
|
Me.Label20.Text = "Alert-Mail nach Anz. Std."
|
|
'
|
|
'Label19
|
|
'
|
|
Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label19.Location = New System.Drawing.Point(96, 32)
|
|
Me.Label19.Name = "Label19"
|
|
Me.Label19.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label19.TabIndex = 1
|
|
Me.Label19.Text = "Letzte durchführen"
|
|
'
|
|
'Label18
|
|
'
|
|
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label18.Location = New System.Drawing.Point(16, 32)
|
|
Me.Label18.Name = "Label18"
|
|
Me.Label18.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label18.TabIndex = 0
|
|
Me.Label18.Text = "Applikation"
|
|
'
|
|
'Label17
|
|
'
|
|
Me.Label17.Location = New System.Drawing.Point(16, 40)
|
|
Me.Label17.Name = "Label17"
|
|
Me.Label17.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label17.TabIndex = 25
|
|
Me.Label17.Text = "Login anzeigen"
|
|
'
|
|
'cLogin
|
|
'
|
|
Me.cLogin.Location = New System.Drawing.Point(120, 40)
|
|
Me.cLogin.Name = "cLogin"
|
|
Me.cLogin.Size = New System.Drawing.Size(16, 24)
|
|
Me.cLogin.TabIndex = 24
|
|
Me.cLogin.Text = "CheckBox2"
|
|
'
|
|
'Label7
|
|
'
|
|
Me.Label7.Location = New System.Drawing.Point(16, 16)
|
|
Me.Label7.Name = "Label7"
|
|
Me.Label7.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label7.TabIndex = 15
|
|
Me.Label7.Text = "EDOKA-Version"
|
|
'
|
|
'txtVersion
|
|
'
|
|
Me.txtVersion.Location = New System.Drawing.Point(120, 16)
|
|
Me.txtVersion.Name = "txtVersion"
|
|
Me.txtVersion.Size = New System.Drawing.Size(72, 20)
|
|
Me.txtVersion.TabIndex = 14
|
|
Me.txtVersion.Text = "TextBox1"
|
|
'
|
|
'TabPage2
|
|
'
|
|
Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox4, Me.GroupBox3, Me.GroupBox1, Me.Label6, Me.cNetUse, Me.txtServerPasswort, Me.Label5, Me.txtServerUser, Me.Label4, Me.txtDokumentpfad, Me.Label3, Me.txtDokumentserver, Me.Label2, Me.Label1, Me.txtLogischesLaufwerk})
|
|
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage2.Name = "TabPage2"
|
|
Me.TabPage2.Size = New System.Drawing.Size(384, 438)
|
|
Me.TabPage2.TabIndex = 1
|
|
Me.TabPage2.Text = "Dokumente"
|
|
'
|
|
'GroupBox4
|
|
'
|
|
Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.cBCSize, Me.Label34, Me.TextBox4, Me.Label30, Me.TextBox5, Me.Label31, Me.TextBox6, Me.Label32, Me.txtBCFont, Me.Label33})
|
|
Me.GroupBox4.Location = New System.Drawing.Point(8, 328)
|
|
Me.GroupBox4.Name = "GroupBox4"
|
|
Me.GroupBox4.Size = New System.Drawing.Size(368, 48)
|
|
Me.GroupBox4.TabIndex = 26
|
|
Me.GroupBox4.TabStop = False
|
|
Me.GroupBox4.Text = "Barcode"
|
|
'
|
|
'cBCSize
|
|
'
|
|
Me.cBCSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|
Me.cBCSize.Items.AddRange(New Object() {"10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40"})
|
|
Me.cBCSize.Location = New System.Drawing.Point(280, 16)
|
|
Me.cBCSize.Name = "cBCSize"
|
|
Me.cBCSize.Size = New System.Drawing.Size(56, 21)
|
|
Me.cBCSize.TabIndex = 27
|
|
'
|
|
'Label34
|
|
'
|
|
Me.Label34.Location = New System.Drawing.Point(223, 17)
|
|
Me.Label34.Name = "Label34"
|
|
Me.Label34.Size = New System.Drawing.Size(56, 16)
|
|
Me.Label34.TabIndex = 26
|
|
Me.Label34.Text = "Grösse"
|
|
'
|
|
'TextBox4
|
|
'
|
|
Me.TextBox4.Location = New System.Drawing.Point(120, 120)
|
|
Me.TextBox4.Name = "TextBox4"
|
|
Me.TextBox4.Size = New System.Drawing.Size(192, 20)
|
|
Me.TextBox4.TabIndex = 25
|
|
Me.TextBox4.Text = ""
|
|
'
|
|
'Label30
|
|
'
|
|
Me.Label30.Location = New System.Drawing.Point(16, 116)
|
|
Me.Label30.Name = "Label30"
|
|
Me.Label30.Size = New System.Drawing.Size(104, 27)
|
|
Me.Label30.TabIndex = 24
|
|
'
|
|
'TextBox5
|
|
'
|
|
Me.TextBox5.Location = New System.Drawing.Point(120, 88)
|
|
Me.TextBox5.Name = "TextBox5"
|
|
Me.TextBox5.Size = New System.Drawing.Size(192, 20)
|
|
Me.TextBox5.TabIndex = 23
|
|
Me.TextBox5.Text = ""
|
|
'
|
|
'Label31
|
|
'
|
|
Me.Label31.Location = New System.Drawing.Point(16, 85)
|
|
Me.Label31.Name = "Label31"
|
|
Me.Label31.Size = New System.Drawing.Size(104, 27)
|
|
Me.Label31.TabIndex = 22
|
|
'
|
|
'TextBox6
|
|
'
|
|
Me.TextBox6.Location = New System.Drawing.Point(120, 48)
|
|
Me.TextBox6.Name = "TextBox6"
|
|
Me.TextBox6.Size = New System.Drawing.Size(192, 20)
|
|
Me.TextBox6.TabIndex = 21
|
|
Me.TextBox6.Text = ""
|
|
'
|
|
'Label32
|
|
'
|
|
Me.Label32.Location = New System.Drawing.Point(16, 48)
|
|
Me.Label32.Name = "Label32"
|
|
Me.Label32.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label32.TabIndex = 20
|
|
'
|
|
'txtBCFont
|
|
'
|
|
Me.txtBCFont.Location = New System.Drawing.Point(72, 17)
|
|
Me.txtBCFont.Name = "txtBCFont"
|
|
Me.txtBCFont.Size = New System.Drawing.Size(136, 20)
|
|
Me.txtBCFont.TabIndex = 19
|
|
Me.txtBCFont.Text = ""
|
|
'
|
|
'Label33
|
|
'
|
|
Me.Label33.Location = New System.Drawing.Point(16, 20)
|
|
Me.Label33.Name = "Label33"
|
|
Me.Label33.Size = New System.Drawing.Size(56, 16)
|
|
Me.Label33.TabIndex = 18
|
|
Me.Label33.Text = "Schriftart"
|
|
'
|
|
'GroupBox3
|
|
'
|
|
Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Label26, Me.TextBox2, Me.Label27, Me.TextBox3, Me.Label28, Me.txtTempVerz, Me.Label29})
|
|
Me.GroupBox3.Location = New System.Drawing.Point(0, 384)
|
|
Me.GroupBox3.Name = "GroupBox3"
|
|
Me.GroupBox3.Size = New System.Drawing.Size(376, 48)
|
|
Me.GroupBox3.TabIndex = 25
|
|
Me.GroupBox3.TabStop = False
|
|
Me.GroupBox3.Text = "Temporäre Verzeichnisse"
|
|
'
|
|
'TextBox1
|
|
'
|
|
Me.TextBox1.Location = New System.Drawing.Point(120, 120)
|
|
Me.TextBox1.Name = "TextBox1"
|
|
Me.TextBox1.Size = New System.Drawing.Size(192, 20)
|
|
Me.TextBox1.TabIndex = 25
|
|
Me.TextBox1.Text = ""
|
|
'
|
|
'Label26
|
|
'
|
|
Me.Label26.Location = New System.Drawing.Point(16, 116)
|
|
Me.Label26.Name = "Label26"
|
|
Me.Label26.Size = New System.Drawing.Size(104, 27)
|
|
Me.Label26.TabIndex = 24
|
|
'
|
|
'TextBox2
|
|
'
|
|
Me.TextBox2.Location = New System.Drawing.Point(120, 88)
|
|
Me.TextBox2.Name = "TextBox2"
|
|
Me.TextBox2.Size = New System.Drawing.Size(192, 20)
|
|
Me.TextBox2.TabIndex = 23
|
|
Me.TextBox2.Text = ""
|
|
'
|
|
'Label27
|
|
'
|
|
Me.Label27.Location = New System.Drawing.Point(16, 85)
|
|
Me.Label27.Name = "Label27"
|
|
Me.Label27.Size = New System.Drawing.Size(104, 27)
|
|
Me.Label27.TabIndex = 22
|
|
'
|
|
'TextBox3
|
|
'
|
|
Me.TextBox3.Location = New System.Drawing.Point(120, 48)
|
|
Me.TextBox3.Name = "TextBox3"
|
|
Me.TextBox3.Size = New System.Drawing.Size(192, 20)
|
|
Me.TextBox3.TabIndex = 21
|
|
Me.TextBox3.Text = ""
|
|
'
|
|
'Label28
|
|
'
|
|
Me.Label28.Location = New System.Drawing.Point(16, 48)
|
|
Me.Label28.Name = "Label28"
|
|
Me.Label28.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label28.TabIndex = 20
|
|
'
|
|
'txtTempVerz
|
|
'
|
|
Me.txtTempVerz.Location = New System.Drawing.Point(120, 21)
|
|
Me.txtTempVerz.Name = "txtTempVerz"
|
|
Me.txtTempVerz.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtTempVerz.TabIndex = 19
|
|
Me.txtTempVerz.Text = ""
|
|
'
|
|
'Label29
|
|
'
|
|
Me.Label29.Location = New System.Drawing.Point(16, 24)
|
|
Me.Label29.Name = "Label29"
|
|
Me.Label29.Size = New System.Drawing.Size(104, 16)
|
|
Me.Label29.TabIndex = 18
|
|
Me.Label29.Text = "Temp. User-Verz."
|
|
'
|
|
'GroupBox1
|
|
'
|
|
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Passwort, Me.Button1, Me.txtExcelPasswort, Me.Label16, Me.txtWordPasswort, Me.Label15, Me.txtExcelVerzeichnis, Me.Label14, Me.txtWordVerzeichnis, Me.Label13})
|
|
Me.GroupBox1.Location = New System.Drawing.Point(8, 168)
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|
Me.GroupBox1.Size = New System.Drawing.Size(368, 152)
|
|
Me.GroupBox1.TabIndex = 24
|
|
Me.GroupBox1.TabStop = False
|
|
Me.GroupBox1.Text = "Office-Vorlagen"
|
|
'
|
|
'Passwort
|
|
'
|
|
Me.Passwort.Location = New System.Drawing.Point(176, 24)
|
|
Me.Passwort.Name = "Passwort"
|
|
Me.Passwort.TabIndex = 27
|
|
Me.Passwort.Text = "TextBox7"
|
|
Me.Passwort.Visible = False
|
|
'
|
|
'Button1
|
|
'
|
|
Me.Button1.Location = New System.Drawing.Point(16, 24)
|
|
Me.Button1.Name = "Button1"
|
|
Me.Button1.Size = New System.Drawing.Size(136, 23)
|
|
Me.Button1.TabIndex = 26
|
|
Me.Button1.Text = "Passwort Vorlagenverwaltung"
|
|
'
|
|
'txtExcelPasswort
|
|
'
|
|
Me.txtExcelPasswort.Location = New System.Drawing.Point(120, 120)
|
|
Me.txtExcelPasswort.Name = "txtExcelPasswort"
|
|
Me.txtExcelPasswort.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtExcelPasswort.TabIndex = 25
|
|
Me.txtExcelPasswort.Text = "TextBox13"
|
|
'
|
|
'Label16
|
|
'
|
|
Me.Label16.Location = New System.Drawing.Point(16, 116)
|
|
Me.Label16.Name = "Label16"
|
|
Me.Label16.Size = New System.Drawing.Size(104, 27)
|
|
Me.Label16.TabIndex = 24
|
|
Me.Label16.Text = "Vorlage Password Excel"
|
|
'
|
|
'txtWordPasswort
|
|
'
|
|
Me.txtWordPasswort.Location = New System.Drawing.Point(120, 88)
|
|
Me.txtWordPasswort.Name = "txtWordPasswort"
|
|
Me.txtWordPasswort.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtWordPasswort.TabIndex = 23
|
|
Me.txtWordPasswort.Text = "TextBox12"
|
|
'
|
|
'Label15
|
|
'
|
|
Me.Label15.Location = New System.Drawing.Point(16, 85)
|
|
Me.Label15.Name = "Label15"
|
|
Me.Label15.Size = New System.Drawing.Size(104, 27)
|
|
Me.Label15.TabIndex = 22
|
|
Me.Label15.Text = "Vorlage Password Word"
|
|
'
|
|
'txtExcelVerzeichnis
|
|
'
|
|
Me.txtExcelVerzeichnis.Location = New System.Drawing.Point(120, 56)
|
|
Me.txtExcelVerzeichnis.Name = "txtExcelVerzeichnis"
|
|
Me.txtExcelVerzeichnis.Size = New System.Drawing.Size(160, 20)
|
|
Me.txtExcelVerzeichnis.TabIndex = 21
|
|
Me.txtExcelVerzeichnis.Text = "TextBox11"
|
|
'
|
|
'Label14
|
|
'
|
|
Me.Label14.Location = New System.Drawing.Point(16, 56)
|
|
Me.Label14.Name = "Label14"
|
|
Me.Label14.Size = New System.Drawing.Size(120, 24)
|
|
Me.Label14.TabIndex = 20
|
|
Me.Label14.Text = "Verzeichnis Excel"
|
|
'
|
|
'txtWordVerzeichnis
|
|
'
|
|
Me.txtWordVerzeichnis.Location = New System.Drawing.Point(120, 24)
|
|
Me.txtWordVerzeichnis.Name = "txtWordVerzeichnis"
|
|
Me.txtWordVerzeichnis.Size = New System.Drawing.Size(24, 20)
|
|
Me.txtWordVerzeichnis.TabIndex = 19
|
|
Me.txtWordVerzeichnis.Text = "TextBox10"
|
|
Me.txtWordVerzeichnis.Visible = False
|
|
'
|
|
'Label13
|
|
'
|
|
Me.Label13.Location = New System.Drawing.Point(16, 24)
|
|
Me.Label13.Name = "Label13"
|
|
Me.Label13.Size = New System.Drawing.Size(16, 23)
|
|
Me.Label13.TabIndex = 18
|
|
Me.Label13.Text = "Verzeichnis Word"
|
|
Me.Label13.Visible = False
|
|
'
|
|
'Label6
|
|
'
|
|
Me.Label6.Location = New System.Drawing.Point(8, 140)
|
|
Me.Label6.Name = "Label6"
|
|
Me.Label6.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label6.TabIndex = 23
|
|
Me.Label6.Text = "Net-Use verwenden"
|
|
'
|
|
'cNetUse
|
|
'
|
|
Me.cNetUse.Location = New System.Drawing.Point(112, 136)
|
|
Me.cNetUse.Name = "cNetUse"
|
|
Me.cNetUse.Size = New System.Drawing.Size(16, 24)
|
|
Me.cNetUse.TabIndex = 22
|
|
Me.cNetUse.Text = "CheckBox1"
|
|
'
|
|
'txtServerPasswort
|
|
'
|
|
Me.txtServerPasswort.Location = New System.Drawing.Point(112, 112)
|
|
Me.txtServerPasswort.Name = "txtServerPasswort"
|
|
Me.txtServerPasswort.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtServerPasswort.TabIndex = 21
|
|
Me.txtServerPasswort.Text = "TextBox4"
|
|
'
|
|
'Label5
|
|
'
|
|
Me.Label5.Location = New System.Drawing.Point(8, 112)
|
|
Me.Label5.Name = "Label5"
|
|
Me.Label5.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label5.TabIndex = 20
|
|
Me.Label5.Text = "Passwort"
|
|
'
|
|
'txtServerUser
|
|
'
|
|
Me.txtServerUser.Location = New System.Drawing.Point(112, 88)
|
|
Me.txtServerUser.Name = "txtServerUser"
|
|
Me.txtServerUser.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtServerUser.TabIndex = 19
|
|
Me.txtServerUser.Text = "TextBox3"
|
|
'
|
|
'Label4
|
|
'
|
|
Me.Label4.Location = New System.Drawing.Point(8, 88)
|
|
Me.Label4.Name = "Label4"
|
|
Me.Label4.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label4.TabIndex = 18
|
|
Me.Label4.Text = "Benutzer-ID"
|
|
'
|
|
'txtDokumentpfad
|
|
'
|
|
Me.txtDokumentpfad.Location = New System.Drawing.Point(112, 64)
|
|
Me.txtDokumentpfad.Name = "txtDokumentpfad"
|
|
Me.txtDokumentpfad.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtDokumentpfad.TabIndex = 17
|
|
Me.txtDokumentpfad.Text = "TextBox2"
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.Location = New System.Drawing.Point(8, 64)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label3.TabIndex = 16
|
|
Me.Label3.Text = "Dokumentpfad"
|
|
'
|
|
'txtDokumentserver
|
|
'
|
|
Me.txtDokumentserver.Location = New System.Drawing.Point(112, 40)
|
|
Me.txtDokumentserver.Name = "txtDokumentserver"
|
|
Me.txtDokumentserver.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtDokumentserver.TabIndex = 15
|
|
Me.txtDokumentserver.Text = "TextBox1"
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(8, 40)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label2.TabIndex = 14
|
|
Me.Label2.Text = "Dokumentserver"
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 16)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label1.TabIndex = 13
|
|
Me.Label1.Text = "Logisches Laufwerk"
|
|
'
|
|
'txtLogischesLaufwerk
|
|
'
|
|
Me.txtLogischesLaufwerk.Location = New System.Drawing.Point(112, 16)
|
|
Me.txtLogischesLaufwerk.Name = "txtLogischesLaufwerk"
|
|
Me.txtLogischesLaufwerk.Size = New System.Drawing.Size(32, 20)
|
|
Me.txtLogischesLaufwerk.TabIndex = 12
|
|
Me.txtLogischesLaufwerk.Text = "TextBox1"
|
|
'
|
|
'TabPage3
|
|
'
|
|
Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtReportPasswort, Me.Label8, Me.txtReportUser, Me.Label9, Me.txtRPTPfad, Me.Label10, Me.txtReportServer, Me.Label11, Me.Label12, Me.txtReportDB})
|
|
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage3.Name = "TabPage3"
|
|
Me.TabPage3.Size = New System.Drawing.Size(384, 438)
|
|
Me.TabPage3.TabIndex = 2
|
|
Me.TabPage3.Text = "Auswertungen"
|
|
'
|
|
'txtReportPasswort
|
|
'
|
|
Me.txtReportPasswort.Location = New System.Drawing.Point(120, 112)
|
|
Me.txtReportPasswort.Name = "txtReportPasswort"
|
|
Me.txtReportPasswort.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtReportPasswort.TabIndex = 21
|
|
Me.txtReportPasswort.Text = "TextBox4"
|
|
'
|
|
'Label8
|
|
'
|
|
Me.Label8.Location = New System.Drawing.Point(16, 112)
|
|
Me.Label8.Name = "Label8"
|
|
Me.Label8.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label8.TabIndex = 20
|
|
Me.Label8.Text = "Passwort"
|
|
'
|
|
'txtReportUser
|
|
'
|
|
Me.txtReportUser.Location = New System.Drawing.Point(120, 88)
|
|
Me.txtReportUser.Name = "txtReportUser"
|
|
Me.txtReportUser.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtReportUser.TabIndex = 19
|
|
Me.txtReportUser.Text = "TextBox3"
|
|
'
|
|
'Label9
|
|
'
|
|
Me.Label9.Location = New System.Drawing.Point(16, 88)
|
|
Me.Label9.Name = "Label9"
|
|
Me.Label9.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label9.TabIndex = 18
|
|
Me.Label9.Text = "Benutzer-ID"
|
|
'
|
|
'txtRPTPfad
|
|
'
|
|
Me.txtRPTPfad.Location = New System.Drawing.Point(120, 64)
|
|
Me.txtRPTPfad.Name = "txtRPTPfad"
|
|
Me.txtRPTPfad.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtRPTPfad.TabIndex = 17
|
|
Me.txtRPTPfad.Text = "TextBox2"
|
|
'
|
|
'Label10
|
|
'
|
|
Me.Label10.Location = New System.Drawing.Point(16, 64)
|
|
Me.Label10.Name = "Label10"
|
|
Me.Label10.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label10.TabIndex = 16
|
|
Me.Label10.Text = "Pfad RPT-Dateien"
|
|
'
|
|
'txtReportServer
|
|
'
|
|
Me.txtReportServer.Location = New System.Drawing.Point(120, 40)
|
|
Me.txtReportServer.Name = "txtReportServer"
|
|
Me.txtReportServer.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtReportServer.TabIndex = 15
|
|
Me.txtReportServer.Text = "TextBox1"
|
|
'
|
|
'Label11
|
|
'
|
|
Me.Label11.Location = New System.Drawing.Point(16, 40)
|
|
Me.Label11.Name = "Label11"
|
|
Me.Label11.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label11.TabIndex = 14
|
|
Me.Label11.Text = "Server"
|
|
'
|
|
'Label12
|
|
'
|
|
Me.Label12.Location = New System.Drawing.Point(16, 16)
|
|
Me.Label12.Name = "Label12"
|
|
Me.Label12.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label12.TabIndex = 13
|
|
Me.Label12.Text = "Datenbank"
|
|
'
|
|
'txtReportDB
|
|
'
|
|
Me.txtReportDB.Location = New System.Drawing.Point(120, 16)
|
|
Me.txtReportDB.Name = "txtReportDB"
|
|
Me.txtReportDB.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtReportDB.TabIndex = 12
|
|
Me.txtReportDB.Text = "TextBox1"
|
|
'
|
|
'TabPage4
|
|
'
|
|
Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox7, Me.Label38, Me.txtcoldpassword, Me.Label35, Me.txtcoldusesr, Me.Label36, Me.Label37, Me.txtcoldsystem})
|
|
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage4.Name = "TabPage4"
|
|
Me.TabPage4.Size = New System.Drawing.Size(384, 438)
|
|
Me.TabPage4.TabIndex = 3
|
|
Me.TabPage4.Text = "COLD"
|
|
'
|
|
'TextBox7
|
|
'
|
|
Me.TextBox7.Location = New System.Drawing.Point(120, 88)
|
|
Me.TextBox7.Name = "TextBox7"
|
|
Me.TextBox7.Size = New System.Drawing.Size(192, 20)
|
|
Me.TextBox7.TabIndex = 25
|
|
Me.TextBox7.Text = "TextBox2"
|
|
'
|
|
'Label38
|
|
'
|
|
Me.Label38.Location = New System.Drawing.Point(16, 88)
|
|
Me.Label38.Name = "Label38"
|
|
Me.Label38.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label38.TabIndex = 24
|
|
Me.Label38.Text = "Anzahl Anfragen"
|
|
'
|
|
'txtcoldpassword
|
|
'
|
|
Me.txtcoldpassword.Location = New System.Drawing.Point(120, 64)
|
|
Me.txtcoldpassword.Name = "txtcoldpassword"
|
|
Me.txtcoldpassword.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtcoldpassword.TabIndex = 23
|
|
Me.txtcoldpassword.Text = "TextBox2"
|
|
'
|
|
'Label35
|
|
'
|
|
Me.Label35.Location = New System.Drawing.Point(16, 64)
|
|
Me.Label35.Name = "Label35"
|
|
Me.Label35.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label35.TabIndex = 22
|
|
Me.Label35.Text = "Passwort"
|
|
'
|
|
'txtcoldusesr
|
|
'
|
|
Me.txtcoldusesr.Location = New System.Drawing.Point(120, 40)
|
|
Me.txtcoldusesr.Name = "txtcoldusesr"
|
|
Me.txtcoldusesr.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtcoldusesr.TabIndex = 21
|
|
Me.txtcoldusesr.Text = "TextBox1"
|
|
'
|
|
'Label36
|
|
'
|
|
Me.Label36.Location = New System.Drawing.Point(16, 40)
|
|
Me.Label36.Name = "Label36"
|
|
Me.Label36.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label36.TabIndex = 20
|
|
Me.Label36.Text = "Benutzer"
|
|
'
|
|
'Label37
|
|
'
|
|
Me.Label37.Location = New System.Drawing.Point(16, 16)
|
|
Me.Label37.Name = "Label37"
|
|
Me.Label37.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label37.TabIndex = 19
|
|
Me.Label37.Text = "System"
|
|
'
|
|
'txtcoldsystem
|
|
'
|
|
Me.txtcoldsystem.Location = New System.Drawing.Point(120, 16)
|
|
Me.txtcoldsystem.Name = "txtcoldsystem"
|
|
Me.txtcoldsystem.Size = New System.Drawing.Size(192, 20)
|
|
Me.txtcoldsystem.TabIndex = 18
|
|
Me.txtcoldsystem.Text = "TextBox1"
|
|
'
|
|
'SqlDataAdapter1
|
|
'
|
|
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
|
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
|
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
|
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "applikation", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("applikationsnr", "applikationsnr"), New System.Data.Common.DataColumnMapping("version", "version"), New System.Data.Common.DataColumnMapping("dokument_server", "dokument_server"), New System.Data.Common.DataColumnMapping("net_use", "net_use"), New System.Data.Common.DataColumnMapping("logisches_laufwerk", "logisches_laufwerk"), New System.Data.Common.DataColumnMapping("pfad_dokumente", "pfad_dokumente"), New System.Data.Common.DataColumnMapping("pfad_word_vorlagen", "pfad_word_vorlagen"), New System.Data.Common.DataColumnMapping("pfad_excel_vorlagen", "pfad_excel_vorlagen"), New System.Data.Common.DataColumnMapping("pfad_temporaer_dokumente", "pfad_temporaer_dokumente"), New System.Data.Common.DataColumnMapping("user_fileserver", "user_fileserver"), New System.Data.Common.DataColumnMapping("passwort_fileserver", "passwort_fileserver"), New System.Data.Common.DataColumnMapping("passwort_wordvorlagen", "passwort_wordvorlagen"), New System.Data.Common.DataColumnMapping("passwort_excelvorlagen", "passwort_excelvorlagen"), New System.Data.Common.DataColumnMapping("report_db", "report_db"), New System.Data.Common.DataColumnMapping("report_server", "report_server"), New System.Data.Common.DataColumnMapping("pfad_reportdateien", "pfad_reportdateien"), New System.Data.Common.DataColumnMapping("user_report", "user_report"), New System.Data.Common.DataColumnMapping("passwort_report", "passwort_report"), New System.Data.Common.DataColumnMapping("barcode_font", "barcode_font"), New System.Data.Common.DataColumnMapping("bcfont_groesse", "bcfont_groesse"), New System.Data.Common.DataColumnMapping("mailadresse", "mailadresse"), New System.Data.Common.DataColumnMapping("showlogin", "showlogin"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("letzter_cold_run", "letzter_cold_run"), New System.Data.Common.DataColumnMapping("letzer_ams_run", "letzer_ams_run"), New System.Data.Common.DataColumnMapping("letzter_rdm_run", "letzter_rdm_run"), New System.Data.Common.DataColumnMapping("letzter_host_run", "letzter_host_run"), New System.Data.Common.DataColumnMapping("rdmstunden", "rdmstunden"), New System.Data.Common.DataColumnMapping("coldstunden", "coldstunden"), New System.Data.Common.DataColumnMapping("amsstunden", "amsstunden"), New System.Data.Common.DataColumnMapping("hoststunden", "hoststunden"), New System.Data.Common.DataColumnMapping("coldsystem", "coldsystem"), New System.Data.Common.DataColumnMapping("colduser", "colduser"), New System.Data.Common.DataColumnMapping("coldpassword", "coldpassword")})})
|
|
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[pv_applikation_delete]"
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection2
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_applikationsnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "applikationsnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_amsstunden", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsstunden", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_barcode_font", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "barcode_font", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcfont_groesse", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcfont_groesse", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_coldpassword", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "coldpassword", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_coldstunden", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "coldstunden", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_coldsystem", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "coldsystem", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_colduser", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "colduser", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_server", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_server", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hoststunden", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hoststunden", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_letzer_ams_run", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "letzer_ams_run", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_letzter_cold_run", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "letzter_cold_run", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_letzter_host_run", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "letzter_host_run", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_letzter_rdm_run", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "letzter_rdm_run", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_logisches_laufwerk", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "logisches_laufwerk", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mailadresse", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mailadresse", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_net_use", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "net_use", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_passwort_excelvorlagen", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "passwort_excelvorlagen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_passwort_fileserver", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "passwort_fileserver", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_passwort_report", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "passwort_report", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_passwort_wordvorlagen", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "passwort_wordvorlagen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_dokumente", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_dokumente", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_excel_vorlagen", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_excel_vorlagen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_reportdateien", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_reportdateien", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_temporaer_dokumente", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_temporaer_dokumente", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_word_vorlagen", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_word_vorlagen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rdmstunden", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rdmstunden", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_db", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_db", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_server", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_server", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_showlogin", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showlogin", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_user_fileserver", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "user_fileserver", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_user_report", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "user_report", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_version", System.Data.SqlDbType.VarChar, 3, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "version", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlConnection2
|
|
'
|
|
Me.SqlConnection2.ConnectionString = "data source=tg339012;initial catalog=edoka_parameter;integrated security=SSPI;per" & _
|
|
"sist security info=False;user id=dbedoka11;workstation id=TG602655;packet size=4" & _
|
|
"096"
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[pv_applikation_insert]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection2
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@applikationsnr", System.Data.SqlDbType.Int, 4, "applikationsnr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@version", System.Data.SqlDbType.VarChar, 3, "version"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_server", System.Data.SqlDbType.VarChar, 50, "dokument_server"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@net_use", System.Data.SqlDbType.Bit, 1, "net_use"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@logisches_laufwerk", System.Data.SqlDbType.VarChar, 10, "logisches_laufwerk"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_dokumente", System.Data.SqlDbType.VarChar, 50, "pfad_dokumente"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_word_vorlagen", System.Data.SqlDbType.VarChar, 50, "pfad_word_vorlagen"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_excel_vorlagen", System.Data.SqlDbType.VarChar, 50, "pfad_excel_vorlagen"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_temporaer_dokumente", System.Data.SqlDbType.VarChar, 50, "pfad_temporaer_dokumente"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@user_fileserver", System.Data.SqlDbType.VarChar, 50, "user_fileserver"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@passwort_fileserver", System.Data.SqlDbType.VarChar, 50, "passwort_fileserver"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@passwort_wordvorlagen", System.Data.SqlDbType.VarChar, 50, "passwort_wordvorlagen"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@passwort_excelvorlagen", System.Data.SqlDbType.VarChar, 50, "passwort_excelvorlagen"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_db", System.Data.SqlDbType.VarChar, 50, "report_db"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_server", System.Data.SqlDbType.VarChar, 50, "report_server"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_reportdateien", System.Data.SqlDbType.VarChar, 50, "pfad_reportdateien"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@user_report", System.Data.SqlDbType.VarChar, 50, "user_report"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@passwort_report", System.Data.SqlDbType.VarChar, 50, "passwort_report"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@barcode_font", System.Data.SqlDbType.VarChar, 50, "barcode_font"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcfont_groesse", System.Data.SqlDbType.Int, 4, "bcfont_groesse"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mailadresse", System.Data.SqlDbType.VarChar, 50, "mailadresse"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@showlogin", System.Data.SqlDbType.Bit, 1, "showlogin"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@letzter_cold_run", System.Data.SqlDbType.DateTime, 8, "letzter_cold_run"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@letzer_ams_run", System.Data.SqlDbType.DateTime, 8, "letzer_ams_run"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@letzter_rdm_run", System.Data.SqlDbType.DateTime, 8, "letzter_rdm_run"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@letzter_host_run", System.Data.SqlDbType.DateTime, 8, "letzter_host_run"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rdmstunden", System.Data.SqlDbType.Int, 4, "rdmstunden"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@coldstunden", System.Data.SqlDbType.Int, 4, "coldstunden"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsstunden", System.Data.SqlDbType.Int, 4, "amsstunden"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hoststunden", System.Data.SqlDbType.Int, 4, "hoststunden"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@coldsystem", System.Data.SqlDbType.VarChar, 50, "coldsystem"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@colduser", System.Data.SqlDbType.VarChar, 50, "colduser"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@coldpassword", System.Data.SqlDbType.VarChar, 50, "coldpassword"))
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[pv_applikation_select]"
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection2
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
'
|
|
'SqlUpdateCommand1
|
|
'
|
|
Me.SqlUpdateCommand1.CommandText = "[pv_applikation_update]"
|
|
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand1.Connection = Me.SqlConnection2
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@applikationsnr", System.Data.SqlDbType.Int, 4, "applikationsnr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@version", System.Data.SqlDbType.VarChar, 3, "version"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_server", System.Data.SqlDbType.VarChar, 50, "dokument_server"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@net_use", System.Data.SqlDbType.Bit, 1, "net_use"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@logisches_laufwerk", System.Data.SqlDbType.VarChar, 10, "logisches_laufwerk"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_dokumente", System.Data.SqlDbType.VarChar, 50, "pfad_dokumente"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_word_vorlagen", System.Data.SqlDbType.VarChar, 50, "pfad_word_vorlagen"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_excel_vorlagen", System.Data.SqlDbType.VarChar, 50, "pfad_excel_vorlagen"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_temporaer_dokumente", System.Data.SqlDbType.VarChar, 50, "pfad_temporaer_dokumente"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@user_fileserver", System.Data.SqlDbType.VarChar, 50, "user_fileserver"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@passwort_fileserver", System.Data.SqlDbType.VarChar, 50, "passwort_fileserver"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@passwort_wordvorlagen", System.Data.SqlDbType.VarChar, 50, "passwort_wordvorlagen"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@passwort_excelvorlagen", System.Data.SqlDbType.VarChar, 50, "passwort_excelvorlagen"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_db", System.Data.SqlDbType.VarChar, 50, "report_db"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_server", System.Data.SqlDbType.VarChar, 50, "report_server"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@pfad_reportdateien", System.Data.SqlDbType.VarChar, 50, "pfad_reportdateien"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@user_report", System.Data.SqlDbType.VarChar, 50, "user_report"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@passwort_report", System.Data.SqlDbType.VarChar, 50, "passwort_report"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@barcode_font", System.Data.SqlDbType.VarChar, 50, "barcode_font"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcfont_groesse", System.Data.SqlDbType.Int, 4, "bcfont_groesse"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mailadresse", System.Data.SqlDbType.VarChar, 50, "mailadresse"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@showlogin", System.Data.SqlDbType.Bit, 1, "showlogin"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@letzter_cold_run", System.Data.SqlDbType.DateTime, 8, "letzter_cold_run"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@letzer_ams_run", System.Data.SqlDbType.DateTime, 8, "letzer_ams_run"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@letzter_rdm_run", System.Data.SqlDbType.DateTime, 8, "letzter_rdm_run"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@letzter_host_run", System.Data.SqlDbType.DateTime, 8, "letzter_host_run"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rdmstunden", System.Data.SqlDbType.Int, 4, "rdmstunden"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@coldstunden", System.Data.SqlDbType.Int, 4, "coldstunden"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsstunden", System.Data.SqlDbType.Int, 4, "amsstunden"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hoststunden", System.Data.SqlDbType.Int, 4, "hoststunden"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@coldsystem", System.Data.SqlDbType.VarChar, 50, "coldsystem"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@colduser", System.Data.SqlDbType.VarChar, 50, "colduser"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@coldpassword", System.Data.SqlDbType.VarChar, 50, "coldpassword"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_applikationsnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "applikationsnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_amsstunden", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsstunden", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_barcode_font", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "barcode_font", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcfont_groesse", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcfont_groesse", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_coldpassword", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "coldpassword", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_coldstunden", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "coldstunden", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_coldsystem", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "coldsystem", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_colduser", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "colduser", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_server", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_server", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hoststunden", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hoststunden", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_letzer_ams_run", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "letzer_ams_run", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_letzter_cold_run", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "letzter_cold_run", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_letzter_host_run", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "letzter_host_run", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_letzter_rdm_run", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "letzter_rdm_run", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_logisches_laufwerk", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "logisches_laufwerk", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mailadresse", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mailadresse", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_net_use", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "net_use", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_passwort_excelvorlagen", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "passwort_excelvorlagen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_passwort_fileserver", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "passwort_fileserver", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_passwort_report", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "passwort_report", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_passwort_wordvorlagen", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "passwort_wordvorlagen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_dokumente", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_dokumente", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_excel_vorlagen", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_excel_vorlagen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_reportdateien", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_reportdateien", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_temporaer_dokumente", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_temporaer_dokumente", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_pfad_word_vorlagen", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "pfad_word_vorlagen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rdmstunden", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rdmstunden", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_db", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_db", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_server", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_server", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_showlogin", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showlogin", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_user_fileserver", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "user_fileserver", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_user_report", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "user_report", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_version", System.Data.SqlDbType.VarChar, 3, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "version", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlConnection1
|
|
'
|
|
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
|
"station id=SHU;packet size=4096"
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
'
|
|
'TextBox8
|
|
'
|
|
Me.TextBox8.Location = New System.Drawing.Point(192, 208)
|
|
Me.TextBox8.Name = "TextBox8"
|
|
Me.TextBox8.Size = New System.Drawing.Size(64, 20)
|
|
Me.TextBox8.TabIndex = 18
|
|
Me.TextBox8.Text = "TextBox18"
|
|
'
|
|
'Label39
|
|
'
|
|
Me.Label39.Location = New System.Drawing.Point(16, 208)
|
|
Me.Label39.Name = "Label39"
|
|
Me.Label39.Size = New System.Drawing.Size(192, 23)
|
|
Me.Label39.TabIndex = 17
|
|
Me.Label39.Text = "Zeitintervall Mail/Dokument-Check"
|
|
'
|
|
'frmApplication
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(408, 509)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1, Me.ToolBar1})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmApplication"
|
|
Me.Text = "frmApplication"
|
|
Me.TabControl1.ResumeLayout(False)
|
|
Me.TabPage1.ResumeLayout(False)
|
|
Me.GroupBox2.ResumeLayout(False)
|
|
Me.TabPage2.ResumeLayout(False)
|
|
Me.GroupBox4.ResumeLayout(False)
|
|
Me.GroupBox3.ResumeLayout(False)
|
|
Me.GroupBox1.ResumeLayout(False)
|
|
Me.TabPage3.ResumeLayout(False)
|
|
Me.TabPage4.ResumeLayout(False)
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Dim dapp As New edokadb.clsApplikation()
|
|
Dim tapp As DataTable
|
|
|
|
Private Sub frmApplication_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim i As Long
|
|
dapp.cpMainConnectionProvider = conn
|
|
tapp = dapp.SelectAll
|
|
For i = 0 To tapp.Rows.Count - 1
|
|
If tapp.Rows(i).Item("mandantnr") = Globals.MandantNr Then
|
|
dapp.iApplikationsnr = New SqlInt32(CType(tapp.Rows(i).Item("applikationsnr"), Int32))
|
|
dapp.SelectOne()
|
|
End If
|
|
Next
|
|
Me.txtcoldsystem.Text = dapp.sColdsystem.Value
|
|
Me.txtcoldusesr.Text = dapp.sColduser.Value
|
|
Me.txtcoldpassword.Text = dapp.sColdpassword.Value
|
|
Me.txtApplikationsnr.Text = dapp.iApplikationsnr.Value
|
|
Me.txtVersion.Text = dapp.sVersion.Value
|
|
Me.txtDokumentserver.Text = dapp.sDokument_server.Value
|
|
Me.cNetUse.Checked = dapp.bNet_use.Value = True
|
|
Me.txtLogischesLaufwerk.Text = dapp.sLogisches_laufwerk.Value
|
|
Me.txtDokumentpfad.Text = dapp.sPfad_dokumente.Value
|
|
Me.txtWordVerzeichnis.Text = dapp.sPfad_word_vorlagen.Value
|
|
Me.txtExcelVerzeichnis.Text = dapp.sPfad_excel_vorlagen.Value
|
|
Me.txtTempVerz.Text = dapp.sPfad_temporaer_dokumente.Value
|
|
Me.txtServerUser.Text = dapp.sUser_fileserver.Value
|
|
Me.txtServerPasswort.Text = dapp.sPasswort_fileserver.Value
|
|
Me.txtWordPasswort.Text = dapp.sPasswort_wordvorlagen.Value
|
|
Me.txtExcelPasswort.Text = dapp.sPasswort_excelvorlagen.Value
|
|
|
|
Me.txtReportDB.Text = dapp.sReport_db.Value
|
|
Me.txtReportServer.Text = dapp.sReport_server.Value
|
|
Me.txtRPTPfad.Text = dapp.sPfad_reportdateien.Value
|
|
Me.txtReportUser.Text = dapp.sUser_report.Value
|
|
Me.txtReportPasswort.Text = dapp.sPasswort_report.Value
|
|
|
|
Me.txtAlertMail.Text = dapp.sMailadresse.Value
|
|
Me.cLogin.Checked = dapp.bShowlogin.Value = True
|
|
Me.txtColdbatch.Text = dapp.daLetzter_cold_run.Value
|
|
Me.txtAMS.Text = dapp.daLetzer_ams_run.Value
|
|
Me.txtRDM.Text = dapp.daLetzter_rdm_run.Value
|
|
Me.TXTHost.Text = dapp.daLetzter_host_run.Value
|
|
Me.cbRDM.Text = dapp.iRdmstunden.Value
|
|
Me.cbAMS.Text = dapp.iAmsstunden.Value
|
|
Me.cbColdbatch.Text = dapp.iColdstunden.Value
|
|
Me.cbHOST.Text = dapp.iHoststunden.Value
|
|
Me.TextBox7.Text = dapp.iAnzahl_cold_viewer.Value.ToString
|
|
Me.TextBox8.Text = dapp.iZeitintervall_in_Minuten.Value.ToString
|
|
Me.txtBCFont.Text = dapp.sBarcode_font.Value
|
|
Me.cBCSize.Text = dapp.iBcfont_groesse.Value
|
|
Me.Passwort.Text = dapp.sPasswort_vorlagenverwaltung.Value
|
|
|
|
tapp.Dispose()
|
|
dapp.Dispose()
|
|
End Sub
|
|
|
|
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
|
Case 0
|
|
Me.Close()
|
|
Case 1
|
|
save_data()
|
|
End Select
|
|
End Sub
|
|
|
|
Public Sub save_data()
|
|
Dim i As Long
|
|
dapp.cpMainConnectionProvider = conn
|
|
dapp.iApplikationsnr = New SqlInt32(CType(Me.txtApplikationsnr.Text, Int32))
|
|
dapp.SelectOne()
|
|
dapp.sVersion = New SqlString(CType(Me.txtVersion.Text, String))
|
|
dapp.sDokument_server = New SqlString(CType(Me.txtDokumentserver.Text, String))
|
|
If Me.cNetUse.Checked Then dapp.bNet_use = New SqlBoolean(CType(1, Boolean)) Else dapp.bNet_use = New SqlBoolean(CType(0, Boolean))
|
|
dapp.sLogisches_laufwerk = New SqlString(CType(Me.txtLogischesLaufwerk.Text, String))
|
|
dapp.sPfad_dokumente = New SqlString(CType(Me.txtDokumentpfad.Text, String))
|
|
dapp.sPfad_word_vorlagen = New SqlString(CType(Me.txtWordVerzeichnis.Text, String))
|
|
dapp.sPfad_excel_vorlagen = New SqlString(CType(Me.txtExcelVerzeichnis.Text, String))
|
|
dapp.sPasswort_wordvorlagen = New SqlString(CType(Me.txtWordPasswort.Text, String))
|
|
dapp.sPasswort_excelvorlagen = New SqlString(CType(Me.txtExcelPasswort.Text, String))
|
|
dapp.sPfad_temporaer_dokumente = New SqlString(CType(Me.txtTempVerz.Text, String))
|
|
dapp.sPasswort_fileserver = New SqlString(CType(Me.txtServerPasswort.Text, String))
|
|
dapp.sUser_fileserver = New SqlString(CType(Me.txtServerUser.Text, String))
|
|
|
|
dapp.sColdsystem = New SqlString(CType(Me.txtcoldsystem.Text, String))
|
|
dapp.sColduser = New SqlString(CType(Me.txtcoldusesr.Text, String))
|
|
dapp.sColdpassword = New SqlString(CType(Me.txtcoldpassword.Text, String))
|
|
|
|
dapp.sReport_db = New SqlString(CType(Me.txtReportDB.Text, String))
|
|
dapp.sReport_server = New SqlString(CType(Me.txtReportServer.Text, String))
|
|
dapp.sPfad_reportdateien = New SqlString(CType(Me.txtRPTPfad.Text, String))
|
|
dapp.sUser_report = New SqlString(CType(Me.txtReportUser.Text, String))
|
|
dapp.sPasswort_report = New SqlString(CType(Me.txtReportPasswort.Text, String))
|
|
|
|
dapp.sMailadresse = New SqlString(CType(Me.txtAlertMail.Text, String))
|
|
If Me.cLogin.Checked Then dapp.bShowlogin = New SqlBoolean(CType(1, Boolean)) Else dapp.bShowlogin = New SqlBoolean(CType(0, Boolean))
|
|
dapp.iRdmstunden = New SqlInt32(CType(Me.cbRDM.Text, Int32))
|
|
dapp.iAmsstunden = New SqlInt32(CType(Me.cbAMS.Text, Int32))
|
|
dapp.iHoststunden = New SqlInt32(CType(Me.cbHOST.Text, Int32))
|
|
dapp.iColdstunden = New SqlInt32(CType(Me.cbColdbatch.Text, Int32))
|
|
dapp.sBarcode_font = New SqlString(CType(Me.txtBCFont.Text, String))
|
|
dapp.iBcfont_groesse = New SqlInt32(CType(Me.cBCSize.Text, Int32))
|
|
dapp.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
dapp.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
dapp.sPasswort_vorlagenverwaltung = New SqlString(CType(Me.Passwort.Text, String))
|
|
dapp.iAnzahl_Cold_Viewer = New SqlInt32(CType(Val(Me.TextBox7.Text), String))
|
|
dapp.iZeitintervall_in_Minuten = New SqlInt32(CType(Val(Me.TextBox8.Text), Int32))
|
|
'conn.OpenConnection()
|
|
dapp.Update()
|
|
'conn.CloseConnection(False)
|
|
tapp.Dispose()
|
|
dapp.Dispose()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Dim F As New FrmPasswortWechsel()
|
|
F.Passwort = Me.Passwort.Text
|
|
F.ShowDialog()
|
|
If F.DialogResult = DialogResult.OK Then
|
|
Me.Passwort.Text = F.Passwort
|
|
End If
|
|
F.Dispose()
|
|
End Sub
|
|
End Class
|