VB.NET中“数据窗体向导”所生成的“添加”代码的改进 - 设计前沿
VB.NET中“数据窗体向导”所生成的“添加”代码的改进
文章出处：网上收集 作者：未知　发布时间：
????? 关键词:VB.NET中“数据窗体向导”所生成的“添加”代码的改进
在数据库应用程序开发中，我们知道数据操作的主要任务是：“浏览、编辑、删除、添加记录”,利用VB.NET的“数据窗体向导”可以帮助我们迅速创建实现上述功能的Windows 窗体及相关代码，这种自动生成的代码完全具有实用性和可借鉴性。然而笔者在使用中发现，在“数据窗体向导”的操作过程中，如果我们选择的是“单个控件的单个记录”显示样式，假如控件绑定到的数据源中的字段又有不允许为Null值的话，运行自动生成的窗体，单击“添加”后会出现错误。
为了避免该错误，已有的解决方法是：“添加”功能不使用“数据窗体向导”生成的代码，而是新建一窗体然后采用非数据绑定结构来单独实现“添加”功能。笔者经过探索发现完全没有必要另建窗体，只需对“数据窗体向导”生成的代码进行适当的改进就可以在同一个窗体中同时实现“浏览、编辑、删除、增加”功能，如下通过实例说明（注：开发工具为Microsoft Visual Studio .NET 2003 ，示例数据库是SQL Server 2000中的“pubs”；以下代码虽然以VB为例，但方法同样适用于VS.NET中的其它开发语言）。
有不允许为Null值的字段绑定到非TextBox类控件
如下图一所示就是属于这类情况，窗体中“contract”旁的复选框控件绑定到的列字段“contract”就不允许有Null值。运行该窗体并“加载”后，单击“添加”可以“新增”记录（编号为24的记录），但单击导航按钮（比如最后一条“&&”），记录位置不能移到该新增记录。
图一窗体及代码是由“数据窗体向导”自动生成（菜单操作：“文件/添加新项”，然后选 “数据窗体向导”），数据窗体实例的名称是“DEMO”，数据集的名称是“DS”，数据连接是以SQL Server 2000中的“pubs” 示例数据库为例，选择“authors”表，选择“单个控件的单个记录”显示样式，其它都采用“数据窗体向导”的默认值。图一这一类情况的改进方法是首先修改“添加”按钮的单击事件处理代码，如下所示。
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Me.BindingContext(objDS, &authors&).EndCurrentEdit()
Me.BindingContext(objDS, &authors&).SuspendBinding() '临时挂起数据绑定
Me.BindingContext(objDS, &authors&).AddNew()
'增加新记录
'如下两层循环先找出authors表中不允许为null的列字段，然后找出绑定到该字段的binding对象,
'依据绑定到的控件属性不同来为新增记录中不能为空的字段赋不同初始值
Dim i As Integer
For i = 0 To objDS.authors.Columns.Count - 1 '遍历authors表中所有列字段
'找出authors表中不允许为null的列字段
If objDS.Tables(&authors&).Columns(i).AllowDBNull = False Then
Dim j As Integer
For j = 0 To Me.BindingContext(objDS, &authors&).Bindings.Count - 1 '遍历所有Binding对象
'找出绑定到不允许为null字段的binding对象
If Me.BindingContext(objDS, &authors&).Bindings(j).BindingMemberInfo.BindingField = _
objDS.authors.Columns(i).ColumnName Then
'如果绑定到的控件的属性为Text
If BindingContext(objDS, &authors&).Bindings(j).PropertyName() = &Text& Then
'新增加记录中不能为null的字段赋初始值&&,该语句还可用紧挨着的注释语句代替！
Me.BindingContext(objDS, &authors&).Current(j) = &&
'BindingContext(objDS, &authors&).Current(i) = BindingContext(objDS, &authors&). _
Bindings(j).Control.Text()
Exit For '退出当前For循环，寻找下一个不允许为null的列字段
'如果绑定到的控件的属性为Checked(其它绑定属性…，应该可以自己仿照搞定了.)
If BindingContext(objDS, &authors&).Bindings(j).PropertyName = &Checked& Then
'新增加记录中不能为null的字段赋初始值True, 该语句可用紧挨着的4行注释语句代替！
Me.BindingContext(objDS, &authors&).Current(j) = True
'Dim tmpobj As Object
'tmpobj = BindingContext(objDS, &authors&).Bindings(j).Control
'tmpobj = CType(tmpobj, CheckBox)
'Me.BindingContext(objDS, &authors&).Current(j) = tmpobj.checked
Exit For '退出当前For循环，寻找下一个不允许为null的列字段
'如新增加行不需利用row_changing事件进行数值验证，可启用下边注释行
'Me.BindingContext(objDS, &authors&).EndCurrentEdit()
Me.BindingContext(objDS, &authors&).ResumeBinding()
'恢复数据绑定
'移动表中位置到新增加记录
Me.BindingContext(objDS, &authors&).Position = Me.BindingContext(objDS, &authors&).Count - 1
Catch eEndEdit As System.Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)
Me.BindingContext(objDS, &authors&).CancelCurrentEdit() '出错，取消新增加行
Me.BindingContext(objDS, &authors&).ResumeBinding()
Me.objDS_PositionChanged()
以上btnAdd.Click事件处理代码改进的实质是：临时挂起数据绑定，新增一记录，然后对记录中不允许为Null值的列字段赋值(如不需利用rowchanging事件进行新增记录数据检验，也可仅对不允许null值且不能绑定到文本框TextBox的字段赋初值)，最后恢复数据绑定。
此外，还要对四个导航按钮（第一条、上一条、下一条、最后一条）的单击事件处理程序作如下修改（为了简化，此处只以上一条“&”按钮的单击事件处理程序为例，其它按钮仿照）。
Private Sub btnNavPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavPrev.Click
Try '采用try语句进行错误处理(Null及唯一性）
Me.BindingContext(objDS, &authors&).Position = (Me.BindingContext(objDS, &authors&).Position - 1)
Catch ex As Exception
MessageBox.Show(ex.Message) '显示错误信息
Exit Sub '如有错误，不许移动位置
Me.objDS_PositionChanged()
如果想利用rowchanging事件对新增加或编辑…记录进行数据检验（建议），则还需要增加如下rowchanging事件处理代码。
Private Sub row_changing(ByVal sender As Object, ByVal e As DS.authorsRowChangeEvent)
'对新增加行进行数值验证
If e.Action = DataRowAction.Add Then
'此处为了简单，以字段au_id不能为&&为例
If editau_id.Text = && Then
Throw (New Exception(&数据不能为空&))
'还可以对记录的编辑值进行验证
'If e.Action = DataRowAction.Change Then
'此处填入编辑验证代码
'其它验证，依照上面加入吧
要启动rowchanging事件处理，请在程序的适当位置加入如下语句（本人是加在LoadDataSet()方法中的语句objDS.Merge(objDataSetTemp)后面）。
AddHandler objDS.authors.authorsRowChanging, AddressOf row_changing
虽然有不允许为Null值的字段，但全部都能绑定到TextBox类控件
为了说明方便，我们再利用“数据窗体向导”新建一窗体（注：新窗体可以建在上一个窗体的同一个项目中，数据窗体的名称是“demo2”，新建数据集名称为“ds2”），该数据窗体是绑定到“pubs”数据库中的“employee”表。如图二所示，该表中的所有不允许为Null值的字段都能绑定到TextBox类控件。
运行该窗体后，单击“加载”后可以新增记录（编号为44的记录），但是如果新增记录后不输入任何值而单击任一导航按钮（比如上一条“&”），会出现如图三所示错误。
这一类错误较轻，完全可以采用第一种情况的解决方法，当然如果你嫌多的话，还可以采用如下更为简单的方法： 在“数据窗体向导”自动生成的代码中，只需对四个导航按钮（第一条、上一条、下一条、最后一条）的单击事件处理程序代码进行适当修改（注意：还是按照第一种情况中四个导航按钮的代码修改方法进行修改），其它代码不变也不增加，一切就0k了，此时再试试，你会见到如图四友好的界面，提示你必须对不允许空值的列字段进行输入，然后才能改变记录位置。
当有不许Null值的字段绑定到数据窗体上时，为了避免出现新增记录错误，在上面笔者介绍了可以在代码中找到解决办法，另外我们还可以在数据集中找到解决办法：“在数据集的架构中，对不允许Null值的列字段给它设置一默认值即可”，当然具体采用哪种解决方法还是请你根据实际情况灵活选择。
上面给出了第一种情况的主要解决代码，末尽之处请大家参照下边完整代码。
Public Class DEMO
Inherits System.Windows.Forms.Form
'为了简化，“Windows 窗体设计器生成的代码”去掉了，记住在“数据窗体向导”执行时按照以下要求即可。
'数据窗体实例的名称是“DEMO”，数据集的名称是“DS”，数据连接是以SQL Server 2000中
'的“pubs” 示例数据库为例，选择“authors”表、“单个控件的单个记录”显示样式,其它都采用的默认值。
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.BindingContext(objDS, &authors&).CancelCurrentEdit()
Me.objDS_PositionChanged()
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If (Me.BindingContext(objDS, &authors&).Count & 0) Then
Me.BindingContext(objDS, &authors&).RemoveAt(Me.BindingContext(objDS, &authors&).Position)
Me.objDS_PositionChanged()
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Me.BindingContext(objDS, &authors&).EndCurrentEdit()
Me.BindingContext(objDS, &authors&).SuspendBinding()
Me.BindingContext(objDS, &authors&).AddNew()
Dim i As Integer
For i = 0 To objDS.authors.Columns.Count - 1
If objDS.Tables(&authors&).Columns(i).AllowDBNull = False Then
Dim j As Integer
For j = 0 To Me.BindingContext(objDS, &authors&).Bindings.Count - 1
If Me.BindingContext(objDS, &authors&).Bindings(j).BindingMemberInfo.BindingField = _
objDS.authors.Columns(i).ColumnName Then
If BindingContext(objDS, &authors&).Bindings(j).PropertyName() = &Text& Then
Me.BindingContext(objDS, &authors&).Current(j) = &&
'BindingContext(objDS, &authors&).Current(i) = BindingContext(objDS, &authors&). _
Bindings(j).Control.Text()
If BindingContext(objDS, &authors&).Bindings(j).PropertyName = &Checked& Then
Me.BindingContext(objDS, &authors&).Current(j) = True
'Dim tmpobj As Object
'tmpobj = BindingContext(objDS, &authors&).Bindings(i).Control
'tmpobj = CType(tmpobj, CheckBox)
'Me.BindingContext(objDS, &authors&).Current(i) = tmpobj.checked
Me.BindingContext(objDS, &authors&).ResumeBinding()
Me.BindingContext(objDS, &authors&).Position = Me.BindingContext(objDS, &authors&).Count - 1
Catch eEndEdit As System.Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)
Me.BindingContext(objDS, &authors&).CancelCurrentEdit()
Me.BindingContext(objDS, &authors&).ResumeBinding()
Me.objDS_PositionChanged()
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
'尝试更新数据源。
Me.UpdateDataSet()
Catch eUpdate As System.Exception
'在此处添加错误处理代码。
'显示错误信息(如果有)。
objDS.RejectChanges() '我增加的语句
System.Windows.Forms.MessageBox.Show(eUpdate.Message)
Me.objDS_PositionChanged()
Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
'尝试加载数据集。
Me.LoadDataSet()
Catch eLoad As System.Exception
'在此处添加错误处理代码。
'显示错误信息(如果有)。
System.Windows.Forms.MessageBox.Show(eLoad.Message)
Me.objDS_PositionChanged()
Private Sub btnNavFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavFirst.Click
Me.BindingContext(objDS, &authors&).Position = 0
Catch ex As Exception
MessageBox.Show(ex.Message)
Me.objDS_PositionChanged()
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
' Me.BindingContext(objDS, &authors&).Position = (Me.objDS.Tables(&authors&).Rows.Count - 1)
'注意下一条语句我进行了修改
Me.BindingContext(objDS, &authors&).Position = Me.BindingContext(objDS, &authors&).Count - 1
Catch ex As Exception
MessageBox.Show(ex.Message)
Me.objDS_PositionChanged()
Private Sub btnNavPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavPrev.Click
Try '采用try语句进行错误检查(Null及唯一性）
Me.BindingContext(objDS, &authors&).Position = (Me.BindingContext(objDS, &authors&).Position - 1)
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub '如有错误，不许移动位置
Me.objDS_PositionChanged()
Private Sub btnNavNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavNext.Click
'If BindingContext(objDS, &authors&).Position = BindingContext(objDS, &authors&).Count - 1 Then
MessageBox.Show(&数据到顶了！&)
Me.BindingContext(objDS, &authors&).Position = (Me.BindingContext(objDS, &authors&).Position + 1)
Catch ex As Exception
MessageBox.Show(ex.Message)
Me.objDS_PositionChanged()
Private Sub objDS_PositionChanged()
Me.lblNavLocation.Text = (((Me.BindingContext(objDS, &authors&).Position + 1).ToString + & 的 &) _
+ Me.BindingContext(objDS, &authors&).Count.ToString)
Private Sub btnCancelAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelAll.Click
Me.objDS.RejectChanges()
Me.objDS_PositionChanged() '我增加的语句
Public Sub UpdateDataSet()
'创建一个新数据集来保存对主数据集所做的更改。
Dim objDataSetChanges As DS = New DS
'停止当前的任何编辑。
Me.BindingContext(objDS, &authors&).EndCurrentEdit()
'获取对主数据集所做的更改。
objDataSetChanges = CType(objDS.GetChanges, DS)
'检查是否做了任何更改。
If (Not (objDataSetChanges) Is Nothing) Then
'需要做一些更改，所以尝试通过调用 update 方法
'和传递数据集以及任何参数来更新数据源。
Me.UpdateDataSource(objDataSetChanges)
objDS.Merge(objDataSetChanges)
objDS.AcceptChanges()
Catch eUpdate As System.Exception
'在此处添加错误处理代码。
Throw eUpdate
'添加代码以检查返回的数据集中是否有任何可能已被
'推入到行对象错误中的错误。
Public Sub LoadDataSet()
'创建一个新数据集以保存从 FillDataSet 调用返回的记录。
'使用了一个临时数据集，这是因为填充现有的数据集
'需要重新绑定数据绑定。
Dim objDataSetTemp As DS
objDataSetTemp = New DS
'尝试填充临时数据集。
Me.FillDataSet(objDataSetTemp)
Catch eFillDataSet As System.Exception
'在此处添加错误处理代码。
Throw eFillDataSet
'清空数据集中的旧记录。
objDS.Clear()
'将记录合并到主数据集中。
objDS.Merge(objDataSetTemp)
'我在此处加入rowchanging事件
AddHandler objDS.authors.authorsRowChanging, AddressOf row_changing
Catch eLoadMerge As System.Exception
'在此处添加错误处理代码。
Throw eLoadMerge
Public Sub UpdateDataSource(ByVal ChangedRows As DS)
'在有挂起的更改时，只需要更新数据源即可。
If (Not (ChangedRows) Is Nothing) Then
'打开连接。
Me.OleDbConnection1.Open()
'尝试更新数据源。
OleDbDataAdapter1.Update(ChangedRows)
Catch updateException As System.Exception
'在此处添加错误处理代码。
Throw updateException
'无论是否引发了异常都关闭连接。
Me.OleDbConnection1.Close()
Public Sub FillDataSet(ByVal dataSet As DS)
'在填充数据集前关闭约束检查。
'这允许适配器填充数据集而不用考虑
'表之间的依赖项。
dataSet.EnforceConstraints = False
'打开连接。
Me.OleDbConnection1.Open()
'尝试通过 OleDbDataAdapter1 填充数据集。
Me.OleDbDataAdapter1.Fill(dataSet)
Catch fillException As System.Exception
'在此处添加错误处理代码。
Throw fillException
'重新打开约束检查。
dataSet.EnforceConstraints = True
'无论是否引发了异常都关闭连接。
Me.OleDbConnection1.Close()
Private Sub row_changing(ByVal sender As Object, ByVal e As DS.authorsRowChangeEvent)
'对新增加行进行数值验证
If e.Action = DataRowAction.Add Then
'此处为了简单，以字段au_id不能为&&为例
If editau_id.Text = && Then
Throw (New Exception(&数据不能为空&))
'还可以对记录的编辑值进行验证
'If e.Action = DataRowAction.Change Then
'此处填入编辑验证代码
'其它验证，依照上面加入吧
以上代码在Microsoft Visual Studio .NET 2003 + SQL Server 2000中的“pubs” 示例数据库中调试通过。
?????????????? 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
窗体、命令按钮、基本输入输出控件
下载积分：488
内容提示：vb3第三章
窗体、命令按钮、基本输入输出控件
文档格式：PPT|
浏览次数：1|
上传日期： 11:36:48|
文档星级：
该用户还上传了这些文档
下载文档:vb3第三章
窗体、命令按钮、基本输入输出控件.PPT
官方公共微信等　级：贵宾
威　望：63
帖　子：3686
专家分：24679
附件: 只有本站会员才能下载或查看附件，请
来　自：湖南科技大学
等　级：live41
帖　子：2076
专家分：9409
问题解决！窗体的Autoredraw=true.
[ 本帖最后由 qq 于
06:54 编辑 ]
&&&唯实惟新 至诚致志
来　自：江苏
等　级：新手上路
Dim i As Integer, j As Integer,M As Integer
For i = 9 To 1 step -1
&&For j = 1 To i
&&&&&&M = j * i
&&&&&&Print j & &*& & i & &=& & M & &&&&;
来　自：江苏
等　级：新手上路
我知道了 楼主在耍新手。。。
来　自：湖南科技大学
等　级：live41
帖　子：2076
专家分：9409
没有，VB不太懂！
&&&唯实惟新 至诚致志
等　级：新手上路
搂住写得很好
等　级：新手上路
楼主你呀的故意的
来　自：湖南科技大学
等　级：live41
帖　子：2076
专家分：9409
VB只是当初随便看了下！
&&&唯实惟新 至诚致志
等　级：新手上路
原来在autoredraw这里，我一直看不出来。
版权所有，并保留所有权利。
Powered by , Processed in 0.019541 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights ReservedVisual Studio2010里VB 如何在窗体上print？？？
[问题点数：20分，结帖人xurilenovo]
Visual Studio2010里VB 如何在窗体上print？？？
[问题点数：20分，结帖人xurilenovo]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2012年 总版技术专家分年内排行榜第四
2014年10月 总版技术专家分月排行榜第一2014年9月 总版技术专家分月排行榜第一2013年11月 总版技术专家分月排行榜第一2013年10月 总版技术专家分月排行榜第一2013年9月 总版技术专家分月排行榜第一2013年6月 总版技术专家分月排行榜第一2013年2月 总版技术专家分月排行榜第一2013年1月 总版技术专家分月排行榜第一
2011年5月 VB大版内专家分月排行榜第一2011年4月 VB大版内专家分月排行榜第一2011年3月 VB大版内专家分月排行榜第一2011年2月 VB大版内专家分月排行榜第一2011年1月 VB大版内专家分月排行榜第一2010年12月 VB大版内专家分月排行榜第一2010年11月 VB大版内专家分月排行榜第一2002年2月 VB大版内专家分月排行榜第一2002年1月 VB大版内专家分月排行榜第一
2002年3月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
VB知识点复习及习题
下载积分：1000
内容提示：窗体
窗体(form)是vb程序设计的平台，所有的控件都要放置在窗体上，是程序运行时用户与程序交互操作的实际窗口。 1、主要属性：
（1）名称(name)：决定窗体的名称；
（2）caption：决定窗体标题栏显示的内容； （3）backcolor：决定窗体的背景颜色； （4）borderstyle：决定窗体的边框样式；
（5）forecolor：决定窗体的前景颜色；在窗体上绘制的图形或显示的文本都采用此颜色；
（6）font：决定在窗体中输出的字符的字体、大小等特性； （7）picture：决定要在窗体上显示的图片。
（8）controlbox：决定窗体右上角是否具有控制菜单； （9）icon：决定运行时窗体处于最小化时所显示的图标；
（10）maxbutton、minbutton：决定窗体的标题栏中是否具有最大化、最小化按钮；
（11）visible：决定窗体运行时是否可见；
（12）windowstate：决定运行时窗体是正常、最小化还是最大化； 2、事件：
（1）click：单击窗体不含任何其他控件的空白区域，引发该事件； （2）dblclick：双击窗体不含任何其他控件的空白区域，引发该事件；
（3）load：当窗体及其所有控件被装入内存时，引发该事件；该事件通常用来在启动应用程序时对属性和变量进行初始化的。 3、方法：
（1）print：在窗体上输出文本信息；
格式：[对象.]print [{spc(n) |tab(n)}][表达式列表][;|,]
如：在窗体上显示&你好&：
print &你好&
form1.print &你好&
文档格式：DOC|
浏览次数：1|
上传日期： 09:02:34|
文档星级：
该用户还上传了这些文档
下载文档:VB知识点复习及习题.DOC
官方公共微信}