【1】.連線Access資料庫程式碼！.版本 2

.支援庫 eDB .如果 (資料庫連線.連線Access (MDB資料庫, “”) ＝ 真)

記錄集.置連線 (資料庫連線)

排序條件 ＝ “欄位，表名，條件”

.如果 (記錄集.開啟並排序 (MDB資料表, 排序條件) ＝ 真) .否則 銷燬 ()

【2】.填充樹形框欄位到父專案程式碼！.版本 2

.支援庫 eDB

.支援庫 iext.區域性變數 分類變數, 文字型

.區域性變數 樹專案總數, 整數型

.區域性變數 樹迴圈迴圈, 整數型

.區域性變數 臨時專案文字, 文字型

.區域性變數 是否存在重複, 整數型

記錄集.到首記錄 ()

.判斷迴圈首 (記錄集.尾記錄後 ＝ 假)

記錄集.讀文字 (“欄位”, 分類變數)

樹專案總數 ＝ 樹型框.取專案數 ()

.如果 (樹專案總數 ＝ 0)

樹型框.加入專案 (, 分類變數, , , )

.否則

.計次迴圈首 (樹專案總數, 樹迴圈迴圈)

臨時專案文字 ＝ 樹型框.取專案文字 (樹迴圈迴圈 － 1)

.如果 (臨時專案文字 ＝ 分類變數)

是否存在重複 ＝ 1

跳出迴圈 ()

.否則

是否存在重複 ＝ 0

.如果結束

樹迴圈迴圈 ＝ 樹迴圈迴圈 ＋ 1

.計次迴圈尾 ()

.如果真 (是否存在重複 ＝ 0)

樹型框.加入專案 (, 分類變數, , , )

.如果真結束 .如果結束 記錄集.到下一條 ()

.判斷迴圈尾 ()

【3】.填充表名到樹形框子專案並過濾樹形框存在的重複項！.版本 2

.支援庫 iext

.支援庫 eDB.區域性變數 原專案變數, 整數型

.區域性變數 原專案迴圈, 整數型

.區域性變數 專案陣列, 文字型, , "0"

.區域性變數 原專案文字, 文字型

.區域性變數 新專案變數, 整數型

.區域性變數 新專案迴圈, 整數型

.區域性變數 新專案文字, 文字型

.區域性變數 新專案標題, 文字型

.區域性變數 過濾語句, 文字型

.區域性變數 文字陣列, 文字型, , "0"

.區域性變數 文字變數, 文字型

.區域性變數 陣列成員, 整數型

.區域性變數 陣列迴圈, 整數型

.區域性變數 次數數量, 整數型

.區域性變數 專案變數, 整數型

.區域性變數 迴圈變數, 整數型

.區域性變數 次數迴圈, 整數型

原專案變數 ＝ 樹型框.取專案數 ()

原專案迴圈 ＝ 1

.計次迴圈首 (原專案變數, 原專案迴圈)

加入成員 (專案陣列, 樹型框.取專案文字 (原專案迴圈 － 1))

.計次迴圈尾 ()

陣列成員 ＝ 取陣列成員數 (專案陣列)原專案文字 ＝ 專案陣列 [陣列迴圈]

過濾語句 ＝ “欄位” ＋ “=” ＋ “"” ＋ 原專案文字 ＋ “"”

.如果 (記錄集.過濾記錄 (過濾語句) ＝ 真)

次數數量 ＝ 記錄集.記錄數量

清除陣列 (文字陣列)

.計次迴圈首 (次數數量, 次數迴圈)

記錄集.讀文字 (“表名稱”, 文字變數)

加入成員 (文字陣列, 文字變數)

次數迴圈 ＝ 次數迴圈 ＋ 1

記錄集.到下一條 ()

.計次迴圈尾 ()

專案變數 ＝ 樹型框.取專案數 ()

.計次迴圈首 (專案變數, 迴圈變數)

樹型框.置專案數值 (迴圈變數 － 1, 迴圈變數)

.計次迴圈尾 ().否則