- đất phù sa có tầng ựốm rỉ : Cambic Fluvisols (FLb) ,9 phẫu diện
4.3 Nội dung mã nguồn
Nội dung mã nguồn của mô hình hệ thống quản lý dữ liệu ựất ựược trình bày trong ựề tài này dưới dạng các bảng tóm tắt thành phần. Hình 4.5 và 4.6 là bảng tổng kết các Sub và Function của hai thành phần chắnh trong mô hình
Trường đại học Nông nghiệp Hà Nội Ờ Luận văn thạc sĩ kinh tế nông nghiệp ... 57 quản lý dữ liệu ựất. Sơ ựồ này nên ựược nghiên cứu cùng với mã nguồn ựể có thể hiểu ựược chi tiết phần mềm.
Module Main.bas kiểm soát công ựoạn khởi ựộng hệ thống, chương trình và biểu thị các giao diện của phần mềm quản lý.
Module basViewInfo.bas bao gồm các Function() và các Sub() có chức
năng thêm dữ liệu ảnh và các dữ liệu bản ựồ.
Module MOLTCommon.bas bao gồm các ựối tượng cho phép truy cập
bản ựồ, hiển thị dữ liệu bản ựồ, tạo và thao tác với các ựiểm, ựường, vùngẦTrong module nay chứa hàm chung ựể kết nối ựến Foder Data (chứa dữ liệu thuộc tắnh), Maps (chứa dữ liệu không gian) :
- Public Function dataPath() As String 'Ket noi voi CSDL thuoc tinh
dataPath = App.Path & "\Data" End Function
- Public Function shpPath() As String 'Ket noi voi CSDl khong gian
'ArcView/ArcMap shape files shpPath = App.Path & "\Maps" End Function
Module mdNotifyIcon.bas bao gồm các sub thực hiện chức năng hiển thị biểu tượng của chương trình ở khay hệ thống.
Trường đại học Nông nghiệp Hà Nội Ờ Luận văn thạc sĩ kinh tế nông nghiệp ... 58
Hình 4.6 - Nội dung bản giao diện chắnh
o Sau ựây là chức năng của một số Sub và Function chắnh:
Các Sub và Function trong các module:
- Sub Main(): Khởi tạo một số tham số sử dụng trong chương trình và thiết lập ựường dẫn tới cơ sở dữ liệu.
- Function AddImage(): Có chức năng thêm ảnh vào bản ựồ.
- Function AddShapeFile(): Có chức năng thêm vào một lớp bản ựồ ở ựịnh dạng Shapfile.
- Sub FullExtent(): Chức năng của Sub này là giúp cho việc mở rộng bản ựồ.
- Function dataPath(): Thiết lập ựường dẫn tới nơi chứa dữ liệu.
- Function shpPath() As String: Hàm này có chức năng lấy ra dữ liệu dạng Shapfile.
- Function twoShapesBounds( ByVal shpOne As Object, ByVal shpTwo As Object) As MapObjectsLT2.Rectangle: Chức năng này cho phép sử dụng hình chữ nhật trong thư viện MapObject.
- Function returnRGB(ByVal cv As Long) As Long(): Chức năng này cho phép ựưa ra một mảng chứa ba màu ựỏ, xanh lá cây, xanh da trời.
Các Sub và Function trong các form:
- Sub Form_Load(): Chức năng của Sub này bao gồm các công việc khai báo biến, ựưa dữ liệu lên bản ựồ.
Trường đại học Nông nghiệp Hà Nội Ờ Luận văn thạc sĩ kinh tế nông nghiệp ... 59 - Sub VSFGridCurrPDLoad(ByVal m_currRow As Byte): đưa dữ liệu là các tắnh chất của các phẫu diện hiển thị ra bảng.
- Sub DBConnection(ByVal strFieldName As String): Thực hiện chức năng kết nối cơ sở dữ liệu.
- Sub MapMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single): Cho phép thao tác với các dữ liệu bản ựồ như phóng to, di chuyển bản ựồ...
- Sub XYLocate(Xmouse, YMouse As Single): Sub này có chức năng xác ựịnh vị trắ các phẫu diễn trên bản ựồ.
o Sự kết nối giữa dữ liệu không gian và dữ liệu thuộc tắnh
Hình 4.7 Ờ Liên kết dữ liệu không gian và dử liệu thuộc tắnh
Sự liên kết giữa dữ liệu thuộc tắnh của phẫu diện và vị trắ phẫu diện trên bản ựổ ựược thể hiện thông qua chỉ số toạ ựộ.
Trường đại học Nông nghiệp Hà Nội Ờ Luận văn thạc sĩ kinh tế nông nghiệp ... 60 XYLocate(Xmouse, YMouse As Single) hoạt ựộng và Sub này có chức năng xác ựịnh vị trắ các phẫu diễn trên bản ựồ. Sau ựó Sub DBConnection(ByVal strFieldName As String) thực hiện chức năng kết nối cơ sở dữ liệu trong Access (ẦẦẦẦẦẦẦẦẦẦẦ\QLDL_Dat\Data\NghiaHung.mdb), Sub VSFGridCurrPDLoad(ByVal m_currRow As Byte) thực hiện ựưa dữ liệu là các tắnh chất của các phẫu diện hiển thị ra bảng như hình 4.7.
Ảnh phẫu diện ựược hiển thị thông qua nhãn của ảnh với tến phẫu diện trong cơ sở dữ liệu Access.
If FileExists(App.Path & "\data\image\" & "" & LblTenPD.Caption & ".jpg") = False Then
'MsgBox "Phau Dien Nay Chua Cap Nhat Anh!", vbOKOnly + vbExclamation, "Thong bao"
PicPD.Picture = LoadPicture(App.Path & "\data\image\NH 00.jpg") Else
PicPD.Picture = LoadPicture(App.Path & "\data\image\" & "" & LblTenPD.Caption & ".jpg")
End If