数据表单向导的快速实现

ASP.NET的数据表单向导类似于Windows应用程序。

介绍
自从VS.NET为Windows窗体提供了强大的数据表单向导工具之后，我一直在思考为什么不为ASP.NET提供相似的工具呢？

因为Windows应用程序和ASP.NET应用程序使用的是相同的ADO.NET类，所以在ASP.NET中编写这样一个工具是有可能的。

我们所关心的第一件重要的事情是它能在Windows应用程序中良好而又稳定地使用DataSet，而在Web应用程序中就不是这样了。最好的解决办法就是使用DataReader，因为它只能向前读，所以它将是一件令人疲乏不堪的事情。

两年前，我就已经开始写这样一个控件。这实在是一件工作量很大的事情，但是我认为它带来的结果将是美好的。
背景
但是在我们工作结束的2个月（2002年），Stephen Walther的《Unleashed ASP.NET》发表了。在这本书中，我发现了作者也写了一个相同的控件，但是要比我写的功能强的多。它有很多优点，甚至比Windows应用程序的数据表单向导更好定制。它使用DataReader而不是DataSet，所以它是一个轻型的工具。

我想没有必要再去发表讨论这个控件的文章了，因为微软一定会在新版VS.NET （Whidbey）中做出相同或更好的一个工具。但是在我看了ASP.NET 2.0（即Whidbey）的新特性之后，我失望了因为微软并没有像我预想的那样去做这样一个工具。所以我看发表这样一篇文章还是有用的。

这个控件本身是一些从 System.Web.UI.WebControls 类继承过来的控件的集合，它可以分成两个分集合：

1．              专门处理SQL Server的控件集合。

2．              处理任意数据库引擎的OleDB控件的集合。

我已经测试通过了SQL模块，一些bug能被克服实在是太棒了。但是关于OleDB模块并不顺利，我在Oracle 9i中进行了试验，遗憾的是它并不能正常工作，因为在接受连接字符串时有一个bug。（我希望能尽快修补好）
使用代码
我已经写好了一个例子，它演示了如何使用这个控件，如何完全克服它的一些bug。

1．              打开VS.NET，新建项目，选择“ASP.NET Web 应用程序”。

2．              在工具箱中点击右键，选择“添加/移除项”，转到下载的工程文件夹下的 bin 目录，然后选择 Superexpert.DataForm.dll ，这样就会把DataForm的两个控件集添加到工具箱中。正如你所看到的， OleDB控件都是绿色的而SQL控件都是红色的。





3．              把SqlDataPanel 控件放到页面上，然后把你想要的所有控件（如前图所见）也放上去。

4．              设置 SqlDataPanel 的属性，使它指向所请求的表，其他关键区域如下图所示：




技巧：
不要在设计模式下设置连接字符串。我曾这么做但是它不能工作，所以最好是在页面加载时进行设置。（我的连接字符串存放在 web.config 并指向 SQL Server中的Northwind数据库）

SqlDataPanel1.Connection = New _

  SqlConnection(System.Configuration._

  ConfigurationSettings.AppSettings("ConnStr"))

5．把 SqlDataNavigator 控件（它包含4个向导按钮）放到页面上，然后把它跟 SqlDataPanel 控件联系起来，代码如下：







SqlDataNavigator1.ControlToNavigate = Me.SqlDataPanel1

同样，你应该把相同的字符串跟向导控件联系起来，代码如下：

SqlDataNavigator1.Connection = Me.SqlDataPanel1.Connection

6．              把所有你要在这个表单中使用的控件放到页面上去，注意，一定是要列出来的控件集中的控件。举例来说，如果你想要在 TextBox控件中显示数据，你必须选择 DataTextBox 控件并把它放在你的 SqlDataPanel 控件上。







7．              每个数据控件中有两个属性是需要设置的：






DataField： 保存绑定区域的名字

DataType： 保存绑定区域的数据类型




8．运行这个程序，你将看到你可以平稳而快速地浏览Northwind数据库中Employees表中的数据。


