Click here to Skip to main content
Click here to Skip to main content
Add your own
alternative version

Introduction to Model Driven Development with Sculpture – Part 1

, 3 Sep 2008 CPOL
This article introduces how to create and manage .NET enterprise applications using your favorite technology (Data Access Application Block, LINQ, NHibernate, ASMX, and WCF) with the Model Driven Development approach by Sculpture.
DialogBox.zip
DialogBox
bin
Debug
Infrastructure.Interface.dll
Infrastructure.Layout.dll
Infrastructure.Library.dll
Infrastructure.Module.dll
Microsoft.Practices.CompositeUI.dll
Microsoft.Practices.CompositeUI.WinForms.dll
Microsoft.Practices.EnterpriseLibrary.Common.dll
Microsoft.Practices.EnterpriseLibrary.ExceptionHandling.dll
Microsoft.Practices.EnterpriseLibrary.ExceptionHandling.Logging.dll
Microsoft.Practices.EnterpriseLibrary.Logging.dll
Microsoft.Practices.ObjectBuilder.dll
Module1.dll
Module1.Interface.dll
Shell.exe
Shell.vshost.exe
DialogBox.gpState
Lib
Microsoft.Practices.CompositeUI.dll
Microsoft.Practices.CompositeUI.WinForms.dll
Microsoft.Practices.CompositeUI.WPF.dll
Microsoft.Practices.EnterpriseLibrary.Common.dll
Microsoft.Practices.EnterpriseLibrary.Data.dll
Microsoft.Practices.EnterpriseLibrary.Data.SqlCe.dll
Microsoft.Practices.EnterpriseLibrary.ExceptionHandling.dll
Microsoft.Practices.EnterpriseLibrary.ExceptionHandling.Logging.dll
Microsoft.Practices.EnterpriseLibrary.Logging.dll
Microsoft.Practices.ObjectBuilder.dll
Microsoft.Practices.SmartClient.ConnectionMonitor.dll
Microsoft.Practices.SmartClient.DisconnectedAgent.dll
Microsoft.Practices.SmartClient.EndpointCatalog.dll
Microsoft.Practices.SmartClient.EnterpriseLibrary.dll
Module1
Module1
Constants
obj
Debug
Refactor
TempPE
Properties
Services
Views
DialogView
View1
Module1.Interface
Constants
obj
Debug
Refactor
TempPE
Properties
Services
Source
Infrastructure
Infrastructure.Interface
bin
Debug
Infrastructure.Interface.dll
Microsoft.Practices.CompositeUI.dll
Microsoft.Practices.CompositeUI.WinForms.dll
Microsoft.Practices.EnterpriseLibrary.Common.dll
Microsoft.Practices.EnterpriseLibrary.ExceptionHandling.dll
Microsoft.Practices.ObjectBuilder.dll
BusinessEntities
Constants
obj
Debug
Refactor
TempPE
Properties
Services
Infrastructure.Layout
obj
Debug
Refactor
TempPE
Properties
Infrastructure.Library
bin
Debug
Infrastructure.Interface.dll
Infrastructure.Library.dll
Microsoft.Practices.CompositeUI.dll
Microsoft.Practices.CompositeUI.WinForms.dll
Microsoft.Practices.EnterpriseLibrary.Common.dll
Microsoft.Practices.EnterpriseLibrary.ExceptionHandling.dll
Microsoft.Practices.ObjectBuilder.dll
BuilderStrategies
EntityTranslators
EntLib
obj
Debug
Refactor
TempPE
Properties
Services
UI
Web References
Infrastructure.Module
obj
Debug
Refactor
TempPE
Properties
Shell
obj
Debug
Refactor
TempPE
Properties
SculptureExample.zip
WCF+LINQ
SculptureExample
Model
Properties
bin
Debug
obj
Debug
TempPE
MyFirstModel.Sculpture
MyFirstModel.Sculpture.diagram
Entities
Properties
bin
Debug
obj
Debug
TempPE
GeneratedCode
Entities
DataAccess
Properties
Settings.settings
bin
Debug
obj
Debug
TempPE
SQL
GeneratedCode
Repositories
Implementation
Interface
WCFService
Properties
bin
Debug
obj
Debug
TempPE
CustomCode
Translators
Services
GeneratedCode
DataContracts
Services
Contracts
Implementations
WCFHost
App_Data
Properties
bin
obj
Debug
TempPE
WCFHost.csproj.user
Services
CategoriesService.svc
ProductsService.svc
SculptureExample.gpState
NHibernate+ASMX
SculptureExample
Model
Properties
bin
Debug
obj
Debug
TempPE
MyFirstModel.Sculpture
MyFirstModel.Sculpture.diagram
Entities
Properties
bin
Debug
obj
Debug
TempPE
GeneratedCode
Entities
Mappings
DataAccess
Properties
bin
Debug
obj
Debug
TempPE
SQL
GeneratedCode
Repositories
Implementation
Interface
WCFService
Properties
bin
Debug
obj
Debug
TempPE
CustomCode
Translators
Services
GeneratedCode
DataContracts
Services
Contracts
Implementations
WCFHost
App_Data
Properties
bin
obj
Debug
TempPE
build.force
WCFHost.csproj.user
Services
CategoriesService.svc
ProductsService.svc
SculptureExample.gpState
Service
Properties
bin
Debug
obj
Debug
TempPE
CustomCode
Services
Translators
GeneratedCode
DataContracts
Services
Contracts
Implementations
WebService
App_Data
Properties
bin
obj
Debug
TempPE
WebService.csproj.user
Services
Lib
Castle.DynamicProxy.dll
Iesi.Collections.dll
log4net.dll
NHibernate.dll
SculptureExample_WPFMold.zip
SculptureExample
Model
Properties
bin
Debug
obj
Debug
TempPE
MyFirstModel.Sculpture
MyFirstModel.Sculpture.diagram
SculptureExample.suo
Entities
Properties
bin
Debug
obj
Debug
TempPE
GeneratedCode
Entities
Mappings
DataAccess
Properties
bin
Debug
obj
Debug
TempPE
SQL
GeneratedCode
Repositories
Implementation
Interface
SculptureExample.gpState
Service
Properties
bin
Debug
obj
Debug
TempPE
CustomCode
Services
Translators
GeneratedCode
DataContracts
Services
Contracts
Implementations
Lib
Castle.DynamicProxy.dll
Iesi.Collections.dll
log4net.dll
NHibernate.dll
WPFApplication
Properties
Settings.settings
bin
Debug
WPFApplication.vshost.exe.manifest
WPFApplication.vshost.exe
obj
Debug
TempPE
Controls
Controls
WPFMold
WPFMold.gpState
WPFMold.suo
WPFMold
Resources
ThemeBitmap.bmp
Properties
Output
WPFMold.Mold
Templates
bin
Microsoft.Data.ConnectionUI.Dialog.dll
Microsoft.Data.ConnectionUI.dll
Microsoft.Practices.RecipeFramework.Extensions.dll
Microsoft.Practices.RepositoryFactory.SchemaDiscovery.dll
Mold3.pdb
MoldBase.dll
MoldBase.pdb
Output
Template
obj
Debug
TempPE
Resource1.Designer.cs.dll
SampleUserControl_cs.cs.dll
SampleUserControl_xaml.cs.dll
SampleUserControl_xaml_cs.cs.dll
Window1_xaml.cs.dll
Window1_xaml_cs.cs.dll
Windows1_cs.cs.dll
Windows1_xaml.cs.dll
Lib
Dawliasoft.Sculpture.Common.dll
Dawliasoft.Sculpture.Dsl.dll
Helpers
----------------------------------------------------------------
-- [dbo].[Categories] Table
--
IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'Categories_GetAll')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[Categories_GetAll] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[Categories_GetAll]    
AS
BEGIN
	SET NOCOUNT ON
	
	SELECT
	[categories].[CategoryID] AS 'CategoryID',
	[categories].[CategoryName] AS 'CategoryName',
	[categories].[Description] AS 'Description',
	[categories].[Picture] AS 'Picture'
