Welcome
Guest
, you are in:
<root>
•
Anmelden
CP Wiki
Navigation
¶
CP Solutions
Startseite
domizil+
Startseite
Administration
Administration
Neue Seite
Alle Seiten
Kategorien
Navigations-Pfade
Datei Manager
Neuer Benutzer
Suche im wiki
»
Zurück
procedure append
Modified on 02/02/2009 14:10
by CPABED
Categorized as
Plattform
'''Syntax:'''{BR} {{{{'''procedure''' append;}}}}{BR} {BR} '''Beschreibung:'''{BR} {BR} Die Methode Append fügt einen neuen, leeren Datensatz am Ende der Datenmenge hinzu. Bei Datenmengen, die eine Bearbeitung erlauben, können Sie mit Append folgende Aktionen durchführen: 1 Einen neuen leeren Datensatz am Ende der Datenmenge öffnen. 2 Der neue wird zum aktiven Datensatz gemacht. Nach dem Aufruf von Append kann die Anwendung den Benutzern die Eingabe von Daten in die Felder des neuen Datensatzes ermöglichen. Anschließend können die Änderungen mit Post in in die Datenbank oder das Änderungsprotokoll eingetragen werden (Client-Datenmengen können die im Protokoll enthaltenen Änderungen durch einen Aufruf von ApplyUpdates in die Datenbank schreiben). Ein neu hinzugefügter Datensatz wird auf eine von drei Arten in die Datenbank eingetragen: Bei indizierten Paradox- und dBASE-Tabellen wird der Datensatz anhand seiner Indexposition in die Datenmenge eingefügt. Bei nicht indizierten Paradox- und dBASE-Tabellen wird der Datensatz am Ende der Datenmenge hinzugefügt. Bei SQL-Datenbanken ist die physikalische Position des Datensatzes von der jeweiligen Implementierung abhängig. Ist die Tabelle indiziert, wird der Index mit den neuen Datensatzinformationen aktualisiert. {BR} '''Beispiel:'''{BR} {BR} <code pascal> //In diesem Beispiel wird ein neuer Datensatz an eine Tabelle oder Client-Datenmenge angehängt, wenn der Benutzer auf eine Schaltfläche klickt. //Die beiden Felder ALPHANUMERIC und INTEGER werden mit dem Inhalt zweier Eingabefelder gefüllt. procedure TForm1.Button1Click(Sender: TObject); begin SampleTable.Append; SampleTable.FieldValues['ALPHANUMERIC'] := Edit1.text; SampleTable.FieldValues['INTEGER'] := StrToInt(Edit2.text); SampleTable.Post; end; </code>
ScrewTurn Wiki
version 3.0.1.400. Some of the icons created by
FamFamFam
.