udtpuboagtlist.dob

来自「一个OA办公自动化管理系统」· DOB 代码 · 共 32 行

VERSION 5.00
Begin VB.UserDocument UdtPubOAGTList 
   ClientHeight    =   5415
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7530
   HScrollSmallChange=   225
   ScaleHeight     =   5415
   ScaleWidth      =   7530
   VScrollSmallChange=   225
End
Attribute VB_Name = "UdtPubOAGTList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub UserDocument_Initialize()
'    Dim rstUserPower As Recordset
'    If Trim(Left(PubOAKey, 2)) = "U_" Then
'        Set rstUserPower = New Recordset
'        rstUserPower.Open "Select * From PubOAUserWork Where UserID='" & Trim(Mid(PubOAKey, 3, 50)) & "'", GetConnect, adOpenStatic, adLockReadOnly
'        MsgBox "0000"
'        Set UserDocument.vsfgrdUserPower.DataSource = rstUserPower
'    End If
'        MsgBox "4544"
End Sub

Private Sub UserDocument_Show()
        MsgBox "4544"

End Sub