Lazarus, Free Pascal und Datenbanken

Artikelserie:
Teil 01: Lazarus und Free Pascal mit Firebird SQL (Windows)

Teil 01.01 Firebird Datenbank installieren und erstellen
Firebird SQL in der Version 2.5.8 herunterladen und installieren, kontrollieren ob der SQL Server läuft und eine Datenbank erstellen.
Teil 01.011 Firebird Datenbank mit Lazarus und Freepascal mit einer eigenen GUI erstellen.
Teil 01.02 Firebird Datenbank verwalten mit
- Database Workbech SQL 4 Lite for Firebird
- weitere Tools folgen
Teil 01.03 Datenbank AWUSERS.FDB Tabellen anlegen
Teil 01.04 Passwort Generator MD5 und Salt entwickeln
Teil 01.05 GUI für Login entwickeln (TForm und ShowModal)
Teil 01.06 Lazarus DB Komponenten für Firebird (IBConnection, SQLTransaction1, SQLQuery1)
Teil 01.07 Klasse DBConnection und die Prozeduren DBConnect und DBClose.
Teil 01.08 Select Abfrage mit Lazarus, Free Pascal und einer Firebird Datenbank
Teil 01.09 Login Daten abfragen und mit der Eingabe vergleichen
Teil 01.10 GUI Nutzerdaten
Teil 01.10 GUI Datenabfrage Select mit Lazarus in einer ListView und Editfeldern
Teil 01.11 Firebird DB Update mit Lazarus und Free Pascal in einer ListView und Editfeldern
Teil 01.12 Firebird DB Insert mit Lazarus und Free Pascal einen neuen Eintrag erstellen
Teil 01.12 Firebird DB Delete mit Lazarus und Free Pascal Theorie Allgemein und zur DSGVO
Teil 01.13 Firebird DB Delete mit Lazarus und Free Pascal einen Eintrag aus der Datenbank löschen

Teil 02: Lazarus und Free Pascal mit Firebird SQL (Linux)

Teil 02.01 Firebird DB auf Linux Mint installieren
Teil 02.02 Firebird DB auf Linux Ubuntu Desktop installieren
Teil 02.03 Firebird DB auf Linux Ubuntu Server installieren
Teil 02.03 Firebird DB Login Programm aus Teil 01 für Linux Mint anpassen
Teil 02.04 Firebird DB Login Programm aus Teil 01 für Linux Ubuntu Desktop anpassen
Teil 02.05 Firebird DB als Linux Ubuntu Server Datenbank für Windows Software
Teil 02.06 Firebird DB als Linux Ubuntu Server Datenbank für Linux Mint
Teil 02.07 Firebird DB als Linux Ubuntu Server Datenbank für Linux Ubuntu Server

Teil 03: Lazarus und Free Pascal mit MySQL XAMPP (Windows) (Planung folgt)

Teil 04: Lazarus und Free Pascal mit MySQL Server ( Linux Ubuntu Server) (Planung folgt)

Herunterladen von Firebird

Als erstes benötigen wir den Firebird 2.5.8 Server, diesen kannst du kostenlos unter der folgenden Adresse herunterladen.

Installation von Firebird

Abb. 1.00 Firebird installieren

Danach gehst du in deinen Download Ordner und klickst die herunter geladene .exe Datei mit einem Rechtsklick an und gehst auf als Administrator installieren.

Abb. 1.01 Firebird installieren

Jetzt folgt eine Warnmeldung den der Herausgeber der .exe Datei ist nicht bekannt. Um hier bei Microsoft bekannt zu sein müsste der Entwickler der Datei ein SSl Zertifikat haben und dieses authentifizieren lassen. Dies ist bei dem OpenSource Projekt Firebird nicht der Fall. Der Download von der Projektwebseite www.firebirdsql.org ist allerdings sicher.

Ein String ist eine Zeichenkette um heraus zu finden, wie lang dieser String ist gibt es die Funktion length().

Nachfolgend zwei Beispiele:

Beispiel 01: Ein einfaches Programm (Konsolenprogramm) Länge eines Strings messen:

01: program awstringlength;
02: var
03: deinText : string;
04: begin
05: writeln('Bitte gebe deinen Text ein!');
06: // Eingabe
07: readln(deinText);
08: writeln('Dein Text ist ', length(deinText),' Zeichen lang.');
09: readln;
10: .end

Zeile 01 ist der Programmname unter dem ich diese kleine Anwendung abgespeichert habe. In Zeile 02 leite ich mit var die Variablendeklaration ein. In Zeile 03 wird die Variable deinText als String festgesetzt. In Zeile 04 wird mit dem Begin der Anweisungsteil eingeleitet. Zeile 05 gibt den Text in den Einfachen Anführungszeichen aus. In Zeile 06 steht ein Kommentar das nun die Eingabe kommt. In Zeile 07 lesen wir einen Text und damit unseren String ein, den wir messen wollen. Jetzt in Zeile 08 geben wir dein Text Dein Text ist X Zeichen lang aus. Beim X wird unsere Variable deinText gemessen und als Integer Wert ausgegeben. Dies ist an dieser Stelle sehr wichtig den im zweiten Beispiel werden wir eine kleine Anwendung schreiben in der Wir die Ausgabe in einem Editfeld darstellen wollen. Dabei müssen wir den Integer Wert erst einmal erst in einem String umwandeln. Das readln in Zeile 09 hält das Programm noch einmal an so, dass wir die Ausgabe in der Konsole sehen können. In Zeile 10 wird das Programm beendet.

Beispiel 02: Eine Anwendung mit GUI*

Abb. 1.00 Sting messen Anwendung

Du siehst hier links in Abbildung 1.00 die Anwendung für die Messung des Strings. Der Text in der Caption lautet „Bitte gebe deinen Text ein.“ der Name des TLabel lautet: LblTextEingabe. Das Editfeld Trägt den Name EdtTextEingabe. Der Button ist mit der Caption String messen beschriftet und trägt den Name BtnStringMessen. Das zweite Edittfeld trägt den Name EdtStringZeichenZahl. Ich werde die das gesamte Programm unter dem Namen awstringlength.lpi und awstringlengthu1.pas abspeichern und dir zum Download zur Verfügung stellen.
Jetzt klicke auf den Button dann gehst du im Objektinspektor auf Ereignisse und erstelltest für den Button ein OnClick Ereignis.

...
35: procedure TForm1.BtnStringMessenClick(Sender: TObject);
36: begin
37: EdtStringZeichenZahl.Text := IntToStr(length(EdtTextEingabe.Text));
38: end;
...

Der nachfolgende Quelltext ist das Onklick Ereignis, dass ich für den Button hinzugefügt habe. In Zeile 35 wird die Prozedure für den Button festgelegt und eingeleitet. Zeile 36 das begin leitet den Anweisungsteil für die Prozedure ein. Zeile 37 EdtStringZeichenZahl.Text wird der Text der Zahl aus dem Integer der Längenmessung von EdtTextEingabe.Text übergeben. Die Funktion length() misst hierbei die Länge des Textes der im Editfeld EdtTextEingabe vom Anwender eingegeben wurde. Da wir zu diesem Zeitpunkt einen Integer also eine Ganzzahl erhalten müssen wir diese zu einem String umwandeln. Das machen wir indem wir dieses Ergebnis mit der Funktion IntToStr() umwandeln.
Anbei die einfache Anwendung (Konsolenprogramm) und die Anwendung mit GUI* zum Herunterladen.

1. Einfache Anwendung (Konsolenprogramm) herunterladen
2. Anwendung (GUI* Anwendung) herunterladen

*GUI = General User Interface deutsch Benutzeroberfläche.

Ich habe das Buch der blaue Ozean als Strategie – Wie man neue Märkte schafft, wo es keine Konkurrenz gibt aufgrund des Covers erst auf den dritten Blick gekauft. Ich habe das Buch mitlerweile komplett gelesen und meine Erwartungen nach dem kauf an das Buch waren sehr hoch. Ich wollte aus dem Buch erfahren, wie man mit vorhandenen Ressourcen, Produkten und Dienstleistungen einen neuen Markt schafft und diesen für eine lange Zeit absichert.

Die Autoren teilen den Markt in zwei Bereiche auf die roten Ozeane und die blauen Ozeane. Ein roter Ozean ist blutgetränkt aufgrund der dort herrschenden Konkurrenz und Preiskampfes. Ein blauer Ozean verschiebt die Grenzen des Marktes und schafft einen neuen Markt und aktiviert eine vollkommen neue Kundengruppe. Dazu kommt das diese blauen Ozeane ein großes Wachstumspotential aufweisen und in vielen Bereichen lange abgesichert werden können. Hier in den blauen Ozean gilt nach dem Autor wenig Konkurrenz und hohe Gewinne. Dafür findet er eine Menge bekannter Beispiele und erklärt wie auf du in der Lage bist dich aus deinem roten Ozean zu befreien.

Durch die vielen Beispielen macht das lesen des Buches sehr interessant. Die Handwerkzeuge die der Autor einen gibt sind sehr Wertvoll. Das Buch ist nach meinem Fazit sehr wertvoll und ergänzt die Literatur zum Thema Strategie sehr gut. In vielen Bereichen muss ich aber auch sagen habe ich mich gefragt ob auch ein kleines Unternehmen hiervon profitiert. Die im Buch beschriebenen Beispiele warengroße Multinationale Unternehmen oder große Behörden. Eine solche Strategie muss abgesichert werden, die vom Autor erklärenden Lösungen sind allerdings auch nicht sehr billig. Für einen Kleinbetrieb wie meinen, dürfte die Umsetzung sehr schwer sein. Die Anregungen für die permanente Erneuerung und Vertiefung der eigenen Innovationskraft und die Horizont Erweiterung, die ich in diesem Buch erfahren habe waren allerdings so spannend das ich trotz der kleinen Kritik das Buch nochmal lesen werde und auch mit in meine Analysen für meine Unternehmen Strategie mitberücksichtigen werde.

Gesamtbewertung für das Buch würde ich 8/10 Punkten geben und dir als Einstufung lesenswert mit auf den Weg geben. Dieses Buch ist in meinem Bücherregal. Was ich sonst noch so gelesen habe, findest du in meinem Bücherregal.

*Für Werbung die hier angezeigt wird erhalte ich eine kleine Provision, für dich macht der Preis keinen Unterschied. Solltest du dich entscheiden über diesen Link ein Buch zu kaufen unterstützt du diese Webseite direkt damit. Ich werde alle eingenommenen Werbeeinnahmen unter Amazon und YouTube in Hardware und die Software für diese Webseite und in das dahinter stehende Projekt investieren.

Vielen Dank für deine Unterstützung!

Werbung*: Bildlink und Link zum Buch bei Amazon.

Der Blaue Ozean als Strategie: Wie man neue Märkte schafft, wo es keine Konkurrenz gibt