[系統工具] 每日備份 = 排程+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

警惕

該留意自己的脾氣

雖然老師是很過分 是根本不想聽我在說什麼

我也是不能動怒…(雖然真的很火)

學生的本分…差點都給他忘記

雖然暑假應該是屬於我們的時間

老師有點管太多

我們還是該做要做…學生…學生…

雖然不知道這篇老師會不會看到

不過你當著努力在做的人面前拍桌子

知道你很火 但是我也很火= =

我是不至於去再你火大的時候在去頂撞

但是最起碼給個簡易的道歉…

知道你個性急 耐性也許不好 不過我們也一樣的阿= =

能做好一定做到最好 誰不願意這樣…?

也許看的到也許看不到 光靠那簡易的收入 我會餓死.

也許餓死也不怎樣吼… 就學貸款 也不過 將近50~60萬大觀 (高職20+大學5*8)

你有你的壓力 我有我的壓力

我要替你想 誰替我想呢?

要活的快樂一點…

生活 不快樂.

愛情 很失敗.

事業 一事無成.

金錢 負債累累.

家庭 父母離婚搞分裂 我連畢業後要住哪都不知道

畢業後?…還有兵役 出來後?…失業

這種未來 誰能開心的起來 你說呢?

大家的壓力很大

我的夢很遠.

我只是盡了我的心力 在這個殘酷的世界攀爬著

生活 可以簡單

愛情 可以挑戰

事業 可以打拼

金錢 可以在賺

家庭 . . . 錯不在我

人生的挑戰 還瞞多的 是吧..