数据表单向导的快速实现
2024-07-21 02:16:07
供稿：网友
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
