Kleine Adress-Datenbank

[Luckie]

Ich hatte hier schon mal eine Adress-Datenbank vorgestellt. Dies ist nun die nachfolge Version der Adress-Datenbank. Ich hhabe mich dazu entschlossen sie von Grund auf neu zu programmieren, weil ich mittlerweile meine alten Code schrecklich fand und weil mir die Oberfläche zu groß war. Noch sind nicht alle Features der alten Version implementiert. So fehlt noch der Upload der XML-Datei mit den Kontakten und die Möglichkeit die Kontakte auszudrucken. Sprich es gehen nur die grundlegenden Funktionen einer Adress-Datenbank:
- Kontakt anlegen
- Kontakt löschen
- Kontakt editieren
- Kontakte filtern

Ich habe versucht die Oberfläche möglichst minimalistisch zu halten. Sie besteht nur aus einer Listbox und einer Toolbar mit den nötigen Schaltflächen. In der Listbox direkt werden der Name und die Telefonnumer angezeigt, weil ich denke, dass man die Telefonnumer am häufigsten braucht. Die Details zu einem Kontakt lassen sich entweder durch einen Doppelklick auf den Eintrag anzeigen oder durch betätigen der Return-Taste oder über das Kontexktmenü der Listbox. Über das Kontextmenü der Listbox lässt sich der Kontakt auch löschen, was man auch mit der entsprechenden Schaltfläche in der Toolbar machen kann oder über die Tastenkombination [Strg + Entf]. Das Kontextmenü bietet noch die Möglichkeit eine E-Mail an den Kontokt zu schreiben mit dem Standardemailprogramm, wenn mindestens eine E-Mail Adresse hinterlegt ist.

Die Kontakte lassen sich auch filtern, wobei der Filter nur stupide nach den eingegeben Buchstaben filtert. Wird also "he" eingegeben, werden alle Kontakte angezeigt, in denen die Buchstabenkombination "he" vorkommt.

Die Daten werden in einer XML-Datei im Programmverzeichnis gespeichert. Im Programmverzeichnis deshalb, weil das Programm für meinen USB-Stick gedacht ist. Bis auf das Feld Bemerkung werden alle Daten im Klartext gespeichert. Das Feld Bemerkung wird Base64 codiert, damit man auch Zeilenumbrüche mit speichern kann.

Im Anhang das Programm mit Quellcode und ein Screenshot.

[mquadrat]

Wenn du das + in der Telefonnummer nicht mal speicherst, woher weißt du dann das da eins hin muss?

[Sir Rufo]

Zitat von mquadrat:

Wenn du das + in der Telefonnummer nicht mal speicherst, woher weißt du dann das da eins hin muss?

Die Telefonnummern wird nicht geändert, sondern nur entsprechend formatiert angezeigt

@Luckie: Da wo ich eine Adresse bearbeiten kann, da sollte man mit ESC dieses Form wieder verlassen können (alternativ zu Klick auf Schließen)

cu

Oliver

[mquadrat]

Zitat von Sir Rufo:

Die Telefonnummern wird nicht geändert, sondern nur entsprechend formatiert angezeigt

Sicher?!

Zitat:

Ich wollte eine einheitliche Darstelliung, deswegen wird alles ausser den Klammern rausgelöscht bei der Anzeige und beim Abspeichern. Ist da snicht so gut?

Okok, ich geb's zu, ich hab das Programm noch gar nicht ausprobiert

[Sir Rufo]

Zitat von Luckie:

Zitat:

2. Bei Eingabe einer Telefonnummer [phone] wird in der Liste 49(3333)123434 angezeigt, das ist doof ...

Ich wollte eine einheitliche Darstelliung, deswegen wird alles ausser den Klammern rausgelöscht bei der Anzeige und beim Abspeichern. Ist da snicht so gut?

Besser wäre doch alles ausser +-()0123456789 rauszuwerfen und dann vor und nach den Klammern ein Leerzeichen einzufügen " (" und ") ".
Gerade für Durchwahlen wird ja das "-"-Zeichen benutzt, was ja auch die Lesbarkeit erhöht.

