ocr: SOLIMIEW-SOLOUETYBUTutrybutton-pushbution nethod pushButton(uar eventinfo Event) var anstbl String QueryText String soneform Form Retform Logical enduar if SSqlAlias then someform.open("SOLQUERY") nessage("Please enter your SQL QUERY") Retform = somerorn.wait() if not Retform then someform.close() return endif Retform = False Querylext = someforn.querylext someform.close() if 15A5igned(querylext) and QueryText € : then anstbl = ":PRIV:Sq1query" ExecutesQLTable(queryText,Strdbname,ThisPassword,anstbl) if - cv.open(anstDl,VinstyleDerault,100,100,5500,4000) then Setfablevirenttrimuteso .settaderk ...
