学步园

    BaseTreeListForm 提供数据显示的窗体，通过重写方法实现你的数据显示
       
    属性
    AllowPaging:是否允许分页，如果允许，在重载BuildLists时需将PageArgs赋给DataAccess的PageArgs
    AllowAddNew:是否允许新增，如果不允许，工具栏上的图标将不可见
    AllowModify:是否允许修改，如果不允许，工具栏上的图标将不可见
    AllowDelete:是否允许删除，如果不允许，工具栏上的图标将不可见
    AllowImport:是否允许导入，默认为不导入。
    AllowTreeList:是否允许信息列表中显示树
    TypeRootName:左边类别树中顶级分类的名称
    TypeNameField:左边类别树中分类名称的字段名，一般规定为Name
    ChildCountField:左边类别树中判断是否有子节点的字段名，一般规定为ChildCount
    HasTreeRegion:是否显示左边类别树
    HasTreeToolbar:是否显示左边类别树中的工具栏菜单
    DblClickSelect:是否在双击右边信息条目时关闭窗体，并返回所选定的信息对象
    PageArgs:分页参数
    Purview:三态权限控制(添加、修改、删除)
    EditFormType:提供信息修改的窗体的类别名，该窗体应该继承BaseEditForm
    EditFormParmas:信息修改的窗体的构造参数
    TypeEditFormType:提供类别修改的窗体的类别名，该窗体应该继承BaseEditForm
    TypeEditFormParmas:类别修改窗体的构造参数
    QueryFormType:提供查询的窗体的类别名，该窗体应该继承BaseQueryForm
    ModelType:指定信息对象的类别，在有导入接口时才需要对些属性进行设置
    InfoParentId:指定默认的父ID字段，一般规定为ParentId
    ResultInfo:双击后返回的信息对象，对应于DblClickSelect属性
    ReloadOnModify:信息修改后是否重新从数据库加载显示，如果否，则使用所修改的对象显示
    FillOnLoad:窗体加载时是否加载信息数据

    保护的方法
    RegisterShortcutKey:注册窗体快捷键
    UnRegisterShortcutKey:注销窗体快捷键
    GetInfoFields:获取当前信息显示的所有字段数组,对应于Config/*.cls文件中定义的列
    CreateTypeButton:创建类别工具栏按钮
    CreateButton:创建信息工具栏按钮
    Reload:重新加载信息数据
    GetSelectedInfo:当前选择的多个信息
    GetSelectedInfoCount:获得选定信息的个数
    GetSelectedType

    重载方法
    FormatValue:格式化数据，在数据填充Node前，对数据进行处理，比如枚举的转换
    GetItemValue:对显示的信息数据进行处理
    BuildLists:提供信息数据 isfull:是否全部加载数据，如果使用分页，将只取出当前页内数据，但在打印及导出时，该值应该为true
    BuildTypes:提供分类数据
    CreateButtons:创建信息部份的工具栏
    CreateTypeButtons:创建分类部份的工具栏
    GetSelectedInfo:返回选定行的信息
    GetSelectedType:返回选定的类别
    ConfirmDelete:确认删除信息数据，ids为信息的id数组
    ConfirmDeleteType:确认删除类别
    AddInfo:添加信息数据
    ModifyInfo:修改信息数据
    RefreshInfo:刷新单条信息
    DeleteInfo:删除信息
    AddType:添加类别
    ModifyType:修改类别
    DeleteType:删除类别
    QueryInfo:查询信息
    OnDoubleClickInfo:双击信息时的处理
    ExportInfo:导出数据
    PrintInfo:打印数据
    ImportInfo:导入数据
    CreateDataHelper:提供DataHelper对象，在使用导入接口时才设置
    InsertRowValidate:导入，插入行时数据验证
    BeforeInsertRow:导入，数据插入前的处理
    BeforeSaveRow:导入，单条数据保存后的处理
    SetReportConfig:打印，设置报表上相关信息
    QuerySetTypeListData:查询，为查询窗体中的TypeListComboBox填充数据
    QuerySetTypeTreeData:查询，为查询窗体中的TypeTreeComboBox填充数据
    DisplayCount:显示统计数据，放在BuildLists里

    实例化时，要传入类别编辑窗体和信息编辑窗体的类别，这样可以直接调用窗体进行数据的添加与修改，如：
    EditFormType = typeof(frmEmployeeInfo);
    TypeEditFormType = typeof(frmDepartInfo);

    BuildTypes 构造左边分类的数据 parentId参数为父级id

        /// <summary>
        /// 构造类别集合
         /// </summary>
        /// <param name="parentId"></param>
        /// <returns></returns>
        protected override IList BuildTypes(int parentId)
        {
            //数据实体集合
            TCompanyTypes list = null;
            try
            {
                //数据访问类
                ATCompanyType objDAL = new ATCompanyType;
                QueryBuilder qb = new QueryBuilder();
                qb.Append(QueryRelation.And, QueryCompare.Equal, TCompanyType._BaseType, baseType.ToString("D"));
                qb.Append(QueryRelation.And, QueryCompare.Equal, TCompanyType._ParentId, parentId);
                list = objDAL.Select(qb.ToString(), "Sort Desc", null);
                objDAL.Dispose();
                objDAL = null;
            }
            catch (System.Exception e)
            {
                Utility.ShowErrorMessage(e.Message);
            }
            return list;
        }

    BuildLists 构造右边信息数据

        /// <summary>
        /// 构造信息集合
        /// </summary>
        /// <param name="queryArgs"></param>
        /// <param name="isFull"></param>
        /// <returns></returns>
        protected override IList BuildLists(bool isFull)
        {
            TCompanies list = null;
            try
            {
                ATCompany objDAL = (ATCompany)DAFactory.CreateDA(typeof(ATCompany));
                if (!isFull) objDAL.PageArgs = base.PageArgs;
                //得到所有字段
                string[] fields = GetInfoFields();
                QueryBuilder qb = new QueryBuilder();
                qb.Append(QueryRelation.And, QueryCompare.Equal, TCompany._BaseType, baseType.ToString("D"));
                qb.Append(QueryRelation.And, QueryCompare.Equal, TCompany._IsDelete, 0);
                qb.Append(QueryRelation.And, QueryCompare.Equal, TCompany._ParentId, ContextArgs.Instance.CompanyId);
                if (QueryArgs.TypeId != 0)
                {
                    qb.Append(QueryRelation.And, QueryCompare.Equal, TCompany._CompanyTypeId, QueryArgs.TypeId);
                }
                //加上查询的条件
                qb += QueryArgs.QueryBuilder;
                list = objDAL.Select(qb, QueryArgs.Order, fields);
                if (!isFull) base.PageArgs = objDAL.PageArgs;
                objDAL.Dispose();
                objDAL = null;
            }
            catch (System.Exception e)
            {
                Utility.ShowErrorMessage(e.Message);
            }
            return list;
        }

 

    这里的列头是通过xml文件创建的，相应的配置类为FaibClass.Common.Windows.Config.ColumnConfigItem。在Config目录下创建 窗体类名称.cls 文件，就可以显示列了。

显示配置文件(Config/*.cls)
<Columns>
  <Column>
    <Type> TreeList的Column的类别，可以是Column、NumberColumn、DateTimeColumn等
    <Text> 列头上显示的文本
    <Width> 宽度
    <ReportWidth> 报表中列的宽度，如果未设置使用Width
    <Align> 对齐
    <ImageIndex> 图标索引
    <Visible> 是否可见
    <Key> 对应的表字段
    <Formater> 格式,当Type为NumberColumn或DateTimeColumn时设置，具体可参考Forms库
    <CustomFormat> 自定义格式
    <EnumType> 枚举类别名
    <CountType> 统计类别
    <CountGroupBy> 要进行分组统计的字段名
    <CountGroupType> 可以对进行分组的字段进行枚举转换，这里是枚举的类名
    <NotReport> 不显示在打印报表里
    <Group> 可以根据不同的组设置列的可见性，注意这个值要使用FlagsAttribute
 </Column>
</Columns>

    GetSelectedType 获得当前选中的类别的实体信息

        /// <summary>
        /// 获取选定节点对应的类别实体信息
        /// </summary>
        /// <param name="node"></param>
        /// <returns></returns>
        protected override BaseModel GetSelectedType(Node node)
        {
            try
            {
                ATDepart objDAL = (ATDepart)DAFactory.CreateDA(typeof(ATDepart));
                //Node.Tag保存的是主键值
                TDepart info = objDAL.Get(node.Tag);
                objDAL.Dispose();
                return info;
            }
            catch (System.Exception e)
            {
                Utility.ShowErrorMessage(e.Message);
            }
            return null;
        }

    GetSelectedInfo 获得当前选中的信息的实体信息，代码与上面的一样。

    ConfirmDelete 确认删除信息

        /// <summary>
        /// 确认删除信息
        /// </summary>
        /// <param name="id">选中的id数组</param>
        /// <returns></returns>
        protected override bool ConfirmDelete(params string[] ids)
        {
            try
            {
                ATEmployee objDAL = (ATEmployee)DAFactory.CreateDA(typeof(ATEmployee));
                //更改删除标记
                bool result = objDAL.DataHelper.ExecuteNonQuery("UPDATE " + TEmployee._TableName +
                    " SET " + TEmployee._IsDelete + " = 1 WHERE " + TEmployee._PrimaryKey +
                    " IN (" + string.Join(",", ids) + ")") > 0;
                //真正的删除
                //bool result = objDAL.DeleteBy(ids);
                objDAL.Dispose();
                return result;
            }
            catch (System.Exception e)
            {
                Utility.ShowErrorMessage(e.Message);
            }
            return false;
        }

    ConfirmDeleteType 确认删除类别，代码与上面的一样

    数据的查询，可以不用指定QueryFormType，而在Config下创建 窗体类名称.pcs 文件，相应的配置类为FaibClass.Common.Windows.Config.PropertyColumnConfig。具体的配置请关注后期的BaseQueryForm类。

    数据的导入，将AllowImport设为true后，在Config下配置 窗体类名称.ips 文件，就可以进行数据导入了，相应的配置类为FaibClass.Common.Windows.Config.ImportConfig。

导入配置文件(Config/*.ips)
<ImportConfig>
  <TableName> 数据库表名
  <Columns>
    <Column>
      <Name> Excel中的列头名
      <Key> 表中的字段名
      <Primary> 是否唯一性
      <ConvertForm> 从哪个表的哪个字段转换 Table.TextField
      <ConvertTo> 转换到哪个字段 Table.IdField
      <Sample> 使用说明
      <Type> 类别，如果是Enum则要指定EnumType
      <Reference> 使用引用，则ConvertForm和ConvertTo相应的要配置
    </Column>
  </Columns>
</ImportConfig>

比如:
    <Column>
      <Name>推荐人类别</Name>
      <Key>RecommendType</Key>
      <Type>Enum</Type>
      <EnumType>FBS.Chance.Model.RecommendType, Model</EnumType>
      <Sample>员工(只能填员工,代理商/商家或者会员)</Sample>
    </Column>
    <Column>
      <Name>推荐人</Name>
      <Key>Recommend</Key>
      <Reference>RecommendType</Reference>
      <ConvertForm>会员:TMember.Card,员工:TEmployee.Code,代理商/商家:TCompany.Code</ConvertForm>
      <ConvertTo>TMember.Id,TEmployee.Id,TCompany.Id</ConvertTo>
      <Sample>huangxd(推荐人类别为会员时填入卡号,员工及商家填入帐号)</Sample>
    </Column>
    这个地方的推荐人有三种类型，而会员表里存储的推荐人ID是对应表中的ID，会员填入卡号转换为TMember中的Id，员工填入帐号转换为TEmployee中的Id等等。
    这时所说的Binary类型指的是，多个ID用(，)号连接后转换为byte存储，比如会员的爱好有多种，是定义在TInterest里的，这里就这样配置
    <Column>
      <Name>兴趣爱好</Name>
      <Key>Interest</Key>
      <Type>Binary</Type>
      <ConvertForm>TInterest.Name</ConvertForm>
      <ConvertTo>TInterest.Id</ConvertTo>
      <Sample>足球,游泳,登山(用半角逗号分隔)</Sample>
    </Column>

    BaseTreeListForm还可以在信息栏里显示树型结构，将AllowTreeList设为true，在BuildLists里使用QueryArgs.ParentId:

        /// <summary>
        /// 构造信息集合
        /// </summary>
        /// <param name="isFull"></param>
        /// <returns></returns>
        protected override IList BuildLists(bool isFull)
        {
            TRegions list = null;
            try
            {
                ATRegion objDAL = (ATRegion)DAFactory.CreateDA(typeof(ATRegion));
                string[] fields = GetInfoFields();

                QueryBuilder qb = new QueryBuilder();
                qb.Append(QueryRelation.And, QueryCompare.Equal, TRegion._ParentId, QueryArgs.ParentId);
                list = objDAL.Select(qb.ToString(), QueryArgs.Order, fields);
                objDAL.Dispose();
            }
            catch (System.Exception e)
            {
                Utility.ShowErrorMessage(e.Message);
            }
            return list;
        }

    也可以进行打印，在Config下配置 窗体类名称.rps 即可，详细的说明请参考BaseReportForm。

    BaseTreeListForm就说到这里，下一节介绍 BaseEditForm 。 
    http://www.cnblogs.com/faib/archive/2009/05/02/1447953.html