RH的數位夢想

Postgresql Trigger 筆記

2012-05-12T08:03:00.003-07:00

行觸發器 - before
=>在某行操作前觸發
=>回傳值可以為NULL(忽略對當前行的操作)
=>當在『Insert』和『Update』時,返回的『數據行(類型為HeapTuple的數值)』將成為被插入的行或者是成為將要更新的行.
=>當不想更改Insert或Update語句的內容時,在觸發器函數中就要回傳原本要被Insert或Update的數據行,Insert時為『NEW物件』,Update時為『OLD物件』
=>多用於
1.檢查或修改將要插入或者更新的數據.(例如當目前時間插入一個時間戳字段)
2.跟踪該行的兩個元素是一致的.
=>效率比『行觸發器 - after』高
=>其中的SQL命令不能看見行數據改變(插入,更新,刪除)的結果資料.
=>其中的SQL命令會看見在同一個外層命令前面處理的行做的數據改變.

行觸發器 - after
=>在行處理完畢後觸發(在語句級別的after觸發器前觸發)
=>返回值沒有意義,所以會被乎略,可以返回NULL
=>多用於
1.填充或者更新其它表
2.對其它表進行一致性檢查.
=>其中的SQL命令會看見行數據改變(插入,更新,刪除)的結果資料

語句觸發器 - before
=>開始做任何事情前觸發
=>回傳值只能是NULL
=>看不到整個語句做的插入或修改的結果.

語句觸發器 - after
=>語句最後觸發
=>回傳值只能是NULL
=>可看見整個語句做的插入或修改的結果.

*如果多於一個觸發器被定義在同樣的事件(Insert,Update,Delete)上,
觸發器將按照由名字的字母順序排序的順序觸發,如果是『before型』
的觸發器,每個觸發器返回的資料行將成為下一個觸發器的輸入,如果
任何『before型』觸發器返回NULL,那其操作會被放棄且隨後的觸發器
不會被觸發.

*定義一個觸發器,可以聲明參數,目的是允許類似需求的不同觸發器調用同一個函數.

修改 SQL Server的TCP/IP端口步驟

2012-03-06T06:50:00.001-08:00

修改 SQL Server的TCP/IP端口步驟

1.In SQL Server Configuration Manager, expand SQL Server Network Configuration, and then click on the server instance you want to configure.

2.In the right pane, double-click TCP/IP.

3.In the TCP/IP Properties dialog box, click the IP Addresses tab.

4.In the TCP Port box of the IPAll section, type an available port number. For this tutorial, we will use 1500.

5.Click OK to close the dialog box, and click OK to the warning that the service must be restarted.

6.In the left pane, click SQL Server Services.

7.In the right pane, right-click the instance of SQL Server, and then click Restart. When the Database Engine restarts, it will listen on port 1500.

8.Use MicroSoft SQL SERVER Management Studio to access db , by sql connect string 『xxx.xxx.xxx.xxx\SQLEXPRESS,1500』

減法過人生

2012-03-03T19:50:00.002-08:00

以下是一位朋友寄給我的文章，用減法過人生，文中關鍵的註解是『世上的一切，我們只能享有，不可能擁有，何必一定要佔有？』想想很有道理，雖然無法天長地久的擁有美好人事物，但至少留有美好的回憶，珍惜當下身邊的人事物，其他的，就學習豁達的放下吧。

===============================================================
減法過人生

打開五斗櫃最底下的抽屜，就在角落，我發現一個包裝完整，沒拆封的什麼東西，也不知道是不是我的，但在我抽屜裡，我打開應該沒問題，等打開一看，是個設計
新穎的飾品，應該是我在現代美術館（MOMA）買的，但是在哪個MOMA？何時買的？一點都不記得。再翻，又出現有十卷已開封、照過，卻沒拿去沖洗的相片膠
卷…..，多少年早已不用膠卷了，想裡面的內容，對現在也沒太大意義了。

這是我要搬離住了三十多年忠孝東路四段的樓中樓，在整理雜物時發生的事情。當Aki嬸（隱名）帶我到她家，說房子要我重新為她設計時，我著實嚇了一跳。因為平常打
扮整潔、做事調理的她，家裡卻是凌亂不堪。兩個漂亮標緻的女兒，她們的房間四處也堆滿雜物。

「不好意思，我先生二十五年前突然生病走了，為了懷念他，所有他生前的東西與擺設，我都不想動。女兒當時很小，爸爸很愛她們，爸爸所有的衣物都不忍丟，原封
不動的掛在衣櫥裡。」她說著又指著佔在客廳顯要位置的老舊音響及錄音帶說：「這也是他當時喜歡聽的古典樂，二十五年來沒捨得搬動它。」
的確佈滿了灰塵，難怪，長得如此娟麗的Aki嬸，選擇不願再婚，應該不是沒機會，而是她心已被佔滿，不願捨去。當然，她女兒們也以她為樣，連小學時的作業簿都留下
來。這三十多坪的家，早已成了博物館，每個房間都變成了儲藏室。最後她說了一句，使我覺得技窮的是：「雖然我要重新裝修，但這些東西仍要保留。」紀念品已成家裡的
負擔；思念已成心中不減的重擔。

其實，上一輩的美德也使我瞠目結舌。家母是很勤儉的人，在當時只要用過的玻璃罐，例如醬瓜瓶，都洗乾淨用塑膠袋包好存在床下，她的想法是可用的東西不要
丟，以備不時之需，誰都不准去動它。蒙召返天家後，我們去整理她的床下，赫然發現瓶瓶罐罐不下百個。

最近我去見一位老業主，過去我替他設計了多家旅館，一家比一家繁複華麗。後來他生了一場大病，到美國住了十年，現又回台北，他說他的觀念完全改變了，過去他
經營的旅館，設計是用”加法”，現在是要求用”減法”，一家比一家精簡，不只成本低，回收快，且整理方便，生意更好。

”減法”的設計，我們學建築的早就知道 ”less is more” 的道理。嗯！我想不只設計，現在也可用減法來過生活，以減法來過後半生吧？！其實在世上擁
有的越多，煩惱也越多。有一棟房子，有一個煩惱，擁有兩棟，煩惱加倍。財產越多，留給家族子孫的煩惱就越大。最近金融風暴，也可見證那些擁有越多的人就越不快樂。
前一陣子，我為一位建築商做家庭室內設計，兩個兒子的房子都是百餘坪，等老東家房子來委託設計時，我想那不知要多豪華，不想拿來一看，大吃一驚－總面積：二十一
坪。「這……」我才在懷疑，他打斷我的話，說：「我打拼了一輩子，蓋了不少房子，也擁有不少房子，想通了，小房子既溫馨又好整理，只剩我兩老，這就夠了，孩子們
還想不通，由他們去吧！」

世上的一切，我們只能享有，不可能擁有，何必一定要佔有？因此，五十五歲之後的我，非必要的東西不再添購，去旅遊也不再買東西回來了，也不想與風景合照，只拍些使
我感動的景緻、上帝創造的美、或設計上的新知。我覺得最要把握的是當下，在此時、此景、此物，親臨的那一刻，我是否真正認真的享受、體會、感恩，那一刻才是需要
的。六十歲那年，我把家中多餘的用品、裝飾品、收集的紀念品清了出來，拿去社團義賣，做社區服務經費。家中清爽多了。心情輕鬆多了，現在，”該是以減法過人生的時
候了”。

好友Coral，是個很好的典範，她曾有過華麗的生活，但同時也曾伴著傷心的往事，而我們現在看到的她，並不會抱著過往，自哀自憐，相反的，她清理心情，拋開過
去，作光作鹽，積極地投入人群，擁抱有盼望而光明的人生。

再次提醒自己，放下對世界的慾求，放下心中的掛念，卸下對人的恩怨，過減法的生活，輕鬆的面對人生。

雷鋒精神

2012-03-03T19:24:00.002-08:00

雷鋒 ... http://baike.baidu.com/view/168009.htm

如果每個人都有這種精神，國父　孫中山先生實現世界大同的理想也許就能成真了。

但是這樣的精神，是否與每個人的私心背道而馳？『助人為樂』這件事，似乎並非

每個人都能懂。

Tennis-學好穩定正手拍的八個關鍵

2012-01-28T08:40:00.001-08:00

Tennis

學好穩定正手拍的八個關鍵

CHECK POINT １─站立姿勢

CHECK POINT ２─舉拍

CHECK POINT ３─左手

CHECK POINT ４─肩膀

CHECK POINT ５─軀幹

CHECK POINT ６─打擊點

CHECK POINT ７─動作完整的揮到最後確實地擊中球

CHECK POINT ８─球路

¿ 為了正確的揮拍向打擊方向，就要收緊腋下。採東方式握拍法的人，最好要下意識的收緊拿著球拍的手臂舉拍，這樣失常的機會較少。

¿ 如果你打正手拍時採東方式握拍法，就以兩腳併排站立的姿勢較佳。當然，看狀況也有採用開放式站姿打擊的情形，但是基本上還是以兩腳併排站立的姿勢，使用由後向前移動體重的力量打正手拍為佳。

