VFP 愛用者社區

[garfield]

採用Word更好地輸出VFP報表

一、概述
無論是西文還是中文Visual FoxPro 3.0(以下簡稱VFP),其報表輸出都有一個嚴重缺陷,就是當資料庫的某一欄位具有溢出延伸屬性(就是當欄位的內容長於指定的輸出寬度時,自動進行換行的屬性)時,在換行處容易出現半個漢字,使輸出的報表內容出現"亂碼"。
另外,VFP與其他資料庫管理系統一樣,報表輸出模組也存在以下嚴重不足:
?報表輸出的寬度和長度不能由用戶改變,無法實現頁面的任意變化;
?由於資料庫中資料的長度不一,必然會導致輸出報表中各欄位元的寬度不適,系統無法根據資料庫的實際內容對輸出的各欄位的寬度進行隨機調整,報表的整體效果差;
?報表一旦輸出,用戶不能對報表格式進行編輯;
?不宜實現對某些特定欄位元的單獨輸出或組合輸出。
?此,筆者利用VFP的OLE自動化技術,通過Microsoft Word 6.0 提供的Word.Basic物件,將資料庫的記錄輸出成Word文檔。


二、在VFP中自動生成Word文檔的基本原理和方法
1.用Word.Basic生成資料Word文檔的基本原理我們知道,Windows的OLE技術是在兩個具有OLE能力的應用程式之間建立了一種資訊共用機制。能夠提供OLE服務的應用程式叫伺服器,請求OLE服務的應用程式叫客戶機。由於VFP不能?其他具有OLE能力的應用程式提供可用的物件,不能作?OLE伺服器。?了在VFP中使用OLE自動化技術來解決報表輸出存在的問題,必須在Windows環境下選擇一個能作?OLE伺服器的應用程式。Microsoft Word 6.0不僅能夠向VFP提供OLE物件類型Word.Basic,而且能夠生成複雜的表格,具有較強的編輯功能,是生成資料庫報表的理想工具。
VFP和Microsoft Word 6.0之間的資訊共用機制是通過在VFP中創建由MS Word 6.0提供可用OLE物件Word.Basic實現的。因此,要使用OLE自動化技術,必須首先使用VFP的OLE物件創建函數CREATEOBJECT() 創建MS Word 6.0的OLE物件,即: oleWord=CREATEOBJECT("Word.Basic")

