ExportGrid4ToEXCEL(FileName, AGrid, True, True, False);
當FileName為中文時,打開生成的EXCEL文件,會在生成的EXCEL文件中彈出一個對話框,對話顯示內容為"重新命名無效的工作表名稱". weiliu (2006-07-18 17:36:03) 可以先把中文文件名改成英文，用完了再改回來。 grayback (2006-07-18 17:38:00) { ExcelApp := CreateOleObject('Excel.Application');
try
WorkBook := ExcelApp.WorkBooks.Open(FileName);
ExcelApp.Visible := False;
WorkBook.ActiveSheet.Name := '你好';
finally
WorkBook.Close;
ExcelApp.Quit;
WorkBook := Null;
ExcelApp := Null;
WorkBook := Unassigned;
ExcelApp := Unassigned;
FreeAndNil(ExcelApp);
end; }
NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣(89)
出處
http://blog.sina.com.cn/s/blog_4fd3c97201000cqm.html 標籤：
IT/科技 cxgrid excel cxGrid6.26導出到Excel
從原來使用cxGrid4系列開始，都是使用ExportGrid4ToExcel的辦法，可是使用了6系列後，發現這個辦法已經不行了，從Dev官方找了解決辦法。 use cxGridExportLink; procedure TMainForm.cxButton_MemoExcelClick(Sender: TObject);
begin if SaveDialog1.Execute then
begin
ExportGridToExcel(SaveDialog1.FileName,cxGrid1,True,True,True);
end; end; ///////////注意：ExportGridToExcel導出的標準格式，從源代碼可以看出是以下的格式。 ExportGridToExcel(SaveDialog1.FileName,cxGrid1,True,True,True,'xls'); 但是，後參數可以省略。如： ExportGridToExcel(SaveDialog1.FileName,cxGrid1），參數是否需要是根據需要來定。各參數的含意可以看源代碼。源碼如下： procedure ExportGridToExcel(const AFileName: string; AGrid: TcxGrid;
AExpand: Boolean; ASaveAll: Boolean; AUseNativeFormat: Boolean; const AFileExt: string);
begin
ExportGridToFile(AFileName, cxExportToExcel, AGrid, AExpand, ASaveAll, AUseNativeFormat, '', '', '', AFileExt);
end;
NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣(148)
大哥哥住新竹幾十年(不小心透露年紀)，都不知道有這家麵店說，比陽春麵便宜 下面有找到地點了，改天來去試試看
更新日期:
2009/02/20 15:01
新竹市有一家麵店，幾年來不論
物價如何變化，一碗麵一律只賣20元，原來這家麵店開在廟旁邊，老闆說他因為受到
媽祖保佑，所以用還願的心情來做生意，如今遇上經濟不景氣，來吃麵的民眾每天都大排長龍。 這家小麵店每到中午吃飯時間，門口就一定大排長龍，熱騰騰的蒸汽，傳出大骨湯的香味，店裡坐滿了客人，大家都吃得津津有味，客人說這碗麵的味道很棒，但價錢更讓人激賞，因為一碗麵只要20元。 別以為20元的麵份量少，裡頭全都是真材實料，最近經濟不景氣，來吃麵的人愈來愈多，看看麵店的價目表，20元統統吃得到，而且不論物價如何飆漲，多年來，價錢都沒調過，因為老闆是用向媽祖還願的心情來做生意。 老闆說，用這種價格賣麵，實在賺不了大錢，但只要自己日子過得去，大家又吃得滿意，這就是人生最快樂又幸福的事。 新竹》20年不漲價 明和麵店一碗20元 分類：
食譜&美食 2007/11/24 08:16 新竹》20年不漲價 明和麵店一碗20元 2007/10/23 【聯合報╱記者彭芸芳／新竹報導】 明和麵店的切仔麵每碗20元，小菜也有特色。（記者彭芸芳／攝影） 物價上漲，許多消費者積極找「俗俗賣」商品，新竹市長和宮旁的明和麵店，20年來20元一價到底，切仔麵、炊粉、粄條和乾麵等，統統每碗20元。 老闆吳明和說，「要惜福媽祖庇佑，讓我有能力煮給別人吃」，沒有漲價的打算。 「一碗20元有沒有搞錯、是不是噱頭」有外地人乍聽，懷疑可能小小一碗，食量大者，一定吃不飽。 吳明和說，店裡的湯頭都用大骨頭當天清晨現熬，客人最捧場的骨仔肉湯，常常清晨7時半就賣光了。 吳明和說，以前在長和宮（外媽祖廟）旁擺攤賣麵，每碗20元起家，一度漲到25元，沒多久又自動降回20元，因自己曾經歷病痛和家庭變故，珍惜媽祖和眾神給的重生力量，發願感恩大眾。 這家許多消費者心目中「好吃的店」，後來店址從廟右邊的攤子換成廟左邊的店面，還有租金壓力，仍未想到要漲價。 消費者吳小姐每周至少去吃2、3次，「吃了會上癮，味道真好」。 店內招牌之一炸肉香酥可口，每盤30元，生腸、豬肝等也乾淨美味，許多老顧客形容說，一群人吃一大堆，也花不了多少錢，「比在自己家裡煮還便宜。」
NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣(90)
NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣(8)
Dev Express 是外掛的套件，須要另外安裝才會出現。 一、先將ADO連線、ADO Query 與 DataSource 等元件設定好。(這個每本書都會教到，所以不多說) 二、拉入 Dev Express 的 cxGrid 元件，點選 cxGrid1DBTableView1 後到左邊屬性設定DataSource。
三、建立 FormCreate 程序 procedure TForm1.FormShow(Sender: TObject);
begin
cxGrid1DBtableView1.CreateColumn; //創建一個欄位
cxGrid1DBtableView1.Columns[0].DataBinding.FieldName := 'Serial'; //cxGrid第一個欄位(Columns[0])抓取對應到 DataSource 內 Serial 欄位資料內容(與查詢的TABLE欄位名稱要一致)
cxGrid1DBtableView1.Columns[0].Caption := '序號'; //自訂秀在表格上的欄位名稱，若沒設定預設自動代查詢後的欄位名稱 Serial
cxGrid1DBtableView1.Columns[0].Width := 35; //給訂欄寬
cxGrid1DBtableView1.CreateColumn;//創建二個欄位
cxGrid1DBtableView1.Columns[1].DataBinding.FieldName := 'ProgId';//cxGrid第二個欄位(Columns[1])抓取對應到 DataSource 內 ProgId 欄位資料內容(與查詢的TABLE欄位名稱要一致)
cxGrid1DBtableView1.Columns[1].Caption := '程序編號'; //自訂秀在表格上的欄位名稱，若沒設定預設自動代查詢後的欄位名稱 ProgId
cxGrid1DBtableView1.Columns[1].Width := 60; //給訂欄寬 cxGrid1DBtableView1.CreateColumn;
cxGrid1DBtableView1.Columns[2].DataBinding.FieldName := 'GdsNo';
cxGrid1DBtableView1.Columns[2].Caption := '貨物號碼';
cxGrid1DBtableView1.Columns[2].Width := 60; ADOQuery1.Open;
end; 以上程式啟動後就會看到下面的效果，每個欄位如果對應沒問題，資料都會自動抓進來。
灰色可以將欄位托曳進去，不過這部份暫時還找不出怎樣拿掉。 
找到取消灰色部份的方式了，感謝
Delphi K.Top討論區 Jasonwong 大大解惑：
NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣(839)
大哥哥的酸葡萄心理出現了，規劃文字……沒誠意…
網友一：怎不規劃君字?
網友二：怎不規劃繁體劉字?
大哥哥：怎不規劃劉文君我要與你走完這一生一世………
黃筌麟：靠北……邊走路，大哥哥住哪阿?想拜訪大哥哥一下。
大哥哥：幽默一點嘛…祝福您們天天都像戀愛天^^"
附上youtube連結
更新日期:
2009/02/14 03:36
陳大任／台北報導 求婚是件再浪漫不過的事，不過和黃筌麟相比，大半的人大概都得甘拜下風。他花了八天在中央山脈騎自行車，串連北橫、中橫與南橫的路徑，就只為了走出一個女友名字中的「文」字路線，全程長達七百二十二公里，沿途收錄民眾的祝福。
黃筌麟和女友劉文君都在竹科上班，交往二年後，黃筌麟開始祕密策畫求婚行動，騎自行車在中央山脈縱走，利用
Google Map串連北橫、中橫及南橫三條道路，終於找出一個接近「文」字的騎程路徑。
不知情的劉文君只要求黃筌麟不能自己一人騎，黃筌麟在網路上找到騎伴蕭裕穎後，在去年八月二十日出發，一共騎了八天。
自拍影片 沿途收錄民眾祝福
這趟旅途可說是用體力、汗水和堅強的意志力才完成，沿途黃筌麟收錄了許多祝福，有泰雅族媽媽、
巴基斯坦人，還有
嘉義小妹妹等十五人，這些人一聽到黃筌麟是為了製作一部求婚影片，每個人都在片中發出內心的祝福。
看過影片的網友表示，一開始以為只是個熱愛騎車的自拍影片，但看到路人一個接著一個給予真誠祝福，尤其當「文」字出現時，才發現自己也感動到眼眶泛著淚水。
黃筌麟說，他只是簡單地向路沿途碰到的路人、店家表示要拍一部求婚影片，沒想到大家都很大方的在鏡頭前幫他打氣，成為他騎完全程的動力。
黃筌麟說，八天的旅程中，第五天最令他難忘，當天的目標要爬上塔塔加，但是
天氣既冷又溼，還下著雨，騎起來相當吃力。他在夫妻樹前看到有人，於是稍作停留問問路況，就在這時候前方路線卻發生落石，他心想，也許是冥冥中讓他閃過一次危險。
影片上
YouTube 觀賞人數近萬
在結束騎車旅程之後二個月，黃筌麟才完成影片剪接、配音和上字幕的第二天，女友正為他遲遲未求婚顯露不耐，讓原本想在公開場合播放影片的黃筌麟改變計畫，當晚就播放給女友看，並拿出戒指求婚。去年十二月七日
結婚典禮上，再播了一次，博得全場掌聲。黃筌麟說，這影片對他和老婆來說，都是永生難忘的記憶。
這段求婚MV影片在YouTube累計近七千七百人次觀賞，網友回應相當熱絡，也被YouTube列為官方推薦。有網友回應，這段影片一、害慘了其他也喜愛騎車又還沒求婚的男生。二、寫兩個字誠意較夠。三、祝你們幸福啦。
NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣(33)
NoMoney NoHoney 發表在 痞客邦 留言(1) 人氣(143)
NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣(7)
生意興隆通四海、財源廣進達三家
天泰地泰三陽泰、人和事和萬事和
金蛇狂舞辭舊歲、駿馬奔騰迎新春
和氣吉祥皆快樂、四季平安過新年
家興國興事事興、家圓國圓事事圓 牛年鴻運牛勤力耕作好存糧,穀倉年年滿食糧
NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣(4)
所以囉，這新聞告訴我們，不是大哥哥的錯啦!!^^
更新日期:
2009/01/27 16:35
美國科學家說，
肥胖是一種腺病毒，跟感冒一樣會傳給周圍的人。 美國「潘丁頓生物醫學研究中心」研究員(杜蘭哈)教授說，他們在雞隻和老鼠身上發現，有肥胖腺病毒的雞或是老鼠脂肪細胞都會倍增，當然也就會過胖。杜蘭哈說，沒有這種病毒的雞或是老鼠即使進食的內容和數量跟有病毒的雞和老鼠一樣，也不會發胖。 他們也在三分之一的過胖的人的身上發現了肥胖病毒。體重正常的人類身上有這種病毒的比例只有11%。杜蘭哈說，肥胖病毒經由肺部進入人體，然後傳遍全身。胖病毒可以進入身體裡的任何組織。一旦進入脂肪組織，胖病毒就會複製，大量製造脂肪細胞，讓人迅速增肥。 由於能夠傳染，所以，有胖病毒的人可以經由咳嗽或是接觸把病毒傳染給瘦子，讓瘦子也變胖。杜蘭哈說，胖病毒在人體生存的時間比感冒病毒長，最久的可以達三個月。不過，杜教授說，變胖的原因很多，真的不需要為了怕發胖就避開感冒、打噴嚏、咳嗽的胖子。
NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣(2)
