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 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" Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH") ' '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