Newpooh

看過 上一篇 的簡單說明後，現在就進行實作了 範例程式 。 ※TreeView DataWindow名稱過長，文中會使用TVDW(大寫)來代表其意義。 ※DataWindow簡稱DW(大寫) ※DataStore簡稱DS(大寫) (一)先來看看程式主畫面： 這 個畫面的左半邊是展示用的資料，我這邊的展示設定是某家傳直銷的組織圖，因為這樣的組織圖很容易用來表現樹狀結構的特性，如果你不知道傳直銷組織的話，問 一下親朋好友應該會有人解釋得很好(?)吧，傳直銷的組織特性就像是樹狀結構圖，基本上分為上線(通常是推薦人)以及下線(通常是所屬會員或是組織成 員)；上線如同父節點(Parent)，下線如同子項目(Child)，所以如果能理解的話應該不難理解畫面左邊的列表意思。 現在的目的就是要如何把這樣的條列資料展現成樹狀組織圖，以供列表或是操作了。 主畫面的右半上方是TVDW的產生示範功能，右半下方則是TVDW本身了。 [產生] ：用來產生TVDW的樹狀組織圖，資料來源則是依據主畫面左半邊的資料。 [停止] ：由於資料多達300多筆，產生會消耗許多時間，如果想中途停止，只要按這個按鈕就好了。 [刪除] ：當你選擇了某個項目節點後，按下此鈕，會將該項目連同下屬所有子項目一並全數刪除。 [預覽列印] ：列印時的畫面預覽，用來檢視畫面是否超出紙張定義。 [內部資料檢視] ：這算是特殊的功能了，上一篇有提到這個TVDW有個DS在儲存實際樹狀資料屬性，理論上使用者 不需要也不可以 直接檢視或修改該DS內容，這僅是提供程式設計師debug以及理論驗證的用途罷了。 [全部展開] ：這個是以最基本的根項目(Root)為展開的動作，展開時各節點全部展開(註一)。 [全部收合] ：這個是以最基本的根項目(Root)為收合的動作，收合時各節點全部收合(註一)。 [選擇子項全開] ：以選擇的項目下屬項目節點全部展開，展開時各節點全部展開(註一)。 [選擇子項全收] ：以選擇的項目下屬項目節點全部收合，收合時各節點全部收合(註一)。 [細部設定變更] ：在TVDW產生時會依照某些特性設定值作為基本依據，如果需要更改某些特別屬性可以變更下列屬性質，以達所需要效果，其數值單位為PowerBuilder Unit，特別要注意的是屬性設定必須在TVDW"產生"畫面前進行設定，否則無效： 起始X...

開發工具：powerbuilder 6.5 雖然powerbuilder 10.5已經提供了TreeView DataWindow的功能了 畫面也是標準的DataWindow介面，感覺上也很好用?(我還沒用過啦)。可是呢，目前公司提供的工具最高也僅到PB10而已，大多數的程式和工具也都是維持在PB6.5的版本；而且許多朋友也是還在使用PB6.5苦撐...唉！公司預算有限嘛！能用且用囉。 這讓我興起想要建立自己的TreeViewDataWindow物件的想法。雖然說powerbuilder本身就有treeView的物件，但是那不是DataWindow的型態，所以列印的話效果都不好，也很難控制。 難怪powerbuilder敢誇海口DataWindow是MIS開發報表最方便的工具。 由於DataWindow由於名稱過長，因此文中如果有遇到DataWindow如果有遇到字樣的可能會以DW表示。 《一》首先，先來了解一下樹狀結構吧，樹狀結構顧名思義，一定跟樹....有關係 XD 如果把它的葉子全部脫光光........ 這樣只剩下之枝幹與枝節，然後再把它右轉90度，是不是很像下面的圖.... 那麼這就是所謂樹狀結構圖了，具有相同性質的"節點"，每個節點底下還可以再分更多節點，由於看起來像樹一樣，所以就稱為樹狀結構。當然，如果你要表現成TreeView的話，這樣是不行的，因為treeView比較接近條列式，像是下圖： 比較井然有序，比較條列，大部份若要製作成報表，就要使用此種表現方式的報表比較容易看懂。以上的簡單說明主要牽涉到資料存放的方式，如果你對樹狀結構不夠明瞭，那麼當下面設計TreeView的資料結構時候，你就會很難理解。 《二》了解你的開發工具，雖然學PB的很多人都會使用DataWindow，但是對於DataWindow的運作原理卻不是很熟悉。當然這裡不會介紹DataWindow的原理，而是利用其特性去建構成我們要展現的DataWindow。 這 個物件主要是裡用DataWindow的屬性建構，因此主要使用modify這個指令來建構DWO(DataWindow Object)。DataWindow本身可說是一個Paint Container，而這個Container包含了幾個區塊：group、detail、header、fotter、summary...

