~楓花雪岳~

[SQL] 克服日期計算的恐懼

2012-02-17T08:16:00.002+08:00

Beyond Relational TSQL Beginner's Challenge 2

說明：

邀請您來挑戰日期計算。許多人對於日期計算有恐懼，而挑戰目標就是要克服日期計算的恐懼。這個挑戰是利用年、月、星期和每個月第幾個星期來計算日期；例如：2010年01月的第二個禮拜日是幾號，答案是 '2010-01-10'

資料來源（題目內有資料來源的 script）

Yr    Mon    Dy  Dyno
-------------------------------
2010  Jan  Sun    2
2005  Jan  Mon    3
1995  Feb  Sun    1
2000  Feb  Wed    4
1982  Mar  Tue    2
2010  Mar  Tue    8

結果

Yr     Mon    Dy   Dyno  Date
----------------------------------------------
1982    Mar    Tue    2   1982-03-09
1995    Feb    Sun    1   1995-02-05
2000    Feb    Wed    4   2000-02-23
2005    Jan    Mon    3   2005-01-17
2010    Jan    Sun    2   2010-01-10
2010    Mar    Tue    8   Invalid Date

規則

如果這個日期不存在，必須顯示'Invalid Date'
T-SQL 必須為 'SELECT' 或 ';WITH' 開始的單一查詢
產生的結果必須根據日期排序

個人解法

DECLARE @tbl TABLE (Yr INT,Mon VARCHAR(50),Dy VARCHAR(50),Dyno INT)
INSERT INTO @tbl(Yr, Mon, Dy, Dyno)
    SELECT 2010,'Jan','Sun',2 UNION ALL
 SELECT 2005,'Jan','Mon',3 UNION ALL
 SELECT 1995,'Feb','Sun',1 UNION ALL
 SELECT 2000,'Feb','Wed',4 UNION ALL
 SELECT 1982,'Mar','Tue',2 UNION ALL
 SELECT 2010,'Mar','Tue',8

;
WITH CTE_Data AS
(
  SELECT T1.* , 
         DATEADD(DD,-1,DATEADD(MM,1,T1.DateStart)) AS DateEnd -- 月底日期
  FROM
    (
      SELECT T.* , 
             CASE 
               WHEN ISDATE(T.Date) = 1 THEN CAST(T.Date AS datetime)
               ELSE NULL
             END AS DateStart -- 月初日期
      FROM 
        (
          SELECT Yr,Mon,Dy,Dyno,
                 ROW_NUMBER() OVER (ORDER BY Yr) AS RandomOrder, -- 隨便給一個編號來當成唯一碼
                 CAST(Yr AS CHAR(4)) + 
                 CASE Mon
                   WHEN 'Jan' THEN '01'
                   WHEN 'Feb' THEN '02'
                   WHEN 'Mar' THEN '03'
                   WHEN 'Apr' THEN '04'
                   WHEN 'May' THEN '05'
                   WHEN 'Jun' THEN '06'
                   WHEN 'Jul' THEN '07'
                   WHEN 'Aug' THEN '08'
                   WHEN 'Sep' THEN '09'
                   WHEN 'Oct' THEN '10'
                   WHEN 'Nov' THEN '11'
                   WHEN 'Dec' THEN '12'
                   ELSE NULL
                 END + 
                '01' AS Date, -- 日期字串
                CASE Dy
                  WHEN 'Sun' THEN 1
                  WHEN 'Mon' THEN 2
                  WHEN 'Tue' THEN 3
                  WHEN 'Wed' THEN 4
                  WHEN 'Thu' THEN 5
                  WHEN 'Fri' THEN 6
                  WHEN 'Sat' THEN 7
                  ELSE NULL
                END AS dwno -- 每個星期的號碼
          FROM @tbl
        ) AS T
    ) AS T1
)
,CTE AS
(
  SELECT Yr,Mon,Dy,Dyno,RandomOrder,dwno,DateStart,DateEnd,DateStart AS DateLoop
  FROM CTE_Data
  UNION ALL
  SELECT Yr,Mon,Dy,Dyno,RandomOrder,dwno,DateStart,DateEnd,DATEADD(DD,1,DateLoop) -- 一次加一天
  FROM CTE
  WHERE DateLoop < DateEnd -- 月底為 CTE 結束日期
)
SELECT T5.Yr,T5.Mon,T5.Dy,T5.Dyno,
       CASE 
         WHEN T4.DateLoop IS NULL THEN 'Invalid Date'
         ELSE CONVERT(char(10),T4.DateLoop,120)
       END AS Date
FROM CTE_Data AS T5
  LEFT JOIN
    (
      SELECT T3.*
      FROM 
        (
          SELECT T2.* , 
                 ROW_NUMBER() OVER (PARTITION BY T2.DateStart,T2.Datedw ORDER BY T2.DateLoop) AS dwOrder
                 -- 以 開始日期和星期幾 為群組，列出全部資料的順序
          FROM
            (
              SELECT * , DATEPART(dw,DateLoop) AS Datedw -- 找出每一天的星期
              FROM CTE
            ) AS T2
        ) AS T3
      WHERE T3.Datedw = T3.Dwno -- 星期幾
              AND T3.dwOrder = T3.dyno -- 當月的第幾個禮拜
    ) AS T4 ON T5.RandomOrder = T4.RandomOrder

個人解法邏輯

CTE_Data 主要為整理資料，產生月初日期、月底日期和星期號碼。
CTE 引用 CTE_Data 資料，從每一筆資料的月初日期，跑遞迴至月底日期
根據 CTE 遞迴結果，產生每一天的星期，並利用日期和星期為群組，對 CTE 資料進行排序來判斷是當月第幾個禮拜的星期幾。
跟 CTE_Data 進行資料合併，並把日期調整成規則要求格式。

TSQL Beginner's Challenge 2 - Fight Your Fear for Date Calculations
MSDN：SET LANGUAGE、sys.syslanguages、SET DATEFIRST、@@DATEFIRST

皓閔 & 巧倫

2012-02-15T08:30:00.001+08:00

參加過特別的婚禮之一，特別是因皓閔回母校實習，當時教導我的國小老師，人還沒退休，而且跟皓閔也還蠻熟的，除了參加婚禮外也是跟國小老師的重逢日。

與國小老師合照：老師說，我一點都沒變，她遠遠就認出我來了 ~~ Orz ~~

現場布置

兩位伴郎是國小國中五年的同學喔

攝影大哥要我們擺 Pose，這樣算有擺到嗎？^_^ \\

錄影大哥一直提醒我們進場要自然點，最好帶點肢體語言，那就揮揮手囉 ~~

國中五人小組

這是第二次參加職業是老師且有邀請學生來參與的婚禮，只能說，真的千萬別找學生來現場找麻煩。>.< ~~

[SQL] 上班時間統計

2012-02-10T08:06:00.000+08:00

Beyond Relational TSQL Challenge 2

資料來源（題目內有資料來源的 script）

ID          StartDate               EndDate
----------- ----------------------- -----------------------
1           2009-03-02 08:00:00.000 2009-03-02 15:00:00.000
2           2009-03-01 16:00:00.000 2009-03-03 14:00:00.000
3           2009-02-26 07:00:00.000 2009-02-26 22:00:00.000
4           2009-01-27 09:15:00.000 2009-01-27 17:15:00.000
5           2009-01-17 13:45:00.000 2009-01-19 07:45:00.000
6           2009-01-27 21:15:00.000 2009-01-28 09:15:00.000

結果

StartDate               EndDate                 Hours       Minutes 
----------------------- ----------------------- ----------- ----------- 
2009-03-02 08:00:00.000 2009-03-02 15:00:00.000 7           0 
2009-03-01 16:00:00.000 2009-03-03 14:00:00.000 15          0 
2009-02-26 07:00:00.000 2009-02-26 22:00:00.000 9           0 
2009-01-27 09:15:00.000 2009-01-27 17:15:00.000 7           45 
2009-01-17 13:45:00.000 2009-01-19 07:45:00.000 0           0 
2009-01-27 21:15:00.000 2009-01-28 09:15:00.000 1           15

題目說明

上班時間定義是從星期一至星期五的0800至1700；如果開始日期是星期五中午1200至星期一上午1000，只能計算星期五中午1200至星期五下午1700和星期一上午0800至1200這段時間。

個人解法：

SET DATEFORMAT MDY

DECLARE @t TABLE (ID INT IDENTITY, StartDate DATETIME, EndDate DATETIME) 
INSERT INTO @t (StartDate, EndDate) SELECT '3/2/2009 8:00AM', '3/2/2009 3:00PM' --07:00 
INSERT INTO @t (StartDate, EndDate) SELECT '3/1/2009 4:00PM', '3/3/2009 2:00 PM' --15:00 
INSERT INTO @t (StartDate, EndDate) SELECT '2/26/2009 7:00AM', '2/26/2009 10:00PM' --09:00 
INSERT INTO @t (StartDate, EndDate) SELECT '1/27/2009 9:15 AM', '1/27/2009 5:15 PM' --07:45 
INSERT INTO @t (StartDate, EndDate) SELECT '1/17/2009 1:45 PM', '1/19/2009 7:45 AM' --00:00 
INSERT INTO @t (StartDate, EndDate) SELECT '1/27/2009 9:15 PM', '1/28/2009 9:15 AM' --01:15 

;
WITH CTE AS
(
  SELECT ID,StartDate,EndDate,0 AS Counter -- 利用 Counter 欄位來計算分鐘
  FROM @t
  UNION ALL
  SELECT ID,DATEADD(mi,1,StartDate),EndDate,Counter + 1 -- 一次加一分鐘來跑遞迴 
  FROM CTE
  WHERE StartDate < EndDate -- 遞迴結束條件
)
SELECT T.ID,T.StartDate,T.EndDate,
  ISNULL(T3.TotalMin / 60,0) AS hh,
  ISNULL(T3.TotalMin % 60,0) AS mi
FROM @t AS T 
  LEFT JOIN
    (
      SELECT T2.ID,SUM(DayMin) AS TotalMin
      FROM
        (
          SELECT T1.ID,T1.Date,MAX(T1.Counter) - MIN(T1.Counter) AS DayMin
          FROM
            (
              SELECT ID,StartDate,Counter,
                     CONVERT(char(10),StartDate,112) AS Date,
                     CAST(CONVERT(char(10),StartDate,112) + '08:00:00.000' AS datetime) AS DayStart,
                     CAST(CONVERT(char(10),StartDate,112) + '17:00:00.000' AS datetime) AS DayEnd
              FROM CTE
            ) AS T1
          WHERE 
             DATEPART(dw,T1.StartDate) NOT IN (1,7) 
             -- 星期一至星期五 
             AND T1.StartDate BETWEEN DayStart AND DayEnd
             -- 工作時間從早上 0800 至 1700
          GROUP BY T1.ID,T1.Date
        ) AS T2
      GROUP BY T2.ID
    ) AS T3 ON T.ID = T3.ID
OPTION (MAXRECURSION 0) -- 放在T-SQL語法最後面

個人解法邏輯

在 CTE 中，每筆資料利用 StartDate 為起始時間，一次遞迴一分鐘，EndDate 為遞迴結束時間，同時新增一個 Counter 欄位來累積分鐘。
根據上班時間定義，把資料的上班時間和下班時間列出來。
ID 資料有跨天數情形，針對 ID 和 StartDate 群組，來了解每一天到底上班幾分鐘，同時判斷資料是否在星期一至星期五且上班時間為0800至1700間；再針對 ID 群組，對每個 ID 內的每天上班分鐘進行加總（每個 ID 上班總分鐘數）。
上班總分數 /（除法）和 % （模除）來求得時數和分鐘。

Beyond Relational TSQL Challenge 2 - Calculate the Business Hours
TSQL Challenge 2 – Winners

祝福詞 - 2012 大仁大專營祝願

2012-02-08T08:44:00.002+08:00

大仁喜迎諸佛子，齊心領受師加持

師長志業納心續，修信念恩隨處見

做師所喜集大善，殷重回向求菩提

吾在遠方誦般若，遙寄祝福與想念

普願汝等皆受益，同證佛道大乘行

[SQL] 日期欄位資料型態的選擇

2012-02-03T08:24:00.001+08:00

利用字串來儲存日期、時間，常常導致處理時，會發生很多問題，印象中在某本書（忘記哪一本）上有提過，金融業彼此交換資料時，會將所有資料以固定長度、格式的字串來進行交換，這是我聽過要用字串來儲存日期的例子，但通常情況下，還是以日期資料型態來儲存，會是比較好的選擇。

以下說明日期欄位用日期型態和字串型態儲存時，需要注意的地方。

日期有效性

利用 ISDATE() 來檢查字串日期是否為有效日期。

SELECT 
    T.Date,
    CASE 
        WHEN ISDATE(T.Date) = 0 THEN 'INVALID'
        ELSE NULL
    END 'DateJudge'
FROM
    (
        SELECT '2012/01/31' AS Date
        UNION ALL
        SELECT '2012/02/31'
        UNION ALL
        SELECT '2012/10/31'
        UNION ALL
        SELECT '2012/11/31'
        UNION ALL
        SELECT '2012/00/01' -- 字串沒處理好，容易出現
        UNION ALL
        SELECT '2012/13/01' -- 字串沒處理好，容易出現
    ) AS T

字串日期格式不一致

資料庫內可能出現 2012/02/01、2012-02-01、20120201、2012/2/1 等字串日期儲存格式。

函數使用

使用日期型態，有 SQL Server 內建內建函數可以使用，EX：DATEADD()、DATEDIFF() 等等，方便商業邏輯實現，EX：計算天數、判斷日期為星期幾等；字串型態則須自行撰寫函數處理。

藍色小舖討論文章
MSDN ISDATE()

祝福詞 - 瑞梅

2012-02-01T08:09:00.003+08:00

瑞相呈祥生命始

梅蘭竹菊四君子

班班相續遍三界

長時心繫諸學子

生生增上菩提道

日常法師好弟子

快速成就學依止

樂得師長恆攝持

[VFP] Automation 應用 - 改變 Excel 儲存格顏色

2012-01-29T10:39:00.002+08:00

利用顏色來突顯資料重要性，方便使用者聚焦在關鍵資料上。

-- 設定字型顏色
loExcel.ActiveSheet.cells(lnRows,lnColumns).Font.ColorIndex = lnColorIndex
-- 設定背景顏色
loExcel.ActiveSheet.cells(lnRows,lnColumns).Interior.ColorIndex = lnColorIndex

lnColorIndex 參考圖

VBA: Color Reference For Colorindex

[VFP] Automation 在 Excel 上的應用

[SQL] UPDATE 搭配 FROM 使用

2012-01-20T08:55:00.002+08:00

發現 UPDATE 的一個情況，經過測試和查閱 MSDN 後，才發現原來 UPDATE 搭配 FROM 使用時，必須注意下列這點。

擷取 MSDN UPDATE 內容，內容如下：
指定 FROM 子句來提供更新作業的準則時，請特別小心。如果 UPDATE 陳述式包括 FROM 子句，且這個 FROM 子句的指定方式並非每個更新的資料行項目都只能使用一個值，也就是說，如果 UPDATE 陳述式不具決定性，UPDATE 陳述式的結果便未定義。這可能會造成非預期的結果。

簡單說就是，透過 UPDATE 搭配 FROM 使用時，資料必須是 1 對 1 的情況，假如是 1 對多， UPDATE 沒有辦法分辨要選擇哪一筆資料來更新。

DECLARE @table1 table (MtNO char(12),Qty numeric(10,2)) -- 庫存總表
DECLARE @table2 table (MtNO char(12),Qty numeric(10,2)) -- 入領料表
INSERt INTO @table1 VALUES ('A',0)
INSERt INTO @table2 VALUES ('A',50)
INSERt INTO @table2 VALUES ('A',30)
INSERt INTO @table2 VALUES ('A',20)
INSERt INTO @table2 VALUES ('A',10)

-- 把 @table2 （入領料表）內的 A 物料數量更新到 @table1（庫存總表）
UPDATE T1 SET T1.Qty = T2.Qty
FROM @table1 AS T1 
  JOIN @table2 AS T2 ON T1.MtNO = T2.MtNO

-- 顯示更新後的 @table1 （庫存總表）
SELECT * FROM @table1

MSDN：UPDATE
藍色小舖討論文章

會計丙級

2012-01-18T09:53:00.002+08:00

從099年開始，自己斷斷續續自讀會計，老實講一開始完成不知道要從何學起，突發奇想找個目標來努力，就從最簡單的起步，現在算是完成第一個階段，具備會計最基本的常識。

[SQL] Pair-wise and ordered assignment of objects from two different lists

2012-01-13T07:56:00.003+08:00

Beyond Relational TSQL Challenge 1；不是很了解規則解釋甚麼，瞭解提供的資料和希望產生的結果，就開始動手 Try 啦。

資料來源：

-- Bird Table
Code Name
---- -------
1    Pigeon
2    Sparrow
3    Parrot

-- Grain Table
Code Grain
---- ------
1    Wheat
1    Rice
2    Corn
2    Millet

-- Fruit Table
Code Fruit
---- ------
1    Banana
1    Mango
1    Guava
2    Grapes

結果

Code Bird    Grain  Fruit
---- ------- ------ ------
1    Pigeon  Rice   Banana
1    Pigeon  Wheat  Guava
1    Pigeon  NULL   Mango
2    Sparrow Corn   Grapes
2    Sparrow Millet NULL
3    Parrot  NULL   NULL

規則

For a bird with no food basket at all, a single line should be output with the Grain and Fruit columns containing null.
The output should be ordered by Code followed by the order in which the Grain/Fruit pairs were extracted from the Grains/Fruits tables.

個人解法

;
WITH CTE_Birds
AS
    (
      SELECT 
        Code,
        [Name],
        ROW_NUMBER() OVER (PARTITION BY Code ORDER BY [Name]) AS udOrder
      FROM TC1_BIRDS
    )
,
CTE_Grains
AS
    (
      SELECT 
        Code,
        [Grain],
        ROW_NUMBER() OVER (PARTITION BY Code ORDER BY [Grain]) AS udOrder
      FROM TC1_Grains 
    )
,
CTE_Fruits
AS
    (
      SELECT 
        Code,
        [Fruit],
        ROW_NUMBER() OVER (PARTITION BY Code ORDER BY Fruit) AS udOrder
       FROM TC1_Fruits
    )
SELECT 
   T1.Code,
   T2.Name AS Bird,
   T3.Grain,
   T4.Fruit
FROM
    (
        SELECT Code , udOrder
        FROM CTE_Birds
        UNION
        SELECT Code , udOrder
        FROM CTE_Grains
        UNION
        SELECT Code , udOrder
        FROM CTE_Fruits
    ) AS T1 -- T1 為唯一值 Table，可見下圖
JOIN CTE_Birds AS T2 
        ON T1.Code = T2.Code -- Birds Table 只要針對 唯一值 Table 的 Code 欄位 JOIN
LEFT JOIN CTE_Grains AS T3 
        ON T1.Code = T3.Code AND T1.udOrder = T3.udOrder -- Grains Table 要對 唯一值 Table 的 Code 和 udOrder 欄位 JOIN
LEFT JOIN CTE_Fruits AS T4 
        ON T1.Code = T4.Code AND T1.udOrder = T4.udOrder -- Fruits Table 要對 唯一值 Table 的 Code 和 udOrder 欄位 JOIN
ORDER BY T1.Code

唯一值 Table

值得參考的解法

--Simon_Frank_tsqlchallenge_1_V2.sql
;
WITH g 
AS
    (
      SELECT Code, ROW_NUMBER() OVER (PARTITION BY Code ORDER BY Grain) N, Grain
      FROM dbo.TC1_GRAINS
    )
,
f 
AS
    (
      SELECT Code, ROW_NUMBER() OVER (PARTITION BY Code ORDER BY Fruit) N, Fruit
      FROM dbo.TC1_FRUITS
    )
,
p 
AS
    (
      SELECT ISNULL(g.Code, f.Code) Code, Grain, Fruit
      FROM g
      FULL OUTER JOIN f ON g.Code = f.Code AND g.N = f.N
    )
SELECT b.Code, b.Name, p.Grain, p.Fruit
FROM dbo.TC1_BIRDS b LEFT JOIN p ON b.Code = p.Code

TSQL Challenge 1 - Pair-wise and ordered assignment of objects from two different lists

UNION

祝福辭 - 毓蒂

2012-01-11T08:23:00.001+08:00

才子佳人今相聚

天賜良緣續菩提

增上生道隨師行

花開見性登佛地

[SQL] 數學運算-小數

2012-01-06T08:20:00.003+08:00

小數位數的四捨五入（Round Off）、無條件進位（Round Up）和無條件捨去（Round Down），要如何利用 T-SQL 語法達到此效果。

ROUND(numeric_expression , length [ ,function ]) 函數

函數說明：傳回數值，捨入到指定的長度或有效位數。
numeric_expression 參數：這是精確數值或近似數值資料類型類別目錄的運算式，但 bit 資料類型除外。
length 參數：這是 numeric_expression 捨入的有效位數。length 必須是 tinyint、smallint 或 int 類型的運算式。當 length 是正數時，numeric_expression 會捨入到 length 所指定的十進位數。當 length 是負數時，numeric_expression 會依照 length 所指定，在小數點左側捨入。
function 參數：這是要執行的作業類型。function 必須是 tinyint、smallint 或 int。當省略 function，或其值為 0 (預設值) 時，會捨入 numeric_expression。當指定 0 以外的值時，會截斷 numeric_expression。
上述 MSDN 說明中，捨入是指四捨五入、截斷是指無條件捨去。

CEILING() 函數

函數說明：傳回大於或等於指定數值運算式的最小整數。

-- 範例說明：對小數第二位進行，四捨五入、無條件捨去和無條件進位

SELECT 
    T.Number AS '數字',
    ROUND(T.Number,2) AS '四捨五入',
        -- ROUND() 的基本使用
    ROUND(T.Number,2,1) AS '無條件捨去',
        -- 指定 ROUND() 的 function 參數不為 0 ，則會進行無條件捨去
    CEILING(T.Number * 100) / 100 AS '無條件進位'  
        -- 利用 CEILING() 來達到此效果，
        -- 假如是要針對小數第三位則乘 1000 ，除1000。
FROM
  (
      SELECT 100.129 AS Number
      UNION ALL
      SELECT 100.126
      UNION ALL
      SELECT 100.125
      UNION ALL
      SELECT 100.124
      UNION ALL
      SELECT 100.120
  ) AS T

高級專家

2011-12-31T12:01:00.001+08:00

在 2011 年結束前拿到高級專家，自我感覺良好 10 秒鐘後，回到現實世界，還是小嫩B一個 ~~ >.< ~~

CPU 風扇導風散熱裝置

2011-12-30T08:18:00.001+08:00

公司同事把電腦搬來，請我幫忙看看是哪裡有問題，為什麼都無法開機，一看到 CPU 風扇導風散熱裝置，整個傻眼，第一次看到灰塵可以積成牽絲的，像是建築物外牆，爬滿藤蔓的感覺。

故意把導風散熱裝置拆下來拍照

整理過後導風散熱裝置原貌

大家都知道把機殼拿掉，可以提高電腦散熱，但往往忽略電腦內積滿灰塵，一樣會散熱不良啦，請定期清理啦 ~~ ^_^

請善待你的電腦

[SQL] 流水號跳號

2011-12-23T08:41:00.003+08:00

公司內客制的流水號，雖然號稱流水號，但因當時歷史背景和商業邏輯因素，導致會產生流水號不連續或稱跳號的情況下，因此利用 CTE 方式來尋找目前的最小號碼，是跳號的話就把它補齊，沒有跳號的話，就找出目前最小的流水號。

利用 CTE 產生完整的流水號表，再去比對現有資料並找出最小流水號

DECLARE @Temp table (SeqNO smallint)
INSERT INTO @Temp VALUES(1)
INSERT INTO @Temp VALUES(3)
INSERT INTO @Temp VALUES(4)
INSERT INTO @Temp VALUES(9)

;
WITH CTE 
AS
 　(
  　　　SELECT 1 AS SeqNO
  　　　UNION ALL 
  　　　SELECT SeqNO + 1
  　　　FROM CTE
  　　　WHERE SeqNO < 5 
 　)
SELECT MIN(T1.SeqNO) AS MinNO
FROM CTE AS T1
  LEFT JOIN @Temp AS T2 ON T1.SeqNO = T2.SeqNO
WHERE T2.SeqNO IS NULL

藍色小舖關於流水號建置討論文章

[SQL] 找出各部門第二高薪人員

2011-12-16T08:03:00.002+08:00

Beyond Relational 的 TSQL Beginner's Challenge #1，個人是利用次序函數 RANK() 來做到，次序函數是從 SQL Server 2005 才開始有，在眾多的解法中，有找到非次序函數的解法，可以參考看看。^_^

需求：找出各部門第二高薪人員，而且假如第二高薪有多個人員，也必須一併列出來。

資料來源（題目內有資料來源的 script）

EmployeeID  EmployeeName    Department      Salary   
----------- --------------- --------------- ---------
1           T Cook          Finance         40000.00
2           D Michael       Finance         25000.00
3           A Smith         Finance         25000.00
4           D Adams         Finance         15000.00
5           M Williams      IT              80000.00
6           D Jones         IT              40000.00
7           J Miller        IT              50000.00
8           L Lewis         IT              50000.00
9           A Anderson      Back-Office     25000.00
10          S Martin        Back-Office     15000.00
11          J Garcia        Back-Office     15000.00
12          T Clerk         Back-Office     10000.00

利用次序函數 RANK()

SELECT T.EmployeeID , T.EmployeeName, T.Department, T.Salary
FROM
  (
    SELECT EmployeeID , EmployeeName, Department, Salary ,
            RANK() OVER (PARTITION BY Department ORDER BY Salary DESC) AS RANKNO
     FROM @Employees
  ) AS T
WHERE RANKNO = 2

值得參考的解法

SELECT EmployeeID,EmployeeName,Department,Salary
FROM @Employees e0
WHERE
      (
        SELECT Count(DISTINCT e1.Salary) 
        FROM @Employees e1 
        WHERE e1.Salary >= e0.Salary 
                AND e1.Department = e0.Department
      ) = 2
ORDER BY Department, EmployeeID

結果

EmployeeID  EmployeeName    Department      Salary   
----------- --------------- --------------- ---------
10          S Martin        Back-Office     15000.00
11          J Garcia        Back-Office     15000.00
2           D Michael       Finance         25000.00
3           A Smith         Finance         25000.00
7           J Miller        IT              50000.00
8           L Lewis         IT              50000.00

參考資料：

[SQL] 利用 T-SQL 語法更改欄位名稱

2011-12-09T10:16:00.001+08:00

利用 T-SQL 語法來處理 Table 欄位的需求，直覺會想到利用 ALTER TABLE 語法來處理，但更改欄位名稱無法利用 ALTER TABLE 來達成，必須利用系統預存程序 sp_rename。

-- 新增欄位
ALTER TABLE TableName ADD ColName DataType

-- 刪除欄位
ALTER TABLE TableName DROP COLUMN ColName 

-- 修改欄位資料型態
ALTER TABLE TableName ALTER COLUMN ColName DataType

-- 修改欄位名稱
EXEC sp_rename 'TableName.OldColName','NewColName','COLUMN'

利用 sp_rename 來更改欄位名稱時，要注意其相依性，EX：函數、預存程序或觸發程序有用到該欄位，必須手動去更新其內容，sp_rename 無法自動更新。

MSDN：ALTER TABLE、sp_rename

[VFP] 判斷電腦是否安裝 AutoCAD

2011-12-02T08:07:00.001+08:00

原本想利用 Automation 來判斷電腦是否有安裝 AutoCAD ，但是發現 Automation 好像沒有辦法判斷，下面兩種寫法都失敗，Automation 失敗後只好換個方向，利用 FindExecutable API 來判斷。

Automation 判斷 AutoCAD - 無論有沒有安裝 AutoCAD，都沒有辦法產生 Object

loObject = CREATEOBJECT("AutoCAD.Application")
loObject = CREATEOBJECT("AutoCAD.AcadApplication")

FindExecutable API

-- 宣告 FindExecutable API
DECLARE INTEGER FindExecutable IN shell32 STRING lpFile, STRING lpDir, STRING @lpResult 

lcResult = SPACE(250) -- 接收 FindExecutable API 的回傳值，回傳值為執行檔完整路徑
lcTestFile = ADDBS(GETENV("TEMP")) + "Dummy.DWG" -- 建立測試檔案
STRTOFILE("",(lcTestFile)) -- 在 Windows Temp 資料夾內，建立一個沒有內容的 AutoCAD DWG 檔案
IF FindExecutable ((lcTestFile), "", @lcResult) > 32 -- 大於 32 代表執行成功，有 AutoCAD 軟體
     MESSAGEBOX(lcResult) -- 顯示 AutoCAD 執行檔路徑
ELSE
     MESSAGEBOX("沒有安裝 AutoCAD")
ENDIF

更改測試檔案副檔名（Excel XLS 或 XLSX、Word DOC 或 DOCX），就可以判斷軟體是否安裝在電腦上。

參考資料

與打手之間的對話

2011-11-30T22:45:00.001+08:00

人事小姐生 bady 去，由我暫代人事相關業務，今天接到某資委會打手的電話，來詢問公司是否還需要新鮮肝。

打手：我是某某打手，請問是 X 小姐嗎？

OS：我們不是幾百年前就沒在那徵才。

Me：X 小姐生 bady 去，我是代理人。

打手：喔！我們這裡有一批新鮮肝，符合貴公司提出新鮮肝的條件，不知道貴公司有沒有
意願要了解一下。

OS：人事小姐上個禮拜不就已經跟我說，各個打手的徵才通通關閉了嘛。

Me：我們公司目前沒有人力缺口，不需要新鮮肝。

打手：喔！你的意思是年關前不再找人，年後才會開始就對了啦，很多公司目前都這樣作，
我了解、我了解。

OS：不會吧，我明明說我不需要，我開始懷疑她前一份工作是不是記者，這麼會編故事。

打手：你們人事小姐很認真ㄟ。

OS：是指現在在產房很認真，還是平時工作很認真，沒頭沒尾的熊熊冒這話出來。

Me：對阿，她在醫院還會打電話回來關心，交接事項也都寫得很清楚
（順風車搭一下，總是要給人家台階下）。

打手：那假如需求新鮮肝的話，可以再連絡我們。

這段對話感覺就像是銀行打來詢問需不需要借貸，只是現在錢變成人而以，Orz ~~

[VFP] 預設自訂 Form 物件

2011-11-25T08:15:00.001+08:00

寫 VFP 多多少少會使用自訂控件，自訂控件可以直接從 Class 或是 Form Control ToolBar ，拖曳進入 Form 中來使用，而其中 Form 物件最特別，因為當產生一個原始 Form 並把自訂 Form 拖曳進原始 Form 時，會自動產生 FormSet，因此要再刪除原始 Form 和 FormSet ，保留下來的才是自訂 Form，雖然不是什麼耗時的動作，但是常作也是挺惹人厭的。

以下說明如何更改 VFP 預設原始 Form 為自訂 Form。

VFP 主畫面 => Tools Tab => Options

Options => Forms Tab => Template Class

只要設定 Template Claas 的 Form 選項，當產生新 Form 時，就會直接產生自訂 Form 物件。

Power Link For 840D

2011-11-18T08:13:00.001+08:00

一大早就收到 CNC 廠廠長來電，LP 電腦又無法把檔案傳到 CNC 機器，錯誤訊息是 "Following run time error has occurred Item not found in this collection.(HDtoNCcopy)"，這個問題存在很久，老實講我也完全不清楚我每次到底是怎麼把它修正的，當下是抱著亂搞心態去處理。

一到現場發現問題並不單純，以往檔案雖然無法傳到 CNC 機器去，這次是連進入 840D 的 NC Manager 都有問題。

左側 MMC HARD DRIVE 內，原本是應該是連上 Server 的資料夾（g:\），但如今卻變成 UNKON，點擊UNKON會造成整個840D當掉。

想說重新設定資料夾就可以解決這個問題，沒想到點擊 Setup 選項後，馬上又跳出 "Run-time error '3265': Item not found in this collection"，也是整個840D當掉。

上述兩種840D當掉的情況，在工作管理員內都還可以看見 840D EXE 還在執行，這時後不管你再按幾次 840D 執行檔或是要把電腦重開機，都無法動作，必須手動刪除。

在整個 840D 圖形管理介面都沒有辦法使用的情況下，只好到 Pl_siem 資料夾找到 Plmmc.ini 設定檔案看看。

Plmmc.ini 的 Settings 選項中，發現 NcDir 竟然是 unknow，第一次發生這個現象，把它改為 Server 資料夾（g:\），840D NC Manager 就可以正常開啟。

正常開啟 NC Manager 後，當然是趕快嘗試把檔案 copy 到 CNC 機器去，萬年無解的問題此時出現，一點都不意外。

當萬年問題出現時就想打道回府，想說剛剛在設定檔案看到 language 也是 unknow，順手完成設定為 English

手癢再去把檔案 copy 到 CNC 機器，竟然成功。

針對設定檔內的 NcDir 和 Language 去測試，發現以下結論：

NcDir、Language皆為 unknow 時，為上述處理情況。
NcDir 為 unknow ，Language 為 English 時，NC Manager 可以開啟，但要進 Setup 重新設定 Server 資料夾。
NcDir 有設定，但 Language 為 unknow 時，NC Manager 正常開啟，但檔案無法 copy 到 CNC 機器去。

這次要不是連 NC Manager 都進不去，根本不會打開設定檔來確定，也不會發現這個問題，
以前大概也是重新設定 Language才解決這個問題，只是都沒有發現這個小動作，會是解決方法，最後把圖形介面設定好 Language 後，再進入設定檔內看 Language = gb，超想把它改為 GY 的。

系統環境：

作業系統為 Windows NT 4.0
840D版本為 Version 3.7.2

HD Tune

2011-11-11T08:30:00.001+08:00

使用者告知電腦會莫名其妙就自動關機，用起來也卡卡的，利用 HD Tune來檢查後，發現 Reallocated Sector Count 選項被反黃，再利用 Error Scan 一掃，果然情況不太妙。

Reallocated Sector Count 翻成白話就是 "壞軌"，趕快備份資料比較重要。

HD Tune 是套很方便的工具，但是 Health Status 內選項，假如有反黃或是反紅選項時，對硬碟知識不熟的我，也找不出問題點在哪，只能判斷硬碟可能有問題，所以使用 HD Tune 的重點，是要如何解讀 HD Tune 提供的異常訊息，才有辦法對症下藥，真的有問題，直接換掉也許會是更好的辦法吧。

根據這次經驗，檢查後內容和使用者實際情況，都發現硬碟有問題，但 Health Status 卻是 OK ，以往用 HD Tune 時，也發現到常常 Health 內有異常，但 Health Status 是 OK，實在不知道 Health Status 是怎判斷的。

旗尾山之詩

2011-11-09T19:31:00.002+08:00

去旗尾山時，除了給倉旭和盈潔的祝福辭，還有一首給同行的大家 ~~

微風輕拂面

浮雲倚山頭

群鳥藏林間

山友同行走

祝福辭 - 倉旭 & 盈潔

[SQL] DELETE 和 TRUNCATE

2011-11-04T08:48:00.003+08:00

TRUNCATE 等於沒有 WHERE 的 DELETE，但是 TRUNCATE 的效率比較快，主要是因為資料刪除時，DELETE 會對每一筆資料進行刪除並寫進交易紀錄檔，TRUNCATE 是取消配置（Deallocate）儲存資料的資料頁（Data Page），交易記錄檔內只會記錄資料頁的取消配置，因此相較之下，會耗費一些時間。

之前學習 TRUNCATE 時，一直以為 TRUNCATE 不會產生交易紀錄（Log）且不可回復（Rollback），其實 MSDN 上寫得很清楚，TRUNCATE 是會產生交易紀錄只是相較於 DELETE ， TRUNCATE 產生的交易紀錄較少，既然有交易紀錄，當然就可以回復囉。

TRUNCATE 限制：

無法使用在 Foreign Key 連結的 Table：父子關係 Table 且設有Foreign Key，父 Table 無法使用TRUNCATE ，子 Table 可以。
TRUNCATE 無法觸發 Trigger。
資料表內欄位有設定識別規格，TRUNCATE 會重設至初始值。

關聯刪除

DECLARE @Data1 Table (NO char(5))
DECLARE @Data2 Table (NO char(5))
 
INSERT INTO @Data1 VALUES ('1')
INSERT INTO @Data1 VALUES ('2')
INSERT INTO @Data1 VALUES ('3')
INSERT INTO @Data1 VALUES ('4')
INSERT INTO @Data1 VALUES ('5')
INSERT INTO @Data2 VALUES ('1')
INSERT INTO @Data2 VALUES ('3')
INSERT INTO @Data2 VALUES ('5')

-- 方法 1 利用 JOIN
DELETE T1
FROM @Data1 AS T1 JOIN @Data2 AS T2 ON T1.NO = T2.NO
  
-- 方法 2 利用 IN
DELETE FROM @Data1
WHERE NO IN (SELECT NO FROM @Data2)

分批刪除大量資料

大量刪除資料的過程中也可能導致使用者存取效能降低，因此透過分批的方式，降低對SQL Server的影響。

WHILE (@@ROWCOUNT > 0)
  BEGIN
    DELETE TOP (1000) -- 利用 TOP 限制刪除筆數（1000為使用者自訂筆數、括號一定要存在）
    FROM TableName
    WHERE Condition -- 篩選條件
  END

參考資料：

MSDN：TRUNCATE、DELETE 和使用 TOP 來限制刪除的資料列
When are pages from a truncated table reused?
TRUNCATE TABLE is non-logged
Truncate Cannot Be Rolled Back Because It Is Not Logged

承龍的蜜月祝福

2011-10-31T07:51:00.001+08:00

很高興收到龍哥的明信片，超級感動的啦，就感心ㄟ。

出發前我說的明明是要去查查當地的天氣來帶衣服，怎麼會變成我叫你帶少少的衣服去，人不是我殺的ㄟ啦 ~~ Orz ~~ ，不過我假如有去歐洲度蜜月的話，我會聽你的話的 ~~ <(_ _)> ~~

[SQL] 累計加總（Runing Total）

2011-10-28T07:34:00.001+08:00

Beyond Relational 的 TSQL Challenge 65

資料來源（題目內有資料來源的 script）

Date       CustomerID Type  Amount
---------- ---------- ----- --------
2011-01-01 CUST1001   INV   12000.00
2011-01-02 CUST1001   PAY    3000.00
2011-01-03 CUST1001   INV    8000.00
2011-01-04 CUST1001   PAY    9000.00
2011-01-04 CUST1002   INV    1000.00
2011-01-05 CUST1002   PAY    5000.00
2011-01-05 CUST1002   INV    6000.00

結果

Date       CustomerID Type  Amount   Balance
---------- ---------- ----- -------- ---------
2011-01-01 CUST1001   INV   12000.00  12000.00
2011-01-02 CUST1001   PAY    3000.00   9000.00
2011-01-03 CUST1001   INV    8000.00  17000.00
2011-01-04 CUST1001   PAY    9000.00   8000.00
2011-01-04 CUST1002   INV    1000.00   1000.00
2011-01-05 CUST1002   INV    6000.00   7000.00
2011-01-05 CUST1002   PAY    5000.00   2000.00

規則：

同一個客戶同一天會有多筆 INV 和 PAY 資料
同一個客戶同一天內的全部的 INV 資料必須先計算，之後再計算 PAY 資料
結果必須根據 CustomerID , Date , Type , Amount 來排序
Balance 可以為負

個人解法（2005、2008、2008 R2 適用）

;
WITH CTE AS
(
  SELECT 
          CustomerID,
          Date,
          [Type],
          Amount,
          ROW_NUMBER() OVER (PARTITION BY CustomerID ORDER BY CustomerID,Date,Type) AS ROWNO -- 產生基準欄位
  FROM TC65
)
SELECT 
       T1.CustomerID,
       T1.Date,
       T1.Type,
       T1.Amount,
       Balance = 
           SUM
               (
                 CASE 
                   WHEN T2.[Type] = 'PAY' THEN T2.Amount * -1
                   ELSE T2.Amount
                 END
               )
FROM CTE AS T1 
      JOIN CTE AS T2 ON T1.CustomerID = T2.CustomerID 
                           AND T2.ROWNO <= T1.ROWNO -- JOIN 時 關鍵語法
GROUP BY T1.CustomerID,T1.Date,T1.Type,T1.Amount
ORDER BY T1.CustomerID, T1.Date, T1.Type, T1.Amount

上述語法簡易分析

使用自身連結（Self JOIN），把 T1 當成基本資料表，T2 當成累計資料表，利用 ROW_NUMBER() 產生基準連結欄位來 JOIN 兩個 Table，JOIN 條件限制為 T2 基準連結欄位不可大餘 T1 基準連擊欄位，結果如下圖，從圖形就可以清楚看出，根據基準連結欄位，產生 T1 基本資料表中每筆對應的累計資料。

;
WITH CTE AS
(
  SELECT
          CustomerID,
          Date,
          [Type],
          Amount,
          ROW_NUMBER() OVER (PARTITION BY CustomerID ORDER BY CustomerID,Date,Type) AS ROWNO
  FROM TC65
  WHERE CustomerID = 'CUST1001' -- 故意限定在一個客戶就好
)
SELECT
        T1.CustomerID,
        T1.Date,
        T1.Type,
        T1.Amount,
        T1.ROWNO,
        T2.ROWNO, -- 把 T2 的 ROWNO、Type 和 Amount 欄位列出來
        T2.Type,
        T2.Amount
FROM CTE AS T1 
      JOIN CTE AS T2 ON T1.CustomerID = T2.CustomerID 
                           AND T2.ROWNO <= T1.ROWNO -- 關鍵語法

TSQL Challenge 65 - Solving the Running Total Problem - 題目
[SQL SERVER][TSQL]如何計算累加值

祝福辭 - 倉旭 & 盈潔

2011-10-26T07:41:00.001+08:00

去爬旗尾山當天剛好是倉旭提親的日子，用這首詩祝福他們。

才子佳人今相聚

前世今生已註定

山盟海誓天可證

海枯石爛永不移

[SQL] 字串欄位轉置

2011-10-21T08:33:00.002+08:00

利用尋找各班級前三名，來解釋字串欄位要如何轉置，在此不討論前三名是否有同分的情況。

