Interbase
Erstellen der Client-Anwendung mit Delphi
Nach dem Start von Delphi einfach ein neues Projekt anlegen. Das Formular FMain nennen. Anschließend gleich abspeichern, damits einfach wird, in den Pfad in der unser Datenbankfile liegt und die Unit1 als UMain abspeichern, das Projekt als IBTuto.
In Delphi unter -> Datei -> Neu… das Symbol „Datenmodul“ suchen und einen Doppelklick drauf. Im Objektinspektor das Datenmodul in DM umbenennen und beim Abspeichern die Unit2 in UDM umbenennen.
Als nächstes setzt du folgende Komponenten des Registers „Interbase“ in das Datenmodul: TIBDataBase, TIBTransaction und TIBDataSet, und benenne die Komponenten in IBAdressen, IBTrans und Adresse um.
Bei IBAdressen werden folgende Eigenschaften gesetzt:
DatabaseName: Pfad auf unsere Datenbank Default Transaction: IBTrans SQL-Dialect: 3 LoginPrompt: false Params: user_name=EuerUserName password=EuerPasswort lc_ctype=iso8859_1
Bei IBTrans folgende Eigenschaft setzen:
Default Database: IBAdressen
Bei Adressen folgende Eigenschaften setzen:
Database: IBAdressen SelectSQL: SELECT * FROM ADRESSE
Damit die restlichen SQL-Statements Delphi selber erstellt, einfach folgendes durchführen:
Mit der rechten Maustaste Adresse selektieren und auf den Eintrag „DataSet-Editor“ klicken. In der ListBox „Schlüsselfelder“ den Eintrag „ID“ markieren und in der anderen ListBox alle Felder markieren. Klick dann auf den Button „SQL generieren“.
Jetzt sind alle SQL-Statements fast richtig. Da das Attribut ID als Primärschlüssel definiert wurde, sollte es nicht im späteren Betrieb verändert werden. Deshalb auf das Register „Ändern“ (im Objektinspektor zu finden unter ModifySQL)wechseln und aus dem SQL-Statement die Zeile „ID = :ID,“ nach dem „Set“ entfernen, so dass folgender SQL-Befehl drinsteht:
update ADRESSE set NAME = :NAME, VORNAME = :VORNAME, STRASSE = :STRASSE, PLZ = :PLZ, ORT = :ORT, EMAIL = :EMAIL where ID = :OLD_ID
Leider ist in der Version 4.52 anscheinend ein Bug enthalten, da bei mir manchmal das SQL-Statement „Aktualisieren“ fehlerhaft ist. Normalerweise muss dort ein Select-Statement stehen, in dem alle Attribute unserer Tabelle aufgeführt sind. Wenn da nur ein schlichtes
Select from Adresse Where ID=:ID
steht, bitte zwischen „Select“ und „from“ ein „*“ einfügen, damit alles funktioniert.
Nach diesen Einstellungen musst du noch dafür sorgen, dass in unseren Primärschlüssel automatisch ein Wert eingetragen wird. Öffne dazu das Einstellungsfenster der Eingenschaft „GeneratorField“ der Komponente „Adresse“. Hier folgende Einstellungen vornehmen:
Generatoren: GEN_Adresse Feld: ID
und dann das Fenster wieder schließen.
Um die Datenbankkomponenten von Delphi für die Visualisierung benutzen zu können, benötigst du noch ein TDataSource. Den Namen ändern in „DSAdresse“ und als DataSet „Adresse“ einstellen.
So, die Datenbankverbindungskomponenten sind vorbereitet, jetzt kommt die Oberfläche dran.