今天完成了ORM-Lite的对象类,并开始写用户管理模块。
对象类举例:
Class t_user
Public entity_guid
Private m_f_group_id_pk
Private m_f_name
Private m_f_remark
Public Function new_instance()
set new_instance = New t_group
End Function
Public Property Get f_group_id_pk()
f_group_id_pk = m_f_group_id_pk
End Property
Public Property Let f_group_id_pk(newValue)
m_f_group_id_pk = newValue
End Property
Public Property Get f_name()
f_name = m_f_name
End Property
Public Property Let f_name(newValue)
m_f_name = newValue
End Property
Public Property Get f_remark()
f_remark = m_f_remark
End Property
Public Property Let f_remark(newValue)
m_f_remark = newValue
End Property
Private Sub Class_Initialize()
' set Default Value
End Sub
End Class