apiouttest.frm

金算盘软件代码

                       frmMain.mnuListRateSet_Click
                       Me.Enabled = True
                    Else
                      MsgBox "没有“利率设置”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                #End If
            End Select
        Case "帐务", "财务"
            Select Case strItemCommand
                Case "记帐凭证"
                    If IsCanDo(27, gclsBase.OperatorID) Or IsCanDo(28, gclsBase.OperatorID) Then
                       Me.Enabled = False
                       frmMain.mnuAccountVoucher_Click
                       Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“查询和填制记帐凭证”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "通用转帐"
                    If IsCanDo(31, gclsBase.OperatorID) Then
                       Me.Enabled = False
                       frmMain.mnuAccountTemplate_Click
                       Me.Enabled = True
                    Else
                       ShowMsg Me.hwnd, "没有“通用转帐”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "期末调汇"
                    If IsCanDo(32, gclsBase.OperatorID) Then
                       Me.Enabled = False
                       frmMain.mnuAccountCalcExchange_Click
                       Me.Enabled = True
                    Else
                       ShowMsg Me.hwnd, "没有“期末调汇”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                #If Not conHos = 1 Then
                Case "费用分摊"
                     If IsCanDo(222, gclsBase.OperatorID) Then
                         MousePointer = vbHourglass
                         If CheckLoss(frmExpense.Caption) Then
                             frmExpense.Show vbModal
                         End If
                         MousePointer = vbDefault
                         Set frmExpense = Nothing
                    Else
                       ShowMsg Me.hwnd, "没有“费用分摊”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                #End If
                Case "损益结转"
                    If IsCanDo(33, gclsBase.OperatorID) Then
                       Me.Enabled = False
                       frmMain.mnuAccountProfitLoss_Click
                       Me.Enabled = True
                    Else
                       ShowMsg Me.hwnd, "没有“损益结转”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "收支结转"
                    If IsCanDo(33, gclsBase.OperatorID) Then
                       Me.Enabled = False
                       frmMain.mnuAccountProfitLoss_Click
                       Me.Enabled = True
                    Else
                       ShowMsg Me.hwnd, "没有“收支结转”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                #If Not conHos = 1 Then
                Case "结余分配"
                    If IsCanDo(221, gclsBase.OperatorID) Then
                        MousePointer = vbHourglass
                        If CheckLoss(frmDispart.Caption) Then
                            frmDispart.Show vbModal
                        End If
                        MousePointer = vbDefault
                        Set frmDispart = Nothing
                    Else
                      ShowMsg Me.hwnd, "没有“结余分配”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                #End If
                Case "复核"
                    If IsCanDo(27, gclsBase.OperatorID) Then
                       Me.Enabled = False
                       With frmListVoucher
                           .Show
                           .ZOrder
                        End With
                       Me.Enabled = True
                    Else
                       ShowMsg Me.hwnd, "没有“复核”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "记帐"
                    If IsCanDo(27, gclsBase.OperatorID) Then
                       Me.Enabled = False
                       With frmListVoucher
                           .Show
                           .ZOrder
                        End With
                       Me.Enabled = True
                    Else
                       ShowMsg Me.hwnd, "没有“记帐”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "期末结帐"
                    If IsCanDo(34, gclsBase.OperatorID) Then
                       Me.Enabled = False
                       mstrURL = "期末结帐"
                       PostMessage Me.hwnd, WM_LBUTTONUP, 0, 0
