XProfan

Español

Dietmar
Horn

¡Hola zusammen,

Yo arbeite z.Z. a "XProfan kinderleicht", Teil 3: "SQL con Firebird". Lo podría ser, dass Yo esta 3. Teil evtl. aún en Oktober weitestgehend fertig bekomme.

Nun bin Yo pero no sicher, welche Firebird-Archivos uno una fertigen Programa mindestens beilegen muss, así lo auch en PCs se ejecuta, el todavía nie algo de Firebird gehört y gesehen haben, y cómo lo bajo Windows 7/8 (32 y 64 Bit) funktioniert (oder no funktioniert).

Der Demo-Quellcode liegt en, y el de XPSE generierte ENH-Expediente. XPSE scheint al Code nichts auszusetzen a haben, Yo ya veces como positiv empfinde.
Kompilieren Marca Separación

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 I, con XProfan X2 y Firebird 2.5. embedded bajo Windows XP.

Weil beim ersten Programmstart el Datenbank buecherliste.fdb creado se, muss el Programa en el Installationsordner con Schreibrechten zugreifen puede.

Über Tests y Hinweise a Tests sería Yo mich freuen.

Saludo
Dietmar

buecherliste.zip

1.929 kB

Hochgeladen:

29.09.2012

Ladeanzahl:

Descargar

buecherliste.jpg Prevista

54 kB

Hochgeladen:

29.09.2012

Ladeanzahl:

Descargar

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 Cita Zeilenweise Cita

Jörg
Sellmeyer

Also mein PC ha todavía nie auch sólo el Hauch uno Kontaktes con Firebird gehabt (jedenfalls wäre Yo dessen no bewusst).
Gleich en dieser Línea hay entonces auch una kommentarlosen Choque con Schutzverletzung:
Kompilieren Marca Separación

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

Das war, bevor Yo gesehen habe, dass una zip-Expediente con más Archivos beiliegt.
Auch después de que el runtergeladen tener y el Programa comenzó habe, se no viel mejor. Lo se el Fehlen uno "icuu30.dll" bemängelt. Anschließend stürzt el Programa a el gleichen Punto de.

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

29.09.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dieter
Zornow

Yo denke veces du necesidad necesariamente esta Archivos
fbclient.dll
firebird.msg
ib_util.dll
icudt30.dll
icuuc30.dll
Damit se ejecuta lo en me. Usted necesidad sí sólo dein Programa en irgendein Directorio a kopieren y el Exe a starten, entonces sagt lo dir qué fehlt. Das kann se natürlich de Versión a Versión de Firebird ändern, en deiner klappts aber con el obigen Archivos.

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 Cita Zeilenweise Cita

Dietmar
Horn

Yo danke euch Beiden. Das ZIP-Archiv Yo después de Dieters Hinweisen aktualisiert. Wer möchte, el kann lo de hier downloaden: [...]

Das Programa Tuve natürlich en una otro Ordner kopiert, pero scheint se en me el Rest trotzdem vom installierten FB a holen.

Saludo
Dietmar

Den Link en el Ausgangsposting Yo quería aktualiseren, doch lo klappt no. Immer si yo en el Editiermodus en "Neu hochladen" klicke, entonces springt el Cursor en el 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 Cita Zeilenweise Cita

Jörg
Sellmeyer

Jetzt klappt lo y el Programa startet anstandslos.

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

29.09.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn