arrange.cls

来自「一个vb编的计算机机房管理系统」· CLS 代码 · 共 64 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "arrange"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private moperator As String
Private mteacher As String
Private mstarttime As Date
Private mendtime As Date
Private mroom As String
Property Get operator() As String
operator = moperator
End Property
Property Let operator(ByVal operator As String)
moperator = operator
End Property
Property Get teacher() As String
teacher = mteacher
End Property
Property Let teacher(ByVal teacher As String)
mteacher = teacher
End Property
Property Get room() As String
room = mroom
End Property
Property Let room(ByVal room As String)
mroom = room
End Property
Property Get starttime() As Date
starttime = mstarttime
End Property
Property Let starttime(ByVal starttime As Date)
mstarttime = starttime
End Property
Property Get endtime() As Date
endtime = mendtime
End Property
Property Let endtime(ByVal endtime As Date)
mendtime = endtime
End Property
Public Sub Insert()
Connect "w"
sqlstr = "arrange"
rs.Open sqlstr
rs.AddNew
rs.Fields("operator") = operator
rs.Fields("teacher") = teacher
rs.Fields("starttime") = starttime
rs.Fields("endtime") = endtime
rs.Fields("room") = room
rs.Update
Disconnect
End Sub