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 SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD SQLcommand.CommandText = ExecuteCMD
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()

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

File diff suppressed because it is too large Load Diff

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

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