如果這去問Java的朋友，他們會用Java + JDBC或是Java + Hibernate來實作，如果詢問C#的朋友，他們馬上會用C#+ADO.NET在數秒之內完成，Delphi? 那選擇更多了，Delphi+dbExpress，Delphi+ADO，Delphi+,,,。VB呢? PHP呢? Python呢? 嗯這個問題太簡單了，許多人也許不根本不屑一顧。

但是仔細看看上面的模型，不管使用Java，C#，Delphi或是其他的程式語言，上面的企業邏輯規則都是一樣的，不會因為選擇的程式語言不同而改變，最多是實作方法不同的，那麼您也許會問然後呢?

讓我們換個角度想想，如果我們在企業邏輯模型中就完成GetClosedQAs方法呢?

看看下面的圖形，我在GetClosedQAs的Body特性值中直接使用了OCL來撰寫GetClosedQAs方法。為什麼要使用OCL? 因為這個企業邏輯規則是一樣的，不會因為用戶端的程式語言，平台或是技術而改變。

有了上面的企業邏輯模型之後，對於開發人員人說仍然必須搞清楚如何在用戶端使用企業邏輯模型，這不困難，讓我們愛揮一下技術人員的天賦，追根究底的往下挖。

一旦在企業邏輯模型中定義了GetClosedQAs之後，ECO會自動產生如下的程式碼:

    [UmlTaggedValue('Eco.Body', 'self.hasQA->select(closed)->asSet()')]

    function getClosedQAs: System.&Object;

嗯ECO使用了.NET的屬性來定義DevCoSeminar類別的getClosedQAs方法。再往下看，getClosedQAs的實作如下:

function DevCoSeminar.getClosedQAs: System.&Object;

type

  TArrayOfobject = array of &object;

begin

  Result := (System.&Object(Self.AsIObject.Invoke('getClosedQAs', New(TArrayOfobject, 0))));

end;

嗯，getClosedQAs呼叫了IObjectInstance的Invoke來執行'getClosedQAs'，回傳的結果是一個包含執行結果物件的物件陣列，。而IObjectInstance有如下的定義:

    public interface IObjectInstance: IObject

    {

        IObjectStateMachine StateMachine { get; }

        object Invoke(IMethod method, object[] parameters);

        object Invoke(string methodName, object[] parameters);

        object Invoke(IMethod method, IElement[] parameters);

    }

OK，很好，現在只要我們搞清楚如何擷取出getClosedQAs回傳的結果就可以取得依照企業邏輯模型定義的getClosedQAs方法的運算結果。下面的程式碼就是使用Delphi做為用戶端程式語言來存取執行的結果:

procedure TWinForm.btnQAs_Click(sender: System.Object; e: System.EventArgs);

var

  aSeminar : DevCoSeminar;

  anObject : System.&Object;

begin

  aSeminar := Self.cmhSeminar.Element.AsObject as DevCoSeminar;

  anObject := aSeminar.getClosedQAs;

  HandleQAs(anObject);

end;

現在唯一的難題就是如何從getClosedQAs方法回傳的型態為System.Object的結果值出運算結果。在這裡讓我給使用ECO的朋友一個暗示，對於像getClosedQAs方法執行OCL並且回傳結果物件串列的方法，這個回傳的結果都實作了ICollection介面，因此我們只需要把執行結果轉變型態為ICollection介面就可以使用Delphi的for…in迴圈或是C#的foreach迴圈取得結果，例如下面的程式碼就範例了從getClosedQAs的物件串列中取出所有符合條件的QA物件:

procedure TWinForm.HandleQAs(anObject: System.&Object);

var

  aQA : QA;

begin

  for aQA in (anObject as ICollection) do

  begin

    Self.lbResult.Items.Add(aQA.Question);

  end;

end;

執行一下上面的程式碼，我們就可以順利的得到正確的結果，下圖就是一個範例應用程式的執行結果畫面:

對於C#的朋友，程式碼和Delphi是一樣的，關鍵在企業邏輯模型，任何的用戶端程式語言都可以重覆使用企業邏輯模型中的設計:

private void button1_Click(object sender, System.EventArgs e)

{

  DevCoSeminar aSeminar = cmhSeminar.Element.AsObject as DevCoSeminar;

  System.Object anObject = aSeminar.getClosedQAs();

  HandleQAs(anObject);

}

我還是要問，您感覺到了什麼? 是繼續讓獨自的開發人員在不同的程式碼中仍然撰寫各自的程式碼? 為每一個類似的情形不斷的撰寫重覆的程式碼? 為不同的程式語言不斷的撰寫重覆的程式碼? 為不同的平台不斷的撰寫重覆的程式碼? 我想這沒有標準的答案，每個人的風格不同，有人永遠是打混戰的高手，有人卻能夠在知道了新的選擇之後開始思考這些新的選擇會或是可以帶來什麼改變。

也許學習MDA/DDA/ECO的價值之一是開始讓我們思考新的選擇以及新的選擇可能帶來的影響是什麼!