2013年12月30日 星期一

vs 2013 一些相關資訊

先收集相關資訊,有空再來整體
---
[轉貼]VS 2013新功能解析 (msdn為您解說 Visual Studio 全新十三招) - MIS2000 Lab.--微軟MVP的ASP.NET專題實務/ASP.NET教學與入門實戰- 點部落

Visual Studio 跨平台開發實戰 (1) -- Hello Xamarin!

Visual Studio 跨平台App開發 - Hello Xamarin! - MSDN 台灣部落格 - Site Home - MSDN Blogs
 
Xamarin 跨平台 App 開發 | Visual Studio + C# + Xamarin = iOS / Android / Windows App   

網頁式台股網站

台股觀測站
Nvesto-全方位財經股市資訊網站

鬍子繁殖飼養

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

關於鬍子 想必大家多少都聽過
比較耳熟能想的 雪花鬍子 紅眼 藍眼
我都飼養過 不過有成對的 紅眼 與藍眼
之前有過紅眼鬍子慘痛的經驗 加溫器被我姪女調高溫度 煮魚湯了 所以鬍子不耐高溫
幾點注意事項 這邊飼養方式 不是職業玩家繁殖販賣的...
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日 星期三

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年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月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月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日 星期四

Visual Studio 2013 出來了

請參考官網:Visual Studio 2013 新增功能 | Microsoft Visual Studio

python .net

下載:IronPython .net 
IronPython.net 官網
---
The Python Tutorial (英文教學)
深究 CLR : IronPython
Python for .NET (英文教學)
--
Python Tools for Visual Studio - Download: 2.0
看來這支援 VS 的版本是:2010 , 2012 , 2013  
若是較低版本:2008,2005,2003 --均無福可用了
  

Python 教材

請參考來源:Python 教材
--
官網:Python Programming Language – Official Website
 

用python抓網頁data

發現,這竟分享了1x篇文章耶 , 收錄一下網址並整體:
用python抓網頁data,及做圖表之一:環境的設定
用python抓網頁data,及做圖表之二:用到的模組練習
用python抓網頁data,及做圖表之三:橫軸(x軸為日期datetime)
用python抓網頁data,及做圖表之四:統計圖的加強,以月營收及月成交資訊為例
用python抓網頁data,及做圖表之五:抓網頁內建庫urllib及第三方庫BeautifulSoup的使用
用python抓網頁data,及做圖表之六:抓102年之後月營收的data,整合練習
用python抓網頁data,及做圖表之七:抓網頁上的csv檔來用
用python抓網頁data,及做圖表之八:將網頁上下載的整批csv檔寫入sqlite3
用python抓網頁data,及做圖表之九:matplotlib 做表及秀中文
用python抓網頁data,及做圖表之十:抓EPS, 左右兩種不同刻度的圖,圓餅圖
用python抓網頁data,及做圖表之十一:抓EPS之二
用python抓網頁data,及做圖表之十二:EPS及股價
用python抓網頁data,及做圖表之十三:抓EPS歷史data
python抓網頁data,及做圖表之十四:抓財務分析資料查詢彙總表
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.白點病:
症狀:魚体全面會出現直徑1mm以下的白色細點,並且一定會從各鰭發病之後再擴散至
全身,如不予處置時,將會漸次衰弱不久就會死亡。這是淡水魚典型病症。
儘管孔雀魚發病率不多,但也不是說完全不會發病,所以大意不得。

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

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月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月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月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月13日 星期五

異型鬍子養殖經驗收藏

引用來源
--
 你是跟我買嗎?沒關係?就算不是我們也可彼此交流心得.以下提供參考
剛買來得小魚.我通常會對水一天以上.讓於適應新家ㄉ水質和各種條件"
對水方式請參考我自製影片http://www.guppytaiwan.com.tw/blog-154363-5377.html
通常小魚我都會時豐年蝦2個月再改成一般底棲飼料+綠藻碇.至少要3公分以上我才會出售
基本功就只有一個字.就是"勤".勤清理.勤換水.勤發問.勤爬文
我開始養魚也才一年半而已.也還在學習.這是我的心得請參考
魚對水時不要餵食,結束後一天在餵,可先給綠藻1\4錠,酵素1\4錠,再來就隨你了,不要因保健食品好用就常給吃,到時一般飼料就不吃了,久了會營養不良,綠藻可常吃和飼料輪流餵食.
我ㄉ魚缸很簡單.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月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年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月27日 星期二

ListView checkbox 勾選即時反應控制


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

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

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

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月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月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月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月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月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月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;
     

Check if a table or field exists in a database

請參考來源:Check if a table or field exists in a database

野生藍尾禮服 20130615


孔雀魚馬賽克禮服

這是我改出來的馬賽克禮服