mdimain.frm

一个功能比较完善的远程抄表软件

   Begin VB.Menu mnuDataCollect 
      Caption         =   "数据采集(&C)"
      Begin VB.Menu mnuManual 
         Caption         =   "手工采集(&])"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuAuto 
         Caption         =   "自动采集(&U)"
      End
      Begin VB.Menu mnuCollect_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCollectAll 
         Caption         =   "全程采集(&A)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuCollectSome 
         Caption         =   "指定采集(&S)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuCollect_Sep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCollect_Handup 
         Caption         =   "用户缴费(&H)"
      End
      Begin VB.Menu mnuWaste 
         Caption         =   "用户损耗(&W)"
         Begin VB.Menu mnuAutoWaste 
            Caption         =   "自动采集(&A)"
         End
         Begin VB.Menu mnuManualWaste 
            Caption         =   "手工录入(&M)"
         End
      End
      Begin VB.Menu mnuSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCardData 
         Caption         =   "卡式采集(&D)"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu mnuBrowse 
      Caption         =   "浏览数据(&B)"
      Begin VB.Menu mnuBrow_curData 
         Caption         =   "查看用户存款余额(&C)"
      End
      Begin VB.Menu mnuQuery 
         Caption         =   "查询用户数据(&A)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuSep 
         Caption         =   "-"
      End
      Begin VB.Menu mnuClear 
         Caption         =   "维护数据(&M)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuBrow_Sep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBrow_Open 
         Caption         =   "打开信息显示(&O)"
      End
      Begin VB.Menu mnuBrow_Clear 
         Caption         =   "清除状态信息(&D)"
      End
      Begin VB.Menu mnuBrow_Sep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBrow_Noticed 
         Caption         =   "标注为已通知(&R)"
      End
   End
   Begin VB.Menu mnuSetup 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu mnuBaseSet 
         Caption         =   "采集控制板基地址设置(&B)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuSet_PCollect 
         Caption         =   "并行码采集(&L)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuSet_ComCollect 
         Caption         =   "串行码采集(&C)"
      End
      Begin VB.Menu mnuSepSet 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSetAuto 
         Caption         =   "自动采集时间设置(&A)"
      End
      Begin VB.Menu mnuSetSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAddrTribute 
         Caption         =   "网络地址分配(&T)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuGateSet 
         Caption         =   "网关设置(&G)..."
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuBuildSet 
         Caption         =   "安全器设置(&S)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuPrice 
         Caption         =   "网络设备设置(&D)..."
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuUserSet 
         Caption         =   "用户设置(&U)..."
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuSet_Sep4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSet_LateFee 
         Caption         =   "滞纳金设置(&L)"
      End
      Begin VB.Menu mnuSet_MinFee 
         Caption         =   "最低存款余额设置(&F)"
      End
      Begin VB.Menu mnuSet_ShutFee 
         Caption         =   "关断金额设置(&U)"
      End
      Begin VB.Menu mnuSet_AutoOpenLamp 
         Caption         =   "是否自动通断缴费通知灯(&M)"
      End
      Begin VB.Menu mnuSet_AutoShut 
         Caption         =   "是否自动断电(&H)"
      End
      Begin VB.Menu mnuSetSep 
         Caption         =   "-"
      End
      Begin VB.Menu mnuOPSetup 
         Caption         =   "操作员设置(&O)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuSuper 
         Caption         =   "系统操作员口令设置(&P)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuGetIn 
         Caption         =   "收费员设置(&G)"
      End
      Begin VB.Menu mnuSetSep5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSetVide 
         Caption         =   "视频卡设置(&V)"
      End
   End
   Begin VB.Menu mnuAlert 
      Caption         =   "报警监测(&A)"
      Begin VB.Menu mnuOpenAlert 
         Caption         =   "打开报警系统(&U)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuShutAlert 
         Caption         =   "关闭报警系统(&S)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuspe 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBrowAlert 
         Caption         =   "查看报警记录(&B)"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuSysHelp 
         Caption         =   "系统帮助(&C)"
         Visible         =   0   'False
      End
      Begin VB.Menu seporator 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "关于(&A)..."
      End
   End
   Begin VB.Menu mnuHot1 
      Caption         =   "快捷1"
      Visible         =   0   'False
      Begin VB.Menu mnuHot1_Clear 
         Caption         =   "清除"
      End
   End
   Begin VB.Menu mnuHot2 
      Caption         =   "快捷2"
      Visible         =   0   'False
      Begin VB.Menu mnuHot2_Noticed 
         Caption         =   "标注为已通知"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/07/09
'描    述：CBB三表户外计量系统 Ver 5.2
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Dim PnlBaseW As Integer
Dim PnlBaseL As Integer
Dim PnlLifeW As Integer
Dim PnlLifeL As Integer
Dim PnlRobW As Integer
Dim PnlRobL As Integer
Dim PnlGasW As Integer
Dim PnlGasL As Integer
Dim PnlWaterW As Integer
Dim PnlWaterL As Integer
Dim cmdStarAlertW As Integer
Dim cmdStarALertL As Integer
'Dim cmdShutAlertW As Integer
'Dim cmdShutAlertL As Integer

Private Sub MDIForm_Load()
    'closeCard
    
    ControlSize
    
    With frmBackGround
    .Show
    .Width = Me.Width
    .Height = Me.Height
    
    End With
    
    
    BrowInfo = False
    'frmMainInfo.Show
    fCollected = True
    Set pubTimer1 = frmMain.Timer1
    Set pubTimerDelay = frmMain.TimerDelay
    stbMain.Panels(1).Text = "当前操作员：" & Trim(curOP)
    MakeFlat
    
    loadAlertPanel
    initMenu
    initVideocard      'zx ,for laptop test
    
    
    '2000/10/11
    'frmMainInfo.Show
    
    'FreshUserStatus
    'mnuOpenAlert_Click
'status
    'AppendStatusInfo "欢迎进入CBB三表计量管理系统 4.0版 !", icoBLUE
    'SaveLog "欢迎进入CBB三表计量管理系统 4.0版 !", 0

End Sub
Sub initVideocard()
Dim ok As Integer

    On Error GoTo err_initVideoCard
    ok = frmMain.videoMain.Connect(False)
    On Error GoTo 0
    
    If ok < 0 Then
        MsgBox "无法连数据采集卡,无法进行数据采集", vbExclamation + vbOKOnly, "连接设备"
    Else
        loadVideoSet
    End If
    
    '启动图像识别
    'ok = Starting
    Exit Sub
    
err_initVideoCard:
    MsgBox "初始化数据采集卡失败，请检查采集卡是否正确安装，系统将无法进行数据采集", vbExclamation + vbOKOnly, "连接设备"
    Exit Sub
End Sub
Sub loadVideoSet()
    With frmMain.videoMain
    .Brightness = gVideoBrightness
    .Contrast = gVideoContrast
    .Hue = gVideoHue
    .Saturation = gVideoSaturation
    .VideoStandard = gVideoStandard
    .VideoSource = gVideoSource
    .ShowDate = gVideoShowDate
    .ShowTime = gVideoShowDate
    .xDate = gVideoXDate
    .yDate = gVideoYDate
    .xTime = gVideoXTime
    .yTime = gVideoYTime
    .SetCaptureWHT gVideoImageWidth, gVideoImageHeight, gVideoColor
    '.ImageHeight = gVideoImageHeight
    '.ImageWidth = gVideoImageWidth
    .FrameRate = gVideoFrameRate
    End With
End Sub
Sub EchoAlert(curAlertType As Integer)
'警型:
'   8---老人救护
'   2---防盗
'   1---煤气泄漏
'   0---盗水,盗气
    
    Select Case curAlertType
        Case ALERT_WATER
            pnlWater.BackColor = RED
            SoundAlert (ALERT_WATER)
        Case ALERT_GAS
            pnlGas.BackColor = RED
            SoundAlert (ALERT_GAS)
        Case ALERT_ROB
            pnlRob.BackColor = RED
            SoundAlert (ALERT_ROB)
        Case ALERT_LIFE
            pnlLife.BackColor = RED
            SoundAlert (ALERT_LIFE)
    End Select
End Sub


Sub initAlertPanel()

    'mnuOpenAlert.Enabled = False
    'mnuShutAlert.Enabled = True

    pnlLife.BackColor = GREEN
    pnlLife.FontSize = 10
    pnlLife.ForeColor = BLUE
    pnlLife.Refresh
    pnlRob.BackColor = GREEN
    pnlRob.FontSize = 10
    pnlRob.ForeColor = BLUE
    pnlRob.Refresh
    pnlGas.BackColor = GREEN
    pnlGas.FontSize = 10
    pnlGas.ForeColor = BLUE
    pnlGas.Refresh
    pnlWater.BackColor = GREEN
    pnlWater.FontSize = 10
    pnlWater.ForeColor = BLUE
    pnlWater.Refresh
    QuitAlert = 0
End Sub

Sub initMenu()
    mnuSet_AutoShut.Checked = IIf(gCurAutoOpenLamp = 1, True, False)
    mnuSet_AutoShut.Checked = IIf(gCurAutoShut = 1, True, False)
    mnuSet_PCollect.Checked = IIf(gCollectType = 0, True, False)
    mnuSet_ComCollect.Checked = IIf(gCollectType = 0, False, True)
    mnuAuto.Checked = Auto_Manual
    mnuManual.Checked = Not Auto_Manual
    If curOP = "SUPER" Then
                mnuChkAll.Enabled = True
                mnuChkGate.Enabled = True
                mnuChkBBus.Enabled = True
                mnuGateProcess.Enabled = True
                mnuSafeWallProcess.Enabled = True
                
                mnuCollectAll.Enabled = True
                mnuCollectSome.Enabled = True
                mnuCardData.Enabled = True
                
                mnuQuery.Enabled = True
                mnuClear.Enabled = True
                
                mnuOpenAlert = True
                mnuShutAlert = True
                mnuBrowAlert = True