Today, ORM-LITE is completed, and the user management module is started.
Object class example:
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 endproperty
Public property let f_name (newvalue) m_f_name = newValue End Property
Public property get f_remark () f_remark = m_f_remark endproperty
Public property let f_remark (newvalue) m_f_remark = newValue End Property
Private sub coplass_initialize ()
'Set Default Value
End Sub
END CLASS