Die internationale Schreibweise für eine Telefonnummer ist ja "+<Ländercode> (<Ortsvorwahl>) <Hauptnummer>[-<Durchwahl>]"

cu

Oliver

[Luckie]

Zitat von Sir Rufo:

Besser wäre doch alles ausser +-()0123456789 rauszuwerfen und dann vor und nach den Klammern ein Leerzeichen einzufügen " (" und ") ".

OK, + und - wurden noch aufgenommen. Das mit dem Leerzeichen nach der Klammer ist nicht ganz so schenll zu lösen.

[Sir Rufo]

Zitat von Luckie:

Zitat von Sir Rufo:

Besser wäre doch alles ausser +-()0123456789 rauszuwerfen und dann vor und nach den Klammern ein Leerzeichen einzufügen " (" und ") ".

OK, + und - wurden noch aufgenommen. Das mit dem Leerzeichen nach der Klammer ist nicht ganz so schenll zu lösen.

Nach deiner Formatierung nur noch ...

Delphi-Quellcode:

TelefonNr := StringReplace( TelefonNr, '(', ' (', [ rfReplaceAll ] );
TelefonNr := StringReplace( TelefonNr, ')', ') ', [ rfReplaceAll ] );

[Luckie]

Ja gut, auf die einfachsten Sachen kommt man nicht.

[Pfoto]

Hallo Luckie,

ich finde die Eingabe der Daten nicht wirklich flüssig,
als 10-Finger-Schreiber muss ich immer absetzen und die
Pfeiltaste nach unten drücken, um zum nächsten Feld
zu gelangen.
Wenn z.B. nach einem Return der Cursor ins nächste
Eingabefeld der Tabelle springen würde, fände ich das besser.


Was noch ein tolles Feature wäre:
Der User kann sich einmalig eine eigene Struktur der gewünschten
Felder definieren. So könnte man das Teil wirklich ganz individuell
an sein Bedürfnisse anpassen.

Edit: Ich sehe gerade den Code -- die Struktur steckt ja quasi
fest in einer Klasse. Da wird eine automatische Anpassung wohl
so ziemlich unmöglich werden.

Gruß
Jürgen

[Luckie]

Neue Version hochgeladen mit den Änderungswünschen und Verbesserungsvorschlägen.

@Pfoto: Bei einem Stringgrid ist es Standard, dass man mit den Pfeiltasten in die nächste Zelle gelangt. Und da smit der eigenen Struktur: Das sollte eigentlich nur eine kleine Adressdatenbank für mich sein.

[Sir Rufo]

Der Speicher-Button kommt nicht mehr ... und bei "Wollen Sie die Änderungen speichern?" -> Ja wird trotzdem nicht gespeichert

Delphi-Quellcode:

procedure TDetails.FormClose(Sender: TObject; var Action: TCloseAction);
var
  ret: DWORD;
begin
  if Modified then
  begin
    ret := MessageBox(Self.Handle, PChar(rsModifiedQuery), PChar(rsModifiedCaption), MB_ICONQUESTION or MB_YESNOCANCEL);
    case ret of
      ID_YES: Close;
      ID_NO:
      begin
        Modified := False;
        Close;
      end;
      ID_CANCEL: ;  // nichts machen
    end;
  end;
end;

Ist irgendwie auch sinnentleert oder ... da passiert ja nix ...

ok, ausser bei ID_YES und ID_NO ein DoppelClose (es soll ja eh schon geschlossen werden)
bei ID_CANCEL wird nichts gemacht -> das Form wird geschlossen

Delphi-Quellcode:

type
  TDetails = class(TForm)
    Bevel1: TBevel;
    btnCancel: TButton;  // aber wo ist denn btnSave?
    sgDetails: TStringGrid;
    StatusBar1: TStatusBar;
    memBem: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure memBemChange(Sender: TObject);
    procedure sgDetailsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
    procedure FormCreate(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    IsNewContact: Boolean;
    Modified: Boolean;  // nicht besser als Property? dann könnte man darüber btnSave.Enabled steuern (gut, den gibts ja nicht mehr)
  end;