frmpuboapower.frm

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

        sglPos = X + imgMove.Left
        If sglPos < sglSplitLimit Then
            PicMoving.Left = sglSplitLimit
        ElseIf sglPos > Me.Width - sglSplitLimit Then
            PicMoving.Left = Me.Width - sglSplitLimit
        Else
            PicMoving.Left = sglPos
        End If
        'MisMsg X & "  " & Y
        'IniSize Y
    End If
End Sub

Private Sub imgMove_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    isMove = False
    PicMoving.Visible = False
    IniSize PicMoving.Left

End Sub
Private Sub ShowUser(Temp As String)
On Error GoTo Err_ShowUser
    If Temp = "New" Then
        frmPubOAUser.txtNew = ""
        frmPubOAUser.txtExplain = ""
        frmPubOAUser.Show 1
    Else
        frmPubOAUser.Show 1
    
    End If
    Exit Sub
Err_ShowUser:
    MisMsg "ShowUser Error :" & Err.Description
    Exit Sub
End Sub


Private Function iniPower() As Integer
On Error GoTo Err_iniPower
    Dim rstini As Recordset
    iniPower = 0
    GetCNClient.Execute "Delete From PubOAUserWork Where UserID='" & Trim(Mid(PubOAKey, 3, 50)) & "'"
    Set rstini = New Recordset
    rstini.Open "Select * From PubOAPower ", GetCNClient, adOpenForwardOnly
    If Left(PubOAKey, 2) = "U_" Then
        Do Until rstini.EOF
            GetCNClient.Execute " Insert into PubOAUserWork(UserID, FunctionID, Explain, AllowNew, AllowUpdate, OnlyRead, [Check], Post,RS) Values" _
                              & " ('" & Trim(Mid(PubOAKey, 3, 50)) & "','" & rstini![FunctionID] & "','" & rstini![Explain] & "',0,0,0,0,0,0 )"
            rstini.MoveNext
        Loop
    
        Set rstini = New Recordset
        rstini.Open " SELECT GroupID,PubOAUserWork.UserID, PubOAUserWork.Explain , AllowNew, AllowUpdate, OnlyRead, [Check], PubOAUserWork.Post,PubOAUserWork.RS " _
                  & " FROM PubOAUserWork LEFT JOIN PubOAUser ON PubOAUserWork.UserID = PubOAUser.UserID" _
                  & " Where PubOAUser.UserID= '" & Trim(Mid(PubOAKey, 3, 50)) & "'", GetCNClient, adOpenStatic, adLockOptimistic
        
        Set Me.TDBGrid1.DataSource = rstini
        End If

    
    InitTurboGrid Me.TDBGrid1, Me.Name, , True
    Me.TDBGrid1.AllowUpdate = False

    iniPower = 1
    Exit Function
Err_iniPower:

    iniPower = 0
    MisMsg "iniPower Error : " & Err.Description
    Exit Function
End Function

Private Sub menuClose_Click()
Unload Me
End Sub

Private Sub menuIni_Click()
Dim NewForm As frmIniPower
Set NewForm = New frmIniPower
Set NewForm.MyParent = Me
    NewForm.Show 1
    'Dim i As Integer
    'If iniPower = 1 Then
    '    MisMsg " 初始化完成！"
    'End If
End Sub

Private Sub mnuEditGroup_Click()
    frmPubOANewGT.Show 1
End Sub

Private Sub mnuEditUser_Click()
    ShowUser "Edit"

End Sub

Private Sub mnuNewGroup_Click()
    frmPubOANewGT.Show 1
    frmPubOANewGT.txtExplain = ""
    frmPubOANewGT.txtNew = ""
End Sub

Private Sub mnuNewUser_Click()
    ShowUser "New"
End Sub

Private Sub TDBGrid1_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
On Error GoTo TCR_Err
    SaveDataGridWidth Me.Name, Me.TDBGrid1.Columns(ColIndex).DataField, Me.TDBGrid1.Columns(ColIndex).Width
    Exit Sub
TCR_Err:
    mis_HandError (Err.Number)
    Exit Sub

End Sub

Private Sub TDBGrid1_DblClick()
'MisMsg Me.TDBGrid1.Columns(1).Value
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "tbGroup"
            frmPubOANewGT.Show
        Case "tbUserID"
            frmPubOAUser.Show
        Case "tbFrash"
            iniTvw
    End Select

End Sub