¿ 一看到球飛過來，即迅速移動，首先確實穩固右腳，然後前腳向打擊的方向踏出去。採東方式握拍法的人，如果未能穩住雙腳併排站立的姿勢，就很難打穩定的正手拍，所以要多回想站立的姿勢，多實際練習幾次。

¿ 採東方式握拍法首先要穩住右腳，向打擊方向踏出前腳，這就是雙腳併排站立的姿勢。以由後向前移動體重的力量擊球是要領。

¿ 要記住，在身體前面準備好了舉拍姿勢就收緊腋下，然後往後抽回球拍。這個動作愈乾淨俐落，就愈能夠正確的向打擊方向揮拍。
(請把球挾在腋下，由球伴送球練習舉拍的動作，如果舉拍時，球會從腋下掉落，就證明沒有收緊腋下。)

¿ 考慮整體姿勢的平衡及為了使肩膀用力，要善加使用左手。舉拍時，左手必須要向側面展開或伸出向前而肩膀用力。

¿ 左手伸出向前或展開至身體側方的時間，就靠自己的經驗來判斷。

¿ 有人用打點做為目標。用左手測量球朝面前飛過來的距離，若測到球大約會飛到這個位置來，就要開始進入準備揮拍了。

¿ 兩邊肩膀保持能夠順利揮拍的高度。若妥善運用左手肩膀用力，其次就要確認兩邊肩膀是否形成一直線。這也是為了要保持身體平衡，打出穩定正手的重要因素

¿ 如果肩膀未能形成一條線，隨後要進入揮拍的動作時，就不能順利的揮出球拍。

¿ 身體筆直才能產生一定的揮拍軌道。就和兩肩保持一直線一樣的保持身體形成筆直，看看這發球、截擊或殺球等所有網球打擊都是同樣的道理，但身體軀幹一擺動，就絕對不可能打出穩定的打擊。

¿ 身體擺動和揮拍時球拍擺動有連帶的關係。要檢討腰是否有彎下來，舉拍時身體是否有向前傾等等。此外身體軀幹一搖擺，就會消耗較多的體能，以致擔心累積疲勞而不能確實揮拍，須注意。

¿ 設定適合自己的打點位置，經常在這一打點打擊。

¿ 即使打擊緩慢一點也能回擊到球，若過於提前打擊，也可由後續動作來補救。萬一這些動作有一項出錯，打點就亂掉，是打球缺乏穩定性的最大原因。

¿ 要打穩定的正手拍，最好要設定打點目標，經常在這一打點打擊。

¿ 採東方式握拍法時，打擊點要在前腳的附近，比腰稍低一點的位置打球，只要固定打點，你的正手拍一定會相當穩定。

¿ 對低的球要前進，對高的球就要後退，努力練習在固定的打點打擊。

¿ 比賽中必須在各種狀況打到球，但是，最好要培養在一定的打點打到球的習慣。然後再一點一點擴大打擊點。

¿ 對各種球都要在固定的打點打到球，必須在揮拍前做預測。

¿ 對手打過來的球是低、是高當然要先預測，離身體是遠、是近，速度是快、還是慢，旋轉球或削切球等都要預測準確。要在一瞬間把這些資料輸進頭腦裏，至少要早一點開始腳法。等到球落地反彈起來，再移動腳步就太遲了，必須要注意。

¿ 要擊出穩定的正手拍，完整的揮拍到最後比較適當，最要不得的是半途而廢的揮拍。採東方式握拍法時，後續動作要對著打擊方向瞄準斜上方，就是以手掌向前推出球的感覺來完成動作。

¿ 平擊球要離球網大約５０～７０㎝高，旋轉球要離球網上方７０～１００㎝的地方。

Oracle8.16安裝筆記

2012-01-28T08:38:00.001-08:00

...下載

圍棋筆記

2012-01-28T08:33:00.000-08:00

圍棋筆記

基本知識：

1.      棋盤 19 * 19 = 361

2.      輸贏比較-比雙方在棋盤上活棋誰活得多！

3.      如何算活棋? 永遠有氣，沒法被消滅，兩個眼是活棋，但不是唯一活的形式!

4.      棋圍地的空間愈大，愈方便做眼。

5.      誰活棋超過181目，誰就贏

6.      棋如何才算結束? 做活兩個眼的棋塊邊界都已確定！雙方都認為再多下一手並不能改變圍地結果，棋盤即算結束。

7.      如何數棋?

(1)   將雙方在棋盤上的死棋先提掉！

(2)   選擇一方進行數目，將選定一方的控制區域中都填上該顏色子

(3)   數棋!超過181目即贏，少於181目即輸

(4)   為了加快數棋的速度，可以採取『換子』的方法，將棋盤上黑白雙方的子進行交換，將數目方的區域做成方形，比較好數目

(5)   另一種算法(日本算法)，是將吃掉對方的棋子，放到對方控制的領地中，此時在棋盤上的黑棋及白棋數量相等後，即計算各方控制目數(也就是不用去計算子本身了)，誰目數多，誰勝出。

8.      打劫問題，白棋提劫，黑棋不可立即提回，黑棋必須先在其他地方下一個，才可提回。

9.      真假眼、打吃、征子、悶打、虎、扑

10. 死活基本形：(眼型)

*直二：死棋

*直三：後手活

*直四(含以上)：活棋

*曲四(含以上)：活棋

*丁四：後手活

*方四：死棋

*聚五：後手活

X

       XXX

            X

*刀把五：後手活

*板六(含以上)：活棋

*圓六：後手活

*聚七：活棋

è做眼的地方愈大愈好，超過7個以上，都是活棋

è眼型，長的比圓的好

11. 高效的圍地是目的，殺死對方的子是保衛地域的手段！

12. 圍地是把棋往自己棋多的地方趕！

13. 合理的提高效率，不被對方容易攻擊!

14. 殺棋能力愈大，能控制的區域愈大

15. 差二的效率是合理高，差三為不合理的高，不好控制，可能反被攻。

16. 動需相應，一般走法：在三、四線上、差二、小飛、大飛(三四線為主，二五線為輔)

17. 金角銀邊草肚皮。

18. 對殺è『黑白相互包圍無法逃出，只能靠殺死對方取得生存』的狀況。

*公氣：即是黑棋的氣，也是白棋的氣。

*外氣：只屬於一方棋的氣。

*對殺時比誰的外氣多！對殺時，先緊對方外氣。

*公氣愈多，雙活可能愈大。(雙活指的是，在某一棋型下，誰接著下誰就輸，所以誰也不願意下，到時算目數時，雙方各得一目)

*如一方有眼，一方沒眼，公氣屬於有眼方！！??

*一方有眼且公氣多，對有眼方有利，如沒公氣，有眼等於沒眼

19. 下的沒有目數的棋，稱為單官(指的是還要一步步下的狀況) (棋大小及先後手章節)

20. 棄子也要爭先! (棋大小及先後手章節)

21. 殺棋的條件：

(1)   在一區域中，子力要比對方多！

(2)   使對方的斷點多！

(3)   棋在邊上容易死！

邱百瑞

22. 佈局：

23. 尖衝棋型，要在２子以上連在一起才可做，如果單子做尖衝，勢力太小，一定會被攻擊！

24. 掛角一般是空一格或兩格掛、小飛、大飛、一間高掛、二間高掛

25. 佈局重要的地方，稱為大場? 何為重要? 在邱百瑞初級教程中，把中間星位稱為大場。

26. 一子下完後，接著自己的下一手在地上面，兩者(地)必得其一(指占地佈局而言，雙打好像不算)，這種狀況稱為『分投』

27. 佈局時建立作戰根據地(用來活命的地，稱為根據地)，型為：拆二(立二可拆三、立三可拆四、立四可拆五)

28. 佈局時可以建立根據地，又可以夾擊對方的棋，是有效率的棋!

29. 有關『根據』～～

30. 有關『雙方根據著點』為，誰下了誰該區棋子安定，另一方就不安定。視小實大(端看盤面上似乎很小，但這著棋對後續發展有著深遠影響)，以官子(即目數)的方面來算，不見得很大，但此著點很重要。

31. 佈局上下棋，第一個考慮的選點是．．找不安定的自已的棋(塊)或對方不安定的棋(塊)來下。

32. 在已經安定的自己的棋(塊)的邊上下，只是擴大了一點地，效率不高！在自己不安定的棋(塊)邊下，讓棋安定了，效率較高！

33. 下棋必需要爭取主動!

34. 有關『出路』～～

35. 能封住對方棋(塊)，不需對方向中腹延伸的棋，是好棋，此著點點是『出頭、封頭的要點』，稱為『封頭棋』或『出頭棋』。

36. 往後在佈局階段每下一手棋，都要想想，是否符合佈局棋理!

37. 布局的常見錯誤-拆二的錯誤、根據與官子、一味圍地、勞力重複、三連星、中國流

38. 沒有明顯能建立根據地的棋時，就出頭向中腹發展!

39. 下棋時，不用去照顧活棋，而是應該要去照顧自身不安定的棋，對方也不會把棋下在活棋旁邊。

40. 不要同時需要照顧2塊可能受攻的棋，盡量一塊一塊處理。

41. 下棋時，要把對方引到自己最強的陣地來。

42. 下棋不要主動靠近對方的活棋！會挨打！

