基类、接口的应用——表单控件:一次添加、修改一条记录,一次修改多条记录。(上)

简介: 好久没发帖子了,又加了不少的功能呀。(图片仅是测试,不代表什么表情。) 本来我也想写一个2007的总结的,但是看到很多人都写了,我就不凑热闹了,写点和代码有关系的吧。 写作原因: 1、在项目里做得最多的操作恐怕就是保存数据了,总是要写一大堆的代码,能不能简单一点呢?2005来了,似乎可以减少一些代码,但是03里怎么办呢? 2、基类、接口、策略模式,好多高手都讨论过了,但是都是理论上的,在实践中如何应用呢?在webform 里面又怎么使用呢? 目的: 1、做一个“控件”来应对各种表单的录入,包括一次保存一条记录、一次保存多条记录。
好久没发帖子了,又加了不少的功能呀。(图片仅是测试,不代表什么表情。)

本来我也想写一个2007的总结的,但是看到很多人都写了,我就不凑热闹了,写点和代码有关系的吧。

写作原因:
1、在项目里做得最多的操作恐怕就是保存数据了,总是要写一大堆的代码,能不能简单一点呢?2005来了,似乎可以减少一些代码,但是03里怎么办呢?
2、基类、接口、策略模式,好多高手都讨论过了,但是都是理论上的,在实践中如何应用呢?在webform 里面又怎么使用呢?

目的:
1、做一个“控件”来应对各种表单的录入,包括一次保存一条记录、一次保存多条记录。
2、写一下我对基类、接口、策略模式的理解,请各位高手批批。通过对一个实际中的例子的讨论,可以让新同学更好的理解吧。

针对的框架:
目前只考虑 asp.net1.1  (webform)。

先贴个图片,就是这样的表单



[开始了]

1、取值问题
表单里会有很多种控件,每一种控件的取值方法又不太一致,有的叫做 “Text”,有的叫做“SelectedValue”,甚至有的还要自己在写几行代码才行(比如 CheckBoxList)。

那么怎么才能让取值更简单一点呢?我想写一个方法(GetValue)来获取用户输入的数据,而且在取值的时候不必关心是什么控件,一个GetValue,就把值得到了,管它是什么控件呢!

如果用基类的话就要在控件的“共有”基类里面加一个方法,但是这个“共有”的基类也不是太好找,再有呢在.net框架里加点东东好像也不是太容易(或者是我学艺不精)。

我想到的解决方法呢就是使用接口。

先定义一个接口:IGetControlValue

 

Public   Interface IGetControlValue Interface IGetControlValue

    
ReadOnly Property ControlKind()Property ControlKind() As String
    
Function GetControlValue()Function GetControlValue() As String
        
End Interface

 然后呢再写几个自定义服务器控件(比如文本控件、下拉列表框了什么的),让他们继承这个接口。

目前我写了五个这样的控件:HBSTextBox 、HBSCheckBox 、HBSCheckBoxList 、HBSDropDownList 、HBSRadioButtonList 
他们都继承了IGetControlValue。

控件比较多,我就只贴出 HBSCheckBoxList 的代码吧,其他的都是类似的写法。

< ToolboxData( " <{0}:HBSCheckBoxList runat=server></{0}:HBSCheckBoxList> " ) >  _
 
Public   Class HBSCheckBoxList Class HBSCheckBoxList
    
Inherits System.Web.UI.WebControls.CheckBoxList
    
Implements IGetControlValue

实现接口#Region "实现接口"
    
<Bindable(True), Category("默认值"), DefaultValue("210"), Description("获取控件类别")> _
    
ReadOnly Property ControlKind()Property ControlKind() As String Implements IGetControlValue.ControlKind
        
Get
            
Return "210"
        
End Get
    
End Property


    
Public Function GetValue()Function GetValue() As String Implements IGetControlValue.GetControlValue
        
Return Me.GetSelectedValue

    
End Function

#End Region



初始化 OnInit。设置CssClass、DataValueField、DataTextField、#Region "初始化 OnInit。设置CssClass、DataValueField、DataTextField、"
    
Protected Overrides Sub OnInit()Sub OnInit(ByVal e As EventArgs)
        
Me.CssClass = "chk"
        
Me.DataValueField = "ID"
        
Me.DataTextField = "txt"
        
Me.Font.Size = FontUnit.Point(9)
    
End Sub

#End Region


    
'返回选择的ID值,用 , 分隔
函数实现  GetSelectedValue#Region "函数实现  GetSelectedValue"
    
Public Function GetSelectedValue()Function GetSelectedValue() As String
        
Dim item As ListItem
        
Dim tmpStr As String = ""
        
For Each item In Me.Items
            
If item.Selected Then
                tmpStr 
&= item.Value & ","
            
End If
        
Next
        tmpStr 
= tmpStr.TrimEnd(",")
        
Return tmpStr
    
End Function

#End Region



(什么?您问为什么还有一个 GetSelectedValue(),没办法,这个是以前就实现了的,接口是后加的,为了保持向下兼容

 好了取值的问题基本解决了。


2、寻找控件。

如果加了接口之后还是 this.Txt1.GetValue(); 或者  ((IGetControlValue)Txt1).GetControlValue();那就没什么意思了。
我想达到的是  ((IGetControlValue)Page.FindControl("控件ID")).GetControlValue();

这样做的好处是我只要知道控件的ID就可以得到数据,而不必去关心到底是什么控件,取值上有没有什么特殊的地方。
另外呢我还可以做一个循环,把控件ID放到一个数组里面,然后循环一下就可以了。控件(字段)再多我也不怕了,代码行数不会跟随字段的增加而增加。


3、开始保存数据(单条数据)。
在这里呢建议先看一下我以前发的一个帖子。
其实添加数据也可以这样简单——表单的第一步抽象(针对数据访问层)《怪怪设计论: 抽象无处不在 》有感

具体代码如下:

添加数据 #region 添加数据
        
private void Btn_Save2_Click(object sender, System.EventArgs e)
        {
            
//设置字段名
            
string[] str1 = new string[5];
            str1[
0= "TextBox";
            str1[
1= "CheckBox";
            str1[
2= "RadioButtonList";
            str1[
3= "CheckBoxList";
            str1[
4= "DropDownList";

            
//设置控件ID
            
string[] str2 = new string[5];
            str2[
0= "Txt2";
            str2[
1= "Chk2";
            str2[
2= "rdLst2";
            str2[
3= "chkLst2";
            str2[
4= "Lst2";

            
//取值用的数组
            
string[] str = new string[5];

            HBS.Controls.IGetControlValue vv ;
            
            
for (int i=0 ;i<str1.Length ;i++)
            {
                vv 
= (IGetControlValue)base.GetControl(str2[i],-2);
                
str[i] = vv.GetControlValue();
            }

            
//添加数据
            dal.InsertDataStr(
"_TestInterface",str1,str);
            
            
//弹出提示
            Functions.PageRegisterAlert(Page,
"添加成功");
        
        }
        #endregion

(自我感觉还是挺简洁的,dal.InsertDataStr("_TestInterface",str1,str); 是调用数据访问层里的函数,而这个“数据访问层”是通用的,已经编译成dll,可以随时调用)。


4、保存多条数据。

上面说的是一次保存一条数据,那么要一次保存多条怎么办呢?这里需要DataGrid来帮忙了。
拖一个DataGrid出来,然后做一下设置,加几个模版类。


然后呢保存代码如下:

一次修改多条数据 #region 一次修改多条数据
        
private void Btn_Save_Click(object sender, System.EventArgs e)
        {
            
//保存数据
            FormTableCntrlInfo[] cInfo 
= new FormTableCntrlInfo[5];
    
            cInfo[
0].FieldName = "TextBox";        //设置字段名
            cInfo[
1].FieldName = "CheckBox";
            cInfo[
2].FieldName = "RadioButtonList";
            cInfo[
3].FieldName = "CheckBoxList";
            cInfo[
4].FieldName = "DropDownList";

            cInfo[
0].ControlID = "Txt1";        //设置控件ID
            cInfo[
1].ControlID = "Chk1";
            cInfo[
2].ControlID = "rdLst";
            cInfo[
3].ControlID = "chkLst";
            cInfo[
4].ControlID = "Lst";

            
//设置控件的列索引,就是控件在DataGrid的第几行。
            cInfo[
0].ColumnIndex = 1;        
            cInfo[
1].ColumnIndex = 2;
            cInfo[
2].ColumnIndex = 3;
            cInfo[
3].ColumnIndex = 4;
            cInfo[
4].ColumnIndex = 5;

            FormTableSaveData form 
= new FormTableSaveData();
            form.dal 
= dal;                        //设置数据访问层的实例
            form.TableName 
= "_TestInterface";    //设置表名
            
string err = form.SaveDataByDataGrid(ref DG,ref cInfo,"testID={0}");  //修改数据

            
if (err.Length >2)
            {
                Functions.PageRegisterAlert(Page,
"保存时出现以外,请与管理员联系。");
                
return;
            }
            
            Functions.PageRegisterAlert(Page,
"保存成功");
        }
        #endregion

这里保存了五个字段的记录,怎么样代码不是太多吧。
最大的优点就是:当控件在DataGrid的列的位置发生变化的时候,修改是很方便的。

什么?您问取值的地方在哪里?已经被我封装起来了。
form.SaveDataByDataGrid 是一个 针对DataGrid 来说通用的方法,只要你是用DataGrid来“绘制”页面的话就可以使用这个方法,不必每次(或每个项目)都写一遍。


还是贴一下  SaveDataByDataGrid 的代码吧。

Public   Class FormTableSaveData Class FormTableSaveData

    
Public dal As DataAccessLayer           '数据访问层
    Public TableName As String = ""         '添加、修改用的表名


保存DataGrid里的全部数据#Region "保存DataGrid里的全部数据"
    
Public Function SaveDataByDataGrid()Function SaveDataByDataGrid(ByRef DG As DataGrid, ByRef cInfo() As FormTableCntrlInfo, ByVal Query As StringAs String

        
Dim item As DataGridItem
        
For Each item In DG.Items
            
If item.ItemType <> ListItemType.Header And item.ItemType <> ListItemType.Footer Then
                SaveDataByDataGridItem(item, cInfo, Query)
            
End If
        
Next


    
End Function

#End Region


保存DataGrid里的一条数据#Region "保存DataGrid里的一条数据"

    
Public Function SaveDataByDataGridItem()Function SaveDataByDataGridItem(ByRef item As DataGridItem, ByRef cInfo() As FormTableCntrlInfo, ByVal Query As StringAs String
        
Dim i As Int32
        
Dim tmpIndex As Int32
        
Dim ctrlIndex As Int32 = 0

        
Dim iValue As IGetControlValue

        
For i = 0 To item.Cells.Count - 1
            
'寻找对应的下标
            ctrlIndex = -1
            
For tmpIndex = 0 To cInfo.Length - 1
                
If i = cInfo(tmpIndex).ColumnIndex Then
                    ctrlIndex 
= tmpIndex
                    
Exit For
                
End If
            
Next

            
If ctrlIndex > -1 Then

                
Select Case cInfo(ctrlIndex).ControlKind
                    
Case "201""202""203""204""205""208""209""210"
                        
'文本框、多行文本、密码、日期文本、下拉列表 、复选框、单选组、多选组
                        '"201",  "202",   "203",  "204",   "205",    "208",   "209",   "210"
                        iValue = item.Cells(cInfo(ctrlIndex).ColumnIndex).FindControl(cInfo(ctrlIndex).ControlID)
                        
If iValue Is Nothing Then
                            PublicClass.ResponseWrite(
"没有找到[" & cInfo(ctrlIndex).ControlID & "]这个控件"False)
                        
Else
                            cInfo(ctrlIndex).FieldValue 
= iValue.GetControlValue()
                        
End If

                    
Case "206"      ' 级联下拉列表()  

                        
Dim tmpSplit(1As Char
                        tmpSplit(
0= "|"
                        tmpSplit(
1= ","
                        
Dim uLst As UniteDropDownList = CType(item.Cells(cInfo(ctrlIndex).ColumnIndex).FindControl(cInfo(ctrlIndex).ControlID), UniteDropDownList)
                        
If uLst Is Nothing Then
                            PublicClass.ResponseWrite(
"没有找到[" & cInfo(ctrlIndex).ControlID & "]这个控件"False)
                        
Else
                            
Dim myID() As String = uLst.ListOtherSelectedValue.Split(tmpSplit)
                            
Dim j As Int32 = 0
                            
For j = 0 To myID.Length
                                cInfo(i).FieldValue 
= myID(j)
                                ctrlIndex 
+= 1
                                i 
+= 1
                            
Next
                            ctrlIndex 
-= 1
                            i 
-= 1
                        
End If

                        
'Case "207"      ' 单选()

                    
Case "211"      ' HTML_FreeTextBox() 
                        Dim ftb As FreeTextBoxControls.FreeTextBox = CType(item.Cells(cInfo(ctrlIndex).ColumnIndex).FindControl(cInfo(ctrlIndex).ControlID), FreeTextBoxControls.FreeTextBox)
                        
If ftb Is Nothing Then
                            PublicClass.ResponseWrite(
"没有找到[" & cInfo(ctrlIndex).ControlID & "]这个控件"False)
                        
Else
                            cInfo(ctrlIndex).FieldValue 
= ftb.Text
                            cInfo(ctrlIndex).FieldValue 
= cInfo(ctrlIndex).FieldValue.Replace("'""''")
                            cInfo(ctrlIndex).FieldValue 
= cInfo(ctrlIndex).FieldValue.Replace("script""script")
                        
End If


                    
Case "212"      ' HTML_CuteEdit()

                    
Case "213"  '空行
                        cInfo(ctrlIndex).FieldValue = "_n_"

                
End Select

                ctrlIndex 
+= 1
            
End If

        
Next

        
'取值结束,保存数据
        Dim aa As Int32
        
Dim tmpQuery = Query

        
For aa = 0 To Query.Split("{").Length - 2
            tmpQuery 
= tmpQuery.Replace("{" & aa & "}", item.Cells(aa).Text)
        
Next

        
'Query = Query.Replace("{0}", item.Cells(0).Text)
        ' PublicClass.ResponseWrite(tmpQuery & "<BR>", False)
        dal.UpdateDataByFormTableCntrlInfo(TableName, cInfo, tmpQuery)

        
Return dal.ErrorMsg

    
End Function


#End Region



End Class

这样就基本OK了。今天刚刚写好,可能会有一些错误,另外还有一个问题没有说,还有几个延伸的地方。放在下集在说吧。

(上集完成)

相关文章
|
7月前
|
前端开发
Antd中Table列表行默认包含修改及删除功能的封装
Antd中Table列表行默认包含修改及删除功能的封装
173 0
|
7月前
|
Java
【Java】— —实现人物对象的增、删、改、查(注:对象的删除以逻辑删除为主,在person类中设置“删除状态字段”,字删除该字段时,将状态改为有效。)
【Java】— —实现人物对象的增、删、改、查(注:对象的删除以逻辑删除为主,在person类中设置“删除状态字段”,字删除该字段时,将状态改为有效。)
|
6月前
|
监控 Java
记录页面修改差异(java注解实现)
记录页面修改差异(java注解实现)
|
数据库
因祸得福——创建视图时改变字段的类型
因祸得福——创建视图时改变字段的类型
142 0
流程定义查询和删除
流程定义查询流程定义查询和删除
调用存储过程进行图片的插入或修改
调用存储过程进行图片的插入或修改
SwiftUI—如何使列表同时支持删除和移动记录的功能
SwiftUI—如何使列表同时支持删除和移动记录的功能
155 0
SwiftUI—如何使列表同时支持删除和移动记录的功能
|
SQL
【自然框架】表单控件 之 一个表单修改多个表里的记录
      FormView 确实挺方便的,不过他也有几个小问题,只把FormView拖到页面里是不行的,还得再拽几个文本框、下拉列表框这一类的控件,还得布局。然后还要弄一个DataSource的控件,利用这个控件把文本框等控件和字段对应上,DataSource也有一个致命的缺点,默认情况下,他是把SQL语句以属性的形式放在了.aspx页面里面。
903 0