本篇文章來源 一段影片 看了之後覺得頗為實用的，不過內容太快，又是英文發音，如果英文不好的可以看我下面的作法： (一)點擊[開始]選擇[執行] --> 請輸入 Regedit 按[確定]開啟登錄編輯程式 (二)進入HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers 一般來說ContextMenuHandlers底下只會有個Send To(傳送到...)的機碼 (三)在ContextMenuHandlers上按右鍵選 [新增] -> [機碼] (四)請新增"Copy To"以及"Move To"兩個機碼 (五)每個機碼內都會有個"(預設值)"的字串值 (六)請在Copy To裡面的字串值點及兩下編輯，輸入 {C2FBB630-2971-11D1-A18C-00C04FD75D13}，然後按[確定] (七)請在Move To裡面的字串值點及兩下編輯，輸入 {C2FBB631-2971-11D1-A18C-00C04FD75D13}，然後按[確定] (八)關閉登錄編輯程式 (九)此後你可以在檔案總管中，將檔案 複製/搬移 到你指定的資料夾去了，不用老是在"複製"->"貼上"，搞得很麻煩囉。 (十)你可以發現到，複製/搬移的 對話框Windows居然都已經有現成的可以用，表示其實Windows"暗槓"了不少使用者可以用的東西呢。

主辦單位： 經理人月刊 時間：2008/3/13 以下是李紹唐先先生與何飛鵬先生講座混合雜記： ◎注重3Q ：EQ、AQ、IQ IQ(Intelligence Quotient)是指一個人在學習、理解、判斷方面的能力。 EQ(Emotion Quotient)是指一個人了解，並主導自己情緒，以及與他人溝通、協調、互動的能力。 AQ(Adversity Quotient) 是指一個人面對挫折、逆境時的處理能力。 ◎追逐夢想，永不放棄 俗話說：人有夢想而偉大，但實際上是：人因實現夢想而偉大。 有夢想人人都會有，但是有正確的夢想(方向正確)，只剩下20%的人，再因有正確夢想而努力實踐者 只剩4%。(80/20法則) 當你沒有夢想(指的是人生終極目標)時，你很容易就在某種階層就自我滿足。而忘了往更高的地方去。 這讓我想到一個例子：登山者的故事 一群登山客要挑戰很高的山，一同從山腳下出發，當大夥都登到一定高度後往 上看時發現山上下著暴風雪，而此處的風景也相當不錯因此決定故在此紮營休 息，然而再往上攀爬風險太大了許多人因此就決定繼續留在這裡，但少數的挑 戰者卻願意繼續往上挑戰，在這些挑戰者經歷了強風雨打、缺氧、受傷等等狀 況，終於登到了山頂，卻赫然發現山頂竟是晴空高照，往外望去卻是一望無際 的景致，由如眾神矗立於雲端觀看世界的感覺。 ◎離開舒適環境，不醉生夢死 許多人在登上高層的職務後，因貪求該職務帶來的權利、舒適、奉承之後，通常都會 醉心於該職位帶來的優渥感。但是卻忘了這樣的優渥感正會抹殺一個人的敏銳度，一 段時間後便無法面對商場產生的變化與洪流。 ◎嘗試業務性質的工作 在許多成功領導人的成功背景上，幾乎都有當過業務，為什麼？ 因為業務性質的工作就是不斷的自我突破，因其所需要接觸的個人與企業型態各個皆不 同，你不可能用同一種公式化(或說僵化)的說服方式，來達成業績，耐心與不斷的找尋 方式是成功的關鍵，這也是訓練一個人能否接受逆境考驗(Adversity Quotient)的絕佳 方式。 其次，業務性質的工作會有機會認識其他不同工作性質的客戶或是公司，再將來的成為 領導人後，若有需要相關資源或技術上的協助，從曾經認識的客戶來尋找，可以快速的 縮短重新找尋解決方案時間。 ◎面對困境不退卻(如果有未來) 人生總是會有高、低潮，俗話說：勝不驕、敗不餒。 每個人、每個工作都...

