oamain

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

                    rstItem.Open "Select * From v_UserWork_Item where (IsSingle=2 or IsSingle=" & GIsSingleWork & ") and UserID = '" & LoginName & "' and sysGroupID='PURCHASE'  Order by SubGroupID,IndexNo", GetCNClient, adOpenForwardOnly
                    i = 1
                    j = 0
                    Do Until rstItem.EOF
                        If j <> rstItem![SubGroupID] Then
                            Load Me.menuPurchaseItem(i)
                            Me.menuPurchaseItem(i).Caption = "-"
                            i = i + 1
                        End If

                        Load Me.menuPurchaseItem(i)
                        Me.menuPurchaseItem(i).Tag = rstItem![FunctionID]
                        
                        If IsNumeric(rstItem![Explain]) Then
                            Me.menuPurchaseItem(i).Caption = LoadResString(Val(rstItem![Explain] & GLanguageID))
                        Else
                            Me.menuPurchaseItem(i).Caption = rstItem![Explain]
                        End If
                        
                        Me.menuPurchaseItem(i).Visible = True
                        j = rstItem![SubGroupID]
                        rstItem.MoveNext
                        i = i + 1
                    Loop
                    Me.menuPurchaseItem(0).Visible = False

                    Set rstItem = Nothing
                Case "SELL"
                    Me.menuSell.Visible = True
                    Set rstItem = New Recordset
                    rstItem.Open "Select * From v_UserWork_Item where (IsSingle=2 or IsSingle=" & GIsSingleWork & ") and UserID = '" & LoginName & "' and sysGroupID='SELL'  Order by SubGroupID,IndexNo", GetCNClient, adOpenForwardOnly
                    i = 1
                    j = 0
                    Do Until rstItem.EOF
                        If j <> rstItem![SubGroupID] Then
                            Load Me.menuSellItem(i)
                            Me.menuSellItem(i).Caption = "-"
                            i = i + 1
                        End If
                        Load Me.menuSellItem(i)
                        Me.menuSellItem(i).Tag = rstItem![FunctionID]
                        If IsNumeric(rstItem![Explain]) Then
                            Me.menuSellItem(i).Caption = LoadResString(Val(rstItem![Explain] & GLanguageID))
                        Else
                            Me.menuSellItem(i).Caption = rstItem![Explain]
                        End If
                        
                        
                        Me.menuSellItem(i).Visible = True
                        j = rstItem![SubGroupID]
                        rstItem.MoveNext
                        i = i + 1
                    Loop
                    Me.menuSellItem(0).Visible = False

                    Set rstItem = Nothing
                Case "STOCK"
                    Me.MenuStock.Visible = True
                    Set rstItem = New Recordset
                    rstItem.Open "Select * From v_UserWork_Item where (IsSingle=2 or IsSingle=" & GIsSingleWork & ") and UserID = '" & LoginName & "' and sysGroupID='STOCK'  Order by SubGroupID,IndexNo", GetCNClient, adOpenForwardOnly
                    i = 1
                    j = 0
                    Do Until rstItem.EOF
                        If j <> rstItem![SubGroupID] Then
                            Load Me.menuStockItem(i)
                            Me.menuStockItem(i).Caption = "-"
                            i = i + 1
                        End If
                        Load Me.menuStockItem(i)
                        Me.menuStockItem(i).Tag = rstItem![FunctionID]
                        If IsNumeric(rstItem![Explain]) Then
                            Me.menuStockItem(i).Caption = LoadResString(Val(rstItem![Explain] & GLanguageID))
                        Else
                            Me.menuStockItem(i).Caption = rstItem![Explain]
                        End If
                        
                        Me.menuStockItem(i).Visible = True
                        j = rstItem![SubGroupID]
                        rstItem.MoveNext
                        i = i + 1
                    Loop
                    Me.menuStockItem(0).Visible = False

                    Set rstItem = Nothing
                Case "FINANCE"
                    Me.menuFinance.Visible = True
                    Set rstItem = New Recordset
                    rstItem.Open "Select * From v_UserWork_Item where (IsSingle=2 or IsSingle=" & GIsSingleWork & ") and UserID = '" & LoginName & "' and sysGroupID='FINANCE'  Order by SubGroupID,IndexNo", GetCNClient, adOpenForwardOnly
                    i = 1
                    j = 0
                    Do Until rstItem.EOF
                        If j <> rstItem![SubGroupID] Then
                            Load Me.menuFinanceItem(i)
                            Me.menuFinanceItem(i).Caption = "-"
                            i = i + 1
                        End If
                        Load Me.menuFinanceItem(i)
                        Me.menuFinanceItem(i).Tag = rstItem![FunctionID]
                        If IsNumeric(rstItem![Explain]) Then
                            Me.menuFinanceItem(i).Caption = LoadResString(Val(rstItem![Explain] & GLanguageID))
                        Else
                            Me.menuFinanceItem(i).Caption = rstItem![Explain]
                        End If
                        
                        Me.menuFinanceItem(i).Visible = True
                        j = rstItem![SubGroupID]
                        rstItem.MoveNext
                        i = i + 1
                    Loop
                    Me.menuFinanceItem(0).Visible = False

                Case "ANALYZER"
                    Me.menuAnalyzer.Visible = True
                    Set rstItem = New Recordset
                    rstItem.Open "Select * From v_UserWork_Item where (IsSingle=2 or IsSingle=" & GIsSingleWork & ") and UserID = '" & LoginName & "' and sysGroupID='ANALYZER'  Order by SubGroupID,IndexNo", GetCNClient, adOpenForwardOnly
                    i = 1
                    j = 0
                    Do Until rstItem.EOF
                        If j <> rstItem![SubGroupID] Then
                            Load Me.menuAnalyzerItem(i)
                            Me.menuAnalyzerItem(i).Caption = "-"
                            i = i + 1
                        End If
                        Load Me.menuAnalyzerItem(i)
                        Me.menuAnalyzerItem(i).Tag = rstItem![FunctionID]
                        If IsNumeric(rstItem![Explain]) Then
                            Me.menuAnalyzerItem(i).Caption = LoadResString(Val(rstItem![Explain] & GLanguageID))
                        Else
                            Me.menuAnalyzerItem(i).Caption = rstItem![Explain]
                        End If
                        
                        Me.menuAnalyzerItem(i).Visible = True
                        j = rstItem![SubGroupID]
                        rstItem.MoveNext
                        i = i + 1
                    Loop
                    Me.menuAnalyzerItem(0).Visible = False
                    Set rstItem = Nothing
                
                End Select
                    
