Wie Felder aus einer Tabelle in eine andere kopieren

Wie Felder aus einer Tabelle in eine andere kopieren

Wie Felder aus einer Tabelle in eine andere kopieren : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie Sie Daten in Tabellen zu duplizieren.

Delphi-Entwickler

Copyright Pinnacle Publishing, Inc. Alle Rechte vorbehalten. Wie Felder aus einer Tabelle in eine andere kopieren
Steve Zimmelman
In fast jeder Anwendung, die ich zu entwickeln, kommt es eine Zeit, wann ich Felder aus einer Tabelle in eine andere kopieren muss. Carl Hewitt und ich schrieb eine Funktion namens XferFields (siehe Listing 1) um es einfach zu bilden. XferFields ähnelt der Scatter und Gather Befehle gefunden in FoxProEwith der Ausnahme, dass es keine Speichervariablen beteiligt, und die Übertragung der Informationen erfolgt auf die aktuellen Datensätze befindet sich in der Quell- und Ziel.
XferFields alle Felder in der Datenquelle auf alle Felder des gleichen Namens und DataType in der Zieltabelle übertragen wird, und gibt einen booleschen Wert false nur, wenn alle Felder in der Zieltabelle nicht aktualisiert werden. Jedes Mal, wenn ein Feld Transfer versuchen fehlschlägt, Integer Variable erhöht wird. Wenn die Anzahl der Schrittweite der Zieltabelle FieldCount entspricht, wird davon ausgegangen, dass keine Felder übertragen wurden und etwas nicht stimmt. Sie können dann die Ausnahme behandeln sowieso sehen Sie in Ihrem Code passen.
Eine einfache Verwendung für XferFields könnte wie folgt aussehen:

Wenn XferFields(Table1,Table2) dann
Table2.Post
Sonst beginnen
Table2.Cancel;
ShowMessage ('XferFields ist fehlgeschlagen!');
Ende;
Codebeispiel 1. Die XferFields-Funktion.
// **********************************************
Funktion XferFields
-Version: Delphi 2.0
Geschrieben von: Carl Hewitt & Steve Zimmelman
Überträgt alle Felder in der Datenquelle auf jeder
Felder die gleichen Namen und Typ in der
Ziel.
Wenn die Zieltabelle im Durchsuchen-Zustand befindet,

Es wird im Bearbeitungszustand platziert und zurückgegeben
die gleiche Weise.
// **********************************************
Funktion XferFields (Quelle, Dest: TDataSet): Boolean;
Var
Ich: Integer;
nErr: Integer;
F1: TField;
F2: TField;
BEGIN
nErr wird verwendet, um erfolglos zu zählen
Feld-Übertragungen
nErr: = 0;
Sicherstellen Sie, dass die Zieltabelle in ist
Zustand zu bearbeiten.
Wenn (Dest.State = DsBrowse) dann
Dest.Edit;
For i: = 0, (Dest.FieldCount-1) fangen
F1: = Dest.FindField ()
Dest.Fields[i]. FieldName);
F2: = Source.FindField ()
Dest.Fields[i]. FieldName);
Wenn (f1 <> gleich null) und (f2-<> gleich null) dann beginnen
Versuchen Sie
Transfer-Feldwert
F1.Value: = f2.value;
Außer
Inkrement-Fehleranzahl
Inc(nErr);
Ende;
Ende;
Ende;
Wenn (nErr = Dest.FieldCount) dann
keine Felder wurden übertragen und
Ergebnis wird falsch sein.
Ergebnis: = (nErr < Dest.FieldCount);
Ende;