43. 每下一步棋，都要充份發揮每一步子的效果，對弈誰發揮的好，誰就更有贏的機會。

44. 如何判斷圍地的眼位是否足夠?

45. 三連星佈局：

46. 中國流佈局：

圍地、出頭、進攻(封頭)è聯絡、切斷、出頭、封頭、建立根據地

死活,對殺,手筋, 是發現先手的基礎

網球-發球要領

2012-01-28T08:30:00.001-08:00

發球要領：
1.將身體重心放在左足,兩足微彎,右腳跟抬起
2.重心由前微微向後移動,直至右足跟微觸地面時
3.順勢將身體重心移至前足,並同時壓低重心,做拋球及拉拍動作
4.在拉拍時採放鬆姿態,用3指握拍,以揮鞭姿態擺動手腕
5.迅速登右足擊球,使全身力量加在網球上
6.擊球之後,切記不可有扣壓網球心態.............

導師應具備的五項人格特質

2012-01-28T08:29:00.000-08:00

一、導師應具備的五項人格特質？

(1)關懷的心

一位導師最重要的人格特質就是要有一顆關懷學生的心，對學生感興趣，才會真的引導學生走向光明正道，視導生如子女的情懷，給學生包容、接納、關心與愛心，欣賞、獎勵學生優點，幫助學生渡過挫折的低落時期。

(2)情緒穩定

情緒穩定是導師必備的重要人格特質之一，因為導師的主要工作是輔導學生，所以重點是如何輔導學生，一但導師為學生的偏差行為或是自己情緒低落而造成情緒不穩定，就往往無法用心輔導學生，有時可能還因為情緒的不穩定而造成學生反彈的反向效果，所以心平氣合才能解決問題，情緒不穩只是徒增導師的困擾而已。

(3)了解自我&肯定自我&接納學生

導師是學生眼中的重要它人，導師主要的任務是對學生產生正向的影響力，所以在引導學生之前導師本身必須了解自我，了解自我是了解自己的價值觀，才不會在引導學生時加入自我主觀的價值判斷而造成學生的壓力及反彈，但了解自我還不足以輔導學生，了解自我之後還必須肯定自我，一位導師如果自己都無法肯定自我，又如何叫學生肯定他自己呢?每個人的人格不見得都十全十美，但是必須以正確的態度來面對自己的優點及缺點，了解自我的缺點並盡力改善，但不掩飾而是克服與接受，了解自我的優點而加以發揮精進，如此在一種接納自我的平衡狀態之下，才有接納學生的可能性。

(4)負責任

負責任的人格特質不只是導師須要，而是任何人都須要的人格特質，只是在導師的角色中，負責任的人格特質格外的重要而已，因為『教育是不可以嘗試錯誤的事業』，教育是一種良心的事業，不可以把錯誤的嘗試加在學生身上，導師在學生眼中的一舉一動都對學生造成不可抹煞的影響力，積極的參與態度才是導師應有的人格特質。

(5)積極向上&豁達的人生觀

有什麼樣的老師就有什麼樣的學生，這是千古不變的道理，導師的言行舉止及人生態度都會深深的對學生產生影響，學生跟隨老師求學做學問，在這過程之中學生就會在無形中以潛移默化的方式受到導師的影響，學生可能會以導師當為學生自己人生觀的標準，進而學習導師的人生價值觀，所以導師的人生觀就顯得重要了，一個有積極向上與豁達人生觀的老師，教出來的學生也一定會因人生態度的改變而以樂觀的心態面對人生，讓人生變得美好。

二、導師應具備的三項能力？

(1)對人事物具高度敏感性

當一位導師的主要工作就是引導學生走向正途，所以導師必須要有對人、事、物的高度敏感度，如此才可洞察先機，在學生尚未表示出適應久佳或是偏差行為之前，就了解學生的問題與處境，必須立即加以輔導，幫助學生解決問題。而敏感度則有賴導師充實輔導方面的專業知能，這樣才能增進對適應欠佳與偏差行為徵候的覺察能力與敏銳感受。

(2)了解人心、善於溝通

導師是一個在人群之間打滾，而且是在一群未成熟人群中工作的人，所以溝通的技巧就顯得格外重要了，如何適當的運用溝通的方式達成影響學生、教育學生的目的是一門非常深奧的藝術，但一位善於溝通的老師卻不一定可以把學生帶好，因為人心才是癥結所在，了解了學生的心理之後，才可針對學生的心理狀態來加以輔導，將從心理剖析學生，進而運用溝通的技巧來達成輔導學生的目的。

(3)快速學習＆統整資訊

老師的天職是教學生，教學生知識與做人，所以老師的『教學材料』是老師的重要資源，縱使不必『學附五車』但是知識增加的速度非常快速，老師如果一日不學習將會趕不上知識增加的速度，所以快速學習及快速統整資訊是老師必備的能力。

All in the State of the Mind

2012-01-28T08:13:00.001-08:00

All in the State of the Mind

If you think you are beaten, you are.

If you think you dare not, you don't.

If you would like to win and don't think you can, it's almost a cinch you won't.

If you think you'll lose, you're lost.

For out in the world you'll find success begins with a fellow's will.

It's all in the state of the mind.

Full many a race is lost ere even a step is run, and many a coward fails ere even his work is begun.

Think big and your deeds will grow.

Think small and you'll fall behind.

Think that you can and you will.

It's all in the state of the mind.

If you think you are outclassed, you are.

You've got to think high to rise.

You've got to be sure of yourself before you can ever win a prize.

Life's battles don't always go to the stronger or faster man; but sooner or later, the man who wins is the fellow who think he can.

It's all in the state of the mind.

Source: unknown

全都在於心態

如果你認為你被打敗，你就被打敗了。

如果你認為你不敢，你就不敢。

如果你想贏但不認為自己會贏，當然你就不會贏。

如果你認為你會輸，你就輸了。

因為你會發現，在這個世界上，成功是從人的意志開始的。

這全都在於心態。

許多賽跑在還沒踏出第一步就已經輸了，許多懦夫在還沒有開始做就失敗了。

往大處想，你的成就才會擴大。

往小處想，你就會遠遠落後。

認為你能做到，你就會做到。

這全都在於心態。

如果你認為別人勝過你，別人就勝過你。

你必須要往高處想，你才會提昇。

你必須要先確信自己，才能為自己贏到一份獎品。

生命中的戰鬥不一定都由最強壯或最快速的人獲勝，但是早也好晚也好，得勝者一定都是認為自己會贏的人。

這全都在於心態。

Visual FoxPro 使用的檔案副檔名及其關連的檔案類型

2012-01-28T08:02:00.001-08:00

本資料表格列出了 Visual FoxPro 使用的檔案副檔名及其關連的檔案類型。

副檔名檔案類型
.ACT 精靈操作的文件
.APP 產生的應用程式
.CDX 複合式索引
.DBC 資料庫
.DBF 資料表格
.DCT 資料庫說明
.DCX 資料庫索引
.DLL Windows 動態連結函數庫
.ERR 編譯錯誤
.ESL Visual FoxPro 支援的函數庫
.EXE 可執行程式
.FKY 巨集
.FLL FoxPro 動態連結函數庫
.FMT 格式檔
.FPT 資料表格說明
.FRT 報表說明
.FRX 報表
.FXP 編譯後的程式
.H 標頭檔案（ Visual FoxPro 或 C/C++ 程式需要包含的）
.HLP 圖形樣式說明
.IDX 索引，壓縮型態的索引
.LBT 標籤說明
.LBX 標籤
.LST 精靈清單的文件
.MEM 儲存記憶體變數
.MNT 功能表說明
.MNX 功能表
.MPR 產生的功能表程式
.MPX 編譯後的功能表程式
.OCX OLE 控制項
.PJT 專案說明
.PJX 專案
.PRG 程式
.QPR 產生的查詢程式
.QPX 編譯後的查詢程式
.SCT 表單說明
.SCX 表單
.SPR 產生的螢幕程式（只適用於 FoxPro 以前的版本）
.SPX 編譯後的螢幕程式（只適用於 FoxPro 以前的版本）
.TBK 說明備份
.TXT 文字檔
.VCT 類別定義函數庫說明
.VCX 類別定義函數庫
.VUE FoxPro 2.x 資料集
.WIN 視窗檔案

PhotoShop教學講義(一)--範圍的選取與編輯

2012-01-28T07:49:00.001-08:00

...內文

PhotoShop教學講義-圖層

2012-01-28T07:48:00.001-08:00

...內文

追查Bug的方法

2012-01-28T07:40:00.001-08:00

追查Bug的方法...

1.在Log中出現的Bug,我們去看程式碼後,會推測可能是某個地方
有問題, 但是不可由自己的推測去改程式, 要證實自己的推測
是正確的之後, 才去改!..在找答案時,寫的程式,在找到答案後
先不存檔,重開VFP,再把正確改正的程式加上

2.在找bug時,要重新review讓method一次,沒有注解的要加上

3.在程式中為了邏輯清楚,盡量拆用Method...

4.程式就是最好的注解,要寫的直覺,清楚,不要寫的很長,不要東插一段西插一段

5.模擬出Error -> 觀察 -> 假設 -> 推理 -> 證明 ->找出問題 -> 解決問題

