<\/p>\n
Autor: Martin Hoffmann, Düsseldorf<\/p>\n
<\/b><\/p>\n
Zur Organisation von Büchern und Zeitschriften in Unternehmen bietet sich eine Literaturverwaltung an, in der die Literatur nicht nur erfasst, sondern auch weiterverarbeitet werden kann. Dazu zählt beispielsweise das automatische Erstellen von Literatur- und Signaturlisten. Der folgende Beitrag beschreibt eine Datenbank, die besondere Zusatzfunktionen enthält, mit denen Sie den Nutzwert für die Anwender wesentlich erhöhen.<\/b><\/p>\n
Die Literaturverwaltung, die in den folgenden Abschnitten beschrieben wird, soll Ihnen zeigen, wie Sie generell eine Literaturverwaltung aufbauen können. Dabei lernen Sie, wie Sie einfache und komplexe Suchfunktionen in die Datenbank integrieren, wie Sie die Eingabe und Anzeige von Rezensionen gestalten und die Literaturdaten in Form eines Literaturanhangs in Word ausgeben. Außerdem erfahren Sie, wie Sie benutzerabhängige Literaturlisten speichern.<\/p>\n
Die folgende Abbildung (siehe Bild 1) zeigt die Hauptformulare der fertigen Literaturverwaltung. Das linke Formular dient der Erfassung der Literatur und das rechte der Verwaltung der Listen.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Die Hauptfenster des Literatur-Managers<\/span><\/b><\/p>\n Im Folgenden werden die wichtigsten Tabellen der Datenbank und deren Beziehungen kurz erläutert. Neben diesen Tabellen finden Sie in der Datenbank Detailtabellen wie tblDokumenttypen, tblVerlage oder tblBenutzer, deren Felder und Inhalte selbsterklärend sind.<\/p>\n Die Literatur-Tabelle<\/b><\/p>\n Die Tabelle tblLiteratur stellt das zentrale Element der Datenstruktur dar. In ihr werden alle Bücher und Zeitschriften mit den wichtigsten Feldern wie Titel, Verlag, Erscheinungsjahr und Dokumenttyp abgelegt. Ferner lassen sich Schlüsselwörter für die spätere Suche definieren. über das Feld IstInternerBestand kennzeichnen Sie ein Buch, das in der eigenen Bibliothek zu finden ist oder das Sie selbst angeschafft haben. Wenn Sie das Kennzeichen weglassen, handelt es sich um ein Buch an einem externen Standort, z. B. in einer Universitätsbibliothek. Bild 2 zeigt alle Felder der Tabelle tblLiteratur.<\/p>\n Autoren<\/b><\/p>\n Jedem Werk können mehrere Autoren mit verschiedenen Funktionen (z. B. Autor, Co-Autor etc.) zugewiesen werden. Alle Autoren werden zentral in der Tabelle tblAutoren mit Vor- und Nachnamen einmal gespeichert. Die Verknüpfung zu den Werken erfolgt über die Tabelle tblLiteraturAutoren. In dieser Tabelle wird auch die Funktion festgelegt.<\/p>\n <\/b><\/p>\n Bild 2: Die Datenfelder der Tabelle tblLiteratur<\/span><\/b><\/p>\n Standorte und Signaturen<\/b><\/p>\n Die Datenbank ist so ausgelegt, dass jedes Werk an mehreren Standorten verfügbar sein kann. Wenn ein Werk zum Beispiel gerade in der hausinternen Bibliothek vergriffen ist, können Sie in der Datenbank die weiteren möglichen Standorte und die Signatur des Werks am jeweiligen Standort einsehen.<\/p>\n <\/b><\/p>\n Bild 3: Das Datenmodell für Standorte und Signaturen<\/span><\/b><\/p>\n Die Standorte werden in der Tabelle tblStandorte mit den Feldern Standortname, Beschreibung und Ort gepflegt. In diese Tabelle können Sie auch Standorte eingeben, die sich in Ihrem Unternehmen befinden. Solche Standorte können beispielsweise Abteilungen sein. Die unternehmensinternen Standorte werden über das Feld IstInternerStandort gekennzeichnet.<\/p>\n Die Verknüpfung der Standorte mit den Werken erfolgt mit einer n:m-Beziehung über die Tabelle tblSignaturen (siehe Bild 3). In diese Tabelle geben Sie für jeden Standort eines Werks die Signatur ein.<\/p>\n über die Tabelle tblVerbleiborte können Sie für jedes Werk eine Verteilerliste anlegen. In dieser können für unterschiedliche Zeiträume die Standorte eines Werks abgelegt werden. So könnte eine Verteilerliste für die nächste Ergänzungslieferung oder eine PC-Zeitschrift wie in Tab. 1 aussehen.<\/p>\n <\/b><\/p>\n Bild 4: Die Tabellenstruktur für Rezensionen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 5: n:m-Beziehung für Verweise zwischen Werken<\/span><\/b><\/p>\n Standort<\/b><\/p>\n<\/td>\n Von-Datum<\/b><\/p>\n<\/td>\n Bis-Datum<\/b><\/p>\n<\/td>\n<\/tr>\n EDV Abteilung<\/p>\n<\/td>\n 1.4.2002<\/p>\n<\/td>\n 5.4.2002<\/p>\n<\/td>\n<\/tr>\n Vertrieb<\/p>\n<\/td>\n 8.4.2002<\/p>\n<\/td>\n 12.4.2002<\/p>\n<\/td>\n<\/tr>\n Marketing<\/p>\n<\/td>\n 15.4.2002<\/p>\n<\/td>\n 19.4.2002<\/p>\n<\/td>\n<\/tr>\n Bibliothek<\/p>\n<\/td>\n 20.4.2002<\/p>\n<\/td>\n Tab. 1: Beispiel für Verbleiborte einer PC-Zeitschrift<\/b><\/p>\n Rezensionen<\/b><\/p>\n Die Literaturverwaltung sieht vor, dass jeder Benutzer der Datenbank eine Wertung zu einem Werk abgeben kann. Dazu werden in der Tabelle tblRezensionen die LiteraturID, die BenutzerID, das Anlagedatum mit Uhrzeit und der Rezensionstext gespeichert. Außerdem kann eine Wertung zwischen 1 (sehr schlecht) und 5 (sehr gut) im Feld WertungID eingegeben werden. Die Wertung wird in diesem Beispiel in einer eigenen Tabelle tblWertungen gespeichert, da nicht die Zahl selbst im Formular erscheinen soll, sondern eine Grafik, welche die Bewertung symbolisiert. Die Grafik wird im OLE-Feld WertungBild abgelegt (siehe Bild 4) und so mit der Wertungszahl verknüpft. Näheres zur Vorgehensweise und zur Formularprogrammierung finden Sie in Abschnitt 5.<\/p>\n Referenzen<\/b><\/p>\n Das Verlinken von Werken innerhalb der Datenbank oder das Zusammenfassen von Werken zu Gruppen oder Bänden (z. B. Zeitschriften-Jahrgänge) realisieren Sie über eine n:m-Beziehung der Tabelle tblLiteratur auf sich selbst. Als Zwischentabelle dient die Tabelle tblVerweise, in die die beiden Fremdschlüssel LiteraturID und VerweisLiteraturID sowie eine Bemerkung zu der Verknüpfung eingegeben werden können.<\/p>\n Der Aufbau der Beziehungen ist in Bild 5 dargestellt.<\/p>\n Eine n:m-Beziehung auf sich selbst legen Sie im Beziehungen-Fenster wie folgt an:<\/p>\n <\/b><\/p>\n Bild 6: Aufbau der Literaturlisten-Tabellen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Das Formular frmLiteratur in der Entwurfsansicht<\/span><\/b><\/p>\n Literaturlisten<\/b><\/p>\n Eine besondere Funktion stellen die benutzerabhängigen Literaturlisten dar. Mit diesen kann jeder Benutzer beliebig viele Liste unterschiedlichster Gruppierung zusammenstellen und verwalten.<\/p>\n So könnte eine Liste interessante Artikel in PC-Zeitschriften enthalten und eine andere die Literatur für eine Veröffentlichung.<\/p>\n Die Listen werden in der Tabelle tblLiteraturlisten mit einem Namen und der BenutzerID gespeichert. <\/p>\n Zu jeder Liste lassen sich dann Positionen hinzufügen, die die Tabelle tblLiteraturlistenPositionen aufnimmt.<\/p>\n Das Feld Sortierung ist für spätere Zwecke vorgesehen, um die Reihenfolge der Listenelemente manuell zu verändern.<\/p>\n In dieser Version der Datenbank werden die Listenelemente zunächst alphabetisch nach Titeln sortiert. Bild 6 zeigt die Beziehungen zwischen den Tabellen.<\/p>\n Nachdem Sie nun die Tabellenstruktur der Datenbank kennen, können Sie mit dem Entwurf des Literaturformulars zur Erfassung der Werke beginnen. <\/p>\n Gehen Sie dazu wie folgt vor:<\/p>\n Die wichtigsten Felder hätten Sie damit in das Formular aufgenommen.<\/p>\n <\/b><\/p>\n Bild 8: Die Literatur-Schnellsuche<\/span><\/b><\/p>\n Quellcode 1<\/b><\/p>\n Den Aufbau des Unterformulars für Rezensionen finden Sie weiter unten im Abschnitt 5. <\/p>\n Für die Registerseiten 4, 5 und 6 legen Sie zunächst jeweils ein Formular auf Basis der Tabellen tblSignaturen, tblVerweise und tblVerbleiborte an. Stellen Sie dann die Formulareigenschaft der drei Formulare wie in Tab. 2 ein. Fügen Sie anschließend die Unterformulare auf den entsprechenden Registerseiten ein.<\/p>\n Das Literaturformular wäre damit fast fertig gestellt. Damit Sie beim Umschalten zwischen den Registerseiten den aktuellen Titel immer im Blick haben, fügen Sie oberhalb des Registers noch ein Textfeld mit dem Namen txtTitel ein.<\/p>\n Eigenschaft<\/b><\/p>\n<\/td>\n Wert<\/b><\/p>\n<\/td>\n<\/tr>\n Standardansicht<\/p>\n<\/td>\n Datenblatt<\/p>\n<\/td>\n<\/tr>\n Bildlaufleisten<\/p>\n<\/td>\n Nur vertikal<\/p>\n<\/td>\n<\/tr>\n Datensatzmarkierer<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Navigationsschaltflächen<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Formulareigenschaften für die Unterformulare<\/b><\/p>\n Damit das Formular immer den Titel des aktuell angezeigten Werkes anzeigt, fügen Sie beim Formular-Ereignis Beim Anzeigen die folgenden Code-Zeilen ein:<\/p>\n Die Prozedur prüft, ob es sich um einen neuen Datensatz handelt, und zeigt in diesem Fall den Text (Neuer Titel) an. Wenn ein bestehender Datensatz vorliegt, wird der Inhalt des Feldes Titel im Textfeld angezeigt.<\/p>\n In die Datenbank werden zwei Suchfunktionen integriert. Zum einen eine Schnellsuche, über die direkt im Formular nach einem bestimmten Titel gesucht werden kann. Zum anderen eine Detailsuche, bei der die unterschiedlichsten Felder wie Autor, Verlag oder Erscheinungsjahr als Suchkriterien eingegeben werden können.<\/p>\n Schnellsuche<\/b><\/p>\n Die Schnellsuche soll im Formularkopf erfolgen und wird mithilfe des Textfeldes txtTitelsuche und zwei Befehlsschaltflächen btnSuchen und btnWeitersuchen realisiert (siehe Bild 8).<\/p>\n <\/p>\n Um bei einer Suche den ersten Eintrag zu finden, der den eingegebenen Text enthält, hinterlegen Sie für das Beim Klicken-Ereignis der Schaltfläche btnSuchen den Programmcode aus Quell-code 1.<\/p>\n <\/b><\/p>\n Bild 9: Der Suchen-Dialog in der Entwurfsansicht<\/span><\/b><\/p>\n Die Prozedur prüft zunächst, ob im Suchfeld ein Suchtext eingegeben wurde. Die NZ-Funktion testet dabei den Wert Null und Leerzeichenketten ab. Wenn ein Suchtext eingegeben ist, wird der Datenbestand des Formulars in die Variable rstLiteratursuche vom Typ Recordset kopiert. Anschließend führt die Prozedur eine Like-Suche mit der Methode FindFirst durch und ermittelt den ersten Datensatz, der dem Suchkriterium entspricht. über die Bookmark-Eigenschaft des Formulars wird schließlich auf den Datensatz positioniert.<\/p>\n Um weitere Werke mit dem gleichen Kriterium zu finden, können Sie fast den identischen Quellcode bei der Schaltfläche btnWeitersuchen verwenden. Sie müssen lediglich die Methode FindFirst gegen die Methode FindNext austauschen. <\/p>\n Suchen-Dialog<\/b><\/p>\n Für die Detailsuche benötigen Sie ein eigenes Formular, in das Sie die Kriterien eingeben können und eine Ergebnisliste angezeigt bekommen. Gehen Sie dazu folgendermaßen vor:<\/p>\n Als Datenherkunft für das Listenfeld legen Sie ein neue Abfrage mit dem Namen qrySuchergebnis auf Basis der Tabelle tblLiteratur an. Fügen Sie alle Felder hinzu, die Sie durchsuchen oder ggf. zusätzlich anzeigen möchten. <\/p>\n In diesem Zusammenhang stellt die Detailsuche und die Anzeige von Autoren ein Problem dar. Da die Autoren nicht direkt in der Literaturtabelle, sondern in einer gesonderten Tabelle gespeichert sind, würde man bei einem Werk mit mehreren Autoren mehrere Ergebniseinträge erhalten, obwohl es sich um dasselbe Werk handelt. <\/p>\n Um pro Literaturdatensatz alle Autoren des Werks in einem Feld darzustellen, bedient sich die Abfrage in der Beispieldatenbank eines Tricks. Anstatt die Tabelle tblAutoren zu verwenden und den Vor- und Nachnamen als Spalten aufzunehmen, ruft die Abfrage die Funktion getAutorenliste (s. Quellcode 2) auf.<\/p>\n Quellcode 2<\/b><\/p>\n Diese Funktion liefert eine Zeichenkette zurück, in der alle Autoren eines Werks nacheinander aufgeführt sind.<\/p>\n über den Parameter LiteraturID teilen Sie der Funktion mit, für welchen Datensatz die Autorenliste zusammengestellt werden soll, während Sie über den Parameter Format das Ausgabeformat einstellen. Die Funktion kennt zwei Formate, die im Quellcode 2 im Funktionskopf dargestellt sind.<\/p>\n Die Funktion ermittelt zunächst über die Abfrage qryAutorenProLiteratur alle Autoren einer bestimmten LiteraturID. Die Abfrage enthält die Felder LiteraturID, Vorname und Nachname.<\/p>\n Anschließend durchläuft die Prozedur alle Ergebnisdatensätze in einer Schleife, liest die Namen der Autoren aus und fügt sie je nach gewähltem Format in der Variablen Autorenliste aneinander. Am Ende wird noch das überschüssige Komma bzw. Semikolon entfernt.<\/p>\n In der Abfrage rufen Sie die Funktion dann wie folgt in einer neuen Spalte mit dem Namen Autoren auf:<\/p>\n Als Datensatzherkunft für das Listenfeld tragen Sie nun die Abfrage ein. Damit beim öffnen des Suchen-Dialogs zunächst keine Titel angezeigt werden, verwenden Sie die folgende SQL-Anweisung als Datensatzherkunft:<\/p>\n Stellen Sie zum Schluss noch die Spaltenanzahl und die Spaltenbreiten des Listenfeldes ein.<\/p>\n Quellcode 3<\/b><\/p>\n <\/b><\/p>\n Bild 10: Das Suchergebnis<\/span><\/b><\/p>\n Die Suche wird über die Schaltfläche btnSuchen gestartet. Quellcode 3 zeigt deutlich, wie die Suche funktioniert.<\/p>\n Aus Platzgründen kann leider nicht der komplette Quellcode abgedruckt werden. Sie finden aber alle im Beitrag beschriebenen Prozeduren und Funktionen in den Beispieldatenbanken Literaturmanager97.mdb und Literaturmanager2000.mdb auf der Heft-CD. <\/p>\n Die Prozedur verwendet die Abfrage qrySuchergebnis, die auch schon für die Datenherkunft des Ergebnis-Listenfeldes benutzt wurde. Allerdings wird hier nicht mit der Bedingung LiteraturID=0 gearbeitet, sondern im ersten Programmblock eine wesentlich ausführlichere Bedingung zusammengestellt.<\/p>\n Die Prozedur prüft zunächst bei jedem einzelnen Eingabefeld, ob ein Wert eingegeben oder ausgewählt wurde. Ist dies für ein Feld der Fall, setzt sie den WHERE-Teil der SQL-An-weisung für dieses Feld zusammen. Bei Textfeldern erfolgt eine Like-Suche mit dem Platzhalter „*“ am Anfang und am Ende des Textes. Bei Kombinationsfeldern wird direkt nach der Primärschlüssel-ID gesucht. Für das Erscheinungsjahr kann ein Wertebereich eingegeben werden, der mit der SQL-Anweisung „BETWEEN … AND …“ abgefragt wird.<\/p>\n Alle Einzelbedingungen werden mit UND verknüpft.<\/p>\n Nachdem die SQL-Anweisung komplett erstellt wurde, wird sie dem Listenfeld als neue Datensatzherkunft zugewiesen. Als Letztes aktualisiert die Prozedur mit der Requery-Methode die Daten des Listenfeldes. Bild 10 zeigt das Suchergebnis der Abfrage.<\/p>\n Quellcode 5<\/b><\/p>\n Stellen Sie die Eigenschaft Standard der Schaltfläche btnSuchen auf Ja ein. Dadurch können Sie mit der Return-Taste jederzeit die Suche starten, ohne zunächst den Fokus auf die Schaltfläche legen zu müssen. <\/p>\n Nach der Anzeige des Ergebnisses im Listenfeld können Sie mittels Doppelklick auf einen Eintrag oder über die öffnen-Schaltfläche das Literatur-Formular mit dem entsprechenden Werk anzeigen. Dazu ist der Schaltfläche btnöffnen der Programmcode aus Quellcode 4 zugeordnet.<\/p>\n Quellcode 4<\/b><\/p>\n Dieser ermittelt zunächst den Wert des Listenfeldes. Falls ein Eintrag ausgewählt ist, ruft der Code die Prozedur Literaturöffnen auf.<\/p>\n Den Prozeduraufbau können Sie Quellcode 5 entnehmen.<\/p>\n Das öffnen des Literatur-Formulars mit gleichzeitiger Positionierung auf ein bestimmtes Werk ist deshalb in eine gesonderte Prozedur ausgegliedert, da diese Funktion noch an anderen Stellen benötigt wird und so nur einmal programmiert werden muss. <\/p>\n Falls das Literatur-Formular noch nicht angezeigt wird, öffnet die Prozedur das Formular. Anschließend wird wie bei der Schnellsuche mit der FindFirst-Methode der Datensatz mit der entsprechenden LiteraturID gesucht und über die Bookmark-Zuweisung angezeigt. <\/p>\n Das Schließen des Formulars mittels der Schaltfläche btnSchließen wird über die folgende Anweisung ausgeführt:<\/p>\n Stellen Sie die Eigenschaft Abbrechen der Schließen-Schaltfläche auf Ja, um den Suchen-Dialog über die ESC-Taste schließen zu können. <\/p>\n Eine weitere Funktion in der Literaturverwaltung stellt die Bewertung von Büchern, Zeitschriften oder bestimmten Artikeln dar. So können sich andere Benutzer bereits vor dem Lesen einen Eindruck vom Inhalt und der Qualität des Werks verschaffen. <\/p>\n <\/b><\/p>\n Bild 11: Das Rezensionen-Formular in der Entwurfsansicht<\/span><\/b><\/p>\n Natürlich spiegeln die Rezensionen immer den subjektiven Eindruck der fremden Leser wider. Man sollte sich daher nicht nur auf diese verlassen. Allerdings können aussagekräftige Rezensionen bei der Vorauswahl geeigneter Literatur helfen und somit viel Zeit ersparen.<\/p>\n Die Rezensionsliste imLiteratur-Formular<\/b><\/p>\n Die Rezensionen werden im Literatur-Formular auf einer eigenen Registerseite in einem Unterformular angezeigt (siehe Bild 11). <\/p>\n Legen Sie dazu ein neues Formular mit dem Namen frmRezensionen an. Als Datenbasis verwenden Sie eine Abfrage, die die Tabellen tblRezensionen, tblBenutzer und tblWertungen beinhaltet (siehe Bild 12).<\/p>\n Da die Rezensionsliste die Wertung in Form einer Grafik darstellen soll, muss die Grafik im Formular über ein gebundenes OLE-Objektfeld angezeigt werden. Nur auf diese Art ist es möglich, in einem Endlosformular für verschiedene Datensätze unterschiedliche Grafiken einzublenden.<\/p>\n Deshalb sind die Grafiken in der Tabelle tblWertungen in einem OLE-Objekt-Feld hinterlegt und können so in der Abfrage in die Datensatzherkunft des Formulars aufgenommen werden.<\/p>\n Um die Wertungsgrafiken in die Tabelle tblWertungen aufzunehmen, öffnen Sie diese in der Datenblattansicht. Klicken Sie anschließend mit der rechten Maustaste auf das erste OLE-Datenfeld und wählen Sie den Kontextmenüpunkt Objekt einfügen aus (siehe Bild 13).<\/p>\n Markieren Sie anschließend im Dialog Objekt einfügen die Option Aus Datei erstellen.<\/p>\n Klicken Sie auf die Schaltfläche Durchsuchen und wählen Sie die passende Grafik-Datei aus. Wiederholen Sie diesen Vorgang für alle fünf Wertungszahlen.<\/p>\n <\/b><\/p>\n Bild 12: Datenherkunft für das Unterformular frmRezensionen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 13: Einfügen einer Grafik in ein OLE-Objekt-Feld<\/span><\/b><\/p>\n Sie können die Grafiken auch über die Zwischenablage in die Tabelle einfügen. Markieren Sie dazu einfach die Grafik in Ihrem Grafikprogramm und wählen Sie den Menübefehl Bearbeiten\/Kopieren aus. In der Tabelle können Sie dann den Kontextmenübefehl Einfügen verwenden, um die Grafik in die Tabelle zu kopieren. <\/p>\n Nachdem Sie die Datenbasis definiert haben, können Sie die Datenfelder in das Formular einfügen. Platzieren Sie dazu die Felder Benutzer, Rezensionsdatum, Rezensionstext und WertungBild im Formular und passen Sie das Layout Ihren Vorstellungen an.<\/p>\n Die Rezensionen sollen nicht direkt im Formular, sondern in einem eigenen Dialog eingegeben werden. Die Datenfelder müssen deshalb gesperrt werden. Stellen Sie dazu bei allen Steuerelementen die Eigenschaften Gesperrt auf Ja und Aktiviert auf Nein.<\/p>\n Lediglich beim Feld Rezensionstext muss die Eigenschaft Aktiviert auf Ja stehen bleiben, da die Bildlaufleisten des Steuerelements sonst ebenfalls deaktiviert werden und ein längerer Text nicht mehr gelesen werden kann.<\/p>\n <\/b><\/p>\n Bild 14: Die Rezensionsliste im Formularlayout<\/span><\/b><\/p>\n Damit die Rezensionen als Endlosliste erscheinen, müssen die Datensatzmarkierer und Navigationsschaltflächen ausgeschaltet werden. In Tabelle 3 finden Sie alle Eigenschaften, die Sie für das Formular frmRezensionen einstellen sollten.<\/p>\n Als Ergebnis (siehe Bild 14) erhalten Sie eine Liste mit allen Rezensionen absteigend nach Datum sortiert. Die Wertung wird hier durch Stifte symbolisiert.<\/p>\n <\/b><\/p>\n Bild 15: Verfassen von neuen Rezensionen<\/span><\/b><\/p>\n Einmal verfasste Rezensionen lassen sich nicht mehr bearbeiten oder löschen.<\/p>\n Eingabe von neuen Rezensionen<\/b><\/p>\n Da Rezensionen im Formular selbst nicht bearbeitet oder eingefügt werden können, erfolgt das Verfassen von neuen Rezensionen über einen eigenen Dialog.<\/p>\n Erstellen Sie zunächst ein neues Formular mit dem Namen frmRezensionenDialog und stellen Sie die Formulareigenschaften wie in Tab. 4 ein.<\/p>\n Fügen Sie anschließend eine Optionsgruppe ogrWertung mit fünf Optionsfeldern, ein Textfeld txtRezensionstext und zwei Schaltflächen btnOK und btnAbbrechen hinzu. Außerdem können Sie die Wertungsgrafiken anstelle der Optionsfeld-Beschriftungen neben den Optionsfeldern platzieren (siehe Bild 15).<\/p>\n Der Quellcode des Dialog ist sehr übersichtlich. Er beschränkt sich auf die Anweisungen zum Schließen oder Verstecken des Dialogs, da die Steuerung des Dialogs beim Aufruf und nicht im Dialog selbst erfolgt. Die Prozedur für die OK-Schaltfläche hat folgendes Aussehen:<\/p>\n Auch die Prozedur für die Abbrechen-Schaltfläche enthält nur einen Befehl:<\/p>\n Eigenschaft<\/b><\/p>\n<\/td>\n Wert<\/b><\/p>\n<\/td>\n<\/tr>\n Standardansicht<\/p>\n<\/td>\n Endlosformular<\/p>\n<\/td>\n<\/tr>\n Bearbeiten zulassen<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Löschen zulassen<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Anfügen zulassen<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Daten eingeben<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Bildlaufleisten<\/p>\n<\/td>\n Nur vertikal<\/p>\n<\/td>\n<\/tr>\n Datensatzmarkierer<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Navigationsschaltflächen<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Trennlinie<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 3: Eigenschaften des Formulars frmRezensionen<\/b><\/p>\n Beim Klicken auf OK wird das Formular über die Eigenschaft Visible nur ausgeblendet, sodass noch auf die Inhalte – also die Wertung und den Text – des Dialogs zugegriffen werden kann. Ein Klick auf die Schaltfläche Abbrechen schließt den Dialog.<\/p>\n Eigenschaft<\/b><\/p>\n<\/td>\n Wert<\/b><\/p>\n<\/td>\n<\/tr>\n Bildlaufleisten<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Datensatzmarkierer<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Navigationsschaltflächen<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Größe anpassen<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n<\/tr>\n Automatisch zentrieren<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n<\/tr>\n Rahmenart<\/p>\n<\/td>\n Dialog<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 4: Eigenschaften des Formulars frmRezensionenDialog<\/b><\/p>\n Der Aufruf des Rezensionen-Dialogs erfolgt aus dem Literatur-Formular heraus über die Schaltfläche btnNeueRezension. Die Prozedur der Schaltfläche geht in mehreren Schritte vor, um eine neue Rezension anzulegen (s. Quellcode 6).<\/p>\n Zunächst öffnet sie das soeben erstellte Dialog-Formular frmRezensionenDialog. Wichtig ist hierbei, dass Sie den optionalen Parameter WindowMode auf acDialog setzen. Dadurch wird der Programmcode innerhalb der Prozedur so lange angehalten, bis der Dialog geschlossen oder unsichtbar gemacht wird.<\/p>\n Klickt der Anwender nun auf OK oder Abbrechen, wird der Programmcode weiter ausgeführt. Die Prozedur prüft dann, ob der Dialog zwar versteckt, aber noch geöffnet ist. In diesem Fall hat der Anwender auf OK geklickt und die Daten im Dialog müssen verarbeitet werden.<\/p>\n Die Prozedur fügt dann eine INSERT-INTO-SQL-Anweisung zusammen, die die Wertung, den Rezensionstext, den aktuellen Benutzer und das Anlagedatum in der Tabelle tblRezensionen speichert. Der Zugriff auf den Dialog erfolgt dabei über die entsprechenden Steuerelemente des unsichtbaren Formulars.<\/p>\n über die Execute-Methode des Datenbank-Objekts wird dann die SQL-Anweisung ausgeführt und der Datensatz eingefügt.<\/p>\n Der Rezensionen-Dialog wird nun geschlossen. Abschließend fragt die Prozedur den Dateninhalt des Unterformulars neu ab, um die Anzeige zu aktualisieren und den neuen Eintrag im Formular anzuzeigen.<\/p>\n In diesem Beitrag haben Sie den Aufbau, die Eingabe und die Suchfunktionen der Literaturdatenbank kennen gelernt. Ferner haben Sie erfahren, wie Sie Rezensionen mit Grafiken optisch aufwerten können.<\/p>\n Quellcode 6<\/b><\/p>\n Ein weiterer wichtiger Teil einer Literaturverwaltung sind benutzerdefinierte Literaturlisten, die mittels Berichten oder Word mit OLE-Automation sinnvoll genutzt werden können.<\/p>\n Mit einer solchen Einrichtung ersparen Sie sich mühselige Tipperei, um beispielsweise die Literaturverweise für Veröffentlichungen wie Studien, Marktforschungsergebnisse usw. zu erstellen.<\/p>\n Sie können damit einfach die ohnehin bereits vorhandenen Einträge der Datenbank auswählen und die gewünschte Liste erstellen lassen. Diese sinnvolle Erweiterung wird neben anderen interessanten Features in der kommenden Ausgabe von Access im Unternehmen vorgestellt.<\/p>\n Für die Literaturverwaltung sind jedoch noch zahlreiche Erweiterungen denkbar. So könnte man beispielsweise ein Konfigurationsmodul für die Ausgabe des Literaturanhangs entwickeln, in dem Vorlagen verschiedener Formate gespeichert werden können.<\/p>\n Außerdem ließe sich ein Ausleihmodul mit Leih- und Rückgabefristen in die Datenbank integrieren. Dazu käme der Ausdruck von Barcodeaufklebern für alle Literatureinträge und für die Benutzerausweise.<\/p>\n Auch das Modul für die Verteilerlisten kann noch ausgebaut werden. Zur Zeit muss der Verteiler manuell erfasst werden, was ebenfalls mit einem Assistenten und mit Vorlagen standardisiert werden könnte.<\/p>\n Enthaltene Beispieldateien:<\/p>\n LiteraturManager00.mdb<\/p>\n LiteraturManager97.mdb<\/p>\n![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic005.png\")
<\/p>\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n <\/td>\n<\/tr>\n<\/table>\n ![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic008.png\")
<\/p>\nPrivate Sub btnSuchen_Click()\r\n Dim rstLiteratursuche As Recordset\r\n If Nz(txtTitelsuche, \"\") <> \"\" Then\r\n Set rstLiteratursuche = Me.RecordsetClone\r\n With rstLiteratursuche\r\n .FindFirst \"Titel like \"\"*\" & _ Me!txtTitelsuche & \"*\"\"\"\r\n If Not .NoMatch Then\r\n Me.Bookmark = .Bookmark\r\n End If\r\n End With\r\n End If\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
Unterformulare anlegen<\/h3>\n
Titelzeile einfügen<\/h3>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n If Me.NewRecord Then\r\n Me!txtTitel = \"(Neuer Titel)\"\r\nElse\r\n Me!txtTitel = Me!Titel\r\nEnd If<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic009.png\")
<\/p>\nAbfrage für die Ergebnisliste<\/h3>\n
Public Function GetAutorenliste(LiteraturID As Long, Format As Integer) As String\r\n Dim db As Database\r\n Dim rstAutoren As Recordset\r\n Dim SQL As String\r\n Dim Autorenliste As String\r\n Autorenliste = \"\"\r\n SQL = \"SELECT * FROM qryAutorenProLiteratur \" _ & \"WHERE LiteraturID=\" & LiteraturID\r\n Set db = CurrentDb()\r\n Set rstAutoren = db.OpenRecordset(SQL)\r\n With rstAutoren\r\n If .RecordCount > 0 Then\r\n .MoveFirst\r\n While Not .EOF\r\n Select Case Format\r\n Case 1:\r\n Autorenliste = Autorenliste _ & !Nachname & \", \" _ & !Vorname & \"; \"\r\n Case 2:\r\n Autorenliste = Autorenliste _ & !Vorname & \" \" _ & !Nachname & \", \"\r\n End Select\r\n .MoveNext\r\n Wend\r\n End If\r\n End With\r\n If Len(Autorenliste) > 2 Then\r\n Autorenliste = Left(Autorenliste, _ Len(Autorenliste) - 2)\r\n End If\r\n GetAutorenliste = Autorenliste\r\nEnd Function<\/pre>\n
Autoren: getAutorenliste _ ([tblLiteratur].[LiteraturID];2)<\/pre>\n
SELECT * FROM qrySuchergebnis WHERE LiteraturID = 0;<\/pre>\n
Private Sub btnSuchen_Click()\r\n Dim SQL As String\r\n Dim Condition As String\r\n If Nz(Me!txtTitel, \"\") <> \"\" Then Condition = Condition & \"(Titel Like \"\"*\" _ & Me!txtTitel & \"*\"\" OR UnterTitel=\"\"*\" & Me!txtTitel & \"*\"\") AND \"\r\n''... SQL-Anweisung um andere Kriterien erweitern\r\n If Right(Condition, 5) = \" AND \" Then\r\n Condition = Left(Condition, Len(Condition) - 5)\r\n End If\r\n SQL = \"SELECT * FROM qrySuchergebnis\"\r\n If Len(Condition) > 0 Then SQL = SQL & \" WHERE \" & Condition\r\n SQL = SQL & \" ORDER BY Titel;\"\r\n Me!lstErgebnisliste.RowSource = SQL\r\n Me!lstErgebnisliste.Requery\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic010.png\")
<\/p>\nStarten der Suche<\/h3>\n
Hinweis<\/h3>\n
Public Sub Literaturöffnen(LiteraturID)\r\n Dim rstLiteratur As Recordset\r\n If Not IsLoaded(\"frmLiteratur\") Then\r\n DoCmd.OpenForm \"frmLiteratur\"\r\n End If\r\n Set rstLiteratur = Forms!frmLiteratur.RecordsetClone\r\n rstLiteratur.FindFirst \"LiteraturID=\" & LiteraturID\r\n If Not rstLiteratur.NoMatch Then\r\n Forms!frmLiteratur.Bookmark = rstLiteratur.Bookmark\r\n End If\r\nEnd Sub<\/pre>\n
Praxis-Tipp<\/h3>\n
öffnen eines Eintrags<\/h3>\n
Private Sub btnöffnen_Click()\r\n Dim LiteraturID As Long\r\n LiteraturID = Nz(Me!lstErgebnisliste, 0)\r\n If LiteraturID <> 0 Then\r\n Literaturöffnen LiteraturID\r\n End If\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
Schließen des Formulars<\/h3>\n
DoCmd.Close acForm, _ Me.Name<\/pre>\n
Praxis-Tipp<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic011.png\")
<\/p>\nAnlegen der Datenbasis<\/h3>\n
Einfügen der Wertungsbilder<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic012.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic013.png\")
<\/p>\nHinweis<\/h3>\n
Hinzufügen der Datenfelder<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic014.png\")
<\/p>\nFormulareigenschaften einstellen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{ACCEBE37-24C3-4C60-8FEA-E8E926A43711}\/pic015.png\")
<\/p>\nAnlegen des Dialog-Formulars<\/h3>\n
Private Sub btnOK_Click()\r\n Me.Visible = False\r\nEnd Sub<\/pre>\n
Private Sub btnAbbrechen_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Aufruf des Dialogs<\/h3>\n
Private Sub btnNeueRezension_Click()\r\n Dim db As Database\r\n Dim SQL As String\r\n DoCmd.OpenForm \"frmRezensionenDialog\", acNormal, , , , acDialog\r\n If IsLoaded(\"frmRezensionenDialog\") = True Then\r\n Set db = CurrentDb()\r\n SQL = \"INSERT INTO tblRezensionen (LiteraturID,BenutzerID,\"\r\n SQL = SQL & \" Rezensionstext,WertungID,Rezensionsdatum)\"\r\n SQL = SQL & \" Values (\" & Me!LiteraturID & \", \" & GetCurrentUserID()\r\n SQL = SQL & \", \"\"\" & Forms!frmRezensionenDialog!txtRezensionstext\r\n SQL = SQL & \"\"\", \" & Forms!frmRezensionenDialog!ogrWertung\r\n SQL = SQL & \", \" & SQLDatum(Now) & \")\"\r\n db.Execute SQL\r\n DoCmd.Close acForm, \"frmRezensionenDialog\"\r\n Me!subRezensionen.Requery\r\n Else\r\n ''Es wurde auf Abbrechen geklickt\r\n End If\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n