邏輯生活: 2013

2013年12月30日星期一

引用來源
--
以下我個人經驗採用最簡單的方式懶人養魚法

關於鬍子想必大家多少都聽過
比較耳熟能想的雪花鬍子紅眼藍眼
我都飼養過不過有成對的紅眼與藍眼
之前有過紅眼鬍子慘痛的經驗加溫器被我姪女調高溫度煮魚湯了所以鬍子不耐高溫
幾點注意事項這邊飼養方式不是職業玩家繁殖販賣的...
1.鬍子很兇建議能夠隔離免的打傷或吃了其他異型的卵

2.鬍子對於水溫適應太高溫會讓鬍子掛點死亡不過這次寒流沒加溫的魚缸有撐過 15度的低溫

3.鬍子會吃同類的卵切記分開體長4公分以上的鬍子

目前飼養環境
標準三尺魚缸上部三層過濾
魚種紅眼大帆一對
藍眼大帆一對 (亞成魚)
皇冠直升機一對
全紅白子數對
哥倫比亞白金
水溫27 度 (之前治療白點固定溫度就沒再調整了)

沉木三塊
繁殖場所竹碳桶(有節)
每天餵食固定晚上 1次碇狀飼料每隻2碇 (我家會挑食><)
公魚發情表現
1.胸鰭腹鰭拍打搧水的動作
2.找到產卵場所(我家的竹碳桶)
3.會驅趕母魚進洞
母魚發情表現
肚子變大正上方觀看後腹部變寬而且是橘紅色的(紅眼或藍眼)

公魚把母魚驅趕會進行一陣子看起來類似打架在產卵前兩天都看過公魚追著母魚跑
在產卵時期兩隻魚都會在洞內這時建議不要去打擾了靜靜等待母魚出來的時刻避免驚嚇不生了

等待母魚出來的時刻先恭喜了公魚通常都會顧蛋(網路有說沒顧蛋需要採用人工孵化)
魚卵類似鮭魚卵橘紅色很漂亮公魚這時期很少進食會自己搧水帶動水流會用嘴清理魚卵避免水霉不過也可能吃了魚卵不過少數
通常正常的魚卵公魚都不會去動它的在幾次繁殖後發現首胎母魚至少都有60隻以上的出生率以卵的數量來說大約60~80
整個孵化時間7~9天(同整直升機)

孵化後小魚照顧缸出生的小魚肚子都有卵黃三天內都不需用進食所以不需用太早丟太多飼料至少都三天後才會攝食
我飼養方式直接丟海x的異型飼料當然有豐年蝦也可以! 異型也很愛吃
最後選擇比較方便的飼料養殖目前首胎體長大約3~4公分三個月大小
首胎遇到問題突然消瘦死亡以為是體內蟲等等問題造成存活率15%
第二胎放假時候巧遇寒流滴流速度過快白點存活率不到10%
第三胎目前還沒看到死亡的出現

分析第一胎的問題當時有去找藥跟詢問玩家的朋友最後得到無解的問題不過還是下點體內蟲的藥物最後發現大約在第2周之後小魚會進食
不過突然消瘦死亡的問題所在可能是當時孵化後直接隔離人工照顧空間狹小的問題造成
鬍子在進食會擺動尾部驅趕其它接近一種保護自己食物的本能造成的吧!
目前第三批本週進入第三週完全沒有這種問題出現
第二胎注意換水對溫動作免的損失慘重><
第三胎採用自行孵化自行出關覓食第一胎的問題造成我的困擾現在也算是實驗對照階段不過希望幫助到遇到跟我一樣問題的朋友多一點參考! 這胎也沒下體內蟲藥物
而每胎生產時間大約都30天左右好像都我領錢那天^^"

在飼養紅眼鬍子紅眼大帆與藍眼之間目前在等待今年6月左右藍眼成魚等待生產吧!
冬天鬍子的繁殖季節產量頗大
如果搭配一公兩母很快可以爆缸但是需要注意數量上的控制不然會有我之前的情況發生
2呎魚缸紅眼生蛋藍眼大帆跑去偷吃(那隻成長快速)

而鬍子屬於凶悍的魚種整個三尺缸成魚的公魚是霸王驅趕哥白直升機藍眼孔雀

這邊提供以前飼養經驗
雪花紅眼紅眼大帆飼養最高溫與最低溫
15~31度
水質最惡劣情況孔雀夾尾了鬍子依然活跳跳
可耐4天不餵食 (工作太忙)
對於換水對水問題不大適應力很強但是換水水溫需要比較注意也容易併發白點
對於千分之3的粗鹽可耐上野黃藥可耐

歡迎經驗分享有錯誤也請指教下回在po出直升機的吧!

補充:
飼料方面
小黃瓜葉菜川燙後專用飼料豐年蝦幼蟲死魚=.=(成魚都會吃)
小魚仔豐年蝦幼蟲專用飼料與葉菜川燙都會吃不過葉菜類比較不建議怕農藥殘留

2013年12月23日星期一

Lightbox build on MooTools 1.4

官網:he alternative Lightbox build on MooTools 1.4
--
CeraBox is a JavaScript plugin used to display larger images (or other objects) without leaving the page using modal dialogs. The CeraBox is triggered by clicking a standard anchor tag. When JavaScript is disabled the objects will still be opened, but without the Cerabox effect.

javascript Lightbox2

官網:lightbox2
--
好用喔~~~

2013年12月18日星期三

crystal report 處理頁次和總頁

if PageNumber < TotalPageCount then
formula = false
else
formula = true
end if

2013年12月14日星期六

Epson ESC/POS (TM-L90) Cant print barcode

引用來源
--
applet.append("\x1D\x68\x50");
applet.append("\x1D\x6B\x02");
applet.append("496595707379\x00");
applet.append("\x0A");

applet.append("\x1D\x68\x64");
applet.append("\x1D\x6B\x02");
applet.append("496595707379\x00");
applet.append("\x0A");

applet.print();

2013年12月12日星期四

vbnet 字串切割處理函式

本函式主要是要處理中英數 bytes 問題! 條碼機運用
---
Private Function word_substring(ByVal prod_name_str As String, ByVal prod_ptr As Integer) As String
word_substring = prod_name_str
Try
Dim prod_name_A As String = ""
Dim prod_name_B As String = ""
'
Dim chk_ab As Integer = 0
Dim prod_line As Integer = 0
Dim prod_c As String = ""
For i As Integer = 1 To Len(prod_name_str)
prod_c = Asc(Mid(prod_name_str, i, 1))
If prod_c >= 0 And prod_c < 128 Then
prod_line += 1
chk_ab = 1
Else
prod_line += 2
chk_ab = 2
End If
prod_name_A += Mid(prod_name_str, i, 1)
'--
If prod_line >= prod_ptr Then
Select Case prod_line
Case prod_ptr
Case prod_ptr + 1 '加1碼
'words -2 bytes
prod_name_B += Mid(prod_name_A, 1, prod_name_A.Length - 2) + Space(2)
prod_name_B += Mid(prod_name_A, prod_name_A.Length - 1, 2)
prod_name_A = prod_name_B
End Select
prod_line = 0
End If
'--
Next
Return prod_name_A

Catch ex As Exception
Return word_substring
End Try
End Function

2013年12月9日星期一

下載 Microsoft ODBC Driver for SQL Server (windows,linux)

官網:Microsoft ODBC Driver for SQL Server
--
Microsoft 的 SQL Server ODBC 驅動程式是由 Windows 的 ODBC 驅動程式和 Linux 的 ODBC 驅動程式所組成。
--
真是不錯! 在linux 也能用ODBC 了!
但..微軟卻沒有 for linux 的開發工具...

mssql sp_updatestats 效能變差-維護的方式(完整)

參考引用來源:升級 SQL Server，效能變差

--01 更新 AdventureWorks 資料庫中之資料表的統計資料。
USE Northwind;
GO
EXEC sp_updatestats

--02 對每一個資料庫執行 sp_updatestats 作業
USE master
GO
EXEC sp_MSforeachdb @command1="print '?' EXEC [?].dbo.sp_updatestats"

Regsvr32 指令參數與用法

Regsvr32 指令一共有四個參數, 分別是:
　　 /s: 安裝或移除成功後不顯示提示訊息
　　 /u: 移除已安裝的元件或 DLL 檔案
　　 /n: 不調用 DLLRegisterServer 要注意這個參數應與 /i 一起使用
　　 /i: 調用 DLLInstall, 並給其傳遞一個可選的 [cmdline] 當使用 /u 時用來移除DLL

Regsvr32 /u shimgvw.dll 移除圖片和傳真查看器
Regsvr32 /u zipfldr.dll 移除 ZIP 檔案夾顯示功能
Regsvr32 /u cabview.dll 移除 CAB 檔案支援
Regsvr32 /u shmedia.dll 移除 XP 的影像預覽功能
Regsvr32 /u wmpdxm.dll 網頁用 WMP 播放媒體
Regsvr32 /u mydocs.dll 刪除我的文件夾
Regsvr32 /u scrrun.dll 停用 FSO 對像
Regsvr32 /u wmpshell.dll 移除 WMP 右鍵選單項目

2013年12月5日星期四

綠水培養+水蚤繁殖經驗完整分享

綠水培養+水蚤繁殖經驗完整分享

一直有人在問怎培養綠水和怎繁殖水蚤
底下總整理一份文件,希望對培養綠水和要繁殖水蚤的人有所幫助!

[綠水]
1.從無綠水到有綠水,該怎培養?
A.先準備透明塑膠杯3-5杯(我是用胖胖杯),將缸水+魚便抽出來後;倒到透明塑膠杯內
並將蘋果螺每杯放2-3顆! 都完成後,拿去有陽光的地方曬太陽!
B.大約3天會看到變淡綠,此時加入花肥(如圖)加1-2粒下去(請依透明塑膠杯大小而定,若中小杯放1粒就好)
C.再過3-4天,會看到淡綠轉回中.深綠 (表示成功了)
D.當深濃綠後,可擴杯或擴更大的綠水培養容器!
D1.擴杯(蘋果螺每杯放2-3顆)-->將原培養好的綠水倒半杯到空杯內,然後各補缸水+魚便下去
D2.擴大容器(蘋果螺每杯放5-10顆)-->一樣倒半杯下去即可,原杯補缸水+魚便下去;大容器一樣補缸水+魚便下去
E.以上反覆操作,當有提走綠水;就是要補缸水+魚便(若是胖胖杯的,一次最多取半杯的量就好)
F.若沒那麼多缸水+魚便,怎辦?
F1.可直接加自來水,此時要看原綠水是否過淡;若過淡就是補花肥1粒下去

