frmmain.frm

本人用VB 6.0和ACCESS编写的水费管理系统

      Begin VB.Menu mnuWaterPriceSet 
         Caption         =   "水费价格设定(&W)"
      End
      Begin VB.Menu mnuRegionMaintain 
         Caption         =   "分区维护(&R)"
         Enabled         =   0   'False
      End
      Begin VB.Menu SeparatorBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDataBackup 
         Caption         =   "数据备份(&B)"
      End
      Begin VB.Menu mnuDataRestore 
         Caption         =   "数据恢复(&R)"
      End
      Begin VB.Menu SeparatorBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuOperatorManage 
         Caption         =   "操作员管理(&M)"
         Shortcut        =   ^M
      End
      Begin VB.Menu mnuModifyPassword 
         Caption         =   "修改密码(&P)"
      End
      Begin VB.Menu mnuSep4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu mnuFormOperate 
      Caption         =   "表单操作(&O)"
      Begin VB.Menu mnuFormProcess 
         Caption         =   "表单处理(&F)"
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuPrintInvoice 
         Caption         =   "打印发票(&P)"
         Shortcut        =   ^P
      End
      Begin VB.Menu SeparatorBar4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFormLogout 
         Caption         =   "表单销号(&L)"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu mnuCountReport 
      Caption         =   "统计报表(&R)"
      Begin VB.Menu mnuInvoiceShift 
         Caption         =   "发票移交(&S)"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuReportDaily 
         Caption         =   "报表日报(&R)"
      End
      Begin VB.Menu mnuCollectLabel 
         Caption         =   "汇总标签(&C)"
      End
      Begin VB.Menu SeparatorBar5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuUnwriteUser 
         Caption         =   "未抄表用户(&U)"
      End
      Begin VB.Menu mnuUserDistributeForm 
         Caption         =   "用户分布表(&D)"
      End
      Begin VB.Menu SeparatorBar6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuWaterPriceCollect 
         Caption         =   "水费汇总(&W)"
         Enabled         =   0   'False
         Shortcut        =   ^W
      End
      Begin VB.Menu mnuDirtyWaterPriceCollect 
         Caption         =   "污水处理费汇总(&D)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuLogoutForm 
         Caption         =   "销号清单(&L)"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu mnuQuery 
      Caption         =   "查询(&Q)"
      Begin VB.Menu mnuHistoryQuery 
         Caption         =   "历史查询(&H)"
         Shortcut        =   ^H
      End
      Begin VB.Menu mnuMonthlyQuery 
         Caption         =   "当月查询(&M)"
      End
      Begin VB.Menu SeparatorBar7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuUserQuery 
         Caption         =   "用户查询(&U)"
         Shortcut        =   ^U
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuContent 
         Caption         =   "内容(&C)"
         Enabled         =   0   'False
         Shortcut        =   {F1}
      End
      Begin VB.Menu SeparatorBar8 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Activate()
    Me.Refresh
    Toolbar1.Refresh            '刷新工具栏
    StatusBar.Refresh          '刷新状态栏
    '在状态栏的窗格上显示日期
    StatusBar.Panels(8).Text = Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
End Sub

Private Sub Form_Load()
    '调入Office助手
    Dim AppName As String
    AppName = App.Path & "\Agent\SAEKO.ACS"
    '装入动画人物数据,其中第一个参数为CharacterID
    MsAgent.Characters.Load "OFFCAT", AppName
    '获取与CharacterID相对应的IAgentCtlCharacter变量
    Set OFFCAT = MsAgent.Characters("OFFCAT")
    '显示/隐藏动画角色
    OFFCAT.MoveTo 920, 20
    OFFCAT.Show
    OFFCAT.Play "wave"
    OFFCAT.Speak "欢迎您进入——自来水公司水费管理系统！"
    OFFCAT.Play "congratulate"
    If FirstUse Then
        mnuSystemInitialize.Visible = True
        mnuSystemManage.Visible = False
        mnuFormOperate.Visible = False
        mnuCountReport.Visible = False
        mnuQuery.Visible = False
        mnuHelp.Visible = False
        StatusBar.Visible = False
    Else
        Select Case OperatorNameNum
            Case 1             '系统管理员
            Case 2              '录单员
                mnuNewWork.Enabled = False
                Toolbar1.Buttons.Item(2).Enabled = False            '新建工作期
                mnuUserEdit.Enabled = False
                mnuUserLogout.Enabled = False
                mnuUserVerify.Enabled = False
                mnuWaterPriceSet.Enabled = False
                mnuDataBackup.Enabled = False
                mnuDataRestore.Enabled = False
                mnuOperatorManage.Enabled = False
                Toolbar1.Buttons.Item(10).Enabled = False           '人员管理
                mnuCountReport.Enabled = False
                Toolbar1.Buttons.Item(6).Enabled = False            '统计报表
            Case 3              '档案录入人员
                mnuNewWork.Enabled = False
                Toolbar1.Buttons.Item(2).Enabled = False            '新建工作期
                mnuWaterPriceSet.Enabled = False
                mnuOperatorManage.Enabled = False
                Toolbar1.Buttons.Item(10).Enabled = False           '人员管理
                mnuFormOperate.Enabled = False
                Toolbar1.Buttons.Item(4).Enabled = False            '表单处理
                Toolbar1.Buttons.Item(8).Enabled = False            '打印发票
                mnuDataBackup.Enabled = False
                mnuDataRestore.Enabled = False
                mnuCountReport.Enabled = False
                Toolbar1.Buttons.Item(6).Enabled = False            '统计报表
            Case 4              '查询人员
                mnuNewWork.Enabled = False
                Toolbar1.Buttons.Item(2).Enabled = False            '新建工作期
                mnuUserEdit.Enabled = False
                mnuUserLogout.Enabled = False
                mnuUserVerify.Enabled = False
                mnuWaterPriceSet.Enabled = False
                mnuDataBackup.Enabled = False
                mnuDataRestore.Enabled = False
                mnuOperatorManage.Enabled = False
                Toolbar1.Buttons.Item(10).Enabled = False           '人员管理
                mnuFormOperate.Enabled = False
                Toolbar1.Buttons.Item(4).Enabled = False            '表单处理
                Toolbar1.Buttons.Item(8).Enabled = False            '打印发票
