frmresmanage.frm

金算盘软件代码

   mbytNowOperate = 1
   lblGroup.Caption = Node.Text
   If Trim(lblGroup.Caption) <> "" Then
       LblList.Caption = "‘" & Trim(lblGroup.Caption) & "’" & "的帐表"
   Else
       LblList.Caption = ""
   End If
   lblDesc = "共有 " & lvwDetail.ListItems.Count & " 个帐表"
End Sub

Public Sub CallPopMenu(Optional EditObject As String = "")
  Dim intCount As Integer
    On Error Resume Next
    
'    If lvwDetail.ListItems.Count > 0 Then
''        lvwDetail_ItemClick lvwDetail.ListItems(1)
'        If lvwDetail.ListItems(1).SmallIcon = 2 Or lvwDetail.ListItems(1).Icon = 2 _
'           Or lvwDetail.ListItems(1).SmallIcon = 4 Or lvwDetail.ListItems(1).Icon = 4 Then
'            mbytNowOperate = 2
'        Else
'            mbytNowOperate = 3
'        End If
'    End If
    
    With frmMain
        For intCount = .mnuListEditMenu.Count - 1 To 1 Step -1
            Unload .mnuListEditMenu(intCount)
        Next
        For intCount = 1 To 15
           Load .mnuListEditMenu(intCount)
        Next intCount
        
        .mnuListEditMenu(0).Caption = "剪切" & EditObject & "(&T)"
        .mnuListEditMenu(0).Enabled = True
        .mnuListEditMenu(0).Visible = True
        
        .mnuListEditMenu(1).Caption = "复制" & EditObject & "(&C)"
        .mnuListEditMenu(1).Enabled = True
        .mnuListEditMenu(1).Visible = True
   
        .mnuListEditMenu(2).Caption = "粘贴" & EditObject & "(&V)"
        .mnuListEditMenu(2).Enabled = True
        .mnuListEditMenu(2).Visible = True
        
        .mnuListEditMenu(3).Checked = False
        .mnuListEditMenu(3).Enabled = True
        .mnuListEditMenu(3).Caption = "-"
        .mnuListEditMenu(3).Enabled = True
        .mnuListEditMenu(3).Visible = True
        
        .mnuListEditMenu(4).Caption = "重命名" & EditObject & "(&E)"
        .mnuListEditMenu(4).Enabled = True
        .mnuListEditMenu(4).Visible = True
        
        .mnuListEditMenu(5).Caption = "新增" & EditObject & "(&N)"
        .mnuListEditMenu(5).Enabled = True
        .mnuListEditMenu(5).Visible = True
        
        .mnuListEditMenu(6).Caption = "删除" & EditObject & "(&D)"
        .mnuListEditMenu(6).Enabled = True
        .mnuListEditMenu(6).Visible = True
        
        .mnuListEditMenu(7).Checked = False
        .mnuListEditMenu(7).Enabled = True
        .mnuListEditMenu(7).Caption = "-"
        .mnuListEditMenu(7).Enabled = True
        .mnuListEditMenu(7).Visible = True
        
        .mnuListEditMenu(8).Caption = "打印" & "(&P)"
        .mnuListEditMenu(8).Enabled = True
        .mnuListEditMenu(8).Visible = True
        
        .mnuListEditMenu(9).Checked = False
        .mnuListEditMenu(9).Enabled = True
        .mnuListEditMenu(9).Caption = "-"
        .mnuListEditMenu(9).Enabled = True
        .mnuListEditMenu(9).Visible = True
        
        .mnuListEditMenu(10).Caption = "恢复缺省设置" & "(&P)"
        .mnuListEditMenu(10).Enabled = True
        .mnuListEditMenu(10).Visible = True
        
        .mnuListEditMenu(11).Checked = False
        .mnuListEditMenu(11).Enabled = True
        .mnuListEditMenu(11).Caption = "-"
        .mnuListEditMenu(11).Enabled = True
        .mnuListEditMenu(11).Visible = True
        
        .mnuListEditMenu(12).Caption = "大图标" & "(&G)"
        .mnuListEditMenu(12).Enabled = True
        .mnuListEditMenu(12).Visible = True
        
        .mnuListEditMenu(13).Caption = "小图标" & "(&M)"
        .mnuListEditMenu(13).Enabled = True
        .mnuListEditMenu(13).Visible = True
        
        .mnuListEditMenu(14).Caption = "列表" & "(&L)"
        .mnuListEditMenu(14).Enabled = True
        .mnuListEditMenu(14).Visible = True
        
        .mnuListEditMenu(15).Caption = "详细资料" & "(&D)"
        .mnuListEditMenu(15).Enabled = True
        .mnuListEditMenu(15).Visible = True
        .mnuListEditMenu(12 + lvwDetail.View).Checked = True
        
   End With
   mblnIsLoadPopMenu = True