'                       Me.Enabled = True
                    Else
                       ShowMsg Me.hwnd, "没有“期末结帐”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "总分类帐"
                    Report.ShowAcntBook 122, 5
                Case "试算平衡表"
                    Report.ShowBalance 1437, 662
                Case "凭证汇总表"
                    Report.ShowBalance 1483, 680
                Case "科目汇总表"
                    Report.ShowBalance 1783, 680
                Case "科目余额表"
                    Report.ShowBalance 1419, 636
                Case "我的报表"
                    frmMain.ShowMyReport
            End Select
            
        #If conHos <> 1 Then
        Case "工资"
            Select Case strItemCommand
                Case "建立工资表"
                    If frmMain.mnuAccountSalary.Enabled Then
                        Me.Enabled = False
                        If Not frmSalaryList.SetNewSalarylist Then
                                ShowMsg Me.hwnd, "没有“建立工资表”的权限！", vbCritical + vbOKOnly, App.title
                        End If
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“建立工资表”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "工资录入"
                    If frmMain.mnuAccountSalary.Enabled Then
                        Me.Enabled = False
                        If Not frmSalaryList.SetInputSalarylist Then
                                ShowMsg Me.hwnd, "没有“工资录入”的权限！", vbCritical + vbOKOnly, App.title
                        End If
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“工资录入”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "工资凭证"
                    If frmMain.mnuAccountSalaryVoucher.Enabled Then
                        Me.Enabled = False
                        If Not frmSalaryPilot.SetSalaryPilot Then
                               ShowMsg Me.hwnd, "没有“查询和填制工资凭证”的权限！", vbCritical + vbOKOnly, App.title
                        End If
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“查询和填制工资凭证”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "工资发放表"
                    Report.ShowStandardReport 1367, 593
                Case "工资汇总表"
                    Report.ShowSumReport 1368, 595
                Case "工资费用分配表"
                    Report.ShowSumReport 1627, 595
                Case "个人所得税扣缴申报表"
                    Report.ShowStandardReport 1371, 597
                Case "职员工资台帐"
                    Report.ShowStandardReport 1416, 637
                Case "我的报表"
                    frmMain.ShowMyReport
            End Select
        Case "固定资产"
            Select Case strItemCommand
                Case "固资增加"
                    If IsCanDo(119, gclsBase.OperatorID) Then
                        Me.Enabled = False
                        Me.MousePointer = vbHourglass
                        frmFixedAdd.AddNew
                        frmMain.mnuAccountFixedAsset_Click
                        Me.MousePointer = vbDefault
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“固资增加”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "固资减少"
                    If IsCanDo(119, gclsBase.OperatorID) Then
                        Me.Enabled = False
                        Me.MousePointer = vbHourglass
                        frmFixedDec.AddNew
                        frmMain.mnuAccountFixedAsset_Click
                        Me.MousePointer = vbDefault
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“固资减少”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "其它变动"
                    Me.Enabled = False
                    Me.MousePointer = vbHourglass
                    If IsCanDo(119, gclsBase.OperatorID) Then
                        frmFixedOtherAlter.AddNew
                        frmMain.mnuAccountFixedAsset_Click
                    Else
                        ShowMsg Me.hwnd, "没有“其它变动”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                    Me.MousePointer = vbDefault
                    Me.Enabled = True
                Case "工作量录入"
                    If frmMain.mnuAccountFixedAsset.Enabled Then
                        Me.Enabled = False
                        Me.MousePointer = vbHourglass
                        frmMain.mnuAccountFixedAsset_Click
                        frmAccountFixedAsset.tabList.Tab = 1
                        Me.MousePointer = vbDefault
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“工作量录入”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "固资凭证"
                    If frmMain.mnuAccountFixedAssetVoucher.Enabled Then
                        Me.Enabled = False
                        frmMain.mnuAccountFixedAssetVoucher_Click
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“查询和填制固资凭证”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "固资卡片"
                    If frmMain.mnuAccountFixedAsset.Enabled Then
                        MousePointer = vbHourglass
                        Load frmAccountFixedAsset
                        With frmAccountFixedAsset
                             .tabList.Tab = .tabList.Tabs - 1
                             .Show
                             .ZOrder 0
                        End With
                        MousePointer = vbDefault
                    Else
                        ShowMsg Me.hwnd, "没有“固资卡片”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "计提折旧"
                    If frmMain.mnuAccountDepreciation.Enabled Then
                        Me.Enabled = False
                        frmMain.mnuAccountDepreciation_Click
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“计提折旧”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "固定资产及累计折旧明细帐" '????
'                    If gclsBase.AccountSys <> 3 Then
                        Report.ShowAcntBook 1372, 598
                Case "固定资产明细帐"
                        Report.ShowAcntBook 1717, 598
'                    End If
                Case "固定资产增减表"
                    Report.ShowSumReport 1452, 666
                Case "固定资产汇总表"
                    Report.ShowSumReport 1636, 755
                Case "固定资产清单"
                    Report.ShowStandardReport 1635, 754
                Case "固定资产折旧汇总表" '??????
'                    If gclsBase.AccountSys <> 3 Then
                        Report.ShowSumReport 1734, 758
                Case "固定资产变动情况明细表"
                        Report.ShowStandardReport 1638, 757
'                    End If
                Case "我的报表"
                    frmMain.ShowMyReport
            End Select
        #End If
        
        Case "领导查询"
            Select Case strItemCommand
                '财务帐册
                Case "总分类帐"
                    Report.ShowAcntBook 1725, 5
                Case "应收明细帐"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAcntBook 1728, 2
                    Else
                        Report.ShowAcntBook 1760, 1107