Wenn Sie Datenbankanwendungen mit Tabellen entwickeln, die MEMO-Felder enthalten, werden Sie feststellen, dass die TDBGrid-Komponente standardmäßig nicht den Inhalt eines MEMO-Felds in einer DBGrid-Zelle anzeigt.
Dieser Artikel bietet eine Idee, wie Sie das Problem mit TMemoField lösen können (mit ein paar weiteren Tricks) ...
TMemoField
Memofelder werden verwendet, um langen Text oder Kombinationen aus Text und Zahlen darzustellen. Beim Erstellen von Datenbankanwendungen mit Delphi wird das TMemoField-Objekt verwendet, um ein Memofeld in einem Dataset darzustellen. TMemoField kapselt das grundlegende Verhalten von Feldern, die Textdaten oder eine beliebige Länge enthalten. In den meisten Datenbanken ist die Größe des Memofelds durch die Größe der Datenbank begrenzt.
Während Sie den Inhalt eines MEMO-Felds in einer TDBMemo-Komponente anzeigen können, zeigt das TDBGrid standardmäßig nur "(Memo)" für den Inhalt solcher Felder an.
Um tatsächlich Text (aus dem MEMO-Feld) in der entsprechenden DBGrid-Zelle anzuzeigen, müssen Sie nur eine einfache Codezeile hinzufügen ...
Nehmen wir zum Zweck der nächsten Diskussion an, Sie haben eine Datenbanktabelle mit dem Namen "TestTable" mit mindestens einem MEMO-Feld mit dem Namen "Data".
OnGetText
Um den Inhalt eines MEMO-Felds im DBGrid anzuzeigen, müssen Sie eine einfache Codezeile in das Feld einfügen OnGetText Veranstaltung. Der einfachste Weg, den OnGetText-Ereignishandler zu erstellen, besteht darin, zur Entwurfszeit den Feldeditor zu verwenden, um eine persistente Feldkomponente für das Memofeld zu erstellen:
- Verbinden Sie Ihre TDataset-Nachkommenkomponente (TTable, TQuery, TADOTable, TADOQuery ...) mit der Datenbanktabelle "TestTable".
- Doppelklicken Sie auf die Dataset-Komponente, um den Feldeditor zu öffnen
- Fügen Sie das MEMO-Feld zur Liste der persistenten Felder hinzu
- Wählen Sie im Feldeditor das Feld MEMO aus
- Aktivieren Sie die Registerkarte Ereignisse im Objektinspektor
- Doppelklicken Sie auf das OnGetText-Ereignis, um den Ereignishandler zu erstellen
Fügen Sie die nächste Codezeile hinzu (unten kursiv geschrieben):
Prozedur TForm1.DBTableDataGetText (
Absender: TField;
var Text: String;
DisplayText: Boolean);
Start
Text: = Kopieren (DBTableData. AsString, 1, 50);
Hinweis: Das Dataset-Objekt heißt "DBTable", das MEMO-Feld heißt "DATA" und daher heißt das mit dem MEMO-Datenbankfeld verbundene TMemoField standardmäßig "DBTableData". Durch Zuweisung DBTableData. AsString zum Text Als Parameter des OnGetText-Ereignisses weisen wir Delphi an, den gesamten Text aus dem MEMO-Feld in einer DBGrid-Zelle anzuzeigen.
Du kannst auch Passen Sie die DisplayWidth an des Memofeldes auf einen angemesseneren Wert.
Hinweis: Da MEMO-Felder ziemlich GROSS sein können, ist es eine gute Idee, nur einen Teil davon anzuzeigen. Im obigen Code werden nur die ersten 50 Zeichen angezeigt.
Bearbeiten in einem separaten Formular
Standardmäßig erlaubt das TDBGrid keine Bearbeitung von MEMO-Feldern. Wenn Sie die Bearbeitung "an Ort und Stelle" aktivieren möchten, können Sie Code hinzufügen, um auf eine Benutzeraktion zu reagieren, die ein separates Fenster anzeigt, in dem die Bearbeitung mithilfe einer TMemo-Komponente möglich ist.
Der Einfachheit halber öffnen wir ein Bearbeitungsfenster, wenn die EINGABETASTE in einem MEMO-Feld in einem DBGrid "gedrückt" wird.
Verwenden wir die Taste nach unten Ereignis einer DBGrid-Komponente:
Prozedur TForm1.DBGrid1KeyDown (
Absender: TObject;
var Schlüssel: Wort;
Shift: TShiftState);
Start
wenn Key = VK_RETURN dann
Start
wenn DBGrid1.SelectedField = DBTableData dann
mit TMemoEditorForm. Create (nil) do
Versuchen
DBMemoEditor. Text: = DBTableData. AsString;
ShowModal;
DBTable. Bearbeiten;
DBTableData. AsString: = DBMemoEditor. Text;
schließlich
Kostenlos;
Ende;
Ende;
Ende;
Hinweis 1: Die "TMemoEditorForm" ist eine sekundäre Form, die nur eine Komponente enthält: "DBMemoEditor" (TMemo).
Hinweis 2: Das "TMemoEditorForm" wurde aus der Liste "Formulare automatisch erstellen" im Dialogfeld "Projektoptionen" entfernt.
Mal sehen, was im KeyDown-Ereignishandler von DBGrid1 passiert:
- Wenn ein Benutzer die ENTER-Taste drückt (wir vergleichen den Key-Parameter mit dem VK_RETURN virtueller Schlüsselcode) [Schlüssel = VK_RETURN],
- Wenn das aktuell ausgewählte Feld im DBGrid unser MEMO-Feld ist (DBGrid1.SelectedField = DBTableData),
- Wir erstellen die TMemoEditorForm [TMemoEditorForm. Erstellen (null)],
- Senden Sie den Wert des MEMO-Felds an die TMemo-Komponente [DBMemoEditor. Text: = DBTableData. AsString],
- Zeigen Sie das Formular modal an [ShowModal],
- Wenn ein Benutzer mit der Bearbeitung fertig ist und das Formular schließt, müssen wir die Datenaste in den Bearbeitungsmodus [DBTable. Bearbeiten],
- Um den bearbeiteten Wert wieder unserem MEMO-Feld [DBTableData. AsString: = DBMemoEditor. Text].
Hinweis: Wenn Sie nach weiteren Artikeln und Verwendungstipps zu TDBGrid suchen, besuchen Sie unbedingt: "TDBGrid zum MAX"Tipps Sammlung.