-- 建立測試資料
DECLARE @Temp Table (class char(10),SdtName char(10),Score smallint)
INSERT INTO @Temp VALUES ('小叮噹班','大雄',10)
INSERT INTO @Temp VALUES ('小叮噹班','阿福',90)
INSERT INTO @Temp VALUES ('小叮噹班','技安',70)
INSERT INTO @Temp VALUES ('小叮噹班','宜靜',100)
INSERT INTO @Temp VALUES ('海賊王班','魯夫',20)
INSERT INTO @Temp VALUES ('海賊王班','娜美',90)
INSERT INTO @Temp VALUES ('海賊王班','騙人布',65)
INSERT INTO @Temp VALUES ('海賊王班','香吉士',30)
INSERT INTO @Temp VALUES ('海賊王班','索隆',20)
INSERT INTO @Temp VALUES ('網球王子班','不二',95)
INSERT INTO @Temp VALUES ('網球王子班','英二',75)
INSERT INTO @Temp VALUES ('網球王子班','手塚',99)
INSERT INTO @Temp VALUES ('網球王子班','越前',80)
INSERT INTO @Temp VALUES ('網球王子班','河村',20)

轉置的第一個要點是必須要有一個基準欄位來辨別前三名，在此利用 ROW_NUMBER() 來產生此基準欄位。

SELECT * ,
       ROW_NUMBER() OVER (PARTITION BY class ORDER BY Score DESC) AS ROWNO
FROM @Temp

利用 CASE 語法，根據基準欄位來進行字串欄位轉置

SELECT
      T.class,
      T.SdtName,
      CASE WHEN ROWNO = 1 THEN T.SdtName ELSE NULL END AS Col1,
      CASE WHEN ROWNO = 2 THEN T.SdtName ELSE NULL END AS Col2,
      CASE WHEN ROWNO = 3 THEN T.SdtName ELSE NULL END AS Col3
FROM
  (
      SELECT * ,
             ROW_NUMBER() OVER (PARTITION BY class ORDER BY Score DESC) AS ROWNO
      FROM @Temp
  ) AS T

再利用 MAX() 會忽略 NULL 值的特性，把每各班級的前三名資料，整理成一筆

SELECT
      T.class AS '班級',
      MAX(CASE WHEN ROWNO = 1 THEN T.SdtName ELSE NULL END) AS '第一名',
      MAX(CASE WHEN ROWNO = 2 THEN T.SdtName ELSE NULL END) AS '第二名',
      MAX(CASE WHEN ROWNO = 3 THEN T.SdtName ELSE NULL END) AS '第三名'
FROM
  (
      SELECT * ,
             ROW_NUMBER() OVER (PARTITION BY class ORDER BY Score DESC) AS ROWNO
      FROM @Temp
  ) AS T
GROUP BY T.class

此寫法比較適合用於固定字串資料轉置，不適合用於未知字串資料。

MSDN ROW_NUMBER()、CASE、MAX()

[SQL] 群組字串連結

2011-10-14T08:08:00.004+08:00

設計資料庫，常常會有一對多邏輯介面（檔頭、檔身設計），這樣的設計在產生報表時，為方便使用者閱讀，都會希望把檔身的多筆資料，整合在一行內(多筆字串資料合併成一行字串)。

公司在月底時，人事通常會提供一份報表 - 下個月員工排休表，給課長確認是否有哪一天太多人排休，會導致產線人力不足，就利用這份排休表來說明這個主題。

-- 建立測試資料
IF OBJECT_ID (N'Leave',N'U') IS NOT NULL
    DROP TABLE Leave
 
IF OBJECT_ID(N'dbo.getCommaString', N'FN') IS NOT NULL
    DROP FUNCTION dbo.getCommaString
 
CREATE TABLE Leave (Date datetime,EmpName varchar(8))
INSERT INTO Leave VALUES('2011-08-01','張三')
INSERT INTO Leave VALUES('2011-08-02','張三')
INSERT INTO Leave VALUES('2011-08-22','張三')
INSERT INTO Leave VALUES('2011-08-01','李四')
INSERT INTO Leave VALUES('2011-08-22','李四')
INSERT INTO Leave VALUES('2011-08-01','王五')
INSERT INTO Leave VALUES('2011-08-23','王五')
INSERT INTO Leave VALUES('2011-08-24','王五')
INSERT INTO Leave VALUES('2011-08-25','王五')

使用者自訂函數

-- 建立 FUNCTION
CREATE FUNCTION getCommaString(@date datetime) 
RETURNS varchar(500)  --500若不夠，請加大 
BEGIN
    DECLARE @string varchar(500)  --500若不夠，請加大 
    SET @string = ''
 
    SELECT @string = @string + EmpName + ','
    FROM Leave
    WHERE Date = @date
    ORDER BY EmpName
 
    SET @string = LEFT(@string,LEN(@string)-1) -- 把最後面的逗號後刪除
    RETURN @string
END

-- 使用自定函數來進行字串連結 
SELECT 
     CONVERT(char(10),Date,120) AS [日期],
     DATENAME(dw,Date) AS [星期],
     dbo.getCommaString(Date) AS [請假人員]
FROM Leave
GROUP BY Date

Cursor

-- 宣告一個 Table 變數來承接 CURSOR 跑完的結果
DECLARE @Temp table (Date datetime,String varchar(100))
 
DECLARE curTemp CURSOR
  FOR
      (
        SELECT Date
        FROM Leave
        GROUP BY Date
      )
 
OPEN curTemp
 
DECLARE @date as datetime
DECLARE @string as varchar(100)

FETCH NEXT FROM curTemp INTO @date 
  WHILE (@@FETCH_STATUS = 0) 
    BEGIN  

        SET @string = ''

        SELECT @string = @string + EmpName + ','
        FROM Leave
        WHERE Date = @date

        SET @string = LEFT(@string,LEN(@string)-1)

        INSERT INTO @Temp (Date,String)
          VALUES(@date,@string)
 
        FETCH NEXT FROM curTemp INTO @date
    END
 
CLOSE curTemp 
DEALLOCATE curTemp 

SELECT 
    CONVERT(char(10),Date,120) AS [日期],
    DATENAME(dw,Date) AS [星期],
    String AS [請假人員]
FROM @Temp

[SQL] 判斷第一碼為數字或是字母

2011-10-07T08:03:00.002+08:00

VFP 中可以利用 ISDIGIT() 來判斷字串最左邊字元是否為數字，ISALPHA() 來判斷字串最左邊字元是否為英文字母，SQL Server內可以透過 LIKE 來達成。

CREATE FUNCTION [dbo].[ISDIGIT]
(
   @string as nvarchar(250)
)
RETURNS bit
AS
  BEGIN
    DECLARE @true bit
  
    IF @string LIKE '[0-9]%'
       SET @true = 1
    ELSE
       SET @true = 0
 
    RETURN @true
  END

CREATE FUNCTION [dbo].[ISALPHA]
(
   @string as nvarchar(250)
)
RETURNS bit
AS
  BEGIN
    DECLARE @true bit
 
    IF @string LIKE '[A-Z]%' -- 不區分大小寫
       SET @true = 1
    ELSE
       SET @true = 0
  
    RETURN @true
  END

SELECT Val,
    '數字判斷' = CASE WHEN dbo.ISDIGIT(Val) = 1 THEN '數字' ELSE '' END,
    '字母判斷' = CASE WHEN dbo.ISALPHA(Val) = 1 THEN '字母' ELSE '' END
FROM
     (
       SELECT '123' AS Val
       UNION ALL
       SELECT '456'
       UNION ALL
       SELECT 'ABC'
       UNION ALL
       SELECT 'def' -- 故意小寫
     ) AS T

結果

參考資料：

LIKE in MSDN

[SQL] 日期 - 基本應用

2011-09-30T08:23:00.004+08:00

MS SQL Server 中文版的預設日期 datetime 格式是 yyyy-mm-dd hh:mm:ss.mmm

MS SQL Server 的基底日期（1900-01-01 00:00:00.000）有兩種表示方式

SELECT CAST(0 AS datetime)
SELECT CAST('' AS datetime)

搭配 REPLACE 應用

-- 利用 REPLACE 把 連接號（-）、空格和冒號（:）拿掉
SELECT
 REPLACE(
   REPLACE(
     REPLACE(CONVERT(varchar(20), GETDATE(), 120 ),'-','') -- 把連結號拿掉
   ,' ','') -- 把空格拿掉
 ,':','') -- 把冒號拿掉

搭配 DATEADD、DATEDIFF 應用

第一天日期計算：
邏輯 1. 用 DATEDIFF 計算從基底日期至欲計算日期，總共有多個年（月、日、季或週）。
邏輯 2. 用 DATEADD + 步驟一的計算值，就可以找到年（月、季或週）的第一天日期或當天的午夜時間。

-- 當年第一天
SELECT 
 DATEADD(yy,
            DATEDIFF(yy,'',GETDATE()) -- 邏輯 1 計算值
        ,'')

-- 當月第一天
SELECT 
 DATEADD(mm,
            DATEDIFF(mm,'',GETDATE()) -- 邏輯 1 計算值
        ,'') 

-- 當季第一天
SELECT 
 DATEADD(qq,
            DATEDIFF(qq,'',GETDATE()) -- 邏輯 1 計算值
        ,'')

-- 當週星期一日期
SELECT 
 DATEADD(wk,
            DATEDIFF(wk,'',GETDATE()) -- 邏輯 1 計算值
        ,'')

最後一天日期計算
邏輯 1. 同第一天日期計算邏輯，先算出第一天日期
邏輯 2. 第一天日期減一天，即為最後一天日期

-- 上月最後一天
SELECT 
 DATEADD(dd,-1,                                         -- 減 1 天
               DATEADD(mm,DATEDIFF(mm,'',GETDATE()),'') -- 當月第一天日期
        )

-- 去年最後一天
SELECT 
 DATEADD(dd,-1,                                         -- 減 1 天
               DATEADD(yy,DATEDIFF(yy,'',GETDATE()),'') -- 當年第一天日期
        )

-- 本月最後一天
SELECT 
 DATEADD(dd,-1,                                             -- 減 1 天
               DATEADD(mm,DATEDIFF(mm,'',GETDATE()) + 1,'') -- 計算值 加 1 個月，找出下個月第一天
        )

-- 本年最後一天
SELECT 
 DATEADD(dd,-1,                                             -- 減 1 天
               DATEADD(yy,DATEDIFF(yy,'',GETDATE()) + 1,'') -- 計算值 加 1 年，找出明年第一天
 )

當天午夜時間

-- 方法一：搭配 DATEADD、DATEDIFF 應用
SELECT
 DATEADD
    (dd,
        DATEDIFF(dd,'',GETDATE())
    ,'')

-- 方法二：利用轉換資料形態
SELECT 
 CAST
    (
      CONVERT(char(10),GETDATE(),112) -- 把 GETDATE() 轉為字串，因限定字元因素，只會產生 yyyy-mm-dd
      AS Datetime
    ) -- 再把 yyyy-mm-dd 轉為 datetime 變成午夜時間

參考資料：

如何用簡單的 SQL 技巧取得特定日期是否為週末假日

威力導演 9 - 直式相片模糊

2011-09-23T07:48:00.002+08:00

Angel 製作婚禮 MV 時，發現相片經過威力導演轉成影像檔後，相片會變的很模糊，而且這個現象只存在於直式相片，橫式相片完全不會有這個困惱，老實講我也完全不知道是怎麼回事，只好請她把一張直式相片（相片大小約 6 MB）寄給我，實際操作看看，轉出後才發現直式相片的效果還真是慘補忍賭，Orz ~~

仔細查看威力導演的轉檔設定後，發現除了預設的選項外，還有其他的設定可以調整轉檔畫質，調整至最大畫素後再轉出後，謝老闆和 Angel 美美的婚紗照就可以完美呈現啦。

一開始是用 MPEG-2 轉出預設選項 DVD HQ 轉出，慘不忍睹。

自行設定轉出檔案畫質（1920 X 1080）。

自訂畫質後轉出的檔案

和 Angel 討論過程中也發現：

4:3 和 16:9 MPEG-2 預設畫質轉檔選項不一樣。

點選威力導演左上角的錄影機選項，可以設定影片要以 4:3 或是 16:9 來呈現

4:3 和 16:9 MPEG-2 預設轉出選項差異

威力導演也有版本編號差別。

點選右上角 PowerDirector 字樣可以查詢版本資訊

威力導演7教學-轉檔格式的建議
威力導演更新檔下載

[VFP] Class definition MSXML2.DOMDOCUMENT.4.0 is not found

2011-09-16T08:33:00.002+08:00

在 Win7 32 bit 上安裝 VFP 9.0，安裝完畢後，一打開就看到下列圖示訊息，Task Pane Manager 竟然不正常，重灌也是同樣的情況，OrZ。

根據錯誤訊息，檢查有 VFP 9.0 正常運作的電腦，發現有安裝 MSXML 4.0，果然把它安裝上去後，就 OK 啦。

備註：Download Center 中的 MSXML 4.0 Service Pack 2 內有多個檔案，我只安裝 msxml.msi 而已

參考資料：

VFP 愛用者社群討論文章
MSXML 4.0 Service Pack 2

相機編號

2011-09-09T07:53:00.003+08:00

整理佾錚婚禮相片時，突然發現相片檔案竟然少掉一半，直覺是記憶卡出問題，導致檔案遺失，整個人都慌掉了，後來把記憶卡插回相機時，不見的相片竟然又出現，發現因為相片編號已經達 9999，所以重頭開始編號，而原本記憶卡內的資料夾，也多出一個，重新編號的相片，通通都在新資料夾裡，好李家在，虛驚一場。

[Windows] Windows 7 桌面圖示全部消失

2011-09-02T07:41:00.002+08:00

從另外一個廠回到座位時，公司小姐急急忙忙把我叫住，並說明桌面上的圖示，通通不見啦，即使重新開機也不會出現，當時心中只有一個想法，OOXX 不會是中毒了吧，後來檢查了一下，發現只是設定值被她改掉而已，虛驚一場。

在桌面上右鍵 => 檢視 => 勾選顯示桌面圖示

特地到 Windows XP 中尋找，原來 XP 中也有這個選項，果然是我少見多怪。

[Windows 7] 桌面圖示、檔案都不見了怎麼辦？

PenGhu - 安和順夜釣小管

2011-08-31T07:54:00.001+08:00

當初計畫時，宗達就說一定要來夜釣小管啦，在小圓規畫下，我們三個男的去夜釣，她們兩個去吃大餐聊心事，小圓把我們帶到金鎖港飲食店並說明到達鎖港的路線後，就享受大餐去囉，在這裡品嘗雙拼（肉粽+筒仔米糕）組合，順道吹冷氣看新聞殺時間，等待夜釣時間。

集合地點在紫薇宮紫薇大帝旁的一個貨櫃屋，有個很明顯的紅色招牌，一開始看到有人拿桌子和椅子出來排，還以為是要辦出海的說明會，沒想到是要準備大快朵頤，但跟我們沒有關係。

海釣最累的地方，莫過於到達目的地後開始夜釣，船在海面上漂阿漂，對會暈船的人而言，真是一大折磨，不過讓人更機車的是，工作人員在船首抽菸時，那飄來的二手菸，真的比船在晃，更讓人想吐，這次海釣唯一不爽的地方，>.< ~~

海釣約兩個小時，這過程中，好像只有一位客人釣到小管，其他的不是工作人員、就是當地人（有位民宿老闆帶朋友來玩的樣子）釣到，我們三個阿呆，當然是也是共估的那一群，哈 ~~；拜工作人員努力，讓我們有小管沙西米、川燙小管和小管麵線可以品嘗，光是那小管沙西米，在高雄吃大概就破千了吧，而且超Q的，這趟海釣最有價值的地方，就屬吃小管沙西米啦，讚 ~~

[SQL] 字串填補函數

2011-08-26T08:09:00.003+08:00

在 VFP 中有兩個函數 PADL() 和 PADR()，可以把字串填入特定字元至指定長度，而在 SQL Server 內則是可以利用 REPLICATE()、RIGHT() 、 LEFT() 和 LEN() 來達到相同的效果。

首先建立使用者自定函數，SQL 語法如下，在此以 PADL() 為例。

CREATE FUNCTION [dbo].[PADL]

(

	@String nvarchar(100),    -- 字串來源

	@PaddingChar nvarchar(1), -- 填補字元

	@StringLen tinyint        -- 字串長度

)

RETURNS nvarchar(200)

AS

BEGIN

	DECLARE @Result nvarchar(200)

   

	-- 方法一

	SET @Result = RIGHT(REPLICATE(@PaddingChar,@StringLen) + @String,@StringLen)

   

	-- 方法二

	SET @Result = REPLICATE(@PaddingChar,@StringLen - LEN(@String)) + @String

   

	RETURN @Result

END

GO

使用方法

SELECT 

	[NO],

	dbo.PADL([NO],'0',10) AS [PADL],

	dbo.PADR([NO],'0',10) AS [PADR]

FROM

	(  

		SELECT '1' AS NO

		UNION ALL

		SELECT '12'

		UNION ALL

		SELECT '123'

		UNION ALL

		SELECT '1234'

		UNION ALL

		SELECT '12345'

	) AS T

結果

參考資料

自訂SQL Server 的 PadLeft、PadlRight 字串填補函數
T-SQL 技巧：產生「固定長度前面補零的數字字串」
SQL Server 填補字串右邊字元函數
SQL 字串補 0
REPLICATE()、RIGHT()、LEFT()、LEN() in MSDN

PenGhu

2011-08-24T08:25:00.004+08:00

相隔三年後，大家再次踏上旅程，特別的是，因為小圓在澎湖 Working Holiday ，所以這次在決定地點上，完全不用考慮，其實大家也是衝著這一點去的啦，小圓萬歲。

參與人員：

蔡政廷、曾昇伯、李佩珊、連雅媛、李宗達

行程簡介：

0805：馬公機場 => 澎湖懷舊餐廳 - 花菜干 => 澎湖生活博物館 => 山水海灘 => 風櫃聽濤 => 金鎖港飲食店 => 安和順夜釣小管 => 澎湖陶兵
0806：澎湖陶兵 => 七美 => 望安 => 虎井 => 傻愛莊 => 馬公市區Shopping => 蔚藍海民宿
0807：蔚藍海民宿 => 奎立山地質公園 => 隘門海灘 => 午餐 => 賦歸

住宿：

0805 澎湖陶兵
0806 蔚藍海

澎湖生活博物館合照

山水海灘合照

奎立山地質公園合照

[VFP] Automation 在 Excel 上的應用

2011-08-19T08:04:00.004+08:00

判斷 Excel 版本

TRY
  loExcel = CREATEOBJECT("Excel.Application")
  IF VARTYPE(loExcel) = "O"

     lcExcelVersion = ALLTRIM(loExcel.APPLICATION.NAME)
     lnExcelVersion = VAL(loExcel.APPLICATION.VERSION)
  
     DO CASE
     CASE lnExcelVersion = 14
          lcExcelVersion = lcExcelVersion + " 2010"
     CASE lnExcelVersion = 12
          lcExcelVersion = lcExcelVersion + " 2007"
     CASE lnExcelVersion = 11
          lcExcelVersion = lcExcelVersion + " 2003"
     CASE lnExcelVersion = 10
          lcExcelVersion = lcExcelVersion + " XP"
     CASE lnExcelVersion = 09
          lcExcelVersion = lcExcelVersion + " 2000"
     CASE lnExcelVersion = 08
          lcExcelVersion = lcExcelVersion + " 97"
     OTHERWISE
          lcExcelVersion = lcExcelVersion + " " + ALLTRIM(STR(lnExcelVersion))
     ENDCASE
  
     lnExcelVersion = loExcel.APPLICATION.International(1)
     DO CASE
     CASE lnExcelVersion = 1
          lcExcelVersion = lcExcelVersion + " 英文版"
     CASE lnExcelVersion = 886
          lcExcelVersion = lcExcelVersion + " 繁體中文版"
     CASE lnExcelVersion = 86
          lcExcelVersion = lcExcelVersion + " 簡體中文版"
     OTHERWISE
          lcExcelVersion = lcExcelVersion + " 非英繁簡版(其國碼=" + ALLTRIM(STR(lnExcelVersion)) + ")"
     ENDCASE
    
     loExcel.QUIT
  ENDIF
CATCH
  -- 不產生任何錯誤訊息
  lcExcelVersion = "沒有安裝 Excel 軟體"
ENDTRY 
MESSAGEBOX(lcExcelVersion) -- 顯示偵測 Excel 結果

常用語法：

loExcel.ActiveSheet..... 和 loExcel.... 皆代表對現在Excel 上擁有控制權的 Sheet 進行動作。
指定 Sheet 的方法有三種：ActiveSheet 現在 Excel 上擁有控制權的 Sheet、Sheets(Var) 和 WorkSheets(Var) 為指定 Sheet 的兩種方式，Var 可以為 Sheet 名稱或是索引值。

-- 以下語法大多利用 ActiveSheet 來指定 Sheet，當然也可以利用 Sheet(Var)來達到相同效果

loExcel = CREATEOBJECT("Excel.Application") 
  -- 建立 Excel 物件

loExcel.SheetsInNewWorkBook = liSheetQty 
  -- 指定 Excel Sheet 數目

loExcel.WorkBooks.Add 
  -- 根據 SheetsInNewWorkBook 的設定值，把 Sheet 加入 Excel 內

lnSheetQty = loExcel.Sheets.Count 
  -- 查詢 Excel 內有多少個 Sheet

loExcel.Sheets(Var).NAME = SheetName
 -- Sheet 名稱更名

loExcel.ActiveSheet.Delete() 
loExcel.Sheets(Var).Delete() 
  -- 刪除 Sheet

loExcel.Visible = .T. 
  -- 顯示 Excel 物件，預設為不顯示

loExcel.WorkSheets(Var).Activate -- 書上列的
loExcel.Sheets(Var).Activate -- 自己常用
  -- 指定 Excel Sheet

loExcel.WorkBooks.OPEN((lcExcelPath)) 
  -- 打開 Excel 檔案 ； lcExcelPath 必須包含副檔（XLS、XLSX）
  