多線程的設計主要是為了改進單線程自動排程的 問題 ，因此設計成多線程的執行方式來解決，但由於PowerBuilder本身沒有辦法設計MultiThread，因此改用多程式方(MultiProcess)式來模擬此方法。 既然是MultiProcess，那麼需要2支程式，一支是排程程式(Scahdule runner)，與工作執行程式(Work Processor)。 排程程式：屬於獨立運作的程式，其內容相當單純，只負責排程表(Scahdule Table)的掃描(Scan)與執行呼叫(Call)，由於本身不需要處理工作，因此沒有被工作延滯的可能性，單純的處理排程表的掃描，也可以減少多餘的程式碼維護。 工 作執行程式：被動式程式，裡面會撰寫所有的工作程式碼，此程式可以被多次執行，由於在windows下一支程式可以被多次執行，而且不會互相干擾(這是指 程式本身，不包含都在讀取相同資料庫的資料表產生的LOCK)，所以利用windows的MultiProcess特性來達成模擬multiThread 效果。 呼叫意示圖： 多重呼叫亦試圖： 由 上圖看，好像需要寫出很多的WorkProcessor程式，但其實不然，在PB的application的OPEN事件中，可以取得 CommandLine參數，該Processor程式只需要將所有工作寫在裡面，然後利用CommadnLine來判斷需要執行哪個工作程式碼即可完 成。 呼叫方式： 假設排程程式是app.exe，工作執行程式是proc.exe，當排程掃描到此時該執行A工作時，只需要執行 Run('proc.exe A') 當proc.exe執行時，在其OPEN事件的參數CommandLine即可得到一個字串"A"，在使用Choose Case來判定執行的程式碼片段。 當然這樣的程式設計也有它的優缺點 優點：排程、工作獨立分離，不互相干擾時序，運作流暢度高。 缺點：程式維護複雜、錯誤追蹤相當困難。 範例程式下載

繼上一篇 ＰＢ單線式自動排程程式設計(一) 這篇來談談如何改進上一篇的STACK溢位問題吧。 其實這個方法並不難，但是要有足夠的觀念。 1.在原來的window上增加一個自訂事件ue_process 2.在window的共用變數(Instance variables)增加一個布林值 Boolean ib_busy = false 3.把原本在timer事件中的 程式碼全部移動到 ue_process事件中 4.在ue_process事件中的程式碼(不包含變數定義)開頭加入： ib_busy = true 在程式碼最後加入： ib_busy = false 5.在原本的timer事件中寫下下列程式碼： If ib_busy = false Then post event ue_process() End If 原 理是利用旗標變數ib_busy來阻擋事件被觸發，當ue_process被執行時 ib_busy被設定為true，假設此時工作A發生問題時，timer事件的再觸發執行時可以透過ib_busy避免ue_process被觸發，如此 ue_process就不會有一直被stack起來的問題。 那為何程式要移至ue_process事件？這是因為程式若移至 ue_process事件後該工作被執行時stack指標是處在ue_process上，當clock觸發timer事件時，由於timer事件並無被 stack住，所以可以順利的執行，因此不會被擋住，該事件可以被順利處理不會stack起來。 當然此法是可以避免timer觸發事件無法消化的問題導致stack溢位而crash發生，但是卻也沒辦法保證其它工作可以正常執行，因為只要有其中一個工作不正常，整個程式依然處在停擺狀態。 比較好的方式就是利用多執行緒撰寫程式，可惜powerbuilder並非用來設計低階處理的程式工具，因此無法像C/C#班可以設計多執行緒；當然山不轉路轉，不能設計多執行緒，但可以設計多執行程式，所以另一種方法便是利用多程式執行方式達到此效果。

簡介： 這裡所謂單線式排程程式，意指排程掃描與工作處理程式都寫在同一支程式裡面，由於PowerBuild ６程式本身無法像Ｃ＃般寫成多執行緒的能力，因此在同時處理許多作業時，都得依照程式碼執行的ＳＴＡＣＫ順序執行，故名為＂單線式＂ 準備與設計： １.首先必須要有一分工作排程清單，例如每日工作 這樣的資料表結構你可以設計成DataWindow，當然你如果要增加欄位或是功能，都是可以的，不過基本上的結構是如此。 結構中"時"、"分"的欄位是用來比對是否進行工作的時間點，當時間行程到達該時間點時就得進行該工作的執行。 "執行時間"則是代表此工作"被執行完成"的時間點，這個用來判斷該工作是否已經被執行，而不會被重複執行的要件。 "啟用"則是決定該工作是否需要被執行，有的人會以另一種觀點"暫停"來設計。 "工作名稱"顧名思義只是用來顯示的名稱，讓人一目瞭然知道此工作的用途。 "代號"則是代表該工作在程式碼運作時的實際作業。 ２.設計視窗： 設計一個window(w_app)，並將上述排程DataWindow(dw_1)加入裡面。 另外設計一個MultiLineEdit，用以觀察執行結果。 ３.程式碼撰寫： OPEN事件 由於排單位是以"分"為基礎比對單位，故時間的區隔就以"分"為準則，因此在w_app的Open事件中寫入Timer(60)，表示以60秒觸發一次Timer事件。 TIMER事件 Long ll_count , ll_row ll_count = dw_1.RowCount() For ll_row = 1 to ll_count // 檢查該工作是否啟用,若不啟用則跳過 If dw_1.GetItemString(ll_row , 'active') '1' Then Continue // 檢查當天是否已經被執行過,若執行過者不再被執行 If date(dw_1.GetItemDatetime(ll_row , 'work_time')) >= today() then Continue // 檢查是...