2012年2月29日 星期三

2012年2月28日 星期二

VS 2010 bug











---
在VS 2008 時,還沒這樣現象;到 VS 2010 時,真是受不了
只要儲存或是相同form copy 後;這類的元件,老是將 Visible 自動 False (隱藏)
實在很麻煩,一沒注意;執行 windows application 後,疑?? 不見了
Orz....也幫幫忙,修正一下 "哇凍媚調了"

2012年2月27日 星期一

datagridview 序號

參考
--
 //增行
private void grdDetail_RowsAdded(object sender, DataGridViewRowsAddedEventArgs e)
{
    RedoSerialNo();
}

//删行
private void grdDetail_RowsRemoved(object sender, DataGridViewRowsRemovedEventArgs e)
{
    RedoSerialNo();
}

//取得序列号
private void RedoSerialNo()
{
    for (int i = 0; i < grdDetail.RowCount; ++i)
    {
        grdDetail[0, i].Value = i + 1;
    }
}

DataGridView 事件


編輯/停止編輯:
CellBeginEdit 發生於選定的儲存格開始編輯模式時。
CellEndEdit 發生於目前所選的儲存格停止編輯模式時。
按鈕:
CellClick 發生於按一下儲存格的任何部分時。
CellContentClick 發生於按一下儲存格中的內容時。
CellContentDoubleClick 發生於使用者按兩下儲存格的內容時。
焦點移動:
CellLeave 發生於儲存格失去輸入焦點,且不再是目前儲存格時。
RowLeave 發生於資料列失去輸入焦點,且不再是目前資料列時。
驗証:
CellValidated 發生在儲存格完成驗證之後。
CellValidating 發生於儲存格失去輸入焦點、啟用內容驗證時。
CellValueChanged 發生於儲存格的值變更時。
RowValidated 發生在資料列完成驗證之後。
RowValidating 發生於資料列進行驗證時。
整列新增/刪除時:
UserAddedRow 發生在使用者完成將資料列加入 DataGridView 控制項的動作時。
UserDeletedRow 發生在使用者完成從DataGridView 控制項刪除資料列的動作時。

2012年2月25日 星期六

vbnet FindWindow

VBNET WindowsAPI:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer


應用:
 Dim hwd1 As IntPtr
  hwd1 = FindWindow(vbNullString, "程式名稱")

        If hwd1.Equals(IntPtr.Zero) Then
            Label1.Text = "該程式沒執行"
        Else
            Label1.Text = "該程式執行"
        End If

內嵌資源應用

參考引用
--
 C#中如何使用內嵌資源(文字、圖片)
方法一:直接使用本地文件
1、將圖片和文件加入項目(可單獨建目錄存放他們,如Resources),例如:
progress.gif和textFile.txt
2、將圖片和文件的生成操作設置為:嵌入的資源。
3、使用GetManifestResourceStream()方法讀取資源:
System.Reflection.Assembly asm = System.Reflection.Assembly.GetEntryAssembly();
System.IO.Stream imgStream = asm.GetManifestResourceStream("MyNamespace.Resources.progress.gif");
pictureBox1.Image = System.Drawing.Image.FromStream(stream);
System.IO.StreamReader txtStream = new System.IO.StreamReader(_assembly.GetManifestResourceStream("MyNameSpace.Resources.textFile.txt"));
textBox1.Text = txtStream.ReadLine();
備註:如果資源存放在單獨的Resouces目錄中,則GetManifestResourceStream()方法的參數為:"MyNamespace.Resources.progress.gif";如果直接在項目根目錄下,則為"MyNamespace.progress.gif"。即參數的命名規則為:項目的命名空間.資源子目錄名.資源子目錄名.…….文件名.擴展名,資源子目錄可以有多層,也可以沒有。
參考文獻:http://support.microsoft.com/kb/319292/zh-tw