loExcel.ActiveSheet.Cells(lnRows,lnColumns) = Values
loExcel.Sheets(Var).Cells(lnRows,lnColumns) = Values
loExcel.Cells(lnRows,lnColumns).Value = Values
  -- 設定儲存格的資料，EX：Cells(3,5)代表第三行、第五列（欄）
  -- 前兩種方式沒有 Value 屬姓

loExcel.ActiveSheet.Rows(lnRows).FONT.SIZE = lnFontSize
loExcel.ActiveSheet.Columns(lnColumns).FONT.SIZE = lnFontSize
  -- 設定第 lnRows 行和第 lnColumns 列的字形大小

loExcel.ActiveSheet.Rows(lnRows).RowHeight = lnHeight
loExcel.ActiveSheet.Columns(lnColumns).ColumnWidth = lnWidth
  -- 設定第 lnRow 行的高度；設定第 lnColumns 的寬度

loExcel.ActiveSheet.Range(lcRange).Select
  -- 選定區域；lcRange 為儲存格範圍，EX：A1:D10
loExcel.SELECTION.Locked = .F.
 -- 解除選取範圍內的鎖定
loExcel.ActiveSheet.Protect(Password)
 -- 保護現有Sheet，Password 為保護密碼
loExcel.ActiveSheet.unProtect(Password)
 -- 取消保護現有Sheet，Password 為保護密碼

loExcel.ActiveSheet.Range(lcRange).Borders.LineStyle = nLineInt -- 設定上下左右的線條
loExcel.ActiveSheet.Range(lcRange).Border(nInt).LineStyle = nLineInt -- 依據 nInt 值設定哪一邊的線條
  -- lcRange 為儲存格範圍，EX：A1:D10
  -- nLineInt，1 和 7 為細實線、2 為細虛線、4 為點虛線、9 為雙細實線
  -- nInt 參數為：1 - 左、2 - 右、3 - 上、4 - 下、5 - 左斜、6 - 右斜

loExcel.ActiveSheet.Range(lcRange).Borders.Weight = nInt
  -- 設定邊框線粗細

loExcel.ActiveSheet.Cells(lnRows,lnColumns).VerticalAlignment = lnValue
loExcel.ActiveSheet.Rows(lnRows).VerticalAlignment = lnValue
loExcel.ActiveSheet.Columns(lnColumns).VerticalAlignment = lnValue
  -- 設定垂直對齊方式，lnValue 1 為靠上對齊、2為置中對齊、3為靠下對齊

loExcel.ActiveSheet.Cells(lnRow,lnColumns).HorizontalAlignment = lnValue
loExcel.ActiveSheet.Rows(lnRows).HorizontalAlignment = lnValue
loExcel.ActiveSheet.Columns(lnColumns).HorizontalAlignment = lnValue
  -- 設定水平對齊方式，lnValue 1 為向右對齊、2為向左對齊、3為置中對齊

loExcel.ActiveSheet.Rows(lnRows).Insert
  -- 在第 lnRows 行前插入一行

loExcel.ActiveSheet.PageSetup.PaperSize = nPrinterSetting 
  -- 設定 Sheet 的紙張大小，常見設定值： 8 為 A3、9 為 A4
  -- 查詢 Help 中的 PrtInfo() 可以查到全部紙張的 nPrinterSetting 

loExcel.ActiveSheet.PageSetup.Orientation = nPrinterSetting 
  -- 設定 Sheet 紙張方向， 1 為直向、2 為橫向

loExcel.ActiveSheet.Range(lcRange).Merge
  --合併資料格，lcRange 為儲存格範圍，EX：A1:D1

loExcel.ActiveSheet.PageSetup.TopMargin = 1 / 0.035 -- 上邊界
loExcel.ActiveSheet.PageSetup.BottomMargin = 1 / 0.035 -- 下邊界
loExcel.ActiveSheet.PageSetup.LeftMargin = 1 / 0.035 -- 左邊界
loExcel.ActiveSheet.PageSetup.RightMargin = 1 / 0.035 -- 右邊界
  -- 設定邊界，1 / 0.035 = 1 mm

loExcel.ActiveSheet.PageSetup.LeftHeader = lcContent -- 頁首左邊
loExcel.ActiveSheet.PageSetup.CenterHeader = lcContent -- 頁首中間
loExcel.ActiveSheet.PageSetup.RightHeader = lcContent -- 頁首右邊

loExcel.ActiveSheet.PageSetup.LeftFooter = lcContent -- 頁尾左邊
loExcel.ActiveSheet.PageSetup.CenterFooter = lcContent -- 頁尾中間
loExcel.ActiveSheet.PageSetup.RightFooter = lcContent -- 頁尾右邊

loExcel.ActiveSheet.Columns(lnColumns).NumberFormatlocal = Format
 --  Format 為欲設定格式
 -- "@" 設定為文字
 -- "G/通用格式" 設定為通用格式
 -- "#,##0_ " 設定資料為數值，且有千分位符號
 -- "[$-404]e/m/d;@"  西元年格式改為民國年格式
 -- "[>99999999]0000-000-000;000-000-000" 行動電話、呼叫器號碼

loExcel.ActiveSheet.Cells(lnRows,lnColumns).Formula = Formula
 -- Formula 設定公式
 -- "=SUM(A1:B1)" 加總
 -- "=AVERAGE(A1:B1)" 平均

loExcel.SELECTION.WrapText = .T.
 -- 自動換列

lcPrintTitleRange = "lnROWStart:lnROWEnd" -- EX： 1:3
loExcel.ActiveSheet.RANGE(lcPrintTitleRange).SELECT
loExcel.ActiveSheet.PageSetup.PrintTitleRows = lcPrintTitleRange
 -- 設定列印標頭

loExcel.ActiveSheet.COLUMNS(lnColumns).HIDDEN = Visible
loExcel.ActiveSheet.ROWS(lnRows).HIDDEN =  Visible
 -- 隱藏 Column 或 Row；. Visible  為 T.為隱藏、.F.為顯示（預設值）

loExcel.DisplayAlerts = .F.
  -- 關閉 Excel 警示，
  -- EX1：未儲存前，嘗試關閉 Excel，會詢問是否要儲存
  -- EX2：刪除 Sheet 時，會 DBCheck 是否要刪除 Sheet 
  -- EX3：合併儲存格會跳出警告

loExcel.ActiveWorkbook.Save
  -- 對 Excel 進行儲存

loExcel.Quit
  -- 關閉 Excel

資料匯出

SELECT curData -- 欲匯出資料 Cursor
SCAN
   FOR lnCount = 1 TO FCOUNT("curData")
       lcField = EVALUATE(FIELD(lnCount)) -- 利用 Evaluate() 抓值
       -- 假設已事先打開 Excel 物件
       loExcel.Sheets(Var).cells(RECNO("curData"), lnCount) = lcField
   ENDFOR

   SELECT curData
ENDSCAN

利用錄製巨集來了解 VBA 語法

以此為例子說明如何利用錄製巨集了解 VBA 語法：在 cell(1,1) 輸入手機號碼，並設定格式為"行動電話、呼叫器號碼"。

開啟錄製巨集
在 cell(1,1)內輸入手機號碼 0916123456，輸入完後在 cell(1,1) 內會顯示 916123456
儲存格格式內，數值 Tag -> 類別（特殊）-> 類型（行動電話、呼叫器號碼）
編輯已錄製的巨集

-- 巨集內容
Sub Macro1()
    ActiveCell.FormulaR1C1 = "916123456"
    Range("A1").Select
    Selection.NumberFormatLocal = "[>99999999]0000-000-000;000-000-000"
    Application.Goto Reference:="Macro1"
End Sub

HighLight 的 "[>99999999]0000-000-000;000-000-000"　就是行動電話、呼叫器號碼的格式。

Blueshop Certified Professional 2011

2011-08-12T10:02:00.000+08:00

原本沒有要申請，工作到一半，頭昏昏腦鈍鈍就把申請表填好送出，因為沒有收到紙本證明，所以沒有廢紙可以拿去碎，自我感覺良好 + 1 。

直接寄到 mail 的檔案

郵寄到手，信用卡大小的證明

Fuji Xerox DocuPrint M205 b 掃描初值設定值

2011-08-05T07:45:00.003+08:00

M205 b 掃描的預設值，檔案格式為 PDF、解析度為 200 x 200 dpi，第一次使用時就覺得很麻煩，每次掃描都會依據預設值進行掃瞄動作，偏偏原廠預設值又不符合需求，每次使用都必須設定也是挺煩人的，好在可以設定掃描預設值，而每次掃描後 30 秒內，都可以直接繼續掃描 (多檔案掃描 )，超過30秒後，又會回到M205 b預設狀態，要掃描請在重新按掃描鍵，並選擇儲存位置，沒有重新選取的話，此時會動作的可是複印功能喔。

機器確認/規格設定（有 i 符號的按鈕，按下去後會有藍光顯示） => 初值設定 => 掃描功能初值設定，在這裡就可以調整預設值。

掃描設定，有一個比較特別的地方就是設定彩色模式選項的黑白（以黑白模式掃描），只有在印出檔案格式為 PDF 或是 TIFF 格式下才可以使用。

在檔案格式為 JPEG 的情況下選擇彩色模式選項為黑白

在彩色模式選項為黑白的設定下，選擇 JPEG 檔案格式

最後一定要提的是，這是一個寫程式人的懶惰心態，為什麼掃描檔案輸出的位置，沒有辦法設定，每次都還要選擇，那麼多設定值，竟然漏掉它 ~~

參考資料：

操作說明書 => 掃描 => 調整掃描選項

[SQL] CURSOR

2011-07-29T07:57:00.011+08:00

SQL Server DML 語法（SELECT、UPDATE 和 DELETE）是以資料集為資料處理單位，方便且有效率，而 Cursor 則是以記錄為資料處理單位，對於資料操作彈性較大。

SQL Cursor 的基礎架構。

DECLARE curTemp CURSOR   -- 宣告 Cursor 及其資料來源
  FOR 
      (
        SELECT Col1,Col2,Col3......
        FROM SourceTable
        WHERE Condition
      )

OPEN curTemp -- 打開 Cursor，並建立 Cursor 與資料表關連

DECLARE @var1 as .....
DECLARE @var2 as .....

FETCH NEXT FROM curTemp INTO @var1,@var2 -- 將資料存進變數中
  WHILE (@@FETCH_STATUS = 0) -- 檢查是否有讀取到資料
    BEGIN   
 
      .................... 

      FETCH NEXT FROM curTemp INTO @var1,@var2  
    END

CLOSE curTemp -- 關閉 Cursor，並關閉 Cursor 與資料表連結
DEALLOCATE curTemp -- 將 Cursor 物件移除

使用 Cursor 會導致 SQLServer 效能不彰，應視為最後手段，但假如使用時請注意下列事項：

盡量由前往後讀取資料就好 FORWARD_ONLY 和 FETCH NEXT 為預設值，不要使用 SCROLL 和 FETCH PRIOR、FETCH FIRST、FETCH LAST 等語法。
不要利用 Cursor 來修改和刪除資料。

判斷 Cursor 中的最後一筆資料

利用 @@CURSOR_ROWS 來查詢最近一次 OPEN 的 Cursor 中有多少筆資料。

DECLARE @Temp Table (EmpNO char(5),EmpName nchar(8))
INSERt INTO @Temp VALUES ('00001','張三')
INSERt INTO @Temp VALUES ('00002','李四')
INSERt INTO @Temp VALUES ('00003','王五')

-- Cursor 的 T-SQL 延伸語法
DECLARE curTemp CURSOR STATIC -- 宣告此 Cursor 為 STATIC
  FOR
     (
       SELECT EmpNO,EmpName
       FROM @Temp
       WHERE EmpNO IN ('00001','00002')
     )

OPEN curTemp
 
DECLARE @EmpNO as char(5),@EmpName nchar(8)
DECLARE @Count as smallint 

SET @Count = 0 -- 設定一個計數變數

FETCH NEXT FROM curTemp INTO @EmpNO,@EmpName
  WHILE (@@FETCH_STATUS = 0)
    BEGIN  
      SET @Count = @Count + 1
 
      IF @Count = @@CURSOR_ROWS
          PRINT '最後一筆資料為 ' + @EmpName
   
      FETCH NEXT FROM curTemp INTO @EmpNO,@EmpName
    END
 
CLOSE curTemp
DEALLOCATE curTemp

說明：

由於動態資料指標會反映所有變更，因此，Cursor 內資料列數會不斷改變，@@CURSOR_ROWS 永遠不可能明確指出 Cursor 內有多少資料列數，也因此必須把 Cursor 設為靜態指標（STATIC）。
宣告 Cursor 為 STATIC，會先把資料放進 TempDB 內，應盡量縮小資料量，以免 TempDB 瞬間爆增，影響效能。

參考資料：

DECLARE CUROSR、FETCH、@@FETCH_STATUS 、@@CURSOR_ROWS
關於選擇資料指標類型
藍色小舖討論文章

[SQL] 數學運算-除法

2011-07-22T08:11:00.008+08:00

當一個運算子（EX：加減乘除四則運算）結合兩個不同資料類型的運算式（EX：被乘法乘法、被除數除數）時，資料類型優先順序的規則，會指定將低優先順序的資料類型，轉換為高優先順序的資料類型。如果轉換不是支援的隱含轉換，就會傳回錯誤。如果這兩個運算元運算式的資料類型相同，則作業結果就含有該資料類型。

除法 Dividend / Divisor

製作報表時，常常需要用百分比表示，因此會利用到除法來進行計算，使用除法有兩件注意事項

分母不得為零

當 T-SQL 語法中分母為零會出現 發現除以零錯誤 的錯誤訊息。

SELECT 1.0 / 0 -- 模擬除以零錯誤

NULLIF() 說明：

語法：NULLIF ( express1 , express2 )
傳回類型：當 express1 等於 express2 時，會傳回 NULL；當 express1 不等於 express2 時，傳回 express1 值。

利用 NULLIF() 函數來處理分母，把分母為零轉換成 NULL ，搭配 NULL 本身的特性（任何數值除以 NULL 結果為 NULL ），就可以避免錯誤發生，而 NULLIF() 其實也算是 CASE WHEN 的應用之一。

SELECT 
      1.0 / NULLIF(T.[分母], 0) AS [利用 NULLIF], 
      1.0 / CASE WHEN T.[分母] = 0 THEN NULL ELSE T.[分母] END AS [利用 CASE WHEN 1],
      CASE WHEN T.[分母] = 0 THEN NULL ELSE 1.0 / T.[分母] END AS [利用 CASE WHEN 2],
      CASE WHEN T.[分母] = 0 THEN 0 ELSE 1.0 / T.[分母] END AS [利用 CASE WHEN 3],
      CASE WHEN T.[分母] = 0 THEN '分母為0' ELSE '分母不為0' END AS [文字敘述]
FROM 
      (
          SELECT 0 AS [分母]
          UNION ALL
          SELECT 3
      ) T

整數相除

整數 Dividend 除以整數 Divisor，結果就是整數，結果的任何小數點後數字部份都會截斷，因此要獲得百分比，必須先把 int 轉換成 numeric，根據資料型態優先順序，就會有小數點產生。

SELECT 
  T.[算式],
  T.[結果]
FROM
 (
  SELECT '10 / 3' AS [算式] , 10 / 3 AS [結果]
  UNION ALL
  SELECT '10.0 / 3', 10.0 / 3
  UNION ALL 
  SELECT '10 / 3.0' , 10 / 3.0
  UNION ALL 
  SELECT 'CAST(10 AS numeric) / 3 ' , CAST(10 AS numeric) / 3
  UNION ALL 
  SELECT '(CAST(1 AS numeric) * 10) / 3' , (CAST(1 AS numeric) * 10) / 3
  UNION ALL 
  SELECT '(1.0 * 10) / 3' , (1.0 * 10) / 3
  UNION ALL 
  SELECT '10 / (3 * 1.0 )' , 10 / (3 * 1.0 )
 ) AS T

參考資料：

iGoogle 還原功能

2011-07-15T08:10:00.000+08:00

我都利用 iGoogle 的便利貼來記錄些重要或待辦事項，某天進入 iGoogle 時，嚇了一跳，我的便利貼竟然不見了，即使我把便利貼再加回來，便利貼的內容也都歸零了，當下一整個臉都綠了 ~~

在 Google 搜尋頁面的右上角可以看到列圖示，請點擊設定 => iGoogle 設定。

iGoogle 設定 => 一般 Tab 下方有個疑難排解 / 回復功能，請選擇下拉式選單，選擇要回復的時間點，再點擊立刻回復，我的便利貼內容就回來啦，感動 ~~

Blogger Page

2011-07-08T16:56:00.002+08:00

網頁（Blogger Page），個人比較喜歡稱為"水平導覽列選單"（Navigation 或 Tag），當這個功能一推出時，嘗試使用它，一直對產生的效果，有很大的疑問，最近才發現原來是因為當初我設定只把首頁文章設為顯示內文，其他地方只顯示標題，所以網頁功能也受影響，修改語法後，網頁功能就恢復正常啦。

原始語法，設定不在內文的話，只顯示文章標題。

修改語法為 index（Lable 標籤分類）和 archive（Archive 存檔頁面）時，只顯示標題。

我完全不懂 CSS 語法，邏輯上應該寫為 blog.pageType == "index" OR blog.pageType == "archive" 就好，試不出來的情況下，就在 IF 內多判斷一次，反正效果一樣，看起來笨一點就是。

其他好用的判斷方式

參考資料：

紹歧 & 逸雯

2011-07-01T09:32:00.002+08:00

33 rd 第一人，從 MV 製作到小禮物（奇異果）的發放，都可以看見用心的巧思，而最成功之處莫過於找到好伴娘，讓簡單的遊戲，也充滿樂趣。

33 rd 最會打領帶的男人，可不是浪得虛名的

這次闖關遊戲，最成功之處，莫過於這兩位主持人，讓原本平凡的遊戲，充滿樂趣，讚 ~~

感人祝福辭，逸雯媽媽利用存款簿來比喻，人生中有許多存款簿，不是只有愛情和事業存款簿，期許紹歧和逸雯，能在家庭、健康....等的存款簿上努力。

第一次進場：讓我們歡迎 Robert 陳進場。紹歧活像個機器人，到了第一個轉角後才恢復正常。

原本只是突發奇想，想拍敬酒酒杯和紹歧，沒想到專業的錄影大哥，也有用這個想法，原來它是老梗了，哈 ~~

相片花籃中是奇異果，奇異果是便條紙，取其兩人的諧音，奇 - 歧、異 - 逸，果當然是指開花結果的意思囉 ~~

彥帥的創意，33rd的結婚紀念碑

到場祝福的山社成員，大家社歌都不太熟了，>.<

－－－－－相片集－－－－－－－

來至 EBC 的祝福

2011-06-24T08:03:00.006+08:00

33rd 漂鳥哥遠征 EBC 時寄來的小禮物，收到時最驚訝的事情，莫過於我變成留守，我明明是幫維彰學長把至凱寄來的簡訊，轉到駱駝網站上而已，Orz ~~

感謝漂鳥哥在 6000 公尺高山還記的我們，我們家小才女要祝福他

順利尋得美嬌娘，才子佳人伴一生

FaceBook 相片集

秉忠
至凱
宇儂

記憶體配置錯誤

2011-06-17T08:26:00.003+08:00

把 AutoCAD LT 2000 安裝在 Windows 7 32 bit 上使用，使用者回報說，AutoCAD 本身都抓不到 Windows 內的印表機，錯誤訊息是 "記憶體配置錯誤"，在官方網站搜尋到修正檔案，沒想到安裝後竟然只有錯誤訊息變成英文，有注意到安裝過程中有警告訊息說語言不同，但是卻找不到中文修正檔。OrZ ~~

未安裝更新前的錯誤訊息。

安裝更新後，第一個錯誤訊息變成英文，第二個則是沒變。

安裝更新時，語言版本不同的警告訊息。

Google 不到適合的解決方案後，只好打電話去聯強詢問，很神奇的是打電話打了半個小時都沒人接，最後是寄 Mail 去詢問才得到回應。

聯強官方的回信內容：

AutoCAD 2000 ( 含LT ) 的出圖問題只要安裝英文版修正檔即可，沒有提供中文版修正檔。
AutoCAD 2000 ( 含LT ) 不支援 Windows 2000 以上的系統，不僅是出圖錯誤，還可能出現破圖、嚴重錯誤、授權突然失效等問題。

因此，建議您將AutoCAD 2000 ( 含LT ) 安裝在有支援的系統下使用，或將 AutoCAD 升級到能支援 Windows 7 的版本。目前支援 Windows 7 32 bit / 64 bit 的 AutoCAD 版本為 2011 與 2012。

AutoCAD 軟體本身無解後，改往 Windows 7 上去找解決方案，在 Progran Files => AutoCAD LT 2000 => aclt 執行擋 => 執行檔右鍵內容 => 相容性 =>勾選 "以相容模式執行這個程式"，並選擇 Windows XP SP3 後，執行 AutoCAD 2000 LT 的列印，竟然可以正常輸出，以前用這個相容性功能時，軟體都沒有因此而正常，沒想到這次它竟然是救星。

備註：先安裝官方檔案才設定 Windows 7 相容性測試，沒有試過只設定 Windows 7 相容性測試，有機會再來試看看，看是否需要安裝更新才能列印。

延伸閱讀：

MEM_BAD_POINTER

參考資料：

[SQL] 備份歷史紀錄

2011-06-10T13:01:00.005+08:00

