📄 frmmain0.frm

📁 自来水公司的一个管理系统
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      End
      Begin VB.Menu mnuSystemManage_StationSet 
         Caption         =   "岗位设置"
      End
      Begin VB.Menu mnuSystemManage_OperationPersonnelInfo 
         Caption         =   "业务员信息"
      End
      Begin VB.Menu mnuXTGL11 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSystemManage_Password 
         Caption         =   "操作员密码管理"
      End
      Begin VB.Menu mnuSystemManage_Purview 
         Caption         =   "操作权限管理"
      End
      Begin VB.Menu mnuXTGL13 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSystemManage_MainMeterInfo 
         Caption         =   "总表信息"
      End
      Begin VB.Menu mnuSystemManage_MeterFlag 
         Caption         =   "水表使用状况信息"
      End
      Begin VB.Menu mnuXTGL16 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSystemManage_SystemParameterSet 
         Caption         =   "系统参数设置"
      End
   End
   Begin VB.Menu mnuWindows 
      Caption         =   "【窗口】"
      Index           =   8
      Begin VB.Menu mnuWindows_Horizontal 
         Caption         =   "水平平铺"
      End
      Begin VB.Menu mnuWindows_Vertical 
         Caption         =   "垂直平铺"
      End
      Begin VB.Menu mnuWindows_Cascade 
         Caption         =   "层叠"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "【帮助】"
      Index           =   9
      Begin VB.Menu mnuHelp_Content 
         Caption         =   "内容帮助"
      End
      Begin VB.Menu mnuBZ2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuHelp_About 
         Caption         =   "关于神往水司管理系统"
      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 mdiform_load()
    Dim strMask As String   '操作权限掩码
    
    Call CheckExist(Me)
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Me.Left = (Screen.Width - Me.Width) \ 2
    Me.Top = (Screen.Height - Me.Height) \ 2
    
    Show
    frmLogin.Show vbModal
    strMask = Trim(frmLogin.strMaskString)
    Call SetMenu(strMask)

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    On Error Resume Next
    Set gMainFormRefer = Nothing
    gConnect.Close
    Set gConnect = Nothing
    On Error GoTo 0
End Sub

Private Sub mnuHelp_About_Click()
    frmAbout.Show vbModal
End Sub

Private Sub mnuNoteManage_NoteCancellation_Click()
    frmNoteCancellation.Show
End Sub

Private Sub mnuNoteManage_NotePrint_Click()
    frmNotePrint.Show
End Sub

Private Sub mnuNoteManage_NoteQuery_Click()
    frmNoteQuery.Show
End Sub

Private Sub mnuOtherManage_GiveStopWater_Click()
    frmGiveStopWater.Show
End Sub

Private Sub mnuOtherManage_GiveStopWaterQuery_Click()
    frmGiveStopWaterQuery.Show
End Sub

Private Sub mnuReportformsCenter_CountRecord_Click()
    frmWaterrateCountRecord.Show
End Sub

Private Sub mnuReportformsCenter_EarningStatisticsBuild_Click()
    frmEarningStatisticsBuild.Show
End Sub

Private Sub mnuReportformsCenter_EarningStatisticsQuery_Click()
    frmEarningStatistics.Show
End Sub

Private Sub mnuReportformsCenter_UserWaterMeterDataRecord_Click()
    frmUserWaterMeterDataRecord.Show
End Sub

Private Sub mnuServiceManager_MainWaterMeterFixInput_Click()
    frmMainWaterMeterFixInput.Show
End Sub

Private Sub mnuServiceManager_MainWaterMeterFixQuery_Click()
    frmMainWaterMeterFixQuery.Show
End Sub

Private Sub mnuServiceManager_MainWaterMeterInsteadInput_Click()
    frmMainWaterMeterInsteadInput.Show
End Sub

Private Sub mnuServiceManager_MainWaterMeterInsteadQuery_Click()
    frmMainWaterMeterInsteadQuery.Show
End Sub

Private Sub mnuServiceManager_PipelineFixInput_Click()
    frmPipelineFixInput.Show
End Sub

Private Sub mnuServiceManager_PipelineFixQuery_Click()
    frmPipelineFixQuery.Show
End Sub

Private Sub mnuServiceManager_WaterMeterFixInput_Click()
    
    frmWaterMeterFixInput.Show
End Sub

Private Sub mnuServiceManager_WaterMeterFixQuery_Click()
    frmWaterMeterFixQuery.Show
End Sub

Private Sub mnuServiceManager_WaterMeterInsteadInput_Click()
    frmWaterMeterInsteadInput.Show
End Sub

Private Sub mnuServiceManager_WaterMeterInsteadQuery_Click()
    frmWaterMeterInsteadQuery.Show
End Sub