方法二:獨立編譯資源
1、在任一項目中執行下列代碼:
System.Resources.ResourceWriter rw = new System.Resources.ResourceWriter("test.resources");
Image img = Image.FromFile("progress.gif");
rw.AddResource("progress", img);  //圖片
rw.AddResource("loading", "loading, please wait...");  //文字
rw.Close();
注意:文件擴展名必須是resources。
2、將test.resources添加到需要使用資源的項目中,生成操作設置為:嵌入的資源。
3、用ResourceManager()方法將資源讀出。
Assembly asm = Assembly.GetEntryAssembly();
ResourceManager rm = new ResourceManager("MyNamespace.test");  //MyNamespace是你程序的命名空間,test是指test.resources。
pictureBox1.Image = (Image)rm.GetObject("progress");  //讀圖片
textBox1.Text = rm.GetString("loading");  //讀文字
備註:ResourceManager()方法的參數命名規則為:項目的命名空間.資源子目錄名.資源子目錄名.…….資源文件名,注意沒有擴展名。

2012年2月24日 星期五

瞬間把Word設定回復成預設狀態

參考來源
--
1.開始執行,輸入:winword /a
2.刪除 Normal.dot

果真有效,太棒了!
--
另外,以上方法是針對以後新建的word有效;對於原本的word檔已亂掉的,須用以下方法:















ERP 專欄

ERP專欄
--
不錯喔,收集很多 ERP 資訊
正好在重新開發 ERP , 有空得來參考學習吸收一下

2012年2月23日 星期四

2012年2月22日 星期三

SQL 判斷值是否有小數點

參考來源
--
 我調整後的運用:


(1)
select   col1,
case   col1   when  cast(col1  as int) then '不是' else '是' end  
from   表1

(1)
select   col1
from   表1
where col1 <> cast(col1 as int)

SQL判斷是否為英文數字


DECLARE @Num varchar(13)
SET @Num = 'GWE1100024RA1'
DECLARE @i int
SET @i = 1
WHILE(@i <= len(@Num))
begin
if(substring(@Num, @i, 1) like '[A-Z]')
PRINT 'Yes'
else
print 'NO'
set @i = @i + 1
end

PS:[A-Z]=>全大寫   [a-z]=>全小寫   [0-9]=>數字

NetBeans IDE 7.1

netbeans 官網
--
參考本篇IDE GUI 

真是不錯呀,比起 eclipse 簡單多了
 

虛擬com port 收發藍芽訊號

請參考來源
--
Bluetooth API Bluetooth API 
Open Cluster Framework 

ERP 初階 1-12篇

請參考來源
--
ERP初階(1):走近ERP
ERP初階(2):ERP概念與歷程
ERP初階(3):MRP基本原理
ERP初階(4):MRP基本構成
ERP初階(5):七十年代閉環MRP
ERP初階(6):八十年代的MRPII
ERP初階(7):九十年代的ERP系統
ERP初階(8):ERP的主要功能模組簡介
ERP初階(9):ERP在中國的應用與發展
ERP初階(10):ERP的實施過程
ERP初階(11):BPR-推動企業成功應用ERP
ERP初階(12):ERP系統應用與管理諮詢         

2012年2月21日 星期二

crystal 去小數點

參考
--
函數: ToText({報表欄位},4)

已是轉text 文字,不需再使用 cstr 轉

2012年2月20日 星期一

SQL 欄位變更語法


-新增欄位
ALTER TABLE [表名]
    ADD [欄名1] VARCHAR(250) NULL,
        [欄名2] DATETIME NOT NULL DEFAULT GETDATE() WITH VALUES
 
--刪除欄位
ALTER TABLE [表名]
    DROP COLUMN [欄名]
 
--修改欄位型態、長度
ALTER TABLE [表名]
    ALTER COLUMN [欄名1] VARCHAR(250) NULL
 
--變更資料表名稱
EXEC sp_rename '舊表名', '新表名'
 
--變更欄位名稱
EXEC sp_rename '表名.[舊欄名]', '新欄名', 'COLUMN'

2012年2月18日 星期六

Receiving RS232 message

參考引用
--
Public Class Form1

    Dim inputData As String = ""
    Public Event DataReceived As IO.Ports.SerialDataReceivedEventHandler

    Private Sub Form1_Load(ByVal sender As System.Object, _
                   ByVal e As System.EventArgs) Handles MyBase.Load
        'Set values for some properties
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 9600
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.Handshake = IO.Ports.Handshake.None
        SerialPort1.RtsEnable = True

        ' Open the Serial Port
        SerialPort1.Open()

        'Writes data to the Serial Port output buffer
        If SerialPort1.IsOpen = True Then
            SerialPort1.Write("MicroCommand")
        End If
    End Sub

    ' Receive data from the Serial Port
    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, _
                      ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
                      Handles SerialPort1.DataReceived
        inputData = SerialPort1.ReadExisting 'or SerialPort1.ReadLine
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
    End Sub

    'Show received data on UI controls and do something
    Public Sub DoUpdate()
        TextBox1.Text = TextBox1.Text & inputData
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As System.Object, _
                   ByVal e As System.Windows.Forms.FormClosedEventArgs) _
                   Handles MyBase.FormClosed
        ' Close the Serial Port
        SerialPort1.Close()
    End Sub

End Class

programming and open source

twit88 真是開源的大站

各家門號簡訊中心號碼


[各家門號簡訊中心號碼]
("+"必須輸入)

中華電信有五部,設定下列任一皆可
+886932400821
+886932400841
+886932400851
+886932400881
+886932400882
台哥
+886935074443
遠傳
+886931000099
和信
+886938348404
泛亞
+886931744010
東信
+886935074443

參考較完成的
--
引用:
中華電信(CHT) 訊息中心:
+886932400851
+886932400831
+886932400841
+886932400843
+886932400844
+886932400821
+886932400822
+886932400823
+886932400881
+886932400305
+886932400804
+886932400805
+886932000821

台灣大哥大訊息中心:
+886935874383
+886935874443
+886935874363
+886935074443
+886935874306
+886935874384
+886935874354
+886931744032
+886931413131
+886931744010
+886931413131
+886935874434
+886935874432
+886935874443
+886935074443
+886935420394
+886935420384
+886935874259
+886935874258
+886935874307

亞太電信訊息中心:
+886982194007
+886982194042

台灣3G-威寶電信(Vibo) 訊息中心:
+886986442901

遠傳電信(Far Eastone) 訊息中心:
+886931000099
+886938348404
+886938749104
+886936000088
+886938348422
+886936000091
+886936000160
+886936000161
+886936012201
+886936000090

中國大陸地區訊息中心:
中國移動
+8613800ABC500
ABC 為長途區號,區號不足三位的在第三位補0。如上海區號為21,則ABC為210。

東莞移動
+8613800769500

國外業者訊息中心:
AT&T
+19078319301

Cingular
+12099042010 (West Coast)
+17045020600 (East Coast)

T-Mobile:
+12063130004


Rogers Wireless (Canada)
+17057969300

Fido (Microcell - Canada)
+15149931123 

2012年2月15日 星期三

2012年2月14日 星期二

TextBox執行DOS指令

參考引用:
--
Try
  Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
     With Process1
     .StartInfo.FileName = "cmd.exe"
     .StartInfo.UseShellExecute = False
     .StartInfo.RedirectStandardInput = True
     .StartInfo.RedirectStandardOutput = True
     .StartInfo.RedirectStandardError = True
     .StartInfo.CreateNoWindow = True
     .Start()
     .StandardInput.WriteLine(TextBox1.Text.Trim)
     .StandardInput.WriteLine("exit")
     RichTextBox1.Text = .StandardOutput.ReadToEnd + .StandardError.ReadToEnd
     End With
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     TextBox1.Text = ""
     RichTextBox1.Text = ""
    End Sub
