Microsoft Access秘密、技巧和陷阱 
2024-09-07 19:05:01
供稿：網(wǎng)友
Microsoft access秘密、技巧和陷阱
布萊恩C.布萊克曼
系統(tǒng)支持工程師，Microsoft Access Basic
摘要
這篇文章概括了當(dāng)使用Microsoft Access 時，通過使用Access Basic可以增加應(yīng)用程序的執(zhí)行速度，減少編碼量，同時也減少在為Microsoft Windows應(yīng)用程序接口編程時、在開發(fā)應(yīng)用程序中遇到的問題的技術(shù)。謹(jǐn)慎地使用變量和它所占用的存儲空間能有效地減少一個應(yīng)用程序所消耗的資源，同時也全面提高了它的性能。
不正確地調(diào)用Windows應(yīng)用程序接口可能會產(chǎn)生一些意想不到的副作用，以及潛在地對一個應(yīng)用程序的代碼及數(shù)據(jù)段的破壞。正確地使用一個空的32位指針在Microsoft Access 中是十分必要的。
當(dāng)對表格和報表進行操作時，Microsoft Access有一個無正式文本的特性。這個特性允許你從設(shè)計視窗性質(zhì)sheet window中進行過程調(diào)用，調(diào)用的方法時同時按下shift和F2鍵。
介紹
Microsoft Access Basic提供了一個豐富的開發(fā)環(huán)境。這個開發(fā)環(huán)境給你足夠的靈活性和對Microsoft Windows應(yīng)用程序接口的控制，同時保護你使你免遭用高級或低級語言開發(fā)環(huán)境開發(fā)時所碰到的各種麻煩。不過，許多優(yōu)化、有效數(shù)據(jù)和模塊化方面只能是應(yīng)用程序設(shè)計者才能使用。開發(fā)者應(yīng)致力于謹(jǐn)慎地使用算法。除了一般的程序設(shè)計概念，還有一些特別的存儲空間的管理技術(shù)，正確使用這些技術(shù)可以提高應(yīng)用程序的執(zhí)行速度，減少應(yīng)用程序所要好的存儲資源。
提高速度和減少代碼量
你可以用幾種技巧來提高你的編碼速度，但是卻找不到有效的算法的替代者。接下來的幾點建議可以提高你的編碼速度同時又減少你的應(yīng)用程序消耗的存儲空間。
使用整形數(shù)據(jù)類型進行數(shù)學(xué)運算
即使Microsoft Access 會使用一個聯(lián)合處理器來處理浮點型算術(shù)，整型數(shù)算術(shù)也總是要快一些。當(dāng)你的計算不含有小數(shù)，盡量使用整型或長整型而不是變量或雙整型。整型除法同樣也要比浮點除法要快。在使用其他一些有效的數(shù)據(jù)類型時會警告：沒有任何東西可以替換有效的運算法則。
避免使用過程調(diào)用
避免在循環(huán)體中使用子程序或函數(shù)調(diào)用。每一次調(diào)用都因額外的工作和時間而給編碼增大了負(fù)擔(dān)。每一次調(diào)用都要求把函數(shù)的局部變量和參數(shù)壓棧，而棧的大小是固定的，不能隨便加大，并且同時還要于Microsoft Access共享。
謹(jǐn)慎使用不定長數(shù)據(jù)類型
不定長數(shù)據(jù)類型提供了更大的靈活性，比如說允許正確處理空值和自動處理溢出。另外這種數(shù)據(jù)類型比傳統(tǒng)的數(shù)據(jù)類型要大并消耗更多的存儲空間。前面還曾經(jīng)提到過，不定長數(shù)據(jù)類型的變量在數(shù)學(xué)計算中比較慢。
用變量存放經(jīng)常使用的屬性
對變量進行查找和設(shè)置都比對屬性進行這些操作要快。如果你要得到或查閱一個屬性值許多次，那么把這個屬性分配給一個變量，并用這個變量來代替屬性，那么你的代碼將要運行快得多。例如，在一個循環(huán)中，你查閱某表格中得一個控制的屬性，那么在循環(huán)外把屬性分配給一個變量，然后在循環(huán)中用查詢一個變量來代替查閱一個屬性的方法要比較快。
預(yù)載表格
當(dāng)你的應(yīng)用程序啟動并且把它們的可見屬性設(shè)置位‘false’時，如果你安裝了你所有的表格，那么你的應(yīng)用程序的性能會讓你感覺挺快。當(dāng)你需要顯示一個表格時，你只需要把該表格的可見屬性設(shè)置為‘true’，這要比安裝一個表格要快得多。需要記住的是，為你安裝的每個表格，你都要從應(yīng)用程序的全局堆中消耗存儲空間。
Access Basic中的陷阱
在Access Basic中經(jīng)常碰到的陷阱是對動態(tài)連接庫（DLLS）中的外部過程的調(diào)用。當(dāng)你提供程序給你的用戶，調(diào)用外部動態(tài)鏈接庫時將出現(xiàn)使用警告；否則，你將得到一條錯誤信息：試圖用相同的函數(shù)定義安裝模塊。
使用唯一的別名
在Access Basic中，如果你知道入口點（動態(tài)鏈接庫中函數(shù)的名字），你可以調(diào)用動態(tài)鏈接庫中的外部函數(shù)。不過，使用這一方法的限制性在于你只能聲明外部函數(shù)一次。如果你安裝了調(diào)用了你的模塊調(diào)用的相同的Windows應(yīng)用程序接口，你不會得到一個不為人所知的錯誤：試圖用相同的函數(shù)定義安裝模塊。
你嘗試安裝的模塊要么是包含有相同的函數(shù)名，要么是包含在已存在的模塊中有的過程名。刪除這些過程，在EDIT菜單中使用FIND命令找到重復(fù)的過程名，要解決這一問題，你需要使用一種叫做“別名使用“的技術(shù)。這種技術(shù)允許你給你的過程一個獨一無二的名字。但是，你選擇的別名也有可能不是獨一無二的，所以要使你取的名字唯一，你可以用初始值和下劃線優(yōu)先聲明你所有從動態(tài)鏈接庫中調(diào)用的過程，比如，聲明getActiveWindow為：
Declare bcb_GetActiveWindow Lib "Kernel" Alias "GetActiveWindow" () As Integer.
如何傳遞一個空指針給動態(tài)鏈接庫
一個空的32位指針是有效的或是為一些動態(tài)鏈接庫要求具有參數(shù)。要指定一個空值，使用0&。當(dāng)你的函數(shù)調(diào)用一個過程并傳遞一個表達式0&，“&”指定一個32位的空指針，在函數(shù)聲明中，一個AS ANY參數(shù)指示Access Basic對那個參數(shù)不進行類型檢查，同時把值傳遞到被調(diào)用的函數(shù)。
下面的編碼示范了一個正確的方法，告訴你如何聲明一個給動態(tài)鏈接庫中的過程傳遞一個空指針參數(shù)的Access Basic函數(shù)。這段聲明了WritePRofileString應(yīng)用程序接口函數(shù)。這個函數(shù)來自于外部Windows動態(tài)鏈接庫“kernel”。
Declare Function WriteProfileString Lib "Kernel" (ByVal lpapplicationName As Any, ByVal lpKeyName As Any, ByVal lpString As Any)
接下來的函數(shù)調(diào)用了一個外部過程，位每個參數(shù)指定一個空值。這將使WriteProfileString充滿它的內(nèi)部高速緩沖區(qū)，并且WIN.INI的任何變化寫到磁盤上。
重要的
對這個函數(shù)不正確的使用會引起一般性的保護故障或修改你的WIN.INI文件。
Function nFlushIniCache()
nFlushIniCache = WriteProfileString (0&, 0&, 0&)
End Function
如何從動態(tài)鏈接庫中傳遞和接收無符號整型數(shù)
常常有這樣一種情況，要從外部動態(tài)鏈接庫調(diào)用的過程中返回一個兩個字節(jié)長的無符號整型數(shù)。然而Access Basic不支持這種數(shù)據(jù)類型。正確地計算這種數(shù)據(jù)類型需要把它從一個無符號整型數(shù)轉(zhuǎn)換程Access Basic長數(shù)據(jù)類型。
Access Basic整型數(shù)的范圍使從-32768到32767。一個無符號整型數(shù)的范圍是從0到65535。Access Basic用最明顯的一位來放置數(shù)值的符號位，所以當(dāng)數(shù)值超過32767，第16位將被置成負(fù)數(shù)符號。要計算一個無符號整型數(shù)，你必須人工調(diào)整第16位。
從無符號整型數(shù)轉(zhuǎn)換到Access Basic長整型數(shù)或從Access Basic的長整型轉(zhuǎn)換成無符號整型數(shù)有兩種方法。第一種方法用到了最基本的數(shù)學(xué)運算（65535被無符號整型值加或減）。第二種方法使用Bitwise操作。實際上，算術(shù)方法和Bitwise方法工作起來效果一樣，只不過，算術(shù)方法可能可讀性更強一些，而Bitwise方法在執(zhí)行時可能更快一些。
算術(shù)方法
下面的lArithUintToInt (nUint)和lArithIntToUnint(lBytes)過程示范了如何使用轉(zhuǎn)換無符號整型數(shù)的算術(shù)方法。第一個函數(shù)讀進一個無符號整型數(shù)同時返回一個已經(jīng)轉(zhuǎn)變位長整型的值。第二個函數(shù)讀入一個長整型值，然后返回一個轉(zhuǎn)變成無符號整型的值。
Function lArithUintToInt (nUint As Integer)
If nUint < 0 Then
lArithUintToInt = nUint + 65536
Else
lArithUintToInt = nUint
End If
End Function
Function nArithIntToUnint (lBytes As Long)
If lBytes > 32767 Then
nArithIntToUnint = lBytes - 65536
Else
nArithIntToUnint = lBytes
End If
End Function
按位操作方法
下面的nBWUintToInt(lBytes) 和 lBWIntToUint(nUint)過程示范了如何使用Bitwise方法轉(zhuǎn)換無符號整型數(shù)。第一個函數(shù)讀進一個無符號整型數(shù)，然后返回一個已經(jīng)轉(zhuǎn)換成長整型的值。第二個函數(shù)讀入一個長整型值，然后返回一個已經(jīng)轉(zhuǎn)換的無符號整型值。第二個函數(shù)中使用了提示框的語句是為了防止當(dāng)傳遞到函數(shù)的值大于64KB時會出現(xiàn)溢出信息。
1010001111100000 (-23584)
AND 1111111111111111 (FFFF&)
----------------
1010001111100000 (41952)
The functions follow:
Function lBWIntToUint(nUint As Integer)
lBWIntToUint = nUint And &HFFFF&
End Function
Function nBWUintToInt(lBytes As Long)
Dim nTemp As Integer
If lBytes > 65535 Then
MsgBox "You passed a value larger than 65535"
Exit Function
End If
nTemp = lBytes And &H7FFF
nBWUintToInt = nTemp Or -(lBytes And &H8000)
End Function
注意：&HFFFF&要求“&”在16進制數(shù)的末尾。這樣能保證32位的16進制數(shù)通過16位的值表示出來。
Access Basic中的技巧
在Microsoft Access 中有一些以前無正式文本的特性，它們允許你指定過程，這個過程是從一個from或report的屬性工作表窗中調(diào)用的。要進入最小窗口，只需要同時按下SHIFT和F2鍵。
BUILDER FORM函數(shù)
如果在一個模塊中一個函數(shù)的定義是以“Builderr Form”開始同時包含一個類似于Onclose屬性或事件標(biāo)識符，按下SHIFT和F2鍵就可以調(diào)用這個過程。例如，當(dāng)你在一個form的設(shè)計窗口中，而當(dāng)前的光標(biāo)落在屬性窗口中的Onclose事件的編輯控制上，按下SHIFT和F2鍵將能調(diào)用BuilderFormOnclose函數(shù)。這使用于form和reports的大部分屬性和所有事件。下面的代碼將說明函數(shù)的格式：
Function BuilderFormOnClose (szFormName As String, szControlName As String, szCurrentValue As String, szReserved As String)
If szCurrentValue = "" Then
DoCmd SelectObject A_MACRO, "", True
SendKeys "%n%fs" & "New Macro" & "{Enter}"
Forms(szFormName).OnClose = "New Macro"
Else
DoCmd SelectObject A_MACRO, szCurrentValue, True
SendKeys "%d"
End If End Function
參數(shù)szFormName, szControlName, szCurrentValue, 和 szReserved必須聲明，即使你從不使用它們。當(dāng)你的函數(shù)被調(diào)用時，這些參數(shù)總是要被傳遞的。如果它們沒有被聲明，那么Microsoft Access將不會調(diào)用你的函數(shù)。如果有一個參數(shù)被分配到Onclose事件上，那么前面的過程將打開一個宏，如果編輯控制是空，那么代碼產(chǎn)生一個名為“New Macro”的新宏，同時把編輯控制值設(shè)置為“New Macro”。誠然，前面的例子并不是非常完美，但它的確說明了要產(chǎn)生一個完美而有效的程序所必須的條件。
