slog.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "slog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mslid As Integer
Private mstoreid As String
Private mmove As Boolean '0表示货物进入仓库，1表示调出仓库
Private moperator As String
Private mmtime As Date
Private mmoveinfo As String
Property Get slid() As Integer
slid = mslid
End Property
Property Let slid(ByVal slid As Integer)
mslid = slid
End Property
Property Get storeid() As String
 storeid = mstoreid
End Property
Property Let storeid(ByVal storeid As String)
 mstoreid = storeid
End Property
Property Get move() As Boolean
move = mmove
End Property
Property Let move(ByVal move As Boolean)
mmove = move
End Property
Property Get operator() As String
operator = moperator
End Property
Property Let operator(ByVal operator As String)
 moperator = operator
End Property
Property Get mtime() As Date
 mtime = mmtime
End Property
Property Let mtime(ByVal mtime As Date)
 mmtime = mtime
End Property
Property Get moveinfo() As String
moveinfo = mmoveinfo
End Property
Property Let moveinfo(ByVal moveinfo As String)
 mmoveinfo = moveinfo
End Property
Public Sub Insert()
Connect "w"
sqlstr = "slog"
rs.Open sqlstr
rs.AddNew
rs.Fields("storeid") = storeid
If move = True Then
 rs.Fields("move") = "J"
Else
 rs.Fields("move") = "C"
End If
rs.Fields("operator") = operator
rs.Fields("mtime") = mtime
rs.Fields("moveinfo") = moveinfo
rs.Update
Disconnect
End Sub