CSLA.Net学习（1）——第一个小程序

CSLA是什么东西啊！项目需要，需要学习一下！

目前应用CSLA主要是为了验证数据，数据库开发的需要，要把程序结构分分层：数据实体Models、通用数据库操作Helper、数据操作DAL、业务逻辑BIL、系统界面UI；

应用CSLA开发的第一个测试程序，Csla版本为4.3.10.0，好像和3.X版本的区别还是蛮大的：

运行结果：

 

首先需要CSLA的类库：Csla.dll,Csla.Windows.dll。

包括Drill类，DrillList类和窗体类From1。

Drill类：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.ComponentModel;
using System.Linq;
using Csla;
using Csla.Data;
using Csla.Security;
namespace Models
{
    [Serializable]
    public class Drill :BusinessBase<Drill>
    {
          #region  Business Methods

        private   string aa;
        private static PropertyInfo<int> HoleIDProperty =
          RegisterProperty<int>(p => p.HoleID, "钻孔编号");
        public int HoleID
        {
            get { return GetProperty(HoleIDProperty); }
            set { SetProperty(HoleIDProperty, value); }
        }

        private static PropertyInfo<int> LayerIDProperty =
        RegisterProperty<int>(p => p.LayerID, "分层编号");
        public int LayerID
        {
            get { return GetProperty(LayerIDProperty); }
            set { SetProperty(LayerIDProperty, value); }
        }


        private static PropertyInfo<double> TopHeightProperty =
        RegisterProperty<double>(p => p.TopHeight, "顶板高度");
        public double TopHeight
        {
            get { return GetProperty(TopHeightProperty); }
            set { SetProperty(TopHeightProperty, value); }
        }


        public override string ToString()
        {
            return HoleID.ToString();
        }

        #endregion

        #region  Business Rules

        protected override void AddBusinessRules()
        {
            base.AddBusinessRules();

            BusinessRules.AddRule(new Csla.Rules.CommonRules.MinValue<int>(HoleIDProperty, 1));
            //BusinessRules.AddRule(new Csla.Rules.CommonRules.MinValue<int>(LayerIDProperty, 0));
            BusinessRules.AddRule(new Csla.Rules.CommonRules.MinValue<double>(TopHeightProperty, 0));
            BusinessRules.AddRule(new Csla.Rules.CommonRules.RegExMatch(LayerIDProperty, "^[0-9]*[1-9][0-9]*$", "要求类型为整形"));
        }

        #endregion

        #region  Factory Methods

        public static Drill NewOrder()
        {
            return DataPortal.Create<Drill>();
            //return new Drill();
        }

        public static Drill GetOrder(int id)
        {
            return DataPortal.Fetch<Drill>(id);
        }

        public static void DeleteOrder(int id)
        {
            DataPortal.Delete<Drill>(id);
        }

        public Drill()
        {
            MarkAsChild();
        }
        public Drill(int holeid ,int layerid):this()
        {
            using (BypassPropertyChecks)
            {
                this.HoleID = holeid;
                this.LayerID = layerid;
            }
        }
        #endregion
        protected override void AcceptChangesComplete()
        {
            System.Diagnostics.Debug.WriteLine(string.Format("Acc: {0} ({1}, {2})", HoleID, CurrentEditLevel, CurrentEditLevelAdded));
            base.AcceptChangesComplete();
        }

        protected override void UndoChangesComplete()
        {
            System.Diagnostics.Debug.WriteLine(string.Format("Und: {0} ({1}, {2})", HoleID, CurrentEditLevel, CurrentEditLevelAdded));
            base.UndoChangesComplete();
        }

        protected override void CopyStateComplete()
        {
            System.Diagnostics.Debug.WriteLine(string.Format("Beg: {0} ({1}, {2})", HoleID, CurrentEditLevel, CurrentEditLevelAdded));
            base.CopyStateComplete();
        }
        #region  Data Access

        public int CurrentEditLevel
        {
            get
            {
                return EditLevel;
            }
        }

        public int CurrentEditLevelAdded
        {
            get
            {
                Csla.Core.IEditableBusinessObject ebo = (Csla.Core.IEditableBusinessObject)this;
                return ebo.EditLevelAdded;
            }
        }
        #endregion
    }
}

DrillList类：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using Csla;
namespace Models
{
    class DrillList :BusinessBindingListBase<DrillList, Drill>
    {
    }
}

Form1窗体：

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Models;
namespace MineGeologyV10._1._0
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            DrillList list = new DrillList();
            list.Add(new Drill(1, 1));
            list.Add(new Drill(2, 2));
            list.Add(new Drill(3, 3));
            list.Add(new Drill(4, 4));
            list.BeginEdit();
            this.bindingSource1.DataSource = list;
            this.bindingSource1.ListChanged += new ListChangedEventHandler(bindingSource1_ListChanged);
            this.dataGridView1.DataSource = bindingSource1;
        }

        void bindingSource1_ListChanged(object sender, ListChangedEventArgs e)
        {
            System.Diagnostics.Debug.WriteLine(
        string.Format("{0}: {1}, {2}", e.ListChangedType.ToString(), e.NewIndex, e.OldIndex));
        }

        private void dataGridView1_DataError(object sender, DataGridViewDataErrorEventArgs e)
        {

        }
    }
}

这里发现一个问题：Csla实现数据datagridview中的验证，如果是数据类型错误，DataGridView会弹出错误对话框，这时单元格没有失去焦点，也就是说此时的验证是在UI层的，没有发生在BIL层，没有通过Csla来实现验证。而只有失去焦点，数据存入DrillList类对象时才进行业务逻辑的验证。所有我将DataGridView的Data_Error事件处理了一下，这样就不会弹出对话框了，只是让光标无法离开单元格。
原来我的单元格验证都是在DataGridView中进行的！这样的坏处是没有办法与界面分离。但是数据绑定的机制确实很复杂！！

接下来要和数据库结合起来开发！