XProfan

Deutsch

Dietmar
Horn

Hallo zusammen,

ich arbeite z.Z. an "XProfan kinderleicht", Teil 3: "SQL mit Firebird". Es könnte sein, dass ich diesen 3. Teil evtl. noch im Oktober weitestgehend fertig bekomme.

Nun bin ich mir aber nicht sicher, welche Firebird-Dateien man einem fertigen Programm mindestens beilegen muss, damit es auch auf PCs läuft, die noch nie etwas von Firebird gehört und gesehen haben, und wie es unter Windows 7/8 (32 und 64 Bit) funktioniert (oder nicht funktioniert).

Der Demo-Quellcode liegt bei, und auch die von XPSE generierte ENH-Datei. XPSE scheint am Code nichts auszusetzen zu haben, was ich schon mal als positiv empfinde.
Kompilieren Markieren Separieren

Declare e%,i%,x%,y%
Declare tmp$
Declare exit&,hGrid&
Declare Autor$,Titel$,Preis$,Datum$
x% = 510
y% = 185
DEF ___GSM(1) !"USER32","GetSystemMetrics"
DEF CaptionX(1) @%(1) + ___GSM(7) * 2
DEF CaptionY(1) @%(1) + CaptionX(0) + @___GSM(4)
DEF CenterX(1) %MaxX / 2 - CaptionX(@%(1) / 2)
DEF CenterY(1) %MaxY / 2 - CaptionY(@%(1) / 2)
Def GetSysColor(1) !"USER32","GetSysColor"
Var fbDLL& = db("fbUseDLL","fbclient.dll")
declare sql$,hdb&

ifnot fileexists("Buecherliste.fdb")

    hdb& = db("fbCreate", "SYSDBA", "masterkey", "Buecherliste.fdb")
    Set("Errorlevel",-1)
    sql$="DROP TABLE BUECHER"
    db("fbSQLExec",hdb&,sql$, 1)
    Set("Errorlevel",0)
    db("fbSQLExec", hdb&, "CREATE TABLE BUECHER \
    ( AUTOR VarCHAR(20),\
    TITEL VARCHAR(50),\
    PREIS NUMERIC(2,2),\
    DATUM DATE )",1)
    db("fbSQLExec",hdb&,"INSERT INTO BUECHER (AUTOR,TITEL,PREIS,DATUM) \
    VALUES ('Dietmar Horn','Das Große XProfan-Lehrbuch',20.00,'01.03.2008')",1)
    db("fbSQLExec",hdb&,"INSERT INTO BUECHER (AUTOR,TITEL,PREIS,DATUM) \
    VALUES ('Dietmar Horn','XProfan kinderleicht: Einführung',10.00,'01.01.2012')",1)
    db("fbSQLExec",hdb&,"INSERT INTO BUECHER (AUTOR,TITEL,PREIS,DATUM) \
    VALUES ('Dietmar Horn','XProfan kinderleicht: dBase-Tabellen',10.00,'01.03.2012')",1)
    db("fbSQLExec",hdb&,"INSERT INTO BUECHER (AUTOR,TITEL,PREIS,DATUM) \
    VALUES ('Dietmar Horn','XProfan kinderleicht: SQL-Datenbanken mit Firebird',10.00,'21.10.2012')",1)
    db("fbSQLExec",hdb&,"INSERT INTO BUECHER (AUTOR,TITEL,PREIS,DATUM) \
    VALUES ('Dietmar Horn','Tabellenkalkulation kinderleicht mit Open-Office',9.70,'01.08.2012')",1)
    db("fbSQLExec",hdb&,"INSERT INTO BUECHER (AUTOR,TITEL,PREIS,DATUM) \
    VALUES ('Roland G. Hülsmann','XProfan für alle',29.90,'01.12.2003')",1)
    db("fbSQLExec",hdb&,"INSERT INTO BUECHER (AUTOR,TITEL,PREIS,DATUM) \
    VALUES ('Rolf Koch','ROC - der Fensterhelfer für XProfan',19.95,'01.02.2006')",1)
    db("fbSQLExec",hdb&,"INSERT INTO BUECHER (AUTOR,TITEL,PREIS,DATUM) \
    VALUES ('Lothar Beloch','Tabellenkalkulation kinderleicht mit Open-Office',9.70,'01.08.2012')",1)
    db("fbSQLExec",hdb&,"INSERT INTO BUECHER (AUTOR,TITEL,PREIS,DATUM) \
    VALUES ('Lothar Beloch','BWL mit anderen Worten',9.10,'01.01.2012')",1)

Else

    hdb& = db("fbInit", "SYSDBA", "masterkey", "Buecherliste.fdb")

endif

