Chinaunix

标题: 範例介紹-- Lotus Domino 與SQL Server 鏈結範例 [打印本页]

作者: plumlee 时间: 2008-01-01 19:23
标题: 範例介紹-- Lotus Domino 與SQL Server 鏈結範例
範例介紹-- 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 时间: 2008-01-02 11:24
支持~虽然看得不大明白

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)