Foro | | | | 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. KompilierenMarcaSeparaciónDeclare 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 |
| | | 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 ▲ |
| |
| | 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: KompilierenMarcaSeparaciónhdb& = 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 ▲ |
| |
| | 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 X2Er 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 ▲ |
| |
| | 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 X2Multimedia 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 ▲ |
| |
| | 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 ▲ |
| |
| | Dietmar Horn | Gracias, Jörg, para deine Rückmeldung!
Saludo Dietmar |
| | | XProfan X2Multimedia 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 ▲ |
| |
|
RespuestaThemeninformationenDieses Thema ha 3 subscriber: |