原文网址： http://www.blogwind.com/Wuvist/56788.shtml

Katze，是德文猫的意思，猫是很懒的……用Katze为偶这个“ORM”命名，是要强调其目的：少打代码。ORM加引号，是因为偶不认为它是真正的ORM，它只是个穿上ORM马甲的SqlHelper……它没有xml配置文件，默认映射类名为表名、属性名为列名。如果不一致，通过 Attribute修改。

Katze只支持单数字主键表 （最好还是自增，然后叫做id），不支持各种神奇的关系，只对外键有一定支持。没有缓存机制。企图支持多数据库，但目前只能在MSSQL上跑，还必须是2005版~纯VB.Net开发，只有.net 2.0版本！
 

呃，如果这样你还有兴趣，就继续看吧：

先来看看如何使用Katze：

1. 定义Model

 

< Table(PrimaryKeyName: = " index " ) > _
 Public Class Blogger
 Inherits Entity

 < Field(Size: = 100 , ColumnType: = SqlDbType.NVarChar, ColumnName: = " id " ) > _
 Public UserId As Field.Text
 < Field(Size: = 100 , ColumnType: = SqlDbType.NVarChar) > _
 Public nick As Field.Text
 Public DOB As Field.Smalldatetime

 End Class

 

是的，需要Inherits Entiy， Katze属于丑陋的侵入性ORM。

2. 定义全局ConnHelper

Katze.Entity.DefaultConnHelper = New Katze.MSSqlConnHelper("你的数据库链接字符串")

配置就这两步，剩下的就是使用了：

创建一个新的Blogger?

 

Dim MyBlogger As New Blogger
MyBlogger.nick = " testaccount "
MyBlogger.Save()


 

 

查找主键为100的Blogger，修改其Nick并保存?

 

Dim MyBlogger As New Blogger
MyBlogger.FindById( 100 )
MyBlogger.nick = " newnick "
MyBlogger.Save()

 

在webform中显示出最新的十个blogger？

Template:

 

< asp:Repeater ID ="UserList" runat ="server" >
< ItemTemplate >
< li > <% #Container.DataItem( " nick " ) %>
</ ItemTemplate >
</ asp:Repeater >

 

Code Behind:

 

Dim MyBlogger As New Blogger
UserList.DataSource = MyBlogger.Find( "" , " [index] desc " , 0 , 10 )
UserList.DataBind()

 

是的，Find这个方法定义得很丑陋……纯粹就是拼sql……偶在以后版本会改掉的……

定义多一个Model吧：

 

< Table(PrimaryKeyName: = " index " ) > _
 Public Class Articles
 Inherits Entity

 < Field(Size: = 50 , ColumnType: = SqlDbType.VarChar) > _
 Public title As Field.Text
 Public blogger As Blogger
 < Field(ColumnType: = SqlDbType.Text) > _
 Public content As Field.Text
 Public add_date As Field.DateTime

 End Class

 

显示Blogger主键为100的最新10篇blog标题？

Template:

 

< asp:Repeater ID ="ArticleList" runat ="server" >
< ItemTemplate >
< li > <% #Container.DataItem( " blogger.nick " ) %> 写了 <% #Container.DataItem( " title " ) %>
</ ItemTemplate >
</ asp:Repeater >

 

Code Behind:

 

Dim MyBlogger As New Blogger
MyBlogger.FindById( 100 )
ArticleList.DataSource = MyBlogger.ReverseFind( GetType (Articles), " [index] desc " , 0 , 10 )
ArticleList.DataBind()

 

或者，

 

Dim MyArticles As New Articles
ArticleList.DataSource = MyArticles.Find( " blogger=100 " , " [index] desc " , 0 , 10 )
ArticleList.DataBind()


 

 

嗯， 加紫色的部分就是Katze对外键的有限支持啦~假设说有N个Model，彼此通过外键连来连去……在Template中可以写：
<%#Container.DataItem("blogger.BloggerCategory.Language.DisplayName")%>

之类的，无限.下去~Katze会自动去查询相应的表。
 

Katze暂时只是一个Prototype，偶企图通过开发它提高一下自己.net功力而已。现在贴出来，只是希望能够得到大家批评以便改进……要是有谁敢拿去用的话……后果自负！

开发Katze的时候，偶主要是参考了Django内置的ORM以及iBatis跟Nbear等。当然，所谓参考，也就是随便瞅瞅，绝对不能说领悟了它们的精髓然后打造出Katze。

项目主页是在：http://code.google.com/p/katze/

暂时只有源码，没有文档之类的。