.NET(ASP.NET-進階篇)

jQuery在VS2008 SP1中文版中可以使用Intellisense了

topcat — Thu, 21 Aug 2008 15:53:00 GMT

上次提到jQuery開始勾引小喵後，在開發過程中，總覺得少了些什麼。沒錯，在被VS的Intellisense寵壞後的小喵，沒有這個實在有點痛苦。之前網友有篇在VS 2008 使用JQuery 自動提示( Intellisense) 提到不過在中文的VS2008還是無法使用。不過自從更新了SP1後，這一切問題改善了。

使用有幾個必要的條件：

VS2008 SP1:有需要的人可以到這裡下載
jQuery程式庫：當然去官方網頁下載最新的囉
jQuery Intellisense擋：Intellisense

以上的條件必須是同時具備才能使用唷。

使用方式：

首先要把jQuery與jQuery Intellisense放到你的畫面中引用

    <script src="js/jquery.js" type="text/javascript"></script>
    <script src="js/JQuery.Intellisense.js" type="text/javascript"></script>

接著，就能夠看到囉

享受吧!!

jQuery透過ajax取得yahoo新聞Rss範例

topcat — Fri, 08 Aug 2008 13:39:00 GMT

這個範例是使用jQuery 的.ajax，從Yahoo新聞的Rss擷取後，產生超連結在自己的網頁中。測試的時候只需要一個html與jQuery.js即可。

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<Script Language="JavaScript" type="text/javascript" Src="jQuery.js"></Script>
<Script Language="JavaScript">
<!--
$(document).ready(function(){
    $('#button1').click(function(){
        var strURL='http://tw.news.yahoo.com/rss/tech_3c';
        $.ajax({
            type:'GET',
            dataType:'xml',
            url:strURL,
            success:function(xml){
                var myTitle;
                var myLink;
                $('item',xml).each(function(e){
                    myTitle=$('title',this).text();
                    myLink=$('link',this).text();
                    $('<a/>').attr('href',myLink).attr('target','_blank').text(myTitle).appendTo($('#div1'));
                    $('<br/>').appendTo($('#div1'));
                });
                alert($('#div1').html());
            }
        })
    })
})

//-->
</Script>
<TITLE></TITLE>
</HEAD>
<body onbeforeunload="RunOnBeforeUnload()">
<FORM action="" method=POST id=form1 name=form1>
<INPUT type="button" value="Button" id=button1 name=button1>
</FORM>
<div id="div1"></div>
</BODY>
</HTML>

轉貼_JavaScript的UrlEncode,UrlDecode

topcat — Fri, 25 Jul 2008 11:16:00 GMT

來源：http://www.wujianrong.com/archives/2006/11/javascripturlencodeurldecode.html

<script language="javascript">
//可參考資料 http://www.wujianrong.com/archives/2006/11/javascripturlencodeurldecode.html
/*這裡開始 UrlEncode、UrlDecode 函數*/ 
function UrlEncode(str){ 
  var ret=""; 
  var strSpecial="!\"#$%&'()*+,/:;<=>?[]^`{|}~%"; 
  var tt= "";

  for(var i=0;i<str.length;i++){ 
   var chr = str.charAt(i); 
    var c=str2asc(chr); 
    tt += chr+":"+c+"n"; 
    if(parseInt("0x"+c) > 0x7f){ 
      ret+="%"+c.slice(0,2)+"%"+c.slice(-2); 
    }else{ 
      if(chr==" ") 
        ret+="+"; 
      else if(strSpecial.indexOf(chr)!=-1) 
        ret+="%"+c.toString(16); 
      else 
        ret+=chr; 
    } 
  } 
  return ret; 
} 

function UrlDecode(str){ 
  var ret=""; 
  for(var i=0;i<str.length;i++){ 
   var chr = str.charAt(i); 
    if(chr == "+"){ 
      ret+=" "; 
    }else if(chr=="%"){ 
     var asc = str.substring(i+1,i+3); 
     if(parseInt("0x"+asc)>0x7f){ 
      ret+=asc2str(parseInt("0x"+asc+str.substring(i+4,i+6))); 
      i+=5; 
     }else{ 
      ret+=asc2str(parseInt("0x"+asc)); 
      i+=2; 
     } 
    }else{ 
      ret+= chr; 
    } 
  } 
  return ret; 
}
</script>

jQuery初體驗

topcat — Fri, 25 Jul 2008 10:16:00 GMT

緣起

小喵經常會在各個技術blog中閒逛，有次逛到黑暗執行緒大大的網站，看到了一篇【jQuery, I LOVE YOU~~~】文章，文章中說了他發給【ASP.NET AJAX Client Library】好人卡，並且移情別戀轉而跟【jQuery】在一起的經過。讓小喵留下了深刻的印象。不過，這時小喵還是不曉得jQuery是什麼。

