VFP 愛用者社區

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2157 第 1 樓

英文原址:
http://msdn.microsoft.com/en-us/library/ms947605.aspx

yaur 簡體翻譯後轉繁體:

VFP9.0中通過FFC類庫使用GDI+
第一部分
原著: Walter Nicholls
翻譯: YAUR
一套新的GDI+ FFC圖形類將隨著vfp9.0最終版一起發佈，不過你可以去VFP的官方網站上(http://msdn.com/vfoxpro)的下載說明中先睹為快。這套GDI+類預計在8月上旬或之後不久就可以下載了，它可以在vfp9.0 beta版中使用，下載網址還是上邊提到的那個，在這篇文章中，Walter Nicholls 介紹了本系列(共四部分)中的第一部分：直接在vfp表單上繪圖。
在 vfp9中最令人期待的和最讓人興奮的新特點之一就是增強的報表引擎，儘管這個報表引擎有眾多令人激動的特點，不過，最讓我興奮的是我們可以通過編寫用戶外掛程式來修改和擴展報表中類目的外觀
圖1
有兩種方法可以做到這些，其中之一是使用ReportListener類，它提供了一種可以鉤住(或譯關聯監控 hook)報表產生和顯示過程的方法。另外一個則是直接訪問用來顯示報表的GDI+圖形介面。
就像一份額外的紅利一樣，vfp9.0中的對ReportListener類的一些支持改進使得在其他地方也可以使用GDI+，做一個詳細的計畫，你也可以寫出一個單獨的可以在表單、報表上繪圖、甚至將圖片存為檔、存入磁片的GDI類。
VFP自帶了一套類庫的集合，稱之為"功能類"，就是我們常說的FFC,在9.0中包含了一個類庫：_GDIPPLUS.VCX,它給你提供了在vfp應用程式中使用GDI+的捷徑。
注：我們期望GDI+類庫能夠在2004年8月份的早些時候或之後不久就能夠在微軟的網站中提供下載，大家注意微軟的vfp主頁中的一些公告(http://msdn.com/vfoxpro)
在這個關於GDI+ FFC類庫介紹系列的第一部分，我們提供給你們一個旋風般的旅行，並且也為你們示範如何在vfp的表單上繪圖，在第二部分，我將為你們展示如何使用一些技巧來擴展你的報表系統：結合GDI+類庫使用ReportListener類。
我將做的讓它看起來容易至極
看看前面幾頁，找找"如何做一個圓形圖"這一屆，這個圖片是一個通過這篇文章而完成的一個最終產品，並且我承諾將會使這個過程看上去很容易，到文章的結尾，你就會發現，這一切是的的確確的非常簡單。
緊記這篇文章所描述的是基於 vfp9 beta版的(version 09.00.0000.1720). 所以在寫這篇文章的時候，vfp9的一些功能並不是一成不變的，它可能和最終正式版由一些不同，然而，你應該可以成功的用vfp9 BETA版來使用這些發佈在這裡的範例(文章附帶的示例)
FFC類庫和GDI+ API的關係
我們所指的"GDI+"實際上為程式師提供了好幾種形式。在.net世界中，它們有System.Drawing 以及與之相關聯的命名空間。C++程式師使用一個幾乎差不多的在gdiplus.h中的API定義，然而，通過GDIPLUS.DLL(vfp開發人員也可以利用這些api來進行介面增強)提供的介面實際上是被稱之為"GDI+ Flat API"的非可視介面。
為了使GDI+幹起活來更加容易，新的VFP9的FFC類庫GDIPLUS.VCX提供了一個非常類似於.net系統中 System.Drawing 命名空間的視覺化介面，這就意味著那些最初為.NET和C++程式師所寫的書籍、文章和類似於MSDN的參考資料通過使用FFC類庫同樣可以應用到VFP中，當然一些小的改動該是要做地。
主要的區別在於：
．所有的類名都被冠以"GP"字母的首碼
．一些屬性的名字是不同的(例如用PenWidth來代替Width)
．用#define 來定義的常量也會加上"GDIPLUS_" 首碼
．它僅僅是GDI+完整功能集合的一個子集，不過擴展起來是容易地
這些不同中的大部分時決定于開發語言的約束，例如，"Point"和"Width"在vfp中有其他的含義， integers和floats的差別和其他開發語言不同，表1展示了_GDIPLUS.VCX的類定義和.net中相同類的對比關係。
表1
FFC 類功能描述 .NET 類
GpGraphics 繪圖介面(畫布)和繪圖操作 Graphics
GpColor 由紅、藍、綠及alpha組成的顏色 Color
GpPoint 2D平面座標 Point, PointF
GpSize 尺寸大小 (寬度, 高度). Size, SizeF
GpRectangle 位置和尺寸集合 Rectangle, RectangleF
GpPen 繪製直線和曲線 Pen
GpBrush 數字畫筆類的抽象基類 Brush
GpSolidBrush 使用純色填充區域 SolidBrush
GpHatchBrush 使用圖案填充區域 HatchBrush
GpFontFamily 描述一種字體的同類字體 (例如, "Arial"). FontFamily
GpFont 用來修是文本的集合，包括大小，字體等 Font
GpStringFormat 文本排版、排列資訊，例如：居中 StringFormat
GpImage 圖片類的基類：包括向量圖和點陣圖 Image
GpBitmap 由2D圖元資訊陣列組成的圖形 Bitmap
在表單上使用GDI+
當我開始在vfp中使用GDI+的時候，因為GDI+早已在VFP中使用了，所以我期望我能更合理的使用GDI+功能並且讓所做得事情變得更好。看起來似乎我是錯的，不過好像不是太錯，在使用GDI+功能的時候有些環節你還是要仔細一點，而且你的工作也不得不受到一些制約。
我們將使用GDI+的功能來在表單上直接繪製來取代通常使用的控制項，例如圖像和容器控制項，方法就是使用表單事件：Paint()，它是在重繪表單背景和所有表單上的物件的時候被觸發的。
保持清潔的表單介面
你應該首先確保你想繪製的表單區域沒有被VFP中的其他任何操作或物件來使用，作為開始練習的情況，不要在上面放置其他的控制項(按鈕、文字方塊等)，因為它們將導致重繪衝突，我喜歡在表單上放一個隱藏的形狀控制項，在繪圖即將發生的時候將它顯示出來，這不僅提醒我保持其他控制項不來騷擾，也使得我在編寫其上繪圖的位置和尺寸的代碼的時候方便了許多。
如果你想在一個頁面或頁框中繪圖的時候，你必須採用一些機制來確保這些繪圖代碼只能在相應的頁面處於活動的情況下才能執行。
最後，不要忘記了”?”語句或者使用了set talk on導致的輸出。你可以用將表單屬性AllowOutput 設置為.F.的方法來避免輸出。它可以防止程式將你的表單作為活動輸出視窗，我經常在我的基類表單中設置這個屬性，因為這個設置常常不太容易想起來。
隱屏繪圖
為了改善性能,VFP通常使用一個稱之為”雙緩衝”的技術，在這種模式下，VFP不是直接在視窗中繪製控制項，取代它的是繪製成一個隱屏點陣圖，然後在需要的時候複製這個圖像來刷新視窗，這種機制的速度遠比那種在視窗或視窗中的物件在改變大小、位置等的時候就刷新快的多。
不爽的是，我們卻不能使用這種隱屏介面模式，因為在視窗被刷新的時候俄我們對表單介面的所有繪圖操作會被刪除，而且paint()事件僅僅是在隱屏點陣圖被重繪的時候才被觸發的。
隱屏繪圖
圍繞這個工作是屬於本篇文章的範圍之內的，所以現在應該關閉隱屏點陣圖的模式來運行附帶的示例，或者已經知道這個限制了。你可以使用SYS(602,0)來禁止使用隱屏點陣圖模式，使用SYS(602,0)就可以改回來了。這是一個全域設定，所以我不建議你在你的表單的Init()中或其他的類似全域事件中載入這個設置。
GDI+初始化
在任何GDI+功能被使用的時候，GDI+系統必須被“啟動”。VFP可以自動做這些，不過僅僅是在需要的時候，如系統自然也不知道你的想法！所以你可以完全自己來載入GDI+，僅僅一句代碼：
createobject( "ReportListener" )
你不用擔心GDI+的釋放，VFP會在應用程式關閉的時候為你做這個的。
設置一個基礎資料表單
在本文的剩餘部分，我們將使用同樣的基礎資料表單來幹活，這是一個modeless, resizable表單，而且上邊還有一個居中隱藏的形狀控制項(shpPlaceholder)，看圖2。我將使用新的錨屬性(VFP新增的)來確保當表單尺寸改變的時候這個形狀控制項尺寸也能變化。表2展示了一些表單的主要屬性和方法，同樣在附帶的下載檔gpintro_blank.scx中這些屬性已被搞定。
圖2
屬性方法值和表述
Width, Height 350, 250
AllowOutput .F.
BorderStyle 3 (Sizable)
Caption "Blank form - GDI+ Intro"
WindowType 0 (Modeless)
Init() * 確保 GDI+ 已經初始化
createobject("ReportListener")
shpPlaceholder.Left, .Top, .Width, .Height 25, 25, 300, 200
shpPlaceholder.Anchor 15 (保持和表單所有邊距相同)
shpPlaceholder.Visible .F.
表2
我假定你已經複製了FFC類庫到你的專案根目錄中的FFC/目錄中，如果不想這樣，調整一下相應得路徑，現在，我們準備開始使用GDI+。
出發：GpGraphics對象
要想視覺化的來做這些事情，你需要GpGraphics物件，它描繪一個視窗介面、一個報表頁或者其他任何可能的物件。GpGraphics物件提供了查找(修改)一個繪圖介面的尺寸和解析度，還有繪製介面的方法，表3展示了一些GpGraphics物件非常重要的屬性和方法。
說明: 繪製各種形狀的輪廓
FillRectangle( oPen, x,y, width,height )
FillRectangle( oPen, oRect )
FillRectangles( oPen, aRects[] )
FillEllipse( oPen, x,y, width,height )
FillEllipse( oPen, oRect)
FillClosedCurve( oPen, aPoints[] )
FillPie( oPen, x,y, width,height, start,sweep )
FillPie( oPen, oRect, start, sweep )
FillPolygon( oPen, aPoints[] )
Description: 繪製各種填充圖形
DrawImageAt( oImage, x,y )
DrawImageAt( oImage, oPoint )
DrawImageScaled( oImage, x,y,width, height )
DrawImageScaled( oImage, oRect )
DrawImagePortionAt( oImage, oDestPoint, oSrcRect, nSrcUnit )
DrawImagePortionScaled( oImage, oDestRect, oSrcRect, nSrcUnit )
說明: 繪製圖形或半幀像.
DrawStringA( cString, oFont, oRect, [oStringFormat], [oBrush] )
DrawStringW( cUnicodeString, oFont, oRect, [oStringFormat], [oBrush] )
說明:繪製文字.
MeasureStringA( cString, oFont, layoutarea, [oStringFormat], [@nChars], [@nLines]
MeasureStringW( cUnicodeString, oFont, layoutarea, [oStringFormat], [@nChars], [@nLines]
說明: 計算文本的大小
ResetTransform()
TranslateTransform( xOffset, yOffset [,matrixorder] ) RotateTransform( nAngle [,matrixorder] )
ScaleTransform( xScale, yScale [,matrixorder] )
說明: 改變圖形坐標系
Save( @graphicsstate )
說明: 保存當前圖形物件的狀態。
Restore( graphicsstate )
說明: 恢復前一次保存的狀態。
表3
在某些情況下，GDI+物件已經存在而且我們需要給它一個簡單的VFP介面。例如，VFP9的報表系統內部就使用了GDI+。報表中的每一頁都被一個圖形物件封裝了，通過存儲於ReportListener的一個屬性裡的控制碼，在這種情況下，就有一個簡單的GpGraphics示例，而且俄I你可以通過這個控制碼來訪問它（更詳細的內容在下篇文章中描述）。
在其他情況下，你必須自己創建一個GDI+圖形物件，例如：要繪製一個表單，你必須創建一個基於原始表單視窗的控制碼(HWnd)的GpGraphics物件。
local oGr as GpGraphics of ffc/_gdiplus.vcx
oGr = newobject('GpGraphics','ffc/_gdiplus.vcx')
oGr.CreateFromHWND( Thisform.HWnd )
GpGraphics物件已經在這個表單中進行了適當的設置，它的座標空間為（0，0）位置來代替左上角。如果你沒有一個預先搞好的GpGraphics基類物件，例如你要產生一個點陣圖並且保存到檔，那你可能要做很多細微的工作。
繪製線條和形狀
為了展示第一個示例，我將持續快速的介紹一系列類，我們將從繪製一個類似於圖3的橢圓形來開始。
圖3
要在視窗介面中繪製一些圖形，我們需要一個工具，在這一步中，我們使用GpPen物件，它可以繪製線條(這裡是橢圓的輪廓線)。我們也需要設置顏色工具，使用GpColor物件，表4和表5中列出了一些非常重要的GpPen和GpColor物件的屬性和方法。
屬性/方法名說明
PenColor 畫筆顏色(ARGB 值)
PenWidth 畫筆寬度
PenType 畫筆類型 (參考 GDIPLUS_PENTYPE_ 常量).
Alignment 畫筆對齊方式(參考 GDIPLUS_PENALIGNMENT_ 常量).
DashStyle 使用的虛線類型
Create( color [, width] [, unit] ) 用給定的顏色畫圖
CreateFromBrush( brush [, width] [, unit] ) 創建一個基於刷子的畫筆
Init( color ) 設定初始顏色
Init() 產生一個空的畫筆物件 (使用時必須調用Create())
表4：GpPen的屬性/方法描述
屬性/方法名說明
Red Red component (0...255).
Green Green component (0...255).
Blue Blue component (0...255).
Alpha Alpha (透明度). 0 =完全透明,
255 =完全不透明
ARGB GDI+ 顏色 (32位整形參數).
FoxRGB Visual FoxPro 顏色值,可以用 RGB()或 GETCOLOR() 函數返回.注意: 這個值不包括alpha資訊, 並且要將Alpha屬性值設置為完全不透明(255).
Set( red,green,blue [,alpha] ) 設置顏色 (如果沒有制定Alpha,那默認為 100% 不透明)
Init( red,green,blue [,alpha] ) 創建特定的顏色(如果沒有制定Alpha,那默認為 100% 不透明)
Init( argb ) 創建單一的GDI+ color
Init() 創建默認顏色，黑色
表5：GpColor的屬性/方法描述
以下代碼創建了一個深藍色的GpColor物件
oLineColor = newobject( ;
'GpColor','ffc/_gdiplus.vcx','', 0,0,100 )
以下代碼創建了一個基於以上顏色的GpPen物件，而且制定寬度為3圖元
oPen = newobject('GpPen', 'ffc/_gdiplus.vcx' )
oPen.Create( m.oLineColor, 3 )
要在表單介面中繪製一個橢圓形，我們使用GpGraphics物件的DrawEllipse方法，以下代碼將使用之前創建的畫筆物件來繪製這個橢圓，它的位置是由我們之前隱藏的那個占位元形狀物件所決定的。
oGr.DrawEllipse( m.oPen ;
, Thisform.shpPlaceholder.Left ;
, Thisform.shpPlaceholder.Top ;
, Thisform.shpPlaceholder.Width ;
, Thisform.shpPlaceholder.Height ;
)
將這些代碼放置到表單的Paint()事件中，當你運行以後，你就能看到如圖3的增強圖形了。
關於矩形
在接下來的這個例子中，我們將再次使用同樣的座標，為了節省代碼，我們將創建一個GpRectangle物件並且將之作為一個單獨得參數來引用，這裡還是繪製橢圓的代碼碎片，這時我們使用GpRectangle物件來定義橢圓區域的範圍。
oBounds = newobject( ;
'GpRectangle','ffc/_gdiplus.vcx','' ;
, Thisform.shpPlaceholder.Left ;
, Thisform.shpPlaceholder.Top ;
, Thisform.shpPlaceholder.Width ;
, Thisform.shpPlaceholder.Height ;
)
oGr.DrawEllipse( m.oPen, m.oBounds )
填充區域：刷子
現在，讓我來用量綠色來填充這個橢圓，為了繪製填充區域，我們需要一個新的工具：刷子。GDI+ FFC類庫提供了幾個刷子，但是用春色來繪製我們還是要用GpSolidBrush物件。
* 創建一個亮綠色的刷子
local oFillColor as GpColor of ffc/_gdiplus.vcx ;
, oBrush as GpSolidBrush of ffc/_gdiplus.vcx
oFillColor = newobject( ;
'GpColor','ffc/_gdiplus.vcx','' ;
, 0,255,0 ) && green
oBrush = newobject( ;
'GpSolidBrush', 'ffc/_gdiplus.vcx', '' ;
, m.oFillColor )
要在螢幕上填充橢圓，我可以使用FillEllipse()方法。
oGr.FillEllipse( m.oBrush, m.oBounds )
要繪製橢圓的輪廓線，我們必須首先調用FillEllipse()方法，然後使用DrawEllipse()。最後你就能看到如圖4所示的結果了。
圖4
來個餅形圖怎麼樣？
現在你已經有了些基礎，來看看怎麼畫一個餅形圖吧。下面的代碼我用了一個包含2列的陣列作為表單屬性，每1列都為餅形圖的1個切片提供資料，來看一下偽代碼：
aSliceData[ nRow, 1 ] = data value
aSliceData[ nRow, 2 ] = fill color for the slice
(in GDI+ ARGB format)
nSliceTotal = total of all the data values
Paint（）事件會調用這個陣列並計算適當的角度來畫這個餅形圖。這裡有個新概念：DrawPie（）和FillPie（）方法，他們就象DrawEllipse 和 FillEllipse 一樣，用一個起始角和一個掃描角（切片的一個範圍），來描述切片角度。
常式我這是故意弄得簡單些，其實你可以很容易地擴展她，比如顯示標籤或標記值（或許你要把其中一個切片拖出來）。儘管用遠端的SQL查詢獲取切片資料可能不是個好主意，但你也別在Paint（）事件中放太多的代碼。
下面的是Paint（）的關鍵代碼，完整的源碼在附帶的 gpintro_piechart.scx 裡，圖5是執行結果。
圖5
* Create the drawing objects
local oLineColor as GpColor of ffc/_gdiplus.vcx ;
, oPen as GpPen of ffc/_gdiplus.vcx ;
, oBrush as GpSolidBrush of ffc/_gdiplus.vcx
oLineColor = newobject( ;
'GpColor','ffc/_gdiplus.vcx','' ;
, 0,0,0 ) && black
oPen = newobject( ;
'GpPen', 'ffc/_gdiplus.vcx','';
, m.oLineColor ) && 1-pixel-wide pen
oBrush = newobject( ;
'GpSolidBrush', 'ffc/_gdiplus.vcx','' )
oBrush.Create() && don't specify colour yet
* Work out from the slice data what the starting
* angles should be
local nSlices
nSlices = alen(This.aSliceData,1)
local aAngles[m.nSlices+1], iSlice
aAngles[1] = 0 && start at 0 degrees (+ve x axis)
for iSlice = 2 TO m.nSlices
aAngles[m.iSlice] = aAngles[m.iSlice-1] ;
+ 360*This.aSliceData[m.iSlice-1,1]/This.nSliceTotal
endfor
aAngles[m.nSlices+1] = 360 && Stop at full circle
* Draw the pie slices
for iSlice = 1 to m.nSlices
oBrush.BrushColor = This.aSliceData[m.iSlice,2]
oGr.FillPie(m.oBrush, m.oBounds ;
, aAngles[m.iSlice] ;
, aAngles[m.iSlice+1] - aAngles[m.iSlice])
oGr.DrawPie(m.oPen, m.oBounds ;
, aAngles[m.iSlice] ;
, aAngles[m.iSlice+1] - aAngles[m.iSlice])
endfor
寫上文本
最後一步是在餅形圖上寫上一些文本。因為餅形圖上包含了很多不同的顏色，一般樣式的文字可能難以閱讀，因此我給她帶上陰影，讓我們在圖上寫一個“VFP9 is cool！”。這裡有個新工具：GpFont類，詳見表6。
屬性/方法名說明
FontName 字體名稱，比如："Arial."
Style 比如：粗體、斜體（GDIPLUS_FONTSTYLE_ bits的集合）
Size 字大小
Unit 默認是points（1/72英寸）
Create( fontname, size [,style [,unit]] ) 指定字體字形建立GDI+的字體物件
Create( GpFontFamily, size [,style [,unit]] ) 指定字型家族和字形建立GDI+的字體物件
Init( fontname/family, size [,style [,unit]] ) 初始化一個空的GpFont並調用Create()
GetHeight( GpGraphics ) 獲取指定的GpGraphics物件的字體行間距
GetHeightGivenDPI( nDPI ) 用指定的解析度（點/英寸）獲取字體行間距
表6：GpFont類
在這個餅形圖上寫字，我們建立一個GpFont物件，設為 Arial，粗體，32Points高：
oFont = newobject('GpFont','ffc/_gdiplus.vcx')
oFont.Create( "Arial" ; && font name
, 32 ; && size in units below
, GDIPLUS_FONTSTYLE_BOLD; && attributes
, GDIPLUS_UNIT_POINT ; && units
)
我們還需要一個Brush物件，Brush前面我介紹過，我們必須指定這些字寫在哪兒－－讓我們把她放到圖的中間。我們已經有了一個GpRectangle物件定義了邊界，因此最後一步就是告訴GDI+如何在這個矩形中排版。那麼，歡迎來到 GpStringFormat類（請看表7）
* Get a basic string format object, then set properties
oStringFormat = newobject( ;
'GpStringFormat','ffc/_gdiplus.vcx')
oStringFormat.Create( )
oStringFormat.Alignment ;
= GDIPLUS_STRINGALIGNMENT_Center
oStringFormat.LineAlignment ;
= GDIPLUS_STRINGALIGNMENT_Center
屬性/方法名說明
Alignment 文本的水準對齊方式
LineAlignment 垂直對齊
FormatFlags 請看 gdiplus.h 裡的 GDIPLUS_STRINGFORMATFLAGS_ 常量
Trimming 如何TRIM一個字串
HotkeyPrefix Windows "hotkey" 首碼
Create( [flags] [, languageID] ) 建一個新的字串格式物件
GetGenericDefault( [lMakeClone] ) 複製一個默認字串格式或獲取一個默認字串格式的控制碼
GetGenericTypographic( [lMakeClone] ) 複製一個默認字串格式式樣或獲取一個默認字串格式式樣的控制碼
表7：GpStringFormat類的一些屬性和方法
這個字串我們要畫2次：上面是純色，偏移幾點再來個半透明的陰影。這裡又要解釋一個新概念：顏色值的“alpha”元件。代碼如下：
* Now draw the text with a drop-shadow.
* First, shrink the bounding box by 4 pixels
* and move 4 pixels to the right and down
oBounds.W = oBounds.W - 4
oBounds.H = oBounds.H - 4
oBounds.X = oBounds.X + 4
oBounds.Y = oBounds.Y + 4
* and draw the shadow in a 66% black
oBrush.BrushColor = 0xA8000000
oGr.DrawStringA( This.cOverlayText ;
, oFont, oBounds, oStringFormat, oBrush )
* Now move the bounding box back to its original
* position, and draw the same string in opaque white
oBounds.X = oBounds.X - 4
oBounds.Y = oBounds.Y - 4
oBrush.BrushColor = 0xFFFFFFFF
oGr.DrawStringA( This.cOverlayText ;
, oFont, oBounds, oStringFormat, oBrush )
你現在應該可以看到如圖6 所示。注意：要是你RESIZE這個表單，這文本也會跟著伸縮。你還可以用 GpStringFormat物件的其他屬性控制她的伸縮。
圖6
結束語
你要注意寫文本的方法叫“DrawStringA”而不是“DrawString”，這是因為這個函數有2個版本。DrawStringA為VFP中8位元的字串而設計，DrawStringW為16位元的Unicode字串而設計（這個W是WIDE的意思）。這同樣用於ReportListener，在那裡你用Unicode往往比用VFP的字串值更好。
建一個象GpGraphics和GpFont這樣的GDI+物件是需要代價的（很占CPU資源）。為了提高性能，你可以緩衝這些Paint（）事件，但你必須注意有時這些緩衝會失效，比如，表單RESIZE了，或你畫的那個綁定框改變了等等。
性能方面還有些小技巧。如果你習慣用ARGB值，你就完全可以不使用GpColor物件－－你使用32位元的顏色值就好了。還有個技巧可以充分提高性能：雙緩衝，不過這個技巧在另一篇文章裡面。
下個月：圖表在報表中的應用
這個系列的下個月部分，我要展示如何把圖表移到VFP9的報表裡面，而且還有很多有趣的技巧。

　
鳴謝
經常來 BOE 的朋友都知道，我早就是一個業餘的 Foxer 了，隨著時間的推移，每一次寫東西都是惴惴不安的，真的擔心弄出一些誤導言論或者是貽笑大方。
每一次完成初稿我都會給一些朋友預覽，好聽聽他們的建議。漫步者、Boby、將來是我這三位網友就是我的第一批讀者，感謝他們一次又一次讀那些晦澀的言語、理解不成熟思想。特別是漫步者，幾乎成了我的私人秘書，就拿這篇東西來說，正文中所有的小標題都是他加上的。他說，這樣能讓讀者容易看懂……
成文後，屬上的都是我的名字，真是有白占別人勞動的嫌疑，這裡向這些朋友表示深深地感謝！
寫在開始
那一日，我連夜等待 Visual FoxPro 8下載，直到淩晨2點，實在是熬不下去，這才睡下；4點時分，被鬧鐘催醒，睡眼朦朧中看到了 Visual FoxPro 8 的下載連接，迷迷糊糊的也知道動作是怎樣完成的，反正早上醒來 Visual FoxPro 8 已經在我的硬碟上了。解壓、安裝，一陣興奮難以言表；忽又想起，還要上班，於是燒盤、走路……這樣，開始了我的 Visual FoxPro8 探索之旅。
原來以為，已經看過大量原版資料（感謝夜來香、RMH、Fbilo 他們已經翻譯這些東西，英文不好的朋友現在也能享用了），我研究Visual FoxPro 只需要少量的精力。嘿嘿，誰知道：我竟然花費了整整10天才看完了我所感興趣的東西。而且是每天作戰到淩晨，家人意見不少，但是他們哪知道我樂在其中呢？
今年10月，微軟公司如期發佈了 Visual FoxPro 8b 版，這是自 Visual FoxPro 3 以來又一個精彩的版本，一下子吸引住了全球 Foxers 的眼球！下文是我學習、探索 Visual FoxPro 8b的一些感受，願與讀者分享。
（一）結構化異常處理
經常有人問我，你認為 Visual FoxPro 最需要改進的地方在那裡。我總是不假思索地回答：異常處理！期盼它能擁有結構化異常處理機制，把異常及其處理限定在最小的範圍之內，使代碼的封裝更優。
Visual FoxPro 8 以前對異常處理還限於全域 On Error 常式和物件的 Error 的事件，它們都有這樣一個毛病：一旦出現了異常，程式就必須跳出正在執行的程式模組，執行異常處理常式，這時發生異常前執行的程式模組的上下文已經丟失殆盡，系統很難調整到正常狀態或者給調用介面一個明確的答覆！
Visual FoxPro 8的 Try…Catch…Finally…End Try 結構讓人激動不已，它幫助我們方便的抓住“異常”，即時針對各種異常做出反應，縮小異常的影響範圍，保護系統的運行狀態；也使得程式模組的封裝性更好。想想以前應付“異常”而設計的各種方案，一夜之間成了昔日黃花、顯得那樣蒼白無力，真是“滄海變桑田”啊！
僅此一項增強，Visual FoxPro 8就已經光彩奪目，相信任何開發人員都經不起“結構化異常處理”的誘惑，升級到Visual FoxPro 8！
（二）CursorAdapter 類
Visual FoxPro 8提供的CursorAdapter 類也是大家所津津樂道的。CursorAdapter 是一個基於鬆散耦合思想設計的物件化的 Cursor 處理模型。
1、VFP8以前的資料處理
在 Visual FoxPro 8 之前，我這樣評價在 Visual FoxPro 裡的資料處理：靈活而強健，面向記錄處理為主、面向集合處理為輔，採用過程化程式化模型，但可以利用物件導向的 XBase 語言自行封裝資料處理物件。
說到Visual FoxPro 處理資料的靈活和強健，歸根到底是Visual FoxPro 同時支援 XBase語言和SQL 語言。XBase 語言善於對記錄的梳理，這種處理往往是基於“行”的模式；SQL 語句對資料的處理是根據“集合”的概念，按照條件取得“集合”，然後處理。無論採用 XBase 語言處理資料，還是使用 SQL語言，Visual FoxPro 預設提供面向過程的資料處理程式化模型，而不是流行的物件導向的程式化模型。（當然，Visual FoxPro 並不限制開發人員編寫自己的資料處理物件。）
那麼在 Visual FoxPro 中所謂的“資料”到底是什麼呢？是 Cursor！在Visual FoxPro 中整個資料處理是圍繞著 Cursor 進行的（而不是 DBF），所以物件化資料處理模型也應該從 Cursor 著手！
2、物件導向的資料處理器
在 Visual FoxPro 設計物件化的 Cursor 是沒有太大的意義的，這句話很突兀、讓人摸不到頭腦！
我們用典型的物件化游標──ADO 元件的 RecordSet 做分析。可以發現RecordSet 中定義了資料集合的來源、資料集合的結構(表結構)、資料的更新回送方式，另外RecordSet還能夠對資料集合進行操作，諸如Move、Find、Delete之類的方法。
在 Visual FoxPro 裡對象化 Cursor，是不是要照搬 RecordSet 的一套呢？如果由我們來設計這個構架，我們如何取捨呢？我覺得沒有必要實現對 Cursor 本身的封裝，這樣是在自殘，我剛才已經說過了：整個 Visual FoxPro 對資料的處理就是對 Cursor 的處理，如果封裝了Cursor，就背離了整個體系的構架思路，同時也放棄了 Visual FoxPro 對資料處理的“靈活與強健”的特色。這就是前面提到的“在 Visual FoxPro 設計物件化的 Cursor 是沒有太大的意義的”。
物件化 Cursor 沒意義，那麼我們究竟需要什麼呢？
用一個物件導向的 Cursor 的處理（管理）器來管理 Cursor的資料來源、Cursor 的資料結構、Cursor 中資料變動的更新回送；而Cursor 依舊是傳統意義上的 Cursor，沒有任何改變，依舊可以用 XBase 或者 SQL 語言對直接 Cursor 進行處理──這才是我們需要的。
說到這裡，大家會問了，這不就是DBC 中的視圖嗎？它們在實現的功能上確實有點像，但實質上是有差別的：
首先，視圖是 DBC 的物件（元件），利用視圖設計的系統對 DBC 的依賴性大，不符合多層體系構架的思路。而我們的物件化 Cursor （處理）管理器與 DBC 無關，完全是程式設計級別上的概念。從多層體系設計的觀點看，屬於業務邏輯層次。
再者，視圖是資料庫中的概念，靈活性差、可控制性差；而物件化 Cursor （處理）管理器就不一樣了，作為物件，具備了物件導向程式設計的一切好處，很容易定義、改變、維護，更能夠繼承使用，這都是使用視圖所辦不到的。
隨便就能舉出幾個視圖弱勢的例子，有時候資料集合的結構一致，但是資料來源不一樣，就必須麻煩的設計幾個視圖，而使用物件化 Cursor （處理）管理器就只需要改變資料來源屬性；又例如，資料來源相同、資料集合結構相同，只不過獲取資料的條件不同（Where 子句構造不一樣），用視圖就必須設計新的視圖，而使用物件化 Cursor （處理）管理器只需要改變相關屬性即可……
說到底：視圖是資料庫的概念，具備的是資料庫物件（元件）的特性，而不具備程式化語言的特點，物件化 Cursor （處理）管理器解決的就是這個問題。
3、鬆散耦合
在視圖時代或者是RecordSet時代採用的是緊密耦合的思維，說的直白一點，就是：資料從哪裡來就更新到哪裡去，程式師並不能在其中做什麼干涉，一旦執行了TableUpdate()，就自動更新資料來源，沒有商量的餘地！
鬆散耦合提供了一種開放的模型，它以 Cursor 為中心，從本質上認識到 Cursor 與資料源的相互關係是：資料獲取和變動更新回寫。資料獲取就是 SQL-Select操作、資料更新回寫就是SQL-Insert、SQL-Update、SQL-Delete。鬆散耦合模型提供 Cursor 資料來源的Select子物件、Cursor 資料添加回寫資料來源的 Insert子物件、Cursor 資料修改回寫資料來源的 Update 子物件、Cursor資料刪除回寫資料來源的 Delete 子物件。由於從構架上把Cursor與資料來源的各種互動操作分割開來，再輔以事件模型，這就給了開發人員很大的程式化餘地！
相比之下，視圖雖然也採用類似的思路與資料來源互動，但是它把整個互動過程作為一個整體看待，嚴嚴實實的包裝起來，造成開發人員的參與性差。
4、VFP8的CursorAdapter對象
讓我們回過頭再看 Visual FoxPro 8 提供的 CursorAdapter 物件，預設情況下支援四種資料來源，分別是：Native（本地資料）、ADO、ODBC、XML。請思考一下，為什麼 CursorAdapter 能夠支援幾種性質完全不同資料來源呢，原因就是採用了鬆散耦合模型，讓開發人員用自己的代碼參與資料的獲取，使得整個體系的擴展性大大增強，這就是鬆散耦合的魅力！
概括VFP8中的CursorAdapter，它是：一個基於鬆散耦合思想設計的物件化的 Cursor 處理模型。CursorAdapter 既保留了 Visual FoxPro 對 Cursor 處理的傳統優勢，又引入了先進的程式化模型和構架。再次強調它的特色：
Cursor 本身沒有被物件化，依舊是傳統意義上的 Cursor，可以使用一切傳統語句處理 Cursor。
Cursor 的管理方式物件化了，可程式化性更好，有利於代碼的封裝。
採用了鬆散耦合的設計思維，以 Cursor 為中心、但又分割了 Cursor 與資料來源之間的各種操作、再加入事件模型，為開發人員提供了很多參與的機會。
　
（三）全新的“連接”
Visual FoxPro 8在異構資料庫程式化的增強，更直接一些就是對 SQL Server支持的改進。我覺得，至少體現在兩個方面：一個是通過 CursorAdapter 物件提供一種比遠端視圖更加靈活、更容易程式化的 Cursor 管理物件；另一個是在原有的基礎上革新了“連接”的概念，使得“連接”處理更加獨立、“連接”管理更加方便、“連接”更容易被共用！
前面我們已經對CursorAdapter作了分析，接下來就讓我們看看“連接”的變化吧！
1、DBC 中的“連接”物件和“連接控制碼”
以前我介紹 Visual FoxPro 裡的“連接”時，經常強調這樣兩個概念：DBC 中的“連接”物件（元件）和“連接控制碼”。
DBC 中的“連接”物件（元件）只是一種定義，描述怎樣通過 ODBC 連接到資料來源；“連接控制碼”是產生實體的“連接”物件（元件）。我們可以通過USE遠端視圖或者使用 SQLCONNECT() 打開“連接”物件，得到“連接控制碼”。
當然這裡還有兩個更加直接的方式得到“連接控制碼”，就是在SQLSTRINGCONNECT()中直接使用連接字串；還有就是SQLCONNECT()中直接引用作業系統（ODBC.INI）中的DSN 定義。這裡需要注意的是，這兩種方式跳過了 DBC 的“連接”物件（元件），使得Visual FoxPro 不容易管理它們。也許這個問題在 Visual FoxPro 8 以前還不很明顯，但 Visual FoxPro 8 以後應該慎用它們了。
Visual FoxPro 8 以前，“連接控制碼”並不獨立，主要是“遠端視圖”自己管理“連接控制碼”，其它“遠端視圖”或者 SPT需要共用“連接控制碼”是非常麻煩的，“遠端視圖”之間共用“連接控制碼”，需要定義所有參與共用的“遠端視圖”的ShareConnection屬性為.T.；SPT 要取得“遠端視圖”的“連接控制碼”必須在USE“遠端視圖”以後，使用 CURSORGETPROP() 函數取得“連接控制碼”。除了麻煩以外，還有不能實現的功能，如先期已經存在的“連接控制碼”不能被“遠端視圖”共用。這一切都是因為“遠端視圖”太過“自主”所致！
2、Statement Handle Vs. “連接控制碼”
為了解決“遠端視圖”的“獨斷專行”，Visual FoxPro 8 提出了“遠端視圖”設計時與運行時分離的思路，引入了一個新的關於“連接”的概念── Statement Handle，同時 Visual FoxPro 8 保留了“連接控制碼”概念。
從 Visual FoxPro 8 開始開發者直接處理的任何Handle 都是 Statement Handle，而不是“連接控制碼”了！進一步講，“遠端視圖”使用的是 Statement Handle、SPT使用的也是 Statement Handle。也就是說，我們在 DBC 裡建立、設計“遠端視圖”使用的連接與“遠端視圖”運行時的連接可以沒有任何關係，我們可以在 USE 語句中即時指定“遠端視圖”將要使用的Statement Handle。這就是 Visual FoxPro 8 針對 C/S 程式化中“連接”的一個改進。
Statement Handle 與“連接控制碼”的關係。我以為：
? “連接控制碼”是 Statement Handle 的基礎，Statement Handle 是“連接控制碼”的衍生；
? 真正與資料來源連接的是“連接控制碼”，而不是Statement Handle；開發人員直接操作的是Statement Handle，而不是“連接控制碼”；
? 某一條“連接控制碼”可以衍生出一條或者多條Statement Handle，而某一條 Statement Handle只可能對應到一條確定的“連接控制碼”；
? 新建一條連接的實例，將（可能）產生一條新的“連接控制碼”和一條新的Statement Handle，這條Statement Handle對應到這條“連接控制碼”；
? 新建一條連接的實例，如果當前Visual FoxPro 系統中已經存在一條符合以下兩個要求的“連接控制碼”，這兩個要求分別是允許被共用，並且“連接”語句的定義一致（可以認為來源於 DBC 的同一個“連接”物件），這時不會生成一條新的“連接控制碼”（不會再與資料來源建立一條新的 ODBC 通道），而是直接由已經存在的“連接控制碼”衍生出一條新的Statement Handle，這條Statement Handle共用原先那條“連接控制碼”。
? 當一條“連接控制碼”衍生的 Statement Handle 全部被釋放了以後，“連接控制碼”才會釋放。
? 能夠衍生出多條Statement Handle的“連接控制碼”一定是根據 DBC中“連接”物件（元件）所創建的。使用連接字串（SQLSTRINGCONNECT()）或者直接引用作業系統 DSN 創建的“連接控制碼”只能衍生出惟一條Statement Handle。這是因為，Visual FoxPro 判斷不同 Statement Handle是否“同源”的依據是 DBC 的“連接”物件（元件），而不是 ADO.NET那樣根據連接字串定義區分。
從上面的表述中，我們發現：因為“連接控制碼”與 Statement Handle 的關係是“一對多”的，如果拿 SQL Server 作為資料源，我們可以建立一條“連接控制碼”、根據它衍生多條Statement Handle，實際上連接到 SQL Server 的只有一條連接，而應用程式中卻可以有多條Statement Handle，這就是一種新概念的“連接共用”！
3、一個實例
讓我們通過下面的例子來具體瞭解一下Statement Handle與“連接控制碼”。設DBC裡有一個“連線物件”（元件），名為 “CD1”，連接到SQL Server 資料庫。
Con1=SQLCONNECT("CD1",.T.)
連接成功，返回 Con1=1。Con1 表示 Statement Handle ，以後就可以通過這個Con1 打開“遠端視圖”或者執行 SPT 命令；由於此時系統中並沒有存在“連接控制碼”，所以同時產生一條“連接控制碼”，需要獲取“連接控制碼”可以通過：
ODBC1=SQLGETPROP(Con1,"ODBChdbc")
我這裡ODBC1=49551184。這個ODBC1並不需要開發人員關心，也不需要通過程式維護。
接著，我們就根據 ODBC1衍生其它的Statement Handle：
Con2=SQLCONNECT("CD1",.T.)
返回 Con2=2。Con2 表示 Statement Handle，以後就可以通過這個Con2 打開“遠端視圖”或者執行 SPT 命令；我們獲取 Con2 的“連接控制碼”看一看：
ODBC2=SQLGETPROP(Con2,"ODBChdbc")
我這裡ODBC2=49551184。說明，ODBC1和 ODBC2 是一個東西，衍生了兩條Statement Handle。雖然，程式化中，我們可以使用 Con1或者 Con2，但是真正與 SQL Server 的連接只有一條，就是“連接控制碼”。
接著，我們需要關閉“連接控制碼”衍生的所有的Statement Handle，才能真正斷開Visual FoxPro 與 SQL Server 之間的連接。
SQLDISCONNECT(Con1)
SQLDISCONNECT(Con2)
通過這個簡單的例子，也許有利於我們來理解新的“連接”。雖然，Visual FoxPro 8在“連接”這一塊動了大手術，但是這對於舊的系統影響並不是很大，因為程式化介面並沒有變化，Visual FoxPro 只是在更底層的地方加了一層概念。話要說回來，如果要真正用好這個新特性，還是應該改變一下程式化思路。
4、 “連接”體系更改的原因
也許，我們還會有這樣的疑問：Visual FoxPro 8為什麼要加入 Statement Handle 這樣的概念，按照以前的做法直接使用“連接控制碼”在各處傳遞，不是也能夠實現“連接共用”嗎？
筆者認為這是物件導向化程式化的需要、多層開發的需要。整個構架系統的思路就是更好的物件導向化程式化、更好的多層開發，所以才有了結構化錯誤處理、CursorAdapter和此處的 Statement Handle。
上文，我使用了“衍生”一詞，從詞義理解一定是用“連接控制碼”顯式生成新的Statement Handle，但是從實例代碼中大家看到了，產生 Con1和 Con2 的代碼是一樣的。從理論上講，就是：Visual FoxPro 能夠自行管理 “連接控制碼”，開發人員只需要也只應該處理相應的 Statement Handle，而並不需要關心由同一“連接控制碼”衍生出的其它Statement Handle。這樣對於模組化開發是很有好處的，同時也解決了“共用連接”問題。
關於“連接”的話題談的差不多了，不過有一個問題是需要注意的：一個“連接控制碼”可以衍生多個Statement Handle，在開發中，如果有一個 Statement Handle進入了交易處理狀態，這時所有相關的Statement Handle也進入了交易處理狀態，這因為 SQL Server 的事務是根據真實的連接區分的——由於某一條Statement Handle 的要求，使得“連接控制碼”進入了事務狀態，理所當然的該條“連接控制碼”衍生的所有Statement Handle也一起進入了同一個交易處理。（當然，不是由已經進入事務狀態的“連接控制碼”衍生的Statement Handle，不會進入事務狀態。）
終於完成了我在 Visual FoxPro 8 中的“首航”，細細揣摩一些 Visual FoxPro 8的新特徵，我深深體會到一個指導思想貫穿著整個 Visual FoxPro 8的構架，這個思想就是：支援更完美的對象封裝。由此推斷：用 Visual FoxPro 8 進行物件化程式化、多層開發一定比以前更加容易、更加靈活！
本文只涉及到 Visual FoxPro 8 的三個新特性，事實上還有更多令人愉悅的東西沒能講到，希望以後能有機會與大家共同探討！大家可以到：

三思同志發表于2005-04-23 7:56 AM IP: 218.15.22.*
強大的報表設計器
Visual FoxPro 9.0 的報表設計器(1)
　Micorsoft公司對新推出的Visual Foxpro 9報表設計器作了顯著地改進，同時又與老版本的Visual Foxpro保持了向後相容性，新版本的報表設計器是一個新舊版本的混合體。
　　在本文中，你將瞭解報表設計器對新的資料環境、報表保護、使用者介面、物件佈局與資料分組功能的增強。最後，你將瞭解Visual FoxPro 9報表設計器的一個最有用的增強功能：多條明細區帶（multiple detail bands）。
　報表設計被一個新增的“Xbase報表設計器”的工具代替。它提供了一些新的對話方塊，並且比以前的版本更方便使用。它還提供了一些舊版本報表設計中所沒有的新特色。你可以通過改變一個名為“_REPORTBUILDER”的系統屬性來決定使用哪種報表設計器，如下所示：
　　*--如果要使用新版本的報表設計器
_REPORTBUILDER = HOME() + 'ReportBuilder.app'
　　*--如果要使用舊版本的報表設計器_REPORTBUILDER = ''
　　報表輸出引擎：與報表設計器一樣，你可以控制是否選用新版本的報表輸出引擎。但與報表設計器不同的是Visual FoxPro 9預設報表輸出引擎為舊版本方式。主要是因為在新版本的輸出引擎中使用了GDI＋庫，而老版本的輸出引擎使用的是GDI庫，使用老版本的輸出引擎就可以讓應用程式可以在不用版本的windows上顯示出同樣的輸出效果。你可以用如下命令來切換你的輸出引擎：
　　*--使用新版本的輸出引擎
SET REPORTBEHAVIOR 90
　　*--使用舊版本的輸出引擎
SET REPORTBEHAVIOR 80
　　　　　在下文中我們假定使用的是新版本的報表設計器和輸出引擎。
　　資料環境（DE）
　　Visual FoxPro　9的報表設計器能與讓多個報表共用同一個資料環境。資料環境能夠以類的方式保存，並在需要的時候被報表載入。這為那些需要制定通用報表資料環境的應用程式提供了方便。
　　要將資料環境保存為一個類，首先你要為報表定義一個資料環境，然後啟動資料環境視窗，並在“File”主功能表中按一下“Save As Class...”選項。
　　這樣系統會彈出一個新的對話方塊（參見圖1）。在這種情況下，Save選項按鈕組中只有“DataEnvironment”處於允許狀態。
圖1.　使用“Save As Class”對話方塊指定要保存的類名以及所在的類庫，並將指定報表的資料環境保存在這個類中。
Visual FoxPro 9.0 的報表設計器(2)
　載入資料環境
　　除了能為報表定義資料環境以外，Visual FoxPro 9還能讓你將某個報表的資料環境類載入到報表中去。“Report”功能表中的“Load Data Environment...”選項可以讓你選擇到底載入哪個資料環境。
　　通過報表設計器載入資料環境
　　如果要為一個新報表載入資料環境，那來源資料環境的所有代碼和成員變數都會複製到新報表中。這表明當你改變原來報表的資料環境後，並不會對新報表的資料環境產生任何影響。
　　圖2顯示了當你從“Report”主功能表中按一下了“Load Data Environment...”選項後彈出的屬性對話方塊。你可以在裡面選擇從哪個報表中複製來源資料環境。
圖2.　按一下”Data Environment“選項卡，從中選擇你要從哪個報表中複製資料環境
在上圖中，按一下“Copy from another report file”選項按鈕，然後按一下“Select...”按鈕，這樣會彈出一個打開對話方塊，你可以從中選擇從哪個報表中複製。如果你選中了一個報表，那系統彈出一個確認框。
　　假如我們要將某個報表的資料環境複製到當前報表中去，Visual FoxPro 9會警告你將覆蓋當前報表的資料環境，你必須選擇“是”才能繼續進行複製。這個提示功能可以防止由於你的誤操作而將當前報表的資料環境覆蓋掉。如果你選擇“否”的話，那複製就會取消，如果選擇的是“是”，那就會真正進行複製操作，並且當操作完成後，系統會出現另一個對話方塊，提示你操作完成。
　　現在資料環境已經複製成功了，你可以操控新的資料環境。但你要始終記得原報表資料環境的改變並不會對新的資料環境有任何影響。
　　從一個類中載入資料環境
　　當要從一個類中載入資料環境時，你必須要為新報表的資料環境寫一些額外的代碼，使得它能夠動態地綁定來源資料環境，並且初始化它的一個實例。這意味著如果從類中載入資料環境時，對來源資料環境做的所有改動會影響到所有使用它的報表。
　　你同樣可以用圖2所示的報表屬性對話方塊來完成這個效果，先按一下“Link to a visual DE class”選項按鈕，然後從系統彈出的打開對話方塊中選擇你要載入的類庫以及類名，當你點擊確定按鈕後，當前報表的資料環境將得到更新，並且系統會給出相應提示資訊。
　　其實Visual FoxPro自動為資料環境的如下5個方法中加入了一些代碼：Init()、BeforeOpentables()、AfterCloseTables()、Destroy()和Error()。有些方法中加入的代碼非常簡單，僅僅是一個DODEFAULT()命令，這個命令不執行任何操作。其原因是BindEvents()方法必須保證資料環境的這5個方法中的代碼行數超過一行才能執行。你可以手動查看這些自動生成的代碼，但我強烈建議你別去動這些代碼。
Visual FoxPro 9.0 的報表設計器(3)
　　保護
　　如果要在Visual FoxPro 9使用報表設計器或者標籤設計器，你可以為一個或多個的佈局物件設置保護。這種特性可以讓你的使用者只能對報表進行有限的修改。
　　你可以為佈局物件設置5種保護模式，域物件有著另外的保護選項。帶區（Band）有兩種保護模式可供你選擇。並且你也可對報表本身設置不同的保護方式。
　　保護一個物件
　　要在報表設計器中為一個佈局物件設置保護，通過啟動此物件的屬性對話方塊即可操作，你可通過用右鍵點擊此物件，並在彈出的快顯功能表中選擇相應的功能表項目，或者直接按兩下此物件。圖3顯示了一個佈局物件屬性對話方塊的保護頁，你可以為佈局物件設置如下5種保護方式：　　? 物件不能被移動或改變大小。它使得用戶不能在設計器中移動此佈局物件，並且使用者不能改變此物件的大小。
　　? 對象不能被修改。它使得使用者不能修改此佈局物件的屬性。
　　? 物件不能被刪除。　它使得使用者不能刪除此物件。
　　? 對象不能被選中。使用者不可以選擇此物件，當物件處於這種保護方式下時，使用者不能移動它或改變它的大小，同樣也不能修改或刪除它。
　　? 物件在設計器中不可見。它使得此物件在報表設計中不可見，當物件處於這種保護方式下時，使用者不能移動它或改變它的大小，同樣也不能修改或刪除它。
圖3.　佈局物件屬性對話方塊中的保護頁
　　這個對話方塊還有一個名為“Design-time caption”的輸入項，它只對域物件有效。你可以在其中輸入域物件的名稱，這樣在報表設計器中就不會顯示域的表達示名稱，而是顯示你輸入的名稱。當域的運算式非常冗長時，這種顯示方式可以使得報表設計器的使用者介面更加友好。
　　保護一個帶區（Band）
　　在報表設計器中要保護一個帶區的話，請先啟動此帶區的屬性對話方塊。你可以通過選擇“Report”功能表中的“Edit Bands...”功能表項目來打開這個屬性對話方塊，也可以直接按兩下帶區的灰色條。圖4顯示了一個帶區屬性對話方塊的保護頁，你可以選擇以下兩種保護模式：
　　? 帶區不可修改。這可以防止使用者修改帶區的屬性。
　　? 帶區不可改變大小。這可以防止用戶改變帶區的大小。
圖4. 帶區屬性對話方塊中的保護頁
　　保護報表本身
　　要為一個報表設定保護方式，要先啟動此報表的屬性對話方塊。你可以通過選擇“Report”功能表中的“Properties”功能表項目來打開這個屬性框，也可以按右鍵此報表來彈出這樣一個功能表。圖5顯示了一個報表屬性對話方塊的保護頁
圖5. 報表屬性對話方塊中的保護頁
　　這個對話方塊的上半部分可讓你禁止使用者使用屬性對話方塊中的某些屬性頁。當你選擇了相應的檢查框後，報表屬性對話方塊中的某些屬性頁會變得不可用。但“Protection”檢查框總是保持選擇狀態而且不允許你對它進行改動。另外由於“Ruler/Grid”屬性頁無法保護，因此“Ruler/Grid”檢查框也總處於禁止狀態，這兩個檢查框之所以顯示是為了保持屬性頁與檢查框的一致性。
　　屬性對話方塊的下半部分可以禁止使用者使用某些功能表項目。當你選擇了相應的檢查框後，相應的功能表會變得不可用。
　　在命令中設置保護標誌
　　如果要通過命令方式來調用報表設計器或標籤設計器中的保護方式，則應該使用PROTECTED關鍵字，如下所示：
CREATE REPORT MyReport PROTECTED
MODIFY REPORT MyReport PROTECTED
CREATE LABEL MyLabel PROTECTED
MODIFY LABEL MyLabel PROTECTED
　　如果沒有指定PROTECTED關鍵字，報表設計器不會為任何佈局物件加上保護
Visual FoxPro 9.0 的報表設計器(4)
　增強的使用者介面（UI）
　　報表設計的使用者介面作了很多改進，使得用戶能更方便、更直觀地設計出報表。功能表項目也作了很大的調整，上下文功能表做了改進，報表設計器的工具列中增加了一些新選項。運算式構造對話方塊（Expression Builder ）和運算式構造選項對話方塊（Express Builder Options）都有了新的特性，此外報表設計器對其它一些使用者介面作了細微的改進。
　　菜單
　　功能表加入了一些新專案，一些原有的功能表項目被更名使得它們表達的意思更清晰，此外一些常用的功能表項目被重複以便用戶更方便地訪問到它，具體如下：
　　? “File”菜單下增加了“Save As Class...”功能表項目。
　　? 報表設計器的工具列加入了一個名為“水平線（horizontal lines）”的控制項，它用來把Grid Lines和Show Position這兩個控制項與其它的控制項分割開來。
　　? “Report”菜單增加了“重貼標籤(relabled)”、“新建（new）”以及“預覽列印（Print Preview）”等功能表項目。
　　快顯功能表
　　對現有的快顯功能表添加了一些新條目，使得功能表條目與相應的對話方塊能保持更好一致性。　　? “全域（Global）”快顯功能表增加了一個名為“重貼標籤(relabled)”的功能表項目。
　　? 通過按右鍵任意帶區（band）的灰色欄可以彈出名為“帶區（Band）”的快顯功能表。
　　? 通過按右鍵任意佈局物件可以彈出名為“佈局物件（Layout Object）”的快顯功能表。
　　工具列
　　如圖6所示，報表設計器的工具列增加了兩個新的控制項：頁面設置控制項和字體控制項：
圖6. 報表設計器增加的兩個新控制項
　　運算式構造對話方塊
　　運算式構造對話方塊為“運算式域(Expression for Field)”輸入框提供了一個更大的輸入空間，允許使用者輸入更多的報表運算式。
　　如果你將＿REPORTBUILDER這個系統屬性設為空的話，那運算式構造對話方塊會指定本地行為，只有在資料環境中定義的資料表才能夠顯示在對話方塊中的清單中。那些沒有在資料環境中定義的資料表則不會在清單中顯示。
　　如果將＿REPORTBUILDER系統屬性為ReportBuilder.app的話，那運算式構造對話方塊則會呈現另外一種行為。首先，＿GETEXPR中定義的運算式構造器會取代本地的運算式構造器。
　　運算式構造對話方塊還有一個下拉組合清單方塊，你可以從中選擇要操作的資料表。只有當前已使用的資料表才會出現在這個清單方塊中。需要強調的是報表設計器是不會自動打開資料環境中定義的資料表的，因此如果資料表沒有被打開的話，那它便不會出現在這個清單方塊中。
　　採用這種設計方式事，當使用者使用你定義的報表時，你可以很好地控制用戶能訪問哪些資料表，不能訪問哪些資料表。你可能在資料環境中定義了若干個資料表，但你不希望用戶能訪問所有的資料表，這時你可以打開一些允許用戶訪問的資料表，而其他未打開的資料表則對用戶不可見。
　　滑鼠指標的改進
　　當報表中物件處於大小可變狀態時，滑鼠指標會發生相應的改變（參見圖7）。
圖7. 當一個物件處於大小可變狀態時，滑鼠指標發生的改變。
　　多項選擇對話方塊
　　VIsual FoxPro 9提供了一個多項選擇對話方塊，你可以通過它一次性地設置多個佈局物件的Portection和Print屬性。它也允許你對單個佈局物件的其它屬性進行修改。要使用這種功能，先要選定多個佈局物件，然後在任意一個物件上面按一下右鍵來彈出這個對話方塊，如圖8所示：
圖8. 多項選擇對話方塊
　　所有被選定的物件出現在對話方塊的“Selection”屬性頁的清單中。如果你要選取報表中所有的佈局物件的話，用CTRL＋A複合鍵可以對它們進行全選，然後再按一下右鍵即可。
　　圖8中的“Sort by”選項群組允許你將佈局物件按類型或出現在報表中的位置排序。“Remove from list”按鈕可以刪除清單中的佈局物件。如果你按兩下清單中的某個物件，那麼“Properties”屬性頁就會啟動，並且顯示出這些佈局物件在報表中的某些屬性。如圖9所示，你可以一次性更改所有出現在“Selection”屬性頁中的佈局物件的某些屬性。
圖9.　通過“Properties”屬性頁來修改佈局物件的保護屬性以及列印屬性。
　　如果你選中了“Apply these protection settings to the selected objects”檢查框，那可以對清單中的佈局物件設置保護方式。如果你選中了“Apply this condition to the selected objects upon saving”檢查框，那麼可以允許列印。你可以根據自已的需要對保護及列印做更進一步的設置，設置完畢後，按一下“OK”按鈕便可同時改變所選的佈局物件的這些屬性。
　　更大的縮放級別
　　預覽視窗有了更大的縮放級別，可以從10%縮放到500%。
　　佈局對象的增強
　　佈局物件也做了一些改進，包含一個操控範本字元的可選項，字元運算式的裁剪模式，以及能指定佈局物件的相對位置和絕對位置。
　　範本字元
　　域屬性對話方塊增加了對範本字元的一些新支援，它們分別是覆蓋（Overlay）和交錯（Interleave）。用來支援字元的一些特殊格式。
當你使用覆蓋方式時，特殊字元會被當做資料的一部分，並且會覆蓋其它的字元。舉個例子來說，當你使用一個格式化字串“999－999”時，而使用者實際輸入的資料是“123456”，那報表的最終結果將會顯示為“123－56”，注意數字“4”被格式化字元中的“－”覆蓋了。
當你使用交錯方式時，特殊字元會插入到當前資料中。舉個例子來說，當你使用一個格式化字串“999－999”時，而使用者實際輸入的資料是“123456”，那報表的最終結果將會顯示為“123－456”，注意“－”插入到了數位“3”和數位“4”的中間。
Visual FoxPro 9.0 的報表設計器(5)
　字元運算式的裁剪模式
　　在Visual FoxPro 9以前，當域物件中的文本過長時一般都會被自動裁剪。在Visual FoxPro 9中，你可以指定域物件的如下幾種裁剪方式：
　　? 缺省裁剪方式。這種方式類似於以前版本的Visual FoxPro的處理方式。
　　? 裁剪最近的字元。它將多餘的字元全部裁掉，直至剛好滿足輸入域的長度。
　　? 裁剪最近的單詞。它將多餘的單詞全部裁掉，直至剛好滿足輸入域的長度。
　　? 檔裁剪方式。如果輸入域中的內容中一個非常長的檔路徑，那麼中間的路徑將會以省略號代替，只保留頭尾路徑。
　　大小及位置
　　現在可以更方便地控制佈局物件的大小以及所處的位置。與原版本不同，當在新版本報表中加入一個物件時，此物件的“From page top”、“From left”、“Height”和“Width”屬性都會自動設置。在報表設計器中，“From page top”屬性是指物件相對於頁面頂端的相對位置。此物件上的所有灰色欄的高度也都被計算在內。改變物件的“From page top”屬性有可能將物件移到到另一個區帶中去。
相對位置：“From page top”屬性和“Height”屬性共同確定了當前物件是處於絕對位置還是相對位置。當物件的“From page top”屬性的取值範圍在報表的區域內，並且“Height”屬性小於或等於所在區帶的高度時物件就處於相對位置。一般來說，只有區帶內的物件才需要使用相對位置，而像Page Header和Page Footer這樣的物件則不需要使用相對位置。
　　絕對位置：當物件的“From page top”屬性的取值範圍在報表的區域以外，並且“Height”屬性大於所在區帶的高度時物件就處於絕對位置。絕對位置意味著物件在每頁報表中都有著一個精確的位置，不會發生偏移。
　　我們可以利用絕對位置來為報表增加浮水印效果。將一幅浮水印圖像放在Page Header區帶中，並且將它設為“縮放內容，保持形狀”模式。將浮水印圖像的“From page top”屬性和“From left”屬性設為某組值，這組值相當於你的浮水印圖像在報表中的左上角座標。然後通過改變“Height”和“Width”屬性來指出浮水印的大小，但注意的是不要將圖像的尺寸設得過大，以免超過了列印範圍的邊界。
增強的資料分組功能
　　Visual FoxPro 9報表設計器對資料分組功能做了一些改進，增大了資料分組的最大數量限制以及對水準欄的改進。
　　最大資料分組數
　　最大資料分組數從原來的20個增加到了現在的74個。實際原來的版本也支援最大74個資料分組數，但由於原來的介面只支援20個資料分組的輸入，從而導致了這種限制。
　　水準分欄
　　在以前的版本中，如果要為一個資料組定義多個水準分欄的話將會浪費很多報表空間。並且第一行第一列與報表的頂端之間有一些空白，資料還會從行1列2開始顯示。並且在每個資料組中都會有一個多餘的區帶，如圖10所示。即使資料組的頁頭區帶的高度為0，Visual FoxPro 仍然將保留這些空白，如圖11所示。
圖10. 當為資料組定義多個水準分欄時，原來版本的Visual　FoxPro浪費的報表空間
圖11. 即使資料組的頁頭區帶高度為0，原來版本的Visual FoxPro仍將保留這些空白
　　在Visual FoxPro 9中資料組分欄得到了改進。當報表設計器發現一個新資料組時，它將從第一列開始顯示，直至𦴤行。如果不滿一行，那剩下的部分將以空格填充。如果還有未列印完的明細記錄的話，那這些記錄會從下一行開始輸出，如圖12所示。如果資料組的頁頭區帶的高度為0，則Visual FoxPro 將不會保留任何空白，如圖13所示。
圖12. 將資料組進行水準分欄時，Visual Foxpro 9將節省更多的空間
圖13.　如果資料組的頁頭區帶高度為0時，Visual Foxpro 9不會保留任何空白
Visual FoxPro 9.0 的報表設計器(6)
　多條明細區帶
　　這個新增功能其實早在以前就很需要，它是對老版本的一個很大的改進。它能讓你在一個父表中為每一條記錄處理相對應的子表，這種報表格式的一個典型實例如圖14所示。
圖14. 這個報表為每個客戶報告了其購買保險的詳細資訊
　　資料表與關聯
　　要想熟練地使用這一新特色，你必須明白父表是怎樣與子表一起協同工作的。我們以圖15所展示的報表為例，它使用的資料庫環境如下：
　　? 客戶表（Customer）是父表，它包含了所有購買保險的客戶。
　　? 家庭成員表（Members）是客戶表的子表，它包含了客戶的所有家庭成員。
　　? 交通險表（Vehicles）也是客戶表的一個子表，它包含了客戶所購買的交通險。
　　? 家庭險表（Homes）也是客戶表的一個子表，它包含了客戶所購買的家庭險。
　　主表
　　必須有一個表來做為報表的主表，在本例中，客戶表正是這樣的一個資料表。如果你用資料環境來定義資料表的話，那必須將它的InitialSelectedAlias屬性定義為這個資料表。　如果你用代碼的方式來定義資料表的話，那要保證當此報表運行時，客戶表必須處於當前打開的工作區。
　　目標別名（Target Alias）
　　所謂目標別名，是指在報表某個特定的區帶中做為主表的那個資料表。在本例中，家庭成員表是明細區帶1的主表，交通險表是明細區帶2的主表，而家庭險表則是明細區帶3的主表。
　　如果沒有為某個明細區帶定義主表，那它就會呈現出與老版本的Visual　FoxPro一樣的行為（每個父表只會處理一個明細區帶）。但如果你定義每個父表都為主表的話，那結果會全然不同。Visual FoxPro　將依次處理父表中所有記錄，並在每個明細區帶中依次將它們輸出。　
　　關聯
　　關聯在如何控制多條明細區帶的輸出中起到的重要的角色。Visual FoxPro通過父表與子表之間的關聯來進行記錄的導向。你可以通過SET　RELATION或者SET　SKIP來定義這些關聯。如果你在資料環境中打開了這些資料表，並且資料庫中已經定義了它們之間的關聯關係的話，那父表與子表之間將會自動生成關聯。
　　如果你採用代碼方式打開資料表的話，那列表1將告訴你如何將圖15所示的資料環境建立起來。
　　列表1.建立圖15的資料環境
　　如下代碼展示了如何將父表與子表建立報表關聯的例子。
　　*--打開子表
USE Members IN 0 ORDER CustomerFK
USE Vehicles IN 0 ORDER CustomerFK
USE Homes IN 0 ORDER CustomerFK
　　*--打開父表
SELECT 0
USE customer ORDER CustomerPK
　　*--為父表和子表建立報表關聯
SET RELATION TO CustomerPK INTO Members
SET RELATION TO CustomerPK INTO Vehicles ADDITIVE
SET RELATION TO CustomerPK INTO Homes ADDITIVE
定義多條明細區帶
　　如果你新建一個報表，那它缺省地為這個報表只設置一個明細區帶。通過可選區帶對話方塊可增加額外的明細區帶。從“Report”功能表中選擇“Optional Bands...”功能表項目就可以打開這個對話方塊。它其實就是原來版本中的“標題/小結（Title/Summary）”對話方塊。
　　按一下“Add”按鈕便可以增加一個新的明細區帶，你可以為一個報表定義最多20個明細區帶。
　　定義主表
　　通過明細對話方塊你可以為每一個明細區帶定義其主表。從“Report”功能表中選擇“Edit Bands...”就可以打開這個對話方塊，或者按兩下明細區帶的灰色欄也可達到同樣效果。
　　主表實際上是一個運算式，你必須將相應的資料表名用引號引起來。如果你定義了某個主表，則相應的明細區帶的灰色欄將顯示它的名字。
　　如果你要建立一個多條明細區帶形式的報表，請別忘了在欄位前面加入資料表名的首碼，格式為“資料表名.欄位名”，這樣可以防止不同的資料表之間的同名欄位衝突。
　　頁頭和頁尾
　　多條明細區帶的另一個改進就是能為每一個明細區帶增加獨立的頁頭和頁尾。這與頁頭和頁尾分組有些類似，但仍然有一些不同。當每個父表記錄的處理流程如下：
　　? 明細區帶1的頁頭被處理。
　　? 處理明細區帶1中主表相應的所有子表記錄。
　　? 明細區帶1的頁尾被處理。
　　? 明細區帶2的頁頭被處理。
　　? 處理明細區帶2中主表相應的所有子表記錄。
　　? 明細區帶2的頁尾被處理。
　　? 明細區帶3的頁頭被處理。
　　? 處理明細區帶3中主表相應的所有子表記錄。
　　? 明細區帶3的頁尾被處理。
　　? 以此類推......
　　要為每一個明細區帶增加獨立的頁頭和頁尾，你必須在詳細資訊對話方塊中的“Detail Header/Footer”的檢查框中選中相應的明細區帶。也可通過點擊明細區帶上方的標題列來對明細區帶進行排序。
　　學海無涯
　　Visual FoxPro 9報表設計器增加了如此多的特色來幫你建立更好的報表，以至於你不得不花更多的精力來學習它的新功能，但我認為這些學習是非常值得的。新的資料環境允許你在不同的報表中共用它。對報表的各個部分提供了強有力的保護方式，使用者介面也做了一番改頭換面，讓你得到更舒適的開發體驗。佈局物件與資料分組的增強給你提供了更多的報表操控能力。最後，新推出的多條明細區帶的特色能挖掘出報表設計器的更多功能。所有的這些改進可讓你創建出非常複雜、功能非常強大的報表。

三思同志發表于2005-04-23 7:57 AM IP: 218.15.22.*
介紹 CursorAdapter 類
vfp8最激動人心的變化是 CursorAdapter 類，它為不同的資料來源提供通用的資料介面。
下面介紹怎樣用 CursorAdapter 改變在 VFP 8 中連接資料的方式,包括，native tables, ODBC, OLE DB, XML. 。
CursorAdapter 類是 VFP 8 開發組的最給人印象深刻的成就之一。它將會改變許多開發者連接各種不同的資料來源的方式。開發小組在 VFP 存取資料的方式方面作了重要改變,將本地和遠端資料連接方式進行了統一。另外，創建 CursorAdapter 類對那些已經熟練使用視圖和SPT人來說並不費力。對使用ADO RecordSets 或XML可擴展標示語言檔的人也不費力。
CursorAdapter 類的獨特之處在於，它是第一個提供本地游標、ODBC、ADO、XML資料來源連接的基類，在一個類裡面實現了所有連接功能。換句話說，要將ODBC資料來源，ADO RecordSet 或XML可擴展標示語言檔翻譯成一個 VFP 游標，CursorAdapter 類完全可以勝任。
你或許會說 CursorAdapter 是較早版本中本地視圖和遠端視圖技術的替代 (注意: VFP 8中仍然保留這些功能). 但是在一些情形中，它也代替了SPT, 以及減少了使用ADO和XML時的代碼量，可以直接使用ADO和XML。
CursorAdapter 的最大好處是，需要在同一個程式內連接到多個資料來源的時候，它為你提供方便。舉例說，如果你的程式大部分數據來自 SQL server，但是同時需要與XML可擴展標示語言連接,CursorAdapter 可以整合這兩種情況，使程式取回的資料作為VFP的游標。
另外的一個例子是資料現在被儲存在 VFP 表中 , 但是計畫要移到一個資料庫伺服器 , 比如 SQL server或Oracle。你需要先建立一組 VFP CursorAdapter 類，必要的時候以 SQL server以外的資料庫代替這些類。
但是,就象我們能跑之前必須學會走一樣,先概覽一下 CursorAdapter 類和它的特性。然後，使用 CursorAdapter 類來設計資料類是比較容易的。
建立第一個 CursorAdapter 類，象其他類一樣，學習怎樣使用它的最好辦法是瞭解建立過程。第一次建立這些類的時候複雜程度低一些,我們開始用 CursorAdapter 類存取 VFP 本地的資料。這很象使用本地視圖取回 VFP 本地表的資料。稍後在這一篇文章中，我們將會使用另一個 CursorAdapter 類連接到 SQL server資料庫，ODBC和XML。
首先，你有二個方法建立 CursorAdapter 。你能使用資料環境建立，也可以手動通過程式或類設計器來創建一個經過一個CursorAdapter類。這一個例子將會使用資料環境建立；較遲的例子將會手動建立.
如果你不熟悉 VFP 8 變化後的資料環境, 你可能認為在設計環境下創建的 CursorAdapter 只能在表單中使用,不能用於類。然而， VFP 8 中已經改善了設計環境，因此不需要在表單中就可以創建。
用creat class命令創建一個新的資料環境類。
確定從下拉清單中選擇based on資料環境類(dataenvironment) 。類名為Tests,所屬類庫名為tests.vcx.
創建的類在類設計器中出現後，按右鍵Data Environment ，選擇builder,起動資料環境建立嚮導。
在資料來源類型項下，注意可選的選項。因為第一個例子將會連接到本地的 VFP 表,選擇native。選擇完以後, 使用‘省略號’按鈕選擇 Northwind 資料庫（我這裡是gzdata資料庫）。 (默認位置是 c:\ program files\microsoft visual foxpro 8\ sample\northwind\ northwind.dbc)
下一步,點cursors 頁, 它初始值是空的。在清單方塊中,選擇new按鈕用 CursorAdapter 設計器創建一個新的 CursorAdapter 類。
首先，你應該看看Properties頁，這裡提供選項來選擇類的名字和由類產生的游標的別名。
確定提供一個不同於表名字的別名，避免產生混亂。在這裡,使用 caCustomer 做類名， cCustomer 作為別名。如果想讓這個類用和資料環境一樣的資料來源，應該選擇 "Use DataEnvironment data source" 。注意你可以為 CursorAdapter 設置不同的資料來源, 允許你在不同的類之間整合資料來源.( 例如一個類使用ODBC資料來源，另一個類使用XML資料來源)
要定義CursorAdapter 如何返回來自資料來源的資料,使用設計器中的Data Access 頁。按build按鈕啟動一個對話方塊，可以選擇游標包含的欄位。
在這個例子中,選擇Customers表, 然後選擇Customers.*。點擊向右的箭頭移動選擇項, 然後點ok。
這為你建立下列SQL語句:
select CUSTOMERS.* from CUSTOMERS
如果你想添加篩檢程式,連接, 或其他條件到查詢,你可以在清單方塊中直接鍵入。如果你想建立帶參數的查詢,有一些選項,在本文後面介紹。現在, 讓我們添加WHERE子句:
select CUSTOMERS.* from CUSTOMERS where
companyname like 'C%'
這裡可以看出源表和游標的不同，因為只有少數記錄符合WHERE子句。
在第二個編輯方塊(schema)中已經為為你創建了欄位清單。通常在繼續以前花幾分鐘看看欄位順序是否符合你的習慣是有好處的
在這一頁的下半部分有資料包設置對話方塊（data fetching），用來設置怎樣處理遠端資料包，當用vfp作為資料來源的時候，這裡的設置不發揮作用。（如上圖）這裡我們保留默認設置，稍後再講述具體細節。在本頁的底部附近是緩衝模式設定, 允許你設置任何被關聯的表單的緩衝模式。有兩個選項：開放式行緩衝和開放式表緩衝。
通常，你使用開放的表緩衝模式，除非你有特殊要求使用行緩衝模式。在這個例子中設置為開放式的表緩衝。最後，“break on error”控制CursorAdapter類怎樣來處理錯誤。預設設置是類（class）自行捕獲錯誤，並且允許你用aerror()函數捕獲這些錯誤。選定這個設置，CursorAdapter類內部不管發生什麼錯誤，vfp都會出現錯誤資訊。也就是說，你需要使用ON ERROR命令或者‘類’的ERROR事件來排除不需要報錯的情況。通常情況下不選這項設置，以便程式能處理任何發生的例外情況。
最後一頁 (auto update) 配置如何更新源表。在通常情況下，選擇“自動更新（auto-update)”和“更新所有欄位(update all fields)”。
這將使cursoradaper類對游標（cursor）中資料的任何改變自動建立適當的更新、插入、刪除機制。然而，你必須選擇游標中的主關鍵字段，以便這些機制（更新、刪除、插入）唯一的識別源表中的記錄。在本例中，CustomerID是關鍵字段。因此，需要在其前面大上‘對號’。其他的設置暫時保留預設值。具體設置辦法在本文後面講述。設置完cursoradaper後，點擊“ok”按鈕，回到資料環境設置。此時，你應該在左邊清單方塊中能看到caCustomer類, 在右邊看到細節。如果你想更改這個類，你可以隨時用資料環境‘builder’更改，選擇需要更改的CursorAdapter 類，然後點擊builder按鈕。
存取 VFP 資料
此時，你可以測試資料環境，看看是否能取回在 CursorAdapter 的指令中篩選的資料。使用命令窗戶,例示 DE 類而且喚起 OpenTables 方法:
lo = NewObject("deTest","Tests.vcx")
? lo.OpenTables()
BROWSE
一個特殊情況是，CursorAdapter的游標連接到其它物件，如果你毀壞了指向CursorAdapter類的物件，會丟失游標和其中的記錄。這就是說，你必須確保CursorAdapter物件參數在你打算存取的關聯游標的範圍內
編輯 VFP 資料
現在, 讓我們看看是否能夠更新游標，並且把更新準確地發送到源表。在命令窗口測試以下命令:
REPLACE contactname WITH 'My Name Here'
?TABLEUPDATE()
SELECT customers
BROWSE
流覽customers別名,你會發現修改過的記錄已經更新到源表中。如果你在發送replace命令之前沒有移動記錄指標,客戶ID中 'CACTU' 所在的記錄被修改。不管你修改哪條記錄, 這證明 CursorAdapter 是能夠被更新，而且更新能夠準確地被發送到源表。
讓我們打開你剛剛測試的資料環境類，這不只是一個練習—它是一個很棒的方法學習當你決定在資料環境以外建立自己的類的時候，該如何正確地配置一個 CursorAdapter 類。
雖然資料環境有一些屬性改變和一個方法, 我們實際上對那些改變不感興趣。看一下下拉式清單方塊中的屬性清單，選擇 caCustomer 類，看看建立 CursorAdapter 類的時候需要進行的設置。表 1 概述被builder和每個 PEM 所做改變。
所有的屬性包含在 "see Init" ,通過INIT方法中的代碼來設置這些屬性。那一段代碼顯示在list 1中。
在builder設置完以後，看看一些屬性是怎樣設置的，這是最好的學習方法。你可以在這裡或者通過builder改變設置值。然而，如果在這裡改變設置值，你需要冒破壞一些功能的風險，因為你在這裡改變的屬性有可能在builder裡不會發生改變。
不管怎樣,你能在 Init() 代碼中看到 SelectCmd 屬性是如何敘述的, 同樣在 KeyFieldList ， UpdatableFieldList 和 UpdateNameList中也可以看到。特別注意 UpdateNameList 屬性—這個屬性列出游標的每一個欄位以及源表中對應的欄位(帶表名稱)。
當從頭創建你自己的 CursorAdapter 類的時候，你可能想在這個列表中省略表名字。然而，如果不使用精確的格式，你的更新將會失敗, 但是沒有錯誤提示。在後面講不通過builder建立一個類的時候我將再說這一點。
前面我說過 CursorAdapter使用本地的資料來源的時候 , 本質上是一個替代了本地視圖。如果你曾經用過本地視圖，你可以發現類似的地方: 生成一個SQL select語句，定義哪些欄位將被更新，設置關鍵字段，剩下的事情讓 VFP 來做。一旦游標中取回資料，可以使用 TableUpdate() 發送更新到源表，而且 VFP 自動地建立必要的update,insert,delete語句。
還是以上面的例子, 取消cCustomer 別名中contact欄位被替換的資料。通過TableUpdate ， VFP 自動地產生 (並提交)下列更新命令嘗試更新:
UPDATE customers ;
SET CONTACTNAME=ccustomer.contactname ;
WHERE ;
CUSTOMERID=OLDVAL('customerid','ccustomer');
AND ;
CONTACTNAME=OLDVAL('contactname','ccustomer')
VFP 能夠根據CursorAdapter的KeyFieldList屬性和部分UpdateNameList屬性中的值產生where子句。它通過子句記錄那些已經被改變或添加的記錄，保證你不會更新那些別人已經更新過的記錄。注意，這是因為我們在它的WhereType 屬性中保留預設值 "key fields and any modified fields."
錯誤處理
明顯的，當用 CursorAdapter 更新資料時候 ,並不能完全如你所願。你知道,多種原因可以導致TableUpdate 更新失敗, 例如更新衝突或記錄加鎖失敗。你必須對 CursorAdapter 類做特別處理來發現這些問題嗎? 答案是,"視情況而定 ."
我們來建立一個簡單的更新問題：給CursorAdapter嘗試更新的一條記錄加鎖。如果類設計器仍然是開著的,關掉它。然後, 像前面做過的一樣，用 NewObject 函數啟動detest類,而且啟動 OpenTables 方法。流覽游標以便你能看到資料,但是先不要改變任何東西。
現在打開 VFP 8 的第二個實例，這樣就能夠加鎖記錄。在命令視窗中運行下列語句加鎖你將嘗試更新的記錄:
OPEN DATABASE (HOME(2)+"Northwind\northwind.dbc")
USE customers
LOCATE FOR customerid = 'CACTU'
?RLOCK()
你應該能返回.T.，表明記錄確實被 VFP 的這一個實例加鎖。
回到 VFP 的第一個實例，在命令視窗中運行下面的代碼:
REPLACE contactname WITH 'updated'
SET REPROCESS TO 2 SECONDS
?TABLEUPDATE()
在這種情況, TableUpdate 返回.F.,表現記錄鎖阻止更新成功。如果你用 AERROR() 捕獲錯誤而且顯示錯誤結果, 你會看到錯誤資訊 "記錄沒加鎖"。這意味著如果你對設置緩衝的表直接操作而不是一個游標，你能用同樣的辦法處理錯誤。
不幸地，不是所有的預期錯誤都會這樣表現出來。需要特別注意的是更新衝突,比如一個使用者企圖覆蓋其他人所作的修改。想看看這種行為的結果,在當前的 VFP 實例中(CursorAdapter 正在使用)運行下面的代碼：
?TABLEREVERT(.T.)
REPLACE contactname WITH 'client 1'
現在轉變在到第二個例證並且發行下列指令:
CLOSE DATABASES all
OPEN DATABASE (HOME(2) + "Northwind\northwind.dbc")
USE customers
LOCATE FOR customerid = 'CACTU'
REPLACE contactname WITH 'client 2'
BROWSE
返回第一個實例, 嘗試用 TableUpdate 發送更新:
?TABLEUPDATE()
在這種情況， TableUpdate 錯誤地返回.T.,使你相信更新成功了! 然而, 事實上並沒有成功，而且這可以被CursorAdapter的CursorRefresh() 方法證明, 用下列代碼:
?TABLEREVERT(.T.)
?lo.caCustomer.CursorRefresh()
CursorRefresh 方法告訴 CursorAdapter 再運行 SelectCmd 裡的語句，並且取回來自源表的最新資料。對ContactName 欄位的測試說明 CursorAdapter 根本沒更新欄位值!
解決這一個問題的最簡單的方法要利用 CursorAdapter 的 AfterUpdate 方法。這一個方法在 TableUpdate 發送保存每條記錄的請求後被執行。注意這個‘方法’只對目前記錄有效。如果記錄是新的，或者記錄已經被刪除,會啟動AfterInsert 或 AfterDelete 方法。
AfterUpdate 方法捕獲一些參數, 包括最初的欄位狀態,是否被強制更改, 和作為更新的命令。最後一個參數 , lResult,是我們這部分主題最重要的,因為它告訴我們更新過程是否成功。
使用的另一個重要角色解決更新衝突問題的是系統變數 _tally, 它告訴我們最後一次操作影響了多少記錄。因此，如果 lResult 放回成功的, 但是 _tally是零,那麼說明沒有記錄被更新，那麼你可以判定這種情況是一個更新衝突。
簡單說，解決這一個問題的簡單方法是把下列代碼加入 CursorAdapter 類的 AfterUpdate 方法:
LPARAMETERS cFldState, lForce, nUpdateType, cUpdateInsertCmd, cDeleteCmd, lResult
IF lResult AND _TALLY = 0 THEN
ERROR 1585 && update conflict
ENDIF
有趣的是你在螢幕上看不到錯誤資訊;錯誤資訊被 TableUpdate “限制住了”,這就迫使你使用 AError 函數分析更新失敗的原因。出現這樣的現象是因為 BreakOnError 屬性保留了預設值 ,也就是錯誤不引起程式中斷。如果你把這個屬性設為“ture",那麼"更新衝突" 錯誤資訊就會出現,如果作了定義,你的ON ERROR控制碼會被運行。
這一個更新衝突問題是為 CursorAdapter設計的，因為 VFP 8 沒有自動發現這個問題方法。因此，當不用本地資料來源的時候，這個代碼( 或相似的代碼)會用在你的CursorAdapter類設計中。
CursorAdapter with ODBC
現在你已經有了一定的基礎, 讓我們繼續看看當後臺資料庫用 SQL server的時候怎樣進行設置。我們將從使用 VFP 通過ODBC連接 SQL server上的 Northwind 資料庫開始。同樣, 讓我們從頭建立 CursorAdapter 以便可以看見類需要設置的各個方面。
首先,用下列指令在類設計器中建立一個新類:
CREATE CLASS caODBC OF tests as CursorAdapter
這裡需要設置的最重要的屬性是 DataSourceType 屬性。因為我們想通過ODBC連接 SQL server,將這一屬性設置為ODBC。當使用這種連接方式的時候 , DataSource 屬性需要有一個確切的連接控制碼,可以用 SQLConnect 或 SQLConnectString 函數建立。在任一情況，這些功能應該在 CursorAdapter 類的 Init 方法中使用下列代碼:
LOCAL lcConnStr, lnConn
** string assumes trusted connection (integrated security)
lcConnStr = "Driver=SQL Server;Server=(local);DATABASE=Northwind"
lnConn = SQLSTRINGCONNECT(lcConnStr)
IF lnConn > 0 THEN
THIS.DATASOURCE = lnConn
ELSE
** unable to connect
ENDIF
連接字串假定你使用可信賴的關聯到 SQL server；如果你使用安全的連接到 SQL server,把 "uid"= 和 "pwd"= 串加入連接控制碼指定使用者名稱和密碼。任何一種情況下，返回的是連接柄 , 或錯誤發生時的否定值。這一個連接柄被指定為 DataSource 屬性以便 CursorAdapter 知道該到哪裡聲明。
下一個步驟是建立 SelectCmd 以便 CursorAdapter 知道需要從資料來源取回什麼資料。還有一個最好的放置地方是 Init 方法, 因為屬性工作表限制字串的長度。把下列代碼加入 Init 方法中,設定 DataSource 屬性代碼之後, 取回公司名字中以 "C" 開頭的客戶清單:
This.SelectCmd = "SELECT " + ;
"CustomerID, CompanyName, ContactName, " + ;
"Address, City, Region, Country " + ;
"FROM Customers WHERE CompanyName LIKE 'C%'"
然後，你應該告訴 CursorAdapter 通過調用CursorFill 方法填充被關聯的游標。你可以省略這一個調用，並且手動從類之外調用, 或放在 Init 方法中，以便它能夠自動填充游標。在Init 方法中設置 SelectCmd 之後，可以用 This.CursorFill()調用。
最後，你應該在類的Destroy方法中加上一些代碼，以便在物件從記憶體中釋放以後減少到伺服器的連接。沒有這些代碼的話，每一個新的實例將會產生一個到伺服器的新連接, 並且不會釋放它:
IF this.DataSource > 0 THEN
SQLDISCONNECT(this.DataSource)
ENDIF
藉由這些變化，你擁有一個實用的 CursorAdapter 類，它能夠生成一個唯讀的游標。在允許更新之前，測試一下類，確保可用，並能準確取回資料。用下列代碼測試:
lo = NEWOBJECT("caODBC","tests")
BROWSE
注意，你不需要像資料環境那樣調用 OpenTables 方法。這是因為你把 CursorFill 方法直接加入了 Init 方法,使類在產生實體之後自動地填充游標。
Updating ODBC Data（更新ODBC資料）
為了使這個類可更新,你必須正確地給Tables, KeyFieldList ， UpdatableFieldList 和 UpdateNameList 屬性賦值。並且設定 AllowInsert ， AllowUpdate 和 AllowDelete 屬性為true, 確定自動更新特徵被啟動。再一次強調，最好的辦法是在Init 方法中用代碼設置這些屬性。 Init 方法一些代碼在list2 中。
在關閉類設計器之前,你可能想將 BufferModeOverride 屬性換成 "5",“開放的表緩衝”以便移動記錄指標的時候 , 自動更新不發生。
測試 CursorAdapter 的更新能力,把它作為一個實例,流覽游標,作一個更改, 然後提交 TableUpdate。確定所作的更改被回應,調用 CursorAdapter 的 CursorRefresh 方法，再流覽一次。
處理ODBC錯誤（Handling ODBC Errors）
象使用本地 CursorAdapter一樣，大多數的錯誤處理是按照 "傳統的"方法—測試 TableUpdate 返回的值，如果失敗，使用 AError 來判斷原因。不幸的是，更新衝突的檢測也