Xây dựng chương trình quản lý hồ sơ địa chính cho UBND phường bến gót TP việt trì tỉnh phú thọ

MỤC LỤC LỜI NÓI ĐẦU Chương CƠ SỞ LÝ THUYẾT 1.1 Ngôn ngữ lập trình Visual Basic 1.2 Hệ quản trị sở liệu Microsoft Access 11 Chương PHÂN TÍCH, THIẾT KÊ HỆ THỐNG QUẢN LÝ HỒ SƠ ĐỊA CHÍNH PHƯỜNG BẾN GÓT .15 2.1 Khảo sát toán quản lý hồ sơ địa phường Bến Gót .15 2.1.1 Mục tiêu khảo sát 15 2.1.2 Giới thiệu tổng quan hệ thống quản lý đất đai cấp 15 2.1.3 Khảo sát công tác quản lý hồ sơ địa Phường Bến Gót 18 2.1.4 Mẫu đơn xin cấp giấy chứng nhận quyền sử dụng đất .30 2.1.5 Đánh giá trạng 31 2.1.6 Mục đích tin học hoá hệ thống 31 2.1.7 Yêu cầu hệ thống 32 2.2 Phân tích thiết kế hệ thống 33 2.2.1 Cơ sở lý thuyết 33 2.2.2 Thiết kế tổng thể hệ thống 40 2.3 Thiết kế sở liệu 48 2.3.1 Xác định thực thể 48 2.3.2 Các bảng liệu 48 2.3.3 Mối quan hệ thực thể 52 2.3.4 Mô hình thực thể quan hệ 54 Chương XÂY DỰNG VÀ CÀI ĐẶT CHƯƠNG TRÌNH .55 3.1 Cửa sổ chương trình 55 3.2 Menu chức hệ thống 56 3.3 Menu chức cập nhật danh mục 58 3.4 Mennu chức cập nhật sổ 60 3.5 Mennu chức theo dõi biến động 62 3.6 Mennu chức Tra cứu/Thống kê .64 3.7 Cài đặt chạy thử chương trình .68 KẾT LUẬN .69 TÀI LIỆU THAM KHẢO 70 NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN 71 PHỤ LỤC 72 LỜI NÓI ĐẦU Chúng ta sống thời đại công nghệ thông tin phát triển mạnh mẽ toàn cầu Việc ứng dụng công nghệ thông tin vào công việc mang lại độ xác hiệu cao Chính mà nhiều quan, xí nghiệp, đơn vị hành chính…Chú trọng phát triển ứng dụng công nghệ thông tin vào công tác quản lý Quản lý công việc vất vả nặng nhọc người Từ máy tính đời, góp phần đáng kể vào việc giảm bớt gánh nặng cho nhà quản lý, chủ doanh nghiệp…Việc quản lý có sử dụng máy vi tính tiêu, thước đo xã hội văn minh đồng thời thước đo đơn vị, doanh nghiệp làm ăn có quy mô tầm cỡ Qua tìm hiểu khâu trình quản lý hồ sơ địa Phường Bến Gót Thành phố Việt Trì Tỉnh Phú Thọ Công việc thủ công khâu quản lý Vì em thực đồ án ” Xây dựng chương trình quản lý hồ sơ địa cho UBND Phường Bến Gót - TP Việt Trì - Tỉnh Phú Thọ” Nhằm vận dụng kiến thức học, để phân tích thiết kế chương trình hỗ trợ khâu công tác quản lý hồ sơ địa chính, phù hợp với mô hình quản lý địa Phường Bến Gót Tuy nhiên, thân em có nhiều cố gắng, song đề tài phức tạp, nên trình thực với luợng kiến thức kinh nghiệm khảo sát, phân tích thiếu, nội dung báo cáo sản phẩm chắn nhiều hạn chế Em mong thầy cô thông cảm có ý kiến bảo, chỉnh sửa để đề tài em hoàn thiện ứng dụng vào thực tế Cuối em xin gửi lời cảm ơn chân thành đến cô giáo Nguyễn Thu Hương, tập thể thầy cô Cán địa Phường Bến Gót giúp đỡ hướng dẫn em nghiệp vụ địa để em hoàn thành Đồ án Thái Nguyên, tháng năm 2008 Chương CƠ SỞ LÝ THUYẾT 1.1 Ngôn ngữ lập trình Visual Basic 1.1.1 Giới thiệu chung ngôn ngữ lập trình Visual Basic Visual Basic công cụ lập trình trực quan Microsoft, giúp người lập trình xây dựng cách nhanh chóng hiệu ứng dựng Windows Khác với môi trường lập trình hướng thủ tục trước Visual Basic môi trường lập trình hướng đối tượng Windows Visual Basic không cung cấp công cụ hoàn chỉnh để đơn giản hoá việc triển khai lập trình ứng dụng, mà Visual Basic cung cấp cho người lập trình công cụ kết nối sở liệu cách thật dễ dàng Khi muốn thiết kế chương trình Visual Basic, luôn trải qua hai bước là: + Thiết kế giao diện: Thiết kế giao diện thiết kế hình dạng Form, việc bố trí điều khiển + Viết lệnh cho điều khiển: Dùng lệnh Visual Basic để quy định cách ứng xử cho Form cho Control 1.1.2 Các đối tượng cách sử dụng đối tượng Visual Basic Visual Basic ngôn ngữ lập trình theo kiểu hướng đối tượng làm việc với Visual Basic làm việc với đối tượng Đặc điểm đối tượng chương trình: + Mỗi đối tượng có thuộc tính tên để phân biệt + Mối đối tượng có nhiều đặc tính, đặc tính gọi thuộc tính (Property) đối tượng + Mỗi đối tượng có nhiều hoạt động hoạt động gọi phương thức (Method) + Mỗi đối tượng có phản ứng (sự kiện) - Cách truy xuất đối tượng: Truy xuất đối tượng đặt thuộc tính cho đối tượng này, truy xuất đối tượng thực theo cú pháp sau: . - Viết lệnh cho đối tượng Khi đặt điều khiển lên Form lúc đầu chưa hoạt động phải viết lệnh cho đối tượng cách chọn đối tượng sau vào Menu View/Code (hoặc Double Click vào đối tượng) cửa sổ lệnh cho phép viết lệnh vào cửa sổ Mỗi phần mã lệnh cho kiện xảy đối tượng có hai dòng tiêu đề đầu Sub cuối End Sub, mã lệnh viết vào hai dòng Visual Basic có đặc điểm tự kiểm tra cú pháp ta viết lệnh Khi viết xong dòng lệnh chuyển sang dòng lệnh khác VB kiểm tra câu lệnh vừa viết có lỗi báo lại tự động đối chữ thường, chữ hoa cho chương trình rõ ràng 1.1.3 Cửa sổ Properties Cửa sổ cho phép lập trình viên xem xét sửa đổi thuộc tính biểu mẫu điều khiển lúc thiết kế Phần cửa sổ danh sách đối tượng Đối tượng chọn danh sách có thuộc tính hiển thị phần bên cửa sổ 1.1.4 Biến, kiểu liệu Visual Basic - Biến: Biến dùng để lưu tạm thời giá trị tính toán trình xử lý chương trình Do xử lý chương trình có yêu cầu nên cần phải lưu trữ giá trị để tính toán để so sánh… Mỗi biến đặc trưng tên biến, biến sẵn chương trình muốn sử dụng chúng phải khai báo cách thức sau: Dim/Static/Public/Global As Khai báo với từ khóa Dim, Static dùng để khai báo cho biến cục Khai báo với từ khóa Public, Global dùng để khai báo biến dùng chung cho toàn chương trình - Hằng: Hằng dùng để chứa liệu tạm thời không thay đổi suốt thời gian chương trình hoạt động Sử dụng số làm chương trình sáng sủa, dễ đọc nhờ tên gợi nhớ thay số Visual Basic cung cấp số định nghĩa sẵn, người lập trình tự tạo cách khai báo theo cú pháp: [Public| Private] const As = - Các kiểu liệu Visual Basic Khi bạn khai báo biến chương trình tức ta tạo khoảng nhớ để lưu giá trị đó, khoảng nhớ lớn hay nhỏ tùy thuộc vào biến khai báo theo kiểu Khi khai báo điều quan trọng xác định biến cho phù hợp với giá trị đưa vào - Các kiểu liệu chuẩn như: + String: Là liệu kiểu chuỗi, khoảng giá trị lên đến hai tỷ ký tự Nhận biết tiếp vị ngữ $ + Byte: Là số nguyên dương, khoảng giá trị từ đến 255 + Long: Là số nguyên, khoảng giá trị từ –2.147.483.648 đến +2.147.483.647 Nhận biết dấu & cuối + Integer: Là số nguyên Nhận biết dấu % cuối + Single: Là số có dấu chấm thập phân Nhận biết dấu!ở cuối dòng + Double: Là số có dấu chấm thập phân Nhận biết dấu # cuối dòng + Date: Lưu trữ thông tin thời gian Nhận biết dấu # đầu cuối dòng + Boolean: Biến logic có giá trị true, hay false dùng để gán giá trị câu lệnh điều kiện 1.1.5 Cấu trúc điều khiển - Cấu trúc lựa chọn + Câu lệnh If…Then If then End if + Câu lệnh If…Then…Else If then ……… Else End If + Câu lệnh Select …Case Cú pháp: Select Case Case ……… Case Case else End select 1.1.6 Cấu trúc vòng lặp + Câu lệnh Do…Loop: Thi hành khối lệnh với số lần lặp không định trước Trong đó, biểu thức điều kiện dùng để so sánh để định vòng lặp có tiếp tục không Điều kiện phải quy False (Bằng 0), True (Khác 0) Cú pháp 1: Lặp điều kiện true Do While Exit Loop Cú pháp 2: Vòng lặp có lần thi hành khối lệnh Do Exit While loop Cú pháp 3: Lặp điều kiện false Do Until Exit Loop Cú pháp 4: Lặp điều kiện False có lần thi hành khối lệnh Do Exit Loop Until + Câu lệnh For…Next: Biết trước số lần lặp việc dùng biến đếm tăng dần giảm dần vòng lặp Cú pháp: For counter=Start to End [Step step] [Exit For] Next counter Trong đó: - Counter: biến đếm kiểu số nguyên - Start: giá trị bắt đầu Counter - End: giá trị kết thúc Counter - Step: bước nhảy lần lặp, giá trị mặc định bước nhảy + Câu lệnh For Each…Next: Tương tự vòng lặp For … Next, lặp khối lệnh theo số phần tử tập đối tượng hay mảng thay theo số lần lặp xác định Vòng lặp tiện lợi có phần tử tập hợp Cú pháp For Each In Exit For Next + Câu lệnh Go to Được dùng cho bẫy lỗi On Error Goto ErrThem_click Khi có lỗi chương trình nhảy đến nhãn ErrThem_click thi hành lệnh 1.1.7 Giới thiệu kỹ thuật lập trình ADO ADO kỹ thuật lập trình kết nối sở liệu phát triển gần Visual Basic Không giống kỹ thuật truy nhập sở liệu khác Visual Basic, ADO cung cấp cho người lập trình nhiều chọn lựa việc truy xuất liệu Mặt khác, ADO không truy cập trực tiếp đến sở liệu, ADO làm việc với tầng thấp OLEDB Provider, OLEDB Provider có nhiệm vụ truy xuất đến nhiều loại liệu khác nhau, sau trình bày sở liệu ngược lại đến ADO Thuận lợi ADO thay đổi OLEDB Provider Kỹ thuật ADO cho phép truy cập liệu thông qua cách: - Data controls (các điều khiển liệu): Là điều khiển có chức giao tiếp, cập nhật sở liệu Để nhìn thấy liệu ta phải dùng số control thông thường khác (textbox, checkbox, label,…) thiết lập số thuộc tính kết buộc liệu _databinding đến data control - Object interface (giao tiếp đối tượng): Nếu không dùng sẵn data control Visual Basic ta truy xuất liệu cách tạo tham chiếu đến ADO – tập hợp đối tượng tạo có sẵn chương trình cần dùng đến Do bạn thao tác liệu trực tiếp từ code chương trình (dùng phương thức thuộc tính đối tượng cung cấp) mà dùng data control Data control dễ thiết lập hơn, sử dụng Object interface mạnh uyển chuyển 1.1.8 Đối tượng Connection đối tượng Recordset - Đối tượng Connection Lệnh khai báo khởi động đối tượng Connection: Dim tên_connection as new ADODB.connection Hoặc là: Dim tên_connection as ADODB.connection Set tên_connection = new ADODB.connection + Chỉ chuỗi kết nối sở liệu (Connnection String) Tên_biến.ConnectionString Có thể sử dụng: + Đường dẫn trực tiếp ConnectionString + Đường dẫn tương đối qua đối tượng APP Visual Basic cung cấp để vị trí lưu trữ DataBase Mở kết nối Tên_connection.Open Để kiểm tra việc kết nối có thành công hay không dùng thuộc tính state: Nếu kết nối thành công tên_connection.state=adStateOpen (hay 1) Ngược lại tên_connection.state = adStateClose ( hay ) Đóng kết nối  Form hiển thị thông tin đất Hình 3.18 Form hiển thị thông tin đất + Chức tìm kiếm Chức tìm kiếm gồm có ba chức là: Tìm kiếm thông tin người sử dụng đất, thông tin đất, thông tin giấy chứng nhận quyền sử dụng đất Các chức cho phép người sử dụng tìm kiếm nhanh, thông tin người sử dụng đất, thông tin đất, thông tin giấy chứng nhận quyền sử dụng đất  Form tìm kiếm thông tin người sử dụng đất Hình 3.19 Form Tìm kiếm người sử dụng đất 65  Form tìm kiếm thông tin đất Hình 3.20 Form tìm kiếm đất  Form tìm kiếm thông tin giấy chứng nhận quyền sử dụng đất Hình 3.21 Form tìm kiếm thông tin giấy chứng nhận 66 +Chức thống kê Chức thống kê hệ thống gồm có chức là: Thống kê diện tích đất nông nghiệp, thống kê diện tích đất phi nông nghiệp, thống kê người sử dụng đất, thống kê kiểm kê đất đai theo mục đích sử dụng  Form thống kê đối tượng sử dụng đất Hình 3.22 Form thống kê đối tượng sử dụng đất 67 3.7 Cài đặt chạy thử chương trình - Trước chạy chương trình: + Cài font Unicode(VK Sans serif) từ cài Vietkey 2000 + Set font hệ thống theo font VK Sans serif để việc hiển thị liệu, thông báo, tiêu đề thuận lợi - Việc chạy thử chương trình quản lý hồ sơ địa thực theo Menu chức từ trái qua phải, từ xuống đưới Đúng theo quy trình quản lý, cập nhật hồ sơ thực tế 68 KẾT LUẬN Sau thời gian tìm hiểu, khảo sát công tác quản lý hồ sơ địa Phường Bến Gót - TP Việt Trì - Tỉnh Phú Thọ nghiên cứu ứng dụng kỹ thuật thiết kế xử lý liệu việc sử dụng ngôn ngữ lập trình Visual Basic 6.0, hệ quản trị sở liệu Microsoft Access vào công việc cụ thể phân tích, thiết kế xây dựng chương trình quản lý hồ sơ địa chính, giúp em hiểu cách làm toán quản lý thực tế Mục đích toán nâng cao hiệu qủa quản lý, trợ giúp công việc quản lý hồ sơ địa Cơ sở liệu thiết kế để lưu trữ hồ sơ địa chủ yếu Chương trình đạt số ưu điểm sau: - Giao diện đơn giản, dễ sử dụng xếp theo trình tự khối công việc phù hợp logic với thời gian quy trình công việc thực tế quản lý hồ sơ địa Phường - Các thao tác nhập liệu, thêm thông tin, tra cứu thông tin thiết kế theo hướng thuận tiện cho người sử dụng, tiết kiệm thao tác cho người sử dụng hệ thống - Chương trình truy cập nhanh quản lý gọn Chương trình tồn số hạn chế: - Hiện tại, hệ thống chưa hỗ trợ hoạt động quản lý đồ, nhu cầu lớn công tác quản lý hồ sơ địa - Hệ thống hạn chế số chức thực tế Hướng phát triển đề tài: - Phát triển hệ thống đầy đủ chức mở rộng chương trình phù hợp với đặc thù quản lý địa nhiều sở - Phát triển, hình thành sở liệu chuẩn hệ thống quản lý hồ sơ địa cấp - Mở rộng tương tác với đồ địa 69 TÀI LIỆU THAM KHẢO [1] Thông tư 29/2004/TT-BTNMT ngày 10-11-2004 Bộ Tài nguyên Môi Trường việc hướng dẫn lập, chỉnh lý, quản lý hồ sơ địa [2] Những văn hướng dẫn đất đai, nhà xây dựng, Nhà xuất Lao động - Hà Nội 2004 [3] Đào Xuân Bái - Giáo trình Hồ sơ địa chính, Nhà xuất lao động Hà Nội - 2004 [4] Nguyễn Văn Ba - Phân tích thiết kế hệ thống thông tin, Nhà xuất Đại học quốc gia Hà Nội, 2002 [5] Đinh Xuân Lâm - Những thực hành sở liệu Visual Basic bản, Nhà xuất thống kê, 2004 [6] Hạnh Nguyên - Những thực hành sở liệuVisual Basic 6.0 chuyên sâu - Nhà xuất thống kê, 2004 [7] Nguyễn Đình Tê - Microsoft Access lập trình ứng dụng sở liệu, Nhà xuất giáo dục, 2000 70 NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN Chữ ký giáo viên hướng dẫn NGUYỄN THU HƯƠNG 71 PHỤ LỤC Mã nguồn số modul chương trình Modul cập nhật sổ địa Private Sub cmdtk_Click() frm_tkdoituongsd.Show End Sub Private Sub Command1_Click() If DE.rssodiachinh.State = Then DE.rssodiachinh.Open End If DE.rssodiachinh.Requery rpt_sodiachinh.Show End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() frm_chusohuu.Show End Sub Private Sub Form_Load() Me.WindowsXPC1.InitSubClassing Call opendb hienthi End Sub Sub hienthi() Me.ListView1.ListItems.Clear Dim s As String Dim i As Integer 72 i=1 Dim Item As ListItem s = "SELECT TB_NguoiSDD.TenNSDD, TB_NhomSD.MaNhomSD, TB_NhomSD.TenNhom, TB_NguoiSDD.DiaChi" s = s & " FROM TB_NhomSD INNER JOIN TB_NguoiSDD ON TB_NhomSD.MaNhomSD = TB_NguoiSDD.MaNhomSD" rs.Open s, cnn If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF Set Item = Me.ListView1.ListItems.Add(, , i) Item.SubItems(1) = rs(0) Item.SubItems(2) = rs(1) & " - " & rs(2) Item.SubItems(3) = rs(3) rs.MoveNext i=i+1 Loop End If rs.Close End Sub Private Sub Form_Unload(Cancel As Integer) Me.WindowsXPC1.EndWinXPCSubClassing End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim sql As String sql = "Select * from TB_NguoiSDD Where TenNSDD='" & Item.SubItems(1) & "'" rs.Open sql, cnn If Not rs.EOF Then 73 Text8.Text = Item.SubItems(3) Text1.Text = Item.SubItems(2) Text2.Text = rs("TenNSDD") Text3.Text = rs("GioiTinh") Text4.Text = Format(rs("NgaySinh"), "dd/mm/yyyy") Text5.Text = rs("CMND") Text6.Text = Format(rs("NgayCap"), "dd/mm/yyyy") Text7.Text = rs("NoiCap") Text9.Text = rs("hokhau") End If rs.Close End Sub Modul cập nhật sổ mục kê Private Sub Command1_Click() frm_thuadat.Show End Sub Private Sub Command2_Click() frm_tkthuadat.Show End Sub Private Sub Command3_Click() rs.Open "Select * from TB_ThuaDat where ThuaSo='" & Trim(Me.txtThuaSo.Text) & "'", cnn, 1, If Not rs.EOF Then If MsgBox("B¹n cã ch¾c ch¾n muèn xo¸ kh«ng?", vbYesNo + vbExclamation, "Th«ng b¸o") = vbYes Then rs.Delete End If End If rs.Close 74 End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() Dim res As New ADODB.Recordset Dim re As New ADODB.Recordset cnn.Execute "Delete from somucke" Dim ghichu As String Dim s As String s = "SELECT TB_NhomSD.MaNhomSD, TB_NhomSD.TenNhom, TB_NguoiSDD.MaNSDD, TB_NguoiSDD.TenNSDD, TB_ThuaDat.ThuaSo, TB_ThuaDat.DTChung +TB_ThuaDat.DTRieng as dt, TB_LoaiDat.MaLoai, TB_LoaiDat.TenLoai, TB_ThuaDat.ToBDSo" s = s & " FROM (TB_NhomSD INNER JOIN (TB_NguoiSDD INNER JOIN TB_ThuaDat ON TB_NguoiSDD.MaNSDD = TB_ThuaDat.MaNSDD) ON TB_NhomSD.MaNhomSD = TB_NguoiSDD.MaNhomSD) INNER JOIN (TB_LoaiDat INNER JOIN TB_LoaiThua ON TB_LoaiDat.MaLoai = TB_LoaiThua.MaLoai) ON TB_ThuaDat.ThuaSo = TB_LoaiThua.ThuaSo" rs.Open s, cnn If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF res.Open "Select * from somucke", cnn, 1, res.AddNew res(0) = rs("ToBDSo") res(1) = rs("ThuaSo") res(2) = rs("TenNSDD") 75 res(3) = rs("MaNhomSD") res(4) = rs("dt") res(5) = rs("MaLoai") re.Open "Select distinct NoiDung From TB_BienDong where ThuaSo='" & rs("ThuaSo") & "'", cnn If Not re.EOF Then re.MoveFirst Do While Not re.EOF ghichu = ghichu & re(0) & ", " re.MoveNext Loop End If re.Close If Len(ghichu) Then res(6) = Mid(ghichu, 1, Len(ghichu) - 2) End If res.Update res.Close rs.MoveNext Loop End If rs.Close res.Open "Select * from somucke", cnn res.Close If DE.rssomucke.State = Then DE.rssomucke.Open End If DE.rssomucke.Requery rpt_somucke.Show 76 End Sub Private Sub Form_Load() Me.WindowsXPC1.InitSubClassing opendb hienthi End Sub Sub hienthi() Me.ListView1.ListItems.Clear Dim Item As ListItem Dim i As Integer Dim mdsd, nhomsd As String Dim dt As Double Dim strsql As String i=1 'strsql = "SELECT TB_ThuaDat.ThuaSo, TB_NguoiSDD.MaNSDD, TB_NguoiSDD.TenNSDD, TB_NhomSD.MaNhomSD, TB_NhomSD.TenNhom, TB_ThuaDat.DTChung, TB_ThuaDat.DTRieng, TB_LoaiDat.MaLoai, TB_LoaiDat.TenLoai" 'strsql = sql & " FROM TB_NhomSD INNER JOIN ((TB_NguoiSDD INNER JOIN TB_ThuaDat ON TB_NguoiSDD.MaNSDD = TB_ThuaDat.MaNSDD) INNER JOIN (TB_LoaiDat INNER JOIN TB_LoaiThua ON TB_LoaiDat.MaLoai = TB_LoaiThua.MaLoai) ON TB_ThuaDat.ThuaSo = TB_LoaiThua.ThuaSo) ON TB_NhomSD.MaLoaiSD = TB_NguoiSDD.MaLoaiSD" rs.Open "Qr_somucke", cnn If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF dt = rs("DTChung") + rs("DTRieng") 77 nhomsd = rs("MaNhomSD") & " - " & rs("TenNhom") mdsd = rs("MaLoai") & " - " & rs("TenLoai") Set Item = ListView1.ListItems.Add(, , i) Item.SubItems(1) = rs("ThuaSo") Item.SubItems(2) = rs("MaNSDD") Item.SubItems(3) = rs("TenNSDD") Item.SubItems(4) = nhomsd Item.SubItems(5) = dt Item.SubItems(6) = mdsd rs.MoveNext i=i+1 Loop End If rs.Close End Sub Private Sub Form_Unload(Cancel As Integer) Me.WindowsXPC1.EndWinXPCSubClassing End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim res As New ADODB.Recordset Dim str As String str = "Select * from TB_ThuaDat where ThuaSo='" & Item.SubItems(1) & "' "rs.Open str, cnn If Not rs.EOF Then Me.txtdiachi.Text = rs(3) Me.txtbd.Text = rs(5) Me.txtdtchung.Text = rs(7) Me.txtdtrieng.Text = rs(8) Me.txtngayvaoso.Text = Format(rs(2), "dd/mm/yyyy") 78 If Not IsNull(rs(9)) Then res.Open "Select * from TB_NguonGocSD Where NguonGoc='" & rs(9) & "'", cnn Me.txtnguongoc.Text = res(0) & " - " & res(1) res.Close Else Me.txtnguongoc.Text = "" End If If Not IsNull(rs(11)) Then Me.txtthoihan.Text = rs(11) Else Me.txtthoihan.Text = "" End If Me.txtThuaSo.Text = rs(0) End If Me.Text1.Text = rs(6) If Not IsNull(rs("TrangMK")) Then Me.txtmk.Text = rs("TrangMK") End If rs.Close End Sub Một số mẫu sổ hồ sơ địa - Sổ cấp giấy chứng nhận quyền sử dụng đất - Sổ mục kê đât - Biên kiểm tra trạng sử dụng đất 79