後來有次小喵剛好要買幾本書，在逛【書店】的時候的時候(小喵目前已經很少跑真正的書店，逛得只是書店的網站)，還差一點就可免運費，所以順便找找看是否有什麼新書可以買。剛好看到jQuery有本新的中文書出版。於是小喵就把它放入購物車。從此開始與jQuery結緣。本來買了書後，打算先翻翻看看這個東西到底是什麼，能讓黑暗執行緒大大隊ASP.NET AJAX Client Library發出好人卡。沒想到這個迷死人不償命的小寶貝，竟然開始勾引小喵。

jQuery是什麼??

jQuery是一組JavaScript的library，而且是免費的library。使用的時候也只需要指定<Script src="jQuery.js"></Script>就可以開始引用了。因此無論是用什麼樣的網頁開發程式(ASP,ASP.NET,JSP,PHP,CGI,....)，甚至只需要HTML就可以使用。因此要測試jQuery，甚至不必上網，只需要記事本撰寫html就可以測試使用了。

下載

先說明要準備使用jQuery之前，需要些什麼：

首先需要把jQuery帶回家。有個繁體中文的網址【jQuery: 寫得少, 做得多, JavaScript 程式庫】不過也僅止於這麼少少的幾頁，可以把最新版本的jQuery下載回來。下載的部分他分為三種：

GZip的版本(Minified)：js經過GZip壓縮過，檔案最小，適合放在正式環境中，1.26版大約16kb
未壓縮版本(Uncompressed)：適用於測試開發學習。1.26版大約97kb
包裝版(Packed)：給沒有辦法解GZip瀏覽器用的版本1.26版大約30kb

其實就算是使用Uncompressed的版本，大小也只有97kb，檔案非常的小(可能網頁中隨便一張圖就比這個大了)。而小喵自己則是取中庸的Packed版本使用。

測試

接下來開始重頭戲，我們初體驗的實際運作範例。也開始體驗一下為何這個小東西會勾引小喵的原因。首先來個範例，小喵產生一個html檔案在畫面上安排了個兩個按鈕(<input type="button")以及一個img並且指向一個jpg。

現在假設要設定，一開始要把img1圖形隱藏，按下按鈕後，希望可以把他顯示出來，再按一次按鈕，又可以把他隱藏。這個對於已經熟悉JavaScript的人，應該不難。小喵寫個簡單的

<html>
<head>

<script Language="JavaScript">
<!--

function window_onload(){
	var img1=window.document.getElementById('img1');
	img1.style.display='none';
}

function btn1_click(){
	var img1=window.document.getElementById('img1');
	if(img1.style.display=='none')
	{
		img1.style.display='';
	}
	else
	{
		img1.style.display='none';
	}
}

//-->
</script>
</head>
<body onload="window_onload()">
	<input type="button" id="btn1" name="btn1" value="JavaScript按鈕" onclick="btn1_click()" />
	<br />
	<img id="img1" src="topcat.jpg" />
</body>
</html>

而以上的動作，如果希望由jQuery來處理的話，那又如何呢

<html>
<head>
<Script Language="JavaScript" src="jQuery.js"></Script>
<script Language="JavaScript">
<!--
$(document).ready(function(){
	$('#img1').hide();
	$('#btn2').click(function(){
		$('#img1').toggle();
	})
})

//-->
</script>
</head>
<body>
	<input type="button" id="btn2" name="btn2" value="jQuery按鈕" />
	<br />
	<img id="img1" src="topcat.jpg" />
</body>
</html>

一樣的動作，發現了嗎??程式碼精簡到不行。真是太神奇了!!

再來另外一個範例

假設我的畫面中有一個<table>希望，<table>裡面的資料在顯示的時候，可以用不同底色交錯顯示，這樣方便在瀏覽的時候可以方便看。我們用固定的<table>當作示範，我們希望讓偶數行能夠加上class，這樣的要用Javascript有多麻煩各位可以想像一下。但是在jQuery來說確是很簡單的

我們有Style設定

<style>
.TrEven1{background-color:pink;}
.TrEven2{background-color:blue;color:white;}
</style>

在畫面中有兩個Table小喵用asp的方式表式：

table1
<table id="tbl1" border="1">
<%For y = 1 to 10%>
	<tr>
		<td><%=y%></td>
		<td>aa</td>
		<td>bb</td>
		<td>cc</td>
		<td>dd</td>
		<td>ee</td>
		<td>ff</td>
	</tr>
<%Next%>
</table>
table2
<table id="tbl2" border="1">
<%For y2 = 1 to 10%>
	<tr>
		<td><%=y2%></td>
		<td>aa</td>
		<td>bb</td>
		<td>cc</td>
		<td>dd</td>
		<td>ee</td>
		<td>ff</td>
	</tr>
<%Next%>
</table>

接著，先想像一下如果要用JavaScript要怎麼寫??然後再來看看用jQuery怎麼做

$(document).ready(function(){
	$('#tbl1 tr:even').addClass('TrEven1');
	$('#tbl2 tr:even').addClass('TrEven2');
})

看到了他的魔力了嗎??短短的一行【$('#tbl1 tr:even').addClass('TrEven1');】就可以處理了耶!!有沒有那種被【黯然消魂掌】擊中的感覺。

初體驗就到此先告一段落，有機會在跟網友們分享jQuery的語法與使用方式。在此先介紹個不錯的網站，可以把他當作是jQuery使用時的一個操作說明【http://jquery.org.cn/visual/cn/index.xml】

Dispose測試：Dispose時是否立即釋放記憶體

topcat — Mon, 07 Jul 2008 08:45:00 GMT

緣起：

小喵寫這篇是源自於小喵上一篇文章【物件Object的New,Dispose與Connection的Open,Close概念分享】，小喵最後描述【當物件Dispose的時候，並沒有把該段記憶體清空，只是標註，這段空間不再使用，直到GC啟動把他清空才算真正的清空。】。但是小喵看一些網路文章時，有些卻提到當呼叫Dispose的時候，記憶體立即釋放。因此小喵就做這個測試來看看到底是怎麼回事。

測試計畫：

於是小喵寫了個小小的Console程式，然後裡面使用一個小類別，該類別在New的時候，讀取一個很大的文字檔，並且把文字檔的內容放到一個變數中。讓這個類別使用大量的記憶體。接著呼叫Dispose將物件釋放，最後呼叫GC.Collect強迫做資源回收。在這個過程中，小喵使用系統中的工具【效能】來監視這個程式的記憶體使用狀況，藉此來觀察Dispose時，是否立即釋放記憶體。

程式準備：

首先先寫個Console的程式，在專案中開啟一個【主控台應用程式】，然後在專案中新增一個類別，這個類別因為需要有Dispose的功能，因此小喵【Implements System.IDisposable】的介面，讓這個類別有可以進行Dispose，接著安排屬性，撰寫New時的讀取文字檔內容。相關程式如下：

Class:myTestObj

Imports System.IO

Public Class myTestObj
    Implements System.IDisposable

    Private m_TestStr As String

    Public Property TestStr() As String
        Get
            Return m_TestStr
        End Get
        Set(ByVal value As String)
            m_TestStr = value
        End Set
    End Property

    Public Sub New()

    End Sub
    Public Sub New(ByVal myFileName As String)
        m_TestStr = My.Computer.FileSystem.ReadAllText(myFileName)
    End Sub

    Private disposedValue As Boolean = False        ' 偵測多餘的呼叫

    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                ' TODO: 釋放其他狀態 (Managed 物件)。
                m_TestStr = ""
            End If

            ' TODO: 釋放您自己的狀態 (Unmanaged 物件)
            ' TODO: 將大型欄位設定為 null。
        End If
        Me.disposedValue = True
    End Sub

#Region " IDisposable Support "
    ' 由 Visual Basic 新增此程式碼以正確實作可處置的模式。
    Public Sub Dispose() Implements IDisposable.Dispose
        ' 請勿變更此程式碼。在以上的 Dispose 置入清除程式碼 (ByVal 視為布林值處置)。
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

接著在Console程式中，就使用該類別，之後Dispose接著呼叫GC.Collect做資源回收，程式如下：

Module Module1
    Sub Main()
        Dim oTest As myTestObj
        Try
            oTest = New myTestObj("xx.txt")
        Catch ex As Exception

        Finally
            oTest.Dispose()
            GC.Collect()
        End Try
    End Sub
End Module

剩下就是準備一個夠大的文字檔，讓記憶體的使用比較明顯，小喵準備一個23MB的文字檔

接著就是測試的開始囉

先開啟【控制台】中的【系統管理工具】找到【可靠性和效能監視器】

然後按下F11讓程式啟動，接著在校能監視器中，新增一個監視，選擇【Process】，接著選擇【PageFileBytes】，並選擇我們的Process【ConsoleApplication1.vshost】藉此觀察記憶體的使用狀況。

測試結果：

測試過程小喵錄製下來，請參考以下的錄影過程

http://vip2.blueshop.com.tw/topcat/DEMO/Dispose_GC/Dispose_GC.html