提示：
如果你是直接从 Stephen 的网站下载这个控件的，那你将看到一条评估信息，而你下载本文附加的那个控件将不会出现评估信息。



9．Stephen的控件有“添加记录”，“更新”和“删除”几个按钮，但是我试了之后发现它们不起作用，所以你必须像处理常规按钮那样手动操作它们，这个例子将显示成这样：





这是操作这个例子的所有源代码[VB.NET]：

Private Sub Page_Load(ByVal sender As System.Object, _

         ByVal e As System.EventArgs) Handles MyBase.Load


 


    ' Put user code to initialize the page here

    ' Passing the Data Panel to the navigator coz it'll not

    ' work from design mode properties (bug)


 


    SqlDataNavigator1.ControlToNavigate = Me.SqlDataPanel1


 


    ' also passing the connection string from web.config

    ' becoz passing it from the design mode will not work (bug)


 


   SqlDataPanel1.Connection = New _

      SqlConnection(System.Configuration.ConfigurationSettings.AppSettings(_

                                                                 "ConnStr"))


 


    'and finally passing it to the navigator too.

    SqlDataNavigator1.Connection = Me.SqlDataPanel1.Connection

End Sub


 


'Handling the add record btn

Private Sub DataAddButton1_Click(ByVal sender As System.Object, _

        ByVal e As System.EventArgs) Handles DataAddButton1.Click


 


    Dim insertStr As String = "insert into Employees" & _

          " (LastName,FirstName,Title,City,Country,HomePhone,Notes) values('"_

          + Me.LastName_Txt.Text + "','" + Me.FirstName_Txt.Text + _

          "','" + Me.Title_Txt.Text + "', '" + Me.City_Txt.Text + _

          "','" + Me.Cntry_Txt.Text + "','" + Me.HomePhone_Txt.Text + _

          "','" + Me.Notes_Txt.Text + "')"


 


    Dim conn As New _

      SqlConnection(System.Configuration.ConfigurationSettings.AppSettings(_

                                                                  "ConnStr"))

    Dim cmd As New SqlCommand(insertStr, conn)


 


    Try

      conn.Open()

      cmd.ExecuteNonQuery()

    Finally

      conn.Close()

    End Try

End Sub



'Handling the delete btn

Private Sub Delete_Btn_Click(ByVal sender As System.Object, _

        ByVal e As System.EventArgs) Handles Delete_Btn.Click


 


    Dim delStr As String = _

       "delete from Employees where EmployeeID='" + _

       Me.EmpID_Txt.Text + "'"


 


    Dim conn As New _

      SqlConnection(System.Configuration.ConfigurationSettings.AppSettings(_

                                                                  "ConnStr"))


 


    Dim cmd As New SqlCommand(delStr, conn)


 


    Try

      conn.Open()

      cmd.ExecuteNonQuery()

    Finally

      conn.Close()

    End Try

End Sub



'Handling the update btn


 


Private Sub DataUpdateButton1_Click(ByVal sender As System.Object, _

   ByVal e As System.EventArgs) Handles DataUpdateButton1.Click


 


   Dim updateStr As String = "update Employees set LastName='" + _

                             Me.LastName_Txt.Text + "',FirstName='" + _

                             Me.FirstName_Txt.Text + "',Title='" + _

                             Me.Title_Txt.Text + "',City='" + _

                             Me.City_Txt.Text + "',Country= '" + _

                             Me.Cntry_Txt.Text + "',HomePhone='" + _

                             Me.HomePhone_Txt.Text + "',Notes='" + _

                             Me.Notes_Txt.Text + "' where EmployeeID='" + _

                             Me.EmpID_Txt.Text + "'"


 


    Dim conn As New _

      SqlConnection(System.Configuration.ConfigurationSettings.AppSettings(_

                                                                  "ConnStr"))


 


    Dim cmd As New SqlCommand(updateStr, conn)


 


    Try

      conn.Open()

      cmd.ExecuteNonQuery()

    Finally

      conn.Close()

    End Try

End Sub