End Sub

'删除帐表
Private Sub DelReport(ByVal DelId As Long)
  Dim strSql As String
  Dim rstSource As rdoResultset, rstDesc As rdoResultset
  Dim fldReportField As rdoColumn
  Dim lngReportID As Long
  Dim rstTemp As rdoResultset
  
     DelReportField DelId
     strSql = "Delete  from Report Where lngReportId=" & DelId
     gclsBase.ExecSQL strSql
     
'     strSql = "Delete * from ReportCond Where lngReportId=" & DelId
'     gclsBase.ExecSQL strSql
     
     strSql = "Select * From Report Where lngParentId=" & DelId
     Set rstTemp = gclsBase.BaseDB.OpenResultset(strSql)
     With rstTemp
         Do While Not .EOF
              DelReport !lngReportID
             .MoveNext
         Loop
         rstTemp.Close
     End With
End Sub

'删除 ReportField 表
Private Sub DelReportField(ByVal lngReportID As Long)
  Dim strSql As String
     strSql = "Delete  from ReportField Where lngReportId=" & lngReportID
     gclsBase.ExecSQL strSql
     Report.DelReportInfo lngReportID
End Sub

'处理菜单项目是否有效
Private Sub DealMenuEnabled()
Dim blnDealReport As Boolean
Dim strTemp As String
Dim intGroup As Integer
Dim blnPrint As Boolean
    '找到分组号
    If mbytNowOperate = 1 Then
        strTemp = tvwReportType.SelectedItem.Key
    Else
        strTemp = lvwDetail.SelectedItem.Key
        '打印
        If GetNoXString(lvwDetail.SelectedItem.Key, 5, "-") <> "0" And GetNoXString(lvwDetail.SelectedItem.Key, 6, "-") = "1" Then
           blnPrint = True
        Else
           blnPrint = False
        End If
    End If
    intGroup = GetNoXString(strTemp, 3, "-")
    '对应分组的权限
    Select Case intGroup
    Case 1
        blnDealReport = frmMain.mnuReportAccount.Enabled And frmMain.mnuReportAccount.Visible
    Case 2
        blnDealReport = frmMain.mnuReportAR.Enabled And frmMain.mnuReportAR.Visible
    Case 3
        blnDealReport = frmMain.mnuReportAP.Enabled And frmMain.mnuReportAP.Visible
    Case 4
        blnDealReport = frmMain.mnuReportCash.Enabled And frmMain.mnuReportCash.Visible
    Case 5
        blnDealReport = frmMain.mnuReportSalary.Enabled And frmMain.mnuReportSalary.Visible
    Case 6
        blnDealReport = frmMain.mnuReportFixed.Enabled And frmMain.mnuReportFixed.Visible
    Case 7
        blnDealReport = frmMain.mnuReportPurchase.Enabled And frmMain.mnuReportPurchase.Visible
    Case 8
        blnDealReport = frmMain.mnuReportSale.Enabled And frmMain.mnuReportSale.Visible
    Case 9
        blnDealReport = frmMain.mnuReportStorage.Enabled And frmMain.mnuReportStorage.Visible
    Case 10            '编码列表
        blnDealReport = True
    Case 11
        blnDealReport = frmMain.mnuReporAnalysis.Enabled And frmMain.mnuReporAnalysis.Visible
    Case 12
        blnDealReport = frmMain.mnuReporAudit.Enabled And frmMain.mnuReporAudit.Visible
    Case 13
        blnDealReport = frmMain.mnuReportHead.Enabled And frmMain.mnuReportHead.Visible
    Case 14            '经营分析
        blnDealReport = frmMain.mnuReporFareAnalysis.Enabled And frmMain.mnuReporFareAnalysis.Visible
    Case 16            '我的报表
        blnDealReport = True
    Case Else
        blnDealReport = True
    End Select
    
    'TreeView中的帐表分类
    If mbytNowOperate = 1 Then
        frmMain.mnuListEditMenu(7).Visible = False
        frmMain.mnuListEditMenu(8).Visible = False
        frmMain.mnuListEditMenu(9).Visible = False
        frmMain.mnuListEditMenu(10).Visible = False
        frmMain.mnuListEditMenu(11).Visible = False
        frmMain.mnuListEditMenu(12).Visible = False
        frmMain.mnuListEditMenu(13).Visible = False
        
        frmMain.mnuListEditMenu(0).Enabled = False
        frmMain.mnuListEditMenu(1).Enabled = False
        frmMain.mnuListEditMenu(5).Caption = "新增(&N)"
        If GetNoXString(tvwReportType.SelectedItem.Key, 1, "-") = "1" Then
           frmMain.mnuListEditMenu(4).Enabled = False
           frmMain.mnuListEditMenu(0).Enabled = False
           frmMain.mnuListEditMenu(1).Enabled = False
        Else
           frmMain.mnuListEditMenu(4).Enabled = blnDealReport
           frmMain.mnuListEditMenu(0).Enabled = blnDealReport
           frmMain.mnuListEditMenu(1).Enabled = blnDealReport
        End If
    End If
     
    'ListView中的帐表分类
    If mbytNowOperate = 2 Then
        frmMain.mnuListEditMenu(7).Visible = True
        frmMain.mnuListEditMenu(8).Visible = True
        frmMain.mnuListEditMenu(8).Enabled = False
        frmMain.mnuListEditMenu(9).Visible = True
        frmMain.mnuListEditMenu(10).Visible = True
        frmMain.mnuListEditMenu(11).Visible = True
        frmMain.mnuListEditMenu(12).Visible = True
        frmMain.mnuListEditMenu(13).Visible = True
        
        frmMain.mnuListEditMenu(0).Enabled = blnDealReport
        frmMain.mnuListEditMenu(1).Enabled = blnDealReport
        frmMain.mnuListEditMenu(5).Caption = "新增(&N)"
        If GetNoXString(lvwDetail.SelectedItem.Key, 1, "-") = "1" Then
           frmMain.mnuListEditMenu(4).Enabled = False
        Else
           frmMain.mnuListEditMenu(4).Enabled = blnDealReport
        End If
    End If
     
    'ListView中的帐表
    If mbytNowOperate = 3 Then
        frmMain.mnuListEditMenu(7).Visible = True
        frmMain.mnuListEditMenu(8).Visible = True
        frmMain.mnuListEditMenu(9).Visible = True
        frmMain.mnuListEditMenu(10).Visible = True
        frmMain.mnuListEditMenu(11).Visible = True
        frmMain.mnuListEditMenu(12).Visible = True
        frmMain.mnuListEditMenu(13).Visible = True
        
        frmMain.mnuListEditMenu(0).Enabled = blnDealReport
        frmMain.mnuListEditMenu(1).Enabled = blnDealReport
        frmMain.mnuListEditMenu(5).Caption = "显示(&S)"
        If GetNoXString(lvwDetail.SelectedItem.Key, 1, "-") = "1" Then
           frmMain.mnuListEditMenu(4).Enabled = False
        Else
           frmMain.mnuListEditMenu(4).Enabled = blnDealReport
        End If
    End If
     
    If mbytClipData = 0 Then
        frmMain.mnuListEditMenu(2).Enabled = False
    Else
        frmMain.mnuListEditMenu(2).Enabled = blnDealReport
    End If
    
    '打印
    frmMain.mnuListEditMenu(8).Enabled = blnPrint
    frmMain.mnuListEditMenu(6).Enabled = blnDealReport
    frmMain.mnuListEditMenu(5).Enabled = blnDealReport
