ibll.vb

来自「ADO.net项目“教师信息管理系统”」· VB 代码 · 共 63 行

Public Interface IDepartmentManage
    '创建属性
    ReadOnly Property Title() As String
    ReadOnly Property DataSet() As DataSet
    Property TableName() As String
    Property Code() As String
    Property Name() As String
    '创建方法
    Function myFill() As Boolean
    Function myAdd() As Boolean
    Function myEdit(ByVal intPosition As Integer) As Boolean
    Function DeleteRecord(ByVal intPosition As Integer) As Boolean
End Interface

Public Interface ITeacher
    '创建属性
    ReadOnly Property Title() As String
    ReadOnly Property DataSet() As DataSet
    Property TableName() As String
    Property ClassID() As String
    Property Code() As String
    Property Name() As String
    Property Sex() As String
    Property Birth() As Date
    Property Marry() As Boolean
    Property Polity() As String
    Property Place() As String
    Property Level() As String
    Property School() As String
    Property Remark() As String
    Property Photo() As Byte()
    '创建方法
    Function myFill() As Boolean
    Function myAdd() As Boolean
    Function myEdit(ByVal intPosition As Integer) As Boolean
    Function DeleteRecord(ByVal intPosition As Integer) As Boolean
End Interface

Public Interface IConectionInformation
    '创建属性
    ReadOnly Property Title() As String
    ReadOnly Property DataSet() As DataSet
    Property TableName() As String
    Property ClassID() As String
    Property Code() As String
    Property Mode() As String
    Property Mark() As String
    '创建方法
    Function myFill() As Boolean
    Function myFill(ByRef ClassCode As String, _
                  ByRef Code As String) As Boolean
    Function myUpdate(ByRef ClassCode As String, _
                  ByRef Code As String) As Boolean
    Function myDataRelation() As Boolean
End Interface

'创建工厂接口
Public Interface IAbstractFactroy
    Function GetDepartmentManage() As IDepartmentManage
    Function GetTeacher() As ITeacher
    Function GetConectionInformation() As IConectionInformation
End Interface