frmmdi.frm

有线电视收费软件 数据库密码winter

      Begin VB.Menu mnuCensus 
         Caption         =   "用户终端统计"
         Index           =   4
      End
      Begin VB.Menu mnuCensus 
         Caption         =   "用户交费统计"
         Index           =   5
      End
   End
   Begin VB.Menu mnuSS 
      Caption         =   "信息查询(&S)"
      Index           =   2
      Begin VB.Menu mnuInquire 
         Caption         =   "用户基本信息查询"
         Index           =   0
      End
      Begin VB.Menu mnuInquire 
         Caption         =   "用户交费查询"
         Index           =   1
      End
      Begin VB.Menu mnuInquire 
         Caption         =   "用户欠费查询"
         Index           =   2
      End
      Begin VB.Menu mnuInquire 
         Caption         =   "用户欠费补交查询"
         Index           =   3
      End
      Begin VB.Menu mnuInquire 
         Caption         =   "-"
         Index           =   4
      End
      Begin VB.Menu mnuInquire 
         Caption         =   "报停复通查询"
         Index           =   5
      End
      Begin VB.Menu mnuInquire 
         Caption         =   "-"
         Index           =   6
      End
      Begin VB.Menu mnuInquire 
         Caption         =   "自定义查询"
         Index           =   7
      End
   End
   Begin VB.Menu mnuSS 
      Caption         =   "系统设置(&O)"
      Index           =   3
      Begin VB.Menu mnuSet 
         Caption         =   "年度月租费设定"
         Index           =   0
      End
      Begin VB.Menu mnuSet 
         Caption         =   "年度欠费结转"
         Index           =   1
      End
      Begin VB.Menu mnuSet 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu mnuSet 
         Caption         =   "操作员管理"
         Index           =   3
      End
   End
   Begin VB.Menu mnuSS 
      Caption         =   "数据库维护(&R)"
      Index           =   5
      Begin VB.Menu mnuUpHold 
         Caption         =   "用户交费记录维护"
         Index           =   0
      End
      Begin VB.Menu mnuUpHold 
         Caption         =   "用户迁移记录维护"
         Index           =   1
      End
      Begin VB.Menu mnuUpHold 
         Caption         =   "报停复通记录维护"
         Index           =   2
      End
   End
   Begin VB.Menu mnuWindows 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuWin 
         Caption         =   "水平平铺(&H)"
         Index           =   0
      End
      Begin VB.Menu mnuWin 
         Caption         =   "垂直平铺(&V)"
         Index           =   1
      End
      Begin VB.Menu mnuWin 
         Caption         =   "层叠(&C)"
         Index           =   2
      End
      Begin VB.Menu mnuWin 
         Caption         =   "排列图标(&A)"
         Index           =   3
      End
   End
End
Attribute VB_Name = "frmMDI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'主窗体装入
Private Sub MDIForm_Load()
  
  '定义MDI主窗体的位置和大小
  With Me
    .Left = 0
    .Top = 0
    .Width = Screen.Width
    .Height = Screen.Height
  End With
  
  If Screen.Width < 12000 Then
    rectWIDTH = 9540        '640X480
    rectHEIGHT = 6150
'    Me.Picture = LoadPicture(App.Path + "\mdidrw.jpg")
  Else
    rectWIDTH = 11940       '800X600
    rectHEIGHT = 8040 '7650
  End If
  
  Call ToolbarStyle(Me.Toolbar1, 1)

  '根据用户权限设置菜单和工具栏按钮
  Dim i As Integer
  Select Case UCase(sPopedom)
  Case "A"
  
  Case "B"
    '汇总统计中只保留阶段收费统计
    For i = 1 To mnuCensus.Count - 1
        If mnuCensus(i).Caption <> "-" Then
            mnuCensus(i).Enabled = False
        End If
    Next i
    '取消全部系统设置
    For i = 0 To mnuSet.Count - 1
        If mnuSet(i).Caption <> "-" Then
            mnuSet(i).Enabled = False
        End If
    Next i
    mnuSet(3).Enabled = True
    
    Toolbar1.Buttons(10).Enabled = False
    Toolbar1.Buttons(11).Enabled = False
  Case "C"
    '取消全部常规业务
    For i = 0 To mnuTask.Count - 1
        If mnuTask(i).Caption <> "-" Then
            mnuTask(i).Enabled = False
        End If
    Next i
    '取消全部汇总统计
    For i = 0 To mnuCensus.Count - 1
        If mnuCensus(i).Caption <> "-" Then
            mnuCensus(i).Enabled = False
        End If
    Next i
    '取消全部系统设置
    For i = 0 To mnuSet.Count - 1
        If mnuSet(i).Caption <> "-" Then
            mnuSet(i).Enabled = False
        End If
    Next i
    mnuSet(3).Enabled = True
    
    '取消全部数据库维护
    For i = 0 To mnuUpHold.Count - 1
        If mnuUpHold(i).Caption <> "-" Then
            mnuUpHold(i).Enabled = False
        End If
    Next i
    Toolbar1.Buttons(2).Enabled = False
    Toolbar1.Buttons(3).Enabled = False
    Toolbar1.Buttons(4).Enabled = False
    Toolbar1.Buttons(5).Enabled = False
    Toolbar1.Buttons(6).Enabled = False
    Toolbar1.Buttons(7).Enabled = False
    Toolbar1.Buttons(9).Enabled = False
    Toolbar1.Buttons(10).Enabled = False
    Toolbar1.Buttons(11).Enabled = False
  End Select
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim Msg ' 声明变量。
    ' 设置信息文本。
    Msg = "确实要退出吗?"
    ' 如果用户单击 No 按钮，则停止QueryUnload。
    If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub

'处理主窗体卸载事件
Private Sub MDIForm_Unload(Cancel As Integer)
  'Unload frmLogin
  CN.Close
  End
End Sub
'处理统计菜单
Private Sub mnuCensus_Click(Index As Integer)
  Select Case Index
    Case 0 '阶段收费统计
        frmStatFee.Show
    Case 1 '欠费用户统计
'        DataReport.Show
    Case 2 '欠费用户分类统计
        frmStatOwe.Show
    Case 3  '-
    Case 4
        frmTerminate.Show
    Case 5
        frmStat.Show
  End Select
End Sub
'处理查询菜单
Private Sub mnuInquire_Click(Index As Integer)
  Select Case Index
    Case 0  '用户基本信息查询
        frmQryBasic.Show
    Case 1      '用户交费查询
        frmQryFee.Show
    Case 2      '用户欠费查询
        frmQryOwe.Show
    Case 3     '用户欠费补交查询
        frmQryOweFee.Show
    Case 5
        frmQryStpRcn.Show
    Case 7     '自定义查询
        frmQuery.Show
  End Select
End Sub
'处理设置
Private Sub mnuSet_Click(Index As Integer)
    Select Case Index
        Case 0
            frmSetRent.Show
        Case 1
            'frmOweSet.Show
        Case 2  '-
        Case 3  '修改密码
            frmXGMM.Show
    End Select
End Sub
'处理常规业务菜单
Private Sub mnuTask_Click(Index As Integer)
    Select Case Index
    Case 0    '用户基本信息登记
      frmBasic.Show
    Case 1    '用户交费登记
      frmInput.Show
    Case 2    '-
      'frmOweEdt.Show
    Case 3    '用户欠费登记
        'frmOwe.Show
    Case 4    '-
    Case 5    '用户报停
        frmStop.Show
    Case 6    '用户复通
        frmReconn.Show
    Case 7    '-
    Case 8
        frmMove.Show
    Case 9    '-
    Case 10    '退出
        End
    End Select
End Sub
'处理数据库维护菜单
Private Sub mnuUphold_Click(Index As Integer)
  Select Case Index
    Case 0  '用户交费记录维护
        frmEditFee.Show
    Case 1
        frmMoveEdit.Show
    Case 2
'        frmConn.Show
  End Select
End Sub

'处理窗口菜单
Private Sub mnuWin_Click(Index As Integer)
    Select Case Index
        Case 0
            frmMDI.Arrange vbTileHorizontal
        Case 1
            frmMDI.Arrange vbTileVertical
        Case 2
            frmMDI.Arrange vbCascade
        Case 3
            frmMDI.Arrange vbArrangeIcons
    End Select
End Sub

'处理工具栏按钮
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
    Select Case Button.Key
    Case "tbUserInfo"
        frmBasic.Show
        
    Case "tbFee"
        frmInput.Show
        
'    Case "tbOwe"
'        frmOweEdt.Show
'
'    Case "tbOweSet"
'        frmOwe.Show
'
'    Case "tbStop"
'        frmStop.Show
'
'    Case "tbRecon"
'        frmReconn.Show
'
'    Case "tbTotal"
'        frmStatFee.Show
'
'    Case "tbOweTot" '终端统计
'        frmTerminate.Show
'    Case "tbOweGroup"
'        frmStatOwe.Show
'
'    Case "tbQuery"
'        frmQuery.Show
        
    Case "tbExit"
        End
    End Select
    
End Sub