[室外水蚤]
1.水蚤怎養繁殖?
A.水蚤的容器可以用魚缸或是較寬的塑膠盒等均可
B.綠水+缸水+蘋果螺(越多越好)-->水深度約10~15cm均可
C.建議都養室外,所放的地方不要全照陽光;若全照,可用木板遮住一半
D.綠水+水蚤養法,幾時要換綠水?
D1.變清或變黃,抽掉3/4的水;先補缸水+後補綠水
D2.綠水該補多少? 看水色,補到有中綠即可 (不可全補綠水[酸度問題])
D3.補完後,就是等水色又變到跟圖片一樣的顏色! 就是要抽掉3/4的水;先補缸水+後補綠水
E.水蚤咧? 抽掉3/4 --->就是用倒的到收集的大容器內! 再一次來過濾+撈水蚤!
F.過濾出來的水蚤,要再用自來水沖過或先撈到乾淨的水內;再給魚吃喔!
F1.過濾蚤時,可依大小隻過出來;給仔魚或亞成魚吃(網目準備2種即可)

-----------
差不多這樣了!

2013年12月4日星期三

Crystal Reports service packs and versions

有 Crystal Reports 2011,2008,XI R2,XI R1 的各更新版本
--
請參考來源:Crystal Reports service packs and versions

2013年11月21日星期四

變更登入帳號密碼，出現Must_Change為On時，Check_Policy與Check_Expiration選項...錯誤

參考引用
--

USE [ 資料庫 ]
GO
ALTER LOGIN [ 帳號 ] WITH PASSWORD = '密碼'
GO
ALTER LOGIN [ 帳號 ] WITH
      CHECK_POLICY = OFF,

CHECK_EXPIRATION = OFF;

Winfrom 在tabcontrol中嵌入form

參考引用來源
C#利用tabControl控件实现多窗体嵌入及关闭
--

public bool tabControlCheckHave(System.Windows.Forms.TabControl tab, String tabName)
{
for (int i = 0; i < tab.TabCount; i++)
{
if (tab.TabPages[i].Text == tabName)
{
tab.SelectedIndex = i;
return true;
}
}
return false;
}
public void Add_TabPage(string str, Form myForm)
{
if (tabControlCheckHave(this.tabControl1, str)) { return; }
else
{
tabControl1.TabPages.Add(str);
tabControl1.SelectTab(tabControl1.TabPages.Count - 1);
myForm.FormBorderStyle = FormBorderStyle.None;
myForm.TopLevel = false;
myForm.Show();
myForm.Parent = tabControl1.SelectedTab;
tabControl1.SelectedTab.AutoScroll = true;
}
}
private void BindTabPage(LB002 lb)
{
Add_TabPage("基本參數", new frmTypeParameter(lb));
Add_TabPage("機型客艙", new frmAircraftCabin());
Add_TabPage("基本參數", new frmTypeParameter(lb));
Add_TabPage("機型客艙", new frmAircraftCabin(lb));
Add_TabPage("散裝艙", new frmHeavyBulkTankJoint());
Add_TabPage("集裝箱", new frmContainer());
Add_TabPage("機組", new frmStandardUnitConfigurationInformation());
Add_TabPage("機供品", new frmJiGongPinInformation(lb));
Add_TabPage("油量指數範圍", new frmOilIndex(lb));
Add_TabPage("重心包線範圍", new frmCenterOfGravityEnvelope());
Add_TabPage("最佳重心範圍", new frmBestWeight(lb));
Add_TabPage("配平值", new frmBalancingValue());
Add_TabPage("特別項目", new frmStretcherSeatInformation());
Add_TabPage("板箱", new frmBoardBoxes());
Add_TabPage("側平衡&側不平衡", new frmSideOfBalance());
Add_TabPage("艙位信息", new frmShippingSpaceInformation());
Add_TabPage("尾油箱", new frmTailOilTank(lb));
}

--
依照這寫法,小試了一下;感覺還不錯!

2013年11月20日星期三

《研究報告》鉅亨網

2013年11月19日星期二

哈囉孔雀魚論壇

哈囉孔雀魚

2013年11月18日星期一

wiki 初探 Android

IntroAndroid - androidbmi - 初探 Android - BMI (Body Mass Index) Calculator App on Android platform - Google Project Hosting
--
真好

陳擎文老師的Android智慧型手機程式設計

陳擎文老師的教學文件下載 Android智慧型手機程式設計
--
真不錯!!

Android 開發教學 (blog)

TW-HKT 程式城市人
---
收錄不是很多,對我來說;目前值得參考的資訊文件

2013年11月15日星期五

Eclipse android app 開發教學

饒瑞佶老師個人教學網站
1.訓練班>>Android智慧型手機程式設計班
2.訓練班>>Android手機程式設計中階班

2013年11月14日星期四

ADT 中文化

官網:Babel Project - Eclipse translation
--

DVI 規格

引用來源
--

2013年11月13日星期三

vbnet 簡易跑馬燈

寫了一推方法,都很不順 ; 後來改用最簡單方式來處理簡單又好調整
---

--------
code:
Public Class Form1
Dim a As String = ""
Dim b As String = ""
Dim ann As Integer = 0

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
If a <> "" Then
ann += 1
If ann <= a.Length Then
b += Mid(a, ann, 1)
Else
b += Space(2)
End If
TextBox1.Text = b
TextBox1.SelectionStart = b.Length
If b.Length > (a.Length * 5) Then
ann = 0
b = ""
End If
TextBox2.Text = "b:" & b.Length & " ann:" & ann
End If

Catch ex As Exception
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
a = "第9999店於5/11開幕,請大家告訴大家!"
End Sub

End Class

2013年11月12日星期二

MSSQL 資料庫「唯讀」解除

右擊資料庫->屬性->選項->狀態->把"數據庫為只讀"設為false

如何安裝 Android 開發工具

請參考來源:旗標知識講堂 Android 入口網站
--
網路上找了一大堆,寫得"漏漏長"看不懂在寫啥...
唯一找到這篇,清楚簡單;一看即懂!

另外一篇也不錯:
最新基於adt-bundle-windows-x86的android開發環境搭建

-------
整合:
1.下載 JDK
2.ADT 開發工具 (eclipse它已經集成好了ADT)

-------
安裝好後,第1次啟動模擬器會有錯誤訊息:
--->遠端主機已強制關閉一個現存的連線。

解決方式:請參考此篇:Adb connection Error:遠端主機已強制關閉一個現存的連線。

----
經安裝後 , 在使用上的感覺:
硬體 CPU 要強 (i3 , i5 較OK) / RAM 一定要有4GB以上 ; 所以 Windows OS 最好是64bit的!
在公司,使用E7500 / 2GB ...簡直是"龜"..RAM 還吃到虛擬HD 了...Orz..
(比 visual Studio 更恐龍....)

2013年11月11日星期一

下載 Android Studio

官網:Getting Started with Android Studio

收錄網址 ASP.NET for C#

ASP.NET @ 資訊園 :: 痞客邦 PIXNET ::

這裡還放真多篇 , 有空時再看看

2013年11月8日星期五

清除 SQL Server Management Studio 伺服器名稱

參考引用部分來源:德瑞克：SQL Server 學習筆記: 清空「伺服器名稱對話方塊的伺服器清單」 -- SQL Server 2008 SSMS Clean MRU Server List
---

-- 伺服器清單是存放在以下檔案內：
%APPDATA%\Microsoft\Microsoft SQL Server\100\Tools\Shell\SqlStudio.bin
-- 在 Windows Server 2008 或是 Vista 作業系統，路徑是：
C:\Users\{%您的登入帳號%}\AppData\Roaming\Microsoft\Microsoft SQL Server\100\Tools\Shell\SqlStudio.bin
-- 以使用者 Administrator為例：
C:\Users\Administrator\AppData\Roaming\Microsoft\Microsoft SQL Server\100\Tools\Shell\SqlStudio.bin

---
要注意的是:

1.先把 SQL Server Management Studio 關閉後
2.再刪 SqlStudio.bin 檔
3.再執行 SQL Server Management Studio , 就會看到都清空了

goo.gl 縮網址

最近一直收到一堆 goo.gl/ xx 的簡訊網址
查了一下,是 google 推出的縮網址的功能
接下來看看 Google URL Shortener
我按了2次 , 就變 2 個縮址了 ; 不知道怎刪 (所以只要按一次就好)
http://goo.gl/yP3bza
http://goo.gl/LQIjKg
這2個網址,均會導向到 http://gr.erptw.com/
-------

crystal report 續下頁

應同事要求,要生出分類多頁時自動"續下頁"的字
例:
1.分類:醬油 page:1/1
2.分類:麵類 page:1/2 , 2/2 --->1/2 這頁的頁尾就要顯示:續下頁
3.分類:餅乾 page:1/1

從來沒用報表弄這個,思考了一下;還是有解的!
----
結果:

2013年11月7日星期四

用python抓網頁data

各上市.上櫃每股盈餘

網址:公開資訊觀測站-綜合損益表
--

股價研究過程-003

增加:上櫃收盤行情+即時報價
慢慢爬... 慢慢加資訊進來
---

2013年11月6日星期三

股價研究過程-002

目前進度只針對上市公司 , 上櫃的還要再處理
---

即時報價--鴻海

vbnet 取今日星期幾

今天是星期

Choose(Weekday(Now.ToShortDateString), "日", "一", "二", "三", "四", "五", "六")

孔雀魚疾病

孔雀魚疾病

(一)孔雀魚腹水出處:奇摩知識網-

1.腹水是吃到髒東西，如寄生蟲，也有可能是寄生蟲寄生，那就是水質的問題了，

但不管如何，先換水五分之一，下一點鹽巴（家用鹽可，約一茶匙），
再下（治體內寄生蟲）藥劑便可.

2.其實腹水要看為什麼腹水啦這也只不過是一個症狀名稱....不是疾病

也有很多病毒性疾病都會引起腹水阿,生理性代償也會腹水阿

只要造成腹腔滲透壓不平衡都會導致腹水

比如腹膜炎,因為腹膜發生炎症,組織液就會滲出,腹腔又來不及吸收就會腹水

比如肝有問題,可能因此造成白蛋白製造降低,也會腹水

比如腎有問題,可能水循環不佳,也會腹水

還有好多好多狀況....;

而且說真的,沒有細菌性腹水和堵塞性腹水...

在醫藥分類來說,完全沒有這個命名法

?孔雀魚新世紀 -- 孔雀魚新世紀論壇