公司的 SQL Server 是 Express 版本，因此我要判斷每天自動備份機制，是否有正常作業，必須依賴 Windows 事件檢視器、Windows 排程記錄檔或 SQL msdb 內的備份歷史紀錄，

Windows 的事件檢視器

每次 SQL 備份都會在事件檢視器內留下記錄，但事件檢視器內會包含其他訊息，所以必須利用篩選功能去找出備份相關事件。

Windows 排程記錄檔

Windows 排程記錄檔有個缺點是，最近完成的記錄，並不會在檔案的最下面，大概都在檔案四分之三處，因此查詢時很麻煩。

SQL msdb 內的備份歷史紀錄

SQL Server 的每次的備份、還原都會紀錄在 msdb 內，也是我主要的查詢方式。

最近公司整理 Server，當我把備份檔案還原到新 Server 時，發現新 Server 內的備份紀錄是舊的，雖然不影響 SQL Server，但總是美中不足，而且也很容易誤導別人。

在 PC-JENGTING 電腦上備份 AdvertureWork，再還原至 NB-IC 電腦上去來說明。

SELECT @@ServerName -- 目前伺服器名稱

-- 利用 backupset 來查詢備份紀錄
SELECT 
  [server_name] AS '伺服器名稱',
  [database_name] AS '資料庫名稱',
  CASE [type]
     WHEN 'D' THEN N'資料庫'
     WHEN 'I' THEN N'差異資料庫'
     WHEN 'L' THEN N'紀錄'
     WHEN 'F' THEN N'檔案或檔案群組'
     WHEN 'G' THEN N'差異檔案'
     WHEN 'P' THEN N'部分'
     WHEN 'Q' THEN N'差異部分'
     ELSE N'NULL'
  END AS '備份類型',
  [backup_finish_date] AS '備份完成的日期和時間'
FROM msdb..backupset
WHERE [database_name] = 'AdventureWorks' -- 沒有指定 database_name 則會查出全部使用者自訂 DB 備份、還原紀錄
ORDER BY
 database_name, backup_finish_date

上述 T-SQL 顯示結果

sp_delete_database_backuphistory 和 sp_delete_backuphistory 這兩個預存程序都可以刪除備份、還原紀錄。

sp_delete_database_backuphistory 刪除指定 DB 紀錄
sp_delete_backuphistory 刪除指定日期前紀錄

-- 使用範例說明
EXEC msdb.dbo.sp_delete_database_backuphistory 'AdvertureWork' -- 刪除指定 DB
EXEC msdb.dbo.sp_delete_backuphistory '20110501' -- 刪除指定日期前

另外在刪除 DB 時，預設是會勾選"刪除資料庫的備份和還原歷程資料資訊"，也會一併把備份歷史紀錄刪除。

實際環境為 Windows Server 2000 SP4 和 SQL Server 2005 Express with Advance SP3

參考資料：

佾錚 & 又瑛

2011-06-03T11:29:00.005+08:00

當知道佾錚要結婚的消息時，就知道這攤跑不掉啦，畢竟是大學三年室友，不去說不過去，更何況又是在高雄。隨著時間的接近，開始詢問當天流程，當聽他說到是集體結婚時 - 縣市合併後第一屆市民集體結婚，一整個新鮮，身旁第一次有朋友參加集體結婚。

人在最右邊。

不過更神奇的是婚禮當天要到飯店迎娶新娘時，因為來幫忙婚禮的人，都是謝爸爸朋友，基於不失禮的想法，謝爸爸堅持要先讓幫忙的人吃完午飯後，才出發到飯店迎娶，但流水席師傅出菜delay，我頓時變成佾錚和謝爸爸的夾心餅乾，一個不爽幹嘛一直拖，一個要款待朋友，謝爸爸最後竟然當著佾錚的面，一直跟我說他的難處，要我評評理，當他一直跟我解釋時，我只有一個想法，阿伯，你兒子不是我，不用跟我解釋啦，OrZ ~~

---------- 婚禮相片集 ----------

延伸閱讀：

[VFP] Windows Script Host - FileSystemObject

2011-05-27T17:09:00.003+08:00

之前利用COPY FILE 命令搬移公司派工圖檔時才發現，COPY FILE 命令複製檔案時，會把檔名全部變成小寫，為了避免這個問題，因此改用 Windows Script Host（WSH）- FileSystemObject（FSO）來複製檔案，就可以避免這個問題。

oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile((cOldFilePath),(cNewFilePath))
RELEASE oFSO

而在VFP中，並沒有可以重新命名資料夾的指令，可以利用 FSO 的 MoveFolder 來達成。

oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.MoveFolder((cOldDirPath),(cNewDirPath))
RELEASE oFSO

MoveFolder可以用來搬移檔案，進階使用更改資料夾名稱，而更改檔案名稱也是一樣的用法。

oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.MoveFile((cOldFilePath),(cNewFilePath))
RELEASE oFSO

利用 RMDIR 或 RD 命令刪除資料夾時，出現 "The directory is not empty（目錄不是空的）" 錯誤，才發現資料夾內假如有隱藏的系統檔案，會無法刪除資料夾，EX：Thumbs.db，利用 FSO 即使有系統檔案也可以刪除資料夾。

oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFolder((lcDirPath))
RELEASE oFSO

備註：作業系統從 Windows 98 開始有 WSH；只有 Windows 95 和 Windows NT 4.0 沒有

參考資料：

Windows Server System 系統管理之 Windows Script Host
Wiki - Windows Script Host -- Windows和Windows Script Host版本對應說明
Using Microsoft Windows Script in Visual FoxPro
Examples of Window Scripting uses in VFP

電腦機殼外接風扇

2011-05-20T14:53:00.000+08:00

現在電腦機殼為了讓散熱變得好一些，通常機殼內會有風扇幫忙散熱，或是機殼本身空氣流通的範圍會增加，最近幫朋友修電腦時，看到自製外接風扇，當下有點傻眼，因為通常散熱不良的話，大家會採取的方法是把外殼拿掉，第一次看到用暴力法去改善散熱的方式。

從外部看風扇，風扇要接上電源，上面開關喔

從內部看風扇

這張就可以很明顯看出來，是用工具強行挖個洞，再把風扇給鎖上去。

好奇心驅使下，把電源打開，真是有夠吵得，為了散熱而進行的改造，換來的是噪音值飆升，還是不安裝機殼，增加空氣流通範圍才是王道阿。

Plurk Badge

2011-05-14T11:57:00.003+08:00

Plurk Badge 簡單來說，就是讓你可以在 Blog 上顯示個人的 Plurk 資料，或者是說讓人家知道你有在使用 Plurk ，有點類似 Flickr Badge 的意思。

首先在 Plurk 河道的左上角一定可以看到下列圖示，請按個人檔案旁的編輯。

點選噗浪貼的Tab，就可以看見有兩個版本，HTML版本和圖片版本可以選擇，每個版本的最下方都會提供語法，讓你可以使用他它來顯示 Plurk Badge。

HTML版本可以讓你自訂顏色；圖片版本則是可以選擇直向或是橫向。

HTML版本，會顯示最新的十則 Plurk，要回應還是必須到 Plurk 上去。

Plurk.com

圖文版本，就很單純顯示個人 Plurk 資訊。

當然以上的資訊都是選擇公開的情況下才看的到，假如在隱私權上有設定，那就看不到囉。

[SQL] BACKUP 權限

2011-05-06T17:08:00.001+08:00

之前在 SQL Server 2005 Express 上用 BACKUP 語法去備份資料時，都會出現下列這個錯誤，因為線上的SQL 2005 Standard 備份時，並沒有發生這個現象，所以這個問題就自動被忽略掉。

這幾天把 MSDN 上的 BACKUP T-SQL 介紹拿出來看看，在文中說明權限時發現這段文字

SQL Server 必須能夠讀取和寫入裝置；執行 SQL Server 服務的帳戶必須有寫入權限

馬上去開啟組態管理員來檢查啟動 SQL Server 的登入身分，是"網路服務"，改為"本機系統"，再去進行備份就可以啦，當初安裝時，只要安裝過程沒有出現錯誤就好，沒有注意到網路服務，沒有存取磁碟權限這個問題。

在設定 Windows 的服務帳戶這篇文章內提到，SQL Server 2005 Express 的 SQL Server 服務，安裝預設是內建帳戶的網路服務，但又說 "Microsoft 建議您不要對 SQL Server 或 SQL Server Agent 服務使用網路服務帳戶。這些 SQL Server 服務較適用於本機使用者或網域使用者帳戶"，都已經建議，為什麼不乾脆預設值就設好，^_^ \\ ~~

版本：SQL Server 2005 Express with Advance SP3

MSDN 參考資料

Fuji Xerox DocuPrint M205 b 過熱保護

2011-04-29T10:22:00.002+08:00

這幾天需要大量列印資料，資料大約有270頁左右，但是當列印至250頁左右出現過熱警訊，等待約 5 分鐘左右，M205 b 才又開始進行列印。

操作面板上警示

Windows 上警示

在操作說明書內（發生故障時 => 列印故障），有找到這個說明：

故障：印表機於列印期間停止工作。
處置方式：檢查 LCD 面板或印表機設定公用程式上是否顯示訊息。若顯示「冷卻中請稍後幾分鐘」訊息，說明印表機溫度過高，在降溫中。請稍候數分鍾。待降溫後，印表機便會重新啟動。

畢竟是台小機器，沒有辦法像公司大機器一樣，一次列印這麼多，根據這次經驗，M205 列印個 200 張，最好讓它休息一下，大約250張就會出現過熱警訊。

[VFP] SPT Updatable

2011-04-22T17:04:00.007+08:00

在 VFP 中對 SQL Server 進行資料存取，有三種模式分別為 Remote View、SQL Pass Through（SPT）和 CursorAdapter（CA），我一直是以 CA 為主來對資料進行存取、SPT 為查詢資料主力。

無論是 SPT 或 CA 在前端產生的 Cursor 要對後端資料庫進行新增、更新和刪除動作（updatable），有四個屬性一定要設定，分別為 Table、KeyFieldList、UpdatableFieldList、UpdateNameList，在 CA 可以利用勾選方式輕鬆完成設定，但在 SPT 中就必須一個一個 Key，其中又以 UpdatableFieldList 和 UpdateNameList 兩個屬性最讓人討厭，因此才會想寫個 PRG 來設定屬性。

參數說明：
tcConnection：傳入連線。
tcSQL：傳入產生此 CURSOR 的 T-SQL 語法。
tcTableName：SQL Server 內的 TableName，因會利用 INFORMATION_SCHEMA 的 VIEW，所以使用者必須明確指定要抓取 SQL Server 內的哪一個 Table。
tcAlias：當使用者用 SPT 抓取資料後，可能會另外給 CURSOR 別名，此時必須針對此 CURSOR 別名進行設定。
tnBuffering：設定資料緩衝，預設為 5

LPARAMETERS tnConnection AS number ,tcSQL AS string ,tcTableName AS string,tcAlias AS string,tnBuffering AS number

LOCAL lcTable,lcKeyFieldList,lcUpdatableFieldList,lcUpdateNameList,lcContent,lcSearchKey,lcTableName,lcSQL,lcTable_Name,lcColumn_name AS string
LOCAL lnCount,lnResult AS number
LOCAL liKey,liSpace,liDot AS integer  

lcTable = ""
lcKeyFieldList = ""
lcUpdatableFieldList = ""
lcUpdateNameList = ""

IF VARTYPE(tcConnection) = "L" OR tnConnection < 0
   WAIT WINDOWS "連線有問題"
   RETURN
ENDIF

IF VARTYPE(tcTableName) = "L" OR EMPTY(tcTableName)
   WAIT WINDOWS "沒有指定資料表名稱"
   RETURN
ENDIF

-- 沒有指定別名，表示別名跟資料名稱一樣
IF VARTYPE(tcAlias) = "L"
   tcAlias = tcTableName
ENDIF
IF !USED(tcAlias)
   WAIT WINDOWS "此 Cursor 並不存在，無法設定自動更新"
   RETURN
ENDIF

-- Buffering 預設為 5
IF VARTYPE(tnBuffering) = "L"
   tnBuffering = 5
ENDIF

CREATE CURSOR curTableName (TableName C(30)) -- 用來紀錄抓取的 TableName 避免重覆
FOR lnCount = 1 TO 2

   lcContent = tcSQL -- tcSQL 要跑兩次，所以把它另外存進一個變數

   IF lnCount = 1
      -- 找出 Primary Key
      TEXT TO lcSQL TEXTMERGE NOSHOW
        SELECT T1.TABLE_NAME,T1.CONSTRAINT_Name,T2.COLUMN_NAME
        FROM
            INFORMATION_SCHEMA.TABLE_CONSTRAINTS AS T1
            JOIN
            INFORMATION_SCHEMA.KEY_COLUMN_USAGE AS T2 ON T1.TABLE_NAME = T2.TABLE_NAME AND T1.CONSTRAINT_NAME = T2.CONSTRAINT_NAME
        WHERE T1.CONSTRAINT_TYPE = 'PRIMARY KEY' AND T1.Table_Name = ?tcTableName
      ENDTEXT

      lcSearchKey = "FROM"
   ELSE
      -- 找出全部 Columns
      TEXT TO lcSQL TEXTMERGE NOSHOW
        SELECT TABLE_NAME,COLUMN_NAME
        FROM INFORMATION_SCHEMA.COLUMNS
        WHERE TABLE_NAME = ?tcTableName
      ENDTEXT

      lcSearchKey = "JOIN"
   ENDIF
   lnResult = SQLEXEC(tnConnection,lcSQL,"curData")
   IF lnResult < 0
      AERROR(laError)
      MESSAGEBOX(laError(2))
      RETURN
   ELSE
      IF RECCOUNT("curData") = 0
         WAIT WINDOWS "SQL Server內找不到此 Table "
         RETURN
      ENDIF
   ENDIF

   -- 組合 Table property
   DO WHILE ATC(lcSearchKey,lcContent) <> 0

      liKey = ATC(lcSearchKey,lcContent) -- lcSearchKey 有兩個 FROM 和 JOIN
      lcContent = ALLTRIM(SUBSTR(lcContent,liKey + 4,LEN(lcContent))) -- 縮短字串，並把關鍵字前的空格通通刪除
      liSpace = ATC(SPACE(1),lcContent) -- TableName 後面一定會有空格
      lcTableName = LOWER(ALLTRIM(SUBSTR(lcContent,1,liSpace - 1))) -- 抓取 TableName

      liDot = RAT(".",lcTableName) -- 避免使用者輸入完整名稱 EX：DBName.Owner.TableName OR Owner.TableName
      IF liDot <> 0
         lcTableName = SUBSTR(lcTableName,liDot + 1, LEN(lcTableName))
      ENDIF

      SELECT TableName FROM curTableName WHERE ALLTRIM(TableName) == lcTableName INTO CURSOR curTemp
      IF RECCOUNT("curTemp") = 0
         lcTable = IIF(EMPTY(lcTable),lcTableName,lcTable + "," + lcTableName)
         INSERT INTO curTableName (TableName) VALUES (lcTableName)
      ENDIF
      USE IN SELECT("curTemp")

      lcContent = ALLTRIM(SUBSTR(lcContent,liSpace,LEN(lcContent)))
   ENDDO

   -- 組合 KeyFieldList、UpdatableFieldList 和 UpdateNameList
   SELECT curData
   SCAN

      IF lnCount = 1
         lcColumn_name = LOWER(ALLTRIM(curData.Column_name))

         lcKeyFieldList = IIF(EMPTY(ALLTRIM(lcKeyFieldList)),lcColumn_name,ALLTRIM(lcKeyFieldList) + "," + lcColumn_name)
      ELSE
         lcTable_Name = LOWER(ALLTRIM(curData.Table_Name))
         lcColumn_name = LOWER(ALLTRIM(curData.Column_name))

         lcUpdatableFieldList = IIF(EMPTY(ALLTRIM(lcUpdatableFieldList)),lcColumn_name,ALLTRIM(lcUpdatableFieldList) + "," + lcColumn_name)
         lcUpdateNameList = IIF(EMPTY(ALLTRIM(lcUpdateNameList)),lcColumn_name + " " + lcTable_Name + "." + lcColumn_name,ALLTRIM(lcUpdateNameList) + "," + lcColumn_name + " " + lcTable_Name + "." + lcColumn_name)
      ENDIF

      SELECT curData
   ENDSCAN

ENDFOR

CURSORSETPROP("Tables",lcTable,tcAlias)
CURSORSETPROP("KeyFieldList",lcKeyFieldList,tcAlias)
CURSORSETPROP("UpdatableFieldList",lcUpdatableFieldList,tcAlias)
CURSORSETPROP("UpdateNameList",lcUpdateNameList,tcAlias)
CURSORSETPROP("SendUpdates",.T.,tcAlias)
CURSORSETPROP("Buffering", tnBuffering, tcAlias)

USE IN SELECT("curData")
USE IN SELECT("curTableName")

使用簡易說明

lnHandle = SQLSTRINGCONNECT(...........)
TEXT TO lcSQL TEXTMERGE NOSHOW PRETEXT 2
   SELECT A.*,B.ColName
   FROM TableA AS A JOIN TableB AS B ON A.Key = B.Key
ENDTEXT
lnResult = SQLEXEC(lnHandle,lcSQL,"cTemp")
IF lnResult < 0
   AERROR(laError)
   MESSAGEBOX(laError(2))
   RETURN
ENFIF

DO SPTUpdate WITH lnHandle,lcSQL,"TableA","cTemp",5

這個 PRG 只經過簡單測試可以 Updatable，沒有使用在實際環境中過。

參考資料：

MakeUpdatable in leafe

[Apple] 利用iTune把CD轉MP3

2011-04-15T09:05:00.000+08:00

之前幫大嫂把胖妞要聽的CD轉成mp3來播放，原本想說這是一件苦差事，沒想到iTune就可以簡單達到，雖然Windows Media Player也可以作到，但是它有版本的限制，老實講並不方便，假如大家有此需求，建議安裝iTune來處理。

當把CD放進光碟機，iTune會詢問是否要把CD轉成mp3，只要按"是"，iTune就會把檔案轉成mp3並放置在預設的檔案夾中；預設檔案夾位置使用者文件夾 => 我的音樂（My Music） => iTune資料夾，以我的電腦來說，就是 C:\Documents and Settings\NB-IC\My Documents\My Music ，操作步驟如下：

把CD放進光碟機，iTune會出現詢問訊息。

按下確定後，iTune就會進行轉檔的動作。

匯入完畢後，在音樂選項中，就可以看到匯入的音樂；假如在歌曲上按右鍵清單，清單內的選項 "Windows檔案總管中顯示" 可以直接到此mp3所在的資料夾。

假如想要決定iTune的預設路徑，請在選擇編輯 => 喜好設定 => 進階 => 更改，就可以指定預設路徑。

假如把光碟放進光碟機後，並沒有出現詢問是否要匯入，請至編輯 => 偏好設定 => 一般，看 "放入光碟時" 的選項是不是 "詢問是否匯入光碟"，基本上這是預設值，應該都會動作。

2011 中華職棒開幕賽

2011-04-08T16:26:00.002+08:00

CPBL 在澄清湖球場揭開序幕，小黑和仲輝特地從北部下來看球，一進球場時，就感覺到沒有人認養的棒球場，草皮部分真的是差很多，上次來球場時，感覺草皮很漂亮，一整片綠油油的，現在只有一小片可以媲美以前的草皮。

開賽節目 - 保佑三太子

坐在旁邊是一位特別的北部球迷，當天從新莊趕下來，非常熱情、全場也非常的投入，從第一局開始，就不斷的跟我聊天，聊天內容當然是他看球的豐功偉業，以下簡述一下：

去年新莊球賽不缺席超過五場。
全台球場只有屏東沒有去過。
家人都不會反對嗎？我管她的，要罵就讓她罵。
曾紀恩每次來球場都坐在他旁邊看球。
認識陳冠任爸爸。

在此要強調他真的非常投入，因為：

當增菘瑋一直投壞球時，他會罵 "X的，是ㄟ擔三小，領先就可以這樣玩喔"
當周思齊遇上近身球時，他會譙 "ㄟ~~ ㄟ~~ 投手衝三小"
當鄭達鴻美技接殺安打球時，會站起來狂喊 "達轟，吃藥啦~"

而他的音量非常洪亮，在我旁邊的小黑和仲輝都聽的到，每每我們都相視而笑，哈 ~~，在第五局時，因為接電話和鬧肚子離開座位，他才轉換聊天的目標。

澄清湖大螢幕都會播放打者大頭照，讓現場觀眾知道現在到底是哪位打者打擊，而大頭照應該用JPG圖檔就好，聯盟好像把它轉成影音檔來播放，轉成影音檔用全螢幕來播放也可以達到相同顯示效果，沒想到竟然沒有用循環播放，一張JPG檔，大概播個2-3秒就結束，所以Windows Media Player 播放外框就一直跑出來，可以感覺到操作人員為了讓大頭照全螢幕播放，一直在那手忙腳亂，哈。

當這麼久的蕉農，第一次掏錢買相關產品，去球場不可會缺的加油棒

憑門票換的開幕賽袋子

賽後 Garmin 煙火秀

最後也是最重要的，這是我第一次去現場看球兄弟獲勝，目前到球場看球個人勝率為0.333。

蝶月對話之《情人水果論》

2011-04-03T13:41:00.000+08:00

Pili 布袋戲裡一對歡喜冤家（公孫月、蝴蝶君）的經典對話，相信 Pili 迷一定不陌生的兩個角色；假如現在你女朋友要你用一種水果來形容她，你會選哪樣ㄋ~~