Catch
  Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
     With Process1
     .StartInfo.FileName = "commnad.com"
     .StartInfo.UseShellExecute = False
     .StartInfo.RedirectStandardInput = True
     .StartInfo.RedirectStandardOutput = True
     .StartInfo.RedirectStandardError = True
     .StartInfo.CreateNoWindow = True
     .Start()
     .StandardInput.WriteLine(TextBox1.Text.Trim)
     .StandardInput.WriteLine("exit")
     RichTextBox1.Text = .StandardOutput.ReadToEnd + .StandardError.ReadToEnd
     End With
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     TextBox1.Text = ""
     RichTextBox1.Text = ""
    End Sub
End Try

Extensible Stylesheet Language (XSL) Ver 1.1

官網 XSL v 1.1 的規格

papersize 設定

參考 MSDN
--
引用重點:
Dim pkSize As PaperSize
For i = 0 to printDoc.PrinterSettings.PaperSizes.Count - 1
    pkSize = printDoc.PrinterSettings.PaperSizes.Item(i)
    comboPaperSize.Items.Add(pkSize)
Next

此段 code ,就能運用我們所須要的了

java google map 安裝

參考1
參考2
 

2012年2月13日 星期一

Microsoft.Jet.OLEDB.4.0 提供者並未登錄於本機電腦上

參考來源
--
老是忘記這個狀況,因產品有支援匯入出Excel ,  當遇到win7 64bit 時~又忘記發生什狀況了
在微軟未出OLEDB 支援64 bit 前
最好一開始定方案跟專案時,就要把 NET 編譯為:32 bit
...
有點粳, VS 標榜可 64 bit ; 結果被這根 "OLEDB" 搞得"到現在"還是 32bit  (號稱: 64 bit 並非全部)
開發windows app 或 web app 都會運用到 excel , word ..等;只要有用到OLEDB , 就只能乖乖編譯為 32 bit 了
...
只能期待微軟能把這 OLEDB 支援雙向(32/64)

2012年2月12日 星期日

DataTable row add Examples

參考1
參考2
參考3(good)
--
簡單方式:
DataRow dr;
DataTable dt;
DataColumn dc;
dt.Columns.Add(dc);
dr = new DataRow();
dt.Rows.Add(dr);
DataSet ds = ds.Tables.Add(ds); 

2012年2月8日 星期三

利用SQL語法抓取資料庫的結構

參考引用
--
–方法一:取得所有使用者Table及欄位(型態,長度)

SELECT Case when syscolumns.colid='1' then sysobjects.name else '' end as 資料表名稱,
    syscolumns.name as 欄位名稱,systypes.name+CASE
    when systypes.name in('number','decimal')
    then '('+convert(varchar,syscolumns.prec)+','+convert(varchar,syscolumns.scale)+')'
    when systypes.name like '%char' then '('+convert(varchar,syscolumns.prec)+')'
    else '' end as 欄位型態,
    IsNull(syscomments.text,'') as 預設值,case isnullable when 1 then 'Y' else 'N' end as 允許NULL
FROM sysobjects
LEFT JOIN syscolumns ON(syscolumns.id=sysobjects.id)
LEFT JOIN systypes ON(syscolumns.xtype=systypes.xtype)
LEFT JOIN syscomments on(syscolumns.cdefault=syscomments.id)
WHERE sysobjects.xtype='U' and sysobjects.name<>'dtproperties' and systypes.name<>'sysname'
ORDER BY  sysobjects.name,syscolumns.colorder
–方法二:取得所有使用者Table及欄位(型態,長度,PK)

