?? slog.cls
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -