王朝网络
分享
 
 
 

类似BOOLEAN列的DATAGRIDTEXTBOX的改进与重写

王朝other·作者佚名  2006-01-31
宽屏版  字体: |||超大  

在这里我们来讲一篇关于如何进行数据列内容与显示操作的方法。这种方法类似于实现:有数据表test(id int not null primary key ,name varchar(20) ,sex bit ), 那么是否有方法不通过直接使用sql语句,如:select id ,name ,sex =case sex ( when true then ‘男’ when false then ‘女’ else sex end) 的形式来构建要显示的是“男”,“女”,而实际上存储的是true和false呢?当然,如果我们使用datagridboolcolumn,通过设置它的一些属性(truevalue,falsevalue)可以达到类似的效果,但对于那些非bit列呢?回答是肯定的。我们使用继承datagridtextboxcolumn类,然后重写GetColumnValueAtRow方法,来达到效果。GetColumnValueAtRow方法,把要从数据源的数据取出,然后判断后,返回我们想要在网格中显示的值。(代码见后面的详细代码)

这样,我们可以顺利地在网格中显示我们想要的数据了,但是还有另外一个问题,就是如果我们想在网格中修改数据,那么是否可以被提交给数据库呢?如果仅仅通过上面的操作,只是达到了显示的目的,还要重写edit,commit,abort方法,来达到点击单元格后修改内容,然后提交,最后更新到数据库。

效果图1

下面是程序的完整代码,这里只是抛砖引玉,希望你可以根据需要来作出相应的改进。

'************************************************************************************

'程序名称:CanSetValueDatagridTextbox

'功能说明:继承自datagridtextboxcolumn类的列样式,主要实现显示值与实际值的显示与更新

'参数说明:无

'返回值 :cansetvaluedatagridtextbox

'编写人员:闵峰

'日期时间:2005-06-16上午

'遗留问题:点击列标题排序会发生显示值的改变,这是一个bug吗?有待解决

'************************************************************************************

Public Class cansetvaluedatagridtextbox

Inherits System.Windows.Forms.DataGridTextBoxColumn

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'UserControl 重写 dispose 以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

'Windows 窗体设计器所必需的

Private components As System.ComponentModel.IContainer

'注意:以下过程是 Windows 窗体设计器所必需的

'可以使用 Windows 窗体设计器修改此过程。

'不要使用代码编辑器修改它。

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

components = New System.ComponentModel.Container()

End Sub

#End Region

Private rnum As Integer '列序号

Private rname As String = "" '列名称

Private m_type As Type '列的类型

Public Sub New(ByVal source As DataTable, ByVal rnum As Integer, ByVal displaytrue As String, ByVal truevalue As String, _

ByVal displayfalse As String, ByVal falsevalue As String)

rnum = rnum

m_displaytrue = displaytrue

m_valuetrue = truevalue

m_displayfalse = displayfalse

m_valuefalse = falsevalue

m_type = source.Columns(rnum).DataType

End Sub

Public Sub New(ByVal source As DataTable, ByVal rname As String, ByVal displaytrue As String, ByVal truevalue As String, _

ByVal displayfalse As String, ByVal falsevalue As String)

rname = rname

m_displaytrue = displaytrue

m_valuetrue = truevalue

m_displayfalse = displayfalse

m_valuefalse = falsevalue

m_type = source.Columns(rname).GetType

End Sub

Private m_displaytrue As String '显示的真值

Private m_displayfalse As String '显示的假值

Private m_valuefalse As String '存储的假值

Private m_valuetrue As String '存储的真值

'-------------以下内容操作数据的显示---------------

'重写该过程是为了以合适的形式来显示数据(★)

Protected Overrides Function GetColumnValueAtRow(ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Object

'从数据源获得指定行的数据(注意:这里使用的类型是object)

Dim Result As Object = MyBase.GetColumnValueAtRow(source, rowNum)

'显示的设置

If Result.ToString = m_valuetrue Then

Return Me.m_displaytrue

ElseIf Result.ToString = m_valuefalse Then

Return Me.m_displayfalse

ElseIf Result Is DBNull.Value Then

If Me.NullText Is Nothing Then

Return DBNull.Value

Else

Return Me.NullText

End If

Else

Throw New Exception("该列中存在没有指定显示的字符!")

End If

End Function

'---------------以下内容操作更新------------------

Private isediting As Boolean = False '是否在修改状态

Private oldvalue As Object '原始值

'点击单元格,准备编辑(★)

Protected Overloads Overrides Sub Edit(ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText As String, ByVal cellIsVisible As Boolean)

Console.WriteLine("edit") '---------

'直接触发父类事件,是为了达到点击后选中文本的效果。(如果不触发就要自己把textbox移动到对应的边框内)

MyBase.Edit(source, rowNum, bounds, [readOnly], instantText, cellIsVisible)

'设置修改码

isediting = True

'记录原始值

oldvalue = Me.GetColumnValueAtRow(source, rowNum)

End Sub

'对输入的修改进行提交(★)

Protected Overrides Function Commit(ByVal dataSource As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Boolean

Console.WriteLine("in commit") '---------

'如果修改码为真则意味着修改完毕

If Not isediting Then Return True

'获得单元格的内容

Dim currentvalue As Object = Me.TextBox.Text

Console.WriteLine(currentvalue) '---------

Try

currentvalue = setsuitablevalue(currentvalue)

SetColumnValueAtRow(dataSource, rowNum, currentvalue)

Catch ex As Exception

Return False

End Try

isediting = False

Invalidate()

Console.WriteLine("out commit") '---------

Return True

End Function

'放弃的处理

Protected Overrides Sub Abort(ByVal rowNum As Integer)

Console.WriteLine("abort")

isediting = False

Me.TextBox.Text = oldvalue

Me.Invalidate()

End Sub

'显示类型转换函数

Private Function getchangetype(ByVal s As String) As Object

Select Case m_type.ToString

Case "System.Integer"

Console.WriteLine("integer")

Return Convert.ToInt32(s)

Case "System.Boolean"

Console.WriteLine("boolean")

Return Convert.ToBoolean(s)

Case "System.String"

Return s

Case "System.Decimal"

Return Convert.ToDecimal(s)

End Select

End Function

Private Function setsuitablevalue(ByVal s As String) As Object

If s = Me.NullText Then

Return DBNull.Value

ElseIf s = m_displaytrue Then

Return getchangetype(m_valuetrue)

ElseIf s = m_displayfalse Then

Return getchangetype(m_valuefalse)

Else

Throw New Exception("输入非法,请检查输入后准备提交的值!")

End If

End Function

End Class

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
>>返回首页<<
推荐阅读
 
 
频道精选
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
© 2005- 王朝网络 版权所有