[Windows] 利用 NET USE 語法建立網路磁碟機

2011-03-25T17:57:00.002+08:00

Windows NT 的電腦常常發生看不到區域網路內其他電腦的情況，但放段時間又抓的到，假如用ping去確定電腦是否存在，又都ping的到，每次臨時要重設網路磁碟時，遇上這問題，真的是會讓人抓狂，總不可能在那賭運氣，等電腦抓到。

利用NET USE 即使看不到區域網路上的電腦，但只要ping的到，還是可以順利建立網路磁碟機。

命令提示字元內，打出下列語法就可以連結；第一種方式（*）不指定磁碟機名稱，電腦會自動指派一個可用名稱；第二種（DeviceName）則是自己指派，EX：Z：。

NET USE * \\ComputerName\ShareName
-- OR
NET USE DeviceName \\ComputerName\ShareName

參考資料：

NET USE

UNION

2011-03-18T08:53:00.004+08:00

UNION 將兩個或更多查詢的結果集結合成單一結果集（縱向連結資料），個人覺得 UNION 最好用的地方在於連接歷史資料庫，尤其是習慣把每一年資料拆成一個 Table 來整理，EX：Order98、Order99。

SQL UNION 使用限制：

欄位數目和順序需要一致
欄位資料型態必須相容（隱含式轉換）

VFP UNION 使用限制：

除了上述限制外，在 8.0 和 9.0 版本裡假如資料行有 Memo 資料型態，一定要用 UNION ALL，用 UNION 會錯誤，8.0 之前版本則是沒有這個限制。

SQL、VFP UNION 使用上需要注意的地方：

UNION 和 UNION ALL的差異：UNION 會自動過濾重複資料，而 UNION ALL 則是會把全部資料都列出來；因為 UNION 會過濾重覆資料，所以在效率上，UNION ALL會比較快一些。
欄位名稱以第一個資料集為依據。
Order By 必須放在整個 T-SQL 語法的最後。

-- 建立範例資料
DECLARE @NY table (EmployeeID char(4),Employee char(8),Birthday datetime)
DECLARE @TW table (EmployeeID char(4),Employee char(8),Birthday datetime)
 
-- Ray 和 Doris 這兩個人名，同時存在 @TW 和 @NY 中  
INSERT INTO @NY VALUES('NY01','Emma','19860606')
INSERT INTO @NY VALUES('NY02','Ray','19840404')
INSERT INTO @NY VALUES('NY03','Doris','19870707')
INSERT INTO @NY VALUES('NY04','Peggie','19890909')
INSERT INTO @NY VALUES('NY05','Angel','19810101')
INSERT INTO @TW VALUES('TW01','Terry','19901010')
INSERT INTO @TW VALUES('TW02','Ray','19820202')
INSERT INTO @TW VALUES('TW03','Doris','19830303')
INSERT INTO @TW VALUES('TW04','Fanny','19880808')
INSERT INTO @TW VALUES('TW05','Jarry','19850505')

UNION 和 UNION ALL 產生結果比較

-- UNION 把重覆資料過濾掉，並對資料進行排序
SELECT Employee FROM @NY
UNION
SELECT Employee FROM @TW

-- UNION ALL 列出全部資料，不對資料進行排序
SELECT Employee FROM @NY
UNION ALL
SELECT Employee FROM @TW

之前因為不知道 UNION 和 UNION ALL 兩者差異，導致抓出來資料不如預期，找了好久才發現兩者差異。

從執行計畫來看 UNION 和 UNION ALL 效能問題

可以發現 UNION 刪除重復資料會對資料進行排序（相異排序），也因此造成效能降低。

欄位名稱使用

SELECT EmployeeID AS 員工編號,Employee AS 員工名稱,Birthday AS 生日 -- 以第一個結果集的欄位名稱為主
FROM @NY
UNION ALL
SELECT EmployeeID,Employee,Birthday
FROM @TW

Order By 應用說明

-- 錯誤用法
SELECT EmployeeID,Employee,Birthday
FROM @NY
ORDER BY Birthday -- 不可以放在資料集中
UNION ALL
SELECT EmployeeID,Employee,Birthday
FROM @TW

-- 正確正法
SELECT EmployeeID,Employee,Birthday
FROM @NY
UNION ALL
SELECT EmployeeID,Employee,Birthday
FROM @TW
ORDER BY Birthday -- 必須放在整個 T-SQL 語法最後

控制 UNION 中，每個資料集呈現順序

上述有提到，UNION 動作時，會針對資料進行排序，導致最後排序結果，不符合實際需求，可以新增一個排序欄位，讓 Order By 根據此欄位排序，來達到控制資料集排序。

-- 會依據 Employee 第一個字母大小進行排序
SELECT Employee
FROM @TW
WHERE Employee = 'Jarry'
UNION 
SELECT Employee
FROM @TW
WHERE Employee = 'Doris'
UNION 
SELECT Employee
FROM @NY
WHERE Employee = 'Emma'
UNION 
SELECT Employee
FROM @NY
WHERE Employee = 'Angel'

-- 根據自訂欄位來排序
SELECT Employee,4 AS SetOrderBy -- 自訂 SetOrderBy 欄位
FROM @TW
WHERE Employee = 'Jarry'
UNION 
SELECT Employee,3
FROM @TW
WHERE Employee = 'Doris'
UNION 
SELECT Employee,1
FROM @NY
WHERE Employee = 'Emma'
UNION 
SELECT Employee,2
FROM @NY
WHERE Employee = 'Angel'
Order by SetOrderBy

參考資料：

[SQL] Trigger - inserted & deleted Table

2011-03-11T15:21:00.017+08:00

deleted Table 和 inserted Table 為 Triiger 使用的兩個特殊暫存資料表（交易紀錄的檢視表），其欄位名稱、順序和資料型態都跟原來的 Table 一致，可以利用它們了解 INSERT、UPDATE 和 DELETE T-SQL 語法觸發 Triiger 時，插入、修改或是刪除哪些資料。

inserted Table 會儲存 INSERT 和 UPDATE 前的資料、deleted Table 則會儲存 UPDATE 後和 DELETE 的資料。

利用表格表示

利用圖形表示

SQL Server 會自動建立並管理，無法直接修改資料表內的資料或是修改其結構（EX：CREATE INDEX），當Trigger 結束時，暫存的 deleted Table 和 inserted Table 會自動消失。

整合 inserted 和 deleted 並判斷類別（新增、更新或刪除）

利用 FULL JOIN 把 inserted Table 和 deleted Table 整合在一起，再透過判斷主要連結欄位是否為 NULL 或相等，來判斷資料是新增、修改或是刪除。

SELECT 
  COALESCE(I.KeyFields,D.KeyFields) AS KeyFields, -- 利用 COALESCE() 來找出 KeyFields
  'Kind' = CASE
             WHEN D.KeyFields IS NULL THEN '新增' -- 利用 D.KeyFields IS NULL 來判斷是否為新增
             WHEN I.KeyFields IS NULL THEN '刪除' -- 利用 I.KeyFields IS NULL 來判斷是否為刪除
             WHEN I.KeyFields = D.KeyFields THEN '更新' -- 利用 I.KeyFields = D.KeyFields 來判斷是否為更新
           END
FROM 
  inserted AS I 
  FULL JOIN -- 利用 FULL JOIN 來連結兩個暫存資料表
  deleted AS D ON I.KeyFields AND D.KeyFields

利用 EXISTS 來判斷資料是否存在 inserted 和 deleted

-- 

   IF EXISTS(SELECT 1 FROM inserted) AND NOT EXISTS(SELECT 1 FROM deleted)
   -- 新增  
  
   IF EXISTS(SELECT 1 FROM inserted) AND EXISTS(SELECT 1 FROM deleted)
   -- 更新
  
   IF NOT EXISTS(SELECT 1 FROM inserted) AND EXISTS(SELECT 1 FROM deleted)
   -- 刪除

參考資料：

[VFP] GOMONTH() 應用

2011-03-04T16:40:00.002+08:00

說明：
GOMONTH(dExpression | tExpression, nNumberOfMonths)；
對於給定的日期或日期時間，傳回其指定之前或之後月份數目的日期。

參數說明：

dExpression | tExpression：輸入 Date 或是 DateTime 資料型態
nNumberOfMonths：正數表示加給個月份；負數代表減幾個月。

回傳值：Date 資料型態
備註： GOMONTH() 不支援 1753年01月01日之前的日期

計算月份的最後一天、當月總共有幾天

邏輯：要計算當月份的最後一天，先找到下個月的第一天，再減一天就是當月的最後一天；最後一天同時也代表著當月份的總天數。

LOCAL dDate,dLastDay AS date
LOCAL iTotalDay AS integer 

dDate = DATE() -- 使用者自訂日期

-- 先利用DATE() 來找出自訂日期月份的第一天，
-- 然後利用GOMONTH() 加一個月找到下個月第一天，
-- 再減一天，找到自訂日期月份的最後一天。
dMonthLastDate = GOMONTH(DATE(YEAR(dDate),MONTH(dDate),1),1)-1

-- 邏輯同上，最後再利用DAY()函數把天數抓出來就行
iTotalDay = DAY(dMonthLastDate)

精準計算年紀的年月日（計算兩個日期間的年月日）

為了寫公司計算退休金和資遣費的功能，在計算年齡這個邏輯上打轉了好一陣子，一直都無法很精準的計算出年月日，也因此計算出來的金額總是只能參考用，直到最近才發現自己的盲點。之前因為人事小姐提供給我邏輯參考範例，每次要依比例計算時，總是用天數 / 365天，所以我在計算年齡或是相關變數時，也都是先計算出天數，然後再轉化為年和月，但這個問題是1年又不一定是365天，再加上人事小姐說政府官方是以1年365來計算（其實我也不知道是真是假啦），因次也沒有特別注意這個不準確。

1年並不一定是365天，但是1年一定是12個月吧，因此利用計算月份來計算，就可以精準地計算出年月日。這個邏輯延伸，還可以計算到55歲、65歲、年資15年和年資25年還有多久的年月日資料，其實就是計算兩個日期的年月日資料。

FUNCTION CountYYMMDD(tdStartDate AS date,tdEndDate AS date) AS string 
 
 LOCAL cYYMMDD AS string  
 LOCAL iTotalMonth,iYear,iMonth,iDay AS integer 
 LOCAL dDate AS date 
 
 -- GOMONTH() 函數不支援 17530101 之前的日期
 IF tdStartDate < {^1753/01/01} OR tdEndDate < {^1753/01/01}
  RETURN ""
 ENDIF 
 
 iTotalMonth = 0
 iYear = 0
 iMonth = 0
 iDay = 0
 dDate = tdStartDate -- 迴圈日期；此變數用來跑迴圈，紀錄起始日期
 
 -- 從起始日期計算有幾個月到結束日期
 -- 迴圈日期 小於 結束日期，就一直進入
 DO WHILE dDate < tdEndDate

  dDate = GOMONTH(dDate,1) -- 迴圈日期，一次加一個月
  DO CASE
  CASE dDate <= tdEndDate 
   -- 當迴圈日期小於結束日期，iTotalMonth 加 1
   iTotalMonth = iTotalMonth + 1
  CASE dDate > tdEndDate 
   -- 當迴圈日期大於結束日期，把迴圈日期 減 1 個月，並離開
   -- 此時迴圈日期為最接近結束日期的月份時間
   dDate = GOMONTH(dDate,-1)
   EXIT
  ENDCASE
  
  -- 防呆，避免無限迴圈
  IF iTotalMonth > (999*12) + 11
   RETURN ""
  ENDIF

 ENDDO

 iYear = INT(iTotalMonth/12)
 iMonth = iTotalMonth - (12 * iYear)
 iDay = tdEndDate - dDate -- 結束日期 減 迴圈日期（此時為最接近結束日期的月份時間）
 cYYMMDD = PADL(ALLTRIM(STR(iYear)),3,"0") + PADL(ALLTRIM(STR(iMonth)),2,"0") + PADL(ALLTRIM(STR(iDay)),2,"0")
 
 RETURN cYYMMDD
ENDFUNC

參考資料：

Age()
GOMONTH()、DATE()、DAY() in VFP 9.0 Help

飛天兔寶寶

2011-02-25T20:42:00.002+08:00

朋友公司送員工的元宵節花燈，應景一下花了點時間把它完成。

花燈包裝正面

花燈包裝背面

簡易的組裝說明書

成品檢視圖

包裝內的組件；左上角為兔頭、中下方為身體、圓形組件為降落傘、最右邊為連接降落傘和身體的繩子、左下角為LED燈。

安全玩具徽章，並說明適用年齡為三歲以上；而且因為LED燈很小，要注意小朋友誤食。

LED燈，左圖是剛拆封的樣子，開關正面上有右圖的卡榫，要先把它拿下來，才可以開燈。

降落傘上的圖示，看圖示我才想到今年也是台灣旅遊年，政府官員每次說到要提升觀光時，就會提出旅遊年或是觀光年的口號，聽多了都麻痺。

組件上都會有號碼，只要依號碼順序組合、相同號碼要互扣，且扣起來後號碼要在內側，就可以很順利組合；不過光組合起來是沒用的，畢竟用扣的，整體結構很鬆散，且沒有立體感，第一次組合起來後，我整個拆掉，重新扣同時用膠帶把扣口整個固定，並稍微彎折讓他有點立體感，這才是花時間的地方。

大頭照

兔尾巴，蝴蝶造型的尾巴

在背上的LED燈

沒有降落傘的正面和側面照

裝上降落傘後的側視圖

降落傘上的中國石化的 Logo

裝上降落傘後的成品

延伸閱讀：

應景的元宵燈籠

穿越時空玉見您

2011-02-19T11:34:00.002+08:00

2010年8月到日月潭玩時，尤郁淵推薦可以到玉山國家公園管理處（玉管處），看看玻璃底片影展，也就是"穿越時時空玉見您"，身為行程的規劃人加上對玻璃底片的好奇，當然把它排進行程中；當我們到達那當下，我才突然驚醒，我把大學時去過雪霸國家公園管理處（雪管處）的印象想成玉管處，原本想說就算影展不吸引人，最少管理處內規劃的還不錯，還可以到處晃晃，我搞烏龍了。>.<

玻璃底片是19世紀到20世紀初期（1910年）一種影像的成像材料，英文一般稱為 Glass Negative，為膠卷前身，以玻璃板為基底塗上鹵化銀，經拍攝曝光，光線照射到的鹵化銀就變成黑色的銀，經顯影、定影暗房程序，影像就留在玻璃板上，明暗呈現相反，所以也稱玻璃負片，使用玻璃作為底片是因為當時還未發明軟片，玻璃符合透明（可透光放大或放映）與表面平整（不會造成影像扭曲）的條件，自然成為底片的最佳材料。直至1884年 George Eastman 發明軟片後，玻璃底片因為其體積及重量大才漸漸被軟片取代。然而即使在軟片發現後，由於玻璃底片化學性質穩定，又有不彎曲變形的物理特性，因此在20世紀初期至中期，甚至到20世紀後期，仍被應用在需要極大尺寸與細節的影像紀錄上，如天文攝影的科學研究。軟片雖在1884年就發現了，但是到1910年還未完全取代玻璃底片。玻璃底片因為具有重要歷史與文化價值，而且不易保存（易碎），因此有很高的收藏價值。

現場只有放置很少的玻璃底片來展示，大多是已經洗出來、放大的歷史相片和許多舊式攝影器材，也因為只有展示少量的玻璃底片，讓人有意猶未竟的感覺，只能看看玻璃底片長的什麼樣子而已；看完展示後，大家順手填填學習單，沒想到當時的無心之舉，竟有意外收穫，在2011年1月，志弘收到玉管處來信，並附上一本穿越時空玉見您的攝影集，沒想到只抽出十名的幸運兒，我們竟然是其中的一員。

幸運兒名單：

穿越時空玉見您攝影集

玉管處提供的各類圖章，整個蓋完也是要花點時間

Gift Shop 的玉山黑熊，美中不足的是MIC產品

原本計畫短暫停留的玉管處，就在大家瘋狂蓋玉管處圖章和新世界七大奇景投票的參與下，竟然停留了三個小時，完全超出我的意料之外，最後附上日據時代玉山頂的三角點和山神廟（攝影集內掃描）。

參考資料：

其他相片

抽獎用的活動學習單
穿越時空玉見您圖章

引（帶）路雞

2011-02-11T20:06:00.000+08:00

「引路雞」並不會引路，但牠是婚俗當中必不可少的「演員」。女方定親後，做家長的在準備嫁妝同時，要選購一對健壯無病的公雞、母雞，公的要剛會啼叫，母的須即將下蛋。把牠們養在籠中，不讓牠們與其他公雞、母雞來往。

總之，這兩個「雞演員」看上去必須精神抖擻，不能垂頭喪氣。到了女兒出嫁這天，做父母的要量一條九尺長的紅紗繩，一頭綁住母雞的腳，另一頭綁住公雞的腳，然後把牠們抱進新籃中，由伴娘像護送高級貴賓似地送到新郎家。帶路雞有"起家"(台語)之意，這兩隻雞通常安排在隊伍中的車前、轎頭，像領航員似的，並幫助新娘記得娘家的路怎麼走，讓新娘記得回家的路。

「引路雞」到了新郎家後，算是完成了引路的使命，搖身一變，轉變職能改稱「夫妻雞」，象徵新婚夫婦恩恩愛愛。說來有趣，閩南語的「雞」與「家」諧音，因而這對可愛的寵物還擔負著夫婦雙方「兩家親」的善良、美好願望。而那九尺紅繩即隱喻「長久（九）」之意。

當新娘被迎進洞房後，媒人或新郎的家人們會趕緊上前為「夫妻雞」解開紅繩，然後將牠們放進婚床下。這時，親朋賀客觀者如堵，就像欣賞精彩節目一樣，興趣無比地觀察：是公雞先走出來呢，還是母雞先露臉？為了誘雞出來，贏個好彩頭，人們會費盡心思，有的習慣在地上撒一把上乘大米，有的放些牠們平常喜歡吃的食料。如果公雞先出來，就會博得滿堂喝彩：「頭胎生查埔（閩南語男生的稱謂）！」倘若母雞先行一步，大家自然也有應變的吉語：「先生阿姐後招弟！」賓主笑嘻嘻，樂融融，在觀吉兆中尋歡作樂，把婚禮推向高潮。另一種說法是看公雞還是母雞，誰先跳到床上，總而言之都是在看是先生男孩還是女孩。

所以，閩南和台灣民間很看重這對婚俗演員，要讓牠快生蛋，因「蛋」和「代」諧音，表示代代相傳之意，所以無論如何要養好護好，即使牠們自然死亡，主人也不忍烹食。

而隨著時代變遷，現在很少用活生生的雞，取而代之的裝飾用的引路雞，在網路上可以輕易買到，而且還有錄製好的雞啼聲按鍵可以按，出發前會按讓雞啼叫，表示要出發囉。

參考資料：

HP - Hit Print

2011-02-07T19:40:00.002+08:00

雖然列印的速度有點唬爛，但不失為一個好廣告。

中級專家

2011-01-29T16:07:00.003+08:00

順利升級囉 ~~

Visual Studio 2010

2011-01-16T11:28:00.002+08:00

Visual Studio 2010 廣告，最近微軟推出新產品，好像都會有廣告來加持，Visual Studio 2010 走戀愛風格。

想做你的Code

讓愛延長

幸福也要敏捷

為愛Debug

讓愛編譯通過

延伸閱讀：

Microsoft Office 2010 - 特務風格

[Windows] Win7 和內碼輸入法

2011-01-09T10:34:00.003+08:00

在 Win 7 上要利用內碼輸入法來輸入特殊符號，請依下列步驟：

