OpenOffice.info

Ansicht -> Symbolleisten -> Formular-Entwurf


[attachment=1]1.JPG[/attachment]
In dieser Symbolleiste das 2. Icon von links


[attachment=0]2.JPG[/attachment]

[quote="panograf"]"[i]Erstell Dir Dein Formular, geh auf Datei -> Kopie Speichern unter, speicher das Formular.[/i]" OK, da wird nur das Dateiformat ".odt" angeboten[/quote]
Natürlich, Formulare sind ja auch Textdokumente.
[quote="panograf"]"[i]Nun öffnest Du die neu erstellte Datei,[/i]" also die Textdatei mit dem Writer öffnen (?) [/quote]
Richtig.
[quote="panograf"]"[i]gehst in den 'Entwurfsmodus' [/i]" hmmm,... noch nicht gefunden.[/quote]
Standardmässig in der Symbolleiste "Formular-Entwurf" das zweite Icon von links (für genaues Aussehen des Icons siehe OpenOffice-Hilfe per F1 -> Suchbegriff "entwurfs").

Erstell Dir Dein Formular, geh auf Datei -> Kopie Speichern unter, speicher das Formular.
Nun öffnest Du die neu erstellte Datei, gehst in den "Entwurfsmodus" und setzt die Verknüpfungen neu (zuerst Formular -> Daten -> Datenquelle und Tabelle, dann die vorhandenen Felder).
Je nach Bedarf deaktivierst Du unter Formular... noch Optionen wie Hinzufügen, Ändern und Löschen.
Der Nachteil dabei: ohne Verwendung von Makros muss die Datenbank registriert sein.

Aloha

[quote="panograf"]Ich habe aber inzwischen gelesen, dass man dabei die Datenbank NICHT durchblättern kann?[/quote]
Wenn Du die Base-Ansicht gar nicht sehen willst, speicher das Formular extern, dann wird dies per Writer geöffnet und erlaubt trotzdem Eingaben in die Datenbank.
Zum "Durchblättern" kannst Du ebenfalls ein Formular mit nur einem Tabellkontrollfeld erstellen, das sieht dann im Endeffekt fast genauso aus wie der Doppelklick auf eine Tabelle unter Base.
Wenn Du das überhaupt mit "Durchblättern" meinst.

Im Übrigen kann ein User doch über Formular-Eingaben genausoviel Unsinn anrichten, wie über die "Erstellungsebene".

   Dim odok as object
   Dim oDokView as object

    odok=ThisComponent
    oDokView = oDok.CurrentController.Frame.ContainerWindow
    oDokView.Visible = FALSE

[quote]Aber ich will doch mit dem Klick auf ".odb" NICHT auf die Erstellungsebene.[/quote]

Wenn Du in der "Erstellungsebene" das tust was ich oben beschrieben habe, dann wird beim nächsten Öffnen der odb-Datei das gewünschte Formular automatisch geöffnet werden.

mit:

[code]

Dim odok as object
Dim oDokView as object

odok=ThisComponent
oDokView = oDok.CurrentController.Frame.ContainerWindow
oDokView.Visible = FALSE[/code]

kannst Du die "Erstellungsebene" ausblenden. Einfach das Codeschnipsel oben in das Makro "Initialisieren" reinkopieren, sollte gehen.

g

[quote="panograf"]
wie man direkt das fertige Formular zum Eintragen bzw. für Suchfunktionen öffnet.
Man wird doch das Base-StartFenster, das man auch für die Erstellung von Tabellen bekommt, überspringen können?
[/quote]

... genau das macht der Codeschnipsel von oben.

Um zu wissen wie Du Deine AdressDB öffnen kannst wäre es hilfreich Dein Bertiebssystem zu kennen.
Die Datenbank hat übrigens immer die Dateierweiterung ".odb" (OpenOfficeDataBase). ".odt" ist ein OpenOfficeText-Dokument, und die werden natürlich im Writer geöffnet ... ".ods"-Dateien sind OpenOfficeSpreadsheet-Dokumente die werden im Calc geöffnet ;)