從錄影的過程觀察到，當系統進行完Dispose之後，事實上記憶體並沒有立即釋放，而是直到呼叫了GC.collect之後才真正的釋放。

特別聲明：

GC.Collect方法是強制作業系統做資源回收的動作，不過請您在寫程式的時候不要這麼做，因為GC.Collect作用的區域並不只有你的程式部分，而是整個系統。並且這個動作是強制性的。再進行這個過程中，由於需要對全部的東西強制資源回收，所以該主機上其他的動作會等他做完之後再開始。其實這個動作.NET Framework自己會依照系統的狀況自己處理。手動處理反而可能造成系統的負擔(想想馬路上隨時有救護車跑來跑去，頻率很高，大家都要停下來等他過)。因此寫程式時，只要使用Dispose讓系統標注這個記憶體可以被使用即可。有需要的時候讓系統自然啟動去清除。不要手動清除他。

GridView編輯時使用DropDownList的錄影教學

topcat — Fri, 04 Jul 2008 10:55:00 GMT

這個功能應該蠻多人會用到的，在GridView的某一筆資料點選【編輯】之後，希望能夠用下拉選取的方式選擇資料，然後按下更新後，可以將下拉後的選項更新到資料庫

全部過程都用設定的方式，並不需要寫任何程式碼，適合初學者學習。

小喵以Orders以及裡面的CustomerID維護時，使用下拉選單，從Customers選取適當的資料當作範例

設定過程請參考以下的錄影過程

http://vip2.blueshop.com.tw/topcat/DEMO/DdlInGV/DdlInGV.html

範例檔下載：http://vip2.blueshop.com.tw/topcat/DEMO/DdlInGV/tDDLInGV.zip

物件Object的New,Dispose與Connection的Open,Close概念分享

topcat — Thu, 03 Jul 2008 16:27:00 GMT

