Create form Wizard using VS.NETThis is a updated demo to create form wizard using an Visual Studio.NET |
<%@ Page Language="vb" EnableSessionState="False"EnableViewState="True" Trace="False" Debug="False"Strict="True" CodeBehind="createformcode.aspx.vb"AutoEventWireup="false" Inherits="aspfree.createformcode" %>
<HTML>
<HEAD>
<title></title></SCRIPT>
</HEAD>
<body bgcolor="#ffffff">
<form runat="server"id="form1">
Select a tablename tocreate a .NET form for:
<asp:dropdownlistid="tblList" runat="server" />
<asp:Buttonid="GetTable" Text="Get Table" onclick="GetTable_Click"runat="server" />
<asp:panelid="myPanel" runat="server"visible="false"><BR>Select the
Columns used for generating the form.
<asp:datagrid id="MyDataGrid" runat="server"AutoGenerateColumns="False" HeaderStyle-BackColor="#aaaadd"Font-Size="8pt" Font-Name="Verdana" CellPadding="3"BorderWidth="1" BorderColor="black">
<Columns>
<asp:TemplateColumnHeaderText="Add?">
<ItemTemplate>
<asp:CheckBoxid="chkAdd" runat="server" />
</ItemTemplate>
</asp:TemplateColumn>
<asp:BoundColumnHeaderText="Name" DataField="name" />
<asp:TemplateColumnHeaderText="Create Validator?">
<ItemTemplate>
<asp:CheckBoxid="chkValid" runat="server" />
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:datagrid>
<asp:Button id="Button1" onclick="Button1_Click"runat="server" Text="Create Form"></asp:Button>
</asp:panel>
<asp:panelid="pnlTextarea" visible="false" runat="server">
<P>Copythis code into a new ASP.NET page</P>
<TEXTAREAid="taResults" rows="40" cols="90"runat="server"></asp:panel>
</form>
</body>
</html>
</TEXTAREA>
</asp:panel>
</form>
</body>
</HTML> |
|
asdf Imports System
Imports System.Text
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Configuration
Public Class createformcode
Inherits System.Web.UI.Page
Protected WithEvents tblList As System.Web.UI.WebControls.DropDownList
Protected WithEvents GetTable As System.Web.UI.WebControls.Button
Protected WithEvents MyDataGrid As System.Web.UI.WebControls.DataGrid
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents myPanel As System.Web.UI.WebControls.Panel
Protected WithEvents pnlTextarea As System.Web.UI.WebControls.Panel
Protected WithEvents taResults As System.Web.UI.HtmlControls.HtmlTextArea
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Dim sqlText As String
Dim ds As New DataSet()
Dim dbComm As New SqlDataAdapter()
Dim conn As SqlConnection
Dim sqlServer As String
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
sqlServer = GetSqlConn()
conn = New SqlConnection(sqlServer)
If Not IsPostBack Then
sqlText = "select id, name from sysobjects where xtype='U' order by name"
dbComm = New SqlDataAdapter(sqlText, conn)
dbComm.Fill(ds, "AllTables")
tblList.DataSource = ds.Tables("AllTables").DefaultView
tblList.DataTextField = "name"
tblList.DataValueField = "name"
tblList.DataBind()
End If
End Sub
Function CreateValidator(ByVal myName As String) As String
Dim mySB As StringBuilder = New StringBuilder()
REM -- use :<some text>: as placeholders
mySB.Append("<asp:RequiredFieldValidator runat=""server""id="":Name:"" ControlToValidate="":control:""ErrorMessage="":errMsg:""display=""Static"">This RequiredField!</asp:RequiredFieldValidator>")
mySB.Replace(":Name:", "vld" & myName) 'add the validator name
mySB.Replace(":control:", "at" & myName) 'add the control name
mySB.Replace(":errMsg:", myName & " is required")
Return mySB.ToString()
End Function
Function GetSqlConn() As String
Dim DSN As String = ConfigurationSettings.AppSettings("DSN")
Return DSN
End Function
Sub GetTable_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim sqlText As String
sqlText = "SELECT syscolumns.name, syscolumns.isnullable FROM sysobjects INNER JOINsyscolumns ON sysobjects.id = syscolumns.id where sysobjects.name = '" &tblList.SelectedItem.Text & "' ORDER BY syscolumns.colid"
REM -- Connect to SQL
dbComm = New SqlDataAdapter(sqlText, conn)
REM -- Fill DataSet
dbComm.Fill(ds, "TestData")
MyDataGrid.DataSource = ds.Tables("TestData").DefaultView
MyDataGrid.DataBind()
REM -- Show the results
myPanel.Visible = True
End Sub
Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim i As Integer
Dim _item As DataGridItem
Dim dr As DataRow
Dim sb As StringBuilder = New StringBuilder()
Dim strOutput As String
REM -- Auto Generate The Form
sb.Append("<form runat=""server""id=""form2"" name=""form2"">" &Chr(13) & Chr(10))
sb.Append(" <table border=1>" & Chr(13))
For i = 0 To MyDataGrid.Items.Count - 1
REM -- Get the checkbox
_item = MyDataGrid.Items(i)
Dim addCheckBox As CheckBox = CType(_item.FindControl("chkAdd"), CheckBox)
Dim validCheckBox As CheckBox = CType(_item.FindControl("chkValid"), CheckBox)
If addCheckBox.Checked Then
sb.Append(" <tr>" & Chr(13))
sb.Append(" <td>" & _item.Cells(1).Text & "</td>"& Chr(13))
sb.Append(" <td>")
sb.Append("<asp:textbox id=""at" & _item.Cells(1).Text &""" runat=""server"" />")
'create a validator control
If validCheckBox.Checked Then
sb.Append(" " & Chr(13) & CreateValidator(_item.Cells(1).Text))
End If
sb.Append("</td>" & Chr(13)) '
sb.Append(" </tr>" & Chr(13)) ' close out the row
End If
Next
sb.Append(" <tr>" & Chr(13)) ' close out the row
sb.Append(" <td colspan=""2""><asp:buttonid=""button1"" Text=""Validate Form""runat=""Server"" /></td>" & Chr(13))
sb.Append(" </tr>" & Chr(13)) ' close out the row
sb.Append(" </table>" & Chr(13))
sb.Append(Chr(13) & "</form>")
strOutput = sb.ToString()
strOutput = System.Web.HttpUtility.HtmlEncode(strOutput)
taResults.Value = strOutput
pnlTextarea.Visible = True
End Sub
End Class
|
| DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware. |
More ASP.NET Articles
More By aspfree  developerWorks - FREE Tools!
|
This demonstration gives you an overview of IBM® Rational® Build Forge Express Edition, a global offering that provides a framework to automate and execute software processes. Rational Build Forge provides a software assembly line that can support all of your tools, technologies, and platforms so you can achieve a repeatable, reliable, and traceable build and release process.
FREE! Go There Now!
| | | |
Learn field-tested SOA principles, methodology, technology and implementation from the global SOA market leader - in a new e-book by an IBM SOA expert. Written by IBM Certified SOA Solution Designer Bobby Woolf, "Exploring IBM SOA Technology & Practice" is the ultimate insider's guide to SOA - a PDF e-book packed cover to cover with IBM's specific advice on how to make your SOA implementation a success.
FREE! Go There Now!
| | | |
Building a software-as-a-service solution requires addressing a few key technical challenges. In this webcast, we'll focus on the role of IBM Tivoli Directory Server and WebSphere Portlet Factory in creating a Software as a Service solution. We will demonstrate how to use Tivoli Directory Server to prevent the user population of one tenant from accessing the virtual portal and portlet components of another tenant. We will also use the dynamic profile capability of WebSphere Portlet Factory to create multiple highly customized applications from one code base.
FREE! Go There Now!
| | | |
WebSphere Process Server delivers a unique integration framework that simplifies existing IT resources. Often, as IT assets grow to support business demand, so too does their complexity and manageability. In this webcast, we’ll discuss how WebSphere Process Server helps deliver an SOA infrastructure that provides a common model to orchestrate, mediate, connect, map, and execute the underlying IT functions. Discover how WebSphere Process Server simplifies integration of business processes by leveraging existing IT assets as reusable services without the complexities of traditional integration methodologies.
FREE! Go There Now!
| | | |
Visit IBM developerWorks to download a free trial version of Lotus Quickr 8.0, which enables collaboration by transforming the way everyday business content such as documents, rich media, photos, and video can be shared. Lotus Quickr makes it faster and easier to share content of all types (not just documents) within virtual teams. It is designed to make it easier to collaborate across organizational boundaries, while continuing to work within the context of familiar desktop applications.
FREE! Go There Now!
| | | |
Join this Rational Talks to You teleconference on November 29 at 1:00 pm ET to participate in an interactive discusssion with Grady Booch around architecture and reuse. Get your questions answered!
FREE! Go There Now!
| | | |
Learn the basics of the IBM Customer Information Control System (CICS). With a hands-on exercise, learn how to get your first CICS application up and running on your desktop using TXSeries V6.1 for Windows. The tutorial shows you how to download and install a free trial version of TXSeries V6.1.
FREE! Go There Now!
| | | |
Informix Dynamic Server (IDS) Express Edition offers outstanding online transaction processing (OLTP) database performance, while helping to simplify and automate many of the tasks associated with deploying databases for small business applications. IDS 11 further extends the ease of management and applications integration with the Admin API and Scheduler, high availability with Continuous Log Restore for backup server recovery in case of a primary server failure, and column level encryption to protect personal and company private data.
FREE! Go There Now!
| | | |
Visit IBM developerWorks to try the IBM SOA Sandbox for connectivity. The SOA Sandbox for connectivity provides a trial environment with the tooling and components to help you explore how to effectively connect your infrastructure and integrate all of the people, processes and information in your company. Use the hosted sandbox to explore SOA techniques that streamline connecting existing IT assets together, as well as learn how to connect them to new business logic.
FREE! Go There Now!
| | | |
Join this Rational Talks to You teleconference, to hear how Enterprise Generation Language (EGL) eliminates the need for tedious and error-prone low level coding, so developers can focus on business requirements. EGL extends the Rational software development platform with a simplified programming language that enables developers who have little or no experience with Java, Web technologies or Service Oriented Architecture, to create enterprise-class applications and services quickly and easily. It also allows developers who may have little or no mainframe programming experience to quickly create traditional mainframe components.
FREE! Go There Now!
| | | |
All FREE IBM® developerWorks Tools!
| |