Private Sub TvwPower_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 And PubOAKey <> "" Then
        If Left(PubOAKey, 2) = "U_" Then
            frmPubOAPower.mnuEditGroup.Enabled = False
            frmPubOAPower.mnuNewGroup.Enabled = False
            frmPubOAPower.mnuNewUser.Enabled = True
            frmPubOAPower.mnuEditUser.Enabled = True
            frmPubOAPower.menuIni.Enabled = True
            

        Else
            frmPubOAPower.mnuEditGroup.Enabled = True
            frmPubOAPower.mnuNewGroup.Enabled = True
            frmPubOAPower.mnuNewUser.Enabled = False
            frmPubOAPower.menuIni.Enabled = False
            frmPubOAPower.mnuEditUser.Enabled = False


        End If
        If PubOAKey = "OAAdmin" Then
            frmPubOAPower.mnuEditGroup.Enabled = False
            frmPubOAPower.mnuNewGroup.Enabled = False
            frmPubOAPower.mnuNewUser.Enabled = False
            frmPubOAPower.menuIni.Enabled = True
            frmPubOAPower.mnuEditUser.Enabled = False
            
        End If
        PopupMenu frmPubOAPower.popMenu
        
    End If
End Sub

Private Sub TvwPower_NodeClick(ByVal Node As MSComctlLib.Node)
On Error GoTo err_TvwPower_NodeClick
    Dim rstTDBg As Recordset
    PubOAKey = Node.Key
    If PubOAKey <> "OAAdmin" Then
        PubOAParentKey = Node.Parent.Key
    
        Set rstTDB = New Recordset
        rstTDB.Open "  SELECT PubOAUser.Explain AS UserExplain, PubOAGroup.Explain AS GroupExplain, " _
                  & "  PubOAUserWork.Explain, PubOAUserWork.AllowNew, PubOAUserWork.AllowUpdate," _
                  & "  PubOAUserWork.OnlyRead, PubOAUserWork.[Check], PubOAUserWork.Post, " _
                  & "  PubOAUserWork.rs FROM PubOAGroup INNER JOIN  PubOAPower ON PubOAGroup.GroupID = PubOAPower.GroupID RIGHT OUTER JOIN " _
                  & "  PubOAUserWork ON PubOAPower.FunctionID = PubOAUserWork.FunctionID LEFT OUTER JOIN " _
                  & "  PubOAUser ON PubOAUserWork.UserID = PubOAUser.UserID   " _
                  & "  Where PubOAUser.UserID= '" & Trim(Mid(Node.Key, 3, 50)) & "' ORDER BY PubOAUser.Explain, PubOAGroup.Explain ", GetCNClient, adOpenStatic, adLockOptimistic
        
        Set Me.TDBGrid1.DataSource = rstTDB

    Else
        Set rstTDB = New Recordset
        rstTDB.Open "  SELECT PubOAUser.Explain AS UserExplain, PubOAGroup.Explain AS GroupExplain, " _
                  & "  PubOAUserWork.Explain, PubOAUserWork.AllowNew, PubOAUserWork.AllowUpdate," _
                  & "  PubOAUserWork.OnlyRead, PubOAUserWork.[Check], PubOAUserWork.Post, " _
                  & "  PubOAUserWork.rs FROM PubOAGroup INNER JOIN  PubOAPower ON PubOAGroup.GroupID = PubOAPower.GroupID RIGHT OUTER JOIN " _
                  & "  PubOAUserWork ON PubOAPower.FunctionID = PubOAUserWork.FunctionID LEFT OUTER JOIN " _
                  & "  PubOAUser ON PubOAUserWork.UserID = PubOAUser.UserID  ORDER BY PubOAUser.Explain, PubOAGroup.Explain " _
                  & "  ", GetCNClient, adOpenStatic, adLockOptimistic
        
        Set Me.TDBGrid1.DataSource = rstTDB
        
    End If
    
    InitTurboGrid Me.TDBGrid1, Me.Name, , True
    Me.TDBGrid1.Columns("Explain").Locked = True
    Me.TDBGrid1.Columns("Explain").AllowFocus = False

    Exit Sub
    
err_TvwPower_NodeClick:
    MisMsg "TvwPower_NodeClick Error : " & Err.Description
    Exit Sub
End Sub