9.微軟說..最好的注解就是程式碼...簡單明了...

寫程式的原則

2012-01-28T07:39:00.000-08:00

寫程式的原則...

1.一定要testing...每一行程式都要testing
在除錯工具的 [工具]->[涵蓋日誌] 給它一個檔名,
然後在 VFP 的 [工具] -> [範圍描述檔案] 就可以知道那些沒執行過了.

2.一定要善用 write one exectution anyplace的精神
同邏輯的程式,能合併就合併,差異處用Flag來處理

3.Debug要發揮想像力....

4.在做版本管理時,在簽入時,可以加上注解,即可得知此版改了什麼

5.請先了解程式架構再下手寫程式，不要破壞原來的程式架構

6.胸有成竹，才下手寫程式，不要想到那，寫到那

7.細心的注意每一個小細節，不要只注意自己認為重要的點，程式不只要能用，而是要好用!

8.少用 messagebox() , 除非你要挑選是或否時才用.
　否則一定要用thisform.mess()，以符合程式架構

9.在寫程式時，要時時想到，如果資料量很大時，程式之效能是否
　會減低，甚至會無法運行!

10.請徹底了解何種狀況下VFP本地的Table會被佔用,而產生檔案被
使用的狀況。

11.精讀SQL語法!了解如何寫SQL語法，效率才會高，了解Index及SQL
執行的底層做法，以提昇SQL執行效率。

12.FeederModify Form 啟動時速度很慢, 要有習慣意識到程式剛起動時的速度, 不要讓
太多資料在啟動時抓進來, 以免影響速度.

13.沒有針對畫面上的細節作測試的習慣, 像是畫面放大時, 相關元件沒跟著位移或放大, 對
自己寫的程式, 沒有徹底破壞的決心及習慣.

14.一個 Column 下面除了有 Header 物件外, 不要有二個以上的其他物件

15.注意FORM中排板及設計原理的合理性!!在資料量大時，要考慮User使用操作
　上的便利性
曾犯的錯誤～～
　設定保養及檢修週期功能, 要有查詢某個料架的功能, 否則愈來愈多資料時, 很難設定.

16.beforeopentable 這個 method , 要記得加入 thisformset.setstatus , 否則日期的格式跟其他 form 不同.

17.不合理的資料一定不可讓User輸入, 一定要防, Garbage in garbage out

18.系統內介面定義之文字要統一,不可讓User混淆
我曾犯過的錯誤～～
名詞不統一, 像是 menu 叫作 [料架維護及使用標準設計] , 但進入後的標題卻是 [ 設定維
修及保養週期 ] , 然後內文卻是 [保養標準週期] 及 [檢查標準週期 ] , 同一個人寫的, 卻有
三種文字表述, 要如何看得懂.

19.介面的一切資訊，必須依合理性，自動更新，以便利User操作
曾犯過的錯誤～～
料槽數 3 與明細應該產生互動關係, 當明細為 3 筆時, 料槽數應該自動為 3 , 這裡沒有連動
料槽數沒變，也可以存檔，會形成問題！

20.要加強測試，不放過任何一種可能

21.每一個Form要設定User輸入的順序，方便User輸入資料

22.寫程式時,要寫的乾淨,不要留一些沒有用,被mark掉的東東,就算之前有bug的程式被mark掉,也要
註明清楚!

23.在使用View時,View的生命週期盡量與Method同步,如果一個Method要呼叫另一個Method,而這另一
個Method用到同一個view的資料,要傳入View name!
要傳入View Name

24. a.要插程式前,先了解程式Structure
b.再把要插入的程式邏輯順(整理)一次
c.再把有相關的邏輯包裝為Method
需要包裝為Method的地方...
c.1:if/then/else, Do Case , Loop
c.2:條件判斷式
d.再檢查包裝的合理性
以上這些方法...在寫的時候不一定能達成,因為需要經驗去體會
(日本人把這樣的知識稱為:暗未知),加油!一定可以達成!
在系統愈來愈大之後,物件導向化的程式設計理念就要愈強,不然程式
將會走向失控狀態!

25.寫程式時,要採用預防性寫法!(這是我自己的體會),在寫某些程式碼A時,
可能會因為其他程式碼B邏輯上的錯誤,使得這些程式碼A出現error,所以
就會很肯定不會有這樣的狀況發生,也要在程式碼A中盡量加上防錯機制
EX: IF USED('TV_VIEWNAME')
SELECT TV_VIEWNAME
USE IN TV_VIEWNAME
ENDIF

26.寫程式時,不要寫死...可以拉出參數的,就拉出參數...

27.Method的介面一定要定義好,要把可能的傳入參數及回傳參數設想週全,不然等到開始寫了,程式中開始用
到這個Method時,要改就不容易了,因為只要是參數改了,所有呼叫他的地方,都要改,所以要特別注意!

C# FAQ

2012-01-28T07:36:00.001-08:00

C# FAQ

1. 什麼是方案?
方案就是指專案的集合，一個方案下會有多個專案，附檔名為.sln的檔案即為方案檔，C#的專案當附檔名為.csproj

2. VSS可否只加入專案,不加方案?
答案是可以。

3. 在己加入VSS的方案中，再加入一個專案，是否需要手動將該專案加入VSS中?
答案是不需要，因為VisualStudio2008會自動將該專案加入VSS中。

4. c#中的app.config,exe.config,Settings.settings三個檔他們之間有什麼聯繫，各自的作用是什麼？
前兩個是應用程式配置檔，app.config在程式生成後變為與程式exe檔同名的.config文件，即在.exe後面加上.config，如：mytest.exe.cofig。就是說app.config和exe.config內容相同，是程式配置檔在設計時和運行時的不同表現形式而已。
Settings.settings是用於保存應用程式設置的檔，可以讀取或寫入不同變數，檔或一般會自動保存在document and setttings、用戶名、application data 下面的目錄
è所以app.config及Settings.settings需要加入VSS,exe.config不需要

5. c# 中 bin\debug資料夾下的.pdb檔用途為何?
.pdb調試資訊檔，用於調試器出錯的代碼在原始檔案的哪一行，那一行是什麼內容。所以在打包的時候也可以拋棄它。
è不需要加入VSS

6. c# 中 bin\debug資料夾下的 .vshost.exe是做什麼用的?
宿主程序，發佈時可以刪除!
去掉這個程式的方法是：
工程-》屬性-》調試-》Visual Studio Host Process
Project->Property->Debug->Visual Studio Host Process
(專案--》屬性--》調試--》右邊最後一個核取方塊)
去掉前面的勾。
è不需要加入VSS

7. c#中 bin\debug\.vshost.exe.config及.vshost.exe.manifest是做什麼用的?
我猜應該是跟.vshost.exe有相關的檔案,即然.vshost.exe不需要被加入VSS,我想這兩個檔案應該也不需要,但.vshost.exe的用途及含意,需要再查查清楚!
è不需要加入VSS

8. C# 中bin\debug\.suo檔是做什麼用的?
c#中的suo檔每次在編譯的時候都會出現，刪除沒有任何影響, *.suo 解決方案用戶選項記錄所有將與解決方案建立關聯的選項，以便在每次打開時，它都包含您所做的自定義設置。比如你的VS佈局,你的專案最後編譯的而又沒有關掉的檔(下次打開時用)
è不需要加入VSS

9. 為何將簡體PC開發的專案加入繁體PC建立的VSS_DB ,Visual Studio會提示可能因為語系不同的關係造成VSS_DB無法正常運作?

10. 為何一般的Word檔案無法保存歷史版本?

11. C# 編譯的執行檔如何記錄版本編號?
版本編號格式：主版本號. 次版本號. 內部版本號. 內部修訂號
在C＃的每一個工程都有一個AssemblyInfo.cs檔，裏邊包含對版本號的控制，主要是 [assembly: AssemblyVersion( "1.0.* ")]這一行，你可以按需求修改,默認情況下內部版本號. 內部修訂號是自動產生的，內部修訂版本號的位置出現的是2000年1月1日到編譯日期的天數，內部修訂號是當天從0點到當前時間的刻度數，所以『內部版本號+內部修訂號』一定會唯一(即每一次編譯一定會對應不同的『內部版本號+內部修訂號』)。

12. 如何確認EXE檔中的SourceCode內容?
前提1:存放VSS的電腦系統時間必須準確!(VSS電腦系統時間必須與編譯電腦的系統時間一致)
==>以免記錄了錯誤的時間，造成版本追溯錯誤!
前提2:編譯前必須全部簽入!
==>以免在VSS中找不到對應的程式碼!
前提3:編譯前必須取得最新版本!
==>以免編譯的版本是舊的程式內容，造成追溯錯誤!
前提4: 內部版本號及內部修訂號必須由C# 編譯器自動生成(版本編號是使用系統時間自動生成的，每次做編譯一定會不同，即每次的編譯對應的內部版號一定唯一)
==>以免手動填寫版本編號的機制下忘記修改版本編號或寫錯版本編號。
前提5:EXE檔在建立後檔案內容不可以被修改(中毒或是被Hacker修改了檔案內容，其『修改時間』會變化，即會造成編譯時間不等於『修改時間』的狀況，但如果被修改了，還可以從自動建立的內部版本編號知道編譯的時間點)
==>以免造成編譯時間的誤判!
在符合以上5個前提的狀況下，由編譯的時間點即可找出該EXE檔對應的程式碼(即在編譯時間前的最後一個版本，即是EXE中的程式碼)

