邏輯生活: 11月 2013

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月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 欄的資料

訂閱：文章 (Atom)

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

熱門文章