edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:35:31 +02:00
parent 853d96140f
commit 41b13fe4b0
38 changed files with 603 additions and 256 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -711,7 +711,7 @@
End Try
Try
cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID] FROM [ezoll].[dbo].[zzPersonal] ORDER BY UserID ", False, "EZOLL", True)
cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID] FROM [zzPersonal] ORDER BY UserID ", False, "EZOLL", True)
Catch ex As Exception
MsgBox("EZOLL Problem")
tbcntr.SelectedIndex = 0

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.1.1")>
<Assembly: AssemblyFileVersion("1.0.1.0")>
<Assembly: AssemblyVersion("1.0.1.2")>
<Assembly: AssemblyFileVersion("1.0.1.2")>

20
UID/My Project/Resources.Designer.vb generated
View File

@@ -375,6 +375,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property hjhjkghjklghjkhz678678568() As String
Get
Return ResourceManager.GetString("hjhjkghjklghjkhz678678568", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -395,15 +404,6 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property llllllll() As String
Get
Return ResourceManager.GetString("llllllll", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -644,7 +644,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.9.7 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.9.9 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

4
UID/My Project/Resources.resx
View File

@@ -188,7 +188,7 @@
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.9.7</value>
<value>1.9.9</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -298,7 +298,7 @@
<data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="llllllll" xml:space="preserve">
<data name="hjhjkghjklghjkhz678678568" xml:space="preserve">
<value />
</data>
</root>

6
UID/usrctlProcedures.vb
View File

@@ -734,7 +734,7 @@ Public Class usrctlProcedures
Dim dr As SqlDataReader
Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
@@ -788,7 +788,7 @@ Public Class usrctlProcedures
Try
Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [AVISO].[dbo].[Aviso] where [Ankunft] between @DatVon and @DatBis and Grenzstelle='SUB'", cn)
@@ -1032,7 +1032,7 @@ Public Class usrctlProcedures
Dim sql = "DELETE FROM Firmen WHERE FirmaID = '" & Blatt.Range("A" & index).Value.ToString & "'"
Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
Using cmd As New SqlCommand(sql, cn)
Try