Private Sub mnuSystemManage_Password_Click()
    frmMMGL.Show
End Sub

Private Sub mnuSystemManage_Purview_Click()
    frmQXGL.Show vbModal
End Sub

Private Sub mnuUserManage_ArrearageUser_Click()
    frmArrearageUserManage.Show
End Sub

'Private Sub mnuUserManage_NoGeneralUser_Click()
'    frmNoGeneralUserManage.Show
'End Sub

Private Sub mnuUserManage_NoGeneralUser_Input_Click()
    frmNoGeneralUserManageInput.Show
End Sub

Private Sub mnuUserManage_NoGeneralUser_Query_Click()
    frmNoGeneralUserManageQuery.Show
End Sub

Private Sub mnuUserManage_NoReadWMUsers_Click()
    frmNoReadWMUsers.Show
End Sub

Private Sub mnuUserManage_UserClose_Click()
    frmUserClose.Show
End Sub

Private Sub mnuUserManage_UserRecordQuery_Click()
    frmUserRecordQuery.Show
End Sub

Private Sub mnuUserManage_UserTurnOn_Click()
    frmUserTurnOn.Show
End Sub

'Private Sub mnuUserManage_UserWaterMeterDataRecord_Click()
'    frmUserWaterMeterDataRecord.Show
'End Sub

Private Sub mnuWaterRateManage_Count_Click()
    frmWaterrateCount.Show
End Sub

'水费管理菜单

Private Sub mnuWaterRateManage_DatadiskExport_Click()
    frmDatadiskExport.Show vbModal
End Sub

Private Sub mnuWaterRateManage_DatadiskInport_Click()
    frmDatadiskImport.Show vbModal
End Sub


Private Sub mnuWaterRateManage_DataInput_MainMeterDataInput_Click()
    frmMainWaterMeterInput_DateInput.Show
End Sub

Private Sub mnuWaterRateManage_DataInput_SubMeterDataInput_Click()
    frmWaterMeterInput_DateInput.Show
End Sub

Private Sub mnuWaterRateManage_Notice_Click()
    frmWaterrateRequisition.Show
End Sub


Private Sub mnuWaterRateManage_PayInfoDataInput_Click()
    frmPayInfoDataInput.Show
End Sub

'窗口菜单
Private Sub mnuWindows_Cascade_Click()
    Me.Arrange vbCascade
End Sub

Private Sub mnuWindows_Horizontal_Click()
    Me.Arrange vbHorizontal
End Sub

Private Sub mnuWindows_Vertical_Click()
    Me.Arrange vbVertical
End Sub


'系统管理菜单
Private Sub mnuSystemManage_BankInfo_BankInfo_Click()
    frmYHGL.Show
End Sub

Private Sub mnuSystemManage_BankInfo_SubsetInfo_Click()
    frmYHFLCGL.Show
End Sub

Private Sub mnuSystemManage_LateFeeStandard_Click()
    frmZNJGL.Show
End Sub

Private Sub mnuSystemManage_MainMeterInfo_Click()
    frmZBGL.Show
End Sub

Private Sub mnuSystemManage_MeterFlag_Click()
    frmSBZKGL.Show
End Sub

Private Sub mnuSystemManage_OperationPersonnelInfo_Click()
    frmYWYGL.Show
End Sub

Private Sub mnuSystemManage_PPartition_Click()
    frmPQGL.Show
End Sub

Private Sub mnuSystemManage_QPartition_Click()
    frmXQGL.Show
End Sub

Private Sub mnuSystemManage_StationSet_Click()
    frmGWGL.Show
End Sub

Private Sub mnuSystemManage_UserCaptureType_Click()
    frmJFLXGL.Show
End Sub

Private Sub mnuSystemManage_UserTypeORPrice_Click()
    frmYHLXGL.Show
End Sub

Private Sub tbrMain_ButtonClick(ByVal Button As MSComctlLib.Button)
    '工具条按钮
    Select Case Button.Index
        Case 2
            Call mnuWaterRateManage_DataInput_SubMeterDataInput_Click
        Case 3
            Call mnuWaterRateManage_DataInput_MainMeterDataInput_Click
        Case 4
            Call mnuWaterRateManage_Notice_Click
        Case 6
            Call mnuWaterRateManage_DatadiskInport_Click
        Case 7
            Call mnuWaterRateManage_DatadiskExport_Click
        Case 9
            Call mnuNoteManage_NotePrint_Click
        Case 10
            Call mnuUserManage_ArrearageUser_Click
        Case 12
            Call mnuUserManage_UserTurnOn_Click
        Case 14
            Unload Me
    End Select
    
End Sub

