摘要

這篇文章概括了當使用Microsoft Access 時，通過使用Access Basic可以增加應(yīng)用程序的執(zhí)行速度，減少編碼量，同時也減少在為Microsoft Windows應(yīng)用程序接口編程時、在開發(fā)應(yīng)用程序中遇到的問題的技術(shù)。謹慎地使用變量和它所占用的存儲空間能有效地減少一個應(yīng)用程序所消耗的資源，同時也全面提高了它的性能。

不正確地調(diào)用Windows應(yīng)用程序接口可能會產(chǎn)生一些意想不到的副作用，以及潛在地對一個應(yīng)用程序的代碼及數(shù)據(jù)段的破壞。正確地使用一個空的32位指針在Microsoft Access 中是十分必要的。

當對表格和報表進行操作時，Microsoft Access有一個無正式文本的特性。這個特性允許你從設(shè)計視窗性質(zhì)sheet window中進行過程調(diào)用，調(diào)用的方法時同時按下shift和F2鍵。

使用唯一的別名

在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&。當你的函數(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ù)值的符號位，所以當數(shù)值超過32767，第16位將被置成負數(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