home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / jul94 / srfig12b.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  34.1 KB  |  517x361  |  8-bit (256 colors)
   ocr: l SOLIMIEW.Indexbuttonspushbuton" method pushButton(uar eventinfo Event) var Sq1string String anstbl String enduar if isAssigned(TableSelected) and Tableselected € : then anstbl = ":PRIV:Sqlindex" if strdbtype - "SYBASE" then SqiString = "sp_ helpindex : - : Tablelist.11st.value + : Executes@LTaDle(sgistring,Strabnane,ImasPassword,anstbl) else tbl.attach(":"*strdbnane*"""*Tableselected) tbl.enumindexstruct(anstbl) endif if tv.open(anstbl, vinstyledefault,100,100,5500,4000) then SetTablevieuattributes() t.settitie(-Indexes for Table: : + Tableselected) tv.wait() tu.close() endif endif endMethod ...