Private Sub SetMenu(ByVal strMask As String)
'根据参数传来的掩码，设置菜单的打开/关闭
'同时设置工具条项的打开/关闭
    On Error Resume Next
    mnuWaterRateManage_Notice.Enabled = Val(Mid(strMask, 1, 1))
        tbrMain.Buttons(4).Enabled = Val(Mid(strMask, 1, 1))
    mnuWaterRateManage_DataInput.Enabled = Val(Mid(strMask, 2, 1))
        tbrMain.Buttons(2).Enabled = Val(Mid(strMask, 2, 1))
        tbrMain.Buttons(3).Enabled = Val(Mid(strMask, 2, 1))
    mnuWaterRateManage_Count.Enabled = Val(Mid(strMask, 3, 1))
    mnuWaterRateManage_DatadiskExport.Enabled = Val(Mid(strMask, 4, 1))
        tbrMain.Buttons(6).Enabled = Val(Mid(strMask, 4, 1))
    mnuWaterRateManage_DatadiskInport.Enabled = Val(Mid(strMask, 5, 1))
        tbrMain.Buttons(5).Enabled = Val(Mid(strMask, 5, 1))
    
    mnuUserManage_NoReadWMUsers.Enabled = Val(Mid(strMask, 6, 1))
    mnuUserManage_ArrearageUser.Enabled = Val(Mid(strMask, 7, 1))
        tbrMain.Buttons(8).Enabled = Val(Mid(strMask, 7, 1))
    mnuUserManage_NoGeneralUser.Enabled = Val(Mid(strMask, 8, 1))
    mnuUserManage_UserTurnOn.Enabled = Val(Mid(strMask, 9, 1))
        tbrMain.Buttons(9).Enabled = Val(Mid(strMask, 9, 1))
    mnuUserManage_UserClose.Enabled = Val(Mid(strMask, 10, 1))
    mnuUserManage_UserRecordQuery.Enabled = Val(Mid(strMask, 11, 1))
    
    mnuServiceManager_WaterMeterFix.Enabled = Val(Mid(strMask, 12, 1))
    mnuServiceManager_WaterMeterInstead.Enabled = Val(Mid(strMask, 13, 1))
    mnuServiceManager_MainWaterMeterFix.Enabled = Val(Mid(strMask, 14, 1))
    mnuServiceManager_MainWaterMeterInstead.Enabled = Val(Mid(strMask, 15, 1))
    mnuServiceManager_PipelineFix.Enabled = Val(Mid(strMask, 16, 1))
    
    mnuNoteManage_NotePrint.Enabled = Val(Mid(strMask, 17, 1))
        tbrMain.Buttons(7).Enabled = Val(Mid(strMask, 17, 1))
    mnuNoteManage_NoteCancellation.Enabled = Val(Mid(strMask, 18, 1))
    mnuNoteManage_NoteQuery.Enabled = Val(Mid(strMask, 19, 1))
    
    mnuReportformsCenter_EarningStatistics.Enabled = Val(Mid(strMask, 20, 1))
    mnuReportformsCenter_InvoiceStatistics.Enabled = Val(Mid(strMask, 21, 1))
    mnuReportformsCenter_UserWaterMeterDataRecord.Enabled = Val(Mid(strMask, 22, 1))
    mnuReportformsCenter_CountRecord.Enabled = Val(Mid(strMask, 23, 1))
    
    mnuOtherManage_GiveStopWater.Enabled = Val(Mid(strMask, 24, 1))
    mnuOtherManage_GiveStopWaterQuery.Enabled = Val(Mid(strMask, 25, 1))
    
    mnuSystemManage_PPartition.Enabled = Val(Mid(strMask, 26, 1))
    mnuSystemManage_QPartition.Enabled = Val(Mid(strMask, 27, 1))
    mnuSystemManage_BankInfo.Enabled = Val(Mid(strMask, 28, 1))
    mnuSystemManage_LateFeeStandard.Enabled = Val(Mid(strMask, 29, 1))
    mnuSystemManage_UserTypeORPrice.Enabled = Val(Mid(strMask, 30, 1))
    mnuSystemManage_UserCaptureType.Enabled = Val(Mid(strMask, 31, 1))
    mnuSystemManage_StationSet.Enabled = Val(Mid(strMask, 32, 1))
    mnuSystemManage_OperationPersonnelInfo.Enabled = Val(Mid(strMask, 33, 1))
    mnuSystemManage_Password.Enabled = Val(Mid(strMask, 34, 1))
    mnuSystemManage_Purview.Enabled = Val(Mid(strMask, 35, 1))
    mnuSystemManage_MainMeterInfo.Enabled = Val(Mid(strMask, 36, 1))
    mnuSystemManage_MeterFlag.Enabled = Val(Mid(strMask, 37, 1))
    mnuSystemManage_SystemParameterSet.Enabled = Val(Mid(strMask, 38, 1))
    On Error GoTo 0
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -