XProfan

Français

Dietmar
Horn

allô zusammen,

je travaille z.Z. à "XProfan kinderleicht", partie 3: "SQL avec Firebird". Es pourrait son, dass je cette 3. partie peut-être. encore im octobre weitestgehend fertig bekomme.

eh bien suis je mir mais pas sûrement, quelle Firebird-Fichiers on einem fertigen Programme mindestens beilegen muss, avec cela es aussi sur PCs fonctionne, qui encore nie quelque chose de Firebird est et gesehen avons, et comme sous Windows 7/8 (32 et 64 Bit) funktioniert (ou bien pas funktioniert).

qui Demo-Quellcode liegt chez, et qui de XPSE generierte ENH-Dossier. XPSE scheint am Code rien auszusetzen trop avons, quoi je déjà la fois comme positiv empfinde.
Kompilieren Marque Séparation

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 je avec XProfan X2 et Firebird 2.5. embedded sous Windows XP.

Weil beim ersten Programmstart qui banque de données buecherliste.fdb angelegt wird, muss cela Programme sur den Installationsordner avec Schreibrechten zugreifen peut.

Über Tests et Hinweise le Tests serait je mich freuen.

Salut
Dietmar

buecherliste.zip

1.929 kB

Hochgeladen:

29.09.2012

Downloadcounter:

Download

buecherliste.jpg Preview

54 kB

Hochgeladen:

29.09.2012

Downloadcounter:

Download

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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

alors mon PC hat encore nie aussi seulement den bouffée eines Kontaktes avec Firebird gehabt (jedenfalls wäre je mir dessen pas bewusst).
juste chez cette la ligne gibt es ensuite aussi une kommentarlosen Absturz avec Schutzverletzung:
Kompilieren Marque Séparation

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

cela était, bevor je gesehen habe, dass une zip-Dossier avec weiteren Fichiers beiliegt.
aussi après que je qui runtergeladen hab et cela Programme gestartet habe, wird es pas viel besser. Es wird cela manquer einer "icuu30.dll" bemängelt. Anschließend stürzt cela Programme à qui gleichen Stelle ab.

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

29.09.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dieter
Zornow

je denke la fois du brauchst absolument cet Fichiers
fbclient.dll
firebird.msg
ib_util.dll
icudt30.dll
icuuc30.dll
avec cela fonctionne es chez mir. Du brauchst oui seulement dein Programme dans irgendein Verzeichnis trop kopieren et qui Exe trop starten, ensuite sagt es dir quoi fehlt. cela peux sich naturellement de Version trop Version de Firebird changement, chez deiner klappts mais avec den obigen Fichiers.

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 citation

Absatzweise Citation Zeilenweise Citation

Dietmar
Horn

je remercie euch Beiden. cela ZIP-Archiv habe je pour Dieters Hinweisen aktualisiert. qui voudrais, qui peux es sich d'ici downloaden: [...]

cela Programme J'ai eu naturellement dans une anderen Dossier kopiert, mais es scheint sich chez mir den reste quand même vom installierten FB trop holen.

Salut
Dietmar

Den Link im Ausgangsposting voulais je aktualiseren, doch es klappt pas. toujours si je im Editiermodus sur "Neu hochladen" klicke, ensuite springt qui 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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

maintenant klappt es et cela Programme startet anstandslos.

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

29.09.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dietmar
Horn