End Sub

Public Sub SetMnuIndex(ByVal strKey As String)
'    On Error Resume Next
    If Not mblnIsLoadPopMenu Then
        CallPopMenu
    End If
    tvwReportType.Nodes(strKey).Selected = True
    tvwReportType_NodeClick tvwReportType.Nodes(tvwReportType.SelectedItem.Key)
End Sub
'是否预置报表
Private Function PrePrport(ByVal ReportID As Long) As Boolean
Dim strSql As String
Dim rstReport As rdoResultset
    strSql = "SELECT bytPrep FROM Report WHERE lngreportid=" & ReportID
    Set rstReport = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
    On Error Resume Next
    If rstReport!bytPrep = 1 Then
        PrePrport = True
    Else
        PrePrport = False
    End If
    Set rstReport = Nothing
End Function
Private Sub tvwReportType_Collapse(ByVal Node As ComctlLib.Node)
  Dim strID As String
   If Not mblnIsLoadPopMenu Then CallPopMenu
   mintOldNode = tvwReportType.SelectedItem.Index
   strID = GetNoXString(Node.Key, 2, "-")
   InitList Val(strID), GetNoXString(Node.Key, 3, "-")
   mbytNowOperate = 1
   lblGroup.Caption = Node.Text
   If Trim(lblGroup.Caption) <> "" Then
       LblList.Caption = "‘" & Trim(lblGroup.Caption) & "’" & "的帐表"
   Else
       LblList.Caption = ""
   End If
   lblDesc = "共有 " & lvwDetail.ListItems.Count & " 个帐表"
End Sub