13. 如何判定某個EXE檔被編譯的時間點?
方法1:從自動生產的內部版本編號，可以換算出編譯的時間點。
方法2:Windows系統中『修改時間』即代表第一次建立或是最後一次內容內變動的時間點，修改檔名及搬移檔案並不會造成『修改時間』的變化！由於基本上EXE檔的內容除了使用編譯之外，應該不會被修改，除非是非正常方式進行修改內容(比如中毒!)，這就不列在討論範圍中，正常狀況下，應該是不會發生，所以結論是：在正常的狀況下，編譯的時間點就是檔案資訊中『修改時間』記錄的時間，在編譯前取得最新程式碼的前提之下，就可以得知某執行檔的程式碼內容(在VSS中，在『修改時間』之前的最後一個版本，即是該檔案的程式碼)

VBA-好用的資料型態檢查函數

2012-01-26T23:40:00.000-08:00

以下是好用的格式檢查函數，不管Excel中的儲存格定義為什麼型態的，
都可以檢查出內容型態是否合規定。

可以檢查內容是否為：
D:日期,
C:字串,
NI:整數,
NIP:正整數(包含0),
NFP:正浮點數(包含0),
NIP_NFP:正整數及正浮點數

以下是程式碼，有經過測試可以正常使用。

Rem <summary>
Rem 檢查某儲存格內容的型態及長度是否正確
Rem <param name="tcSheetName">Sheet名稱</param>
Rem <param name="tnRowNo">儲存格列號</param>
Rem <param name="tnColumnNo">儲存格行號</param>
Rem <param name="tcType">指定型態(D:日期, C:字串, NI:整數, NIP:正整數(包含0), NFP:正浮點數(包含0), NIP_NFP:正整數及正浮點數)</param>
Rem <param name="tnLength">選擇性參數，如型態為『C:字串』，必須指定長度</param>
Rem <param name="tcCompareKind">選擇性參數，如型態為『C:字串』，必須指定比較方式("<=":小於等於,"<":小於)
Rem <returns>True:通過檢查，False:未通過檢查</returns>
Public Function checkTypeAndLength_Cell(tcSheetName As String, _
tnRowNo As Integer, _
tnColumnNo As Integer, _
tcType As String, _
Optional tnLength As Integer, _
Optional tcCompareKind As String)

'宣告變數,給定初值
Dim lnChrAscCode As Integer
Dim lcCellType As String
Dim lcStrCType As String
Dim lnI As Integer
Dim lnCount As Integer
Dim lcTempStr As String
Dim lnRet As Integer
Dim lnRet1 As Integer
Dim lnRet2 As Integer
Dim lnRet3 As Integer
Dim lnRet4 As Integer

Dim lbHave_Eng As Boolean
Dim lbHave_Mark As Boolean
Dim lbHave_Cht As Boolean

Dim lbHave_HeaderPos As Boolean
Dim lbHave_HeaderNeg As Boolean
Dim lnSignCount As Integer

Dim lcStr As String
Dim lnPeriodCount As Integer
Dim lnPeriodPosition As Integer
Dim lnSlashPosition1 As Integer
Dim lnSlashPosition2 As Integer
Dim lcYYYY As String
Dim lcMM As String
Dim lcDD As String

lnChrAscCode = 0 '儲存單字元的AscII碼
lcCellType = "" '儲存格內容型態判定結果(日期, 字串, 正數, 負數, 整數, 浮點數)
lcStrCType = "" '儲存格中單字元的型態判斷結果 (數字,英文,符號,句點,中文,加號,減號)
lnI = 0 '檢查字串使用的Index
lnCount = 0 '一般計數器
lnRet = 0
lnRet1 = 0
lnRet2 = 0
lnRet3 = 0
lnRet4 = 0

'檢查內容值是否為空白
If IsEmpty(Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo)) Then

lcCellType = "空白,"

'檢查內容值是否為數值
ElseIf IsNumeric(Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo)) Then

If (Int(Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo)) = _
CDbl(Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo))) Then

lcCellType = lcCellType + "整數,"

Else

lcCellType = lcCellType + "浮點數,"

End If

If (Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo) >= 0) Then

lcCellType = lcCellType + "正數,"
Else

lcCellType = lcCellType + "負數,"

End If

'檢查內容值是否為日期
ElseIf IsDate(Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo)) Then

lcCellType = "日期,"

Else

'取得儲存格內容並將其左右空白刪除
lcStr = ""
lcStr = Trim(Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo))

'判斷儲存格內容中每個字元的型態
For lnI = 1 To Len(lcStr)

lnChrAscCode = AscW(Mid(lcStr, lnI))

Select Case lnChrAscCode

Case 48 To 57

lcStrCType = lcStrCType + "數字,"

Case 65 To 90, 97 To 122

lcStrCType = lcStrCType + "英文,"

Case 43

lcStrCType = lcStrCType + "加號,"

Case 45

lcStrCType = lcStrCType + "減號,"

Case 0 To 42, 44, 47, 58 To 64, 91 To 96, 122 To 255

lcStrCType = lcStrCType + "符號,"

Case 46

lcStrCType = lcStrCType + "句點,"

Case Else

lcStrCType = lcStrCType + "中文,"

End Select
Next lnI

'進行字串內容檢查

'有沒有英文?
lbHave_Eng = False
lbHave_Eng = InStr(1, lcStrCType, "英文")

'有沒有符號?
lbHave_Mark = False
lbHave_Mark = InStr(1, lcStrCType, "符號")

'有沒有中文?
lbHave_Cht = False
lbHave_Cht = InStr(1, lcStrCType, "中文")

'開頭是否為'+'或'-'?

'找尋字串中是否有','
lnCount = 0
lnCount = InStr(1, lcStrCType, ",", 1)

'如果有逗號則取出第一個逗號前的字串
lcTempStr = ""
If lnCount > 0 Then

lcTempStr = Mid(lcStrCType, 1, lnCount - 1)

Else '如果沒有逗號則取出整個字串

lcTempStr = lcStrCType

End If

'檢查該字串是否等於"加號" 或等於 "減號"
lbHave_HeaderPos = False
If lcTempStr = "加號" Then
lbHave_HeaderPos = True
Else
lbHave_HeaderPos = False
End If

lbHave_HeaderNeg = False
If lcTempStr = "減號" Then
lbHave_HeaderNeg = True
Else
lbHave_HeaderNeg = False
End If

'加號及減號的數量
lnSignCount = 0
lnSignCount = strCount(lcStr, "+") + _
strCount(lcStr, "-")

'進行型態判定

'是否為數值? (不能有英文，不能有符號，不能有中文)
If (lbHave_Eng = False And _
lbHave_Mark = False And _
lbHave_Cht = False) Then

'句點數量?
lnPeriodCount = strCount(lcStr, ".")

'整數,句點數量為0
If (lnPeriodCount = 0) Then

'如果正負號數量為0,則為整數
If (lnSignCount = 0) Then

lcCellType = lcCellType + "整數,"

'如果正負號總數量為1,且有正負號在開頭,則為整數
ElseIf (lnSignCount = 1 And (lbHave_HeaderPos = True Or lbHave_HeaderNeg = True)) Then

lcCellType = lcCellType + "整數,"

End If

'浮點數，句點數量必須為1個
ElseIf lnPeriodCount = 1 Then

'取得句點的位置
lnPeriodPosition = 0
lnPeriodPosition = InStr(1, lcStr, ".")

'當第一個位置不為正負號時，句點不能在開頭
If ((lbHave_Mark = False And lbHave_Cht = False) And lnPeriodPosition <> 1) Then

lcCellType = lcCellType + "浮點數,"

'當第一個位置為正負號時，句點不能在第二位
ElseIf (lnPeriodPosition <> 2) Then

lcCellType = lcCellType + "浮點數,"

End If
End If

'正數或負數?
If (lbHave_HeaderPos = True) Then

lcCellType = lcCellType + "正數,"

ElseIf (lbHave_HeaderNeg = True) Then

lcCellType = lcCellType + "負數,"

Else

lcCellType = lcCellType + "正數,"

End If

Else

'日期:強迫必須符合為'YYYY/MM/DD'如符合此格式的為日期
lcStr = Trim(lcStr)

'取得斜線符號所在位置,

lnSlashPosition1 = InStr(1, lcStr, "/")

If lnSlashPosition1 > 0 Then

lcYYYY = Mid(lcStr, 1, lnSlashPosition1 - 1)

lnSlashPosition2 = InStr(lnSlashPosition1 + 1, lcStr, "/")

If lnSlashPosition2 > 0 Then

lcMM = Mid(lcStr, lnSlashPosition1 + 1, lnSlashPosition2 - 1)

lcDD = Mid(lcStr, lnSlashPosition2 + 1, Len(lcStr) - lnSlashPosition2)

If (Val(lcYYYY) > 0) And (Val(lcMM) > 0) And _
(Val(lcMM) < 13) And (Val(lcDD) > 0) And _
(Val(lcDD) < 32) Then