2.用Word.Basic生成資料Word文檔的基本方法在用CREATEOBJECT()函數創建OLE物件之後,我們就可以利用面向物件的程式設計方法,調用Word.Basic的具體命令,將資料庫的具體內容生成到Word文檔。
用Word.Basic生成資料庫的Word文檔,常用的方法有兩種:第一種方法是用Word.Basic的一系列命令生成資料庫的整個Word文檔;另一種方法是利用Word.Basic打開預製的基本文檔框架,再用Word.Basic的編輯命令來生成資料庫的Word文檔。這兩種方法各有優點,有時要將它們結合起來使用。第一種方法主要用於對資料庫報表沒有任何要求的全自動生成,由於採用全自動生成技術,儘管也能實現輸出頁面的任意變化和報表中各欄位元寬度的自動調整等功能,但不能直接根據具體的資料庫輸出具有相應特色的標題。第二種方法在標題及輸出的格式上具有更大的靈活性。通常情況下,先用第一種方法輸出某些資料庫的一般文檔,再利用W ord將其修改成特殊報表輸出的基本文檔框架,供第二種方法使用。
下面結合應用介紹第二種方法的具體實現和主要演算法。
(1) 定制基本的Word文檔框架
在基本的文檔框架中可以包含Word文檔的任何內容,比如在標題的兩邊各插入一些圖片等等。但是?了實現對資料庫欄位的定位輸出,該文檔框架必須包含一個表,該表的表頭可以設計成任何複雜的形式, 如下面的文檔框架:
表1 不良地質:瓦斯資訊
?了能使Word.Basic將資料庫中要輸出的欄位正確地輸出到基本框架中,在基本框架中需要增加位置標記。我們可以用在Word基本文檔框架中添加書簽的方法來指導Word.Basic在基本框架中的正確定位,這些書簽分別添加在基本文檔框架中僅有的一行表體的各欄位處。由於Word.Basic在進行後續記錄的輸出時是按第一表體行中輸出欄位的順序進行輸出的,這樣就可以保證後續各行輸出的正確性了。?了方便起見可將書簽名定義成與欄位名同名。
在實際的資料輸出過程中,由於我們允許輸出頁面任意變化,並允許對輸出的各欄位寬度進行優化調整,這樣就很難保證各頁的行數相同。?了使輸出頁面的標題能夠正確地列印在每一輸出頁面的首部,將該表的表頭設置成"標題允許"(先選定要設置成標題允許的一行或多行,再用"表格"功能表中的"標題"命令進行設置)。?了使輸出頁面的高度一致,可用"表格"功能表中"單格高度和寬度"對話方塊選擇"允許跨頁斷行"選項,當然也可用Word.Basic的TableR owHeight命令對"允許跨頁斷行"進行設置。
另外,在定義基本文檔框架時,不必考慮總的表格寬度應放大至何種尺寸以及各欄位元之間的比例關係,僅僅需要將各欄位元的寬度定義成用戶所想要的最小寬度即可,其具體目的在下面的資料庫輸出的主要演算法中會作解釋。
(2) 生成Word文檔的主要演算法
在用Word.Basic將資料庫的記錄輸出成Word文檔時,需要編程調整輸出報表的頁面和各欄位元的寬度,下面介紹編程中使用的調整策略和主要演算法。
由於資料庫中資料的隨機性,特別是字元型和備註型資料長度的不定性,表中各欄位元寬度的比例關係很難預先確定,需要在整個報表生成之後進行調整。調整的基本策略是先將各記錄中要輸出的欄位的具體內容輸出到表格中,並在輸出過程中記下每一欄位在各行中的最大寬度(字元數),用它作?調整各欄位元寬度比例關係的依據。如果完全按照此依據進行調整,表體部分一定能編排得比較勻稱,但表頭部分的編排有可能發生變化(如上面的"採取措施"表頭,由於資料庫中該欄位對應的內容可能很少,在進行欄位寬度調整時,有可能使表頭文字變成 多行排列),報表的整體效果仍然較差。所以有必要預先知道各欄位的最小寬度,以防止在調整各欄位寬度時表頭多行排列。?此,約定原始文檔框架中各欄位的寬度即?最小寬度,且欄位元寬度調整僅對字元型和備註型欄位進行。
基於上述調整策略,我們介紹相應的演算法。?了便於介紹,我們假設通過頁面和頁邊距的設置得出需要將表格的寬度調寬至nWidth英寸,並定義如下資料類型:
Local aFieldName[nOutColumn,6]
其中:
nOutColumn?要輸出欄位個數,也是表格的最大列數;
aFiledName[nOutColumn,1]?書簽名;
aFiledName[nOutColumn,2]?該書簽所在欄位元對應欄位的欄位類型;
aFiledName[nOutColumn,3]?該書簽所在欄位元對應欄位的欄位寬度;
aFiledName[nOutColumn,4]?該書簽所在欄位元對應欄位的小數位數;
aFiledName[nOutColumn,5]?該書簽所在欄位元最小TWIP數;(1英寸 =1440 TWIP)
aFiledName[nOutColumn,6]?該書簽所在欄位元在各行中的最大字元個數。
這樣在計算出各欄位元的最大字元個數和各欄位元的最小TWIP數後,就可以計算出需要調整欄位元的總字元數和可供使用的寬度總TWIP數。
假設可供使用的寬度總數?j(TWIP),需要調整欄位元的總字元數?(字元),則某要調整欄位的寬度應?: j/k*aFieldName[i,6] 式中i?該調整欄在表中的列號。 但是該寬度有可能小於該欄位的最小寬度,這樣該欄位就不應調 整,需要將該欄的類型a FieldName[i,2]修改?"U"(非C且非M即可), 而將該欄位列入非調整的行列,同時也要相應修改j和k,再從第一列逐 一檢查,查看是否仍有這樣的列,如果有需要再重復上述步驟。直到不 再有上述類型的列?止。最後再用TableColumnWidth命令對剩下需要 調整的欄位元進行調整即可。
三、生成Word文檔的程式實現 根據上面的調整策略和演算法,我們給出用VFP編制的從VFP資料庫 輸出Word文檔的通用程式。此程式不依賴具體的資料庫結構,也不依賴於具體的報表輸出格式,可用於任何VFP資料庫的Word文檔輸出。

