倒帶

我受夠了等待你所謂的安排 說的未來到底多久才來
總是要來不及才知道我可愛 我想依賴而你卻都不在
應該開心的地帶 你給的全是空白 一個人假日發呆 找不到人陪我看海
我在幸福的門外 卻一直都進不來 你累積給的傷害 我是真的很難釋懷
終於看開愛回不來 而你總是太晚明白 最後才把話說開 哭著求我留下來
終於看開愛回不來 我們面前太多阻礙 你的手卻放不開 寧願沒出息求我別離開
你總是要我乖慢慢計劃將來 我的眼淚卻一直掉下來
過去怎麼交代你該給的信賴 被你親手緩緩推入懸崖
從我臉上的蒼白 看到記憶慢下來 過去甜蜜在倒帶 只是感覺已經不在
而我對你的期待 被你一次次摔壞 已經碎成太多塊 要怎麼拼湊跟重來
終於看開愛回不來 而你總是太晚明白 最後才把話說開 哭著求我留下來
終於看開愛回不來 我們面前太多阻礙 你的手卻放不開 寧願沒出息求我別離開

班務資訊

http://www.facebook.com/note.php?note_id=478750024792&id=100000250591878

學士照150$ 帽子(+100$)

 

全部共計1700$

 

先850$(照片150+畢業活動費700) 17號以前交 (交給杜杜)

 

畢業紀念冊

 

拍個人照時間11/24 10:20 白色圓領

11/25非正式團體照第五節 校園拍照

11/30正式團體照 12:10 高麗菜集合 換好裝 12:20拍 12:30收

 

要交個人畢冊照片 (交給班編-南兒) 團體可 電子照 800kb以上 3-10張

 

四季通識缺修

11/4 ~10

http://w2.hwc.edu.tw/HWC_Vote/vote/index.html

做調查

[系統工具] 每日備份 = 排程+bat+備份 應用

程式集>附屬應用程式>系統工具>排定的工作
備份Appserv的bat (強制覆蓋or改資料夾)
Appserv 的 Server 關閉/打開 SQL關閉/打開

= 自動開機 每日備份 上下伺服器 上下SQL伺服器

相當令我訝異的想法 在我腦袋中蹦出來 終於可以擺脫 我每次都忘記備份的命運了…

Data備份方式:
\AppServ\MySQL\data\

雖然說 程式也可以寫到同樣的功能甚至更強
不過 系統有提供 還是省去殺腦袋的事情…

學習紀錄^^

[大學] 同學們 還記得住嗎?

四資一1

941406016    張庭芸

961406001    黃玟瑜

961406003    葉馨筠

961406004    許家瑋

961406007    葉佳頤

961406008    林佩詩

961406010    李妙玲

961406011    陳怡文

961406012    楊宗儒

961406013    施霈緹

961406014    吳竺霙

961406015    魏慈萱

961406016    鄒炘翰

961406018    黃風豪

961406019    呂亞臻

961406020    林宗憲

961406021    黃健瑋

961406022    許憶玫

961406023    李世超

961406025    陳吉峰

961406026    鄭育哲

961406027    李怡萱

961406029    王怡人

961406030    蕭士亘

961406032    徐培倫

961406036    黃詩雅

961406037    陳正緯

961406038    周昇浩

961406039    陳重光

961406041    趙偉汝

961406042    杜湘嵐

961406043    楊巾誼

961406044    許智勝

961406045    曾詩珊

961406047    孫朝裕

961406048    廖晏諄

961406049    許業政

961406050    陳冠景

961406051    林伯昌

961406052    謝金樹

961406053    楊雅嵐

961406054    涂元宗

961406055    謝濱鴻

961406057    董于瑄

961406058    陳建隆

961406059    謝育潔

961406060    褚育銘

961406061    柯辰翰

[高職]同學們 還記得住嗎?

