class.format

来自「客户关系管理系统ASP.NET+VB.NET编程完整程序！」· FORMAT 代码 · 共 32 行

Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Runtime.Serialization
Imports OrmLib

namespace {0}
		public class OrmDataSet
		
		private Sub New()
		End Sub
		
		public Shared Function NewDataSet() As DataSet
			
            Dim ds As DataSet = New DataSet("OrmDataSet")
			
			InitDb(ds)

			ds.EnforceConstraints = true
			ds.CaseSensitive = false
			
			NewDataSet = ds
			
		End Function
		
		
{1}
	End Class
End Namespace