include "mapbasic.def"

declare sub main
declare sub mnu_findpoint
declare sub find_point

global tabname() as string

sub main
	create menu "查找點(diǎn)" as 
		"選擇所有點(diǎn)" calling mnu_findpoint
	alter menu bar add "查找點(diǎn)"
end sub

sub mnu_findpoint
	 dim i as integer
	 dim tablenums as integer
	 tablenums = numtables()
	 For i = 1 To tablenums
	      redim tabname(i)
		tabname(i) = tableinfo(i,TAB_INFO_NAME)
       Next 

	dialog title "請(qǐng)從中選擇一個(gè)表，進(jìn)行處理……"
		Control statictext 
			title "請(qǐng)選擇一個(gè)表：" 
			position 5,5
		Control listbox Position 5, 20
			ID 1111
			width 105 height 50
			title from variable tabname
			value 1
		control okbutton Position 12,90 calling find_point
		control cancelbutton position 65,90
end sub

sub find_point
	dim tablename as string
	dim objalias as alias
	tablename = tabname(readcontrolvalue(1111))

'	fetch first from tablename
'	for j=1 to tableinfo(tablename,tab_info_nrows)
'		objalias = tablename & ".obj"
'		if objectinfo(objalias,obj_info_type) = OBJ_TYPE_POINT then
'			alter object myobj Geography OBJ_GEO_TEXTANGLE,angle
'			update tablename set obj=myobj where rowid =j
'		end if
'		fetch next from tablename
'	next
end sub