home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / jul94 / srfig10b.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  35.8 KB  |  517x352  |  8-bit (256 colors)
   ocr: l SOLIMEW-Describebuton-pushbutton method pushButton(uar eventinfo Event) var Sqistring String anstbl String enduar if isAssigned(Tableselected) and ableselected < : then anstbl = ":PRIUEdescribe" if strdbtype = "SYBASE" then Sq1String = "sp_ displaystructure - + Tableselectected.value excutes@LTable(S15tring,strabname,ImisPassword,anstbl) else tbl.attach("a"strestrabnanesa"etated) tbl.enumfieldstruct(anstbl) endif if - tv.open(anstDl, winstyledefault,100,100,5500,4000) then SetTablevieuattributes() tw.setritierstructure of Table: "+ Tableselected) tu.wait() tu.close() endif endif endMethod Ed ...