pub_checkformget.frm

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

VERSION 5.00
Object = "{0D6234D1-DBA2-11D1-B5DF-0060976089D0}#6.0#0"; "TODG6.OCX"
Begin VB.Form pub_CheckFormGet 
   Caption         =   "审核确认"
   ClientHeight    =   3435
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5835
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3435
   ScaleWidth      =   5835
   Begin TrueOleDBGrid60.TDBGrid TDBGrid1 
      Height          =   1455
      Left            =   60
      OleObjectBlob   =   "pub_CheckFormGet.frx":0000
      TabIndex        =   5
      Top             =   60
      Width           =   4155
   End
   Begin VB.CommandButton cmdReturn 
      Caption         =   "单据返回"
      Height          =   435
      Left            =   4320
      TabIndex        =   4
      Top             =   1380
      Width           =   1215
   End
   Begin VB.TextBox txtNewSummary 
      Height          =   1155
      Left            =   120
      TabIndex        =   2
      Top             =   1980
      Width           =   5475
   End
   Begin VB.CommandButton cmdReject 
      Caption         =   "单据作废"
      Height          =   435
      Left            =   4320
      TabIndex        =   1
      Top             =   780
      Width           =   1215
   End
   Begin VB.CommandButton cmdPass 
      Caption         =   "审核通过"
      Height          =   435
      Left            =   4320
      TabIndex        =   0
      Top             =   180
      Width           =   1215
   End
   Begin VB.Label lblCheckSummary 
      Caption         =   "审核意见"
      Height          =   255
      Left            =   180
      TabIndex        =   3
      Top             =   1620
      Width           =   975
   End
End
Attribute VB_Name = "pub_CheckFormGet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public strBillNo As String, Parent As Form



Private Sub cmdPass_Click()
    Dim rstCheckBill As Recordset
    Set rstCheckBill = New Recordset
    rstCheckBill.Open "Select * From v_UserCheckFlow Where  PowerID = '4' and UserID='" & LoginName & "' and billno='" & strBillNo & "' ", GetCNClient, adOpenStatic, adLockOptimistic
    If Not rstCheckBill.EOF Then
        rstCheckBill![Summary] = Me.txtNewSummary.Text & ""
        rstCheckBill![Idea] = 1
        rstCheckBill.Update
        Me.Parent.ReturnValue = 1
    Else
        MisMsg "你没有这个权限审核！"
        Me.Parent.ReturnValue = 0
    
    End If
    Set rstCheckBill = Nothing
    
    
    Unload Me
End Sub

Private Sub cmdReject_Click()
    Dim rstCheckBill As Recordset
    Set rstCheckBill = New Recordset
    rstCheckBill.Open "Select * From v_UserCheckFlow Where  PowerID = '4' and UserID='" & LoginName & "' and billno='" & strBillNo & "' ", GetCNClient, adOpenStatic, adLockOptimistic
    If Not rstCheckBill.EOF Then
        rstCheckBill![Summary] = Me.txtNewSummary.Text & ""
        rstCheckBill![Idea] = 2
       
        rstCheckBill.Update
        Me.Parent.ReturnValue = 2
    End If
    Set rstCheckBill = Nothing
    
    Unload Me
End Sub

Private Sub cmdReturn_Click()
    Me.Parent.ReturnValue = 3
    Unload Me
End Sub

Private Sub Form_Load()
Dim rstCheckBill As Recordset
    Set rstCheckBill = New Recordset
    rstCheckBill.Open "SELECT PubCustomGroup.Explain AS GroupExp, PubOATeam.Explain AS TeamExp, PubOAUser.Explain AS UserExp, PubCheckFlow.Idea, PubCheckFlow.Summary " _
                    & "  FROM PubCheckFlow INNER JOIN  PubOAUser ON PubCheckFlow.GroupID = PubOAUser.GroupID AND " _
                    & "  PubCheckFlow.TeamID = PubOAUser.TeamID LEFT OUTER JOIN  PubOATeam ON PubCheckFlow.TeamID = PubOATeam.TeamID LEFT OUTER JOIN " _
                    & "  PubCustomGroup ON PubCheckFlow.GroupID = PubCustomGroup.GroupID " _
                    & "  Where PowerID = '4'  and billno='" & strBillNo & "' ", GetCNClient, adOpenStatic, adLockReadOnly
    
'and  UserID='" & LoginName & "'
    Set Me.TDBGrid1.DataSource = rstCheckBill
    Me.TDBGrid1.Columns(0).Caption = "组"
    Me.TDBGrid1.Columns(0).Width = 800
    Me.TDBGrid1.Columns(1).Caption = "群"
    Me.TDBGrid1.Columns(1).Width = 800
    Me.TDBGrid1.Columns(2).Caption = "用户"
    Me.TDBGrid1.Columns(2).Width = 800
    Me.TDBGrid1.Columns(3).Caption = "审核"
    Me.TDBGrid1.Columns(3).ValueItems.Presentation = 4
    Me.TDBGrid1.Columns(3).Width = 300
    Me.TDBGrid1.Columns(4).Caption = "意见"
    Me.TDBGrid1.Columns(4).Width = 800
    'Set rstCheckBill = Nothing

End Sub