【翻译】数据表单向导的快速实现
原文出处：http://www.codeproject.com/aspnet/aspnetdataformnavigator.asp数据表单向导的快速实现
作者：Mahmoud Nasr
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控件都是红色的。
[url=http://www.codeproject.com/aspnet/aspnetdataformnavigator/ControlList.JPG]
3． 把SqlDataPanel 控件放到页面上，然后把你想要的所有控件（如前图所见）也放上去。
4． 设置 SqlDataPanel 的属性，使它指向所请求的表，其他关键区域如下图所示：
[url=http://www.codeproject.com/aspnet/aspnetdataformnavigator/Properties.JPG]
技巧：不要在设计模式下设置连接字符串。我曾这么做但是它不能工作，所以最好是在页面加载时进行设置。（我的连接字符串存放在 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： 保存绑定区域的数据类型
[url=http://www.codeproject.com/aspnet/aspnetdataformnavigator/Properties_Txt.JPG]
8．运行这个程序，你将看到你可以平稳而快速地浏览Northwind数据库中Employees表中的数据。
[url=http://www.codeproject.com/aspnet/aspnetdataformnavigator/non_Evaluated.JPG]
提示：如果你是直接从 Stephen 的网站下载这个控件的，那你将看到一条评估信息，而你下载本文附加的那个控件将不会出现评估信息。
9．Stephen的控件有“添加记录”，“更新”和“删除”几个按钮，但是我试了之后发现它们不起作用，所以你必须像处理常规按钮那样手动操作它们，这个例子将显示成这样：
[url=http://www.codeproject.com/aspnet/aspnetdataformnavigator/insert.JPG]
这是操作这个例子的所有源代码[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
