[Ngôn ngữ Avenue #10] Liên kết ứng dụng với Avenue

1. TRAO ĐỔI DỮ LIỆU ĐỘNG

• Liên kết tự động (Automatic Link): ứng dụng Server sẽ tự động cập nhật bất cứ khi nào dữ liệu nguồn trên server thay đổi. Ví dụ khi liên kết giữa một điều khiển của Visual Basic như Textbox với một hàng hoặc cột trên một trang Excel, DDE sẽ tự động cập nhật Textbox bất cứ khi nào dữ liệu trên ô của Excel thay đổi.
• Liên kết thông báo (Notify Link): Ứng dụng Server sẽ thông báo cho Client biết khi dữ liệu thay đổi, nhưng Client cần phải yêu cầu dữ liệu mới từ Server.
• Liên kết thủ công (Manual Link): dữ liệu sẽ không thay đổi một cách tự động, Client phải yêu cầu dữ liệu mới từ Server.

Xây dựng tương tác giữa ArcView và Visual Basic

• Gọi ứng dụng Visual Basic xuất hiện.
• Thiết lập cuộc hội thoại giữa ArcView và Visual Basic trong đó ArcView là client và Visual Basic là server.
• Chuyển danh sách các tên trường trong bảng đang kích hoạt sang listbox của Visual Basic
• Kết thúc hội thoại.

• Thiết lập cuộc hội thoại giữa Visual Basic và ArcView, bây giờ ArcView là server và Visual Basic là client
• Gửi một yêu cầu Avenue để lấy kiểu, độ rộng, bí danh và trạng thái hiển thị của trường.
• Nếu bấm nút OK, các giá trị trong form Visual Basic sẽ được thiết lập ngược trở lại cho trường của ArcView.

aDDE = DDEClient.Make(“FIELDDEF”, “transfer”)

if (aDDE.HasError ) then
Msgbox.Info(“Loi ket noi”, “Thong bao”)
Return nil
end

theVtab = av.GetActiveDoc.GetVtab ‘ lưu ý Doc hiện hành là Table cần lấy tên các trường
theFields = theVtab.GetFields
if (theFields.Count = 0) then
Msgbox.Info(“Không tồn tại trường trong bảng”, “Thong bao”)
else
for each f in theFields
aDDE.Execute(f.GetName)
end
end

Private Sub Fiorm_LinkExecute(CmdStr As String, Cancel As Integer)
lstFields.AddItem CmdStr
End Sub

Private Sub lstFields_Click()
if lblFldType.LinkMode = NONE then
lblFldType.LinkTopic = “ArcView|System”
lblFldType.LinkMode = MANUAL
lblFldWidth.LinkTopic = “ArcView|System”
lblFldWidth.LinkMode = MANUAL
txtFldAlias.LinkTopic = “ArcView|System”
txtFldAlias.LinkMode = MANUAL
txtFldVisible.LinkTopic = “ArcView|System”
txtFldVisible.LinkMode = MANUAL
end if
 
lblFldType.LinkItem = “av.GetactiveDoc.GetVtab.FindField(“”” &
lstFields & “””).GetType”
lblFldType.LinkRequest
 
lblFldWidth.LinkItem = “av.GetactiveDoc.GetVtab.FindField(“”” &
lstFields & “””).GetWidth”
lblFldWidth.LinkRequest
 
txtFldAlias.LinkItem = “av.GetactiveDoc.GetVtab.FindField(“”” &
lstFields & “””).GetAlias”
txtFldAlias.LinkRequest
 
txtFldVisible.LinkItem = “if (av.GetactiveDoc.GetVtab.FindField(“”” &
lstFields & “””).IsVisible) then return 1 else return 0 end”
txtFldVisible.LinkRequest
 
cbxFldVisible.Value = txtFldVisible.Text
 
if lblFldType.Caption= “nil” then ‘ bảng bên ArcView đóng
Unload Form1
End
end if
End Sub

 Thêm đoạn mã sau vào sự kiện Click của nút OK, Khi kích chuột trên nút OK, Form Visual Basic sẽ gửi cho ArcView một Script để cập nhật lại bí danh và trạng thái hiển thị của trường được chọn dựa trên giá trị trong hộp thoại Alias và check box Visible của Visual Basic.

Private Sub cmdOK_Click()
Dim state as string
if txtFldAlias.LinkMode = NONE then
txtFldAlias.LinkTopic = “ArcView|System”
txtFldAlias.LinkMode = MANUAL
end if
cmd = “av.GetActiveDoc.GetVtab.FindField(””” & lstFields
& “””).SetAlias(“”” & txtFldAlias & “””)
if cbxFldVisible.Value = 0 then
state = “false”
else
state = “true”
end if
cmd = cmd & “av.GetActiveDoc.GetVtab.FindField(“”” & lstFields
& “””).SetVisible(“ & state & “)”
txtFld.Alias.LinkExecute cmd
End Sub

Private Sub Form_Unload (Cancel As Integer)
lblFldType.LinkMode = NONE
lblFldWidth.LinkMode = NONE
txtFldAlias.LinkMode = NONE
txtFldVisible.LinkMode = NONE
End Sub

2. THÊM CHỨC NĂNG VÀO AVENUE THÔNG QUA THƯ VIỆN LIÊN KẾT ĐỘNG DLL

• DLLPROC_TYPE_INT16 DLLPROC_TYPE_INT32 DLLPROC_TYPE_FLOAT
• DLLPROC_TYPE_POINTER

• DLLPROC_TYPE_PINT16, DLLPROC_TYPE_PINT32, DLLPROC_TYPE_PFLOAT
• DLLPROC_TYPE_STR

mathDLL = DLL.Make(“C: \Ditagis\math.dll”.AsFileName)

add = DLLProc.Make(mathDLL, “AddLongs”, #DLLPROC_TYPE_INT32,
{#DLLPROC_TYPE_INT32, #DLLPROC_TYPE_INT32})

x = add.Call({300, 200})

Msgbox.Info(“Kết quả là: ” x.Asstring, “Kết quả”)

#define _FUNDLL_
#include "t.h"
#include <windows.h>
long AddLongs(long a, long b)
{
return a+b;
}

 Chọn mục New trong menu File trên trình thực đơn.