frmpuboaflow.frm

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

VERSION 5.00
Object = "{0D6234D1-DBA2-11D1-B5DF-0060976089D0}#6.0#0"; "TODG6.OCX"
Begin VB.Form frmPubOAFlow 
   BackColor       =   &H00D39E9F&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "628"
   ClientHeight    =   4935
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9405
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4935
   ScaleWidth      =   9405
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox cmbRank 
      BackColor       =   &H00F2FCF1&
      Height          =   300
      Left            =   5220
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   180
      Width           =   1995
   End
   Begin TrueOleDBGrid60.TDBGrid TDBGrid1 
      Height          =   4215
      Left            =   120
      OleObjectBlob   =   "frmPubOAFlow.frx":0000
      TabIndex        =   2
      Top             =   600
      Width           =   9195
   End
   Begin VB.ComboBox cmbGroupID 
      Height          =   300
      Left            =   840
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   180
      Width           =   1755
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "627"
      Height          =   255
      Left            =   4380
      TabIndex        =   4
      Top             =   180
      Width           =   735
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "600"
      Height          =   255
      Left            =   300
      TabIndex        =   1
      Top             =   180
      Width           =   735
   End
End
Attribute VB_Name = "frmPubOAFlow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rstflow As Recordset


Private Sub cmbGroupID_Click()
    If Me.cmbGroupID.Text = "New" Then
        frmFlowMain.Show 1
        Exit Sub
    End If
    If Me.cmbGroupID.Text = "----" Then Exit Sub
    Dim rstflow As Recordset
    Set rstflow = New Recordset
    rstflow.Open "Select * From PubOAFlow  Where " & WhereFlow & " ", GetCNClient, adOpenKeyset, adLockOptimistic
    Set Me.TDBGrid1.DataSource = rstflow
     Dim ii As New ValueItem
    ii.Value = "*"
    ii.DisplayValue = "*"
    Me.TDBGrid1.Columns("FuncPower").ValueItems.Add ii
    Me.TDBGrid1.Columns("NextFuncPower").ValueItems.Add ii
    Me.TDBGrid1.Columns("GroupID").ValueItems.Add ii
    Me.TDBGrid1.Columns("NextGroupID").ValueItems.Add ii
    Me.TDBGrid1.Columns("TeamID").ValueItems.Add ii
    Me.TDBGrid1.Columns("NextTeamID").ValueItems.Add ii
    
    Me.TDBGrid1.Columns("FuncPower").BackColor = &HFFF2FF
    Me.TDBGrid1.Columns("GroupID").BackColor = &HFFF2FF
    Me.TDBGrid1.Columns("TeamID").BackColor = &HFFF2FF
    Me.TDBGrid1.Columns("FuncID").BackColor = &HFFF2FF
    Me.TDBGrid1.Columns("FlowID").BackColor = &HFFF2FF
    
    
    Me.TDBGrid1.Columns("NextFuncPower").BackColor = &HF2FCF1
    Me.TDBGrid1.Columns("NextGroupID").BackColor = &HF2FCF1
    Me.TDBGrid1.Columns("NextTeamID").BackColor = &HF2FCF1
    Me.TDBGrid1.Columns("NextFuncID").BackColor = &HF2FCF1

    InitTurboGrid Me.TDBGrid1, Me.Name, , True
    
    If Me.cmbRank.Text = "自定义流程" And Me.cmbGroupID.Text <> "*" Then
        Me.TDBGrid1.AllowDelete = True
        Me.TDBGrid1.AllowUpdate = True
        Me.TDBGrid1.AllowAddNew = True
    Else
        Me.TDBGrid1.AllowDelete = False
        Me.TDBGrid1.AllowUpdate = False
        Me.TDBGrid1.AllowAddNew = False
    
    End If

End Sub

Private Sub cmbRank_Click()
    cmbGroupID_Click
End Sub

Private Function WhereFlow() As String
On Error GoTo Err_WhereFlow
    WhereFlow = "1=1"
    
    If Me.cmbGroupID <> "*" Then
        WhereFlow = WhereFlow & " And FlowID='" & DLookUp("FlowID", "PubFlowMain", "Explain='" & Me.cmbGroupID.Text & "'") & "' "
    End If
    
    If Me.cmbRank.Text = "标准流程" Then
        WhereFlow = WhereFlow & " And Rank=0 "
    End If
    
    If Me.cmbRank.Text = "自定义流程" Then
        WhereFlow = WhereFlow & " And Rank=1 "
    End If
    
    Exit Function
Err_WhereFlow:
    MisMsg "WhereFlow Error : " & Err.Description
    WhereFlow = ""
    Exit Function
End Function

Private Sub Command1_Click()
MsgBox FlowPower("IQCIN", "Q00001", 4)
End Sub

Private Sub Form_Load()
    Dim rstGroupID As Recordset
    Me.Caption = LoadResString(Val(Me.Caption & GLanguageID))
    GGetRes GLanguageID, Me
    
    Set rstGroupID = New Recordset
    rstGroupID.Open "Select Explain from  PubFlowMain Order by Explain", GetCNClient, adOpenForwardOnly
   
    Me.cmbGroupID.Clear
    Me.cmbGroupID.AddItem "*"
    Me.cmbGroupID.AddItem "New"
    Me.cmbGroupID.AddItem "----"
    Me.cmbGroupID.Text = "*"
    Do Until rstGroupID.EOF
        Me.cmbGroupID.AddItem rstGroupID![Explain]
        rstGroupID.MoveNext
    Loop
    
    Me.cmbRank.Clear
    Me.cmbRank.AddItem "*"
    Me.cmbRank.Text = "*"
    Me.cmbRank.AddItem "基本流程"
    Me.cmbRank.AddItem "自定义流程"
    
    Set rstflow = New Recordset
    rstflow.Open "Select *  From PubOAFlow  Where " & WhereFlow & " ", GetCNClient, adOpenKeyset, adLockOptimistic
    Set Me.TDBGrid1.DataSource = rstflow
    
    Me.TDBGrid1.Columns("FuncPower").BackColor = &HFFF2FF
    Me.TDBGrid1.Columns("GroupID").BackColor = &HFFF2FF
    Me.TDBGrid1.Columns("TeamID").BackColor = &HFFF2FF
    Me.TDBGrid1.Columns("FuncID").BackColor = &HFFF2FF
    Me.TDBGrid1.Columns("FlowID").BackColor = &HFFF2FF
    
    Me.TDBGrid1.Columns("NextFuncPower").BackColor = &HF2FCF1
    Me.TDBGrid1.Columns("NextGroupID").BackColor = &HF2FCF1
    Me.TDBGrid1.Columns("NextTeamID").BackColor = &HF2FCF1
    Me.TDBGrid1.Columns("NextFuncID").BackColor = &HF2FCF1

    InitTurboGrid Me.TDBGrid1, Me.Name, , True
     
    
'
'    cmbRank_Click

End Sub

Private Sub TDBGrid1_BeforeUpdate(Cancel As Integer)
    Me.TDBGrid1.Columns("FlowId").Value = DLookUp("FlowID", "PubFlowMain", "Explain= '" & Me.cmbGroupID.Text & "'")
End Sub

Private Sub TDBGrid1_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
    SaveDataGridWidth Me.Name, Me.TDBGrid1.Columns(ColIndex).DataField, Me.TDBGrid1.Columns(ColIndex).Width

End Sub