這篇文章源自於有位網友對於Using的疑問(http://www.blueshop.com.tw/board/show.asp?subcde=BRD20080703145519KXS&fumcde=FUM20041006161839LRJ)

小喵就小喵的認知來說明，不見得正確，如有錯誤請大家指正，感恩

什麼是New

我們經常可以看到有人使用一個物件的時候會寫

Dim oEmp as ObjEmployee
oEmp = New ObjEmployee

而且少了New就不能執行，那麼什麼是New呢
New是產生執行個體，不過相信很多人又要問，什麼是【產生執行個體】 (能不能講明白一點啊!! )
這要提到電腦的程式運作過程。程式在電腦上跑，會把程式的區段，在記憶體裡面挖一塊空間，然後把程式碼載入那塊空間
接著程式在運作的時候，就是記憶體與CPU之間溝通、運算、記錄等動作，而把【挖塊記憶體，把程式載到那塊空間】這個過程就是【產生執行個體】。
因此沒有New的話會怎樣，程式區塊根本沒有載入到記憶體中，因此也無法運作執行

講的擬人化一點

Dim oEmp as ObjEmployee '宣告oEmp是ObjEmployee這種物件類別(此時有魂無體)
oEmp = New ObjEmployee '產生執行個體(此時投胎轉世，靈魂變成實體，可以開始工作)

什麼是Dispose

當一個物件已經使用完後，未來不會再使用，此時這個物件已經完成他這一生(New完之後到現在)的任務。因此他可以塵歸塵、土歸土...一切還諸天地...此時就進行Dispose
然而實際上，在記憶體中，當物件Dispose的時候，並沒有把該段記憶體清空，只是標註，這段空間不再使用，直到GC啟動把他清空才算真正的清空。
因此如果用完後，不進行Dispose...那麼就會等到該位置很久沒動作了(就像有個人躺在地上，已經超過一定時間(一個月??)沒動作，也沒呼吸)，才會被其他的程式拿來用。

以上說明的是New(生)與Dispose(死)的關係

什麼是Open

當你有了實體後，代表可以開始運作
但不是真的已經運作了
以Connecion來說

Using Conn As New Connetion(ConnStr)
    'Conn.Open
    Dim Dr as SqlDataReader
    Using Cmmd as New SqlCommand("Select...",Conn)
        Dr = Cmmd.ExecuteReader
    End Using
End Using

上面這段程式會出錯，他告訴你...Connection沒有Open，也就例如您建立了一個橋，但是這座橋卻沒有通車，因此也沒辦法用。因此使用DataReader或者Cmmd.ExecuteNoneQuery的時候，都需要告訴他已經通車了...他才會正常運作。

而如果使用DataAdapter的話這個傢伙比較厲害... 他會看有沒有通車，有通車他就用；沒通車的話，他會自己把這通道打開，然後去使用。

最後說什麼是Close...

Close是關閉通道，通道關了是可以再開的唷。
然後跟上面的Dispose再比對一下：
Close只是把通道關閉
Dispose卻是通知作業系統...我已經完成任務，這段記憶體你可以拿去再用...然後壽終正寢
知道不一樣在哪了嗎??

ObjectDataSouce簡介Part 2：範例程式(含畫面設定錄影教學)

topcat — Tue, 01 Jul 2008 08:43:00 GMT

承繼上篇【ObjectDataSouce簡介Part1：兼具ADO.NET的自由與DataSouce的方便】，我們這篇就來拿個實際範例，告訴各位如何撰寫相關的程式。

首先介紹上次提到的這樣的方式

先示範如何撰寫類別的部分。

首先，小喵建立一個物件用來讀取Connection String，未來無論Connection String用什麼方式來存放(存放的方式很多，可以直接放在物件中，也可放在Web.Config，小喵自己是存在沒有Web分享的硬碟裡)，都可以透過這個物件來取得Connection String。

在專案中新增一個類別，取名為【objConnS.vb】，內容如下：

Imports Microsoft.VisualBasic

Public Class objConnS
    Private m_ConnStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\NORTHWND.MDF;Integrated Security=True;User Instance=True"

    Public ReadOnly Property ConnStr() As String
        Get
            Return m_ConnStr
        End Get
    End Property
End Class

接著開始撰寫資料存取的類別(我們以北風資料庫中的Customers當作示範，示範時只取其中四個欄位當範例)，小喵取名為【daoCustomer.vb】，裡面寫了5個副程式，其中兩個Select用的用Function，剩下3個新增修改刪除不需要傳回值，就用Sub即可(當然如果想傳回值用Function也可)。程式內容如下：

GetAllCusts()：用DataTable傳回所有的Customers
GetCustByID(ByVal CustomerID As String)：用參數傳入條件CustomerID，傳回符合條件的一筆，這可以用來當作是單筆維護的處理
UpdateCustomers,InsertCustomers,DeleteCustomers這三個則是透過參數傳遞要新增修改刪除的相關資料，然後透過ADO.NET維護資料。

Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic

Public Class daoCustomer

    Private oConnS As New objConnS
    Private ConnStr As String = oConnS.ConnStr


    Public Function GetAllCusts() As DataTable
        Try
            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " SELECT  CustomerID,  CompanyName,  ContactName,  City  "
                SqlTxt += " FROM Customers "
                SqlTxt += "  "

                Dim Dt As New DataTable
                Using Cmmd As New SqlCommand(SqlTxt, Conn)
                    Dt.Load(Cmmd.ExecuteReader)
                End Using
                Return Dt

            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Function

    Public Function GetCustByID(ByVal CustomerID As String) As DataTable
        Try
            If CustomerID Is Nothing Then
                CustomerID = ""
            End If
            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " SELECT CustomerID,  CompanyName,  ContactName,  City "
                SqlTxt += " FROM Customers "
                If CustomerID <> "" Then
                    SqlTxt += " WHERE CustomerID = @CustomerID "
                End If
                SqlTxt += "  "
                Dim Dt As New DataTable
                Using Cmmd As New SqlCommand(SqlTxt, Conn)
                    If CustomerID <> "" Then
                        Cmmd.Parameters.AddWithValue("@CustomerID", CustomerID)
                    End If
                    Dt.Load(Cmmd.ExecuteReader)
                End Using
                Return Dt

            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try

    End Function

    Public Sub UpdateCustomers(ByVal CustomerID As String, ByVal CompanyName As String, ByVal ContactName As String, ByVal City As String)
        Try
            If CustomerID Is Nothing Then
                CustomerID = ""
            End If
            If CompanyName Is Nothing Then
                CompanyName = ""
            End If
            If ContactName Is Nothing Then
                ContactName = ""
            End If
            If City Is Nothing Then
                City = ""
            End If
            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " UPDATE Customers "
                SqlTxt += " SET CompanyName = @CompanyName "
                SqlTxt += "     ,ContactName = @ContactName "
                SqlTxt += "     ,City = @City "
                SqlTxt += " WHERE CustomerID = @CustomerID "
                SqlTxt += "  "
                Using Cmmd As New SqlCommand(SqlTxt, Conn)
                    Cmmd.Parameters.AddWithValue("@CompanyName", CompanyName)
                    Cmmd.Parameters.AddWithValue("@ContactName", ContactName)
                    Cmmd.Parameters.AddWithValue("@City", City)
                    Cmmd.Parameters.AddWithValue("@CustomerID", CustomerID)
                    Cmmd.ExecuteNonQuery()
                End Using
            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub

    Public Sub InsertCustomers(ByVal CustomerID As String, ByVal CompanyName As String, ByVal ContactName As String, ByVal City As String)
        Try
            If CustomerID Is Nothing Then
                CustomerID = ""
            End If
            If CompanyName Is Nothing Then
                CompanyName = ""
            End If
            If ContactName Is Nothing Then
                ContactName = ""
            End If
            If City Is Nothing Then
                City = ""
            End If

            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " INSERT INTO Customers "
                SqlTxt += "     (CustomerID, CompanyName, ContactName, City) "
                SqlTxt += " VALUES (@CustomerID, @CompanyName, @ContactName, @City) "
                SqlTxt += "  "
                SqlTxt += "  "
                Using Cmmd As New SqlCommand(SqlTxt, Conn)
                    Cmmd.Parameters.AddWithValue("@CompanyName", CompanyName)
                    Cmmd.Parameters.AddWithValue("@ContactName", ContactName)
                    Cmmd.Parameters.AddWithValue("@City", City)
                    Cmmd.Parameters.AddWithValue("@CustomerID", CustomerID)
                    Cmmd.ExecuteNonQuery()

                End Using
            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub

    Public Sub DeleteCustomers(ByVal CustomerID As String)
        Try
            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " DELETE Customers "
                SqlTxt += " WHERE CustomerID = @CustomerID "
                SqlTxt += "  "
                Using Cmmd As New SqlCommand(SqlTxt, Conn)
                    Cmmd.Parameters.AddWithValue("@CustomerID", CustomerID)
                    Cmmd.ExecuteNonQuery()

                End Using
            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub
End Class

其中為了避免程式一開始，傳遞的參數是Nothing造成程式的錯誤，因此在程式中判斷如果傳入的參數是Nothing，就給預設值。

寫好了物件後，接著就來看怎麼編輯畫面，怎麼設定ObjectDataSouce，怎麼讓物件控制相透過我們寫好的程式動起來。這部分請參考以下的錄影說明。(包含畫面設定、錯誤處理等)

錄影： http://vip2.blueshop.com.tw/topcat/DEMO/tObjectDataSouce/tObjectDataSouce.html

範例程式下載：http://vip2.blueshop.com.tw/topcat/DEMO/tObjectDataSouce/tObjectDataSouce.zip

而如果是結合商用物件的方式

請參考小喵的另外一篇文章裡面有範例

ObjectDataSouce結合物件設計方式

ObjectDataSouce簡介Part1：兼具ADO.NET的自由與DataSouce的方便

topcat — Tue, 01 Jul 2008 08:43:00 GMT

一般市面上介紹的書籍，大部分都會從SqlDataSouce與GridView,DetailView等DataControl來介紹，當然這些東西很方便，可以在最少的程式碼的情況下，做出新增修改刪除查詢。但是，事實上在專案開發下並非如想像中這麼美好，您不會永遠都是處理單一資料表的新增修改刪除查詢。當遇到要處理兩個資料表以上的時候，又該如何呢??

在ASP.NET 2.0裡面多了一個ObjectDataSouce，這個東西可以讓我們在處理資料的時候，可以透過自己寫的程式，或者已經開發好的物件來撰寫。

我們從以下的示意圖來看：

1.SqlDataSouce：

SqlDataSouce透過Select,Insert,Update,Delete四種Command設定來存取資料

2.使用ObjectDataSouce

ObjectDataSouce則是透過指定的類別、以及類別中所撰寫的Method(Function/Sub)來處理，其中Select必須傳回結果，傳回的結果可以用這幾種方式【DataReader、DataSet、DataTable、DavaView、Collection Objects(物件集合)】，也就是一般在寫Me.GridView1.DataSouce=XXXX這裡可以傳入的型態。而其他Insert,Update,Delete則是需要配合傳遞要維護的資料，並在裡面透過ADO.NET存取資料。

3.使用ObjectDataSouce配合Business Object(*.dll/Class)

可以再把資料的存取、以及一些商業邏輯抽出來，寫成一些商用物件，然後在寫個類別來運用這些商用物件，與ObjectDataSouce結合。

從這邊我們可以了解，使用ObjectDataSouce，可以自己撰寫程式來做資料的存取。能夠依照自己的需求來撰寫程式，讓系統能夠更靈活的應用。又可以透過DataSouce的機制，與資料控制項(例如GridView,DetailView,FormView等)結合。讓界面的部分能夠將程式減少，應用更為便利。可說是【兼具ADO.NET的自由與DataSouce的方便】。

至於2.3的方式如何撰寫，我們將在另外的文章中介紹。

^_^

ObjectDataSouce結合物件設計方式

topcat — Sat, 21 Jun 2008 00:30:00 GMT

小喵以前撰寫ObjectDataSouce都是透過DataSet,DataTable,DataReader的方式傳回值，而要進行維護的動作，也是一個一個的參數慢慢傳遞，後來小喵看到Jeff大大的這篇文章【ObjectDataSoruce 繫結 BusinessObject 控制項】，原來可以用物件的方式來傳遞，於是小喵今天開始著手看看是否能夠改用物件的方式處理。

首先小喵先設計一個測試的資料表，資料表(Employees)欄位如下圖

接著就針對這個資料表，建立一個Employee的類別，未來這個物件類別可以抽出來當作是商業邏輯層或者資料層的元件，並撰寫相關的新增、修改、刪除、查詢等功能，相關程式碼如下：

Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic

Public Class ObjEmployee
    
    ''' <summary>
    ''' 員工編號欄位
    ''' </summary>
    Private m_EmployeeID As Integer
    ''' <summary>
    ''' 員工姓名欄位
    ''' </summary>
    Private m_EmpName As String
    ''' <summary>
    ''' 員工電話欄位
    ''' </summary>
    Private m_EmpTel As String

    Private oConns As New objConnS
    Private ConnStr As String = oConns.ConnStr

    ''' <summary>
    ''' 員工編號屬性
    ''' </summary>
    Public Property EmployeeID() As Integer
        Get
            Return m_EmployeeID
        End Get
        Set(ByVal value As Integer)
            m_EmployeeID = value
        End Set
    End Property

    ''' <summary>
    ''' 員工姓名屬性
    ''' </summary>
    Public Property EmpName() As String
        Get
            Return m_EmpName
        End Get
        Set(ByVal value As String)
            m_EmpName = value
        End Set
    End Property

    ''' <summary>
    ''' 員工電話屬性
    ''' </summary>
    Public Property EmpTel() As String
        Get
            Return m_EmpTel
        End Get
        Set(ByVal value As String)
            m_EmpTel = value
        End Set
    End Property

    '建構函數
    Public Sub New()

    End Sub

    Public Sub New(ByVal myEmpID As Integer)
        GetEmp(myEmpID)
    End Sub

    Private Sub GetEmp(ByVal myEmpID As Integer)
        Try
            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " SELECT * "
                SqlTxt += " FROM Employees "
                SqlTxt += " WHERE EmployeeID = @EmployeeID "
                Dim Cmmd As New SqlCommand(SqlTxt, Conn)
                Cmmd.Parameters.AddWithValue("@EmployeeID", myEmpID)
                Dim dr As SqlDataReader = Cmmd.ExecuteReader
                If dr.HasRows Then
                    While dr.Read
                        m_EmployeeID = myEmpID
                        m_EmpName = dr.Item("EmpName")
                        m_EmpTel = dr.Item("EmpTel")
                    End While
                End If
                dr.Close()
            End Using

        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub

    ''' <summary>
    ''' 新增一筆Employee
    ''' </summary>
    Public Sub Add()
        Try
            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " INSERT INTO Employees "
                SqlTxt += "     (EmpName, EmpTel) "
                SqlTxt += " VALUES (@EmpName, @EmpTel) "
                SqlTxt += "  "
                Dim Cmmd As New SqlCommand(SqlTxt, Conn)
                Cmmd.Parameters.AddWithValue("@EmpName", m_EmpName)
                Cmmd.Parameters.AddWithValue("@EmpTel", m_EmpTel)

                Cmmd.ExecuteNonQuery()
            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)

        End Try
    End Sub

    ''' <summary>
    ''' 刪除一筆Employee
    ''' </summary>
    Public Sub Del()
        Try
            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " Delete Employees "
                SqlTxt += " WHERE EmployeeID=@EmployeeID "
                SqlTxt += "  "
                Dim Cmmd As New SqlCommand(SqlTxt, Conn)
                Cmmd.Parameters.AddWithValue("@EmployeeID", m_EmployeeID)

                Cmmd.ExecuteNonQuery()
            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)

        End Try

    End Sub

    ''' <summary>
    ''' 修改單筆Employee
    ''' </summary>
    Public Sub Update()
        Try
            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " UPDATE Employees "
                SqlTxt += " SET EmpName=@EmpName) "
                SqlTxt += "     , EmpTel=@EmpTel  "
                SqlTxt += " WHERE EmployeeID=@EmployeeID "
                SqlTxt += "  "
                Dim Cmmd As New SqlCommand(SqlTxt, Conn)
                Cmmd.Parameters.AddWithValue("@EmployeeID", m_EmployeeID)
                Cmmd.Parameters.AddWithValue("@EmpName", m_EmpName)
                Cmmd.Parameters.AddWithValue("@EmpTel", m_EmpTel)

                Cmmd.ExecuteNonQuery()
            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)

        End Try

    End Sub
End Class

另外為了方便處理Connection String，也寫了個小類別來存放

Imports Microsoft.VisualBasic

Public Class objConnS
    Private m_ConnStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\MyDB.mdf;Integrated Security=True;User Instance=True"

    Public ReadOnly Property ConnStr() As String
        Get
            Return m_ConnStr
        End Get
    End Property

End Class

再來設計一個配合ObjectDataSouce的物件，進行新增、修改、刪除、查詢的動作

Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic

Public Class daoEmployee
    Private oConnS As New objConnS
    Private ConnStr As String = oConnS.ConnStr

    Public Function GetAllEmployee() As List(Of ObjEmployee)
        Try
            Dim tEmps As New List(Of ObjEmployee)
            tEmps.Clear()
            Using Conn As New SqlConnection(ConnStr)
                Conn.Open()
                Dim SqlTxt As String = ""
                SqlTxt += " SELECT * "
                SqlTxt += " FROM Employees "
                Dim Cmmd As New SqlCommand(SqlTxt, Conn)
                Dim Dr As SqlDataReader = Cmmd.ExecuteReader
                If Dr.HasRows Then
                    Dim tEmp As ObjEmployee
                    While Dr.Read
                        tEmp = New ObjEmployee(Dr.Item("EmployeeID"))
                        tEmps.Add(tEmp)
                    End While
                End If
            End Using
            Return tEmps

        Catch ex As Exception
            Throw
        End Try
    End Function

    Public Sub EmpUpdate(ByVal oEmp As ObjEmployee)
        Try
            oEmp.Update()
        Catch ex As Exception
            Throw
        End Try
    End Sub

    Public Sub EmpDel(ByVal oEmp As ObjEmployee)
        Try
            oEmp.Del()
        Catch ex As Exception
            Throw
        End Try
    End Sub

    Public Sub EmpAddNew(ByVal oEmp As ObjEmployee)
        Try
            oEmp.Add()
        Catch ex As Exception
            Throw
        End Try
    End Sub

End Class

有趣的地方有看到嗎，GetAllEmployee傳回的不再是DataSet,DataTable,DataRead，而是objEmployee的物件集合，另外，新增修改刪除的程式碼精減到一個不行。傳遞的參數沒有其他的，就是物件，而運作的，就是物件提供的新增修改刪除。

接著設計一下測試的畫面

        <asp:GridView ID="gvEmployees" runat="server" AutoGenerateColumns="False" 
            DataSourceID="odsEmployees" DataKeyNames="EmployeeID">
            <Columns>
                <asp:CommandField ShowDeleteButton="True" ShowEditButton="True" />
                <asp:BoundField DataField="EmployeeID" HeaderText="EmployeeID" 
                    SortExpression="EmployeeID" />
                <asp:BoundField DataField="EmpName" HeaderText="EmpName" 
                    SortExpression="EmpName" />
                <asp:BoundField DataField="EmpTel" HeaderText="EmpTel" 
                    SortExpression="EmpTel" />
            </Columns>
        </asp:GridView>
        <asp:ObjectDataSource ID="odsEmployees" runat="server" 
            DataObjectTypeName="ObjEmployee" DeleteMethod="EmpDel" 
            SelectMethod="GetAllEmployee" TypeName="daoEmployee" 
            UpdateMethod="EmpUpdate" InsertMethod="EmpAddNew">
        </asp:ObjectDataSource>
        <asp:DetailsView ID="dvEmployee" runat="server" AutoGenerateRows="False" 
            DataSourceID="odsEmployees" DefaultMode="Insert" Height="50px" 
            Width="125px" DataKeyNames="EmployeeID">
            <Fields>
                <asp:BoundField DataField="EmployeeID" HeaderText="EmployeeID" 
                    InsertVisible="False" SortExpression="EmployeeID" />
                <asp:BoundField DataField="EmpName" HeaderText="EmpName" 
                    SortExpression="EmpName" />
                <asp:BoundField DataField="EmpTel" HeaderText="EmpTel" 
                    SortExpression="EmpTel" />
                <asp:CommandField ShowInsertButton="True" />
            </Fields>
        </asp:DetailsView>
        <br />

唯一畫面要寫的程式是，在DetailView的資料新增之後，要讓GridView重新整理一次

    Protected Sub dvEmployee_ItemInserted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertedEventArgs) Handles dvEmployee.ItemInserted
        Me.gvEmployees.DataBind()
    End Sub

這樣就能夠使用物件的方式來處理並且方便把物件抽離出去，並且不用寫ObjectDataSouce的搭配物件時，需要撰寫一堆傳遞的參數。