This page looks plain and unstyled because you're using a non-standard compliant browser. To see it in its best form, please visit upgrade to a browser that supports web standards. It's free and painless.

James の Blog::空中的向日葵 會員登入 會員註冊

« 上一篇 | 下一篇 »

04 十一月, 2009 08:13

程式設計心法：28.小技巧--Table V.S. Class

由 James Jan 發表於 [ 鐵人賽2 ]
(1369) 閱讀,  (0) 引用,  (0) 回應 ,  推文( 1 )
另外一個我比較常的例子是，用 Class 來寫 Table 的對應程式。
（不過應該有這種 Tool 可以幫您將 DB 的 Table 自動產生 Class 程式碼的）

不過因為物件的溝通是靠訊息及 Event 的傳遞，如果欄位太多，則對於物件屬性的存取反而會影響到 Performance（用 Debug Trace 一下就知道是怎麼回事了）。

那就讓我們就進入程式吧！
假設我有一個員工的資料表，Employee

 

檢視原始檔複製到剪貼簿列印關於
  1. CREATE TABLE [dbo].[Employee] (  
  2.     [empy_id] [varchar] (6) NOT NULL ,  
  3.     [empy_nm] [varchar] (8) NOT NULL ,  
  4.     [dep_id] [varchar] (6) NOT NULL ,  
  5.     [status] [char] (1) NOT NULL ,  
  6.     [role] [char] (6) NOT NULL ,  
  7.     [email] [varchar] (50) NULL   
  8. ) ON [PRIMARY]  
  9. GO  
  10.   
  11. ALTER TABLE [dbo].[Employee] ADD   
  12.     CONSTRAINT [PK_Employee] PRIMARY KEY  CLUSTERED   
  13.     (  
  14.         [empy_id]  
  15.     ) WITH  FILLFACTOR = 90  ON [PRIMARY]   
  16. GO  

有 Employee ID, Employee Name, Department ID, Role, Email, Status 等欄位。

我會建構一個 Class，clsEmployee 來與之對應：
檢視原始檔複製到剪貼簿列印關於
  1. Imports System.Data.SqlClient  
  2.   
  3. Public Class clsEmployee  
  4.   Private m_empy_id As String  
  5.   Private m_empy_nm As String  
  6.   Private m_dep_id As String  
  7.   Private m_role As String  
  8.   Private m_email As String  
  9.   Private m_status As String  
  10.   
  11.   Public Property empy_id() As String  
  12.     Get  
  13.       Return m_empy_id  
  14.     End Get  
  15.     Set(ByVal value As String)  
  16.       m_empy_id = Value  
  17.     End Set  
  18.   End Property  
  19.   
  20.   Public Property empy_nm() As String  
  21.     Get  
  22.       Return m_empy_nm  
  23.     End Get  
  24.     Set(ByVal value As String)  
  25.       m_empy_nm = value  
  26.     End Set  
  27.   End Property  
  28.   
  29.   Public Property dep_id() As String  
  30.     Get  
  31.       Return m_dep_id  
  32.     End Get  
  33.     Set(ByVal value As String)  
  34.       m_dep_id = value  
  35.     End Set  
  36.   End Property  
  37.   
  38.   Public Property role() As String  
  39.     Get  
  40.       Return m_role  
  41.     End Get  
  42.     Set(ByVal value As String)  
  43.       m_role = value  
  44.     End Set  
  45.   End Property  
  46.   
  47.   Public Property email() As String  
  48.     Get  
  49.       Return m_email  
  50.     End Get  
  51.     Set(ByVal value As String)  
  52.       m_email = value  
  53.     End Set  
  54.   End Property  
  55.   
  56.   Public Property status() As String  
  57.     Get  
  58.       Return m_status  
  59.     End Get  
  60.     Set(ByVal value As String)  
  61.       m_status = value  
  62.     End Set  
  63.   End Property  
  64.   
  65.  
     
發表回應

 暱稱 (必填)

 標題

 個人網頁

 電子郵件

authimage 
 認證碼 (必填)