lcCellType = lcCellType + "日期,"

End If

End If

End If
End If

'如都不符合以上條件,為字串型態
If Trim(lcCellType) = "" Then
lcCellType = "字串"
End If
End If

'去掉字串最後面的逗點
If Mid(lcCellType, Len(lcCellType), 1) = "," Then
lcCellType = Mid(lcCellType, 1, Len(lcCellType) - 1)
End If

'如果為空白，則不做型態檢查，直接By Pass
If lcCellType = "空白" Then

checkTypeAndLength_Cell = True
Exit Function

End If

'依設定的資料型態對儲存格內容進行型態判斷
lnRet = 0
lnRet1 = 0
lnRet2 = 0
lnRet3 = 0
lnRet4 = 0
Select Case tcType

Case "C": '字串

lnRet = InStr(1, lcCellType, "字串")

If lnRet > 0 Then

Select Case tcCompareKind

Case "<=" '小於等於

If Len(lcStr) > tnLength Then

checkTypeAndLength_Cell = False
Exit Function

End If

Case "=" '等於

If Len(lcStr) <> tnLength Then

checkTypeAndLength_Cell = False
Exit Function

End If

End Select

Else

checkTypeAndLength_Cell = False
Exit Function

End If

Case "D": '日期

lnRet = InStr(1, lcCellType, "日期")

If lnRet = 0 Then
'Worksheets(tcSheetName).Activate
'Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo).Select
' MsgBox "第" & CStr(tnRowNo) & "列" & "第" & CStr(tnColumnNo) & "行" & _
' "必須為日期! 請修正!"
checkTypeAndLength_Cell = False
Exit Function
End If

Case "NI": '整數

lnRet = InStr(1, lcCellType, "整數")

If lnRet = 0 Then
'Worksheets(tcSheetName).Activate
'Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo).Select
'MsgBox "第" & CStr(tnRowNo) & "列" & "第" & CStr(tnColumnNo) & "行" & _
' "必須為字串! 請修正!"
checkTypeAndLength_Cell = False
Exit Function
End If

Case "NIP": '正整數 (包含0)

lnRet1 = InStr(1, lcCellType, "整數")
lnRet2 = InStr(1, lcCellType, "正數")

If (lnRet1 = 0 Or lnRet2 = 0) Then
'Worksheets(tcSheetName).Activate
'Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo).Select
'MsgBox "第" & CStr(tnRowNo) & "列" & "第" & CStr(tnColumnNo) & "行" & _
' "必須為正整數! 請修正!"
checkTypeAndLength_Cell = False
Exit Function
End If

Case "NFP": '正浮點數 (包含0)

lnRet1 = InStr(1, lcCellType, "浮點數")
lnRet2 = InStr(1, lcCellType, "正數")

If (lnRet1 = 0 Or lnRet2 = 0) Then
'Worksheets(tcSheetName).Activate
'Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo).Select
'MsgBox "第" & CStr(tnRowNo) & "列" & "第" & CStr(tnColumnNo) & "行" & _
' "必須為正浮點數! 請修正!"
checkTypeAndLength_Cell = False
Exit Function
End If

Case "NIP_NFP": '正整數或正浮點數 (包含0)

lnRet1 = InStr(1, lcCellType, "整數")
lnRet2 = InStr(1, lcCellType, "正數")
lnRet3 = InStr(1, lcCellType, "浮點數")
lnRet4 = InStr(1, lcCellType, "正數")

If (lnRet1 = 0 Or lnRet2 = 0) And (lnRet3 = 0 Or lnRet4 = 0) Then
'Worksheets(tcSheetName).Activate
'Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo).Select
'MsgBox "第" & CStr(tnRowNo) & "列" & "第" & CStr(tnColumnNo) & "行" & _
' "必須為正浮點數! 請修正!"
checkTypeAndLength_Cell = False
Exit Function
End If

Case Else '沒有指定正確的資料型態，將會出現此狀況!需要修正程式

'Worksheets(tcSheetName).Activate
'Worksheets(tcSheetName).Cells(tnRowNo, tnColumnNo).Select
'MsgBox "第" & CStr(tnRowNo) & "列" & "第" & CStr(tnColumnNo) & "行" & _
' "VBA程式中未指明資料型態! 請修正程式!"
checkTypeAndLength_Cell = False
Exit Function
End Select

'通過檢查
checkTypeAndLength_Cell = True

End Function

VBA-RANGE物件重點

2012-01-25T18:17:00.000-08:00

預先定義一個RANGE變數，方便以下表達。

Dim R as Range

以下記錄有關VBA中RANGE的重要屬性及用法.

* R.Row　'代表該Range中最左上角儲存格，對應到其所屬Sheet中的儲存格列號(如：1,2,3,...)

* R.Column '代表該Range中最左上角儲存格，對應到其所屬Sheet中的儲存格之行(欄)號

(如：A,B,C,...)

* R.Rows.Count '代表該Range列的數量

* R.Columns.Count '代表該Range行的數量

快速飆升英語能力的技巧

2012-01-25T17:27:00.000-08:00

以下是我朋友提供的關於提高英文程度的文章，內容相當有參考價值，與之分享。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

本文作者三年間從四級勉強及格到高級口譯筆試210，口試232。找工作面試時給其口試的老外考官聽了一分鐘就說你的英語不用考了。雖不敢說方法一定是最好的，但從現在開始隨便誰不要再去找學習資料，每天花兩個鐘頭照說的做，堅持三個月的提高會超過你過去三年。

聽:

網上比較有代表性的論壇是普特www.putclub.com上面的聽力資源很豐富，滬江www.hjenglish.com和旺旺www.wwenglish.com上一些材料的也很不錯，從中間隨便挑一個網站堅持即可。但是千萬不要一個個都聽過來。記住，開始階段100篇文章聽一遍，不如一篇文章聽100遍。如果基礎比較弱，那麼每天慢速VOA（大概比四級聽力稍難一些）聽兩篇，每篇10遍以後再看原文，弄清楚每個單詞的意思，看完以後再聽10遍以上。保證兩周以後你回去聽四六級聽力會很不耐煩。過了慢速就可以聽常速了，還是精聽為主泛聽為輔。

常速還不過癮，可以去找talkshow來聽，譬如Saturday Night，在優酷或者土豆上都有。

不要問這樣做有沒有效果，我堅持了三個月，以後看美劇大部分時間不需要看字幕。

順便說下論壇的作用，上論壇不要問這個詞什麼意思這類低級問題，不要指望別人替你查字典，別人的時間也是時間。但是一個句子弄不懂，就不要自個兒糾結了，儘管去問。另外要懂得投桃報李，有能力也儘量去回答別人的問題，教學相長。

說:

說起來很奇妙，我起初也只是打算先過聽力關，按照上面的步驟堅持了3個月，不過在聽的同時跟著讀，後來因為聽的太爛太無聊，會跟著錄音一起背，兩個月下來發現開口說英語變成了很自然的事情。回頭來看，英語的口語真的是看似入門很難，但是真的進去了也就那麼回事。不過高口訓練的英漢對譯還是很有用的，實際上拿新概念的材料就可以做，無非是看這英文說漢語看著漢語說英文，然後再對照原文進行糾正。

再強調一下，我不是生來語言高手，四級考了兩次，現在周圍人覺得我英語很牛，實際上只要我的方法誰都能學會，看你能不能堅持。

讀:

讀的一個基礎是單詞量，單詞不夠的話讀書是痛苦不是享受。四級單詞是最最最起碼的要求，有了四級基礎，語法還湊合的話，建議直接看上國外報紙網站看文章，建議看經濟學人，www.economist.com，或者紐約時報www.nytimes.com每天不要看多，看一篇就夠了。開始碰到生詞會很多，感覺很難受，但是一定要堅持，碰到所有不會的單詞，都要記下來弄懂。

碰到不會的單詞怎麼辦，查穀歌字典http://dict.google.com，或者韋試辭典的線上版www.merriam-webster.com/

單詞如果今天記住明天忘怎麼辦，最簡單的辦法，找本專門的本子記下來，不要大本子，要可以隨身帶的那種；如果能經常上網，也可以試一下一起背單詞這個網站www.17bdc.com，可以讓你線上背單詞，跟本子比最大好處就是不怕學習記錄丟了，而且它有記憶曲線的功能可以提醒你復習。

再說一點，英語閱讀材料中，最簡單的是專業文章，其次是新聞，最難的是小說。我花了一年多時間就毫不費力的可以讀懂紐約時報，但是很久以後才能勉強讀完Da Vinci Code。但是真的讀完一本幾百頁的小說，帶來的成就感是讀幾篇文章難以比擬的。

寫:

這個其實要看個人目標了，如果是達到和他人書信email交流的目的，其實前面3個步驟下來，寫已經完全不是問題了。

如果還要追求文筆，可以去看看華爾街日報中文版http://www.cn.wsj.com/上的雙語內容，可以通過比較來學習如何用於英語來進行正確和優美的表達。另外譯言www.yeeyan.com也是不錯的選擇。

這些網站是從網上找來的，希望大家好好利用：