切換到微軟「新注音」或「新倉頡」輸入法，並確認在「中文模式」下（「英數模式」無法使用內碼輸入法）。
入前導字元「`」（鍵盤上橫排數字鍵的左邊按鍵），就接著輸入「b」（不用刻意區分大小寫），再加上內碼（EX：A148為？）。

原本想說用了上述方法就可以解決內碼輸入法的問題，沒想到使用者又跑來說，這樣很難打，而且很不習慣，只好再把內碼輸入法放進系統裡，習慣真是一件很恐怖的事情。

把 Win XP 內的 "C:\Windows\System32\winime.ime" 和 "C:\Windows\System32\uniime.dll" 這兩個檔案同時複製至 Win7內的 C:\Windows\System32 和 C:\Windows\Syswow64 這兩個資料夾（這兩個資料夾都要有這兩個檔案）。
把 Win XP 內的 C:\Windows\Help\winime.chm 複製至 Win 7 內的 C:\Windows\Help\mui\0404 資料夾。
開始功能表 =>開始搜尋輸入框中輸入"Regedit"，叫出登錄編程式。
依此路徑 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts ，並新增機碼 "E0220404"。
在 E0220404 機碼內新增下列字串值：

數值名稱：Layout File，數值資料：KBDUS.DLL。
數值名稱：Layout Text，數值資料：中文 (繁體) - 內碼。
數值名稱：IME File，數值資料：winime.ime。

以上把內碼輸入法放進 Win 7 系統內，接下來把它叫出來用。

開始 => 控制台 => 變更鍵盤或是其他輸入法 => 鍵盤與語言 => 變更鍵盤 =>勾選中文（繁體）- 內碼，並按下確定。

在 Windows 中正常切換（Ctrl + Shift）就可以看到內碼輸入法啦。

[Windows] 消失的語言列

2011-01-02T12:05:00.006+08:00

下圖為語言列在Win 7上的圖形

原本是在測試 Zebra Win7 32 bit 的 Driver，沒想到要打中文時，竟然完全都不能打，而且語言列也不見，臉都綠了，>.<。

一開始我是先到控制台內嘗試把語言列給叫出來，想說叫出來就可以搞定這個問題，沒想到語言列的相關設定都設定好，也一樣無解。

開始功能表 => 控制台 => 變更鍵盤或其他輸入方法 => 鍵盤與語言 => 變更鍵盤 => 語言列；確定語言列是否勾選到"隱藏"，建議勾選"固定在工作列"並取消 "當語言列不在作用中時，將它顯示為透明"。

語言列相關設定沒有作用後，利用Google大神找到下列方法，終於把語言列叫出來，同時也可以正常輸入中文字。

開始功能表 =>開始搜尋輸入框中輸入"Regedit"，叫出登錄編程式。

登錄編輯程式依此路徑 "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" 點選，Run內是開機時會自動執行的程式清單，在右側沒有ctfmon.exe字串值，這就是問題所在啦。

右側欄位內右鍵新增一個字串值，並更名為ctfmon.exe。

ctfmon.exe字串值右鍵修改進入編輯字串，並在數值資料內輸入"C:\Windwws\System32\ctfmon.exe"並按下確定。

輸入後在Run內右側就可以看見剛剛建立的字串值和其資料。

重新開機後就搞定啦

假如重新開機後，發現無法正常使用 Ctrl + Shift 來變換語言，請至進階按鍵組合，選擇"切換輸入語言"，並按"變更按鍵順序"，確定變更按鍵順序內的設定值是否跟圖片上設定一樣。

參考資料：

Windows 7 語言列消失的解決方法
關於 Ctfmon.exe 的常見問題集

訂婚-雞腿

2010-12-28T19:09:00.002+08:00

這次參加 Ray&Doris 訂婚時，有一個以前沒有看過的習俗 - 訂婚時要準備雞腿給男方家小男童，特地去查，其意義大概有下列幾種：

雞有「起家」之意，而腿又是撐起全雞重量的「支柱」，小男花童吃雞腿代表新郎往後是家庭支柱之意。
新娘快快生男生。
看到大的也要顧到小的，代表女方將來會把男方的所有親戚都當作自己家人一般。
藉著新娘的祝福，讓這個小男童快快長大，也早日可以長大娶妻。
雞腿，在以往農業社會中，只有在過年三大節及家中喜慶時才吃的到，所以在婚嫁的大日子中，小男花童吃雞腿，又代表了「新郎緊做阿爸，黏咪通做阿公」（這會不會太急了)，也有讓小男花童快快「大漢」，像新郎一樣娶某生子；另外小孩子有雞腿吃會很高興，一方面是「安撫」作用，有點類似是叫他「去去去，乖乖去旁邊玩」的感覺。

準備雞腿要注意，握雞腿的地方，要用紅紙包一圈，而給小男童的時候，通常會附上一個小紅包；另外網路討論文章內有人提到，不一定要男童，但是這位男士的年齡，要比新娘小就是，感覺是比較注重訂婚禮俗，而男方家裡又沒有小男童時的替代方法。

小女童的謎之聲：為什麼我沒有吃腿可以吃，那我要在現場搗亂，>.< ~

參考資料：

訂婚Q＆A-雞腿VS小男孩

[IE] IE 6.0 SP1 離線安裝

2010-12-11T10:53:00.001+08:00

最近要重新安裝 Windows Server 2000 時，才發現 IE 6.0 SP1竟然必須連上Windows Update才可以更新，這實在是很糟糕的一點；在網路上找到可以離線安裝的方法，它的做法是先上Windows Update裡，把 IE 6.0 SP1 的安裝檔案下載到電腦上，再進行安裝。

首先請先下載 IE 6.0 SP1 安裝檔，並放置在指定資料夾。
開始 => 執行 => 輸入 "D:\Tool\IE 6.0 SP1\ie6setup.exe" /c:"ie6wzd.exe /d /s:""#E"。

分析

開始下載

選擇 IE 6.0 SP1離線檔案的存放資料夾，並選擇要安裝的系統類型（就全部選啦）。

正在下載的畫面。

下載完成的畫面。

完成下載後，你可以在指定資料夾內找到離線執行檔，也叫作 ie6setup ，執行它後可以進行離線安裝。

在Windows Server 2000 SP4上進行上述步驟可以正常下載檔案，但是在Windows XP SP3則是會產生下面的 Error ，不確定是不是因為OS的因素所造成。

參考資料

[VPC] 變更 Mac Address

2010-12-04T11:44:00.000+08:00

為了方便自己作業，必須更改VPC的Mac Address。

確定VPC並未啟動OS。
用Notepad或是Wordpad打開 Virtual Machine Setting File（.VMC）。
利用搜尋功能（Ctrl + F），尋找"ethernet_card_address"。
把 <ethernet_card_address type="bytes">XXXXXXXXXXX</ethernet_card_address> 改為 <ethernet_card_address type="bytes"></ethernet_card_address>；XXXXXXXXXXX改為空值。
儲存VMC 檔案，再去開啟OS，Mac Address就會改變。

[SQL] PIVOT 和 UNPIVOT

2010-11-27T16:04:00.005+08:00

說明：

產生ㄧ個2維PIVOT來幫助自己，免的每次要用它還要重新理解ㄧ次。

簡介：

PIVOT 將資料行內資料的唯一值旋轉成多個資料行，並對數值型欄位進行彙總（直轉橫）。
UNPIVOT則是跟PIVOT相反（橫轉直）。PS：資料行（Column）、資料列（Row）。

-- 1.1 利用個人出勤表來進行說明。
-- 1.2 假別：事假、病假、公假和陪產假。
-- 1.3 #PIVOT 用來說明 PIVOT；#UNPIVOT 用來說明 UNPIVOT。
-- 1.4 備註：#PIVOT 有兩筆時數為NULL的資料；
--           #UNPIVOT AAAAA 員工陪產假為NULL、BBBBB 員工公假為0。
CREATE TABLE #PIVOT (Employee char(8),Date datetime,Kind char(10),Hours numeric(4,2))
INSERT INTO #PIVOT VALUES ('AAAAA','20101001','事假',3.0)
INSERT INTO #PIVOT VALUES ('AAAAA','20101002','事假',8.0)
INSERT INTO #PIVOT VALUES ('AAAAA','20101003','事假',4.0)
INSERT INTO #PIVOT VALUES ('AAAAA','20101010','病假',8.0)
INSERT INTO #PIVOT VALUES ('AAAAA','20101020','病假',1.0)
INSERT INTO #PIVOT VALUES ('AAAAA','20101025','公假',8.0)
INSERT INTO #PIVOT VALUES ('AAAAA','20101026','公假',8.0)
INSERT INTO #PIVOT VALUES ('AAAAA','20101027','公假',8.0)
INSERT INTO #PIVOT VALUES ('AAAAA','20101027','公假',NULL)
INSERT INTO #PIVOT VALUES ('BBBBB','20101001','事假',6.0)
INSERT INTO #PIVOT VALUES ('BBBBB','20101009','病假',8.0)
INSERT INTO #PIVOT VALUES ('BBBBB','20101019','病假',8.0)
INSERT INTO #PIVOT VALUES ('BBBBB','20101019','病假',NULL)
INSERT INTO #PIVOT VALUES ('BBBBB','20101025','陪產假',8.0)
INSERT INTO #PIVOT VALUES ('BBBBB','20101026','陪產假',8.0)
INSERT INTO #PIVOT VALUES ('BBBBB','20101027','陪產假',8.0)
 
CREATE TABLE #UNPIVOT (Employee char(8),事假 numeric(4,2),病假 numeric(4,2),公假 numeric(4,2),陪產假 numeric(4,2))
INSERT INTO #UNPIVOT VALUES('AAAAA',15,9,24,NULL)
INSERT INTO #UNPIVOT VALUES('BBBBB',6,16,0,24)

PIVOT 圖解

PIVOT 架構

SELECT GroupCol,[PivotCol資料1],[PivotCol資料2] -- 根據轉置欄位資料產生欄位
    FROM 
        (
          SELECT GroupCol,AggregationCol,PivotCol FROM SourceTable
          -- 2.1 欲進行轉置的資料來源
          -- 2.2 GroupCol（群組欄位） == Employee欄位
          --     AggregationCol（彙總欄位） == Hours欄位
          --     PivotCol（轉置欄位） == Kind欄位
        ) AS p -- 別名不可省略
    PIVOT
        (
          Aggregation(AggregationCol) FOR PivotCol IN ([PivotCol資料1],[PivotCol資料2]......)
          -- 2.3 轉置後欄位（PivotCol資料1,PivotCol資料2），ㄧ定要用[]包起來，不可以用''
          -- 2.4 PivotCol經轉置後，欄位即消失（改用PivotCol資料1,PivotCol資料2來呈現）
          -- 2.5 彙總欄位和轉置欄位不是同一個欄位          
        ) AS pt -- 別名不可省略

PIVOT T-SQL 語法說明

SELECT *
    FROM 
        (
          SELECT Employee,Kind,Hours 
            FROM #PIVOT
        ) AS p
    PIVOT
        (
          SUM(Hours) FOR Kind IN ([事假],[病假],[公假],[陪產假])
        ) AS pt

-- OR
SELECT *
    FROM 
        (
          SELECT Employee,Kind,SUM(Hours) AS Hours
            FROM #PIVOT
            GROUP BY Employee,Kind
        ) AS p
    PIVOT
        (
          SUM(Hours) FOR Kind IN ([事假],[病假],[公假],[陪產假])
        ) AS pt
 
 -- 彙總函數搭配PIVOT，計算彙總欄位時不會考慮值為NULL的資料

PIVOT 執行後結果

UNPIVOT 圖解

UNPIVOT 架構

SELECT *
    FROM
        (
          Select GroupCol,col2,col3,col4........ FROM SourceTable
          -- 3.1 欲進行反轉置的資料來源
        ) AS p
    UNPIVOT
        (
          ValueCol FOR unPivotCol IN (col2,col3,col4.........) -- ㄧ定要不包含群組欄位
          -- 3.2 ValueCol 和 unPivotCol 為使用者自行命名的欄位名稱
          -- 3.3 ValueCol 的資料為資料列（Row）資料轉成資料行（Column）資料（非群組欄位轉為ValueCol）
          -- 3.4 unPivotCol 的資料為 col2欄位資料、col3欄位資料、col4欄位資料........
        ) AS pv

UNPIVOT T-SQL 語法說明

SELECT *
    FROM
        (
          Select Employee,事假,病假,公假,陪產假 FROM #UNPIVOT
        ) AS p
    UNPIVOT
        (
          Hours FOR Kind IN (事假,病假,公假,陪產假)
        ) AS pv

-- OR

SELECT *
    FROM #UNPIVOT AS p
    UNPIVOT
        (
          Hours FOR Kind IN (事假,病假,公假,陪產假)
        ) AS pv

-- AAAAA的陪產假為NULL，UNPIVOT後，AAAAA的假別就不會有陪產假

UNPIVOT 執行後結果

PIVOT 和 UNPIVOT 的差異：

PIVOT 和 UNPIVOT 並非完全相反，PIVOT 會執行彙總，因此它會對多個資料列（Row）進行彙總後合併輸出成單一資料列（Col），因為資料列（Row）已經彙總合併成資料行（Col），所以UNPIVOT後並不是原始資料，而是彙總後的資料。

NULL 的變化

資料行PIVOT成資料列，轉置後欄位會出現NULL。
資料列UNPIVOT成資料行，資料內假如有NULL會消失，並不會呈現。

參考資料：

MEM_BAD_POINTER

2010-11-19T20:50:00.005+08:00

在Windows 7 32 bit 上安裝Auto CAD LT 98後，要開啟時會出現這個錯誤"MEM_BAD_POINTER"，按確定就像跑進一個死迴圈，怎麼按都不會結束；搜尋網路上資料，原來Auto CAD LT 97、AutoCAD LT 98 和 AutoCAD R14在 Windows Vista 32 bit 上也會出現。

根據下列步驟去執行就可以在 Windows 7 32 bit 裡順利開起Auto CAD LT 98。

請先在網路上下載 SHW32.dll，並把名稱改為 SH31W32.dll （SHW32.dll => SH31W32.dll）。
Program File => AutoCAD LT 98 內找到 SH31W32.dll，備份這個檔案或是改成其他名字（EX：SH31W32_Old.dll），把步驟1的dll檔案複製進來。
重開 AutoCAD 就可以進入。

在 Windows 7 64 bit 上，一啟動 setup 馬上就會出現這個 Error，原來AutoCAD LT 98 是16位元，這個實在是無解，只好在Windows 7 64 bit 上利用 DWGTrueView 2010 64 bit 來閱讀，利用XP Mode來執行AutoCAD LT 98來編輯囉。

備註：

在Windows 7 32 bit 上打開 AutoCAD LT 98 後，並沒有實際使用過（我也不會用），所以無法確定使用上是否有其他問題。
20110428 在 Windows 7 32 bit 上安裝 AutoCAD LT 2000，可正常開啟使用；201105底使用者回報列印上有問題，解決方法請參考記憶體配置錯誤

五行水晶蛋

2010-11-10T20:20:00.002+08:00

在漢神巨蛋看到的水晶蛋，看起古錐古錐，原本以為水晶類產品都很昂貴，沒想到很便宜，就順道買顆來擺設房間囉。

五行：木、火、土、金、水。
五行代表顏色：綠、紅、黃、白、黑（依上述五行順序由左而右，也就是水晶蛋由上往下的顏色）。
五行相生：木生火、火生土、土生金、金生水、水生木。

這顆水晶蛋根據五行相生原理，由上而下，一層生一層來循環喔。

參考資料

莉笙藝術精品 - 下方說明請參考看看

初級專家

2010-10-17T13:33:00.002+08:00

雖然只會回答一些簡單T-SQL問題，在不知不覺中一點一滴累積，也會有個頭銜可以拿。^_^

Flickr Badge

2010-10-09T15:27:00.000+08:00

每次有人問我Flickr Badge要如何建立，我還要去找在Flickr上的哪可以建立，乾脆紀錄一下，以後直接寄給對方看就好，省事事省。

Flickr 個人首頁的最下方，Help分類內有個Tool的選項

點選右側的"Hey! Where is the badge?"

選擇要建立HTML或是Flash的badge，個人偏號Flash版本。

看個人需求，去決定要抓取哪些相片來呈現，在此我是選用"My Favorite" Set 內的相片。

設定顏色變化，我都會勾選 "NO Background" 和 "NO Border" 這兩個選項。

下面方框內就是Flickr Bage的語法

Blog頁面 => 設計 => 網頁元素 => 新增工具 => 選擇 HTML/JavaScript 選項

請把上一步驟的語法複製貼上進內容，並填入標題名稱。

儲存後，Sidebar內會出現"My Favorite"元件，上方則是會出現一個已儲存的訊息，檢視Blog就可以看見效果。

[SQL] IF EXISTS VS SELECT COUNT(*)

2010-10-02T22:48:00.003+08:00

寫T-SQL語法時，常常需要判斷某些筆資料是否存在，重點是資料存在與否，來進行接下來的邏輯判斷，而非資料明細內容或是有多少筆數，此情況建議使用IF EXISTS()來達到此要求，而不要使用SELECT COUNT(*)來判斷，主要原因是因為IF EXISTS()只會判斷資是否有資料，當出現第一筆符合條件的資料，就不會繼續往下尋找，而SELECT COUNT(*)則是會找出全部資料才停止，SELECT COUNT(*)會浪費較多的I/O和CPU處理時間。

-- 範例使用 AdventureWorks 內的 Sales.StoreContact 來說明

-- 建議用法
IF EXISTS(SELECT * FROM Sales.StoreContact WHERE CustomerID = 24)
    -- 邏輯判斷
 
-- 避免用法 1
IF EXISTS(SELECT COUNT(*) FROM Sales.StoreContact WHERE CustomerID = 24)
    -- 邏輯判斷
 
-- 避免用法 2
DECLARE @count int
SET @count = 0
SELECT @count = COUNT(*) FROM Sales.StoreContact WHERE CustomerID = 24
IF @count > 0
   -- 邏輯判斷
   
-- 避免用法 3
IF (SELECT COUNT(*) FROM Sales.StoreContact WHERE CustomerID = 24) > 0
    -- 邏輯判斷

參考資料：

搜尋功能只顯示標題

2010-09-25T10:18:00.003+08:00

Blogger預設搜尋功能，如標籤、歷史文章存檔等，預設上都是顯示整篇文章（Blog首頁的呈現方式），我首頁設定只允許存在五篇文章，再加上官方繼續閱讀，來增加從Flickr載入相片的速度問題，畢竟Flickr上圖檔都很大，搜尋條件假如是一個月或是一個標籤內的文章時，全部都顯示整篇文章，載入速度一定奇差無比，而且文章數多，往往不容易馬上找到目標文章，因此搜尋資料時，希望只顯示文章日期和文章名稱就好。

參考標籤/搜尋頁面只列出標題 (Simplify the result of label and search) 這篇文章來達到此效果。

完成後，畫面如下或實際去點擊Labels Colud或Archives就可以看見：

阿朗壹古道（續）

2010-09-18T20:11:00.004+08:00

搭車回到倉旭滿州家梳洗後，承龍提議要去週遭走走，EX：佳樂水、關山等地方走走，但完全沒有人回應他，最後大伙懶洋洋地在房間裡聊天打屁，直到晚餐時間要跟彥帥會合時，才發現竟然出大景，整個紅通通的天空，假如這個時候在關山不知道有多好。

從倉旭滿州家門口拍攝

由於彥帥公司也在本周舉行員工旅遊，因此沒有辦法參加阿朗壹古道，想想我們在古道上曬得半死，他在墾丁看比基尼辣妹，這是多麼強烈地對比阿，經過曉以大義後，由他設宴款待大伙的辛勞，33rd氣勢最強的男人，可不是浪得虛名，帥大萬歲。

酒足飯飽後前往龍盤大草原晃晃，停車格前方草原因為車大燈關係，瞬間明亮起來，好巧不巧就對著一對親熱中情侶，我不是故意的啦；看著滿天星星的同時，旁邊路人拿著閃燈在那拍照，閃燈一閃一閃的觸發，激發帥大悸動的心（誤），他也把GRD和閃燈給拿出來，輸人不輸陣啦，:p。

黑夜中的團體照也是挺不賴的

有兩個不合群的看鏡頭

青春洋溢的一張

傳說中用眼神殺人，大概就是這麼一回事吧。

今天就在壓軸彥帥加入後，畫下完美的句點，最後還是要喊一下

帥大萬歲

控制 Sidebar 元件

2010-09-11T10:52:00.000+08:00

Sidebar元件，所謂的Sidebar就是指我Blog右側的欄位，元件指的是"About Me"、"Labels Cloud"等，Sidebar元件系統預設不論在Blog的任何地方都會全部顯示，而我希望在首頁時才顯示全部元件，其他地方（EX：單篇文章、搜尋文章時）只顯示搜尋功能相關的元件。

首先請先進入設計 => 修改HTML，請勾選"展開小裝置範本" => 搜尋欲更改的元件名稱 EX：My Favorite，可以找到類似下列的Code。

/*  和  之間，就是一個元件 */


 
   .................... 元件的Code

並加上下列語法，就可以達到我想要的效果

/* Code 前面有＊為加上的語法 */


 
   /* 此段語法表示只在首頁顯示 My Favorute元件 */
   ＊ 
       .................... 元件的Code
   ＊

依此類推就可以把Sidebar元件顯示在自己想要的地方，另外假如想要更了解如何控制Sidebar元件，可以看看參考資料，裡面有很詳記的說明。

參考資料：

讓側邊列 (Sidebar) 的元件只在首頁顯示/不顯示

個人相關舊文章

Single Article Sidebar in Beta
Single Artiscle Sidebar
第一篇文章只是沒有利用SyntaxHighlighter來表示，這篇算是加強版；第二篇則是傳統範本的改法。

SyntaxHighlighter

2010-09-05T14:36:00.014+08:00

以往想要在Blogger紀錄自己寫程式的Code，都會因為排版閱讀問題而作罷，最近發現一個在Blogger上廣泛使用的JavaScript - SyntaxHighlighter，老實講我對CSS和JavaScript完全不懂，網路上雖然找到很多中文Blog文章，但我試不出來，索性就硬著頭皮去官方網站找資料，最後終於在網站裡找到 Adding a Syntax Highlighter to your Blogger blog這篇，簡單易懂，一試就成功。

在文章中假如要貼上Code,請使用下列方式，languages請改成欲使用的aliases，aliases請參考Brushes。


欲呈現的Code請放在這

在code的右上角發現一個綠色的問號，只要把toobar設成false就可以讓它消失


欲呈現的Code請放在這

官方網頁裡的Configuration裡還有提供其他的變化方式設定，每個設定也都有範例可以參考，可以依造你個人需求去變化，最後SyntaxHighlighter的效果一定要發佈文章後才看的見喔。

官方網站

SyntaxHighlighter 2.0 以上（不含），請參考新網站
SyntaxHighlighter 2.0 以下（含），請參考舊網站

網路參考資料

Adding a Syntax Highlighter to your Blogger blog => 推薦必看
在 Google Blogger 中使用 SyntaxHighlighter 1.5.1
SyntaxHighlighter--可於Blogger中顯示程式碼的JavaScript工具

阿朗壹古道

2010-09-01T18:06:00.001+08:00

日期：20100814（六）
人員：蔡政廷、劉倉旭、黃盈盛、韋秉忠、陳承龍、陳又嘉、陳鈺惠、許喬甯。
路線：恆春轉運站 => 屏東旭海 -> 軍艦岩 -> 觀音鼻 -> 台東南田 => 台東達仁（安朔） => 屏東楓港 => 恆春轉運站；（=> 表示搭車、-> 表示輕裝）。
交通方式：去 => 從恆春轉運站搭0610屏東客運出發到旭海；回 => 從台東達仁（安朔）搭1350 國光號至楓港，再轉車回恆春轉運站。

有鑒於33rd很久沒有一起出遊，而倉旭對阿朗壹古道很熟悉，常跟他討論要約大家一起去走走，五月開始招兵買馬，實際出發只有一位無法成行，甚至秉忠星期一還要去大陸出差，情義相挺啦，而因颱風引進的西南氣流，一直到出發前還困擾了我們，所幸出發當天天氣很優，優到一個不小心就會中暑~~

由於搭乘大眾交通運輸移動，我們必須搭從0610從恆春轉運站往旭海的屏東客運，萬一錯過它，大概會變成墾丁兩日遊吧，因為往旭海的班次只有兩班0610和1600，除了班次少外，不得不提的是客運司機，實在是太殺，開在山路上幾乎都不煞車，原本我還跟大家有說有笑，到後來只能趕快跑到前座、開窗戶呼吸新鮮空氣，整個人暈頭轉向。

恆春轉運站。

恆春轉運站內往旭海的班次表。

從旭海往海邊拍攝，龍哥說山上建築物是國軍飛彈基地

從旭海下車處出發後，路上會有小標示，沒有發現小標示，就選擇往海邊的叉路，看到安檢所時就表示沒錯啦，安檢所之後到礫石灘這段路有點類似產業道路，沿途可見電線桿、岩壁上會有電纜線，產業道路盡頭就會接上礫石灘，而我們則是找到路就往礫石灘切，一直走在礫石灘上。

海邊礫石灘

從礫石灘到觀音鼻，一路上都走在海岸線上，要特別注意的有兩點。

有個點要過去會很接近海水，海潮大一些，會直接打上來，天氣不好海浪大一些時，個人絕得可能會過不去。
不要錯過觀音鼻南側的路口，聽說以往可以一直沿著海岸線走到台東南田，現在則是採用高遶通過。

上述第一點相片說明：左側相片由南往北看，右側相片由北往南看，下方影片則是我先通過後，拍攝大家通過的一段影片。

上述第二點相片說明：觀音鼻南側路口

沿途較特別的岩石也有兩顆，一個是類似墾丁船帆石，另一個網路上稱呼為軍艦岩。

高遶觀音鼻過程簡易說明：由觀音鼻南側入口往上爬，總共有兩段拉繩處，過第一段拉繩處後會進入樹林，第二段拉繩處後開始在樹林中腰繞，樹林中有處較空曠的空地可以休息，走出樹林後則為草坡到觀音鼻最高點，可以看見阿朗壹古道台東南田段，之後則是下坡至礫石灘。

腰繞樹林的空地，是我們此行最陰涼之處，大約可以塞15-20人之間沒問題，相信沒有人會錯過這個休息點，因為走在海岸線時，完全沒有遮蔽物，只能在岩縫中躲太陽；上圖為走在屏東旭海段躲在岩縫中休息、下為腰繞觀音鼻的林間空地。

觀音鼻最高點合照

觀音鼻最高點俯瞰阿朗壹古道台東南田段，右圖中依稀可見一個民房（Flickr相片上的Note），為阿朗壹古道終點，之後就往裡走，不需要走在礫石灘上。

下切觀音鼻北側路口，右上角圖可見下切路徑

從觀音鼻北側路口到阿朗壹古道終點，一路仍是走在礫石灘上，遇上民房即可往內走，民房就算是終點啦。

民房 -> 台東南田 -> 台東達仁這段路才是我們最辛苦的時刻，由於台26線施工因素，整條路都是柏油加上大太陽的催化，真的是非常悶熱，好在我們遇到兩位環島走錯路的大學生和熱情的原住民朋友，分批地把我們送到台東達仁，免去這漫漫長路；不得不提的是熱情的原住民朋友，應該是台26線施工的工人，原本是要去工作地點順路送我們，沒想到最後是專程送我們到台東達仁，你們真是我們此行的貴人，就感心ㄟ，感謝你們，<(_ _)> ~~

回程要搭1350的國光客運到楓港，站牌在達仁派出所旁，雖然站牌是鼎東客運，但是國光號仍會停，對於時刻表不熟的話，可以詢問派出所或是站牌旁的雜貨店，另請提早一些時間出來等車，假如沒有搭到1350的車，下一班就是1850，會等到瘋掉，這也是搭乘大眾交通工具要完成阿朗壹古道最討厭的地方，不論是出發或是回程班次都非常少。

最後附上阿朗壹古道的石頭滾石聲，有人說那是海浪再哭泣、也有人認為那是大海在唱歌，你覺得ㄟ ~~ ^^

網路參考資料：

大眾交通運輸班次：

屏東恆春轉運站到屏東旭海車次：0610 1600。
國光客運從安朔站至楓港站車次：0720、1350、1850、2350。
以上資料為201008打電話至恆春轉運站（088891464）和國光台東站（089322027）詢問得知，建議出發前再打電話確認車次是否有異動。

Blogger 換帳號（續）

2010-08-25T16:58:00.000+08:00

上一篇介紹如何管理權限移轉，這裡說明如何用匯出匯入來移轉。

cymcpilipala Blog介面 => 設定 => 基本 =>匯出網誌

按"下載網誌"Button，並把xml檔案存檔

至jengting1211中建立一個新網誌（移轉Demo），並至移轉Demo => 設定

jengting1211 Blog介面 => 設定 => 基本 => 匯入網誌

選擇xml檔案，在此為了示範就不勾選"自動發佈所有匯入的文章"

匯入等待畫面

匯入完成畫面

jengting1211 Blog介面 => 文章 => 修改文章，就可以看見全部匯進來的文章，因為匯入當下並沒有勾選自動發佈文章，所以檢視網誌的話，還看不見文章。

勾選欲發佈文章，並至畫面最下方，按"發佈已選取"

個人結論：

Blogger 換帳號

2010-08-20T21:30:00.000+08:00

很久前就想移轉cymcpilipala帳號下的Blogger至jengting1211，把Google的服務通通整合起來，這次利用Blogger把Draft的功能變成正式版，就想說把Blogger改成新版並把帳號移轉。

Blogger移轉方式有兩種，分別為管理者權限移轉和匯出匯入這裡先介紹管理者權限移轉；我拿自己的兩個Google帳號來Demo移轉流程，cymcpilipala為舊帳號、jemgting1211為新帳號，同時cymcpilipala在IE內、jengting1211在FireFox內操作，增加閱讀分辦新舊帳號的可讀性。

管理權限移轉，簡單說就是把新帳號（jengting122）也設成管理者並把舊帳號（cymcpilipala）移出管理者，下面會Step by Step 來說明。

cymcpilipala Blog介面 => 設定 => 權限 => 新增作者。

輸入jengting帳號並按邀請。

此畫面表示已經把邀請信寄到jengting1211裡，萬一jengting1211信箱那沒有收到邀請信，可以利用再次邀請再發出邀請信。

進入jengting1211信箱，確定收到邀請信，並按下連結確認邀請

會再確定一次jengting1211的帳號跟密碼。

登錄後就可以看見jengting1211為作者，作者的權限只能發佈文章，必須再授與jengting1211管理者權限。

確定是否要授與jengting1211管理者權限

登錄jengting1211帳號，可以看見~楓花雪月~

jengting1211帳號 => Blog介面 => 設定 => 權限，把cymcpilipala帳號給移出作者行列。

系統訊息，說明cymcpilipala將無法張貼任何文章，先前貼的文章仍會出現在Blog上，~楓花雪月~將不會出現在資訊主頁和個人設定檔中。

完成搬移

低自放性電池

2010-07-20T22:24:00.000+08:00

當初買430EX時，詠榕就極度推薦要買低自放性電池來使用，實際使用上不論是續航力或是閃燈回電速度，都大勝一般鹼性電池，到現在只要是電子產品，都會拿它來使用，低自放性電池以SONY、Panaonic、三洋和湯淺為大宗，攝影領域裡最推薦的是三洋或湯淺。

這次則是看上網路商店有加碼活動 - 電池收納盒，剛好也需要買四號電池，還好充電器本身可以同時接受三號跟四號電池，不用再買充電器，要不然又要淌血；收納盒可以放三號或四號電池，三號電池比較適合，因四號電池沒有辦法塞滿整個空間，既然是贈品就沒甚麼好抱怨的啦。^_^

我這阿呆一向對買東西沒甚麼興趣，既然都被我發現有收納盒，當然是要多買幾個來用，這是網路上另外買的，三號跟四號都可以放，而且空間經過設計，即使是放四號電池也可以塞滿空間，但只能擇一放置喔~~

［Word］抓取Word內圖擋

2010-07-03T11:12:00.007+08:00

公司小姐把文件做好，因為找不到原本使用的圖檔，跑來跟我求救，順便介紹一下要如何把Word圖檔給抓出來。

打開 Word 另存此檔案，並選擇其他檔案格式

另存新檔視窗內，選擇檔案類型為"網頁"，並選擇欲存放位置

到存放位置可以找到，因另存新檔所產生的資料夾（預設以Word檔案名稱為資料夾名稱）

點擊進資料夾後，就可以找到Word檔內的圖檔

使用軟體為為 Microsoft Office 2007

Office Image Extraction Wizard 一次解出 Word、PowerPoint、Excel 文件中的全部圖檔

2010 母親節墾丁悠活行

2010-06-02T22:53:00.001+08:00

今年的母親節是家庭日，全家大小到墾丁渡過，上次來墾丁是大學時，詠榕吆喝著要去看英仙座流星雨，三個阿呆青年騎著機車殺過來，完全沒有任何觀星準備，人家是舒舒服服躺在龍磐草原聊天觀星，我們是仰著頭像笨蛋等待，真是強烈對比。

悠活是這次的住宿地點，一個為小朋友量身打造的渡假村，裡面活動可以讓小朋友從早玩到晚，我們則是在泳池畔渡過一個愉快早晨。

悠活的母親節小活動，Julio不守規則，一古腦的要把水球放到另一個鍋子裡去。

承欣 & 子貴

2010-05-12T22:14:00.000+08:00

相片：承欣 & 子貴

興光大稻

2010-04-10T10:42:00.000+08:00

叔弦投稿師友的文章，因為編輯群要求多給一些相片，讓編輯群自行挑選，沒想到稻穗相片被挑中；當初拍的時候，也不過產生三張相片，竟然就有兩張被用上，堪稱命中率最高的相片主題。

原圖

其他相關：稻穗

筆電電池壽命

2010-03-29T22:56:00.000+08:00

最近公司買了一台新NB，心血來潮翻翻說明書，在"如何延長電池使用壽命"的主題中，注意到一點說明。

在可提供穩定電源的環境下使用筆記型電腦時，將電池移除可延長電池壽命不盡然是正確的。筆記型電腦連接變壓器時，請將電池保留在筆記型電腦內，如此並不會造成電池過度充電。筆記型電腦有充電控制及保護電路的設計，一旦充飽即不會再對電池進行充電，所以不會發生過充的現象。

我當初也是這麼想，充飽就會停了阿，在台北的一年加上溫哥華的十一個月，ASUS V6V電池就宣告報銷，OrZ，再好好看看這段說明"將電池移除可延長電池壽命不盡然是正確的"，就是說也不一定是錯的啦。

當然說明書上也有其他方法來延長電池壽命 => 添購一個額外的電池組，果然是商人；另外還非常貼心的提醒你，假如電池取下單獨存放超過三個月，電池本身的自我放電可能導致過放電而造成電池毀損，請至少每三個月將電池充放電一次（備用電池也一樣），老實講，會這麼細心的使用者大概少之又少。

最後說明上還有一點，重覆充放電次數約為300次，也就是說，萬一把NB當桌機使用，大概就是我V6V的後塵吧；假如有注意到電池問題，以現在NB的產品週期大約3-5年，池掛掉那天，大概就是NB該淘汰那天吧，不過即使電池掛掉，我想會去買電池的應該不多，反正接著電源還是可以使用。

在V6V的教訓後，自己的使用習慣為，用到沒電接電源，充飽後就拔掉，這樣做電池壽命會不會比較長我也不知道，反正我認定電池是消耗品，而且一點也不相信電池充飽會自己停就對啦。^_^

仕偉 & 迺卉

2010-03-22T22:22:00.000+08:00

Slide Show

當天相片


其他相片：仕偉 & 迺卉

Ray & Doris - 求婚篇

2010-03-15T23:08:00.000+08:00

很遺憾，當時沒有在現場，只能看影片啦~~ ^_^

稻穗

2010-01-24T10:44:00.000+08:00

在Flickr上竟然有人要買我的相片，著實嚇了我一跳，當下只有一個想法，完全不知道市場行情，更遑論出價，再加上這張相片對我有些意義，絕不可能賣掉，只能趁著這次機會暸解相片市場行情，機會學習囉。

從mail感覺，欲收購者大概是設計人員，大概常常在Flickr上搜尋並購買相片，答應對方無償使用相片，但使用相片的書籍必須寄一份給我；對方在Flickr上的收購方式和價格，全部都是用買斷或Flicrkr玩家讓他免費使用（無償使用）來進行交易，買斷相片價格通常在150 - 200元之間，真是物美價廉的數字，這個價位的相片，也用不到什麼特別的交易模式吧。

另兩位相片價格詢問人：

儂儂：竟然要我開價1000，聽到這個數字，連自己都懷疑有這個價值嗎？來亂的。
博仰：告知連八學長在他大學時期的收購價大約是一張500元，學長真是佛心來的。

這張相片是要用在心靈叢書的封底，因為書籍本身不外借，只能在心靈課程的教室閱讀，所以只要求對方把封面（上方相片）給寄回來，經過美工設計後（左下角），不太像我的相片（右下角）。

其他相關：空中美語、iPhone、Schmap

Battery

2010-01-14T21:28:00.000+08:00

當初從溫哥華回來時，有注意到管制品裡有電池的相關規定，當時只有拖運行李內的相機電池，也就沒有特別去了解，但這次去香港幫忙，因為身上帶著16顆閃光燈的充電電池，特地去查電池的攜帶方式，免的到時候，通通被沒收，那我就囧了~~

以下內容是從松山機場鋰電池規定中擷取：

無須經航空公司同意即可託運或手提上機

含有鋰或鋰離子電池之消費性電子裝置：做為個人使用之消費性電子裝置，如手錶、計算機、照相機、手機、手提電腦及錄影機等。備用電池須個別保護避免短路且僅限放置於手提行李中

鋰電池須符合以下規範：

鋰金屬或鋰合金電池，其鋰含量不超過2公克。
鋰離子電池不得超過100瓦-小時。

電池上通常都會標示的數據為伏特（V）和毫安培（mAh），以400D的鋰離子電池（NB-2LH、圖左側）和湯淺的鎳鋅電池（NI-MH、圖右側）來計算瓦。

NB-2LH：7.4V * 720 mAh/1000 = 5.328 Wh (瓦-小時)
NI-MH： 1.2V * 2000 mAh/1000 = 2.4 Wh (瓦-小時)

所以我攜帶的電池都遠小於管制品規定的數字也不需要事先報備，更何況鎳鋅電池根本就沒有規定，所以不會有問題啦~~ ^_^其他相關參考內容：

子母畫面應用

2009-12-30T22:53:00.000+08:00

子母畫面，類似相片圖層的應用，可以在一個畫面內重疊許多張相片或是影片，以往我都是用光影魔手之類的簡易軟體先進行合成排版，再把相片匯進使用；現在只要直接把相片匯進，再加上威力導演本身的效果，就可以取代很多相片後製流程，變化上也會比較動態。

下面這段影片，是先把胖D的相片合成一張底圖（也可以用四個相片軌去弄出相同效果），再依照每0.5秒，移動相片位置去作出讓相片放大的效果；原本是想要讓電視牆功能（把底圖想成OX遊戲的九宮格），變的活潑一些，不會呆呆的，但是實際操作時，實在是有點費時，還是用四張來呈現就好。

自己突發奇想做出來，給大家參考。^_^

Microsoft Office 2010

2009-12-04T13:12:00.003+08:00

很特務風的廣告。

PowerDirector

2009-10-31T16:58:00.000+08:00

在因緣際會下，開始使用威力導演 7（PowerDirector 7）來製作Video，一開始使用時，只覺得Movie Maker和Photo Story真的是Microsoft來亂的，這兩者互相搭配基本功能都有，但是都有些缺點，常常需要花很多時間去微調，而威力導演就真的友善多，不用浪費這麼多時間，以前我認為的進階功能或是效果，在軟體內都較輕易就能達成，現在 Movie Maker 和 Photo Story 已經完全被我放棄。

製作過程中剛好遇上威力導演 8 的上市發表會，發現自己還有些功能沒有嘗試過，所以也沒辦法分析什麼優缺點，相較於上次發表使用Photo Story不滿的心情，這次只能紀錄這段時間自己製作Video的想法。

相片數量：相片數量要越多越好，千萬不要只選精華相片，手邊素材越多，能作的變化才越大。
轉場：指的是相片跟相片間轉換時的效果，在威力導演內可以隨機套用在影片軌中的全部相片，一般的影片直接套用即可，套用完後，請一定要確定效果跟相片主題是否相符合；Davy and Alexia Video中使用隨機套用，就剛好一張全家福相片上的效果，竟然是"玻璃破碎"，有破碎家庭的感覺，當委託人跟我提到這一點時，真的是冏，OrZ。
相片排版：光影魔手，用這套網路上還頗受好評的軟體來進行相片合成和外框處理，缺點是排版方式並沒有很多元，感覺怎麼調就是那幾種排版比較實用，這一點好像也是這類傻瓜軟體最被人詬病的吧，很制式化，優點是實用、快速。
音樂：Video內的音樂，扮演很重要的腳色，尤其是像這次用了四段音樂，這一點在以前一定做不到，原因是音樂跟音樂的接軌和轉換，會很突兀，常常音樂突然斷掉，下一段音樂就冒出來，再加上音樂長度跟相片時間要搭配在一起，音樂當時真的是我夢靨，威力導演上則是可以直接調整音軌，把結尾部分的音樂漸漸地調小，音樂間的連接，就順暢多了。

結論：
這次做完Video後，當下有個衝動想要學PhotoShop，尤其是用光影魔手合併相片時，一開始覺得還很便利，當你變不出花招、把戲時，怎麼用都是那幾種排版方式，就會想到要用PhotoShop來做，下次有機會再來學。

威力導演學習資源和素材庫：

~楓花雪岳~

[SQL] 克服日期計算的恐懼

皓閔 & 巧倫

[SQL] 上班時間統計

祝福詞 - 2012 大仁大專營祝願

[SQL] 日期欄位資料型態的選擇

祝福詞 - 瑞梅

[VFP] Automation 應用 - 改變 Excel 儲存格顏色

[SQL] UPDATE 搭配 FROM 使用

會計丙級

[SQL] Pair-wise and ordered assignment of objects from two different lists

祝福辭 - 毓蒂

[SQL] 數學運算-小數

高級專家

CPU 風扇導風散熱裝置

[SQL] 流水號跳號

[SQL] 找出各部門第二高薪人員

[SQL] 利用 T-SQL 語法更改欄位名稱

[VFP] 判斷電腦是否安裝 AutoCAD

與打手之間的對話

[VFP] 預設自訂 Form 物件

Power Link For 840D

HD Tune

旗尾山之詩

[SQL] DELETE 和 TRUNCATE

承龍的蜜月祝福

[SQL] 累計加總（Runing Total）

祝福辭 - 倉旭 & 盈潔

[SQL] 字串欄位轉置

[SQL] 群組字串連結

[SQL] 判斷第一碼為數字或是字母

[SQL] 日期 - 基本應用

威力導演 9 - 直式相片模糊

[VFP] Class definition MSXML2.DOMDOCUMENT.4.0 is not found

相機編號

[Windows] Windows 7 桌面圖示全部消失

PenGhu - 安和順夜釣小管

[SQL] 字串填補函數

PenGhu

[VFP] Automation 在 Excel 上的應用

Blueshop Certified Professional 2011

Fuji Xerox DocuPrint M205 b 掃描初值設定值

[SQL] CURSOR

[SQL] 數學運算-除法

iGoogle 還原功能

Blogger Page

紹歧 & 逸雯

來至 EBC 的祝福

記憶體配置錯誤

[SQL] 備份歷史紀錄

佾錚 & 又瑛

[VFP] Windows Script Host - FileSystemObject

電腦機殼外接風扇

Plurk Badge

[SQL] BACKUP 權限

Fuji Xerox DocuPrint M205 b 過熱保護

[VFP] SPT Updatable

[Apple] 利用iTune把CD轉MP3

2011 中華職棒開幕賽

蝶月對話之《情人水果論》

[Windows] 利用 NET USE 語法建立網路磁碟機

UNION

[SQL] Trigger - inserted & deleted Table

[VFP] GOMONTH() 應用

飛天兔寶寶

穿越時空玉見您

引（帶）路雞

HP - Hit Print

中級專家

Visual Studio 2010

[Windows] Win7 和 內碼輸入法

[Windows] 消失的語言列

訂婚-雞腿

[IE] IE 6.0 SP1 離線安裝

[VPC] 變更 Mac Address

[SQL] PIVOT 和 UNPIVOT

MEM_BAD_POINTER

五行水晶蛋

初級專家

Flickr Badge

[Windows] Win7 和內碼輸入法

2010 母親節墾丁悠活行