Initial commit
This commit is contained in:
Binary file not shown.
|
After Width: | Height: | Size: 389 B |
@@ -0,0 +1,156 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmImportExport
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.btnExport = New System.Windows.Forms.Button()
|
||||
Me.btnImport = New System.Windows.Forms.Button()
|
||||
Me.GrpExport = New System.Windows.Forms.GroupBox()
|
||||
Me.btnDoExport = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
|
||||
Me.GrpImport = New System.Windows.Forms.GroupBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.txtImportDatei = New System.Windows.Forms.TextBox()
|
||||
Me.GrpExport.SuspendLayout()
|
||||
Me.GrpImport.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btnExport
|
||||
'
|
||||
Me.btnExport.Location = New System.Drawing.Point(12, 12)
|
||||
Me.btnExport.Name = "btnExport"
|
||||
Me.btnExport.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnExport.TabIndex = 0
|
||||
Me.btnExport.Text = "Export"
|
||||
Me.btnExport.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnImport
|
||||
'
|
||||
Me.btnImport.Location = New System.Drawing.Point(93, 12)
|
||||
Me.btnImport.Name = "btnImport"
|
||||
Me.btnImport.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnImport.TabIndex = 1
|
||||
Me.btnImport.Text = "Import"
|
||||
Me.btnImport.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GrpExport
|
||||
'
|
||||
Me.GrpExport.Controls.Add(Me.GrpImport)
|
||||
Me.GrpExport.Controls.Add(Me.btnDoExport)
|
||||
Me.GrpExport.Controls.Add(Me.Label1)
|
||||
Me.GrpExport.Controls.Add(Me.ComboBox1)
|
||||
Me.GrpExport.Location = New System.Drawing.Point(12, 41)
|
||||
Me.GrpExport.Name = "GrpExport"
|
||||
Me.GrpExport.Size = New System.Drawing.Size(607, 197)
|
||||
Me.GrpExport.TabIndex = 2
|
||||
Me.GrpExport.TabStop = False
|
||||
Me.GrpExport.Visible = False
|
||||
'
|
||||
'btnDoExport
|
||||
'
|
||||
Me.btnDoExport.Location = New System.Drawing.Point(9, 69)
|
||||
Me.btnDoExport.Name = "btnDoExport"
|
||||
Me.btnDoExport.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnDoExport.TabIndex = 3
|
||||
Me.btnDoExport.Text = "Eportieren"
|
||||
Me.btnDoExport.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(6, 22)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(70, 13)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Dokumenttyp"
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(100, 19)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(288, 21)
|
||||
Me.ComboBox1.TabIndex = 0
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'GrpImport
|
||||
'
|
||||
Me.GrpImport.Controls.Add(Me.txtImportDatei)
|
||||
Me.GrpImport.Controls.Add(Me.Button1)
|
||||
Me.GrpImport.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GrpImport.Name = "GrpImport"
|
||||
Me.GrpImport.Size = New System.Drawing.Size(607, 188)
|
||||
Me.GrpImport.TabIndex = 4
|
||||
Me.GrpImport.TabStop = False
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(1, 17)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 0
|
||||
Me.Button1.Text = "Import-Datei"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtImportDatei
|
||||
'
|
||||
Me.txtImportDatei.Location = New System.Drawing.Point(81, 19)
|
||||
Me.txtImportDatei.Name = "txtImportDatei"
|
||||
Me.txtImportDatei.Size = New System.Drawing.Size(458, 20)
|
||||
Me.txtImportDatei.TabIndex = 1
|
||||
'
|
||||
'frmImportExport
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(631, 240)
|
||||
Me.Controls.Add(Me.GrpExport)
|
||||
Me.Controls.Add(Me.btnImport)
|
||||
Me.Controls.Add(Me.btnExport)
|
||||
Me.Name = "frmImportExport"
|
||||
Me.Text = "Dokumenttyp Export / Import"
|
||||
Me.GrpExport.ResumeLayout(False)
|
||||
Me.GrpExport.PerformLayout()
|
||||
Me.GrpImport.ResumeLayout(False)
|
||||
Me.GrpImport.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents btnExport As Windows.Forms.Button
|
||||
Friend WithEvents btnImport As Windows.Forms.Button
|
||||
Friend WithEvents GrpExport As Windows.Forms.GroupBox
|
||||
Friend WithEvents btnDoExport As Windows.Forms.Button
|
||||
Friend WithEvents Label1 As Windows.Forms.Label
|
||||
Friend WithEvents ComboBox1 As Windows.Forms.ComboBox
|
||||
Friend WithEvents OpenFileDialog1 As Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents SaveFileDialog1 As Windows.Forms.SaveFileDialog
|
||||
Friend WithEvents GrpImport As Windows.Forms.GroupBox
|
||||
Friend WithEvents txtImportDatei As Windows.Forms.TextBox
|
||||
Friend WithEvents Button1 As Windows.Forms.Button
|
||||
End Class
|
||||
@@ -0,0 +1 @@
|
||||
C1.Win.C1Input.C1Button, C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a
|
||||
@@ -0,0 +1,121 @@
|
||||
Imports System.IO
|
||||
Imports System.Data.Sql
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class DB
|
||||
|
||||
|
||||
Public dsDaten As New DataSet
|
||||
Public dsdaten1 As New DataSet
|
||||
Public dsdatenblacklist As New DataSet
|
||||
Public dadaten As SqlDataAdapter
|
||||
Public dadatenblacklist As SqlDataAdapter
|
||||
Dim sql As String
|
||||
|
||||
|
||||
|
||||
Public Function Get_DokumentTYP(ByVal dokumenttypnr As Integer) As Boolean
|
||||
Try
|
||||
dsDaten.Tables.Clear()
|
||||
sql = "Select dokumenttypnr, bezeichnung from dokumenttyp where dokumenttypnr=" + dokumenttypnr.ToString
|
||||
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
|
||||
dadaten.Fill(dsDaten, "Dokumenttypen")
|
||||
If dsDaten.Tables(0).Rows.Count < 1 Then Return False Else Return True
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Get_Mitarbeiter(ByVal Mitarbeiternr As Integer) As Boolean
|
||||
Try
|
||||
dsDaten.Tables.Clear()
|
||||
sql = "Select mitarbeiternr from mitarbeiter where aktiv=1 and mitarbeiternr=" + Mitarbeiternr.ToString
|
||||
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
|
||||
dadaten.Fill(dsDaten, "mitarbeiter")
|
||||
If dsDaten.Tables(0).Rows.Count < 1 Then Return False Else Return True
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Get_Doktyp_Ma(ByVal Doktypnr As Integer, ByVal Mitarbeiternr As Integer) As Boolean
|
||||
Try
|
||||
dsDaten.Tables.Clear()
|
||||
sql = "Select dokumenttypnr from dokumenttyp where dokumenttypnr=" + Doktypnr.ToString + " and fachverantwortung=" + Mitarbeiternr.ToString
|
||||
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
|
||||
dadaten.Fill(dsDaten, "mitarbeiter")
|
||||
If dsDaten.Tables(0).Rows.Count < 1 Then Return False Else Return True
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Update_Doktype(ByVal Doktypnr As Integer, ByVal manr As Integer) As Boolean
|
||||
Try
|
||||
Dim sqlcmd As New SqlCommand()
|
||||
Dim sqlconn As New SqlConnection(Globals.sConnectionstring)
|
||||
sqlcmd.CommandText = "Update dokumenttyp set fachverantwortung=" + manr.ToString + " where dokumenttypnr=" + Doktypnr.ToString '+ " and fachverantwortung=" + maalt.ToString
|
||||
sqlcmd.Connection = sqlconn
|
||||
sqlconn.Open()
|
||||
sqlcmd.ExecuteNonQuery()
|
||||
sqlconn.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class DB_Connection
|
||||
|
||||
''' <summary>
|
||||
''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
|
||||
''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
|
||||
''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
|
||||
'''
|
||||
''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Shared Sub New()
|
||||
Dim path As String = ""
|
||||
Dim fc As Integer = 0
|
||||
If fc < 2 Then Globals.ConnectionFilename = "edokaconn.cfg"
|
||||
Dim ofile As System.IO.File
|
||||
Dim oread As System.IO.StreamReader
|
||||
|
||||
oread = ofile.OpenText(ApplicationPath() + "\" + Globals.ConnectionFilename)
|
||||
sConnectionstring = oread.ReadLine
|
||||
sConnectionstring = Crypto.DecryptText(sConnectionstring, "HutterundMueller")
|
||||
sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
|
||||
Globals.sConnectionstring = sConnectionstring
|
||||
oread.Close()
|
||||
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select beschreibung from pluginparameter where pluginparamnr=1", connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
da.Fill(ds, "params")
|
||||
path = ds.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
path = ""
|
||||
CB = Nothing
|
||||
End Try
|
||||
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
|
||||
Globals.ConnectionFilename = "edokaconn.cfg"
|
||||
oread = ofile.OpenText(path + "\" + Globals.ConnectionFilename)
|
||||
sConnectionstring = oread.ReadLine
|
||||
sConnectionstring = Crypto.DecryptText(sConnectionstring, "HutterundMueller")
|
||||
sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
|
||||
Globals.sConnectionstring = sConnectionstring
|
||||
oread.Close()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>Form1</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>0</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,118 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmData
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmData))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.DokumentAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(725, 24)
|
||||
Me.MenuStrip1.TabIndex = 4
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'SchliessenToolStripMenuItem
|
||||
'
|
||||
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
|
||||
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
|
||||
Me.SchliessenToolStripMenuItem.Text = "Schliessen"
|
||||
'
|
||||
'C1Daten
|
||||
'
|
||||
Me.C1Daten.AllowUpdate = False
|
||||
Me.C1Daten.AlternatingRows = True
|
||||
Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C1Daten.FetchRowStyles = True
|
||||
Me.C1Daten.FilterBar = True
|
||||
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||
Me.C1Daten.Location = New System.Drawing.Point(0, 24)
|
||||
Me.C1Daten.Name = "C1Daten"
|
||||
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1Daten.RecordSelectorWidth = 16
|
||||
Me.C1Daten.Size = New System.Drawing.Size(725, 223)
|
||||
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.C1Daten.TabIndex = 17
|
||||
Me.C1Daten.Text = "C1TrueDBGrid2"
|
||||
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DokumentAnzeigenToolStripMenuItem, Me.DokumentBearbeitenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 70)
|
||||
'
|
||||
'DokumentAnzeigenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentAnzeigenToolStripMenuItem.Name = "DokumentAnzeigenToolStripMenuItem"
|
||||
Me.DokumentAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
|
||||
Me.DokumentAnzeigenToolStripMenuItem.Text = "Dokument anzeigen"
|
||||
'
|
||||
'DokumentBearbeitenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentBearbeitenToolStripMenuItem.Name = "DokumentBearbeitenToolStripMenuItem"
|
||||
Me.DokumentBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
|
||||
Me.DokumentBearbeitenToolStripMenuItem.Text = "Dokument bearbeiten"
|
||||
'
|
||||
'frmData
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(725, 247)
|
||||
Me.Controls.Add(Me.C1Daten)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Name = "frmData"
|
||||
Me.Text = "Dokumente"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MenuStrip1 As Windows.Forms.MenuStrip
|
||||
Friend WithEvents SchliessenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ContextMenuStrip1 As Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents DokumentAnzeigenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents DokumentBearbeitenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
|
||||
End Class
|
||||
Reference in New Issue
Block a user