1.http://www.texun.cn/addrso/index.htm特訓網：English Learning Websites
2.http://broadcast-live.com/Live Radio and TV from Around the World
3.http://www.nxenglish.com/voa01_1.aspxVOA Special English Introduction
4.http://www.vocaboly.com/vocabulary-test/Various Vocabulary Test online
20-40 quick- medium – thorough different levels of test
5.http://www.tomx.com/listen/vocabulary/1402.htmlVOA Special English Vocabulary 1500
6.http://tv.etshow.net/ETSHOW 網路電視其次推薦我和同事們一起收集的網址：（特別要強調一點：希望大家對這些資源要取之，學之，用之！因為If you don’t use it, you will lose it!）
adventuretv,提供視頻資料，內容多是各地的風土人情，很不錯：http://www.adventuretv.com/
紐約時報，網上看新聞的好地方http://www.nytimes.com/
英文MP3下載的好地方http://www.mp3raid.com/archive/archive/m/2/
英文劇本下載的好地方http://huajun.com/juben.htm
一個個人主頁，從這裏可以線上收聽新東方的25盤磁帶http://www.intron.ac/study/toefl.html
英文鎖定，每日讀圖http://www.icansay.com/index.php?ChannelID=12
英文鎖定，綜合學習網站，全面的英語教堂www.icansay.com
旺旺英語網，英語語音電子雜誌www.wwenglish.org
Englishtown ，專業英語培訓www.englishtown.com
新東方網路課堂，名校線上 class.tol24.com
瘋狂英語俱樂部，李陽瘋狂英語www.crazyenglish.org
天英語，辭彙中心 english.chinaschool.net
時尚英語，豐富的學習資料www.oh100.com/huayuan/english
當當當，免費英語學習資料www.downdowndown.net
英語時空，英語文章大全www.yysk.net
英語麥當勞，英語教學速食 english23.6to23.com
聽世界，各級聽力訓練www.icanlisten.com
Be Beyond，英美風土人情www.bebeyond.com.cn
洪恩，英語學習的好去處www.hongen.com
空中美語http://www.englishtide.com
英國教育部和中國教育部聯合搞的免費學習網站，適合初學英語者http://www.in2english.com.cn/
GARFIELD官方網站www.garfield.com
語法http://www.dailygrammar.com/
大量的資料﹐非常不錯http://www.english.ac.cn/
無憂雅思http://211.147.1.40;
雅思的官方網站http://www.ielts.org/
雅思考試網東西不多http://www.ieltsnet.net/index.htm
關於雅思的一些資料http://www.rotolife.com/cgi-bin/newarticle/list.cgi?class=1&type=4;
英文電影劇本站專題提供14部電影英文劇本http://snowbear.3322.net/spelling/film.htm
提供了24部英文電影劇本http://www.c2000.com.cn/mov/m4.asp
提供了10部英文電影劇本http://goldnets.myrice.com/navi/50250.html
子曰電影網的電影劇本下載太多了http://www.ziyue.com/downloads/s.php?type=s|http://www.21zx.net/movie/m4.htm
銀海網下載電影劇本好多啊http://www.filmsea.com/download/_index.asp?swzm=a
Screenplay電影劇本http://www.babelcn.com/ebook/screen/index1.htm
這裏的囊括了現在流行電影的劇本http://www.english.ac.cn/movies/playwright.htm
一個教育網站提供的英文劇本下載http://www.dreamabroad.net/chinese/html/download/movie_01.html
看電影學英語http://211.154.143.185/gate/gb/www.chenhen.com/html/english/speech/movie-english.htm

聽力專題
一個很不錯的英語學習網站，VOA資料很全http://zflyingbird.myetang.com/index.htm
http://www.quancheng.org/tabwork/catelist.asp?cateid=23一些VOA新聞的文本
http://www.icanlisten.com/standard_english/index.htm有一部分聽力
http://www.englishabc.net/ae/《美國習慣用語 Words & Idiom》是Voice of America推出的免費廣播講座

http://mpfree.org/english/voamain.htm自由MP3的VOA資料下載不少哦
http://edu.china.com/zh_cn/elearn/second/test/index.html中華閘道於VOA的聽力技巧的一些文章，當然也有別的好東東
http://www.cgeng.com/memberarea/listen/listen.asp很不錯的聽力網站，有初級中級高級
http://www.22av.net/免費的聽力新聞，帶文本
http://www.xsrtvu.com/jiao/lgs/wangye/VOA1.htmVOA 英語廣播收聽技巧聽VOA的朋友可以看看
http://www.100steps.net/newsshow.php?serial=311&good=％CA％C7 2002年全國碩士研究生入學考試英語聽力樣題錄音下載
http://www.xsrtvu.com/jiao/lgs/wangye/VOA1.htmVOA英語廣播收聽技巧很不錯的技巧文本

http://www.english.ac.cn/listen/index.htm超酷的英語聽力站，也是個老站點了，有如下內容:新概念英語聽力入門現代文閱讀 ESL-Lab分級測試 CNNSF新聞測試《聖經》線上，強烈推薦

http://putclub.6to23.com/普特英語聽力網站

http://www.oeol.net/“牛津英語線上” （ Oxford English On line ）

http://www.putclub.com/英語新聞聽力Put English Club,網站主要由五個部分組成： A. 新聞英語；B. 英語教程；C. 資料下載； D. 科技英語； E. 普特論壇

通用英語百句(視頻)***http://www.ol.com.cn/class/train/english.htm

CNN英語學習資源*****http://literacynet.org/cnnsf/

現代交際英語(視頻)****http://www.gz.supergnet.com/local_content/zhang/edu/index.html

上善若水

2012-01-25T17:21:00.001-08:00

我讀大學時，曾修習老子道德經的部份章段，我最喜歡的一段是：

『上善若水。水善利萬物而不爭，處眾人之所惡，故幾於道。居，善地；心，善淵；與，善仁；言，善信；政，善治；事，善能；動，善時。夫唯不爭，故無尤。』

白話解釋如下：

最善的人好像水一樣。水善於滋潤萬物而不與萬物相爭，停留在眾人都不喜歡的地方，所以最接近於“道”。最善的人，居處最善於選擇地方，心胸善於保持沉靜而深不可測，待人善於真誠、友愛和無私，說話善於恪守信用，為政善於精簡處理，能把國家治理好，處事能夠善於發揮所長，行動善於把握時機。最善的人所作所為正因為有不爭的美德，所以沒有過失，也就沒有怨咎。

『水』，有許多美好的特質～

* 他謙虛低下：正所謂水往低處流，眾人不想去的，水去，眾人不想做的，水做。

* 他無形：能容於世界任何地方，你把他倒入方杯，他就是方的，你把他倒入圓杯，他就是圓的，他能包容所有的不同，海納百川，有容乃大，水，看似沒有鮮明的特色，但『包容』卻是他最鮮明的性格。

* 他有毅力且堅忍：滴水穿石，看似無力，實則堅忍不拔，終能成事。

* 他柔軟：看似柔弱，實則有如四兩撥千金之勢，千軍萬馬之姿，剛強，不能持久，柔軟，不易折斷，此乃柔弱勝剛強之道。

* 他聖潔奉獻：水，污染自身而洗滌他物，滋養大地而不求回報。

老子的這段話給我很深的影響，直至今日，我都崇尚著『水的精神』，不去爭什麼，只知道努力做好自己的本份，如有餘力，盡量協助他人，沈穩平淡、堅守品德、從容處事，其中蘊涵『無欲則剛』的智慧，這樣的態度，反而得到眾人的肯定，這就是『水的力量』，一種特殊的人格魅力。

如何讓台灣的未來更好

2012-01-25T17:20:00.000-08:00

"如何讓台灣的未來更好" 看看各政黨提出的施政規劃，試想如果我們是國家領導人，我們會怎麼做? 我在大陸工作多年，更發現台灣的好，民主，真的很可貴，台灣真的是個好地方，台灣的未來需要你我共同的努力，雖然我們的力量可能微不足道，但這種微力，是讓台灣更好的元氣，讓我們給台灣加油打氣。

新大秦帝國觀後感

2012-01-25T17:18:00.001-08:00

半年前，看完電視劇『新大秦帝國』，對秦孝公及商鞅有些認識，秦孝公及商鞅身上都蘊含著深刻的人格魅力。

良禽擇木而棲：

　　商鞅如不在秦孝公下任事，也許就沒有商鞅變法，在如今公司裡，自己執行的政策得不到上司的全力支持，終將以失敗告終。

法治讓一個組織體井然有序：

　　商鞅深知，人治不如法治，如遇千古聖君則國強大，反之則國弱小而衰亡，法治正讓組織步入常軌而運作，不需人治亦能生存。

法由誰訂定?

　　皇權專制，皇權說的算，民權主義，全民製訂，身處民主台灣，感覺十分幸福。

千古規律? 武力是最後爭取資源的手段?

　　在秦國，商鞅依靠皇權制定秦法，皇權依靠武力建立威信，如沒武力，是否沒有秦法?時至今日，我雖未經歷戰爭，但國家還是有軍隊，世界各國還是有武力暗自較量，只因現今身處自由經濟貿易社會，用武力征服的土地，對於一個國家而言，還不如經濟貿易得到的益處，在這恐怖的平衡中，沒有出現戰爭而已，但每個個體的最後防線，看來似乎還是『武力』。　　

