frmpuboauser.frm

一个OA办公自动化管理系统

VERSION 5.00
Begin VB.Form frmPubOAUser 
   Caption         =   "64"
   ClientHeight    =   2775
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4845
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2775
   ScaleWidth      =   4845
   StartUpPosition =   1  '所有者中心
   Begin VB.ComboBox cmbTeam 
      Height          =   300
      Left            =   1140
      Style           =   2  'Dropdown List
      TabIndex        =   10
      Top             =   1620
      Width           =   3255
   End
   Begin VB.ComboBox cmbGroupID 
      Height          =   300
      Left            =   1140
      Style           =   2  'Dropdown List
      TabIndex        =   9
      Top             =   1140
      Width           =   3255
   End
   Begin VB.CommandButton cmdDel 
      Caption         =   "13"
      Height          =   375
      Left            =   2400
      TabIndex        =   7
      Top             =   2100
      Width           =   975
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "32"
      Height          =   375
      Left            =   1320
      TabIndex        =   6
      Top             =   2100
      Width           =   975
   End
   Begin VB.TextBox txtExplain 
      Height          =   315
      Left            =   1140
      TabIndex        =   4
      Top             =   660
      Width           =   3195
   End
   Begin VB.CommandButton cmdNo 
      Caption         =   "18"
      Height          =   375
      Left            =   3480
      TabIndex        =   2
      Top             =   2100
      Width           =   975
   End
   Begin VB.CommandButton cmdNew 
      Caption         =   "15"
      Height          =   375
      Left            =   180
      TabIndex        =   1
      Top             =   2100
      Width           =   1035
   End
   Begin VB.TextBox txtNew 
      Height          =   315
      Left            =   1140
      TabIndex        =   0
      Top             =   180
      Width           =   3195
   End
   Begin VB.Label Label4 
      Caption         =   "670"
      Height          =   195
      Left            =   240
      TabIndex        =   11
      Top             =   1680
      Width           =   675
   End
   Begin VB.Label Label3 
      Caption         =   "63"
      Height          =   195
      Left            =   240
      TabIndex        =   8
      Top             =   1200
      Width           =   675
   End
   Begin VB.Label Label2 
      Caption         =   "65"
      Height          =   195
      Left            =   240
      TabIndex        =   5
      Top             =   720
      Width           =   675
   End
   Begin VB.Label Label1 
      Caption         =   "62"
      Height          =   195
      Left            =   240
      TabIndex        =   3
      Top             =   240
      Width           =   675
   End
End
Attribute VB_Name = "frmPubOAUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub SSTab1_DblClick()

End Sub

Private Sub CmdDel_Click()
    Dim rstOAGroup As Recordset
    If MsgBox("确要删除吗？", vbYesNo, "权限管理") = vbYes Then
    
        Set rstOAGroup = New Recordset
        rstOAGroup.Open "Delete  From pubOAUser where UserID='" & Me.txtNew & "'", GetCNClient, adOpenStatic, adLockOptimistic
        Me.txtNew.Text = ""
        Me.txtExplain.Text = ""
    End If
    Unload Me
End Sub

Private Sub cmdNew_Click()
    Me.txtNew.Text = ""
    Me.txtExplain.Text = ""
'    Me.cmbGroupID .Text = ""

End Sub

Private Sub cmdNo_Click()
    Unload Me
End Sub

Private Sub CmdOk_Click()
    Dim rstOAGroup As Recordset
    Set rstOAGroup = New Recordset
    rstOAGroup.Open "Select * From pubOAuser where UserID='" & Me.txtNew.Text & "' ", GetCNClient, adOpenStatic, adLockOptimistic
    With rstOAGroup
        If .EOF And Me.txtNew.Text <> "" And Me.cmbGroupID.Text <> "" And Me.txtExplain.Text <> "" Then
            .AddNew
            ![UserID] = Me.txtNew.Text
            ![GroupID] = DLookUp("GroupID", "PubCustomGroup", "Explain='" & Me.cmbGroupID.Text & "'")
            ![Explain] = Me.txtExplain.Text
            ![Teamid] = DLookUp("TeamID", "PubOATeam", "Explain='" & Me.cmbTeam.Text & "'")
            .Update
            MisMsg "新增成功！"
            Unload Me
        Else
            MisMsg "该群组已存在，请重新输入。"
        End If
    End With
End Sub

Private Sub Form_Load()
    Dim rstOAGroup As Recordset
    Me.Caption = LoadResString(Val(Me.Caption & GLanguageID))
    GGetRes GLanguageID, Me
    
    Set rstOAGroup = New Recordset
    rstOAGroup.Open "Select * From PubCustomGroup ", GetCNClient, adOpenForwardOnly
    With rstOAGroup
        Do Until .EOF
            If Not IsNumeric(![Explain]) Then
                Me.cmbGroupID.AddItem ![Explain]
            Else
                Me.cmbGroupID.AddItem LoadResString(Val(![Explain] & GLanguageID))
            End If
            .MoveNext
        Loop
    End With
    
    Set rstOAGroup = New Recordset
    rstOAGroup.Open "Select * From PubOATEam ", GetCNClient, adOpenForwardOnly
    With rstOAGroup
        Do Until .EOF
            If Not IsNumeric(![Explain]) Then
                Me.cmbTeam.AddItem ![Explain]
            Else
                Me.cmbTeam.AddItem LoadResString(Val(![Explain] & GLanguageID))
            End If
            .MoveNext
        Loop
    End With
    If PubOAParentKey <> "OAAdmin" Then
        iniGroup
    End If
End Sub

Private Sub iniGroup()
On Error GoTo Err_iniGroup
    Dim rstOAGroup As Recordset
    
    Set rstOAGroup = New Recordset
    rstOAGroup.Open " SELECT PubOAUser.*, PubCustomGroup.Explain AS GroupExplain, " _
                  & "  PubOATeam.Explain AS TeamExplain FROM PubOAUser LEFT OUTER JOIN PubOATeam ON PubOAUser.TeamID = PubOATeam.TeamID LEFT OUTER JOIN  PubCustomGroup ON PubOAUser.GroupID = PubCustomGroup.GroupID where  UserID='" & Trim(Mid(PubOAKey, 3, 50)) & "'", GetCNClient, adOpenForwardOnly
    With rstOAGroup
        If Not .EOF Then
            Me.txtNew.Text = ![UserID]
            Me.txtExplain.Text = ![Explain]
            Me.cmbGroupID = ![GroupExplain]
            Me.cmbTeam = ![TeamExplain]
        Else
            Me.txtNew.Text = ""
            Me.txtExplain.Text = ""
            'Me.cmbGroupID.Text = PubOAParentKey
        End If
    End With
    Exit Sub
Err_iniGroup:
    MisMsg "iniGroup Error : " & Err.Description
    Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
PubOAKey = ""
PubOAParentKey = ""

End Sub