諸如以上舉例,除了腹膜炎可以適用抗生素外,

而且抗生素是用來制菌或者殺菌,對於炎症反應也沒有什麼效果

其他例子哪一點適合抗生素? 可能用了還死的更快而已吧

也只能針對原因治療,原因不明也只是常常使用利尿劑加強水分排除..

因為很多抗生素也是需要肝腎代謝,這樣看每一種抗生素的特性

~孔雀魚新世紀 -- 孔雀魚新世紀論壇

還有,不是醫師就不要自己亂用抗生素

台灣抗藥性很嚴重,人醫怪獸醫抗生素濫用,說真的很多時候是民眾自己也都很濫用..

(二)為何我的孔雀魚爛尾治不好呢.....

1.不要另放他處，因於生病是水質關係（有不安因素），你還放別缸那更慘，
且如果是一般於你隨便移位但環境不同，死亡的機率也提高很多

2.換水五分之一

3.加一點粗鹽（家用鹽也可），約一茶匙

4.下（細菌殺手）或有關細菌的藥，如（黴菌性感染治療劑），因爛尾大部分是孔雀於互
鬥而造成傷口，細菌趁虛而入

5.水加溫到30度（發揮藥效），加溫器一隻大約600Rv
PS：TETRA是歐洲產品，非常好的藥，但萬能水是屬於維他命類，只是事先預防，並不能
治癒

(三)我的孔雀魚怎麼白白的?

