📄 ibll.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -