AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_16.03.2

Browse Source
This commit is contained in:
SchreiberM 2016-03-16 14:18:39 +01:00
parent 66da9331dc
commit 9b2a80d017
4 changed files with 5457 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD-Record-Organiser/ClassDatabase.vb
View File

@ -138,6 +138,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()

5452
app/DD-Record-Organiser/frmConstructorDesigner.en.resx Normal file
View File

File diff suppressed because it is too large Load Diff

4
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@ -177,7 +177,7 @@
Catch ex As Exception
MsgBox("unexpected Error in ControlDragDrop: " & vbNewLine, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub Groupbox_DragDrop(sender As Object, e As DragEventArgs)
@ -232,7 +232,7 @@
frmTool_ControlProperties.Instance.Close()
frmTool_ControlDesigner.Instance.Close()
Catch ex As Exception
End Try

3
app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb
View File

@ -135,13 +135,14 @@ Public Class frmUserKonfig_AddUsers
End Sub
Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) Handles clbUsers.SelectedIndexChanged
ToolTipController1.HideHint()
Dim userstring As String = clbUsers.SelectedItem.ToString
Dim userldap As UserPrincipal = clbUsers.SelectedItem
Dim PRENAME As String = userldap.GivenName
Dim NAME As String = userldap.Surname
Dim USERNAME As String = userldap.SamAccountName
Dim email As String = userldap.EmailAddress
ToolTipController1.HideHint()
ToolTipController1.ShowHint("Used ldap paramters:", userstring & USERNAME & vbNewLine & email, DevExpress.Utils.ToolTipLocation.RightCenter)
End Sub