数据表单向导的快速实现

80酷酷网    80kuku.com

  数据
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

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: