重构为 n 层

Question

我是一名自学的 vb6 程序员，使用 DAO。 下面是我可以编写的一段典型代码的示例：

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

该按钮的用途是什么？

我的第一步是：

• 提取访问数据库的部分。 （警告：前面有空代码）

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

Answer 2

是的，这是一个简单的例子，但具有所有基本元素 - 它们只是属于 3 个不同的类别（见下文）。 主要原因是“关注点分离”原则，即GUI只关心GUI的东西，Biz逻辑层只关心业务规则，而数据访问层只关心数据表示。 这允许每个层独立维护并跨应用程序重用：

'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 3

通常，您的 UI 代码会响应用户引发的事件，在本例中为“按钮单击”。

之后，这实际上取决于您的程序的设计方式，最基本的设计是引用 Customer 实例，并且它将包含一个 multiplier 属性。
您的客户对象是根据 DAL 中的数据填充的。

UI 的验证将进入 UI 层，业务验证规则可以进入您的业务对象，然后您的 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

Answer 4

知道如何重构是一件好事。 从现在起您将知道如何分离图层。
不过，我认为您最好花时间来升级您同时使用的工具。 你有考虑过用VB.Net来做吗？

保留现有代码库的一种方法是在 VB.Net 中对数据层和 BR 进行编码。 然后通过COM接口公开BR（这是项目中的复选框选项）。 然后，您可以从当前界面使用新的 BR。

完成所有 BR 和 DAL 后，您将迈向全新平台。