Zusammenfassung

• Seiteneigenschaften (1 geändert, 0 hinzugefügt, 0 gelöscht)

Details

Seiteneigenschaften

Inhalt

...	...	@@ -555,7 +555,8 @@
555	555
556	556	**Codebeispiel**
557	557
558		-{{code language="None"}}procedure UserSelect;
	558	+{{code language="None"}}
	559	+Procedure UserSelect;
559	559	var
560	560	ltemp : TStringList;
561	561	begin
...	...	@@ -569,8 +569,48 @@
569	569	end
570	570	ltemp.Free();
571	571	end;
572		- {{/code}}
573		-
	573	+{{/code}}
574	574
	575	+Zum Anzeigen der Werte wechseln Sie nun in die Design-Ansicht und markieren das Suchergebnisfeld. Im linken Fensterbereich wählen Sie den Reiter Events und tragen bei OnClick die gerade erstellte Prozedur ein.
575	575
576		-
	577	+=== Anpassen einzelner Werte ===
	578	+
	579	+Erstellen Sie nun einen Button in der Design-Ansicht, mit dem Sie die Daten ändern wollen. Im Beispiel wird nur die Telefonnummer aktualisiert.
	580	+
	581	+{{figure}}
	582	+(% style="text-align:center" %)
	583	+[[image:hmfile_hash_a04bb2f8.png]]
	584	+
	585	+{{figureCaption}}
	586	+Beispiel des Formulars - Ändern
	587	+{{/figureCaption}}
	588	+{{/figure}}
	589	+
	590	+Führen Sie nun in der Design-Ansicht einen Doppelklick auf den neu erstellten Button aus um in die Code-Ansicht zu wechseln.
	591	+
	592	+Definieren Sie nun je eine Liste für das Attribut und die Ergebnismenge sowie einen Integer. Nachdem Sie geprüft haben, welches Ergebnis ausgewählt und angezeigt wurde, können Sie den im Anzeigefeld eingetragenen Wert (in diesem Beispiel die Telefonnummer) im markierten Ergebnis aktualisieren. Hierzu führen Sie einen LDAPmodify aus. Als notwendige Parameter geben Sie den Host, den Port, die [[Authentifizierungsmethode>>url:https://manual.aagon.com/acmp/de/62/parameter.htm#authentifizierung]], den User, das Passwort, das anzupassende AD-Object und den anzupassenden Wert an. Abschließend geben Sie an, ob der eingegebene Wert den vorhandenen überschreiben soll (true) oder ob der eingegebene Wert an den bereits vorhandenen angefügt werden soll (false).
	593	+
	594	+**Codebeispiel**
	595	+
	596	+{{code language="None"}}
	597	+procedure ModifyLDAPObjectTelephonenumberClick;
	598	+var
	599	+ lattrib, ltemp : TStringList;
	600	+ strUserDN : String;
	601	+ intEC : Integer;
	602	+begin
	603	+ lattrib := TStringList.Create();
	604	+ ltemp := TStringList.Create();
	605	+ strUserDN := '';
	606	+
	607	+ ltemp.commatext := escapevalues(llist.Strings[ListBox1.ItemIndex]);
	608	+
	609	+ strUserDN := ltemp.Values['distinguishedName'];
	610	+ lattrib.Add('telephonenumber='+edTelephonenumber.text);
	611	+
	612	+ intEC := LDAPModifyAttributes(strHost, strPort, 2, strUser, strPwd, strUserDN, lattrib, false);
	613	+
	614	+ lattrib.Free();
	615	+ ltemp.Free();
	616	+end;
	617	+{{/code}}