Home > Handbuch > Entwicklerhilfe > Pascal-Referenz > TCRM TCRM |
Kontaktdatenbank (Customer-Relationship-Management)
Erzeugen Sie keine eigene Instanz dieses Objektes, greifen Sie über die "OfficeManager.CRM" auf das Datenbankobjekt zu.
Syntax
OfficeManager.CRM.Anweisung
TCRM
ActiveDatasetContact |
TFDQuery |
Read |
Geöffnete Kontakt-Tabelle |
Connection |
TFDConnection |
Read |
|
ConnectionString |
String |
Read |
|
DatabaseName |
String |
Read |
Dateiname |
function CreateDataset: TFDQuery |
Dataset-Komponente innerhalb der Datenbank erzeugen |
function DatasetByTableName |
Dataset einer Tabelle |
AddContact(FieldValueList: TStrings): string; |
Neuen Kontakt hinzufügen und GUID als String zurückgeben. |
procedure ExecSQL(Command: String) |
SQL-Befehle ausführen |
function FieldAttributeByFieldName(FieldName: string): TFieldAttribute |
Kontaktattribut-Objekt über Datenbank-Feldnamen |
Beschreibung
Zugriff auf die geöffnete Kontaktdatenbank (Customer-Relationship-Management).
Beispiele
ShowMessage(OfficeManager.CRM.DatabaseName);
s := OfficeManager.CRM.Connection.ExecSQLScalar('SELECT email FROM contact WHERE matchcode="Softwarebüro Krekeler"');
i := OfficeManager.CRM.Connection.ExecSQLScalar('SELECT count(*) FROM contact WHERE company={s Musterfirma GmbH}');
// Kontakt anlegen
sl := TStringList.Create;
try
sl.Add('matchcode={s Mustermann, Paula, Architektin}');
sl.Add('company={s Mustermann Architektur}');
sl.Add('mydatefield={d 2024-12-24}');
sl.Add('myintfield=123');
sl.Add('recognition={s in.belegerkennung.alles.klein.ohne.leerzeichen}');
LGUID := OfficeManager.CRM.AddContact(sl);
finally
sl.Free;
end;
Siehe auch