建立自己的ORM-从SQL2005中生成ORM数据类(.net)

 现在有很多开发ORM的工具,象本人自己使用Grove.但是有时候因为业务需要不得不定制一些自己的ORM类以满足需求.

下面是用SQL2005直接生成数据类的实例:输出方式改为:以文本形式显示结果.

EXEC CreateDorNetFile 'DP_SalesCounter'

--数据表字段说明直接作为类属性的说明

1.     public class DP_SalesCounter
2.     {
3.         private String _SalesCounterID;
4.         private String _SalesCounterCode;
5.         private String _SalesCounterName;
6.         private String _ZoneID;
7.         private String _SalesDepartmentID;
8.         private Boolean _IsAgent;
9.         private String _AgentID;
10.         private Boolean _IsControlCenter;
12.         /// <summary>
13.         ///柜台ID
14.         /// </summary>
15.         public String SalesCounterID
16.         {
17.             get { return _SalesCounterID; }
18.             set { SalesCounterID = value; }
19.         }
20.         /// <summary>
21.         ///柜台代码
22.         /// </summary>
23.         public String SalesCounterCode
24.         {
25.             get { return _SalesCounterCode; }
26.             set { SalesCounterCode = value; }
27.         }
28.         /// <summary>
29.         ///柜台名称
30.         /// </summary>
31.         public String SalesCounterName
32.         {
33.             get { return _SalesCounterName; }
34.             set { SalesCounterName = value; }
35.         }
36.         /// <summary>
37.         ///地区ID
38.         /// </summary>
39.         public String ZoneID
40.         {
41.             get { return _ZoneID; }
42.             set { ZoneID = value; }
43.         }
44.         /// <summary>
45.         ///所属部门ID
46.         /// </summary>
47.         public String SalesDepartmentID
48.         {
49.             get { return _SalesDepartmentID; }
50.             set { SalesDepartmentID = value; }
51.         }
52.         /// <summary>
53.         ///是否代理
54.         /// </summary>
55.         public Boolean IsAgent
56.         {
57.             get { return _IsAgent; }
58.             set { IsAgent = value; }
59.         }
60.         /// <summary>
61.         ///代理商ID
62.         /// </summary>
63.         public String AgentID
64.         {
65.             get { return _AgentID; }
66.             set { AgentID = value; }
67.         }
68.         /// <summary>
69.         ///是否中心
70.         /// </summary>
71.         public Boolean IsControlCenter
72.         {
73.             get { return _IsControlCenter; }
74.             set { IsControlCenter = value; }
75.         }
76.     }

需要用到的过程与函数