FROM [dbo].[Categories] [categories]

	SET NOCOUNT OFF
END

GO

IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'Categories_GetById')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[Categories_GetById] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[Categories_GetById] 
	@categoryID int
AS
BEGIN

	SET NOCOUNT ON
	
	SELECT
	[categories].[CategoryID] AS 'CategoryID',
	[categories].[CategoryName] AS 'CategoryName',
	[categories].[Description] AS 'Description',
	[categories].[Picture] AS 'Picture'
	FROM [dbo].[Categories] [categories]
	WHERE [CategoryID]=@categoryID

	SET NOCOUNT OFF
END

GO

IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'InsertCategories')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[InsertCategories] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[InsertCategories]
    @categoryID int OUT,
	@categoryName nvarchar(15),
	@description ntext = NULL,
	@picture image = NULL
AS
BEGIN
	SET NOCOUNT ON
	
	BEGIN TRY
    INSERT INTO [dbo].[Categories] ([CategoryName], [Description], [Picture])
	VALUES (@categoryName, @description, @picture)
    SET @categoryID = SCOPE_IDENTITY()
    END TRY

    BEGIN CATCH
		EXEC RethrowError;
	END CATCH
    
    SET NOCOUNT OFF
END    

GO

IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'UpdateCategories')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[UpdateCategories] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[UpdateCategories]
    @categoryID int,
	@categoryName nvarchar(15),
	@description ntext = NULL,
	@picture image = NULL
