Рефакторинг до n-го уровня

Для чего предназначена кнопка?

Мои первые шаги были бы такими:

• извлеките часть доступа к базе данных. (предупреждение: впереди код воздуха)

function getCustomer(CurrentCustomerID as Long)

strSQL = "select * from tblCustomers where ID = " & CurrentCustomerID
set rec1 = GlobalDataBase.openrecordset(strSQL)
result = 1

if rec1.recordcount >0 then
    getCustomer = rec1
else
    getCustomer = false
endif
end function

• составим функцию бизнес-логики:

function getCustomerDiscount(customerID as Long)

customer = getCustomer(customerID)

res = 1
if customer then
    if customer("category")=1) then
        res = .9
    endif
endif

getcustomerdiscount = res

end function

• затем измените кнопку:

Sub cmdMultiplier_Click() 
    pricemultiplier = getcustomerdiscount(currentcustomerid)
end sub

Обычно у вас будет код пользовательского интерфейса, реагирующий на события, инициированные пользователем, в данном случае на нажатие кнопки.

После этого это действительно зависит от того, как спроектирована ваша программа, самый простой дизайн будет заключаться в ссылке на экземпляр Customer, и он будет содержать свойство множителя. Ваш клиентский объект заполняется из данных в вашем DAL.

Проверка пользовательского интерфейса будет проходить на уровне пользовательского интерфейса, правила бизнес-проверки могут входить в ваш бизнес-объект, и тогда ваш DAL станет вашим уровнем сохраняемости.

Вот очень простой пример псевдокода:

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

тривиальный пример, да, но со всеми основными элементами - они просто принадлежат к 3 разным классам (см. ниже). Основная причина этого - принцип «разделения задач», то есть графический интерфейс имеет отношение только к элементам графического интерфейса пользователя, уровень Biz Logic связан только с бизнес-правилами, а уровень доступа к данным связан только с представлениями данных. Это позволяет поддерживать каждый уровень независимо и повторно использовать в приложениях:

'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, потому что это так легко сделать) - если вам нужно правило множителя цены в другом приложении, вы бы необходимо скопировать, вставить и отредактировать код в обработчике кнопок этого приложения. Теперь будет два места для поддержки одного и того же бизнес-правила и два места, где выполняется один и тот же запрос клиента.

Умение проводить рефакторинг - это хорошо. Теперь вы будете знать, как разделять слои. Однако я думаю, что вам будет лучше потратить время на обновление инструментов, которые вы используете одновременно. Есть ли у вас возможность сделать это с помощью VB.Net?

Один из способов сохранить существующую кодовую базу - это закодировать уровень данных и BR в VB.Net. Затем выставить BR через COM-интерфейс (это опция флажка в проекте). Затем вы можете использовать новый BR из вашего текущего интерфейса.

Как только все BR и DAL будут выполнены, вы будете в шаге от совершенно новой платформы.