SELECT CASE A.ORDINAL_POSITION when 1 then A.TABLE_NAME else '' end as 資料表名稱,
    A.ColUMN_NAME as 欄位名稱,DATA_TYPE+CASE
        WHEN DATA_TYPE like '%char' THEN '('+Convert(Varchar,CHARACTER_MAXIMUM_LENGTH)+')'
        WHEN DATA_TYPE='numeric' or DATA_TYPE='decimal'
        THEN  '('+Convert(Varchar,NUMERIC_PRECISION)+','+Convert(Varchar,NUMERIC_SCALE)+')'
        ELSE '' END AS 欄位型態,
    IsNull(COLUMN_DEFAULT,'') AS 預設值,IS_NULLABLE as 允許NULL,IsNull(COLLATION_NAME,'') AS 定序,
    IsNull(CONSTRAINT_NAME,'') AS 主鍵名稱
FROM INFORMATION_SCHEMA.COLUMNS as A
LEFT JOIN ( --抓PK資料
    SELECT CONSTRAINT_NAME,TABLE_NAME,COLUMN_NAME,ORDINAL_POSITION
    FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE
    INNER JOIN sysobjects ON(CONSTRAINT_NAME=sysobjects.name and xtype='PK')
    WHERE TABLE_NAME<>'dtproperties'
) AS B ON(A.TABLE_NAME=B.TABLE_NAME AND A.COLUMN_NAME=B.COLUMN_NAME)
Order by A.TABLE_NAME,A.ORDINAL_POSITION

--抓關連(Table)
SELECT case when keyno=1 then cons.name else '' end as key_name,
case when keyno=1 then fk.name else '..' end as main_table,fkcol.name as main_column,
case when keyno=1 then rk.name else '..' end as ref_table,rkcol.name as ref_column
FROM sysforeignkeys
INNER JOIN sysobjects as cons ON(sysforeignkeys.constid=cons.id)
INNER JOIN sysobjects as fk  ON(sysforeignkeys.fkeyid=fk.id)
INNER JOIN sysobjects as rk ON(sysforeignkeys.rkeyid=rk.id)
INNER JOIN syscolumns as fkcol on(sysforeignkeys.fkey=fkcol.colid and sysforeignkeys.fkeyid=fkcol.id )
INNER JOIN syscolumns as rkcol on(sysforeignkeys.rkey=rkcol.colid and sysforeignkeys.rkeyid=rkcol.id)
Order By fk.name,rk.name,keyno

獲取SQL數據庫中的數據庫名、所有表名、所有字段名、列描述


[轉]獲取SQL數據庫中的數據庫名、所有表名、所有字段名、列描述
1.獲取所有數據庫名:
   (1)、Select Name FROM Master.dbo.SysDatabases orDER BY Name
2.獲取所有表名:
   (1)、Select Name FROM SysObjects Where XType='U' orDER BY Name
           XType='U':表示所有用戶表;
           XType='S':表示所有系統表;
   (2)、SELECT name FROM sysobjects WHERE type = 'U' AND sysstat = '83'
           注意:一般情況只需要type = 'U',但有時候會有系統表混在其中(不知道什麼原因),加上後面一句後就能刪除這些系統表了

3.獲取所有字段名:
(1)、Select Name FROM SysColumns Where id=Object_Id('TableName')
(2)、SELECT syscolumns.name,systypes.name,syscolumns.isnullable,syscolumns.length FROM syscolumns, systypes WHERE syscolumns.xusertype = systypes.xusertype AND "syscolumns.id = object_id('tableName')
       注意點:
     (a)這裡為了重點突出某些重要內容,選取了其中幾項信息輸出。
     (b)syscolumns表中只含有數據類型編號,要獲取完整的名字需要從systypes表中找,一般用戶使用的數據類型用xusertype對應比較好,不會出現一對多的情況。
     (c)syscolumns.length得到的是物理內存的長度,所以nvarchar和varchar等類型在數據庫中的顯示是這個的一半。

