include "mapbasic.def"
include "menu.def"
include "icons.def"

declare sub main
declare sub sub1
declare sub exit_sub
declare sub pushbtn_sub

sub main
	create menu "test" as 
		"Connet to Oracle ODBC" calling sub1,
		"exit" calling exit_sub
	alter menu bar add "test"

	Create ButtonPad "testbtnpad" As 
		PushButton Calling pushbtn_sub
			id 11111
			Icon MI_ICON_ZOOM_QUESTION 
end sub

sub sub1
	run menu command id 11111
end sub

sub exit_sub
	end program
end sub

sub pushbtn_sub
	Dim hdbc, hstmt As Integer

	hdbc = Server_Connect("QELIB", "DSN=ora816;SRV=orageo.mapinfo.com.cn;USR=mapinfo;PWD=mapinfo")
	Server hdbc Link Table "select * from MAPINFO_MAPCATALOG" Into temptabname File "C:\temp\temptabname.TAB"
	browse * from temptabname
end sub