資二智 資二仁 資三仁
1  王丞佑 1  丁逸權 1 丁逸權
2  巫建信 2  王雅雯 2 王雅雯
3  王明智 3  吳佳玲 3 吳佳玲
4  王雅慧 4  吳施薇 4 吳施薇
5  王玟懿 5  朱春叡 5 朱春叡
6  王馨蘭 6  林凱強 6 林凱強
7  吳秀靜 7  呂學儒 7 呂學儒
8  呂建緯 8  王志瀛 8 陳冠榮
9  林尹雅 9  李育輝 9 李育輝
10  田孟凡 10  楊明儒 10 王丞佑
11  李亞芝 11  倪士鎰 11 倪士鎰
12  李侑穎 12  周韋宏 12 黃佩如
13  林俞君 13  李耀泓 13 李耀泓
14  吳裕翔 14  林祐民 14 林祐民
15  洪誠澤 15  林琦舜 15 林琦舜
16  洪詩婷 16  李瑞祺 16 李瑞祺
17  康佳琪 17  胡俊賢 17 胡俊賢
18  張添誠 18  胡雅真 18 胡雅真
19  郭昱伶 19 黃品寧 19 黃品寧
20  楊靖弘 20  孫朝裕 20 孫朝裕
21  卓承翰 21  張韻涵 21 張韻涵
22  周建佃 22  林巧玲 22 林巧玲
23  曾嘉偉 23  潘雅婷 23 潘雅婷
24  鄭雯琴 24  梁偉傑 24 梁偉傑
25  林雅蘋 25  郭俊良 25 郭俊良
26  林詩吟 26 賴宗暐 26 賴宗暐
27  韋巧慧 27 張育祐 27 張育祐
28  張瑜晏 28  李宗明 28 李宗明
29  張琬婷 29  陳怡靖 29 陳怡靖
30  張裕安 30  鄭紹甫 30 鄭紹甫
31  張詩敏 31  沈意家 31 沈意家
32  張瑩瑩 32  陳威霖 32 陳威霖
33  楊靜伊 33  林芳羽 33 曾姵迪
34  嚴珮文 34  蔡健宇 34 蔡健宇
35  鄭宇芮 35  簡文怡 35 簡文怡
36  陳奕潔 36  洪證華 36 洪證華
37  鄭鳳嬌 37  吳彥慶 37 陳淑娟
38  黃凱欣 38  沈慧真 38 沈慧真
39  駱美彣 39  李伯峻 39 劉玉淳
40  馮心渝 40  黃嘉德 40 黃嘉德
41  黃俐玲 41  陳明哲 41 陳明哲
42  謝雅貴 42  趙炫閔 42 趙炫閔
43  黃麗淳 43  陳冠榮 43 吳永隆
45  簡孝芳 44  劉玉淳 44 田孟凡
46  蔡翔竹 45  陳淑娟 45 洪承澤
47  吳俊華 46  曾姵迪 46 鄭宇芮
49  吳永隆 47  張育祐 47 張添誠
48  賴宗暐
49  黃品寧
50  楊捷智

選手名單

商業類 程式設計 資三仁 01 丁逸權 圖書館 余明修
資三仁 20 孫朝裕
商業類 網頁設計 資三智 36 陳奕潔 圖書館 康靜梅
資三智 04 王雅慧
商業類 文書處理 資三智 14 吳裕翔 圖書館 顏萍宜

VB6 Excel

轉載:http://www.dotblogs.com.tw/yc421206/archive/2009/01/07/6668.aspx

VB6與Excel本是同根生,核心架構都差不多,所以要用VB6讀寫Excel是相當方便的;唯一要特別注意,若 是要由VB控制Excel讀寫大量的資料,千萬不要用迴圈的方式一格一格讀寫,如果你那樣做的話,程式跑起來會很慢很慢,我知道兩種方式

1.引用Excwl Application,並用陣列進行資料寫讀;優 點,相當靈活等於是在操作Excel、效能佳(比不上OLEDB)。缺點,需要花時間瞭解Excel的物件模型

開啟Excel→按ALT+F11→按F1→此時會出現說明,若沒有出現表示沒安裝,快去裝吧→按Microsoft Excel 物件模型。就可以查詢Excel模型

2.引用OLEDB進行資料寫入讀出;優點,此法讀 寫資料是最快,效能最佳。缺點,但不靈活,有可能你不單單只是要讀寫資料

下圖為Excel模型

1

接下來就直接進入主題,

