Di buku itu disebutkan aplikasi sebaiknya di pecah menjadi 3 layer yaitu :
- Presentation layer yang bertanggung jawab terhadap user interface
- Bussiness logic layer yang berisi logika bisnis
- Data Access layer yang bertanggung jawab terhadap akses ke database
berikut ini contoh sebuah class customer
Public Class Customer
Private _customerid As String
Private _customername As String
Public Property CustomerID() As String
Get
Return _customerid
End Get
Set(ByVal value As String)
_customerid = value
End Set
End Property
Public Property CustomerName() As String
Get
Return _customername
End Get
Set(ByVal value As String)
_customername = value
End Set
End Property
Public Function Create(custid as String, custname as String) As Boolean
Try
Dim sql As String = "Insert Into tr_customer(cust_id,cust_name) Values('" & custid & "','" & custname & "')"
Dim mycmd As SqlCommand = New SqlCommand(sql, connection)
mycmd.ExecuteNonQuery()
Return True
Catch ex As Exception
MessageBox(ex.Message.ToString)
End Try
End Function
End Class
Method Create diatas memiliki 2 parameter bertype string, karena kita sudah mempunyai class customer maka sebaiknya jadikan class customer tersebut sebagai type data sehingga method tersebut mempunyai ketergantungan terhadap class customer.
Penggunaan :
Dim customer As New Customer
With customer
.CustomerID = "01"
.CustomerName = "Sani"
End With
customer.Create(customer)
[My-Blog's]
0 Komentar