Local nOldrecno,oleWord,i,j,k,nOutColumn,cString
Local aFieldList[1]
Use b1
If EOF() &&無輸出結果則直接返回
Return
Endif
=AFIELDS(aFieldList) &&將當前資料庫的欄位資訊存入陣列中
nOldrecno=RECNO()
*下面首先生成Word.Basic物件,再用Word.Basic的打開文檔命令
打開基本文檔框架
oleWord=CREATEOBJECT("Word.Basic")
oleWord.FileOpen("c:\mf\data\word.doc")
*下面是從Word文檔的首部向下移動插入點指標,直到移動到表格
中?止。
*這樣做的原因是,基本文檔框架中在表格的上面可以有附加內容。
Do WHILE oleWord.SelInfo(12)#-1
oleWord.LineDown
Enddo
*下面是檢查書簽數與表格的最大列數是否相同
nOutColumn=oleWord.CountBookMarks()
If nOutColumn#oleWord.SelInfo(1
oleWord.AppClose("Microsoft Word")
=MESSAGEBOX("書簽與表格的列數不符",16,"提示資訊")
Return
Endif
*下面是定義列資訊陣列,並且填寫該陣列的前4列內容
Local aFieldName[nOutColumn,6]
*-- aFieldName列的意義:1書簽名,2欄位類型,3欄位寬度,4,小
數位數,
*-- 5原始表中各列寬度的最小TWIP數
*-- 6在具體的填寫過程中該書簽所在列的所有行中的字元的最
大個數
For i=1 to nOutColumn
aFieldName[i,1]=oleWord.BookMarkName(i)
For j = 1 TO FCOUNT()+1
If j=FCOUNT()+1
oleWord.AppClose("Microsoft Word")
=MESSAGEBOX("標簽名:"+aFieldName[i,1];
+"不是資料庫的欄位名",16,"
++提示資訊")
Return
Endif
If UPPER(aFieldName[i,1])==UPPER(ALLT(aFieldLis
T[j,1]))
aFieldName[i,2]=aFieldList[j,2] &&類型
aFieldName[i,3]=aFieldList[j,3] &&寬度
aFieldName[i,4]=aFieldList[j,4] &&小數位
Exit
Endif
Endfor
Endfor
*將插入點移到表格最底行的最右端
Do WHILE oleWord.SelInfo(12)=-1
oleWord.LineDown
Enddo &&按下箭頭向下移出表格
Do WHILE oleWord.SelInfo(12)#-1
oleWord.CharLeft
Enddo &&按左箭頭移到表格最後一列的末尾處
If oleWord.SelInfo(16)#oleWord.SelInfo(1+1
oleWord.AppClose("Microsoft Word")
=MESSAGEBOX("未能移到表格最後列的尾部",16,"提示資訊")
Return
Endif
*--下面計算原始表格中各列的寬度,即列的最小寬度(以TWIP?
單位)
j=oleWord.SelInfo(5)
For i=nOutColumn TO 1 STEP -1
oleWord.PrevCell
k=oleWord.SelInfo(5)
aFieldName[i,5]=j-k
aFieldName[i,6]=0
j=k
Endfor
If oleWord.SelInfo(16)#1
oleWord.AppClose("Microsoft Word")
=MESSAGEBOX("最後不是移到表格列的首列",16,"提示資訊")
Return
Endif
*各列的最小寬度計算完畢
*下面表格填寫具體內容,
*並且在填寫具體內容時將各列的最大字元數記錄到aFieldName[
i,6]中
Locate
oleWord.EditGoto((aFieldName[1,1]))
oleWord.PrevCell()
Do WHILE !EOF()
For i=1 TO nOutColumn
Do CASE
Case aFieldName[i,2]=="N"
cString=STR(&aFieldName[i,1],aFieldName[i,3],
aFieldName[i,4])
Case aFieldName[i,2]=="I"
cString=ALLT(STR(&aFieldName[i,1],10,0]))
Case aFieldName[i,2]=="C" OR aFieldName[i,2]=="M"
cString=TRIM(&aFieldName[i,1])
If LEN(cString)>aFieldName[i,6]
aFieldName[i,6]=LEN(cString)
Endif
Otherwise
cString="暫不處理類型"
Endcase
oleWord.NextCell()
oleWord.Insert((cString)) &&字元型變數必須外加()
Endfor
Skip
Enddo
*--表格內容填寫完畢
*下面根據填寫的具體內容重新調整表格某些列的寬度
*(在下面的計算過程中單位?TWIP)
j=nWidth*1440 &&nWidth?版心寬度是一總體變數,單位?英寸
&&1英寸=1440TWIP
k=0
For i=1 TO nOutColumn
If aFieldName[i,2]#"C" AND aFieldName[i,2]#"M"
j=j-aFieldName[i,5] &&剩餘可用寬度
Else
k=k+aFieldName[i,6] &&需要調整寬度的最大
字元數之和
Endif
Endfor &&減去禁止調列的寬度
For i=1 TO nOutColumn
If aFieldName[i,2]="C" OR aFieldName[i,2]="M"
*如果要調整的寬度小於或等於最小寬度,則將其列入非調整之列
If j/k*aFieldName[i,6] <= aFieldName[i,5]
aFieldName[i,2]="U"
j=j-aFieldName[i,5]
k=k-aFieldName[i,6]
i=1 &&從頭迴圈
Loop
Endif
Endif
Endfor
For i=1 TO nOutColumn
If aFieldName[i,2]="C" OR aFieldName[i,2]="M"
oleWord.EditGoto((aFieldName[i,1]))
oleWord.TableSelectColumn
oleWord.TableColumnWidth(j/k*aFieldName[i,6]/20,2,
0,0,0,0)
*1磅=20TWIP,TableColumn()的缺省單位?磅
Endif
Endfor
*寬度調整完畢
oleWord.FileSaveAs("c:\mf\data\word2.doc")
*oleWord.FilePrint(0,0,0,"","","",0,1,"",0,0,0,"")
oleWord.AppClose("Microsoft Word")
Wait "卸載Word BAsic" WINDOW NOWAIT
Wait CLEAR
Return
在將資料庫內容生成Word文檔的最終結果一種方法是以文檔的形
式保存下來,另一方法是不僅要把文檔保存下來,還要進行列印,此時
需要注意的一點是:不能採用幕後列印,將上述程式的中*olwWord.FilePrint(0,0,0,"","","",0,1,"",0,0,0,"")前面的星號"*"去掉即可。