'                mnuCountReport.Enabled = False
'                Toolbar1.Buttons.Item(6).Enabled = False            '统计报表
            Case 5              '操作员
                mnuOperatorManage.Enabled = False
                Toolbar1.Buttons.Item(10).Enabled = False           '人员管理
        End Select
        StatusBar.Panels(1).Text = OperatorName1
        StatusBar.Panels(2).Text = OperatorName2
    End If
End Sub

Private Sub mnuAbout_Click()
    frmAbout.Show vbModal
End Sub

Private Sub mnuCollectLabel_Click()
    frmCollectLabel.Show vbModal
End Sub

Private Sub mnuDataBackup_Click()
    frmDataBackup.Show vbModal
End Sub

Private Sub mnuDataRestore_Click()
    frmDataRestore.Show vbModal
End Sub

Private Sub mnuExit_Click()
    OFFCAT.Hide
    OFFCAT.Stop
    Unload Me
    End
End Sub

Private Sub mnuFormProcess_Click()
    frmFormProcess.Show vbModal
End Sub

Private Sub mnuHistoryQuery_Click()
    frmHistoryQuery.Show vbModal
End Sub

Private Sub mnuInvoiceShift_Click()
    frmInvoiceShift.Show vbModal
End Sub

Private Sub mnuModifyPassword_Click()
    frmModifyPassword.Show vbModal
End Sub

Private Sub mnuMonthlyQuery_Click()
    frmMonthlyQuery.Show vbModal
End Sub

Private Sub mnuNewWork_Click()
    frmNewWork.Show vbModal
End Sub

Private Sub mnuOperatorManage_Click()
    frmOperatorManage.Show vbModal
End Sub

Private Sub mnuPrintInvoice_Click()
    frmPrintInvoice.Show vbModal
End Sub

Private Sub mnuReportDaily_Click()
    frmReportDaily.Show vbModal
End Sub

Private Sub mnuSystemInitialize_Click()
    SystemInitialize
    MsgBox "系统初始化成功!" & Chr(13) & Chr(10) & "注意:已经向权限表中添加一个记录,密码为12345!", vbInformation + vbOKOnly, "系统初始化"
End Sub

Private Sub mnuUnwriteUser_Click()
    frmUnwriteUser.Show vbModal
End Sub

Private Sub mnuUserDistributeForm_Click()
    frmUserDistributeForm.Show vbModal
End Sub

Private Sub mnuUserEdit_Click()
    frmUserEdit.Show vbModal
End Sub

Private Sub mnuUserLogout_Click()
    frmUserLogout.Show vbModal
End Sub

Private Sub mnuUserQuery_Click()
    frmUserQuery.Show vbModal
End Sub

Private Sub mnuWaterPriceSet_Click()
    frmWaterPriceSet.Show vbModal
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "NewWork"              '新建工作期
            frmNewWork.Show vbModal
        Case "Water"                '表单处理
            frmFormProcess.Show vbModal
        Case "Print"                '打印发票
            frmPrintInvoice.Show vbModal
        Case "Person"               '人员管理
            frmOperatorManage.Show vbModal
        Case "Key"                  '修改密码"
            frmModifyPassword.Show vbModal
        Case "About"                '关于
            frmAbout.Show vbModal
        Case "Logout"               '注销
            OFFCAT.Hide
            Me.Hide
            Dim fLogin As New frmLogin
            fLogin.Show vbModal
            If Not fLogin.LoginSucceeded Then
                '登录失败，退出应用程序
                End
            End If
            Unload fLogin
            Me.Show
            OFFCAT.Show
            Form_Load
            Form_Activate
        Case "Shutdown"                         '退出
            OFFCAT.Hide
            OFFCAT.Stop
            Unload Me
            End
    End Select
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    On Error Resume Next
    Select Case ButtonMenu.Key
        Case "tlbInvoiceShift"      '发票移交
            frmInvoiceShift.Show vbModal
        Case "tlbReportDaily"        '报表日报"
            frmReportDaily.Show vbModal
        Case "tlbCollectLabel"      '汇总标签
            frmCollectLabel.Show vbModal
        Case "tlbUnwriteUser"       '未抄表用户"
            frmUnwriteUser.Show vbModal
        Case "tlbUserDistributeForm"   '用户分布表
            frmUserDistributeForm.Show vbModal
        Case "tlbHistoryQuery"      '历史查询
            frmHistoryQuery.Show vbModal
        Case "tlbMonthlyQuery"         '当月查询"
            frmMonthlyQuery.Show vbModal
        Case "tlbUserQuery"         '用户查询"
            frmUserQuery.Show vbModal
    End Select
End Sub