Refactor to n-tier

Question

DAO를 사용하는 독학 vb6 프로그래머입니다.

Sub cmdMultiplier_Click() 'Button on form, user interface ' 
    dim Rec1 as recordset 
    dim strSQL as string 

    strSQL = "select * from tblCustomers where ID = " & CurrentCustomerID 'inline SQL ' 
    set rec1 = GlobalDataBase.openrecordset(strSQL) ' Data access ' 

    if rec1.bof <> true or rec1.eof <> true then 
    if rec1.fields("Category").value = 1 then 
     PriceMultiplier = 0.9   ' Business Logic ' 
    else 
     priceMultiplier = 1 
    end if 
end if 
End Sub 

이 (가) 위의 CRUD 애플리케이션의 전체 소스 코드 척하십시오 : 아래는 내가 휘젓다 수있는 코드의 전형적인 조각의 예입니다. 이 디자인이 나쁘다는 것을 알고, 모든 것이 함께 섞여 있습니다. 이상적으로는 세 개의 개별 레이어, 사용자 인터페이스, 비즈니스 로직 및 데이터 액세스가 있어야합니다. 나는 이것이 바람직한 이유를 알아 낸다. 그러나 그것이 어떻게 끝났는지 모르겠다. 그리고 나는 그와 같은 분리가 왜 좋은지 완전히 이해하지 못하는 이유가 무엇인지를 으로 생각한다. 누군가가 위의 말도 안되게 위의 리팩토링을 할 수 있다면 길 아래에 더 많이있을 것이라고 생각합니다. 3 단계로 간단한 예를 들어보세요.

Answer 1

사소한 예, 예,하지만 모든 기본적인 요소 :

여기에 아주 기본적인 의사 코드의 예입니다. 이것의 주된 이유는 "관심의 분리"원칙입니다. 즉, GUI는 GUI와 관련이 있으며 비즈 로직 레이어는 비즈니스 규칙에만 관련되며 데이터 액세스 레이어는 데이터 표현에만 관련됩니다. 이는 각 계층이 독립적으로 유지 및 애플리케이션에서 재사용 할 수 있습니다 :

'in Form class - button handler 
Sub cmdMultiplier_Click() 
    PriceMultiplier = ComputePriceMultiplier(CurrentCustomerId) 
End Sub 

'in Biz Logic class 
Function ComputePriceMultiplier(custId as Integer) as Double 
    Dim cust as Customer = GetCustomer(custId) 
    if cust.Category = 1 then 'please ignore magic number, real code uses enums 
     return 0.9 
    end if 
    return 1 
End Function 

'in Data Access Layer class 
Function GetCustomer(custId as Integer) as Customer 
    Dim cust as Customer = New Customer 'all fields/properties to default values 
    Dim strSQL as String = "select * from tblCustomers where ID = " & custId 
    set rec1 = GlobalDataBase.openrecordset(strSQL) ' Data access ' 
    if rec1.bof <> true or rec1.eof <> true then 
     cust.SetPropertiesFromRecord(rec1) 
    end if 
    return cust 
End Function 

[현재 고객을 캐시 것 '진짜'응용 프로그램 등 고객 쿼리에 대한 상수 또는 저장 프로 시저를 가지고; 간결함을 위해 무시 됨]

원래의 모든 걸음 걸이 처리기 예제와 비교해보십시오. (이 방법은 그렇게 쉽게하기 때문에 VB 코드에서 흔히 볼 수 있습니다.) - 가격 승수가 필요한 경우 규칙을 다른 응용 프로그램에서 사용하려면 해당 응용 프로그램의 단추 처리기에 코드를 복사, 붙여 넣기 및 편집해야합니다. 이제 동일한 비즈니스 규칙을 유지하는 두 곳과 동일한 고객 쿼리가 실행 된 두 곳이 있습니다.

Answer 2

버튼의 용도는 무엇입니까?

나의 첫 번째 단계는 다음과 같습니다

• 데이터베이스를 액세스하는 부분의 압축을 풉니 다. (주의 : 전방 공기 코드()만큼 CurrentCustomerID)

함수 getCustomer

STRSQL가 = &가 세트 rec1이 = GlobalDataBase.openrecordset (STRSQL) 결과 CurrentCustomerID "ID가 = tblCustomers * FROM"= 1

경우 rec1.recordcount> 0 다음 getCustomer = rec1이 다른 getCustomer = 거짓 ENDIF 단부 함수

"만약 고객 (다음 을

기능 getCustomerDiscount (롱 등 CUSTOMERID)

고객 = getCustomer (고객 ID)

입술 = 1 경우 고객 :

• 는 비즈니스 로직 기능을 구성 카테고리 ") = 1) then res = .9 endif endif
  • 다음

    getcustomerdiscount = 입술

    단부 기능 버튼을 변경 :

  cmdMultiplier_Click()

서브 pricemultiplier = getcustomerdiscount 전형적 (currentcustomerid) 최종 서브

Answer 3

는 것 사용자가 제기 한 이벤트 (이 경우 버튼 클릭)에 응답하는 UI 코드를 갖습니다.

그런 다음 프로그램이 어떻게 설계되었는지에 따라 달라 지므로 가장 기본적인 설계는 고객 인스턴스를 참조하는 것이고 배율 속성을 포함하게됩니다. 고객 개체가 DAL의 데이터로 채워집니다.

UI 유효성 검사는 UI 레이어로 이동하고 비즈니스 유효성 검사 규칙은 비즈니스 개체로 전달 된 다음 DAL이 지속성 계층입니다. 그들은 단지 3 개 개의 다른 클래스에 속하는 (아래 참조) -

가

btnClick 
    Dim Cust as New Customer(ID) 
    multplr = Cust.DiscountMultiplier 
End Click 

Class Customer 
    Sub New(ID) 
     Data = DAL.GetCustomerData(ID) 
     Me.Name = Data("Name") 
     Me.Address = Data("Address") 
     Me.DiscountMultiplier = Data("DiscountMultiplier") 
    End Sub 
    Property ID 
    Property Name 
    Property Address 
    Property DiscountMultiplier 
     Return _discountMultiplier 
    End 
End Class 


Class DAL 
    Function GetCustomerData(ID) 
     SQL = "Paramaterized SQL" 
     Return Data 
    End Function 
End Class 

Answer 4

리팩토링하는 방법을 아는 것은 좋은 일입니다. 이제는 레이어를 분리하는 방법을 알게 될 것입니다.
그러나 귀하의 시간은 동시에 사용하는 도구를 업그레이드하는 데 더 많은 시간을 소비 할 것으로 생각됩니다. 당신은 VB.Net을 가지고 그것을 고려해야합니까?

기존 코드베이스를 보존하는 방법은 VB.Net에서 데이터 레이어와 BR을 코딩하는 것입니다. 그런 다음 BR을 COM 인터페이스를 통해 노출합니다 (이 옵션은 프로젝트의 확인란 옵션입니다). 그런 다음 현재 인터페이스에서 새 BR을 사용할 수 있습니다.

BR과 DAL이 모두 완료되면 완전히 새로운 플랫폼으로 한발 더 나아갈 수 있습니다.