XProfan

 $P+
SetErrorLevel 0
Declare appexit%
Declare Box1&, Box2&
Declare SQLString$, SQLString2$, Count&
var Fbembed&   = db("fbUseDLL", "fbembed.dll")
var db1& = db("fbInit","TEST","Test","Test.fdb")
SetTrueColor 1
WindowStyle $003F
WindowTitle "Test"
Window %maxX + 5,114 - 909,514
Cls RGB(192,192,192)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
Box1&=Create("GridBox",%hwnd,"",1,20,100,800,80)
Box2&=Create("GridBox",%hwnd,"",1,20,300,800,80)
var Artikel$ ="4711"
SQLString$ = "SELECT ARTIKEL.Artikel_NR, ARTIKEL.Bez, ARTIKEL.Preis, BESTELLUNGEN.Menge, ARTIKEL.Preis * BESTELLUNGEN.Menge "
SQLString$ = SQLString$ + "AS VK From ARTIKEL INNER JOIN BESTELLUNGEN ON "
SQLString$ = SQLString$ + "ARTIKEL.Artikel_NR = BESTELLUNGEN.Artikel_NR WHERE (((ARTIKEL.ARTIKEL_NR) = :Artikel$))"
Count& = db("fbSQLExec",db1&,SQLString$,0)
Count& = db("fbSQLExec",db1&,SQLString$,Box1&)
SQLString2$ = "SELECT Artikel_NR, Bez, Preis FROM Artikel"
Count& = db("fbSQLExec",db1&,SQLString2$,Box2&)
SetWindowPos %hwnd = 207,114 - 909,514;0

WhileNot appexit%

    WaitInput

    If %key = 2

        Let appexit%=1

    ElseIf GetFocus(Box1&)

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Hilfe

    EndIf

Wend

db("fbDone", db1&)
FreeDLL Fbembed&