黃董的人生哲理 Part 1

2012-01-25T17:16:00.001-08:00

今天出差到苗栗一家中小企業進行軟體系統維護，是老客戶了，這公司的董事長人

很不錯，待人和善，樂於與人分享成功經驗，呵呵，其實小弟我，早上花兩個小時

就己經把維護的系統維護完了，但。。。。呵呵。。。。這位熱心的董事長，跑來

跟我聊天了，他關心我們年輕人，希望能分享一些人生經驗給我們，哈，這一聊，

不小心就到傍晚該吃晚餐的時間了。

這位董事長國中畢業，年約60，目前從事的是機械設計及加工業，這就是我們眼中

正宗所謂『國小沒畢業，事業功成』的那種典範型人物。

我對成功的定義是，每天在自己的生命中，不管大事小事，下正確的決策，並踏實

執行，達到自己想要的目標。

人都說，成功人士的思考方式與一般人的思考放式有些不同之處，這就是為什麼他

們會成功的核心原因，所以多與這種成功典範型人物交流，從中應該能有許多獲益。

在多次與這位董事長交流的過程中，發現他真是個怪ㄎㄚ，很多思考模式都跟我有

所不同，在這其中我發現了幾個特質重點：

1.用心體會，感悟人生：這位董事長，很會說話，對於各樣的人事物，總有自己的

看法，他喜歡寫心記，把每天所做所想，記錄下來，我想這部份就是造就他思考力

如此發達的原因，對於人事物，每個人都也許有不同的看法，但我相信有更多的人

是依靠『習慣』在做事情、下決策，依據牛頓第一運動定律說明，一個物體在不受

外力干擾的狀況下，會維持他原本的狀態，靜者恒靜，動者恒動，這稱為『慣性定

律』，人在沒有思考的狀態下，我們所下的決箱，往往是依我們的『慣性』在進行，

如果這個慣性是讓你通向人生成功的道路，那恭喜你很幸運，但如果這個慣性是帶

你到萬劫不復，那大概也很難有人救得了你，所以我在他這個習慣中看到了，我們

要養成反思的習慣，在人生過程中，多做思考，多去感悟，不需要盲從，走自己認

為對的路，走自己認為有意義的路，而反思，使用每天寫日記的習慣，是種很好的

訓練方式。

2.喜歡看『辭海』:我問他，董事長，你平常看書嗎? 平常看什麼書? 他說，他看『

辭海』，這個答案很酷，我現在還沒有想的太清楚，喜歡看辭典的的習慣，跟成功

的關係是什麼? 是不是在這文字句之間，有種『定義』的特性，這部份習慣延申到

他待人處事都有清楚明確的『定義』，由小事情的定義，累積成大系統，他跟我說，

你知道，鐵鎚有幾種用法? 他說，有三種，『敲』『打』『鎚』，他問我，知不知

道這三種用法的分別? －＿－！！！呃，當場臉上三條線，我心想，這三件事不是

一樣的嗎? 但這位董事長，給我對『敲』『打』『鎚』做了嚴格的定義，我聽了他

的說法，我非常清楚這三者的不同，這樣的好處是，往後在做事情，可以很明確的

定義事情的處理方法，便於交流及教育訓練。

在與之交流的過程中，看出他的道行很深，不管是對事業上，待人上，處事上，對

人生的態度及看法上，都有許多與常人不同的思考，他的論點，有他獨道之處，很

值得參考，但這是他的生活，他的感悟，我覺得在接受這些論點之後，我們還得在

思考之後，得出自己的看法。

人會成為什麼樣的人? 源於思想，思想決定行動，行動決定命運，如何有好的思想，

如何能有受到自己認可經營出來的思想? 一是與人交流互動，腦力激盪，一是多讀

好書，這兩種方式，是為了要多聽聽多看看別人的世界，別人的生活，對這個世界，

對自己的人生，有更多的了解與體悟.

VBA-檢查某欄位所有儲存格內容是否含有空白

2012-01-25T08:30:00.001-08:00

Rem <summary>
Rem 檢查某欄位所有儲存格內容是否含有空白
Rem <param name="toDealColumn">目前游標所在欄位(Range物件)(例:Sheet1.Range("A:A"))</param>
Rem <param name="tnColumnCount">本Sheet包含的欄位數量</param>
Rem <returns>True:通過檢查,False:未通過檢查</returns>
Rem </summary>
Public Function checkColumnBlank(toDealColumn As Range, tnColumnCount As Integer) As Boolean

'尋找toDealColumn對應之工作表的最後一個含有內容(非空白也非Null)的列號
Dim lnLastUsedRow As Integer

'先撈出整個工作表曾經被使用過區域的最後一列編號
lnLastUsedRow = Worksheets(toDealColumn.Worksheet.Name).UsedRange.Row + _
Worksheets(toDealColumn.Worksheet.Name).UsedRange.Rows.Count - 1

'找尋每個欄位在工作表中曾經被使用過區域中最後一列之前最後一個含有內容(非空白也非Null)的列編號集合,取此集合之最大值
Dim lnI As Integer
Dim lnMaxRowNo As Integer '每個欄位在工作表中曾經被使用過區域中最後一列之前最後一個含有內容(非空白也非Null)的列編號集合之最大值
Dim lnRowNo As Integer
lnMaxRowNo = 0
For lnI = 1 To tnColumnCount

'取得每個欄位由第一列到『整個工作表曾經被使用過區域的最後一列(再加1)的編號』的Range
Set loDealColumnSubSet = _
Range(Worksheets(toDealColumn.Worksheet.Name).Cells(toDealColumn.Row, lnI), _
Worksheets(toDealColumn.Worksheet.Name).Cells(lnLastUsedRow + 1, lnI))

'在此Range中找到本欄最後一個含有內容(非空白也非Null)的儲存格
'Set result = loDealColumnSubSet.Find(What:=Null, After:=loDealColumnSubSet.Rows(lnLastUsedRow), _
' SearchOrder:=xlByRows, SearchDirection:=xlPrevious)

'尋找此Range最後一個含有內容的Cell
lnRowNo = 0
lnRowNo = toDealColumn.Row + loDealColumnSubSet.Cells(loDealColumnSubSet.Rows.Count, 1) _
.End(xlUp).Row - 1

'如果有找到內容非空白也非Null的儲存格式,取得此儲存格的列編號
'If Not result Is Nothing Then
' lnRowNo = result.Row
'Else
' lnRowNo = 0
'End If

'記錄列編號集合之最大值
If lnRowNo > lnMaxRowNo Then
lnMaxRowNo = lnRowNo
End If
Next lnI

'取得指定欄位第一列到第lnMaxRowNo列的Range
Set loDealColumnSubSet = _
Range(Worksheets(toDealColumn.Worksheet.Name).Cells(toDealColumn.Row, toDealColumn.Column), _
Worksheets(toDealColumn.Worksheet.Name).Cells(lnMaxRowNo, toDealColumn.Column))

'在此Range中由最後一列向上尋找為Null的儲存格
Set result = loDealColumnSubSet.Find(What:=Null, After:=loDealColumnSubSet.Rows(lnMaxRowNo), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious)

'如果找到了Null的儲存格,提示User並跳到該儲存格
If result Is Nothing Then
Else
Worksheets(toDealColumn.Worksheet.Name).Activate
result.Select
MsgBox "第" & result.Row & "列" & "第" & result.Column & "行" & _
"不可為空白! 請修正!"
checkColumnBlank = False
Exit Function
End If

'驗證通過,未包含空白
checkColumnBlank = True

End Function

VBA-將所有沒有內容的儲存格中的『空白』刪除

2012-01-25T08:28:00.001-08:00

Rem <summary>
Rem 將所有沒有內容的儲存格中的『空白』刪除
Rem <param name="tcSheetName">Sheet名稱</param>
Rem <returns>True:通過檢查,False:未通過檢查</returns>
Function clearCellBlank(tcSheetName As String) As Boolean

'取得指定Sheet己使用的區域
Dim myRange As Range
Set myRange = Worksheets(tcSheetName).UsedRange

'刪除曾經有被使用過的區域中只有『空白』的儲存格
Dim lnI As Integer
Dim lnJ As Integer
Dim lnStartRow As Integer
Dim lnStartColumn As Integer
Dim lnRowCount As Integer
Dim lnColumnCount As Integer

lnStartRow = myRange.Row '曾經有被使用過的區域的第一列
lnStartColumn = myRange.Column '曾經有被使用過的區域的第一欄
lnRowCount = myRange.Rows.Count '曾經有被使用過的區域的列數量
lnColumnCount = myRange.Columns.Count '曾經有被使用過的區域的行數量

For lnI = 0 To lnRowCount - 1
For lnJ = 0 To lnColumnCount - 1

'如果儲存格為空白,則將空白去除,改為Null
If (Trim(Worksheets(tcSheetName).Cells(lnStartRow + lnI, lnStartColumn + lnJ)) = "") And _
(Not IsNull(Worksheets(tcSheetName).Cells(lnStartRow + lnI, lnStartColumn + lnJ))) Then

Worksheets(tcSheetName).Cells(lnStartRow + lnI, lnStartColumn + lnJ) = Null

End If

Next lnJ
Next lnI

End Function