如果是出現一整塊白色還有絲狀的話那有可能是水黴`

如果是白色一小點....很多點的話就是白點病.

可以加入甲基藍藥水

或是加入一些粗鹽,

再把水溫提高.

如果是水黴的話,那就必須要換水了,表示水質不好.

(四)孔雀魚的眼睛腫腫的?

白矇症，細菌性感染，下藥（黴菌性疾病治療劑），先換水五分之一，活性炭拿出，在下
藥讓他們藥浴，依平後指示下藥，過與不及都不可，太多會死，藥不強細菌會產生抗體.

(五)孔雀魚的疾病

孔雀魚的大部份病症，都是飼育者本身的疏忽所引發的，通常引發的病症有四大因素：

1.水質的惡化:
水質惡化的最大原因是投餌過量所引起的水污染以及過濾器污穢所引起的有害質的積存。
只要每日的投餌適量，以及適當掃除過濾器與水質調整都可以防止發生。
雖然適當的換水也有必要，切勿大量換水，這樣對孔雀魚有傷害，稍注意。
過度清除過濾器，也同時洗掉繁殖的過濾菌，而導水質惡化。

2.水溫的變化:
孔雀魚是屬於變溫物，會隨著周遭的溫度來變換体溫的。
水溫不論高或低都有礙魚体機能正常的運作，尤其水溫的上昇或低下，對孔雀魚是最大的
致命傷。結果体內的代謝不順，食欲也低下而會衰弱下去，也要注意季節早晚過度落差很多。

3.粗魯的接觸魚身:
孔雀魚的身体表面是特別纖細而易損傷，所以利用網子撈起時，要特別小心，
否則体表一但損傷，細菌會從傷口侵入而感染。若不用網子而用手撈起時，
也不要用指甲損傷魚体。請特別留意。

4.帶進病症:
孔雀魚，容易患病的原因中，估有最大的比例是受到他魚的感染，若將新購入的孔雀魚放
於魚缸內時，一定要先行確認，是否有病症或先養於他缸觀察三、五天，確定無病症再放
入。

(六)孔雀魚病症的前兆:

●索餌不佳
●在水面附近做出呼吸困難狀
●在水底附近靜止不動
●游水動作有些不自然
●身体磨擦於他物似的在游水|
●呼吸的方法有些怪異)
●魚体全面欠缺光澤
●尾鰭呈合閉狀態

如發現孔雀魚的外觀有如下現象時，患病的可能性最大需及早判別病名並採取藥浴等做適
當的治療。
●鰭部先端溶解
●体表或鰭部有白點
●嘴邊或身体的一部分呈白狀
●鰓部呈紅白腫狀
●魚体有瘀血部分;
●魚体出現水泡
●極度消瘦
●魚鱗豎起而魚体呈肥胖狀
●眼球呈突出狀
●類似綿花球狀

一旦發現孔雀魚有異狀時，就要及早判別病名，如自己無法判斷時，就要請教水族館店家
並購入治療用品。治療可分藥浴和口投。

(七)孔雀魚一般常見的病症:

1.白點病:
症狀：魚体全面會出現直徑１ｍｍ以下的白色細點，並且一定會從各鰭發病之後再擴散至
全身，如不予處置時，將會漸次衰弱不久就會死亡。這是淡水魚典型病症。
儘管孔雀魚發病率不多，但也不是說完全不會發病，所以大意不得。

原因：白點蟲等纖毛蟲所寄生引發的病症，其体表的白點即是寄生蟲的本体。寄生蟲的週
邊的表皮呈白色狀者也有，白點愈多則表示寄生狀態愈為嚴重。

2.爛尾症:
症狀：是從尾鰭開始附著黃白色粘著物。不久，再蔓延至各鰭，並漸次糜爛。
尤其病情進行時，鰭部會呈爛腐狀，甚或斷落尾鰭都有因食欲大減，
不久連肌肉也被侵腐而衰弱致死，故有必要及早治療，發病雄魚較多，是其特徵。

原因：遭受卡拉姆那里斯細菌感染所引起，感染途徑為傷口，
而受傷大部份由於魚隻之間的爭鬥，粗魯的接觸所引起的居多。

3.水霉病:
症狀：別名口腐病，棉花病，但正名為水霉病。這是水霉寄生於体表而帶上棉花般是白色
狀，不久蔓延至全身而腐爛皮膚，尤其病情行時水霉繁茂部份會腐爛掉落都有可能。
而到了患病中期以後就會失去食欲，游水也欠活潑，不久將會死去。

原因：体表的傷口或錨蟲，魚蝨等寄生所引起的傷口，由水霉科的真菌著生引發二次病症
者。真菌大都是輸入孔雀魚帶進來的居多。

4.松球病:
症狀：全身的鱗片豎起魚体，全面也會鼓滿，病名是因為看似松球般乃有此名。
如病情進行則魚鱗會剝落，於是不能再游水而導致死亡。

原因：遭受野羅孟那斯細菌感染所引發。

5.口腐病:
症狀：口部週邊或頰部附近呈白棉花狀而不能再進食，不久，將會衰弱而致死。

原因：與爛尾病一樣，卡拉姆那里斯細菌感染為原因輸入

(八)孔雀魚帶來的新感染:

症狀：鰓部腫脹而在水面痛苦中勉強呼吸，並且合閉尾鰭而不時在搖頭，
做不自然的游水動作，
不久，魚体呈白濁狀而衰弱致死。

原因：由輸入孔雀魚帶進來的細菌為感染因素。而一旦發現感染的魚隻時，
必須隨即隔離於其他魚缸。初期者，只有換水或加入鹽水也可改善。

治療 : 可使用一些市售的殺菌劑來進行藥浴，大部份的情況都會有所改善。
若仍然無法痊癒，原因可能在於一些導致細菌性的感染的因素，並未消除，
如水溫過低，死魚未撈出等。患水霉病症者，可能要注意水質，應撈除死魚或殘餌，
並趕快換水，而松球病可能要優先改善水質，藥浴除去水中的病原，
待魚較有食欲後，用細菌治療的藥餌餵食。至於爛鰭、爛尾等外表症狀的魚隻，
換水並佐以藥浴，情況也能改善。

股價研究過程-001

不知道會不會開發到成品並釋放beta
--
目前已寫 service windows app

--
當然這是後端處理,前端還有得寫;還一堆技術指標和圖表等

為什麼要寫?
1.以後成品後,推賣看看
2.目前證券提供的AP資訊不全,往往要東翻西找..

2013年11月5日星期二

mssql 西元轉民國

select convert(varchar(3),CONVERT(int,year(getdate())-1911))+right(CONVERT(char(8),getdate(),2),6) as qday

MS SQL - IF ELSE 功能

查詢時，要顯示欄位有IF ELSE的效果

單一條件
CASE WHEN 欄位 = ? THEN X ELSE Y END AS 顯示欄位名

多層條件
CASE
WHEN 欄位 = ? THEN W
WHEN 欄位 = ? THEN X
WHEN 欄位 = ? THEN Y
ELSE Z
END AS 顯示欄位名

如何算出兩個日期相減的日數

TimeSpan ts = DateA - DateB;
ts.TotalDay >>>總天數

2013年11月3日星期日

VB.NET 讀取CSV檔

參考引用
--

Dim CsvImport As New OpenFileDialog()

        If CsvImport.ShowDialog = Windows.Forms.DialogResult.OK Then

            '先把CSV變成TXT檔，再去Parse
            My.Computer.FileSystem.CopyFile(CsvImport.FileName, CsvImport.FileName.Replace("csv", "txt"))
            Dim input = My.Computer.FileSystem.OpenTextFieldParser(CsvImport.FileName.Replace("csv", "txt"))

            '原本的CSV是用欄位隔開的不過轉成Txt後就自動用，號分隔，所以要用這行判斷
            input.SetDelimiters(",")

            '把資料讀進去ArrayList
            Dim rows As New ArrayList

            '先把第一列Title讀掉
            Dim title() As String
            title = input.ReadFields()

            While (Not input.endofdata)
                rows.Add(input.ReadFields)
            End While

       End if
 
'要抓的資料
'就像這樣rows(i)(0)=第 i 列第 1 欄的資料

2013年10月30日星期三

利用 DateTime.ParseExact 將字串轉回 DateTime 格式

請參考來源:利用 DateTime.ParseExact 將字串轉回 DateTime 格式

mssql sys.databases 欄位

SELECT
name , -- 資料庫名稱
recovery_model_desc , -- DB 復原模式
log_reuse_wait_desc -- Log 無法清除原因
FROM sys.databases

select * from sys.databases

2013年10月29日星期二

MSSQL 縮小 log 檔至 1MB

參考引用來源
--
-- 首先把数据库的恢复模式改为Simple
ALTER DATABASE [数据库名] SET RECOVERY SIMPLE;
GO

-- 缩小log文件至1M,逻辑名称可以通过sp_helpfile拿到
DBCC SHRINKFILE ([log文件逻辑名称], 1);
GO

-- 重置数据库的恢复模式
ALTER DATABASE [数据库名] SET RECOVERY FULL;
GO

財訊快報 -- 有即時股價查詢

財訊快報

2013年10月28日星期一

Celsys RETAS Studio 日文動畫教學

RETAS STUDIO 使い方講座 | CLIP
RETAS STUDIO 中文教學影片
[2D軟體]【RETAS HD 教學】還在摸索？有人寫出教學啦！ - 【動畫創作研究社】 - 創作革命†REVOLUTION
啥？動畫—【2D動畫軟體《Retas》1-10篇】

--
【心得】繪圖筆記‧輕鬆入門繪圖板

看了繪圖工具後,應該會想要一台繪圖板吧! 上面這篇也詳細介紹
採用的型號:Wacom Bamboo CTL-470

證券交易所,證券櫃檯買賣中心

TWSE 臺灣證券交易所
證券櫃檯買賣中心
--
一直以為是一起的,注意找時..竟然上市和上櫃是區分開來的
收藏記錄一下

本機Windows帳號密碼驗證登入

參考引用來源
---

Public Class Form1

    Public Declare Auto Function LogonUser Lib "advapi32.dll" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, _
   ByVal dwLogonType As Integer, ByVal dwLogonProvider As Integer, ByRef phToken As IntPtr) As Boolean

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_OK.Click
        Dim UserID As String = TextBox_UserName.Text
        Dim UserPass As String = TextBox_Password.Text
        Dim bTemp As Boolean
        Dim MachineName As String

        MachineName = System.Environment.MachineName

        Const LOGON32_PROVIDER_DEFAULT As Integer = 0
        Const LOGON32_LOGON_INTERACTIVE As Integer = 2
        Dim tokenHandle As New IntPtr(0)
        tokenHandle = IntPtr.Zero

        bTemp = LogonUser(UserID, MachineName, UserPass, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, tokenHandle)

        If bTemp Then
            MsgBox("登入成功")
        Else
            MsgBox("登入失敗")
        End If
    End Sub

End Class

特殊資料類型轉換函式

參考引用來源
--

'浮點數轉二進位  
Private Function DecimalToBinary(ByVal DecValue As Integer, Optional ByVal Num As Integer = 16) As String
      Dim sValue As String = Convert.ToString(DecValue, 2)
      Return String.Format("{0:x" & (Num - sValue.Length).ToString & "}", 0) & sValue
  End Function

  Public Function BinaryToInteger(ByVal sData As String) As Integer
      Dim I As Int16
      Dim bTemp As Integer

      bTemp = 0
      For I = sData.Length - 1 To 0 Step -1
          bTemp = bTemp + Val(sData.Substring(I, 1)) * 2 ^ (sData.Length - 1 - I)
      Next
      Return bTemp
  End Function

'Byte轉二進位
Public Function ByteToBinary(ByVal bData As Byte) As String
      Return Strings.Right("00000000" & BinaryRecursive(bData), 8)
  End Function

  Public Function BinaryRecursive(ByVal bData As Byte) As String
      If bData > 1 Then
          Return BinaryRecursive(bData >> 1) & IIf((bData And 1) = 1, "1", "0")
      Else
          Return "1"
      End If
  End Function

  '二進位轉Byte
  Public Function BinaryToByte(ByVal sData As String) As Byte
      Dim I As Int16
      Dim bTemp As Byte

      bTemp = 0
      For I = sData.Length - 1 To 0 Step -1
          bTemp = bTemp + Val(sData.Substring(I, 1)) * 2 ^ (sData.Length - 1 - I)
      Next
      Return bTemp

End Function

自動從網頁的原始碼取要的資料

參考引用
--

Option Strict On
Option Explicit On
Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions

Public Class F_Main
    Dim dt As DataTable
    Dim dr As DataRow
    Dim ds As DataSet
  
    Private Sub initTable()
        dt = New DataTable
        Dim oCol1 As DataColumn = dt.Columns.Add("stkid", GetType(String))
        oCol1.AllowDBNull = True
        Dim oCol2 As DataColumn = dt.Columns.Add("fill", GetType(String))
        oCol2.AllowDBNull = True
        Dim oCol3 As DataColumn = dt.Columns.Add("price", GetType(String))
        oCol3.AllowDBNull = True
    End Sub

    Private Sub StkSelect(ByVal stk_id As String)
        dr = dt.NewRow
        Dim url As String = "http://tw.stock.yahoo.com/q/q?s=" + stk_id
        Dim StockValues As String = SketchWebPage(url)

        Dim index As Integer = 0
        Dim GetNowTimeHtml As String = ""
        Dim GetStockName As String = "href=""/q/bc?s=" + stk_id + """>"
        index = InStr(StockValues, GetStockName) + GetStockName.Length - 1
        dr(0) = StockValues.Substring(index, StockValues.IndexOf("", index) - index)

        Dim GetFillHtml As String = GetNowTimeHtml + ""
        index = InStr(StockValues, GetFillHtml) + GetFillHtml.Length - 1
        dr(1) = StockValues.Substring(index, StockValues.IndexOf("", index) - index)

        Dim GetPriceHtml As String = ""
        Dim up As String = ""
        Dim down As String = ""
        Dim zero As String = ""

        Select Case InStr(StockValues, GetPriceHtml + up)
            Case 0
                Select Case InStr(StockValues, GetPriceHtml + zero)
                    Case 0
                        Dim dowhtml As String = GetPriceHtml + down
                        index = InStr(StockValues, dowhtml) + dowhtml.Length - 1
                        dr(2) = StockValues.Substring(index, 5)
                    Case Else
                        Dim zerohtml As String = GetPriceHtml + zero
                        index = InStr(StockValues, zerohtml) + zerohtml.Length - 1
                        dr(2) = StockValues.Substring(index, 5)
                End Select
            Case Else
                Dim uphtml As String = GetPriceHtml + up
                index = InStr(StockValues, uphtml) + uphtml.Length - 1
                dr(2) = StockValues.Substring(index, 5)
        End Select
        dt.Rows.Add(dr)
    End Sub

    Private Function SketchWebPage(ByVal URL As String) As String
        Try
            Dim lobjRequest As HttpWebRequest
            Dim lobjResponse As HttpWebResponse
            Dim lobjEncode As Encoding
            Dim lobjStreamReader As StreamReader
            lobjRequest = CType(WebRequest.Create(URL), HttpWebRequest)
            lobjResponse = CType(lobjRequest.GetResponse(), HttpWebResponse)
            lobjEncode = System.Text.Encoding.GetEncoding("big5")
           '建立一個新的stream去做讀取
            lobjStreamReader = New StreamReader(lobjResponse.GetResponseStream, lobjEncode)
      
      Dim stmPage As String = lobjStreamReader.ReadToEnd()
            lobjResponse.Close()
            lobjStreamReader.Close()
            Return stmPage
        Catch ex As Exception
            Return "FAILED"
        End Try
    End Function

    Private Sub btnReload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReload.Click
        initTable()

        StkSelect("2891")
        StkSelect("1532")
        StkSelect("2524")
        StkSelect("2409")
        StkSelect("2704")
        StkSelect("5531")
        StkSelect("5347")
      
        Me.DataGridView1.DataSource = dt
        Me.DataGridView1.Columns(0).Width = 70
        Me.DataGridView1.Columns(1).Width = 60
        Me.DataGridView1.Columns(2).Width = 60
    End Sub

End Class

簡單的使用類別中的類別下的屬性

參考引用來源
--

Public Class Factory

    Private sAddress As String
    Private sTEL As String
    Private objEmp As New Employees

    Public Property Address() As String
        Get
            Return sAddress
        End Get
        Set(ByVal value As String)
            sAddress = value
        End Set
    End Property

    Public Property TEL() As String
        Get
            Return sTEL
        End Get
        Set(ByVal value As String)
            sTEL = value
        End Set
    End Property

    Public Property Employees() As Employees
        Get
            Return objEmp
        End Get
        Set(ByVal value As Employees)
            objEmp = value
        End Set
    End Property

End Class

Public Class Employees
    Private bWork As Boolean
    Private sName As String


    Public Property Work() As Boolean
        Get
            Return bWork
        End Get
        Set(ByVal value As Boolean)
            bWork = value
        End Set
    End Property

    Public Property Name() As String
        Get
            Return sName
        End Get
        Set(ByVal value As String)
            sName = value
        End Set
    End Property

End Class

--
用法:

Dim ft As New Factory
 ft.Address = "地球村台灣區台中路112號"

 '簡短寫法
 With ft.Employees
     .Name = "Tom"
     .Work = False
 End With
 '或用一般寫法
 ft.Employees.Name = "Tom"

ft.Employees.Work = False

2013年10月27日星期日

mysql 5 使用者網頁式中文手冊

請參考來源:mysql 5 | mysql 5 使用者手冊
--
真方便,都做成索引了! 值得收藏~~以備所需!

vbnet 抓網頁資料

引用來源
--
Imports System.Web
Imports System.Net.Sockets 'HttpWebRequest、HttpWebResponse類別
Imports System.Net
Imports System.IO 'StreamReader類別

在page_load事件裡加入以下

Dim request As HttpWebRequest = WebRequest.Create("http://tw.yahoo.com")
Dim mResponse As HttpWebResponse = request.GetResponse()
Dim sr As New StreamReader(mResponse.GetResponseStream, Encoding.GetEncoding("utf-8"))

' 可設定用什麼編碼來擷取

Dim strContent = sr.ReadToEnd()
sr.Close()
request = Nothing
mResponse = Nothing
Response.Write(strContent)

2013年10月22日星期二

NLog 股市分析

NLog 股市分析 - 台股股票百種數據、分析工具及排行榜提供 - 讓您成為股市大贏家

PL/SQL 常用轉換函數 (轉)

ABS(n) 取決對值 ABC(-5) = 5;
CEIL(n) 無條件進位 CEIL(5.9) = 6;
FLOOR(n) 無條件捨去小數 FLOOR(5.9) = 5;
MOD(m,n) 餘數 MOD(5,2) = 1;
POWER(m,n) n次方 POWER(2,3) = 23;
ROUND(m,n) 四捨五入 ROUND(2.54,1) = 2.5;
SIGN(n) n是否小於零 SIGN(-4) = -1;
SQRT(n) 平方根
TO_CHAR(n or date[,format]) TO_CHAR(sysdate,’YYYYMMDD’)
TO_NUMBER(char)
TO_DATE(char,format)
SELECT TO_DATE (’20050101′, ‘yyyy-mm-dd’) - 10
FROM DUAL
LPAD(char,m,str) 向左補字元
RPAD(char,m,str) 向右補字元
LTRIM(char, str) 向左去空白
RTRIM(char, str) 向右去空白
LOWER(char) 轉小寫
UPPER(char) 轉大寫
REPLACE(char, str1, str2) 替換字元
SUBSTR(char, m, n) 切字元
INSTR(m,n) 傳回n字串在m字串中的位置(切符號分隔字串)
ex:INSTR(’ABCD’,'CD’)=3
LENGTH(char) 字元長度
GREATEST(n1,n2) 取大值
LEAST(n1,n2) 取小值

時間日期：
SYSDATE [from DUAL]
LAST_DAY(date) date的最後一天 return date
ADD_MONTHS(date, n) date的n個月後 return date

Only use SQL
DECODE(char, str1, str2, str3, str4, str5)
SELECT columns
FROM tables
WHERE EXISTS ( subquery );
計算字元出現次數
　　　SELECT length(translate(’aabbaddddccaaa’, ‘a’||’aabbaddddccaaa’,'a’)) FROM dual

2013年10月16日星期三

循環切換 Control focus

這就類似智慧型手機上的鍵盤輸入運用
想不到要搞定 focus 還真是花費好多時間
最終只好採用變數才能處理
--

--
當按[循環 focus] 即可在上面標示 1,2,3,1,2,3 如此切換 Control focus
--
code:

Public Class Form1
Private focus_index As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case focus_index
Case 0
Txt2.Focus()
Case 1
Button2.Focus()
Case 2
Txt1.Focus()
End Select
End Sub

Private Sub Txt1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt1.GotFocus
focus_index = 0
End Sub
Private Sub Txt2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt2.GotFocus
focus_index = 1
End Sub
Private Sub Button2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.GotFocus
focus_index = 2
End Sub
End Class

查詢MS SQL Server連線狀況

參考引用來源
--
use master--use master系統資料庫
select c.session_id, c.connect_time,s.login_time, c.client_net_address,
s.login_name,s.status
from sys.dm_exec_connections c left join sys.dm_exec_sessions s
on c.session_id = s.session_id

MS SQL 判斷資料表是否存在

參考引用來源
--
--方法一-透過INFORMATION_SCHEMA.TABLES
select *
from INFORMATION_SCHEMA.TABLES
where TABLE_TYPE='BASE TABLE'
and TABLE_NAME='RubSpec'

--方法二-透過sys.tables
select *
from sys.tables
where name='RubSpec'

--方法三-使用OBJECT_ID
select OBJECT_ID('RubSpec')
----若為暫存表格，因存放於tempdb，語法改寫為
select OBJECT_ID('tempdb..RubSpec')

--如果表格存在要一併刪除，可使用下述語法
IF (select OBJECT_ID('RubSpec')) IS NOT NULL Drop Table RubSpec

mssql create primary key (建立PK)

參考引用來源:w3schools:SQL PRIMARY KEY Constraint
--

SQL PRIMARY KEY Constraint
The PRIMARY KEY constraint uniquely identifies each record in a database table.

Primary keys must contain unique values.

A primary key column cannot contain NULL values.

Each table should have a primary key, and each table can have only ONE primary key.

SQL PRIMARY KEY Constraint on CREATE TABLE
The following SQL creates a PRIMARY KEY on the "P_Id" column when the "Persons" table is created:

MySQL:

CREATE TABLE Persons
(
P_Id int NOT NULL,
LastName varchar(255) NOT NULL,
FirstName varchar(255),
Address varchar(255),
City varchar(255),
PRIMARY KEY (P_Id)
)
SQL Server / Oracle / MS Access:

CREATE TABLE Persons
(
P_Id int NOT NULL PRIMARY KEY,
LastName varchar(255) NOT NULL,
FirstName varchar(255),
Address varchar(255),
City varchar(255)
)
To allow naming of a PRIMARY KEY constraint, and for defining a PRIMARY KEY constraint on multiple columns, use the following SQL syntax:

MySQL / SQL Server / Oracle / MS Access:

CREATE TABLE Persons
(
P_Id int NOT NULL,
LastName varchar(255) NOT NULL,
FirstName varchar(255),
Address varchar(255),
City varchar(255),
CONSTRAINT pk_PersonID PRIMARY KEY (P_Id,LastName)
)
Note: In the example above there is only ONE PRIMARY KEY (pk_PersonID). However, the value of the pk_PersonID is made up of two columns (P_Id and LastName).
SQL PRIMARY KEY Constraint on ALTER TABLE
To create a PRIMARY KEY constraint on the "P_Id" column when the table is already created, use the following SQL:

MySQL / SQL Server / Oracle / MS Access:

ALTER TABLE Persons
ADD PRIMARY KEY (P_Id)
To allow naming of a PRIMARY KEY constraint, and for defining a PRIMARY KEY constraint on multiple columns, use the following SQL syntax:

MySQL / SQL Server / Oracle / MS Access:

ALTER TABLE Persons
ADD CONSTRAINT pk_PersonID PRIMARY KEY (P_Id,LastName)
Note: If you use the ALTER TABLE statement to add a primary key, the primary key column(s) must already have been declared to not contain NULL values (when the table was first created).

To DROP a PRIMARY KEY Constraint
To drop a PRIMARY KEY constraint, use the following SQL:

MySQL:

ALTER TABLE Persons
DROP PRIMARY KEY
SQL Server / Oracle / MS Access:

ALTER TABLE Persons
DROP CONSTRAINT pk_PersonID

2013年10月11日星期五

ms sql windows驗證登入,卻無法登入的問題

--
這問題,查好久;才發現..原來是 OS 的登入帳號被改過了
導致使用 windows 驗證登入,老是登不進去
--
解決方法:
採用sa 登入後,建立目前 OS 登入的帳號 -- 加入後;即可在mssql 使用 windows 驗證登入

mssql 2000 master 壞了,無法啟動服務問題

當遇到 mssql 2000 master 系統資料庫壞掉
服務是無法啟動
---
解決方法:
拿光碟片內,將 master.mdf 和 mastlog.ldf 這2檔
複製到C:\Program Files\Microsoft SQL Server\MSSQL\Data\ 即可
--

2013年10月8日星期二

股市一路發 » 鵝爸爸李明哲股票分析網站

股市一路發 » 鵝爸爸李明哲股票分析網站

--
這要看全文,要付費! Orz..

sqlcmd錯誤的解決方法

sqlcmd錯誤的解決方法

一、問題
使用sqlcmd客戶端工具連接數據時，出現以下錯誤：
C:\>sqlcmd
HResult 0x2，級別 16，狀態 1
命名管道提供程序: 無法打開與 SQL Server 的連接 [2].
Sqlcmd: 錯誤: Microsoft SQL Native Client : 建立到服務器的連接
允許遠程連接這個事實可能會導致失敗。。
Sqlcmd: 錯誤: Microsoft SQL Native Client : 登錄超時已過期。

二、原因
1、網絡協議及相關端口未打開
2、未指明使用何種身份認證方式登錄

三、解決過程
1、開啟網絡協議
SQL Server Configuration Manager -> 網絡配置 -> 協議
TCP/IP屬性
保持活動狀態 --> 30000
全部偵聽 --> 否
無延遲 --> 否
已啟用 --> 是

IP地址
IP地址 --> 數據庫服務器IP
TCP動態端口 --> 不填
TCP端口 --> 1433
活動 --> 是
已啟用 --> 是

2、連接數據庫
(1)使用Windows身份認證：C:\>sqlcmd -E -S\實例名 -d master
(2)使用SQL SERVER身份認證：C:\>sqlcmd -S\實例名 -d master -U 用戶名 -P 密碼

四、使用SQLCMD
1、查看幫助：C:\>sqlcmd -？
2、執行SQL語句
C:\>sqlcmd -E -S\WWDD -d master
1> use www
2> go
已將數據庫上下文更改為 'WWW'。
1> select * from guangd;
2> go

2013年10月7日星期一

Jerry 財報知識網

2013年10月2日星期三

貝蚤清除方法

引用來源
--
相信很多人都知道貝蚤是幾乎所有魚都不吃...而且這種生物大多在蓮花盆裡面出現...
想撈也撈不完..魚也不吃....但是某種鼠魚似乎會幫你解決這個問題...就是Y字鼠和三間鼠其中一種
因為我本來想說我的蓮花盆缺鼠魚清底..所以我就跑去買了2隻Y字鼠和1隻三間鼠來清底
但沒想到過了2天之後水底游來遊去的貝蚤幾乎消失不見(裡面至少1-2百隻貝蚤)
所以我猜想大概是Y字鼠(六間鼠???)幫我解決了這煩惱~而3間鼠呢放進蓮花盆裡就不見蹤影
整個盆子翻過了就是找不到...連屍體也找不到...我想可能被外星人綁架了 [face9]
有興趣的大大可以買個一之來試試看
不過要小心Y字鼠偶爾會攻擊小魚..但不至於被吃掉或是受傷

--
看到這篇,也跑去買了2隻來試試
魚圖引用來源

MS SQL Log 修復

如果遺失日誌檔
小知識: SQL恢復技術
SQL Server 資料庫檔恢復技術
SQL Server 資料庫備份有兩種方式，一種是使用BACKUP DATABASE 將資料庫檔備份出去，另外一種就是直接拷貝資料庫檔 mdf 和日誌檔ldf的方式。下面將主要討論一下後者的備份與恢復。
本文假定您能熟練使用SQL Server Enterprise Manager (SQL Server企業管理器) 和 SQL Server Quwey Analyser(SQL Server查詢分析器)。

1、正常的備份、恢復方式
正常方式下，我們要備份一個資料庫，首先要先將該資料庫從運行的資料伺服器中斷開，或者停掉整個資料庫伺服器，然後複製檔。
卸下資料庫的命令：Sp_detach_db 資料庫名
連接資料庫的命令：Sp_attach_db
或者
sp_attach_single_file_db
sp_attach_db [@dbname =] ′dbname′, [@filename1 =] ′filename_n′ [,...16]
sp_attach_single_file_db [@dbname =] ′dbname′, [@physname =] ′physical_name′
使用此方法可以正確恢復 SQL Sever7.0 和 SQL Server 2000 的資料庫檔，要點是備份的時候一定要將 mdf 和 ldf 兩個檔都備份下來，mdf 檔是資料庫資料檔案，ldf 是資料庫日誌檔。
例子：
假設資料庫為test，其資料檔案為test_data.mdf，日誌檔為test_log.ldf。下面我們討論一下如何備份、恢復該資料庫。
卸下資料庫：
sp_detach_db ‘test’
連接資料庫：
sp_attach_db ‘test’, ‘C:\Program Files\Microsoft SQL Server\MSSQL\Data\test_data.mdf’, ‘C:\Program Files\Microsoft SQL Server\MSSQL\Data\test_log.ldf’
sp_attach_single_file_db ‘test’,'C:\Program Files\Microsoft SQL Server\MSSQL\Data\test_data.mdf’
2、只有mdf檔的恢復技術
由於種種原因，我們如果當時僅僅備份了 mdf 檔，那麼恢復起來就是一件很麻煩的事情了。如果您的 mdf 檔是當前資料庫產生的，那麼很僥倖，也許你使用 sp_attach_db 或者 sp_attach_single_file_db 可以恢復資料庫，但是會出現類似下面的提示資訊設備啟動錯誤。物理檔案名 ‘C:\Program Files\Microsoft SQL Server\MSSQL\data\test_Log.LDF’ 可能有誤。
已創建名為 ‘C:\Program Files\Microsoft SQL Server\MSSQL\Data\test_log.LDF’ 的新日誌檔。
但是，如果您的資料庫檔是從其他電腦上複製過來的，那麼很不幸，也許上述辦法就行不通了。你也許會得到類似下面的錯誤資訊
伺服器: 消息 1813，級別 16，狀態 2，行 1
未能打開新資料庫 ‘test’。CREATE DATABASE 將終止。
設備啟動錯誤。物理檔案名 ‘d:\test_log.LDF’ 可能有誤。
怎麼辦呢？別著急，下面我們舉例說明恢復辦法。
A．我們使用默認方式建立一個供恢復使用的資料庫(如test)。可以在SQL Server Enterprise Manager裏面建立。
B．停掉資料庫伺服器。
C．將剛才生成的資料庫的日誌檔test_log.ldf刪除，用要恢復的資料庫mdf檔覆蓋剛才生成的資料庫資料檔案test_data.mdf。
D．啟動資料庫伺服器。此時會看到資料庫test的狀態為“置疑”。這時候不能對此資料庫進行任何操作。
E．設置資料庫允許直接作業系統表。此操作可以在SQL Server Enterprise
Manager裏面選擇資料庫伺服器，按右鍵，選擇“屬性”，在“伺服器設置”頁面中將“允許對系統目錄直接修改”一項選中。也可以使用如下語句來實現。
use master
go
sp_configure ‘allow updates’,1
go
reconfigure with override
go
F．設置test為緊急修復模式
update sysdatabases set status=-32768 where dbid=DB_ID(‘test’)
此時可以在SQL Server Enterprise
Manager裏面看到該資料庫處於“唯讀\置疑\脫機\緊急模式”可以看到資料庫裏面的表，但是僅僅有系統表
G．下面執行真正的恢復操作，重建資料庫日誌檔
dbcc rebuild_log(‘test’,'C:\Program Files\Microsoft SQL
Server\MSSQL\Data\test_log.ldf’)
執行過程中，如果遇到下列提示資訊：
伺服器: 消息 5030，級別 16，狀態 1，行 1
未能排它地鎖定資料庫以執行該操作。
DBCC 執行完畢。如果 DBCC 輸出了錯誤資訊，請與系統管理員聯繫。
說明您的其他程式正在使用該資料庫，如果剛才您在F步驟中使用SQL Server Enterprise
Manager打開了test庫的系統表，那麼退出SQL Server Enterprise Manager就可以了。
正確執行完成的提示應該類似於：
警告: 資料庫 ‘test’ 的日誌已重建。已失去事務的一致性。應運行 DBCC CHECKDB
以驗證物理一致性。將必須重置資料庫選項，並且可能需要刪除多餘的日誌檔。
DBCC 執行完畢。如果 DBCC 輸出了錯誤資訊，請與系統管理員聯繫。
此時打開在SQL Server Enterprise Manager裏面會看到資料庫的狀態為“只供DBO使用”。此時可以訪問資料庫裏面的用戶表了。
H．驗證資料庫一致性（可省略）
dbcc checkdb(‘test’)
一般執行結果如下：
CHECKDB 發現了 0 個分配錯誤和 0 個一致性錯誤（在資料庫 ‘test’ 中）。
DBCC 執行完畢。如果 DBCC 輸出了錯誤資訊，請與系統管理員聯繫。
I．設置資料庫為正常狀態
sp_dboption ‘test’,'dbo use only’,'false’
如果沒有出錯，那麼恭喜，現在就可以正常的使用恢復後的資料庫啦。
J．最後一步，我們要將步驟E中設置的“允許對系統目錄直接修改”一項恢復。因為平時直接作業系統表是一件比較危險的事情。當然，我們可以在SQL Server
Enterprise Manager裏面恢復，也可以使用如下語句完成
sp_configure ‘allow updates’,0
go
reconfigure with override
go

2013年9月29日星期日

WantGoo 玩股網

2013年9月24日星期二

群益金融網 - 證券

群益金融網 - 證券
--
不錯的 web 查股 , 還有大師講股的評分

2013年9月23日星期一

融資增加

參考引用來源
--
融資增加,代表散戶一片看好,如果融資持續的增加 ,代表這支股票熱度已增
加 ,如股價也上漲 ,則融資的買者 ,一片熱疼疼 ,市面上充斥著歡欣鼓舞.
如果融資持續的增加 ,但股價是往下跌 ,則買到融資的人一片套牢聲 ,逢低
都是在攤平 ,且越攤越難過 ,苦無翻身之日.
一般融券也增加的話代表的也是有多種意義 ,股價一直漲 ,有的人會認為融
資持續的增加 ,都是散戶在裡面 ,不放你空等何時 ,當放空後股價持續上
漲 ,當然放空的人也是會往上再放空也算是攤平拉高放空的價位.
另一種公司有大利空 ,而部分有內線的人知道後會放假的好消息讓散戶去用
融資買進然後他再猛放空 ,就像3年前的禿鷹集團 ,這是最惡劣的手法.
總之融資融卷都增加的話就是已到很熱的價位ㄌ...多空都要小心....

Resize form and all controls in proportion to their startup size/location

參考引用
--

Public Class Form1

Public NameControlDesign() As String
Public LocationControlDesign() As Point
Public SizeControlDesign() As Size
Public SizeFormDesign As Size
Public LastSize As Size
Private font_size As Double
Private new_font_size As Double
Public heightratio As Double
Public widthratio As Double
Dim origWidth As Integer
Dim origHeight As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LastSize = Me.Size
font_size = Me.Font.Size
new_font_size = Me.Font.Size
origWidth = Me.Width
origHeight = Me.Height
ReDim NameControlDesign(Me.Controls.Count)
ReDim LocationControlDesign(Me.Controls.Count)
ReDim SizeControlDesign(Me.Controls.Count)
SizeFormDesign = Me.Size

For i As Integer = 0 To Me.Controls.Count - 1
NameControlDesign(i) = Me.Controls(i).Name
LocationControlDesign(i) = Me.Controls(i).Location
SizeControlDesign(i) = Me.Controls(i).Size
Next i
End Sub

Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
heightratio = Me.Height / origHeight
widthratio = Me.Width / origWidth
new_font_size = Math.Max(4, Math.Round(font_size * _
IIf(Math.Abs(heightratio) < Math.Abs(widthratio), _
heightratio, widthratio), 0))

For a As Integer = 0 To sender.Controls.Count - 1
sender.Controls(a).Location = New Point(sender.Size.Width / SizeFormDesign.Width * LocationControlDesign(a).X, sender.Size.Height / SizeFormDesign.Height * LocationControlDesign(a).Y)
sender.Controls(a).Size = New Size(sender.Size.Width / SizeFormDesign.Width * SizeControlDesign(a).Width, sender.Size.Height / SizeFormDesign.Height * SizeControlDesign(a).Height)
Next a
Me.Refresh()
End Sub
End Class

2013年9月22日星期日

如何設定DataGridView欄位固定高度與寬度

參考引用
--
DataGridView grid = new DataGridView();
foreach (DataGridViewColumn gCol in grid.Columns)
gCol.Width = 100;
grid.RowTemplate.Height = 24;

產業分析好站蒐集

[分享]產業分析好站蒐集byBruce Hsu | 小樂的生存之道

2013年9月17日星期二

IP查詢工具 - 查IP位置,IP查國家,ISP來源,查網址IP,查詢自己IP位址

2013年9月16日星期一

大陸-孔雀鱼論壇

2013年9月13日星期五

異型鬍子養殖經驗收藏

引用來源
--
你是跟我買嗎?沒關係?就算不是我們也可彼此交流心得.以下提供參考
剛買來得小魚.我通常會對水一天以上.讓於適應新家ㄉ水質和各種條件"
對水方式請參考我自製影片http://www.guppytaiwan.com.tw/blog-154363-5377.html
通常小魚我都會時豐年蝦2個月再改成一般底棲飼料+綠藻碇.至少要3公分以上我才會出售
基本功就只有一個字.就是"勤".勤清理.勤換水.勤發問.勤爬文
我開始養魚也才一年半而已.也還在學習.這是我的心得請參考
魚對水時不要餵食，結束後一天在餵，可先給綠藻１\４錠，酵素１\４錠，再來就隨你了，不要因保健食品好用就常給吃，到時一般飼料就不吃了，久了會營養不良，綠藻可常吃和飼料輪流餵食.
我ㄉ魚缸很簡單.1.5尺缸只有大雙管水妖精2組.竹炭桶或是產卵桶在家沉木.沒有一些雜7雜8ㄉ東西.如果中北部可能會需要加溫棒.去年寒流水溫最低溫撐過18~19度.所以南部冬天不需要加溫棒.
中北部的水比較適合養異形.水質較軟.PH也偏中性.所以我不認為需要買太多東西.除非你混養很多其他魚種
繁殖ㄉ話.中北部水質OK.PH也OK.水溫24最好.23~25度都會生.生ㄌ後蛋和魚不需要分家.除非公魚受到極大驚嚇才有可能吃蛋.讓公魚照顧.5~7天就會孵化成小魚.沒經驗ㄉ公魚可能會將一些卵和小魚踢出產卵桶.通常我會讓牠們自生自滅.有時也會人工孵化.生存機率不高.孵化後再將小魚和魚爸分開.小魚的卵黃會在5~7天退化完成.這幾天不需餵食.營養來自卵黃.可以在第5天開始極少量餵食.這時就所謂的訓餌.小魚的食物就是豐年蝦或是水蚤.我目前使用豐年蝦(較貴).水蚤需要養殖.有點麻煩.我也不會.但是成本幾乎是0元.1個月後再訓餌.加入綠(藍)藻碇和少量一般飼料.2個月後就正常一般飼料.
至於魚要養的黃.綠(藍)藻碇是不可或缺.這是比較容易吸收的植物性蛋白質.加上大量換水(須循序漸進)增進牠的新陳代謝....健康的魚就會非常黃.公魚和母魚體色會有落差.母魚偏白(尤其抱蛋期間)

2013年9月12日星期四

VB.NET輕鬆實現工作列程式

參考引用
--
1.啟動 .NET 環境, 新建一個 VB.NET的WINDOWS應用程式
2.在表單上添加一個 NotifyIcon 控制項 , 指定一個相應的圖示檔
3. 添加一個 CONTEXTMENU , 將 NotifyIcon 的 CONTEXTMENU 指定為這個CONTEXTMENU
4. 給 CONTEXTMENU 添加兩個子功能表, 分別為「顯示介面」和「退出」, 如圖:
5. 按兩下「退出」功能表, 輸入 Me.Dispose(True)
6. 按兩下「顯示」功能表, 輸入
Me.Show()
Me.Focus()
7. 在 FORM 的 Form_Closing 中輸入
e.Cancel = True
Me.Hide()
8. 運行程式, 看效果 !

2013年9月11日星期三

DirectShowNet library

DirectShow .NET
--

.NET 撥放影音

20130916 , 採用此GUN ; 必須搭配解碼器,才能動唷!!
K-Lite Mega Codec Pack 10.0.3 阿榮版 - 影片播放軟體

K-Lite Codec Pack 10.0.5 Full:軟體王-軟體資訊網站

2013年9月9日星期一

Update 語法在 SQL Server v.s. Access

參考引用來源
--
當要關聯多個資料表 (Table) 來執行 Update 指令時

【SQL Server】

UPDATE Tab1
SET a.Name = b.Name
FROM Tab1 a,Tab2 b
WHERE a.ID = b.ID;

【Access】

注意：ACCESS 中的 UPDATE 語句沒有 FROM 子句

UPDATE Tab1 a,Tab2 b
SET a.Name = b.Name
WHERE a.ID = b.ID;

UPDATE Tab1 a,(Select ID,Name From Tab2) b
SET a.Name = b.Name
WHERE a.ID = b.ID;

2013年9月5日星期四

使用電腦「雙螢幕輸出」來增加工作效率

請參考來源:使用電腦「雙螢幕輸出」來增加工作效率

換個大戶腦五個不一樣讓你不再住套房

請參考來源:換個大戶腦五個不一樣讓你不再住「套房」

股市籌碼分析_股狗網

2013年9月1日星期日

VB6.0 開發累積(函數庫)

參考來源:VB6.0 开发积累(函数库)

2013年8月29日星期四

Edit Rows in a DataTable

引用來源:MSDN How to: Edit Rows in a DataTable
--
一般都是新增/刪除
使用陣列方式可更新資料

Dim customersRow As NorthwindDataSet.CustomersRow
customersRow = NorthwindDataSet1.Customers.FindByCustomerID("ALFKI")

customersRow.CompanyName = "Updated Company Name"
customersRow.City = "Seattle"

'更新

Dim customerRow() As Data.DataRow '須使用陣列

customerRow = DataSet1.Tables("Customers").Select("CustomerID = 'ALFKI'")

customerRow(0)("CompanyName") = "Updated Company Name"

customerRow(0)("City") = "Seattle"

2013年8月28日星期三

台灣證券交易所-基本市況報導網站

台灣證券交易所-基本市況報導網站

原舊版本:
TWSE 臺灣證券交易所- 個股查詢

2013年8月27日星期二

ListView checkbox 勾選即時反應控制

ListView 的勾選即時處理事件: ListView_ItemCheck

在這有兩個參數:
e.NewValue -->0 取消勾選,1 已勾選
e.Index -->row 所在列

利用這事件和參數;即可處理即時反應訊息..等

2013年8月26日星期一

DataGridView 如何個別設定Cell的背景顏色

參考來源
--
dataGridView1.Rows[0].Cells[1].Style.BackColor = Color.Red;

2013年8月25日星期日

聯合理財網

2013年8月22日星期四

WantGoo 玩股網

2013年8月16日星期五

ASP程式,網頁特效超多範例唷

ASP程式,網頁特效

SELECT 子查詢範例

引用來源
參考2
--

--範例A

SELECT

Product_ID,

Product_Name,

(SELECT count(*) FROM Order_List) AS NUMBER_OF_ORDER

FROM Product_List

ORDER BY Product_Price DESC

--範例B

SELECT A.*

FROM

(

SELECT Product_ID, Product_Price FROM Product_List

) AS A

WHERE

A.Product_Price > 500

ORDER BY A.Product_Price DESC

--範例C

SELECT

Product_ID,

Product_Name

FROM Product_List

WHERE Product_ID IN

(

SELECT

Product_ID

FROM

Order_List

GROUP BY

Product_ID

HAVING count(*) >=2

)

2013年8月13日星期二

Right or Left Click Context Menu Using jQuery Demo

請參考來源
--

jQuery UI 介紹

請參考來源:jQuery UI 介紹

取得專案內所有表單名稱

引用來源
--

Imports System.Reflection

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Assembly = Assembly.GetExecutingAssembly '取得目前組件
For Each t As Type In a.GetTypes '找尋組件內所有類別型態
If t.IsSubclassOf(GetType(Form)) Then '如果類別是繼承自Form的話
TextBox1.AppendText(t.ToString & vbNewLine) '列出該類別資訊
End If
Next
End Sub
End Class

2013年8月9日星期五

釣魚聯合國

釣魚聯合國 GO Fishing 華人最愛釣魚入口網站釣具釣點技術魚種各類休閒活動討論分享 - Powered by Discuz!

2013年8月7日星期三

e-stock 發財網-討論區

理財綜合討論區

2013年8月3日星期六

skipWHQL.exe 吃 cpu 問題

這幾天覺很奇怪,NB 散熱口怎老是熱呼呼..
直到今天真的受不了,查了一下工作管理員 ...
竟CPU 一直卡在 60%...難怪一直高速運轉散熱
發現 skipWHQL.exe 就執行2次,一個就吃到CPU 25% ....
真是"爛" ... 直接中斷結束掉了... cpu 馬上降下來
若是覺得沒必要,應也可run 或服務拿掉這個 skipWHQL
我暫時採中斷結束..
若光讓 skipWHQL 長期跑下去,很傷NB ....
懶得查 skipWHQL 是OS 的還是哪的....真是爛

2013年7月30日星期二

租書軟體

租書軟體

租書軟體,版本有單機版/網路版
詳細請參考 http://gr.erptw.com/

適用行業:
漫畫出租店.DVD出租店.大樓書籍借閱管理.大公司書籍借閱管理.幼稚園影音書籍借閱管理

你還在傷腦筋,找不到軟體可管理書籍嗎?
或是你原本使用的軟體,現在已找不到廠商了? 想更換?

■目前支援轉檔他套租書軟體列表■
(01)普克DOS系統
(02)快樂租書WIN系統
(03)威志WIN系統/第1版
(04)哈書族WIN系統/第1版
(05)普克WIN系統
(06)皇冠WIN系統
(07)哈書族WIN系統/第2版
(08)二微碼WIN系統
(09)壹品DOS(萬卷)系統
(10)小太陽DOS系統
(11)八分伴DVD/DOS系統
(12)威林WIN系統
(13)快手三號DOS系統
(14)展燕庭-翰昇租書WIN系統{可轉網路/單機版}
(15)威志WIN系統/百年支援版
(16)EN翰昇圖書

2013年7月29日星期一

全國法規資料庫入口網站

2013年7月28日星期日

一些軟體收集blog

企鵝碎碎唸

2013年7月20日星期六

PrintOptions.ApplyPageMargins 方法

請參考:MSDN PrintOptions.ApplyPageMargins 方法
--
Private Sub PrintReport(ByVal printerName As String)
Dim margins As PageMargins

' 取得 PageMargins 結構並設定
' 報表的邊界。
margins = Report.PrintOptions.PageMargins
margins.bottomMargin = 350
margins.leftMargin = 350
margins.rightMargin = 350
margins.topMargin = 350
' 套用頁面邊界。
Report.PrintOptions.ApplyPageMargins(margins)

' 選取印表機。
Report.PrintOptions.PrinterName = printerName

' 列印報表。將 startPageN 及 endPageN
' 參數設定為 0 即可列印所有頁面。
Report.PrintToPrinter(1, False, 0, 0)
End Sub

==
但這在 crystal report 2010 SP2 +VS2010 竟會錯誤!
到底何原因!? 該升級 crsyal report 2010 sp5 ?

20130721:
***已找到問題, 套用頁面邊界 ; 必須在輸出列印之前 , 在指定報表檔之後 ; 才會正常!***

crystal reports 2010 sp5

官網:Crystal Reports 2010 SP5
官網:SAP Crystal Reports, developer version for Microsoft Visual Studio - 2012 Now Available for Download

2013年7月19日星期五

如何繁殖孔雀魚

請參考:玩家如何繁殖孔雀魚

2013年7月16日星期二

mssql 刪索引,加索引

if exists(select name from sys.indexes where name='IX_xxx')
begin
drop INDEX book.IX_xxx
end
if not exists(select name from sys.indexes where name='IX_xxx')
begin
CREATE INDEX IX_xxx
ON book (vip_id)
end

2013年7月15日星期一

mssql 刪除欄位

/*20130716 delete field*/
IF (select count(name) from syscolumns where id=(select id from sysobjects where name='book') and name='emp_id') > 0
BEGIN
ALTER TABLE book DROP emp_id
END

2013年7月11日星期四

行政院人事行政總處全球資訊網

行政院人事行政總處全球資訊網-天然災害停止上班及上課情形查詢

2013年7月2日星期二

去殼豐年蝦製作以及孵化

請參考:去殼豐年蝦製作以及孵化

PH值

pH 值之範圍介於 0～14 之間，pH 值為7時表中性，pH 值比 7大為鹼性，比 7小時為酸性；pH 值之單位是用對數表示，即pH相差1其強度就差 10 倍，如 pH 3 就比 pH 4 酸性強了 10 倍。純水的pH值為 7，代表中性。下圖說明 pH 值小於7的液體，也就是酸性溶液: 牛奶略小於7，番茄汁略大於 4，醋約 3，檸檬汁為 2，一般雨水則為5 左右。

win7 防火牆指令開 port (cmd)

參考引用:
請參考詳細:使用 netsh 設定防火牆
--
如果輸入 command到打
netsh firewall add portopening protocol = TCP port =1433 name = TCP_1433：新增port

範例:
netsh advfirewall firewall add rule name="MSSQL" protocol=TCP dir=out localport=1433 action=allow
netsh advfirewall firewall add rule name="MSSQL" protocol=TCP dir=in localport=1433 action=allow

==
使用方式: add rule name=
dir=in|out
action=allow|block|bypass
[program=]
[service=|any]
[description=]
[enable=yes|no (default=yes)]
[profile=public|private|domain|any[,...]]
[localip=any|||||]
[remoteip=any|localsubnet|dns|dhcp|wins|defaultgateway|
||||]
[localport=0-65535|[,...]|RPC|RPC-EPMap|IPHTTPS|any (defaul
[remoteport=0-65535|[,...]|any (default=any)]
[protocol=0-255|icmpv4|icmpv6|icmpv4:type,code|icmpv6:type,code|
tcp|udp|any (default=any)]
[interfacetype=wireless|lan|ras|any]
[rmtcomputergrp=]
[rmtusrgrp=]
[edge=yes|deferapp|deferuser|no (default=no)]
[security=authenticate|authenc|authdynenc|authnoencap|notrequired
(default=notrequired)]

備註:

- 將新的輸入規則或輸出規則新增至防火牆原則。
- 規則名稱應該是唯一且不能是 "all"。
- 如果指定了遠端電腦或使用者群組，security 必須是 authenticate、
authenc、authdynenc 或 authnoencap。
- 將安全性設定為 authdynenc 可讓系統為符合指定 Windows 防火牆規則的流
量動態交涉加密的使用。加密是根據現有的連線安全性規則內容來交涉。這個
選項允許電腦能夠接受輸入 IPsec 連線的第一個 TCP 或 UDP 封包，只要它
是安全的，但不會使用 IPsec 來加密。一旦處理第一個封包，伺服器將會重
新交涉連線並升級它，這樣才能完全地加密所有後續的通訊。
- 如果 action=bypass，當 dir=in 時必須指定遠端電腦群組。
- 如果 service=any，此規則僅適用於服務。
- ICMP 類型或代碼可以是 "any"。
- 只有輸入規則才可以指定 Edge。
- AuthEnc 與 authnoencap 不能一起使用。
- 只有當 dir=in 時，Authdynenc 才有效。
- 當設定 authnoencap 時，security=authenticate 選項會變成選擇性參數。

範例:

為 messenger.exe 新增沒有壓縮安全性的輸入規則:
netsh advfirewall firewall add rule name="allow messenger"
dir=in program="c:\programfiles\messenger\msmsgs.exe"
security=authnoencap action=allow

為連接埠 80 新增輸出規則:
netsh advfirewall firewall add rule name="allow80"
protocol=TCP dir=out localport=80 action=block

為 TCP 連接埠 80 流量新增需要安全性與加密的輸入規則:
netsh advfirewall firewall add rule
name="Require Encryption for Inbound TCP/80"
protocol=TCP dir=in localport=80 security=authdynenc
action=allow

為 messenger.exe 新增輸入規則並且需要安全性
netsh advfirewall firewall add rule name="allow messenger"
dir=in program="c:\program files\messenger\msmsgs.exe"
security=authenticate action=allow

為由 SDDL 字串識別的 acmedomain\scanners 群組新增已驗證的防
火牆略過規則:
netsh advfirewall firewall add rule name="allow scanners"
dir=in rmtcomputergrp= action=bypass
security=authenticate

為本機連接埠 5000-5010 新增輸出允許規則以用於 udp-
Add rule name="Allow port range" dir=out protocol=udp localport=5000-
5010 action=allow

Android App快取清除器 INFOLIFE LLC

參考來源:Android 軟體《App快取清除器》可自動定期清除程式快取，保持系統順暢
--
下載:App快取清除器 INFOLIFE LLC

Android安卓系統擷取手機螢幕畫面

參考來源
--
HTC是[電源鍵+HOME鍵] -->[電源鍵]按住後,再按[HOME鍵]就OK了

2013年7月1日星期一

售價折讓平均分攤到每一筆

售價折讓平均分攤到每一筆

若本次交易3個品項
1.100
2.200
3.300
共折讓:60
則每一筆平均分攤金額為:
100+200+300=600
1.(100/600)*60=9.6 =>10
2.(200/600)*60=19.8 =>20
3.(300/600)*60=30 =>30

2013年6月28日星期五

孔雀魚基因和介紹

孔雀魚基因和介紹
--
這裡面資料不錯喔

2013年6月27日星期四

ADO.NET 如何取得 Stored Procedure 的回傳值

參考來源
--

如何接收 Store Procedure 的傳回值

參考引用:如何接收 Store Procedure 的傳回值
MSDN:Using a Stored Procedure with Output Parameters
--

CREATE PROCEDURE mysp_QueryData (
@id int,
@LastName Varchar(30) output
)
AS
BEGIN
SELECT @LastName = LastName
FROM Customer
WHERE CustomerID = @id;
END

--
取值:
DECLARE @lname varchar(30);
EXEC mysp_QueryData '1',@lname output;
PRINT @lname;

2013年6月26日星期三

Goodinfo!台灣股市資訊網

2013年6月24日星期一

Yahoo Blog 貼 YouTube 影片

請參考來源:YouTube舊版Embed影片嵌入語法程式碼，改就好!

2013年6月18日星期二

How to add a 'Boolean' column to ms-access via SQL in vb.net

參考引用:How to add a 'Boolean' column to ms-access via SQL in vb.net
--
ALTER TABLE tabDatafiveMinutely
ADD COLUMN CON0001 BIT DEFAULT 0 NOT NULL

Access and SQL Server Views with Boolean Values; when is True -1 or 1

參考引用:Access and SQL Server Views with Boolean Values; when is True -1 or 1 (10th February 2010)
--
CREATE TABLE BooleanTest(
AnId INT IDENTITY(1,1) PRIMARY KEY,
ABoolean BIT,
ADescription VARCHAR(50)
)
GO

INSERT INTO BooleanTest(ABoolean,ADescription)
VALUES (1,'This is true')
GO

INSERT INTO BooleanTest(ABoolean,ADescription)
VALUES (0,'This is false')
GO

INSERT INTO BooleanTest(ADescription)
VALUES ('This is null')
GO

-- False Test
SELECT * FROM BooleanTest
WHERE ABoolean = 0
GO

-- True Test
SELECT * FROM BooleanTest
WHERE ABoolean = 1
GO

-- NULL Test
SELECT * FROM BooleanTest
WHERE ABoolean IS NULL
GO

2013年6月15日星期六

how to create a ms access db and table

參考1:how to create a ms access db and table using adodb in vb.net
參考2:Create a table in MS Access Database using SQL via VB.NET
參考3:Create Database Table with VB.NET
參考4:How to create Access table with VB.NET
參考5:Set Primary Key In Access Database
參考6:Table Management for Microsoft Access Example
--
建立資料表+PK:

CREATE TABLE Employees (First_Name TEXT(20), Last_Name TEXT(25), dob DATETIME, Constraint Employees_PK Primary Key (First_Name, Last_Name, dob));
--
建立索引:
CREATE UNIQUE INDEX Emp_Phone_IDX ON Employees (emp_phone);
--
增加欄位:
ALTER TABLE Employees ADD COLUMN Emp_Email TEXT(25);
--
變更欄位屬性或長度:
ALTER TABLE Employees ALTER COLUMN Emp_Email TEXT(50);
--
移除欄位:
ALTER TABLE Employees DROP COLUMN Emp_Email;

2013年12月30日 星期一

2013年12月23日 星期一

2013年12月18日 星期三

2013年12月14日 星期六

2013年12月12日 星期四

2013年12月9日 星期一

2013年12月5日 星期四

2013年12月4日 星期三

2013年11月21日 星期四

2013年11月20日 星期三

2013年11月19日 星期二

2013年11月18日 星期一

2013年11月15日 星期五

2013年11月14日 星期四

2013年11月13日 星期三

2013年11月12日 星期二

2013年11月11日 星期一

2013年11月8日 星期五

2013年11月7日 星期四

2013年11月6日 星期三

2013年11月5日 星期二

2013年11月3日 星期日

2013年11月1日 星期五

2013年10月30日 星期三

2013年10月29日 星期二

2013年10月28日 星期一

2013年10月27日 星期日

2013年10月22日 星期二

2013年10月16日 星期三

2013年10月11日 星期五

2013年10月8日 星期二

2013年10月7日 星期一

2013年10月2日 星期三

2013年9月29日 星期日

2013年9月24日 星期二

2013年9月23日 星期一

2013年9月22日 星期日

2013年9月17日 星期二

2013年9月16日 星期一

2013年9月13日 星期五

2013年9月12日 星期四

2013年9月11日 星期三

2013年9月9日 星期一

2013年9月5日 星期四

2013年9月1日 星期日

2013年8月29日 星期四

2013年8月28日 星期三

2013年8月27日 星期二

2013年8月26日 星期一

2013年8月25日 星期日

2013年8月22日 星期四

2013年8月16日 星期五

2013年8月14日 星期三

2013年12月30日星期一

2013年12月23日星期一

2013年12月18日星期三

2013年12月14日星期六

2013年12月12日星期四

2013年12月9日星期一

2013年12月5日星期四

2013年12月4日星期三

2013年11月21日星期四

2013年11月20日星期三

2013年11月19日星期二

2013年11月18日星期一

2013年11月15日星期五

2013年11月14日星期四

2013年11月13日星期三

2013年11月12日星期二

2013年11月11日星期一

2013年11月8日星期五

2013年11月7日星期四

2013年11月6日星期三

2013年11月5日星期二

2013年11月3日星期日

2013年11月1日星期五

2013年10月30日星期三

2013年10月29日星期二

2013年10月28日星期一

2013年10月27日星期日

2013年10月22日星期二

2013年10月16日星期三

2013年10月11日星期五

2013年10月8日星期二

2013年10月7日星期一

2013年10月2日星期三

2013年9月29日星期日

2013年9月24日星期二

2013年9月23日星期一

2013年9月22日星期日

2013年9月17日星期二

2013年9月16日星期一

2013年9月13日星期五

2013年9月12日星期四

2013年9月11日星期三

2013年9月9日星期一

2013年9月5日星期四

2013年9月1日星期日

2013年8月29日星期四

2013年8月28日星期三

2013年8月27日星期二

2013年8月26日星期一

2013年8月25日星期日

2013年8月22日星期四

2013年8月16日星期五

2013年8月14日星期三