右键菜单.frm

u8

   End
End
Attribute VB_Name = "frmRightMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 右键菜单
'作者: 魏小黎
Option Explicit
Public TabFlg As TabType

Private Sub GrdPrn_FormatCellValue(ByVal Row As Long, ByVal Col As Long, cVal As String, ByVal vType As UFGRIDadoLib.enumValueType)
    If Row < 2 Then Exit Sub
    Select Case TabFlg
        Case TAB_ACCDEF
            Select Case Col
                Case Is = 6
                    cVal = IIf(cVal = "", "定期", "活期")
                Case Is = 5
                    cVal = IIf(cVal = "", "内部", "外部")
                Case Is = 7
                    cVal = IIf(cVal = "", "资金", "总账")
                Case Is = 9, 10
                    cVal = Format(val(cVal), "##,##0.00")
                Case Is = 11
                    cVal = Format(cVal, "yyyy-mm-dd")
            End Select
        Case TAB_INTRSET
            Select Case Col
                Case Is = 1
                    cVal = Format(cVal, "yyyy-mm-dd")
'                Case Is = 2, 3, 4      'cuidong 2001.01.15
                Case Is = 2, 3, 4, 5, 6 'cuidong 2001.01.15
                    cVal = Vround(val(cVal), 5)
            End Select
        Case TAB_CADSET
            Select Case Col
                Case Is = 1
                    cVal = Format(cVal, "yyyy-mm-dd")
            End Select
        Case TAB_UNITDEF
'            Select Case Col                                      'cuidong 2001.02.13
'                Case Is = 2
'                    cVal = IIf(cVal = "0", "个人", _
'                           IIf(cVal = "1", "部门", _
'                           IIf(cVal = "2", "银行", _
'                           IIf(cVal = "3", "客户", _
'                           IIf(cVal = "4", "供应商", "项目"))))) 'cuidong 2001.02.13
'            End Select                                           'cuidong 2001.02.13
        Case TAB_ACCSET
            If Col > 1 Then
                If frmAccSet.Switch_Mode = AS_NAME Then
                    If cVal <> "" Then
                        If Col = 7 Then
                            cVal = frmAccSet.CodeToName(12, mID(cVal, 3), left(cVal, 2))
                        Else
                            cVal = frmAccSet.CodeToName(Col + 5, cVal)
                        End If
                    End If
                End If
            End If
    End Select
End Sub

Private Sub mnuA_AddR_Click()
    frmAccDef.Form_KeyUp vbKeyF5, 0
End Sub

Private Sub mnuA_DataoutR_Click()
    frmAccDef.Form_KeyUp vbKeyW, 2
End Sub

Private Sub mnuA_DelR_Click()
    frmAccDef.Form_KeyUp vbKeyY, 2
End Sub

Private Sub mnuA_DestoryR_Click()
    frmAccDef.Form_KeyUp vbKeyO, 2
End Sub

Private Sub mnuA_ExitR_Click()
    frmAccDef.Form_KeyUp vbKeyF4, 2
End Sub

Private Sub mnuA_FindR_Click()
    frmAccDef.Form_KeyUp vbKeyF, 2
End Sub

Private Sub mnuA_FreezeR_Click()
    frmAccDef.Form_KeyUp vbKeyZ, 2
End Sub

Private Sub mnuA_HelpR_Click()
    SendKeys "{F1}"
End Sub

Private Sub mnuA_PreviewR_Click()
'    frmAccDef.Form_KeyUp vbKeyS, 2 'cuidong 2001.01.15
    frmAccDef.Gen_Key "Preview"     'cuidong 2001.01.15
End Sub

Private Sub mnuA_PrintR_Click()
    frmAccDef.Form_KeyUp vbKeyP, 2
End Sub

Private Sub mnuA_RefreshR_Click()
    frmAccDef.Form_KeyUp vbKeyR, 2
End Sub

Private Sub mnuAsc_Click()
    frmAccMgr.OrderAsc
End Sub

Private Sub mnuAscVch_Click()
    frmVchQueryResult.OrderAsc
End Sub

Private Sub mnuC_Add2R_Click()
    'frmCadSet.Form_KeyUp vbKeyF5, 0
End Sub

Private Sub mnuC_DataoutR_Click()
    'frmCadSet.Form_KeyUp vbKeyW, 2
End Sub

Private Sub mnuC_Del2R_Click()
    'frmCadSet.Form_KeyUp vbKeyY, 2
End Sub

Private Sub mnuC_ExitR_Click()
    'frmCadSet.Form_KeyUp vbKeyF4, 2
End Sub

Private Sub mnuC_HelpR_Click()
    SendKeys "{F1}"
End Sub

