在開發ACCESS應用程序時,一般需要在窗體和模塊中引用許多變量。為管理這些變量,當然可以在啟動窗體中使用Microsoft Visual Basic for Application(VBA)來設置它們的值,然後再調用某個模塊,由該模塊初始化這些值。
然而,在完成應用程序開發之後,使用這個方法的問題出現了:其他人可能需要在將來某個時候改變那些值,卻不知道從何處開始。我建議在數據庫中建立一個名為SystemTbl的表,然後用戶可以訪問這個表,並在恰當的時候修改數據。
建立表和窗體
將表創建好並將變量添加到表中的新記錄之後,可以為用戶創建一個只允許修改而不能添加或刪除記錄的窗體,表中應該只包含一條記錄保存有關使用方法的信息。一旦保存完所有變量,可以在應用程序需要的時候使用VBA來檢索那些變量值。
例如,假設應用程序需要保存應用程序管理員的姓名和電話號碼,正如你剛才所了解到的,這條信息要求容易修改,如果把它編寫到窗體或模塊的代碼中沒有什麼意義。
該表預定義了一條記錄和兩個字段(到目前為止):
● 表:SystemTbl
● 字段1:AdminName
● 字段2:AdminPhone
當需要在窗體上向用戶顯示恰當的姓名和電話號碼時,可以使用OnOpen或OnLoad事件填充窗體上的相應標簽,在本例中,我們把標簽命名為“PhoneLabel”和“NameLabel”。清單1.10 .A顯示了這個示例函數的代碼。
在該示例函數中,我們以SnapShot-ForwardOnly方式打開記錄集,以減少訪問記錄集時占用的資源;然後,我們將表中字段的值應用到Name和Phone標簽的標題上。
最後,關閉記錄集。永遠記住要關閉記錄集,它會累積為不需要的資源,導致性能降低甚至更糟糕的問題。由於系統表中只有一條記錄,檢索過程極快。現在,你已經給一個有效的數據庫應用程序添加了可擴展的解決辦法