g

Global DieseDB_Dateiname as String
Global DieseDB_Reg_Name as String
Global DieseDB_Pfad as String
Global DieseDB_Pfad_Und_Name as String


sub Initialisieren

DieseDB_Dateiname = "Adressen.odb"
DieseDB_Reg_Name = "Adressen"
DieseDB_Pfad = "c:\"
DieseDB_Pfad_Und_Name = "c:\Adressen.odb"

msgbox DieseDB_Pfad_Und_Name & " ist initialisiert!"


    dbFrame=StarDesktop.currentComponent
    oDataSource = dbframe.datasource
    oConnection = oDataSource.getConnection("","")
    dim Args(1) as new com.sun.star.beans.PropertyValue   
    Args(1).name = "OpenMode"
    Args(1).value = "open"
    Args(0).name = "ActiveConnection"
    Args(0).value = oConnection
    oForms = oDataSource.DataBaseDocument.getFormDocuments
    oForms.loadcomponentfromURL( "Adresseneingabeformular", "_Default", 63, Args()) 

end sub

Versuch mal das:

[code]

Global DieseDB_Dateiname as String
Global DieseDB_Reg_Name as String
Global DieseDB_Pfad as String
Global DieseDB_Pfad_Und_Name as String


sub Initialisieren

DieseDB_Dateiname = "Adressen.odb"
DieseDB_Reg_Name = "Adressen"
DieseDB_Pfad = "c:\"
DieseDB_Pfad_Und_Name = "c:\Adressen.odb"

msgbox DieseDB_Pfad_Und_Name & " ist initialisiert!"


dbFrame=StarDesktop.currentComponent
oDataSource = dbframe.datasource
oConnection = oDataSource.getConnection("","")
dim Args(1) as new com.sun.star.beans.PropertyValue
Args(1).name = "OpenMode"
Args(1).value = "open"
Args(0).name = "ActiveConnection"
Args(0).value = oConnection
oForms = oDataSource.DataBaseDocument.getFormDocuments
oForms.loadcomponentfromURL( "Adresseneingabeformular", "_Default", 63, Args())

end sub

[/code]

Dann gehst Du unter Extras/Anpassen auf den Index "Ereignisse" und weist dem Punkt "Dokument öffnen" das Makro "Initialisieren" zu. Unten bei "Speichern in" sollte nicht OpenOffice.org, sondern Deine Datenbank stehen. Beim Öffnen der Datenbank wird dann das Makro "Initialisieren" ausgeführt, und in der letzten Zeile 'oForms.loadcomponentfromURL( "Adresseneingabeformular", "_Default", 63, Args())' wird dann das Formular "Adresseneingabeformular" geöffnet.


Die 4 Global-Definitionen und Wertzuweisungen sowie die Msgbox kannst Du natürlich weglassen, das benutze ich nur weil ich in den meisten Datenbaken dieselben Makros verwende und nicht immer die Strings umschreiben will und daher mit den Global-Variablem arbeite.

g

Es erscheint mir nicht in Deinem Sinne, den Primärschlüssel auf das Feld Anrede zu legen: damit müssen sich alle Datensätze in der Anrede unterscheiden! Das Feld ID ist doch sicherlich als Primärschlüssel gedacht ...

Bevor Formulare "rannkommen", bitte erst mit Tabellen umgehen lernen - nicht "vorlernen" - wie in der Schule!

Hallo,

[quote="panograf"]Wie mache ich diese Änderung?[/quote]

Schau mal [url=http://de.openoffice.info/viewtopic.php?f=18&t=43602&hilit=+auto*&p=160063#p160011]hier[/url] nach wie das beim Tabellenentwurf geht.

Viel Erfolg.

Jürgen

Soll das ID-Feld automatisch oder manuell geschrieben werden? Wenn sich automatisch empfiehlt im Tabellenentwurf ändern! Dann braucht's auch nicht mehr angezeigt werden.