Public Sub iniTvw()
On Error GoTo Err_iniTvw
    Dim rstGroup As Recordset, rstTeam As Recordset
    TvwPower.Nodes.Clear
    TvwPower.Nodes.Add , , "OAAdmin", GCompany
    Set rstGroup = New Recordset
    rstGroup.Open "Select * From PubCustomGroup Order by IndexNo ", GetCNClient, adOpenForwardOnly
    Do Until rstGroup.EOF
        TvwPower.Nodes.Add "OAAdmin", tvwChild, rstGroup![GroupID], rstGroup![Explain]
        
        Set rstTeam = New Recordset
        rstTeam.Open "Select * From PubOATeam  Order by IndexNo ", GetCNClient, adOpenForwardOnly
        Do Until rstTeam.EOF
            TvwPower.Nodes.Add Trim(rstGroup![GroupID]), tvwChild, rstGroup![GroupID] & rstTeam![Teamid], rstTeam![Explain]
            rstTeam.MoveNext
        Loop
        rstGroup.MoveNext
    Loop
    TvwPower.Nodes(TvwPower.Nodes.Count).EnsureVisible
    'If TvwPower.Node.Key = "OAAdmin" Then
    'End If
    Set rstGroup = New Recordset
    rstGroup.Open "Select * From PubOAUser  where UserID <>'Admin' Order by UserID ", GetCNClient, adOpenForwardOnly
    Do Until rstGroup.EOF
        TvwPower.Nodes.Add Trim(rstGroup![GroupID]) & Trim(rstGroup![Teamid]), tvwChild, "U_" & Trim(rstGroup![UserID]), rstGroup![Explain]
        rstGroup.MoveNext
    Loop
    Exit Sub
Err_iniTvw:
    MisMsg "iniTvw Error : " & Err.Description
    Exit Sub
End Sub
Private Sub IniSize(ImgLeft As Integer)
On Error GoTo Err_IniSize
    If ImgLeft < 500 Then
        ImgLeft = 500
    End If
    If ImgLeft > Me.Width / 2 Then
        ImgLeft = Me.Width / 2
    End If
    Me.TvwPower.Width = ImgLeft - TvwPower.Left
    Me.TvwPower.Height = Me.Height - 100
    Me.lblPower.Width = ImgLeft - TvwPower.Left
    Me.imgMove.Left = ImgLeft
    Me.imgMove.Height = Me.Height - 1400
    Me.picMain.Left = ImgLeft + 50
    Me.picMain.Width = Me.Width - picMain.Left - 200
    Me.TDBGrid1.Width = Me.Width - picMain.Left - 250
'    Me.cmdNew.Left = Me.picMain.Width - 1200
'    Me.cmdUpdate.Left = Me.picMain.Width - 1200
'    Me.cmdDel.Left = Me.picMain.Width - 1200
    
    Me.TDBGrid1.Height = Me.Height - 1700
    
    Me.picState.Left = ImgLeft + 50
    Me.picState.Width = Me.Width - picMain.Left - 200
    Me.picMain.Height = Me.Height - 1400
    Exit Sub
Err_IniSize:
    MisMsg "IniSize Error : " & Err.Description
    Exit Sub
End Sub

Public Sub GGetResUdt(LanguageID As String)
On Error GoTo Err_GGetResUdt
  Dim tObj As Control, i As Integer
  

  For Each tObj In UserDocument.Controls
    Select Case Trim(LCase(TypeName(tObj)))
        Case "commandbutton"
           tObj.Caption = LoadResString(Val(tObj.Caption & LanguageID))
        Case "treeview"
        Case "combobox"
        Case "toolbar"
            For i = 1 To tObj.Buttons.Count - 1
                If tObj.Buttons(i).Caption <> "-" Then
                    tObj.Buttons(i).Caption = LoadResString(Val(tObj.Buttons(i).Caption & LanguageID))
                End If
            Next
        Case "label"
           tObj.Caption = LoadResString(Val(tObj.Caption & LanguageID))
        Case "optionbutton"
           tObj.Caption = LoadResString(Val(tObj.Caption & LanguageID))
        Case "frame"
           tObj.Caption = LoadResString(Val(tObj.Caption & LanguageID))
        
        Case "sstab"
            For i = 0 To tObj.Tabs - 1
    
                tObj.TabCaption(i) = LoadResString(Val(tObj.TabCaption(i) & LanguageID))
            Next i
    End Select
  Next tObj
    Exit Sub
Err_GGetResUdt:
    MisMsg "GGetResUdt Error : " & Err.Description
    Exit Sub
End Sub