[Ruey]

此篇文章很不錯

若說輸出到Word的話,不建議
還是輸出Excel,擅用Excel的功能
對於數字處里Excel比較行

[Ruey]

1.精英站有系統分類整理FAQ範例
如果本站也能夠效法,會非常好的

2.大部分都是我的文章轉貼
有時要找資料時,必須用搜尋的
實在不是很系統化

3.發問的人不多,
大部分人都在紅狐網站
現在國內還有類似VFP精英站的模式
將轉貼文章跟發問的文章放在一起
找資料還真要一個個找

我只是提議而已,莫見怪

[garfield]

整理本站的資料須要費較多的時間, 也要懂PHP網頁, 這兩點都是我比較缺乏的, 我想如果有點時間, 先寫2個php程式, 一.將各個精華的文章填入文章所屬的大類及小類(開放給版主分類), 二.再寫個檢索系統.
等我將手邊的案子告一個段落我就會著手進行了.

[Ruey]

辛苦你了.
感謝你的付出^_^

[elleryq]

壇主可以上 phpbb 網站上看看
是否有適合的 plugin 程式
這樣也許會比較節省時間~~

[garfield]

我都是到 http://phpbb-tw.net/phpbb/ 去找須可用的外掛程式, 只是目前尚未找到合適的, 只要有類似的功能,就會連顯示簡體字的功能一起修正.