1. CREATE FUNCTION [dbo].[ConvertSQLTypeToDorNetType](@SQLType VARCHAR(50))
2. RETURNS VARCHAR(50)
3. AS
4. /*
5. 把SQL类型转换为.NET数据类型
6. */
7. BEGIN
8.     DECLARE @DorNetTyp VARCHAR(50)
9.     SET @DorNetTyp=''
10.     SET @SQLType=RTRIM(LTRIM(@SQLType))
11.     IF @SQLType='bigint'
12.         SET @DorNetTyp='Int64'
13.     ELSE IF @SQLType='binary'
14.         SET @DorNetTyp='Byte[]' 
15.     ELSE IF @SQLType='bit'
16.         SET @DorNetTyp='Boolean'
17.     ELSE IF @SQLType='char'
18.         SET @DorNetTyp='String'
19.     ELSE IF @SQLType='datetime'
20.         SET @DorNetTyp='DateTime'
21.     ELSE IF @SQLType='decimal'
22.         SET @DorNetTyp='Decimal'
23.     ELSE IF @SQLType='float'
24.         SET @DorNetTyp='Double'
25.     ELSE IF @SQLType='image'
26.         SET @DorNetTyp='Byte[]'
27.     ELSE IF @SQLType='int'
28.         SET @DorNetTyp='Int32'
29.     ELSE IF @SQLType='money'
30.         SET @DorNetTyp='Decimal'
31.     ELSE IF @SQLType='nchar'
32.         SET @DorNetTyp='char'
33.     ELSE IF @SQLType='ntext'
34.         SET @DorNetTyp='String'
35.     ELSE IF @SQLType='numeric'
36.         SET @DorNetTyp='Decimal'
37.     ELSE IF @SQLType='nvarchar'
38.         SET @DorNetTyp='String'
39.     ELSE IF @SQLType='real'
40.         SET @DorNetTyp='Single'
41.     ELSE IF @SQLType='smalldatetime'
42.         SET @DorNetTyp='DateTime'
43.     ELSE IF @SQLType='smallint'
44.         SET @DorNetTyp='Int16'
45.     ELSE IF @SQLType='smallmoney'
46.         SET @DorNetTyp='Decimal'
47.     ELSE IF @SQLType='sql_variant'
48.         SET @DorNetTyp='Object'
49.     ELSE IF @SQLType='sysname'
50.         SET @DorNetTyp='String'
51.     ELSE IF @SQLType='text'
52.         SET @DorNetTyp='String'
53.     ELSE IF @SQLType='timestamp'
54.         SET @DorNetTyp='DateTime'
55.     ELSE IF @SQLType='tinyint'
56.         SET @DorNetTyp='Byte'
57.     ELSE IF @SQLType='uniqueidentifier'
58.         SET @DorNetTyp='Guid'
59.     ELSE IF @SQLType='varbinary'
60.         SET @DorNetTyp='Byte[]'
61.     ELSE IF @SQLType='varchar'
62.         SET @DorNetTyp='String'
63.     ELSE IF @SQLType='xml'
64.         SET @DorNetTyp='String'
66.     RETURN @DorNetTyp
67. END

1. CREATE PROC [dbo].[CreateDorNetFile]
2. @TABLE VARCHAR(50)
3. AS
4. /*
5. 根据表生成.NET数据类
6. */
7. SELECT 'public class '+@TABLE+dbo.SystemNewLine()+'{'
8. UNION ALL
9. SELECT 'private '+dbo.ConvertSQLTypeToDorNetType(systypes.name)+' _'+syscolumns.name +';' FROM syscolumns
10. LEFT JOIN systypes ON syscolumns.xtype=systypes.xtype
11. WHERE ID IN (SELECT ID FROM sysObjects WHERE Name=@TABLE) 
12. UNION ALL
13. SELECT dbo.SystemNewTab()
14. UNION ALL
16. SELECT
17. '/// <summary>'+dbo.SystemNewLine()+
18. '///'+cast(isnull(sys.extended_properties.value,'') as varchar(50))+dbo.SystemNewLine()+
19. '/// </summary>'+dbo.SystemNewLine()+
20. 'public '+dbo.ConvertSQLTypeToDorNetType(systypes.name)+' '+syscolumns.name  
21. +dbo.SystemNewLine()+'{'+dbo.SystemNewLine()+
22. +dbo.SystemNewTab()+'get{ return _'+syscolumns.name +' ; }' 
23. +dbo.SystemNewLine()+
24. +dbo.SystemNewTab()+'set{ '+syscolumns.name +' = value ; }' 
25. +dbo.SystemNewLine()+'}'
26. FROM syscolumns
27. LEFT JOIN systypes ON syscolumns.xtype=systypes.xtype
28. LEFT JOIN sys.extended_properties  ON syscolumns.ID=sys.extended_properties.major_id and syscolumns.colorder=sys.extended_properties.minor_id
29. WHERE ID IN (SELECT ID FROM sysObjects WHERE Name=@TABLE) 
30. UNION ALL
31. SELECT '}'

两个字符函数

1. create FUNCTION [dbo].[SystemNewTab]()
2. RETURNS VARCHAR(50)
3. AS
4. BEGIN
5. RETURN '    '
6. END
8. CREATE FUNCTION [dbo].[SystemNewLine]()
9. RETURNS VARCHAR(50)
10. AS
11. BEGIN
12. RETURN CHAR(13)
13. END

希望对个位有所帮助