searchpoint_searchinfo.mb

来自「很多的MAPINFO的常见问题下载后可以学习很有帮助」· MB 代码 · 共 42 行

include "mapbasic.def"

declare sub main
declare sub mnu_drawlaxian
declare sub btn_drawlaxian

sub main
	create menu "test" as 
		"drawlaxian" calling mnu_drawlaxian
	alter menu bar add "test"
	create buttonpad "test" as 
		toolbutton calling btn_drawlaxian
			id 1111
			icon 128
			cursor 138
end sub

sub mnu_drawlaxian
	run menu command id 1111
end sub

sub btn_drawlaxian
	dim searchrst_i as integer
	dim searchrst_tabname as string
	dim searchrst_rowid as integer
	dim mystring as string

	dim cmd_x,cmd_y as float
	cmd_x=commandinfo(CMD_INFO_X)
	cmd_y=commandinfo(CMD_INFO_Y)

	searchrst_i=searchpoint(frontwindow(),cmd_x,cmd_y)

	if searchrst_i <>0 then
		searchrst_tabname=searchinfo(searchrst_i,SEARCH_INFO_TABLE) '点中是哪个表
		searchrst_rowid= searchinfo(searchrst_i,SEARCH_INFO_ROW)'是该表中的哪一条记录
		fetch rec searchrst_rowid from searchrst_tabname '将数据库指针指向该被点中的记录
		mystring=currenttablename+".ID" '构造一个字符串，用来从表中取出相关的信息
	end if

end sub