Nghiên cứu xây dựng giải thuật phân tích không gian hỗ trợ việc ra quyết định điều chỉnh quy hoạch sử dụng đất nông nghiệp theo hướng phát triển bền vững

i ĐẠI HỌC QUỐC GIA THÀNH PHỐ HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA ĐOÀN NGỌC THANH XUÂN NGHIÊN CỨU XÂY DỰNG GIẢI THUẬT PHÂN TÍCH KHÔNG GIAN HỖ TR VIỆC RA QUYẾT ĐỊNH ĐIỀU CHỈNH QUY HOẠCH SỬ DỤNG ĐẤT NÔNG NGHIỆP THEO HƯỚNG PHÁT TRIỂN BỀN VỮNG Chuyên ngành: Hệ thống thông tin địa lý (GIS) Mã số ngành: 2.15.04 ii LUẬN VĂN THẠC SĨ TP HỒ CHÍ MINH 06-2005 CÔNG TRÌNH ĐƯC HOÀN THÀNH TẠI TRƯỜNG ĐẠI HỌC BÁCH KHOA ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH Cán hướng dẫn khoa học: PGS TS Nguyễn Văn Phước Cán chấm nhận xét 1: TS Nguyễn Văn Nhân Cán chấm nhận xét : TS Trương Chí Hiền Luận văn thạc só bảo vệ : HỘI ĐỒNG CHẤM BẢO VỆ LUẬN VĂN THẠC SĨ iii TRƯỜNG ĐẠI HỌC BÁCH KHOA, ngày 11 tháng năm 2005 ĐẠI HỌC QUỐC GIA TP.HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA - CỘNG HÒA Xà HỘI CHỦ NGHĨA VIỆT NAM Độc lập - Tự - Hạnh phúc NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên: ĐOÀN NGỌC THANH XUÂN Ngày, tháng, năm sinh: 19/02/1967 Chuyên ngành: Hệ thống thông tin địa lý (GIS) Phái: Nữ Nơi sinh: Vónh Long MSHV: 01003248 I TÊN ĐỀ TÀI: NGHIÊN CỨU XÂY DỰNG GIẢI THUẬT PHÂN TÍCH KHÔNG GIAN HỖ TR RA QUYẾT ĐỊNH ĐIỀU CHỈNH QUY HOẠCH SỬ DỤNG ĐẤT NÔNG NGHIỆP THEO HƯỚNG PHÁT TRIỂN BỀN VỮNG II NHIỆM VỤ VÀ NỘI DUNG: Xây dựng giải thuật phân tích không gian có khả điều chỉnh đồ quy hoạch sử dụng đất nông nghiệp có sang đồ quy hoạch sử dụng đất phù hợp với tình hình thực tế , thể mục tiêu phát triển kinh tế nông nghiệp hỗ trợ nhà quản lý việc định III NGÀY GIAO NHIỆM VỤ : 17/01/2005 IV NGÀY HOÀN THÀNH NHIỆM VỤ : 30/06/2005 V HỌ VÀ TÊN CÁN BỘ HƯỚNG DẪN: PGS TS NGUYỄN VĂN PHƯỚC CÁN BỘ HƯỚNG DẪN BỘ MÔN QUẢN LÝ NGÀNH iv Nội dung đề cương luận văn thạc só Hội Đồng Chuyên Ngành thông qua Ngày tháng năm 2005 PHÒNG ĐÀO TẠO SĐH KHOA QUẢN LÝ NGÀNH LỜI CẢM ƠN Chân thành bày tỏ lòng biết ơn PGS TS.Nguyễn Văn Phước, PGS.TS Trần Vónh Phước tận tình hướng dẫn, hỗ trợ giúp đỡ hoàn thành luận văn cao học Chân thành cám ơn q thầy cô tận tình giảng dạy, hướng dẫn giúp đỡ suốt trình học tập nghiên cứu khoa học Chân thành cám ơn Phòng Quản lý đào tạo sau đại học, Trung tâm DITAGIS, Khoa Môi trường thuộc trường Đại học Bách Khoa Tp.HCM, Sở Nông nghiệp Phát triển Nông thôn Vónh Long, Phân Viện Qui hoạch thiết kế nông nghiệp tạo điều kiện thuận lợi, giúp đỡ, hỗ trợ cho suốt trình nghiên cứu Thương mến gởi tặng thành học tập, nghiên cứu đến gia đình, bạn bè, đồng nghiệp ủng hộ, động viên, giúp đỡ suốt thời gian qua Trân trọng ! v TÓM TẮT LUẬN ÁN CAO HỌC Hệ thống thông tin địa lý (GIS) tính ưu việt lónh vực quy hoạch sử dụng đất nông nghiệp khả phân tích không gian, tích hợp liệu khả xử lý đa dạng Từ kết quy hoạch nông nghiệp trước đó, luận án tiến hành nghiên cứu xây dựng giải thuật phân tích không gian, tạo công cụ GIS tự động có tên gọi SDSS ( Spatial Decision Support System ) có chức phân tích " What - if" theo phương án thay đổi chuyển dịch cấu sản xuất nông nghiệp , đưa thông tin đa mục tiêu hỗ trợ nhà quản lý việc định điều chỉnh quy hoạch Luận án viết thành chương - Chương 1: Mở đầu - Chương : Tổng quan tình hình nghiên cứu có liên quan - Chương 3: Xây dựng giải thuật phân tích không gian hỗ trợ định điều chỉnh quy hoạch sử dụng đất nông nghiệp Đây chương quan trọng luận án thể vấn đề nghiên cứu bao gồm : phân tích không gian, phân tích đa mục tiêu, xây dựng giải thuật, lập công cụ SDSS ngôn ngữ Avenu môi trường Arcview vi - Chương 4: Áp dụng thử nghiệm số tình điều chỉnh quy hoạch địa bàn tỉnh Vónh Long - Chương : Kết luận Luận án có thành công bước đầu việc đưa vấn đề thuộc kinh tế - xã hội vào điều chỉnh quy hoạch thông qua việc phân tích đa mục tiêu , công cụ SDSS xử lý nhanh tình đặt giải thuật "What - if" xây dựng chương trình vii MỤC LỤC Trang bìa Nhiệm vụ luận văn thạc só Lời cám ơn Tóm tắt nội dung luận án Mục lục Các từ viết tắt Danh sách hình Danh sách bảng Chương 1: MỞ ĐẦU 1.1 ĐẶT VẤN ĐỀ 1.2 NỘI DUNG NGHIÊN CỨU 1.2.1 Mục tiêu 1.2.2 Nhiệm vụ 1.2.3 Nội dung 1.2.4 Phương pháp thực 1.2.5 Phạm vi nghiên cứu Chương : TỔNG QUAN VỀ TÌNH HÌNH NHỮNG NGHIÊN CỨU CÓ LIÊN QUAN 2.1 CÔNG NGHỆ GIS TRONG ĐIỀU CHỈNH QUY HOẠCH SỬ DỤNG ĐẤT NÔNG NGHIỆP 2.1.1 Công nghệ GIS đánh giá thích nghi đất đai 2.1.2 Công nghệ GIS việc xây dựng công cụ tự động hoá phục vụ quy hoạch nông nghiệp 2.1.2.1 Thành lập đồ tổng hợp đánh giá điều kiện địa lý ngành trồng nho Monđavi 2.1.2.2 Xây dựng mô hình ứng dụng GIS đánh giá khả thích nghi đất đai phục vụ sản xuất nông nghiệp tỉnh Long An 2.1.2.3 Xây dựng đồ thích nghi lúa chất lượng cao tỉnh Vónh Long 2.1.2.4 Phần mềm LUCAS 2.1.2.5 Phần mềm CLUE 2.1.2.6 Phần mềm CIREN 2.2 PHƯƠNG PHÁP LUẬN TRONG ĐIỀU CHỈNH QUY HOẠCH SỬ DỤNG ĐẤT NÔNG NGHIỆP Ở VIỆT NAM 2.3 HỆ HỖ TR RA QUYẾT ĐỊNH KHÔNG GIAN VÀ PHÂN TÍCH MỤC TIÊU Trang i iii iv v vi ix x xi 1 2 3 5 7 10 10 10 10 13 viii 2.3.1 Đánh giá đất đai phân tích hệ thống canh tác kết hợp với kỹ thuật đánh giá đa mục tiêu làm sở cho quy hoạch sử dụng đất đai xã Song Phú, huyện Tam Bình, tỉnh Vónh Long 2.3.2 Hệ thống đa tác nhân cho việc mô thay đổi sử dụng đất 2.3.3 Mô hình sử dụng đất với hệ thống dự báo đa tác nhân cho việc phân tích sách nông nghiệp 2.3.4 Mô hình đa tác nhân nghiên cứu trạng thái phức tạp xã hội việc quản lý trạng thái sử dụng đất 2.4 HƯỚNG KẾ THỪA NGHIÊN CỨU CỦA ĐỀ TÀI Chương 3: XÂY DỰNG GIẢI THUẬT PHÂN TÍCH KHÔNG GIAN HỖ TR RA QUYẾT ĐỊNH ĐIỀU CHỈNH QUY HOẠCH SỬ DỤNG ĐẤT NÔNG NGHIỆP 3.1 CÔNG NGHỆ GIS HỖ TR RA QUYẾT ĐỊNH ĐIỀU CHỈNH QUY HOACÏH SỬ DỤNG ĐẤT NÔNG NGHIỆP 3.1.1 Xác định mục tiêu 3.1.2 Mô hình GIS điều chỉnh quy hoạch sử dụng đất nông nghiệp 3.1.3 Các thuật toán phân tích GIS sử dụng mô hình 3.1.3.1 Thuật toán nhận dạng chọn đối tượng 3.1.3.2 Thuật toán liên thông 3.1.3.3 Thuật toán giao 3.1.3.4 Thuật toán hợp 3.1.3.5 Thuật toán giới hạn 3.2 XÂY DỰNG LƯU ĐỒ GIẢI THUẬT 3.2.1 Lưu đồ giải thuật 3.2.2 Lưu đồ giải thuật " What - if" 3.2.3 Lưu đồ thuật toán chương trình 3.2.3.1 Lưu đồ thuật toán nhận dạng chọn đối tượng 3.2.3.2 Lưu đồ thuật toán liên thông 3.2.3.3 Lưu đồ thuật toán hợp 3.2.3.4 Lưu đồ thuật toán giao 3.2.3.5 Lưu đồ thuật toán giới hạn 3.3 MÔ TẢ CHƯƠNG TRÌNH 3.3.1 Mô tả công cụ SDSS 3.3.2 Thiết kế giao diện 3.3.3 Diễn giải chương trình Chương : ÁP DỤNG THỬ NGHIỆM 4.1 MÔ TẢ VÙNG NGHIÊN CỨU 4.2 DỮ LIỆU ĐẦU VÀO 4.2.1 Lớp quy hoạch sử dụng đất nông nghiệp 13 14 14 14 15 16 16 19 27 30 30 30 31 32 33 34 35 36 45 45 46 47 49 50 51 51 53 56 62 62 67 69 ix 4.2.2 Lớp phân bố thích nghi loại hình sử dụng đất nông nghiệp 4.2.2.1 Lớp phân bố thích nghi lúa 4.2.2.2 Lớp phân bố thích nghi màu 4.2.2.3 Lớp phân bố thích nghi lúa màu 4.2.2.4 Lớp phân bố thích nghi lâu năm 4.2.2.5 Lớp phân bố thích nghi thuỷ sản 4.2.3 Phân tích đa mục tiêu đánh giá trọng số đối tượng quy hoạch 4.3 XÂY DỰNG CÁC TÌNH HUỐNG ÁP DỤNG THỬ NGHIỆM 4.3.1 Mở rộng vùng lúa xuất 4.3.1.1 Phân tích tình 4.3.1.2 Áp dụng thử nghiệm 4.3.2 Chuyển dịch cấu sản xuất từ đất trồng ăn trái sang ao nuôi thuỷ sản bãi bồi ven sông 4.3.2.1 Phân tích tình 4.3.2.2 Áp dụng thử nghiệm 4.3.3 Xây dựng phương án chọn để phát triển làng trồng hoa kiểng 4.3.3.1 Phân tích tình 4.3.3.2 Áp dụng thử nghiệm Chương : KẾT LUẬN 5.1 NHỮNG VẤN ĐỀ ĐẠT ĐƯC 5.2 NHỮNG VẤN ĐỀ CẦN PHÁT TRIỂN THÊM Phần phụ lục Tài liệu tham khảo Những công trình nghiên cứu có liên quan đến luận án tác giả Lý lịch trích ngang 70 70 71 72 73 74 75 79 79 79 79 82 82 82 85 85 85 89 89 91 xii xxviii xxx xxxi x CÁC TỪ VIẾT TẮT GIS ( Geographic Information System) : Hệ thống thông tin địa lý FAO ( Food and Agriculture Organization) : Tổ chức lương nông giới DSS (Decision Support System) : Hệ hỗ trợ định SDSS (Spatial Decision Support System) : Hệ hỗ trợ định không gian điều chỉnh quy hoạch nông nghiệp ) LUT (Land-use type) : Loại hình sử dụng đất LE (Land Evaluation) : Đánh gía đất đai FSA (Farming System Analysis) : Phân tích hệ thống canh tác AHP ( Analytic Hierachi Process) : Tiến trình phân tích thứ bậc CR ( Consistency Ratio) : Chỉ số quán GDP (Gross Domestic Product) : Tổng sản phẩm kinh tế quốc nội ĐBSCL : Đồng sơng Cửu Long xvii if ((rad3.IsSelected) or (rad5.Isselected)) then tThichnghi=theView.FindTheme("thichnghilua_mau.shp") exp="[mucthichnghi] = ""S1""" lv="Đất lúa luân canh màu" tb=tThichnghi.getFtab bm=tb.getSelection bl=tb.Query(exp,bm,#VTAB_SELTYPE_NEW) if (theView.findtheme("qhluamaumoitang.shp")nil) then theView.deletetheme(theView.findTheme("qhluamaumoitang.shp")) theView.Invalidate end t=av.run("Xuan.IntersectTwoTheme",{tThichNghi,theTheme,"qhluamaumoitang"}) av.run("Xuan.Eliminate",{t,0.45}) atb=t.getFtab atb.GetSelection.SetAll atb.UpdateSelection f=atb.findField("sdd") atb.setEditable(true) for each r in atb.getSelection atb.setValue(f,r,"Đất luân canh lúa mµu") end atb.setEditable(false) atb.GetSelection.ClearAll atb.UpdateSelection end if (rad4.IsSelected) then tThichnghi=theView.FindTheme("thichnghimau.shp") exp="[mucthichnghi] = ""S1""" lv="Đất chuyên rau màu - CNNN" tb=tThichnghi.getFtab bm=tb.getSelection bl=tb.Query(exp,bm,#VTAB_SELTYPE_NEW) if (theView.findtheme("qhmaumoitang.shp")nil) then theView.deletetheme(theView.findTheme("qhmaumoitang.shp")) theView.Invalidate end t=av.run("Xuan.IntersectTwoTheme",{tThichNghi,theTheme,"qhmaumoitang"}) av.run("Xuan.Eliminate",{t,0.45}) atb=t.getFtab atb.GetSelection.SetAll atb.UpdateSelection f=atb.findField("sdd") atb.setEditable(true) for each r in atb.getSelection atb.setValue(f,r,"Đất chuyên rau màu") end xviii atb.setEditable(false) atb.GetSelection.ClearAll atb.UpdateSelection end if (rad5.IsSelected) then tThichnghi=theView.FindTheme("thichnghicaylaunam.shp") exp="[mucthichnghi] = ""S1""" lv="§Êt trång ăn trái" tb=tThichnghi.getFtab bm=tb.getSelection bl=tb.Query(exp,bm,#VTAB_SELTYPE_NEW) if (theView.findtheme("qhcatmoitang.shp")nil) then theView.deletetheme(theView.findTheme("qhcatmoitang.shp")) theView.Invalidate end t=av.run("Xuan.IntersectTwoTheme",{tThichNghi,theTheme,"qhcatmoitang"}) av.run("Xuan.Eliminate",{t,0.45}) atb=t.getFtab atb.GetSelection.SetAll atb.UpdateSelection f=atb.findField("sdd") atb.setEditable(true) for each r in atb.getSelection atb.setValue(f,r,"Đất trồng ăn trái") end atb.setEditable(false) atb.GetSelection.ClearAll atb.UpdateSelection end if (rad6.IsSelected) then tThichnghi=theView.FindTheme("thichnghilua.shp") lv="§Êt lóa kết hợp nuôi thuỷ sản" exp="[mucthichnghi] = ""S1""" tb=tThichnghi.getFtab bm=tb.getSelection bl=tb.Query(exp,bm,#VTAB_SELTYPE_NEW) if (theView.findtheme("qhluacamoitang.shp")nil) then theView.deletetheme(theView.findTheme("qhluacamoitang.shp")) theView.Invalidate end t=av.run("Xuan.IntersectTwoTheme",{theTheme,tThichnghi,"qhluacamoitang"}) av.run("Xuan.Eliminate",{t,0.45}) atb=t.getFtab atb.GetSelection.SetAll atb.UpdateSelection f=atb.findField("sdd") xix atb.setEditable(true) for each r in atb.getSelection atb.setValue(f,r,"Đất lúa kết hợp nuôi thủy sản") end atb.setEditable(false) atb.GetSelection.ClearAll atb.UpdateSelection end if (rad7.IsSelected) then tThichnghi=theView.FindTheme("thichnghithuysan.shp") lv="Ao hå nu«i thủ s¶n" exp="[mucthichnghi] = ""S1""" tb=tThichnghi.getFtab bm=tb.getSelection bl=tb.Query(exp,bm,#VTAB_SELTYPE_NEW) if (theView.findtheme("qhtsmoitang.shp")nil) then theView.deletetheme(theView.findTheme("qhtsmoitang.shp")) theView.Invalidate end t=av.run("Xuan.IntersectTwoTheme",{theTheme,tThichnghi,"qhtsmoitang"}) av.run("Xuan.Eliminate",{t,0.45}) atb=t.getFtab atb.GetSelection.SetAll atb.UpdateSelection f=atb.findField("sdd") atb.setEditable(true) for each r in atb.getSelection atb.setValue(f,r,"Ao hồ nuôi thủy sản") end atb.setEditable(false) atb.GetSelection.ClearAll atb.UpdateSelection end if (rad8.IsSelected) then t=theTheme for each re in t.getFtab Flag=1 end if (Flag=0) then msgbox.info("Vïng điều chỉnh không đạt yêu cầu, đề nghị chọn lại vùng khác", "Thông báo") if (theView.findTheme("moitang")nil) then theView.deletetheme(theView.findTheme("moitang")) end av.FindDialog("dlgDieuChinhqh").open exit end xx theView.addTheme(t) t.setVisible(true) if (theView.findTheme("moitang")nil) then theView.deletetheme(theView.findTheme("moitang")) end tXa=theView.FindTheme("diaban.shp") tHuyen=theView.FindTheme("tenhuyen.shp") tbXa=tXa.GetFtab tbHuyen=tHuyen.GetFtab tXa.selectByTheme(t,#FTAB_RELTYPE_INTERSECTS,0,#VTAB_SELTYPE_NEW) fXa=tbXa.FindField("ten_xa") tenxa="" for each r in tbXa.getSelection tenxa= tbXa.returnvalue(fxa,r) + ", " + tenxa end tXa.selectBytheme(t,#FTAB_RELTYPE_INTERSECTS,0,#VTAB_SELTYPE_NEW) fHuyen=tbXa.FindField("ten_huyen") tenhuyen="" th="" for each r in tbXa.getSelection if (thtbXa.returnvalue(fhuyen,r)) then tenhuyen= tbXa.returnvalue(fhuyen,r) + ", " + tenhuyen end th=tbXa.returnvalue(fhuyen,r) end DT=0 f=t.getFTab.FindField("shape") for each r in t.getFtab DT=DT + t.GetFtab.returnValue(f,r).ReturnArea end DT=(Dt/1000000)*100 vitriluu=av.run("Xuan.Path",{}) + "sauquyhoach\sauquyhoach.shp" _DTSAU=dt av.run("Xuan.overlay",{}) av.run("Xuan.OpendlgKetQua",{lv,dt,tenxa,tenhuyen,vitriluu,"- Diện tích điều chỉnh tăng hêm " }) exit end Flag=0 tb=t.GetFtab b=tb.getSelection bm=tb.Query(exp,b,#VTAB_SELTYPE_NEW) tb.GetSelection.Not tb.UpdateSelection tb.setEditable(true) xxi tb.BeginTransaction tb.RemoveRecords(tb.GetSelection.Clone) tb.EndTransaction for each re in t.getFtab Flag=1 end if (Flag=0) then msgbox.info("Vùng điều chỉnh không đạt yêu cầu, đề nghị chọn lại vùng khác", "Thông báo") if (theView.findTheme("moitang")nil) then theView.deletetheme(theView.findTheme("moitang")) end av.FindDialog("dlgDieuChinhqh").open exit end theView.addTheme(t) t.setVisible(true) if (theView.findTheme("moitang")nil) then theView.deletetheme(theView.findTheme("moitang")) end tXa=theView.FindTheme("diaban.shp") tHuyen=theView.FindTheme("tenhuyen.shp") tbXa=tXa.GetFtab tbHuyen=tHuyen.GetFtab tXa.selectByTheme(t,#FTAB_RELTYPE_INTERSECTS,0,#VTAB_SELTYPE_NEW) fXa=tbXa.FindField("ten_xa") tenxa="" for each r in tbXa.getSelection tenxa= tbXa.returnvalue(fxa,r) + ", " + tenxa end tXa.selectBytheme(t,#FTAB_RELTYPE_INTERSECTS,0,#VTAB_SELTYPE_NEW) fHuyen=tbXa.FindField("ten_huyen") tenhuyen="" th="" for each r in tbXa.getSelection if (thtbXa.returnvalue(fhuyen,r)) then tenhuyen= tbXa.returnvalue(fhuyen,r) + ", " + tenhuyen end th=tbXa.returnvalue(fhuyen,r) end DT=0 f=t.getFTab.FindField("shape") for each r in t.getFtab DT=DT + t.GetFtab.returnValue(f,r).ReturnArea end DT=(Dt/1000000)*100 xxii 'myText = MsgBox.Input( "Nhap duong dan", "Nhap duong dan", "D:\THANHXUAN\BANDO\Sauquyhoach" ) 'vitriluu=av.run("Xuan.Path",{}) + "sauquyhoach\sauquyhoach.shp" 'vitriluu=myText + "\sauquyhoach.shp" _DTSAU=dt av.run("Xuan.overlay",{}) av.run("Xuan.OpendlgKetQua",{lv,dt,tenxa,tenhuyen,_vitriluu,"- Diện tích điều chỉnh tăng thêm " }) SO TRỌNG SỐ theView=av.getActiveDoc dlg=av.FindDialog("dlgDieuChinhqh") rad1=dlg.FindByname("rad1") rad2=dlg.FindByname("rad2") rad3=dlg.FindByname("rad3") rad4=dlg.FindByname("rad4") rad5=dlg.FindByname("rad5") rad6=dlg.FindByname("rad6") rad7=dlg.FindByname("rad7") rad8=dlg.FindByname("rad8") rad9=dlg.FindByname("rad9") tNghiLuamau=theView.FindTheme("thichnghilua_mau.shp") tNghiMau=theView.FindTheme("thichnghimau.shp") tNghiCayLauNam=theView.FindTheme("thichnghicaylaunam.shp") tNghiTs=theView.FindTheme("Thichnghithuysan.shp") tNghiLua=theView.FindTheme("ThichNghiLua.shp") tNghiLuamau.clearSelection tNghimau.clearSelection tNghiCayLauNam.clearSelection tNghiTS.clearSelection tNghiLua.ClearSelection th1=theView.FindTheme("quyhoach.shp") if (rad1.IsSelected) then th2=theView.FindTheme("moitang") end if (rad2.IsSelected) then th2=theView.FindTheme("moitang") end if (rad3.IsSelected) then th2=theView.FindTheme("moitang") end if (rad4.IsSelected) then th2=theView.FindTheme("moitang") end if (rad5.IsSelected) then xxiii th2=theView.FindTheme("moitang") end if (rad55.IsSelected) then th2=theView.FindTheme("moitang") end if (rad6.IsSelected) then th2=theView.FindTheme("moitang") end if (rad7.IsSelected) then th2=theView.FindTheme("moitang") end if (rad8.IsSelected) then th2=theView.FindTheme("moitang") end if (rad9.IsSelected) then th2=theView.FindTheme("moitang") end theView.SetEditableTheme(NIL) theVtab=th1.getFtab oldBm=theVtab.getSelection bm=theVtab.getSelection if (rad1.IsSelected) then exp="[trongso] < 1" end if (rad2.IsSelected) then exp="[trongso] < 2" end if (rad3.IsSelected) then exp="[trongso]