4、得到表中主鍵所包含的列名:
SELECT syscolumns.name FROM syscolumns,sysobjects,sysindexes,sysindexkeys WHERE syscolumns.id = object_id('tablename') AND sysobjects.xtype = 'PK' AND sysobjects.parent_obj = syscolumns.id AND sysindexes.id = syscolumns.id AND sysobjects.name = sysindexes.name AND sysindexkeys.id = syscolumns.id AND sysindexkeys.indid = sysindexes.indid AND syscolumns.colid = sysindexkeys.colid
注意:這是在4張系統表中尋找的,關係比較複雜,大致可以表示為:
syscolumns中存有表中的列信息和表id,sysobjects表中存有主鍵名字(即PK_Table類似)和表id,sysindexes中存有主鍵名字和表id和index編號,sysindexkeys中存有表id和index編號和列編號,一項一項對應起來後就能找到列名了,呼~

5、得到表中列的描述內容:
select a.name,g.value from syscolumns as a    left join sysproperties g   on a.id=g.id AND a.colid = g.smallid    where a.id='表id'


自己測試過的
獲取表的基本字段屬性
--獲取SqlServer中表結構
SELECT syscolumns.name,systypes.name,syscolumns.isnullable,
syscolumns.length
FROM syscolumns, systypes
WHERE syscolumns.xusertype = systypes.xusertype
AND syscolumns.id = object_id('你的表名')


如果還想要獲取字段的描述信息則
--獲取SqlServer中表結構 主鍵,及描述
declare @table_name as varchar(max)
set @table_name = '你的表名'
select sys.columns.name, sys.types.name, sys.columns.max_length, sys.columns.is_nullable,
(select count(*) from sys.identity_columns where sys.identity_columns.object_id = sys.columns.object_id and sys.columns.column_id = sys.identity_columns.column_id) as is_identity ,
(select value from sys.extended_properties where sys.extended_properties.major_id = sys.columns.object_id and sys.extended_properties.minor_id = sys.columns.column_id) as description
from sys.columns, sys.tables, sys.types where sys.columns.object_id = sys.tables.object_id and sys.columns.system_type_id=sys.types.system_type_id and sys.tables.name=@table_name order by sys.columns.column_id
複製代碼
單獨查詢表的遞增字段
--單獨查詢表遞增字段
select [name] from syscolumns where
id=object_id(N'你的表名') and COLUMNPROPERTY(id,name,'IsIdentity')=1
複製代碼
獲取表的主外鍵
--獲取表主外鍵約束
exec sp_helpconstraint '你的表名' ;

Win7 修復桌面與開始功能表中錯亂或是消失的捷徑圖示

參考1
參考2
 --
[重點]
1. %UserProfile%\AppData\Local
2. IconCache.db
3. 重開機 

2012年2月2日 星期四

csv 中文讀不出來

參考引用
--
依來源,我稍調整讀取的編碼方式(這取決匯出的編碼原則)
    Public Function CSVFileToDT(ByVal FullFileName As String) As DataTable
        Dim newDataTable As New DataTable
        Dim CloumnNameFlag As Boolean = True
        Using sr As IO.StreamReader = New IO.StreamReader(FullFileName,System.Text.Encoding.Default)
            Dim Tempstr As String = Nothing
            Tempstr = sr.ReadLine
            While Tempstr IsNot Nothing
                If CloumnNameFlag = True Then
                    For i As Integer = 0 To Tempstr.Split(",").Length - 1
                        newDataTable.Columns.Add(Tempstr.Split(",")(i))
                    Next
                    CloumnNameFlag = False
                Else
                    Dim row As DataRow = newDataTable.NewRow
                    For i As Integer = 0 To Tempstr.Split(",").Length - 1
                        row.Item(i) = Tempstr.Split(",")(i)
                    Next
                    newDataTable.Rows.Add(row)
                End If
                Tempstr = sr.ReadLine
            End While
            sr.Close()
        End Using
        Return newDataTable 
End Function

---
以上這組能解決使用 OleDB 讀取 csv 後一些碼不見的問題!
PS:被這問題困了2-3小時

日期+時間 處理方式


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Date = Now.Date
        Dim b As Date = a + Now.TimeOfDay
        MessageBox.Show(b)
    End Sub