'            i = i + 1
            rstMenu.MoveNext
        Loop
        Set rstMeun = Nothing
        iniMenu = 1

    Exit Function
Err_iniMenu:
    iniMenu = 0
    MisMsg "iniMeun Error : " & Err.Description
    Exit Function
End Function

Private Function IniOutLook(IsOA As String) As Integer
'On Error GoTo Err_iniOutLook
    'LoadResString (Val(Me.Caption & GLanguageID))
    IniOutLook = 0
    Dim ii As Integer
    
    Dim rstUserWork As Recordset, rstWork As Recordset
    
    If IsOA = 1 Then  '使用OA工作流
    
        
        '加载任务栏
        Me.Picture1.Visible = False
        Me.Picture2.Visible = False
        Set rstUserWork = New Recordset
        rstUserWork.Open "SELECT WorkType From PubOAiniUserMain GROUP BY WorkType,WTOrderBy Order by WTOrderby;", GetCNClient, adOpenStatic, adLockReadOnly
        i = 0
        
        With rstUserWork
           Me.VtlMenu.MenusMax = .RecordCount
           Do Until .EOF
                Me.VtlMenu.MenuCur = i + 1
                Me.VtlMenu.MenuCaption = LoadResString(Val(![WorkType] & GLanguageID))
                Me.VtlMenu.MenuKey = ![WorkType]
                Set rstWork = New Recordset
                rstWork.Open "Select UserJob,icoName From PubOAiniUserMain Where WorkType='" & Me.VtlMenu.MenuKey & "' ", GetCNClient, adOpenStatic, adLockReadOnly
                    j = 0
                    Me.VtlMenu.MenuItemsMax = rstWork.RecordCount
                    Do Until rstWork.EOF
                        Me.VtlMenu.MenuItemCur = j + 1
                        Me.VtlMenu.MenuItemCaption = LoadResString(Val(rstWork![UserJob] & GLanguageID))
                        If Dir(App.Path & "\ProgramIco\" & rstWork![icoName] & ".ico") <> "" Then
                        
                            Set Me.VtlMenu.MenuItemIcon = LoadPicture(App.Path & "\ProgramIco\" & rstWork![icoName] & ".ico")
                        
                        End If
                        j = j + 1
                        rstWork.MoveNext
                    Loop
                i = i + 1
                .MoveNext
            Loop
        End With
        
        '加载具体任务栏
        
        '加载流程图
        k = 2
        Set rstUserWork = New Recordset
        
        rstUserWork.Open "Select * From PubFlowMain Order by Explain ", GetCNClient, adOpenStatic, adLockReadOnly
        Me.VtlMenu.MenuCur = 2
        Me.VtlMenu.MenuItemsMax = rstUserWork.RecordCount + 1
        Do Until rstUserWork.EOF
            Me.VtlMenu.MenuItemCur = k
            Me.VtlMenu.MenuItemKey = rstUserWork![FlowID]
            Me.VtlMenu.MenuItemCaption = rstUserWork![Explain]
            Set Me.VtlMenu.MenuItemIcon = LoadPicture(App.Path & "\ProgramIco\Point04.ico")
            rstUserWork.MoveNext
            k = k + 1
        Loop
        
         
        '加载监控状况
         k = 1
        Set rstUserWork = New Recordset
        
        rstUserWork.Open "SELECT FuncID, BillNo From PubCheckFlow GROUP BY FuncID, BillNo ", GetCNClient, adOpenStatic, adLockReadOnly
        Me.VtlMenu.MenuCur = 3
        Me.VtlMenu.MenuItemsMax = rstUserWork.RecordCount
        Do Until rstUserWork.EOF
            Me.VtlMenu.MenuItemCur = k
            Me.VtlMenu.MenuItemKey = rstUserWork![FuncID]
            Me.VtlMenu.MenuItemCaption = rstUserWork![BillNO]
            Set Me.VtlMenu.MenuItemIcon = LoadPicture(App.Path & "\ProgramIco\Point04.ico")
            rstUserWork.MoveNext
            k = k + 1
        Loop
       
        
        
        IniOutLookGroup 1
        EmailStyle = 1
        Me.Picture1.Visible = True
        Me.Picture2.Visible = False
        WorkFlow
        'UnRead


'        Me.VtlMenu.MenuCur = 2
'        Set rstWork = New Recordset
'        rstWork.Open "Select FunctionID,Explain,ID From PubOAUserWork Where UserID='" & LoginName & "' ", GetCNClient, adOpenStatic, adLockReadOnly
'        With rstWork
'            i = 0
'            Do Until .EOF
'                Me.VtlMenu.MenuItemsMax = rstWork.RecordCount + 1
'                Me.VtlMenu.MenuItemCur = i + 2
'                Me.VtlMenu.MenuItemCaption = ![Explain]
'                Me.VtlMenu.MenuItemKey = ![FunctionID]
'                If Dir(App.Path & "\" & rstWork![FunctionID] & ".ico") <> "" Then
'                    Set Me.VtlMenu.MenuItemIcon = LoadPicture(App.Path & "\" & rstWork![FunctionID] & ".ico")
'                Else
'                    Set Me.VtlMenu.MenuItemIcon = LoadPicture(App.Path & "\icon6.ico")
'                End If
'                i = i + 1
'                .MoveNext
'            Loop
'        End With
        
        '加载信息
        
        Me.VtlMenu.MenuCur = 1
        Me.VtlMenu.MenuItemCur = 0
        'ii = DrawFlow()

        UnRead

    
    Else
        
        '不使用OA
        
        TBEnabled
        IniOutLookGroup 0
        
        EmailStyle = 1
        Me.Picture1.Visible = False
        Me.Picture2.Visible = True
        WorkFlow


        '
        'Form_Resize
   End If
    
    IniOutLook = 1
    Exit Function
    
Err_iniOutLook:
    IniOutLook = 0
    MisMsg "iniOutLook Error : " & Err.Description
    Exit Function
End Function

Private Sub IniOutLookGroup(i As Integer)
        
        Dim rstUserWork  As Recordset, j As Integer, k As Integer
        k = i
        Set rstUserWork = New Recordset
        
        rstUserWork.Open "SELECT Explain,sysGroupID From v_UserWork_Group where UserID='" & LoginName & "' Order by IndexNo;", GetCNClient, adOpenStatic, adLockReadOnly
        With rstUserWork
            
           If i = 1 Then 'MenuGroup
                Me.VtlMenu.MenusMax = .RecordCount + 3
           Else
                Me.VtlMenu.MenusMax = .RecordCount
           End If
           Do Until .EOF
                 
                If k = 1 Then
                    Me.VtlMenu.MenuCur = i + 3
                Else
                    Me.VtlMenu.MenuCur = i + 1
                End If
                
                Me.VtlMenu.MenuCaption = LoadResString(![Explain] & GLanguageID)
                Me.VtlMenu.MenuKey = ![sysGroupID]
                Set rstWork = New Recordset
                rstWork.Open "Select FunctionID,Explain From v_UserWork_Item  Where (IsSingle=2 or IsSingle=" & GIsSingleWork & ") and UserID='" & LoginName & "' and sysGroupID='" & Me.VtlMenu.MenuKey & "' Order by SubGroupID,IndexNo ", GetCNClient, adOpenStatic, adLockReadOnly
                    j = 1 'PubOAPower
'                    If k = 1 And i = 1 Then
'                        Me.VtlMenu.MenuItemsMax = rstWork.RecordCount
'                    Else
                        Me.VtlMenu.MenuItemsMax = rstWork.RecordCount
'                    End If
                    Do Until rstWork.EOF
'                        If k = 1 And Me.VtlMenu.MenuCur = 3 And j = 0 Then
'                            Me.VtlMenu.MenuItemCur = 0
'                            Me.VtlMenu.MenuItemKey = "Flow"
'                            Me.VtlMenu.MenuItemCaption = LoadResString(654 & GLanguageID)
'                            j = j + 1
'                        End If

                        Me.VtlMenu.MenuItemCur = j
                        Me.VtlMenu.MenuItemKey = rstWork![FunctionID]
                        If IsNumeric(rstWork![Explain]) Then
                            Me.VtlMenu.MenuItemCaption = LoadResString(Val(rstWork![Explain] & GLanguageID))
                        Else
                            Me.VtlMenu.MenuItemCaption = rstWork![Explain]
                        End If
                        If Dir(App.Path & "\ProgramIco\" & rstWork![FunctionID] & ".bmp") <> "" Then
                            Set Me.VtlMenu.MenuItemIcon = LoadPicture(App.Path & "\ProgramIco\" & rstWork![FunctionID] & ".bmp")
                        Else
                            Set Me.VtlMenu.MenuItemIcon = LoadPicture(App.Path & "\ProgramIco\A.bmp")
                        End If
                        j = j + 1
                        rstWork.MoveNext
                    Loop
                i = i + 1
                .MoveNext
            Loop
        End With
        
        
End Sub



Private Sub Command1_Click()
Dim i As Integer
FrmBill.Show 1
'i = FlowPower("PurchaseOrder", "111", 4)
End Sub