範例介紹-- Lotus Domino 與SQL Server 鏈結範例

plumlee

範例介紹-- Lotus Domino 與SQL Server 鏈結範例


图文详细请见  lotus notes高级管理



        此範例中,我們以鏈結SQL Server為範例，讓Lotus Notus能全權的對SQL資料庫作存取動作，所以此範例應有搜尋、查詢、修改、刪除…等基本操作功能。完成參考畫面如下圖所示:

        操作步驟如下:
步驟1:建立SQL Server所需資料庫
        首先必須在SQL Server中建立一資料庫與一資料表，名稱分別為Project15 和 people，其資料表people中的欄位如下所示:
欄位名稱        資料型態               
Student_id        Char 7        不能為空值       
Cname        Char 12        允許空值       
Ename        Char 20        允許空值       
Address        Char 50        允許空值       
TEL        Char 16        允許空值       
步驟2:建立ODBC與SQL Server 的鏈結
開始程式集系統管理工具資料來源(ODBC)

選擇 ”使用者資料來源名稱”新增選擇”SQL Server”的驅動程式完成
接下來出現”建立新的資料來源至SQL Server”,在各項填入下面資料
        名稱(M): Project_U
        伺服器(S): (local)
點選”以網路登入識別碼進行Windows NT認證(W)”下一步
勾選”更變預設資料庫到(D)”選擇”project15”下一步

在這各市窗直接按”完成”,如果鏈結成功則會出現下列訊息。

步驟3:套表設計
        從這裡開始就要進入Lotus的設定與設計。
(1)首先我們要建立所需欄位格式如下所示:
名稱        類型       
S_Name        文字/可編輯       
Student_ID        文字/可編輯       
Cname        文字/可編輯       
Ename        文字/可編輯       
Adderss        文字/可編輯       
TEL        文字/可編輯       
(2)再來建立所需的按鈕
參考畫面如下所示:

步驟4:初始化設定與列出所有人資料
接下來就是要設定程式碼
首先要再(Globals) 中的 (Option) 輸入
Option Public
Uselsx “*LSXODBC”
這樣才能使用 ODBCConnection、ODBCQuery、ODBCResultSet，這三個物件。

在(Globals)中的(Declarations)中宣告基本的公用變數及Class。

然後在套表的postopen事件中輸入下列程式碼
Sub Postopen(Source As Notesuidocument)
        Set con=New ODBCConnection
        Set qry=New ODBCQuery
        Set rs=New ODBCResultSet
        Set qry.Connection = con
        Set rs.Query=qry
        Set ws=New notesuiworkspace
        Set uidoc=ws.currentdocument       
        Call con.ConnectTo("project15_U","","")
        qry.SQL="Select * From people"
        rs.execute
        If rs.IsResultSetAvailable Then
                student_id=rs.GetValue("student_id")
                CName=rs.GetValue("CName")
                EName=rs.GetValue("EName")
                Address=rs.GetValue("Address")
                Tel=rs.GetValue("Tel")
                Call uidoc.fieldsettext("student_id",student_id)
                Call uidoc.fieldsettext("CName",CName)
                Call uidoc.fieldsettext("EName",EName)
                Call uidoc.fieldsettext("Address",Address)
                Call uidoc.fieldsettext("Tel",Tel)
        End If
End Sub
在”列出所有人資料”按鈕中的Click事件中建立同樣的程式碼，並把Sub Postopen(Source As Notesuidocument)改成Sub Click(Source As Button)即可

azerow

支持~虽然看得不大明白