AS
BEGIN

	--The [dbo].[Categories] table doesn't have a timestamp column. Optimistic concurrency logic cannot be generated
	SET NOCOUNT ON

	BEGIN TRY
	UPDATE [dbo].[Categories] 
	SET [CategoryName] = @categoryName, [Description] = @description, [Picture] = @picture
	WHERE [CategoryID]=@categoryID

	IF @@ROWCOUNT = 0
	BEGIN
		RAISERROR('Concurrent update error. Updated aborted.', 16, 2)
	END
    END TRY

    BEGIN CATCH
		EXEC RethrowError;
	END CATCH	

	SET NOCOUNT OFF
END

GO

IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'Categories_Delete')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[Categories_Delete] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[Categories_Delete]
	 @categoryID int
AS
BEGIN
	SET NOCOUNT ON
	
    DELETE FROM [dbo].[Categories]
	WHERE [CategoryID]=@categoryID
    
    SET NOCOUNT OFF
END

GO


--The GetByFK stored procedure cannot be created because the [dbo].[Categories] table doesn't have at least one foreign key column or the foreign keys are also primary keys.

----------------------------------------------------------------
-- [dbo].[Products] Table
--
IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'Products_GetAll')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[Products_GetAll] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[Products_GetAll]    
AS
BEGIN
	SET NOCOUNT ON
	
	SELECT
	[products].[CategoryID] AS 'CategoryID',
	[products].[Discontinued] AS 'Discontinued',
	[products].[ProductID] AS 'ProductID',
	[products].[ProductName] AS 'ProductName',
	[products].[QuantityPerUnit] AS 'QuantityPerUnit',
	[products].[ReorderLevel] AS 'ReorderLevel',
	[products].[SupplierID] AS 'SupplierID',
	[products].[UnitPrice] AS 'UnitPrice',
	[products].[UnitsInStock] AS 'UnitsInStock',
	[products].[UnitsOnOrder] AS 'UnitsOnOrder'
FROM [dbo].[Products] [products]

	SET NOCOUNT OFF
END

GO

IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'Products_GetById')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[Products_GetById] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[Products_GetById] 
	@productID int
AS
BEGIN

	SET NOCOUNT ON
	
	SELECT
	[products].[CategoryID] AS 'CategoryID',
	[products].[Discontinued] AS 'Discontinued',
	[products].[ProductID] AS 'ProductID',
	[products].[ProductName] AS 'ProductName',
	[products].[QuantityPerUnit] AS 'QuantityPerUnit',
	[products].[ReorderLevel] AS 'ReorderLevel',
	[products].[SupplierID] AS 'SupplierID',
	[products].[UnitPrice] AS 'UnitPrice',
	[products].[UnitsInStock] AS 'UnitsInStock',
	[products].[UnitsOnOrder] AS 'UnitsOnOrder'
	FROM [dbo].[Products] [products]
	WHERE [ProductID]=@productID

	SET NOCOUNT OFF
END

GO

IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'InsertProducts')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[InsertProducts] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[InsertProducts]
    @categoryID int,
	@discontinued bit,
	@productID int OUT,
	@productName nvarchar(40),
	@quantityPerUnit nvarchar(20) = NULL,
	@reorderLevel smallint = NULL,
	@supplierID int = NULL,
	@unitPrice money = NULL,
	@unitsInStock smallint = NULL,
	@unitsOnOrder smallint = NULL
AS
BEGIN
	SET NOCOUNT ON
	
	BEGIN TRY
    INSERT INTO [dbo].[Products] ([CategoryID], [Discontinued], [ProductName], [QuantityPerUnit], [ReorderLevel], [SupplierID], [UnitPrice], [UnitsInStock], [UnitsOnOrder])
	VALUES (@categoryID, @discontinued, @productName, @quantityPerUnit, @reorderLevel, @supplierID, @unitPrice, @unitsInStock, @unitsOnOrder)
    SET @productID = SCOPE_IDENTITY()
    END TRY

    BEGIN CATCH
		EXEC RethrowError;
	END CATCH
    
    SET NOCOUNT OFF
END    

GO

IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'UpdateProducts')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[UpdateProducts] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[UpdateProducts]
    @categoryID int,
	@discontinued bit,
	@productID int,
	@productName nvarchar(40),
	@quantityPerUnit nvarchar(20) = NULL,
	@reorderLevel smallint = NULL,
	@supplierID int = NULL,
	@unitPrice money = NULL,
	@unitsInStock smallint = NULL,
	@unitsOnOrder smallint = NULL
AS
BEGIN

	--The [dbo].[Products] table doesn't have a timestamp column. Optimistic concurrency logic cannot be generated
	SET NOCOUNT ON

	BEGIN TRY
	UPDATE [dbo].[Products] 
	SET [CategoryID] = @categoryID, [Discontinued] = @discontinued, [ProductName] = @productName, [QuantityPerUnit] = @quantityPerUnit, [ReorderLevel] = @reorderLevel, [SupplierID] = @supplierID, [UnitPrice] = @unitPrice, [UnitsInStock] = @unitsInStock, [UnitsOnOrder] = @unitsOnOrder
	WHERE [ProductID]=@productID

	IF @@ROWCOUNT = 0
	BEGIN
		RAISERROR('Concurrent update error. Updated aborted.', 16, 2)
	END
    END TRY

    BEGIN CATCH
		EXEC RethrowError;
	END CATCH	

	SET NOCOUNT OFF
END

GO

IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'Products_Delete')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[Products_Delete] AS RETURN')
END

GO

ALTER PROCEDURE [dbo].[Products_Delete]
	 @productID int
AS
BEGIN
	SET NOCOUNT ON
	
    DELETE FROM [dbo].[Products]
	WHERE [ProductID]=@productID
    
    SET NOCOUNT OFF
END

GO


IF NOT EXISTS (SELECT NAME FROM sys.objects WHERE TYPE = 'P' AND NAME = 'Products_GetByCategories')
BEGIN
	EXEC('CREATE PROCEDURE [dbo].[Products_GetByCategories] AS RETURN')
END
GO
ALTER PROCEDURE [dbo].[Products_GetByCategories]
@categoryID int
AS
BEGIN
SET NOCOUNT ON
SELECT
	[products].[CategoryID] AS 'CategoryID',
	[products].[Discontinued] AS 'Discontinued',
	[products].[ProductID] AS 'ProductID',
	[products].[ProductName] AS 'ProductName',
	[products].[QuantityPerUnit] AS 'QuantityPerUnit',
	[products].[ReorderLevel] AS 'ReorderLevel',
	[products].[SupplierID] AS 'SupplierID',
	[products].[UnitPrice] AS 'UnitPrice',
	[products].[UnitsInStock] AS 'UnitsInStock',
	[products].[UnitsOnOrder] AS 'UnitsOnOrder'
	FROM [dbo].[Products] [products]
	WHERE [CategoryID]=@categoryID
SET NOCOUNT OFF
END
GO

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

Ahmed Negm
Chief Technology Officer www.Dawliasoft.com
Egypt Egypt
Program Manager in Sculpture project, Interesting in .NET Model driven development.

| Advertise | Privacy | Mobile
Web03 | 2.8.141022.2 | Last Updated 3 Sep 2008
Article Copyright 2008 by Ahmed Negm
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid