2013年3月14日 星期四
地理景觀對建築物及居住者運勢的影響
冰箱放對位子，財運自然來！
冰箱如古時的倉庫，倉庫宜設煞方、忌吉方，倉庫門不可對向大門、廁所門及後門，否則會漏財。倉庫內堆放的東西也不可太多、雜亂無章，所以冰箱內不可堆放太多東西，但也不可太少，總要適可夠用為宜。
顧名思義就是風和水，風水是指與環境、大自然的關係，以及地理景觀對建築物及居住者運勢的影響。如經常走動的房間如客廳、臥室、餐廳與廚房最為重要，更要安排在適當的位置。
簡單的說，當氣流通平穩順暢就是好的風水，而當氣停滯或是流通得太快時就是不好的風水。就是要藏風聚氣，而不是風吹氣散。風水是一門與土地和諧共處的藝術，若是適時適地的運用，就能帶來莫大的好運、安康及財富。
【客廳風水】
是陽宅風水中最重要的一環。一個家庭整體宅運的吉凶，無論是事 業升遷的順逆、運數的高低、家人財運的好壞、夫妻緣份的深淺、子女讀書 、考試的運勢、健康狀況是否正常，大抵均由客廳風水所決定。足見客廳風水，乃陽宅風水的「核心」，其重要性當然無與倫比。
第1招 方位：
客廳最好位於住家的前半部靠近大門的位置，以便直接吸納從大門進入的氣。如果必須經過一條走廊才能到達客廳，那麼走廊一定要保持整潔，而且照明一定要充足，以免阻礙氣進入客廳。如果是夾層屋設計，客廳應位於下層。
第2招 格局：
客廳的格局最好是正方形或長方形，座椅區不可沖煞到屋角，沙發不可壓樑。如果有突出的屋角放出暗箭，可擺設盆景或傢俱化解。如果客廳呈Ｌ形，可用傢俱將之隔成兩個方形區域，視為兩個獨立的房間。
第3招 調整家飾：尖銳的物品，例如刀劍、火器、獎牌、動物標本，都不應該掛在牆上。因為這些物品都會產生陰氣，導致爭吵或暴力行為。同樣的也應避免擺設有陵角的臺燈或裝飾品。
第4招 風水擺設：客廳的擺設主要是看居住者的生活方式和審美觀而定。最好是請教專業風水師。任何風水吉祥物的擺設都要依據人生八大卻求及個人本命卦的方位。
第5招 色彩：客廳的主色並非風水佈置的主要因素。最重要的是格局和五行的生剋所達成的能量平衡。例如，客廳若位於住宅的西南或東北方位，應用黃色係；如果位於東南方或正東方，應用綠色係；位於北方，應用藍色係；位於南方，應用紅色係；位於西北方或西方，應用白色、銀色或金色。
第6招 正東，綠色→健康運：正東方位關係著居住者的健康。在這個區域放置茂盛的植物可促進家人的健康和長壽。
第7招 正西，銀色→子孫運：正西方關係子孫運勢，五行屬金，喜用色是白色、金色和銀色。金屬雕刻品、六柱中空金屬風鈴、電視和音響都很適合擺在此區域。
第8招 正南，紅色→聲名運：正南方位佈置好風水會為家庭帶來聲名和肯定，特別是負責生計的家長。正南方屬火行，喜用色是紅色。。如果一定要在這個位置擺鏡子，務必要擺一面小鏡子，因為鏡子屬水，而水會滅火，對聲名運勢不利。
第9招 正北，黑色和藍色→事業運：檢查客廳正北方位的佈置。正北方代表事業運，屬水行，喜用色是藍色或黑色。在這個方位放置屬水的物品對居住者的事業運有幫助，例如魚缸、山水畫、水車等。
第10招 東北方，黃色→文昌運：有小孩正要參加考試，最好注意這個方位的風水佈局。這個區域屬土，喜用色是黃色和土色。陶瓷花瓶等屬土的物品適合用來增強這個區域的能量。
第11招 西北方，白色→文昌運：強化客廳西北方位的能量，有助於增加貴人運和人際關係。這個區域屬金，所以適合擺放白色、金色或銀色的金屬飾品，例如金屬雕刻品或金屬底座附白色圓形燈罩的檯燈。
第12招 東南方，綠色→財運：客廳的東南方代表一個家庭的財位。五行屬木，喜用色是綠色，所以在這個方位擺設屬木的物品可有招財效果，其中又以圓葉的綠色植物效果最好。絕對不要擺乾燥花，因為陰氣太重。此處也很適合擺魚缸，因為水能養木，要注意魚缸大小應和客廳空間搭配，過大或過小都不相宜。
第13招 西南方，黃色→桃花運：如果想增進婚姻或戀愛運勢，那麼客廳這個方位最為重要。西南方位屬土，催化的的方法與東北方相同。在此處放置吊燈式的檯燈可增加能量，促進夫妻關係合諧；天然水晶和全家福照片也有相同效果。
第14招 不宜陰暗：客廳風水首重陽光充足、燈光明亮，明亮的客廳主家運旺盛，一切如意。客廳不宜選擇太暗的色調，以免帶來黯淡的家運。陽台上不宜擺放太多、太高或太濃密的盆栽，以免阻礙光線。
第15招 地板不宜高低不平： 廁所是供人排泄的地方，容易產生穢氣和濕氣，正對房門會對臥房的空氣產生影響，有害身體健康！
第16招 不宜入門先見餐廳：入門便見餐廳，不但易使家人貪食重吃，志向難以遠大，在外易犯小人，甚至使人喪失奮鬥的目標及生命的理想。
第17招 大門不宜穿堂直出或直對衛浴：大門穿堂或對衛浴，都會損害家人的財運，使人財進財出，或理財投資出錯。因此，最好用屏風或櫥櫃隔開，以便轉運而迎祥納福。
第18招 對角不宜掛鏡子：對角安鏡，容易阻礙家人的運勢；財運不濟、破財傷身，意外災禍頻生，甚至貴人喪盡，機會流失。
第19招 不宜在屋內擺放假花假草：有些家庭喜在客廳中擺放許多假花假草，表面上看來雖然賞心悅目，實際上卻易帶給男女主人較重的桃花或婚姻問題；況且更易帶給家中未婚成員婚姻上的阻礙；容易引來虛情假意或遇人不淑的氣運，甚至影響家人的財運、使人投資理財判斷失誤，造成財運不濟的現象。
第20招 不宜塞滿骨董、家具或雜物：客廳如塞滿骨董、家具或雜物，則容易影響家人健康，使人氣血不通，健康衰敗，諸事不順心，影響家人的健康。
【臥室】
是家中最重要的房間之一，良好的臥室風水可帶來健康的身心和美滿的婚姻，臥室首先重視足夠的能量，以營造適合休息與睡眠的空間，臥房一定要收拾整潔，否則會聚積穢氣。
第1招 臥室的格局：臥室格局要方正，不可有缺角。如因浴室之故而成L形的臥室就會出問題，缺角會阻礙氣的流動，牆角正對向床舖，更是禁忌。臥室最好是長方形或正方形為宜。
第2招 床的方位：臥室風水最重要的就是床的位置。床不能擺在窗戶下面，會有失去依靠的感覺。床尾不可正對臥室門。臥床應該有堅固的床頭板，而且要靠牆擺，使你的生命有穩固的靠山，不過牆的另一邊不可是浴室。
第3招 床的樣式：床的樣式也要方正。避免使用水床或圓形床。夫婦應睡雙人床，分床而睡或一張床上擺兩個床墊都會造成夫妻失和。
第4招 門向：臥室的門不可與廁戶或其他的門對沖。解決的方法是在廁戶懸掛門簾，以阻隔煞氣。
第5招 鏡子的禁忌：鏡子不可反射到床。鏡子反射到床會妨礙睡眠。長期受到鏡子照射還會導致健康問題以及夫妻失和及外遇的情況。
第6招 避免沖煞：尖銳的牆角、櫃角和其它傢俱的尖角會產生煞氣，要特別當心不要與床舖對沖。應避免使用有尖角的燈罩，應該用圓形的燈罩。吊燈或吊扇不可設置在床舖的正上方，因為會妨礙睡眠。
墳墓風水可斷家人【絕密】
算命好好玩 2012/03/20 21:50
一、出瞎子地-
1，墳墓上長有帶刺的樹，將墳罩住，堂中後人多出眼病之人，因為樹根紮進棺墓，纏繞骨骸出瞎子。-
2，墳墓的向位在正南，西南，東南方向，如有群山，高大建築物，大的河流做案山，多出眼病，晚年有瞎子出現。-
3，墳墓向前有別人家的墳墓，和此墳墓構成一條直線者出瞎子，如果偏左出男人眼睛多病，偏右者出女人眼睛多病。-
二、出拐丐地-
1，墳墓不管朝向如何，在四角之位上，如有拐角路，出拐丐之人，如有大路是拐角路距墳較近，也出拐丐之人。-
2，如果有河流從向前斜射而過，叫割腳水，水大出拐丐之人，水小出傷腿之人。-
3，墳墓的護砂上有小坑，常年積水，也出拐丐之人。-
4，向前的直路從墳前通過，名叫討飯棍出乞丐，堂中還會出腿病之人，這種腿病多數出以車禍、橫禍。-
三、出啞巴地-
1、墳後有別人家的墳墓和墳構成一條直線，別人家的墳葬的早，葬的晚者十八年後出啞巴。-
2、不管墳向如何，在艮宮位上如有古井、深坑家中多出男性啞巴，如在坤方有深井，出女性啞巴，多出在少女身上。-
3、墳墓向前如有小河流，在向前分叉，家中出啞巴（多出在山地）。-
四、出聾子地-
1、靠山後淋頭水出聾子，緊靠山峰下來之水直沖墳墓，水流帶有響聲，有震耳的感覺，堂中出聾子。-
2、不論墳的朝向，如果在乾艮方位有巨大的深坑、窪塘、護砂出現深坑，出五種人，即：瞎子、聾子、獨眼龍、拐子、頭禿、並且多數絕後。-
五、出歪子地-
明堂前案山歪斜，山勢向兩個明堂傾斜，傾斜後不自正路，堂中人多數走路歪斜，百分之九十的男性個頭大，兩腳歪斜，數年後還出現女人腿腳歪斜。詩曰：山水不正，出人歪腚。-
六、出禿子地-
1、明堂前魚鱗水，旱天沒有水，雨天有水，左邊有出男禿，右邊有出女禿，左右都有出男女兩禿之人。-
2、墳墓葬在白鹼地上，如果土色純白象石灰一樣，出禿子，如果土稍帶有雜色，出毛髮稀疏之人（如果發現全是白鹼地，堂中已經出貴人了，並且臉色白，個不高，體態胖，文憑高）-
七、出傻子地-
1、明堂前有口風，距離墳 十五米 以內，家中出傻子或神經病，巫婆、神漢。-
2、墳墓常年在陰暗角落裏，被樹木或高大建築罩住，容易出憨傻之人。- 3、樹根滿棺、螞蟻出現，也出憨傻之人。-
八、女人私奔地-
1、墳前左右和靠山後，如有反弓路，主出女人淫邪，跟他人私奔。-
2、墳墓向前，如果水形是反弓，河流汪堂水成反弓形，主女主人逃離家鄉，水大者還會出現妻殺夫。-
3、不論向口朝哪方，有泱泱大水，如巨大河流、湖泊、溝塘，家中都容易出女人不正或者家亂，還會出現子少花多，詩曰：茫茫大水攔面掃，必然家中貴子缺。-
4、向前明堂水向不同兩個方向流去，叫八字水，主女人邪淫。詩曰：向前八字水分流，多主夫妻不到頭，財產蕩盡小口死，家敗人亡怨此由。-
九、壽數不齊地-
1、墳地地形長短不齊，一方長一方短，如果不齊之處又在向前，左邊長女人早死，男人高夀，如果地的缺陷占整個地面三分之一，男人將連連換妻。如果是左邊短，右邊地長，女性高夀，但多數是半生守寡。如果大過地的三分之一，將出現滿堂短壽。-
2、墳地地塊左右兩膀不等，差距太大，出男女壽數相差太大。-
3、後靠山不齊，一方砂高一方砂低，高矮不齊，也會出現壽數長短不齊，詩曰：案山一般齊，男女登仙地。-
十、出肝病地-
1，墳向前如有凸起的土包，成雞蛋形，家中多出肝病之人，多數是肝腹水而死。這也叫頂心砂，傷成材之子，還會出現寡婦。-
2，墳墓前有小坑窪，小水流都出肝病之人。-
十一、出肺病地-
墳墓向前，有巨大的深坑，長年存水，不流不幹出肝肺病之人。-
十二、出腎血病地-
墳墓向前，一至 五米 有巨大的深坑，長年存水不流不幹，不論向位朝哪，只要有這種坑就出腎病。如果在坤宮婦女長年有病，在乾宮老父久病，在艮宮小兒個個有病，在震方出現被雷電擊死之人。詩曰：東方為震震為雷，雷公閃閃舉神錘，東方要有深坑在，子孫後代吃盡虧。-
十三、出頭腦病地-
1、墳墓的向後如有三角形的尖刀路，堂中多出現腦病之人，河流坑也一樣，有路為刺腦箭，有水、小河，坑為砍頭水。
2、墳墓向後有直長小路或大路叫砍頭路，家中會出現因腦病而死亡之人。如果路從墳墓上而過，或壓墳墓一半，為砍頭起腦，不但有腦病，而且家中會出現凶禍死亡，出車禍、槍打死之人。-
3、墳墓後古井，土井、機井也會出現頭病之人，如果有小路從井跟前經過，會出現二十至三十歲連續死亡的青年人（井為耗盡龍脈，貴氣外露），這叫踏破化石腦，傷成年人。-
十四、家中淫亂地-
向前地形連續高起，靠山後地勢低窪（指平原地），向前之水通過墳地左右膀，向墳後流去，這種水叫卷廉水。詩曰：為墳要見前卷廉，家中淫亂不堪言。公爹抱著兒媳睡，侄抱小姑坐堂前，又詩：墳前水墳後流，其家盡出扒灰頭。-
十五、腰腿疼痛地-
1、向前左右方，如有人行小道，斜插而過，家中會出現腿疼腰傷之人。
2、對面山上如果有破碎的石坑或石壩，長年積水，家中會出現腿疼腰傷之人。-
3、如果平原地後靠山上有小豁口，有流水沖向墳墓跟前，也會出現腿疼腰傷之人。如小溝成直箭形，還會出小兒命短。
2013年1月21日 星期一
牆壁修補 壁癌 裂縫OUT
資料來源: 蘋果日報
3公釐以下微裂 油漆達人 鄧偉良 結構技師公會理事長 江世雄
過年前打掃、布置，為居家換個新氣象，其中花小錢又效果好的方式莫過於刷新漆了。從事修繕10年的專家鄧偉良建議，房子住久老化，難免防水層變差，就易有粉化、結晶等壁癌，這些問題要在刷新漆之前處理好，才不會讓漂亮的新牆面很快又出現霉污。處理牆面最好要挑3天以上晴天的日子，才能讓牆乾透，防水效果較佳。
報導╱劉燕美 攝影╱吳朝奎
報導╱劉燕美 攝影╱吳朝奎
【壁癌】
壁癌產生為牆面內水氣過多導致油漆脫落、發霉或結晶產生，治本之道為室外採防水措施、室內除癌美化，但若室外施做不易，也只能修復室內，建議室內得做整面牆，非僅壁癌處，依環境狀況不同，效果可達2~5年。
材料工具
酸洗劑、阻隔劑、底漆、披土、刮刀、150號砂紙、室內漆、刷子2支
【先做保護】
以膠帶將塑膠袋或報紙黏在施作的牆面下方，如此可較易收集塵屑髒污，方便事後清潔。
★做法 Step1
用刮刀將牆面所有能刮起的油漆、塵屑等全部仔細刮乾淨，此時牆面會顯得凹凸不平。
Step2
取一把刷子，將牆面上的髒屑灰塵徹底刷除乾淨。
Step3
壁癌結晶、粉塵為鹼性，用另一把刷子將酸洗劑塗在牆面表層，中和鹼性物質，再等2小時乾燥。
Step4
用刷子於牆面塗一層阻隔劑，若壁癌嚴重可等第一層乾後再塗一次，等2小時乾燥，接著塗一層底漆。
★Tips
因阻隔劑為油性，無法直接上室內漆，故以底漆為兩者的媒介。
Step5
用刮刀與披土將Step1凹凸不平的牆面補平，靜待2小時以上乾燥，再以150號砂紙將披土磨平。
Step6
將磨平的牆面以刷子或吸塵器清乾淨，再塗上室內漆待乾即可。
【龜裂】
牆面裂縫種類粗分為3種：1.不規則的龜殼狀；2×45度角裂痕；3.牆頂和樑交界的水平裂痕；以上三種小於3公釐可自行修復，若第2、3種裂痕大於3公釐，可能有安全疑慮，須請專家鑑定修補。
材料工具
披土、刮刀、150號砂紙、室內漆、刷子
★做法 Step1
用刮刀與披土將牆面龜裂填補平整，靜置2小時待乾；龜裂較明顯處，披土乾燥後會內縮，可再上1~2次。
Step2
披土乾燥後如壁癌修補做法，以砂紙磨平、清乾淨牆面後再上室內漆。
【同場加映】
鄧偉良表示，3公釐以下的室內裂縫也可用中性矽利康填補；在衛浴使用防黴矽利康；在室外則採酸性矽利康，較耐風吹日曬。
【專家說】
以砂紙磨平牆面披土時，若需磨平的面積較大，可以砂紙包覆小磚塊或木塊再使用，如此較省力。
樑柱裂縫在下方或側邊，可能是氯導致鋼筋質變，須找專人鑑定；地下室樑柱的U形裂縫，常是施工材料控制不佳，無大礙。
《蘋果》G+叫我穆
2013年1月17日 星期四
精典名片
精典名片剪輯 .. 屋上提琴手 教父 羅密歐與茱麗葉 ..真善美 !
電影名片 總要配搭動聽的主題曲 才能深入人心 ..永流傳 !
人生像一塊磁鐵，當你身心愉悅、喜歡自己、對這個世界充滿善意，美好的東西就自然地被你所吸引，相反的，當你悲觀、鬱悶、覺得什麼都不對勁，負面的一切也就相繼來報到了。
因為你是一塊磁鐵，吸引的是與你相關的東西，所以快樂的你就吸引讓你快樂的人事境，煩憂的你則吸引讓你煩憂的人事境。當你帶給別人歡樂，你就會得到歡樂；帶給別人祝福，你就會得到別人的祝福；如果你經常讚美別人．不久你也會聽到有人在讚美你，「你給別人的．其實是給自己的」。
快樂其實只需要一個轉念，在忙碌的生活中更該學會自在。* 不要活得太累，不要忙得太疲憊。心態平和永遠最美，天天快樂才是大富大貴。我們轉身面向陽光，就不可能陷身在陰影裡，當我們拿花送給別人時，首先聞到花香的是我們自己。一句溫暖的話，就像往別人的身上灑香水，自己也會沾到兩、三滴，因此，要時時心存好意，口說好話，腳走好路，身行好事。
握緊拳頭時，好像抓住了許多東西，其實，連空氣都沒有抓到！ 張開雙臂時，好像雙手空空，但是，全世界就都是在你手心！ 深怕生命中許多珍貴的音樂旋律就此消失，最近由youtube收集33部老電影主題曲，藉此回憶年少青春期歷年的悲歡歲月。 心中無限悵惘之際，假如您夠老的話（屬於這個年代），請您慢慢共同回憶吧，也許每天聽一兩首。 假如您夠年輕有時間，請您嚮往一下美麗經典的電影吧。
與狼共舞 http://www.youtube.com/watch?v=iJLPckUEcao&feature=related
似曾相識 http://www.youtube.com/watch?v=YkKue_MEnkk&feature=related
教父 http://www.youtube.com/watch?v=KXVQX6HGVy0
獅子與我http://www.youtube.com/watch?v=_89U-N-5w0g&feature=related
Sunrise Sunsethttp://www.youtube.com/watch?v=nLLEBAQLZ3Q
屋頂上的提琴手-Matchmakerhttp://www.youtube.com/watch?v=59Hj7bp38f8&feature=related
出埃及記http://www.youtube.com/watch?v=jsmZeo1Tc9A&feature=fvw
謎中謎http://www.youtube.com/watch?v=NZ1ANlvn3rs&feature=related
齊瓦哥醫生http://www.youtube.com/watch?v=XC2Bk8f8plU&feature=related
藍色夏威夷http://www.youtube.com/watch?v=cyIJ2vMIuDg
魂斷藍橋http://www.youtube.com/watch?v=qRfEKZUNl3A&feature=PlayList&p=D7C179264BB69C11&playnext=1&playnext_from=PL&index=7
愛的故事 http://www.youtube.com/watch?v=5A1KZKksGKE&feature=related
男歡女愛http://www.youtube.com/watch?v=kr0J5LQ6LtY&feature=related
黃昏之戀http://www.youtube.com/watch?v=OBnWWJjwDx8http://www.youtube.com/watch?v=M2abgTrBIRo&feature=relatedhttp://www.youtube.com/watch?v=rol7UIXmf2s&feature=related
生死戀http://www.youtube.com/watch?v=j0XClu_oqkE&feature=related
金玉盟http://www.youtube.com/watch?v=bA3hTc3PLDQ&feature=related
萬花嬉春http://www.youtube.com/watch?v=D1ZYhVpdXbQ&feature=fvwhttp://www.youtube.com/watch?v=pmro9l2scXk&feature=related
綠野仙蹤http://www.youtube.com/watch?v=1HRa4X07jdE
錦繡大地http://www.youtube.com/watch?v=u6vREiRNMFc
豪勇七蛟龍http://www.youtube.com/watch?v=45KAjt7v4t4
環遊世界80天http://www.youtube.com/watch?v=kVqDJP8PFYA&feature=related
第凡內早餐http://www.youtube.com/watch?v=Q7SI7N22k_A&feature=fvw
一見鍾情http://www.youtube.com/watch?v=Ki0IeWl4s4g
邊城英烈傳http://www.youtube.com/watch?v=ZusqEw9y2M0
羅蜜歐與茱麗葉http://www.youtube.com/watch?v=4FHpmn-KYec&feature=fvwhttp://www.youtube.com/watch?v=6UfUd03qOxE&feature=related
教父http://www.youtube.com/watch?v=avbKq2H9mQ0&feature=relatedhttp://www.youtube.com/watch?v=1aV9X2d-f5g&feature=relatedhttp://www.youtube.com/watch?v=kvKXt3Surlk&feature=fvsr
醉鄉情斷 ( 相見時難別亦難)http://www.youtube.com/watch?v=YwUY4BS5ibQ
日正當中http://www.youtube.com/watch?v=A4a_1UhwgFU&feature=related
野宴http://www.youtube.com/watch?v=jlsoLgc0n5I&feature=related
紅磨坊http://www.youtube.com/watch?v=aKhrRgadxhc&feature=BF&list=MLGxdCwVVULXfaGkmEMrOODoLKk8C8I6ln&index=19
西城故事http://www.youtube.com/watch?v=-BQMgCy-n6U&feature=fvsthttp://www.youtube.com/watch?v=5_QffCZs-bg
真善美http://www.youtube.com/watch?v=DyS_C4PeBrw&feature=fvw
桂河大橋http://www.youtube.com/watch?v=CB8F8g1-4Uw&feature=related
2012年12月7日 星期五
以 embed 語法貼上YouTube影片
以 embed 語法貼上YouTube影片
打開YouTube影片在網列上複製 V= 後面文字，就是
範例1: 般若心経(清新版）Prajna Paramita Heart Sutra (Relaxing Version)
網址在 http://www.youtube.com/watch?v=OGM4lYJ6E1E
複製V= 後面文字 OGM4lYJ6E1E
要自動播放可在後面加上 &autoplay=1
要連續重播可在後面加上 &loop=1
貼上那影片的ID，螢幕寬高度在width及height自行修改，
<embed allowscriptaccess="never" src="http://www.youtube.com/v/OGM4lYJ6E1E?version=3&hl=zh_TW" type="application/x-shockwave-flash" width="420" height="315" allowfullscreen="true"></embed>
可將 ?version=3&hl=zh_TW 刪掉
<embed height=315 type=application/x-shockwave-flash width=420 src=http://www.youtube.com/v/OGM4lYJ6E1E allowfullscreen="true" allowscriptaccess="never"></embed>
範例2: 般若波羅蜜多心經（輕快版）
網址在 http://www.youtube.com/watch?v=_674Eb5QckE
複製V= 後面文字 _674Eb5QckE
貼上那影片的ID，螢幕寬高度在width及height自行修改，
<embed allowscriptaccess="never" src="http://www.youtube.com/v/_674Eb5QckE" type="application/x-shockwave-flash" width="420" height="315" allowfullscreen="true"></embed>
2012年11月26日 星期一
VFP 筆記 Visual FoxPro
資料來源: 朱孝國的筆記本
簡介
- 早期開發資料庫系統的開發工具：dBase=>Clipper。
- 微軟公司買下Foxbase之後，在Windows上改名為 Foxprow=>Visual Foxpro。
- 上述開發工具都可存取副檔名為DBF的資料庫格式，我們通稱為xBase。
- 開發軟體核心就能處理資料庫的不多，現存的僅存VFP,Delphi等。
- 大多數的開發軟體核心都不具有資料庫處理能力(VB,Java,C++.....)，而是透過ODBC或JDBC這種開放架構來存取。
- VFP的Rushmore技術使得搜尋效率在filebase資料庫中穩站第一名。
- 因為xBase這種存取關連式資料庫的開發工具在早期十分流行，因此許多學校到目前還使用VFP
- VFP加入了現代物件導向的特點後，加上微軟持續發展，目前最新的版本為9.0
VFP基本語法 vs. VFP的SQL語法
| 操作 | VFP基本語法 | VFP的SQL語法 |
|---|---|---|
| 瀏覽資料庫 | use emp browse | select * from emp |
| 設定條件瀏覽資料庫 | use emp browse for salary>50000 | select * from emp where salary>50000 |
| 建立資料庫 | create emp | CREATE TABLE emp (id c(6)) |
| 修改紀錄 | use emp replace salary with 60000 for name="Peter" | update emp set salary=60000 where name="Peter" |
| 新增紀錄 | use emp append blank replace name with "Tom" | INSERT INTO emp (name) values ("Tom") |
| 刪除紀錄 | use emp delete for name="Tom" | delete from emp where name="Tom" |
OLE/COM/ActiveX的使用
- 拜物件導向技術發展之功，微軟創造了COM的環境，讓我們可以使用不同的程式來使用相同COM元件(*.dll,*.ocx)，節省了許多的時間，但其實VFP對於這些COM control的相容性並沒有VB,VC等那麼好，並不是所有的control都能拿到VFP中用喔。
- 透過選單中tools/object browser開啟其Com Libraries便可掃瞄登錄檔中所有已註冊的com元件，並檢視其屬性,方法與事件等，取得如何使用的資訊。
COM元件的註冊
就微軟的DCOM技術而言，可供重複使用的control必須先在 Windows 中註冊才能使用，註冊control一般來說有5種方法，它們有各自的優點，運用範圍也不同。
使用安裝程式註冊
- 利用VFP本身的InstallShield製作安裝程式，安裝時可將系統所需要的control註冊，反安裝時亦可將control解除註冊。
- 此方法最適合給使用者使用。
使用regsvr32.exe註冊
利用微軟系統提供的regsvr32.exe可註冊指定的元件，若成功註冊，會跳出一視窗「DllRegisterServer in xxx.ocx succeeded」，若解除成功則會跳出「UnDllRegisterServer ...........」代表成功的執行了元件內部的註冊函數DllRegisterServer或解註冊函數UnDllRegisterServer。
- 於命令提示字元手動執行
- 註冊control：regsvr32 \windows\system\netshare.ocx &&需注意control的路徑
- 解除control：regsvr32 /u \windows\system\netshare.ocx
- 透過自訂函數執行
- 撰寫自訂函數MyRegsvr
- Function MyRegsvr ( lpcRegFilename, lplIsreg )
If File(lpcRegFilename)
lpcRegFilename = iif(llisreg, lpcRegFilename, [ /u ] + lpcRegFilename)
Run /n regsvr32 &&lpcRegFilename
Endif
Return
Endfunc - 註冊control：MyRegsvr( "netshare.ocx", .T.) &&需注意control的路徑
- 解除control：MyRegsvr( "netshare.ocx", .F.)
使用VFP註冊
- 進入VFP後，透過選單中tools/options/controls/ActiveX controls，可看見所有已註冊的 control，可透過右側的Add...來增加想要註冊的control
- 此方法只能用在系統開發者，因為使用者並沒有VFP的主程式。
使用元件本身的註冊函數
- 註冊controldeclare integer DllRegisterServer IN myserver.dll
?DllRegisterServer() - 解除controldeclare integer DllUnregisterServer IN myserver.dll
?DllUnregisterServer() - 若撰寫成函數，範例如下Function MyDllRegister ( lpLibFileName, isReg)
isReg = iif(type("isReg")="U", .T., isReg)
lpProcName = iif(isReg, "DllRegisterServer", "DllUnregisterServer" )
Declare INTEGER (lpProcName) in (lpLibFileName)
return &&lpProcName.() &&傳回0表示成功
Endfunc
MyDllRegister( "netshare.ocx", .T.) &&若為解除註冊則為 MyDllRegister( "netshare.ocx", .F.)
Clear Dlls
VFP連接Sql Server的範例
*********************
* SQL Server 連結設定
*********************
lcUserName="sa"
lcServerName="127.0.0.1"
lcUserPass="123456"
lcDBName="master"
ConnectionHandle=SQLSTRINGCONNECT([DRIVER=SQL Server;SERVER=]+lcServerName+[;DATABASE=]+lcDBName+[;UID=]+lcUserName+[;PWD=]+lcUserPass )
if ConnectionHandle <= 0
messagebox('無法連接至 SQL SERVER ('+ lcServerName +')',16,"SQL Connect Error" )
quit
endif
* SQL Server 連結設定
*********************
lcUserName="sa"
lcServerName="127.0.0.1"
lcUserPass="123456"
lcDBName="master"
ConnectionHandle=SQLSTRINGCONNECT([DRIVER=SQL Server;SERVER=]+lcServerName+[;DATABASE=]+lcDBName+[;UID=]+lcUserName+[;PWD=]+lcUserPass )
if ConnectionHandle <= 0
messagebox('無法連接至 SQL SERVER ('+ lcServerName +')',16,"SQL Connect Error" )
quit
endif
*********************
* 執行 SQL
*********************
SQLCOMMAND="select a.uname, a.upass, a.udep ,s.address ;
from admin a, schools s where a.uname=s.scode and s.scode = '034729'"
mret=sqlexec(ConnectionHandle,SQLCOMMAND)
if mret<=0
messagebox('sql敘述執行失敗' )
quit
endif
*********************
* 取回後處理
*********************
copy to tmp\tmp.dbf
browse
*********************
* 離線與關閉
*********************
mret=SQLDISCONN(ConnectionHandle)
if mret<=0
messagebox('離線失敗' )
quit
endif
* 執行 SQL
*********************
SQLCOMMAND="select a.uname, a.upass, a.udep ,s.address ;
from admin a, schools s where a.uname=s.scode and s.scode = '034729'"
mret=sqlexec(ConnectionHandle,SQLCOMMAND)
if mret<=0
messagebox('sql敘述執行失敗' )
quit
endif
*********************
* 取回後處理
*********************
copy to tmp\tmp.dbf
browse
*********************
* 離線與關閉
*********************
mret=SQLDISCONN(ConnectionHandle)
if mret<=0
messagebox('離線失敗' )
quit
endif
VFP讀寫與開啟excel的範例
開啟Excel 檔的範例
Exl_file = GETFILE('XLS', '選擇或取消', '選擇', 0, '請選擇要開啟的Excel檔')
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要開啟的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要開啟的Excel檔是 "+Exl_file
ENDCASE
oExl=CREATEOBJECT("Excel.application")
if VARTYPE(oExl) <> "O"
= MESSAGEBOX("EXCEL沒有安裝或損壞或因為記憶體不足而無法使用!",64,"提示")
return
endif
oExl.SheetsInNewWorkbook?=1
oExl.Visible=.T.
oExl.workbooks.Open('&Exl_file')
oExl.activesheet.rows(1).insert
oExl.activecell.formular1c1 = "表頭"
with oExl.SELECTION.font
.name = "細明體"
.fontstyle = "normal"
.size = 20
.strikethrough = .f.
.superscript = .f.
.subscript = .f.
.outlinefont = .f.
.shadow = .f.
endwith
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要開啟的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要開啟的Excel檔是 "+Exl_file
ENDCASE
oExl=CREATEOBJECT("Excel.application")
if VARTYPE(oExl) <> "O"
= MESSAGEBOX("EXCEL沒有安裝或損壞或因為記憶體不足而無法使用!",64,"提示")
return
endif
oExl.SheetsInNewWorkbook?=1
oExl.Visible=.T.
oExl.workbooks.Open('&Exl_file')
oExl.activesheet.rows(1).insert
oExl.activecell.formular1c1 = "表頭"
with oExl.SELECTION.font
.name = "細明體"
.fontstyle = "normal"
.size = 20
.strikethrough = .f.
.superscript = .f.
.subscript = .f.
.outlinefont = .f.
.shadow = .f.
endwith
讀入Excel 檔的範例
Exl_file = GETFILE('XLS', '選擇或取消', '選擇', 0, '請選擇要讀入的Excel檔')
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要讀入的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要讀入的Excel檔是 "+Exl_file
ENDCASE
import from &Exl_file Type xl8
browse
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要讀入的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要讀入的Excel檔是 "+Exl_file
ENDCASE
import from &Exl_file Type xl8
browse
寫出為Excel檔的範例(含欄位名稱)
use Student
copy to stu_info type XL5
copy to stu_info type XL5
寫出為CSV 檔的範例(含欄位名稱)
use Student
copy to stu_info type CSV
copy to stu_info type CSV
寫出為文字檔的範例1(不含欄位名稱)
use Student
copy to stu_info type DELIMITED
copy to stu_info type DELIMITED
寫出為文字檔的範例2(不含欄位名稱)
use Student
copy to stu_info type SDF
copy to stu_info type SDF
使用技巧
抓取指定目錄下的所有檔案
counter=adir(testarray,'*.txt')
dimension myarray(counter,5)
counter=adir(myarray,'*.txt')
for i =1 to counter
filename=myarray(i,1)
? filename
next
dimension myarray(counter,5)
counter=adir(myarray,'*.txt')
for i =1 to counter
filename=myarray(i,1)
? filename
next
錯誤攔截
ON ERROR DO errhand WITH ERROR(), MESSAGE(), MESSAGE(1), PROGRAM( ),LINENO( ) && Trap OLE & other errors.
******************************************
* 說 明：錯誤處理程式
******************************************
PROCEDURE errhand
PARAMETER merror, mess, mess1, mprog, mlineno
CLEAR
IF merror=1426
mlineno=LTRIM(STR(LINENO()))
merror=LTRIM(STR(merror))
MESSAGEBOX("發生了一個OLE的錯誤，例如：呼叫的OLE程式重複開啟了檔案 "+CHR(13)+;
"Usually this is caused by quitting Word or canceling out of a dialog box in Word. "+CHR(13)+;
"錯誤訊息為："+mess)
ELSE
mlineno=LTRIM(STR(LINENO()))
merror=LTRIM(STR(merror))
MESSAGEBOX("發生錯誤在程式第"+mlineno+"行"+CHR(13)+;
"錯誤訊息為："+mess+" 錯誤代碼為"+merror)
ENDIF
ON ERROR
quit
RETURN
* 說 明：錯誤處理程式
******************************************
PROCEDURE errhand
PARAMETER merror, mess, mess1, mprog, mlineno
CLEAR
IF merror=1426
mlineno=LTRIM(STR(LINENO()))
merror=LTRIM(STR(merror))
MESSAGEBOX("發生了一個OLE的錯誤，例如：呼叫的OLE程式重複開啟了檔案 "+CHR(13)+;
"Usually this is caused by quitting Word or canceling out of a dialog box in Word. "+CHR(13)+;
"錯誤訊息為："+mess)
ELSE
mlineno=LTRIM(STR(LINENO()))
merror=LTRIM(STR(merror))
MESSAGEBOX("發生錯誤在程式第"+mlineno+"行"+CHR(13)+;
"錯誤訊息為："+mess+" 錯誤代碼為"+merror)
ENDIF
ON ERROR
quit
RETURN
設定預設目錄
cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart) + 1
SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart) + 1
SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
跳出對話視窗選擇檔案
gcXLS=GETFILE('XLS', '選擇或取消', '選擇', 0, '請選擇要處理的 Excel 檔')
DO CASE
CASE EMPTY(gcXLS)
Messagebox("並未選擇要處理的 Excel 檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要處理的 Excel 檔是 "+gcXLS
ENDCASE
DO CASE
CASE EMPTY(gcXLS)
Messagebox("並未選擇要處理的 Excel 檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要處理的 Excel 檔是 "+gcXLS
ENDCASE
偵測目錄存在與否，若不存在則建立之
IF !DIRECTORY("tmp")
MKDIR tmp
ENDIF
MKDIR tmp
ENDIF
網路資源
2012年10月7日 星期日
足底筋膜炎--下床踩地，足底刺痛
在足底筋膜炎的治療處理可運用以下幾項原則：
(一)回復肌肉之柔軟度及強度：
因足底筋膜炎的發生會促使足跟肌腱(即小腿後側肌肉)縮短，這種狀況會增強對足底筋膜的拉扯力，更惡化足底筋膜的發炎症狀。在運動治療方面，建議患者平日在家可多練習回復足底筋膜及足跟肌腱肌肉柔軟度及強化的運動，即可改善此類症狀。
運動一：回復足底筋膜柔軟度
呈坐姿，膝蓋彎曲，腳底板平貼於地，用手將腳趾朝上扳動，停留十秒後休息。接著將腳底板朝上，再用手將腳趾朝上扳動，一樣停留十秒。此兩項動作交叉重覆十次即可。
運動二：回復足跟肌腱柔軟度
雙腳以弓箭步站立，雙腳腳跟著地，身體重心往前移停留十秒，即可感受到在後方的小腿肌肉被拉扯的力量。雙腳輪流前後練習數次即可(圖一)。或可面牆而立，雙手打直扶牆面，之後，雙手彎曲身體往前傾，腳跟不可離地，即可感受到兩腳小腿後側肌肉同時被拉扯的力量(圖二)。
運動三：足底小肌肉強化運動
呈坐姿，膝蓋彎曲，腳底踩毛巾，腳底板平貼於地，練習以腳趾頭抓毛巾即可。
一般而言，在做任何肌肉伸展運動前，患者應先做暖身運動；對於要伸展的部位要有良好的支撐，以免發生拉傷或危險。
(二)下降疼痛及發炎症狀：
可運用物理治療方式，如超音波治療及冰敷、電療來減輕疼痛及發炎症狀。患者一般可在運動後，在足跟及足底部位冰敷約十分鐘。此外，也可以局部注射類固醇或口服非類固醇藥物來減緩疼痛及發炎症狀。
(三)利用足弓支撐鞋墊加上足跟墊來減少組織壓力。
良好的足弓支撐可在下肢承重時有效減少對足底筋膜之拉力，藉此減緩重覆牽張對足底筋膜產生之傷害。
足底筋膜炎若要以手術方式處理，主要是在保守療法無效時才會被建議。而時間並無明確限制，但症狀在四至六個月期限內無改善就會考慮手術處理，手術處理是以開放式或內視鏡足底筋膜部份切開術為主。研究顯示：手術治療可以減少74％至87％病人主訴症狀。而手術後，病患仍需進行復健治療才可完全解決足底疼痛之症狀。
 |  | |
圖一
|
圖二
|
資料來源:
復健科 蔡宗育物理治療師 黃茂雄主任(90年6月)
常有求診，主訴早上一下床踩到地板時，腳跟會有強烈刺痛，在步行三、四十分鐘後，刺痛感才漸漸舒緩。但行動一段時間後，痛覺又再度產生，這類一陣陣腳底刺痛的困擾，不時地干擾患者的生活行動。在求助於復健科，經過物理治療或指引患者穿著特殊鞋墊後，疼痛即逐漸消除。此類症狀即為困擾大部分足部疼痛患者的足底筋膜炎。
足底筋膜為腳底足弓之最主要支撐，其主要功能為吸收在正常步態週期中著地期所產生之反作用力。因此，從生物力學之觀點，任何可能導致足底筋膜不正常拉力之因素，皆可能導致筋膜對附著端之骨骼及其相連之組織產生牽拉及傷害。例如：扁平足、空凹足、足跟肌腱過短等等，皆可能改變正常步態的生物力學而導致增加足底筋膜之張力，也就產生腳底刺痛。
足底筋膜炎最常見之症狀為足跟底部疼痛與不適。一般而言，疼痛會在未承重一段時間之後，因再度承重而出現。病患通常會在早晨起床之後，足踏地時產生劇痛，但其不適會在之後的三十至四十五分鐘後漸漸緩解。原因在於，足底筋膜在經過長時間休息後，會維持在較短的長度，當腳下床踩地時，就會對足底筋膜造成一個快速而強的拉力，可能造成對足底筋膜的傷害，而經過一段時間的行走後，足底筋膜會逐漸變得較鬆，因此症狀會漸漸緩解。一般而言，唯有在承重活動時所產生的疼痛，也就是足踏地時所產生的疼痛才是所謂的足底筋膜炎，其疼痛強度在病人症狀發生時不盡相同。
訂閱：
文章 (Atom)