Proc Fenster

    WindowStyle 48 + 8 + 512 + 2
    WindowTitle "Autoren- und Büchertabelle"
    Window 5 * %MaxX + CenterX(x%),CenterY(y%) - CaptionX(x%),CaptionY(y%)
    UseIcon "COMPUTER"
    UseFont "Arial",16,0,0,0,0
    SetDialogFont 1
    CLS GetSysColor(15)
    tmp$ = "Autor;0;115;Titel;0;275;Preis;2;45;Datum;0;70"
    hGrid& = Create("Gridbox",%HWnd,tmp$,0,0,0,Width(%HWnd),Height(%HWnd)-35)
    Read_FDB
    exit& = Create("Button",%HWnd,"Beenden",(Width(%HWnd) - 100) / 2,Height(%HWnd) -30,100,25)

EndProc

'#####################################################################
Fenster
SetWindowPos %HWnd = CenterX(x%),CenterY(y%) - CaptionX(x%),CaptionY(y%);0
SelectString(hGrid&,0,"")
Clear e%

WhileNot e%

    Waitinput

    If Clicked(exit&) or (%Key = 2)

        e% = 1

    EndIf

EndWhile

db("fbDone",hdb&)
FreeDll fbDLL&
End

Proc Read_FDB

    Clearlist
    db("fbSQLExec",hdb&,"SELECT * FROM BUECHER ORDER BY TITEL",1)
    i% = 2

    While i% < %GetCount + 1

        Autor$ = SubStr$(GetString$(0,i%),1,"|")
        Titel$ = SubStr$(GetString$(0,i%),2,"|")
        Preis$ = SubStr$(GetString$(0,i%),3,"|")
        Datum$ = SubStr$(GetString$(0,i%),4,"|")
        AddString(hGrid&,Autor$ + "|" + Titel$ + "|" + Preis$ + "|" + Datum$ + "|")
        inc i%

    EndWhile

EndProc

[DOWNLOAD]http://dl.xprofan.com/?aiiui/buecherliste.zip[/DOWNLOAD]

Aktuell entwickele ich mit XProfan X2 und Firebird 2.5. embedded unter Windows XP.

Weil beim ersten Programmstart die Datenbank buecherliste.fdb angelegt wird, muss das Programm auf den Installationsordner mit Schreibrechten zugreifen können.

Über Tests und Hinweise zu den Tests würde ich mich freuen.

Gruß
Dietmar

buecherliste.zip

1.929 kB

Hochgeladen:

29.09.2012

Ladeanzahl:

Herunterladen

buecherliste.jpg Vorschau

54 kB

Hochgeladen:

29.09.2012

Ladeanzahl:

Herunterladen

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

29.09.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Also mein PC hat noch nie auch nur den Hauch eines Kontaktes mit Firebird gehabt (jedenfalls wäre ich mir dessen nicht bewusst).
Gleich bei dieser Zeile gibt es dann auch einen kommentarlosen Absturz mit Schutzverletzung:
Kompilieren Markieren Separieren

hdb& = db("fbCreate", "SYSDBA", "masterkey", "Buecherliste.fdb")

Das war, bevor ich gesehen habe, dass eine zip-Datei mit weiteren Dateien beiliegt.
Auch nachdem ich die runtergeladen hab und das Programm gestartet habe, wird es nicht viel besser. Es wird das Fehlen einer "icuu30.dll" bemängelt. Anschließend stürzt das Programm an der gleichen Stelle ab.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

29.09.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Ich denke mal du brauchst unbedingt diese Dateien
fbclient.dll
firebird.msg
ib_util.dll
icudt30.dll
icuuc30.dll
Damit läuft es bei mir. Du brauchst ja nur dein Programm in irgendein Verzeichnis zu kopieren und die Exe zu starten, dann sagt es dir was fehlt. Das kann sich natürlich von Version zu Version von Firebird ändern, bei deiner klappts aber mit den obigen Dateien.

XProfan X2
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

29.09.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dietmar
Horn

Ich danke euch Beiden. Das ZIP-Archiv habe ich nach Dieters Hinweisen aktualisiert. Wer möchte, der kann es sich von hier downloaden: [...]

Das Programm hatte ich natürlich in einen anderen Ordner kopiert, aber es scheint sich bei mir den Rest trotzdem vom installierten FB zu holen.

Gruß
Dietmar

Den Link im Ausgangsposting wollte ich aktualiseren, doch es klappt nicht. Immer wenn ich im Editiermodus auf "Neu hochladen" klicke, dann springt der Cursor ins Antwortenfeld des letzten Beitrages.

XProfan X2
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

29.09.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Jetzt klappt es und das Programm startet anstandslos.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

29.09.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dietmar
Horn