Click here to Skip to main content
12,241,949 members (47,932 online)
Click here to Skip to main content
Articles » Web Development » ASP.NET » General » Downloads

Stats

101.1K views
2.6K downloads
121 bookmarked
Posted

Implementing Model-View-Presenter in ASP.NET

, 17 Nov 2007 CPOL
Three implementations of Model-View-Presenter in ASP.NET 2.0.
MVP.SampleApp
Lib
Microsoft.Practices.EnterpriseLibrary.Common.dll
Microsoft.Practices.EnterpriseLibrary.Data.dll
MySql.Data.dll
nunit.framework.dll
Rhino.Mocks.dll
Model
Data
Interfaces
Properties
Presentation
Presentation.Tests
Properties
Interfaces
Properties
SubSonic
ActiveRecord
Builder
CodeGeneration
Templates
CodeLanguage
Configuration
Controls
Calendar
lang
skin
active-bg.gif
calendar.gif
dark-bg.gif
hover-bg.gif
menuarrow.gif
normal-bg.gif
rowhover-bg.gif
status-bg.gif
title-bg.gif
today-bg.gif
Resources
DataProviders
Properties
Sql Tools
SubSonic.snk
Sugar
WebApp
App_Data
Views
SQL2000SampleDb.msi
<%@ Page Language="C#"%>
<%@ Import namespace="SubSonic.Utilities"%>
<%@ Import Namespace="SubSonic" %>
<%@ Import Namespace="SubSonic.CodeGenerator" %>
<%@ Import Namespace="System.Data" %>

<%
	string providerName = "#PROVIDER#";
	ICodeLanguage language = new VBCodeLanguage();
	DataProvider provider = DataService.GetInstance(providerName);
    System.Collections.Generic.List<StoredProcedure> spList = DataService.GetSPSchemaCollection(providerName);
	ArrayList classStoredProcedures = new ArrayList();
	
%>

Namespace <%=provider.GeneratedNamespace %>
    Public Partial Class <%=provider.SPClassName%>
        <%foreach (StoredProcedure sp in spList)
{
    if(Utility.IsMatch(sp.TableName, provider.SPClassName))
    {
        //load up a the params
        string argList = string.Empty;
        bool isFirst = true;
        foreach(StoredProcedure.Parameter p in sp.Parameters)
        {
            if(!isFirst)
            {
                argList += ", ";
            }
            isFirst = false;
			// allow nullable types for SP parms - Thanks Jeff!
			string pType = Utility.GetVariableType(p.DBType, Utility.IsNullableDbType(p.DBType) , language);
            string arg = p.DisplayName;
			argList += "ByVal " + arg + " As " + pType;
        }
              %>
        ''' <summary>
        ''' Creates an object wrapper for the <%=sp.Name %> Procedure
        ''' </summary>
        Public Shared Function <%=sp.DisplayName%>(<%=argList %>) As StoredProcedure 
            Dim sp As New SubSonic.StoredProcedure("<%=sp.Name%>" , DataService.GetInstance("<%= providerName %>"))
            <%foreach (StoredProcedure.Parameter p in sp.Parameters) {%>
        	    <%if (p.Mode == ParameterDirection.InputOutput) { %>
            sp.Command.AddOutputParameter("<%=p.QueryParameter %>",DbType.<%=Enum.GetName(typeof(DbType), p.DBType)%>)
        	    <%} else { %>
            sp.Command.AddParameter("<%=p.QueryParameter%>", <%=p.DisplayName%>,DbType.<%=Enum.GetName(typeof(DbType), p.DBType)%>)
        	    <%} %>
            <%} %>
            Return sp
        End Function
        <%    }
			  else
			  {
				  classStoredProcedures.Add(sp);
			  }
		  }%>
    End Class
        <%
			foreach (StoredProcedure sp in classStoredProcedures)
			{
				string className = sp.TableName;
				TableSchema.Table tbl = DataService.GetTableSchema(sp.TableName, provider.Name, TableType.Table);
				if (tbl != null)
				{
					className = tbl.ClassName;
				}
				string argList = string.Empty;
				bool isFirst = true;
				foreach (StoredProcedure.Parameter p in sp.Parameters)
				{
					if (!isFirst)
					{
						argList += ", ";
					}
					isFirst = false;
					// allow nullable types for SP parms - Thanks Jeff!
					string pType = Utility.GetVariableType(p.DBType, Utility.IsNullableDbType(p.DBType), language);
					string arg = p.DisplayName;
					argList += "ByVal " + arg + " As " + pType;
				}
%>
	Public Partial Class <%= className%>
        ''' <summary>
        ''' Creates an object wrapper for the <%=sp.Name%> Procedure
        ''' </summary>
        Public Shared Function <%=sp.DisplayName%>(<%=argList%>) As StoredProcedure 
            Dim sp As New SubSonic.StoredProcedure("<%=sp.Name%>" , DataService.GetInstance("<%= providerName %>"))
            <%foreach (StoredProcedure.Parameter p in sp.Parameters)
			  {%>
        	    <%if (p.Mode == ParameterDirection.InputOutput)
			   { %>
            sp.Command.AddOutputParameter("<%=p.QueryParameter%>",DbType.<%=Enum.GetName(typeof(DbType), p.DBType)%>)
        	    <%}
			   else
			   { %>
            sp.Command.AddParameter("<%=p.QueryParameter%>", <%=p.DisplayName%>,DbType.<%=Enum.GetName(typeof(DbType), p.DBType)%>)
        	    <%} %>
            <%} %>
            Return sp
        End Function
    End Class
        		<%
			}
%>
End Namespace

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

Alex Mueller
Web Developer
United States United States
No Biography provided

You may also be interested in...

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.160426.1 | Last Updated 17 Nov 2007
Article Copyright 2007 by Alex Mueller
Everything else Copyright © CodeProject, 1999-2016
Layout: fixed | fluid