【資料名稱】：mapbasic-第五次交流-表操作OBJ列（示例是LTE-PCI分析工具）

【資料作者】：遼西鋼珠

【資料日期】：2015年3月6日

【資料語言】：中文

【資料格式】：其它

【資料目錄和簡介】：

1、首先加載LTE三扇區(qū)圖層（自己可以按照我的圖層內(nèi)容自己制作當?shù)豅TE-PCI表）
2、選擇PCI分析，輸入PCI，扇區(qū)存在模3干擾的會顯示為紅色
3、主要顯示顏色代碼，由于初學可能算法及語句寫的不好
注意：LTE數(shù)據(jù)庫自己制作的時候可以使用三扇區(qū)生成工具，表內(nèi)一定要有pci列，該列主要是查找用，別修改成別的名字。三扇區(qū)圖層必須命名為lte.
sub c
dim myobj as object
dim mybrush,mybrush1,mybrush2,mybrush3 as brush
dim m,n,I,j,s_name,hang AS integer
dim X AS STRING'聲明變量


mybrush=makebrush(2,16711680,16777215) '紅色
mybrush1=makebrush(2,65280,16777215) '綠色
mybrush2=makebrush(2,255,16777215) '藍色
mybrush3=makebrush(2,16777215,16777215) '無色
dialog
title "PCI模3分析"
control statictext'文本控件
title"請輸入LTE-PCI----" '文本控件顯示標題
'******************************************

CONTROL edittext'文本框控件用于交互界面
value s '全局變量用于存儲文本框輸入內(nèi)容
into s
control okbutton'按鈕
control cancelbutton'按鈕
'*****************************************
m=s mod 3
'*****************************************
if commandinfo(cmd_info_dlg_ok) then'如果點OK會開始執(zhí)行查找
hang=tableinfo(lte,tab_info_nrows)
'*****************************************恢復扇區(qū)顏色
for j=1 to hang
Fetch rec j From lte
myobj=lte.obj
alter object myobj
info obj_info_brush,mybrush3
update lte set obj=myobj where rowid=j
next
'*****************************************
FOR I=1 TO hang
Fetch rec i From lte
S_name = lte.pci
'*****************************************判斷模3結果相同顯示為紅色
n=lte.pci mod 3
IFn=mthen
myobj=lte.obj
alter object myobj
info obj_info_brush,mybrush
update lte set obj=myobj where rowid=i
end if
NEXT
end if
end sub
'*****************************************
[free][/free]

[ 本帖最后由 liuhong521 于 2015-3-7 12:58 編輯 ]