第一步:前期綁定 Excel,更方便的操作Excel,不用背模型語法(會有版本的問題,若擔心版本問題請採用後期綁定)

2 3

第二步:引用Excel

  '#一部電腦僅執行一個Excel Application, 就算中突開啟Excel也不會影響程式執行

  '#在工作管理員中只會看見一個EXCEL.exe在執行,不會浪費電腦資源

  '#引用正在執行的Excel Application

  Set xlApp = GetObject(, "Excel.Application")

  '#若發生錯誤表示電腦沒有Excel正在執行,需重新建立一個新的應用程式

  If Err <> 0 Then

    Err.Clear

    '#執行一個新的Excel Application

    Set xlApp = CreateObject("Excel.Application")

    If Err <> 0 Then

      MsgBox "電腦沒有安裝Excel"

      End

    End If

  End If

 

第三步:讀寫Excel

  '#Excel活頁簿設定

  '===================================================

  '打開已經存在的EXCEL工件簿文件

  Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & "Sample.xlt")

  '停用警告訊息

  xlApp.DisplayAlerts = False

  '設置EXCEL對象可見

  xlApp.Visible = True

  '設定活頁簿為焦點

  xlBook.Activate

  '顯示第一個子視窗

  xlBook.Parent.Windows(1).Visible = True

  '引用第一個工作表

  Set xlSheet = xlBook.Worksheets(1)

  '設定工作表為焦點

  xlSheet.Activate

 

  '===================================================

  '#用Array寫資料至EXCEL

  Dim myRows As Long, myCols As Long

 

  myRows = UBound(DataArray, 1)

  myCols = UBound(DataArray, 2)

  '選擇儲存格範圍

  xlSheet.Range(cells(2, 1), cells(myCols, myRows)).Select

  '陣列一次寫入Excel

  xlSheet.Range(cells(2, 1), cells(myCols, myRows)).Value = xlApp.Transpose(DataArray)

  '呼叫Excel巨集

  xlApp.Run ("Sample.xlt" & "!Caculater")

  '另存新檔

  xlBook.SaveAs App.Path & "\" & "TETS.XLS"

  '關閉EXCEL

  xlApp.Quit

 

Excel 的功能太多了,無法詳細敘述,請參考之前在網路上整理的EXCEL VBA語法[VBA] Excel VBA 指令

範例下載:VB6讀 EXCEL.rar

新據點 – 星據點 ~ 心據點

板橋 星據點 KTV

真的是 沒話說 讚.

足以納入 KTV首選了

服務品質棒 餐飲料理更是沒話說

真是愛死這個地方了

可以考慮生日來這邊舉辦了說…不失是個好地方 好選擇呢

一樓大廳 滿滿的料理讓我們選

從 飲料 爆米花 沙拉霸 自助餐
到 港式料理 日式料理
到 油雞 叉燒

整個就是很棒

真的有比好樂迪好很多很多 我個人感覺 不輸錢櫃…

不過比起這個 我…唱歌唱到好想人喔T_T

我的幸福一直不理人 ><..

開啟/關閉隨身碟自動執行 登錄檔

關閉
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDriveTypeAutoRun"=dword:000000ff

開啟
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDriveTypeAutoRun"=dword:00000099

貼到記事本 命名為 XX.reg 執行即可

3D 互動 展示

3D 展示 互動

 

大侑貿易有限公司

 

(請點選 運轉 即可看到) – 這東西 跟我先前同學給我看的 初音很類似 不過當初沒看到互動 就沒有太注意下去

 

製作者是

EKI (網繹數位科技)

以上應該是我們專題能用上的部分

以下 是我其餘找到的一些 相關網站資訊

請看看 尤其交大的 做的還不錯

又開了個眼界^^

交大的網站 原來這麼的Cool害我的3D學校 整個有點小遜色呢… 可以加油看看^^

這個才叫做找資料…原來這種東西叫做

3D互動展示

關鍵字的拼法 還真的是很重要…

至於3D Flash 也是解決的方法之一 不過似乎 不多人用

其餘相關軟體 知識+ http://tw.knowledge.yahoo.com/question/question?qid=1609122908312

3D Flash 知識+ http://tw.knowledge.yahoo.com/question/question?qid=1609071502066