Private Sub mnuC_PreviewR_Click()
'    frmCADSet.Form_KeyUp vbKeyS, 2 'cuidong 2001.01.15
    'frmCadSet.Gen_Key "Preview"     'cuidong 2001.01.15
End Sub

Private Sub mnuC_PrintR_Click()
    'frmCadSet.Form_KeyUp vbKeyP, 2
End Sub

Private Sub mnuC_RefreshR_Click()
    'frmCadSet.Form_KeyUp vbKeyR, 2
End Sub

Private Sub mnuDesc_Click()
    frmAccMgr.OrderDesc
End Sub

Private Sub mnuDescVch_Click()
    frmVchQueryResult.OrderDesc
End Sub

Private Sub mnuE_DataoutR_Click()
    'frmEntDef.Form_KeyUp vbKeyW, 2
End Sub

Private Sub mnuE_ExitR_Click()
    'frmEntDef.Form_KeyUp vbKeyF4, 2
End Sub

Private Sub mnuE_FindR_Click()
    'frmEntDef.Form_KeyUp vbKeyF, 2
End Sub

Private Sub mnuE_HelpR_Click()
    SendKeys "{F1}"
End Sub

Private Sub mnuE_ImportR_Click()
    frmEntDef.Form_KeyUp vbKeyI, 2
End Sub

Private Sub mnuE_AddR_Click()
    frmEntDef.Form_KeyUp vbKeyF5, 0
End Sub

Private Sub mnuE_DelR_Click()
    frmEntDef.Form_KeyUp vbKeyY, 2
End Sub

Private Sub mnuE_PreviewR_Click()
    'frmEntDef.Form_KeyUp vbKeyS, 2 'cuidong 2001.01.15
    'frmEntDef.Gen_Key "Preview"     'cuidong 2001.01.15
End Sub

Private Sub mnuE_PrintR_Click()
    'frmEntDef.Form_KeyUp vbKeyP, 2
End Sub

Private Sub mnuE_RefreshR_Click()
    'frmEntDef.Form_KeyUp vbKeyR, 2
End Sub

Private Sub mnuI_Add1R_Click()
    'frmIntrSet.Form_KeyUp vbKeyF3, 0
End Sub

Private Sub mnuI_Add2R_Click()
    'frmIntrSet.Form_KeyUp vbKeyF5, 0
End Sub

Private Sub mnuI_DataoutR_Click()
    'frmIntrSet.Form_KeyUp vbKeyW, 2
End Sub

Private Sub mnuI_Del1R_Click()
    'frmIntrSet.Form_KeyUp vbKeyY, 4
End Sub

Private Sub mnuI_Del2R_Click()
    'frmIntrSet.Form_KeyUp vbKeyY, 2
End Sub

Private Sub mnuI_ExitR_Click()
    'frmIntrSet.Form_KeyUp vbKeyF4, 2
End Sub

Private Sub mnuI_HelpR_Click()
    SendKeys "{F1}"
End Sub

Private Sub mnuI_PreviewR_Click()
    'frmIntrSet.Form_KeyUp vbKeyS, 2 'cuidong 2001.01.15
    'frmIntrSet.Gen_Key "Preview"     'cuidong 2001.01.15
End Sub

Private Sub mnuI_PrintR_Click()
    'frmIntrSet.Form_KeyUp vbKeyP, 2
End Sub

Private Sub mnuI_RefreshR_Click()
    'frmIntrSet.Form_KeyUp vbKeyR, 2
End Sub

Private Sub mnuS_AddR_Click()
    frmAccSet.Form_KeyUp vbKeyF5, 0
End Sub

Private Sub mnuS_DataOutR_Click()
    frmAccSet.Form_KeyUp vbKeyW, 2
End Sub

Private Sub mnuS_DelR_Click()
    frmAccSet.Form_KeyUp vbKeyY, 2
End Sub

Private Sub mnuS_ExitR_Click()
    frmAccSet.Form_KeyUp vbKeyF4, 2
End Sub

Private Sub mnuS_HelpR_Click()
    SendKeys "{F1}"
End Sub

Private Sub mnuS_PreviewR_Click()
    'frmAccSet.Form_KeyUp vbKeyS, 2 'cuidong 2001.01.15
    frmAccSet.Gen_Key "Preview"     'cuidong 2001.01.15
End Sub

Private Sub mnuS_PrintR_Click()
    frmAccSet.Form_KeyUp vbKeyP, 2
End Sub

Private Sub mnuS_RefreshR_Click()
    frmAccSet.Form_KeyUp vbKeyR, 2
End Sub

Private Sub mnuS_SaveR_Click()
    frmAccSet.Form_KeyUp vbKeyF6, 0
End Sub

Private Sub ocxPrt_SettingChanged(ByVal varLocalSettings As Variant, ByVal varModuleSettings As Variant)

End Sub