辦公之星控件是深圳智島軟體公司推出來的一款基於圖文混排的文檔處理控件(類似Word的控件),辦公之星控製完全封裝了辦公之星的文字、圖形、表格、圖表等功能,提供了幾百個程式介面;在ERP、CRM、HR、OA等系統裡,開發難度非常大的文件處理、統計、報表等輸出功能都可由辦公之星控制輕鬆實現,其所見即所得的效果跟現實裡的完全一樣。辦公室之星控制適用於Windows環境的各種開發工具(如VB,VC,Delphi, C+Builder, PB, java等), 並且針對Web開發環境做了大量的最佳化。
以下簡單介紹在Delphi裡使用辦公室之星控制的具體方法:
一、註冊控件
如用戶下載安裝了辦公室之星控件演示工程,則在安裝過程中,安裝程序會自動將辦公之星控件註冊到操作系統裡;如用戶單獨下載辦公之星控件,則需要按照以下方法註冊控件:
點擊"開始"→"運行";在執行對話方塊中輸入以下命令:
regsvr32 < 檔名> 註冊一個ActiveX 控件
regsvr32 /u< 檔案名稱> 解除某ActiveX 控制項的註冊
二、 新增組件
如辦公之星控制項已在系統中註冊,則可新增至Delphi組件面板上,具體步驟如下:
(1) 選擇Delphi主選單Component->Import ActiveX Control,系統將Import ActiveX對話框,在該對話框裡已列出了所有已經在系統中被註冊的ActiveX控制項。
(2) Import ActiveX對話方塊的清單列找到OStarOCX2 Active Control module (Version 1.0)項,選取它,然後按一下Install按鈕,系統將彈出Install對話方塊。在該對話方塊中可以設定該元件在資訊存放包的位置。可以設定為已經存在的預設的套件中,也可以新建一個套件來存放該元件資訊。如果儲存在預設套件中的話,將會把預設套件中包含原來的元件資訊替換,Delphi將會卸載原來已經安裝的元件,所以在這裡我們新建一個套件文件,如圖下所示。
(3) 點選OK按鈕後,系統會跳出Pakage-OSTAR.dpk窗口,並在上方彈出一個確認編譯並安裝套件的對話框,如下圖所示。
(4) 點選Yes按鈕,系統將提示元件已安裝成功,並且在元件列中ActiveX標籤增加了OStar元件,這時我們可以拖曳該元件到窗體中進行設計。
注意問題:在Delphi6裡,如第一次編譯包含辦公室之星控制項的程式時會出現以下提示訊息:
[Warning] OSTAR.pas(766): Return value of function 'TOStarOCX2.OnOpenFile' might be undefined
出現這些資訊的原因是因為Delphi在產生與辦公室之星控制項相關程式碼包時,並沒有自動編寫函數回傳值程式碼。因此,如遇到這種情況,則需要人工添加返回值代碼。回傳值碼為"Result:=",在DefaultInterface前面增加即可,例如:
DefaultInterface.OnOpenFile(strFileName);
改為
Result := DefaultInterface.OnOpenFile(strFileName);
三、使用控件
如已成功安裝了辦公之星控件,則可以直接使用辦公之星控件了。如需要使用辦公之星控制項做報表處理,則可依下列方法使用:
(1) 使用辦公室之星文檔設計器設計報表樣式在辦公室之星控制演示工程中包含了辦公室之星文檔編輯器,然後根據要求設定報表。
(2) 由於往報表裡填入資料是根據別名填入的,因此要為資料填入表元設定別名。操作:點中填滿表元按右鍵,在彈出的選單中選擇"設定別名",然後在彈出的對話框中輸入別名。上圖中顯示的淡色文字為表元別名。
(3) 設定好報表後,則可透過辦公室之星控制項讀取報表文件,開啟報表函數為OnOpenFile(const strFileName: WideString)。
(4) 如辦公室之星控制項已開啟報表,則可透過程式填入報表資料,填入資料函數為SetCellString(const strCellVar: WideString; const strText: WideString),參數strCellVar為別名,strText為填入資料。
(5) 以下為用Delphi開發出來的範例截圖,使用者也從辦公室之星控制項介紹頁面下載範例的原始碼。