mdiform1.frm

远程控制水表的系统。基于无线传输技术对水表远程进行操作

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "水表计费管理"
   ClientHeight    =   8460
   ClientLeft      =   165
   ClientTop       =   570
   ClientWidth     =   11460
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   1  '所有者中心
   Begin VB.Menu xtsz 
      Caption         =   " 系统设置(&S)"
      Begin VB.Menu yhzc 
         Caption         =   "用户注册(&U)"
         Shortcut        =   ^U
      End
      Begin VB.Menu yhgl 
         Caption         =   "用户管理(&G)"
         Shortcut        =   ^G
      End
      Begin VB.Menu op1 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统(E)"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu sjcj 
      Caption         =   " 数据采集(&J)"
      Begin VB.Menu ydwcj 
         Caption         =   "一点位采集(&I)"
         Shortcut        =   ^I
      End
      Begin VB.Menu op10 
         Caption         =   "-"
      End
      Begin VB.Menu edwcj 
         Caption         =   "二点位采集(&K)"
         Shortcut        =   ^K
      End
      Begin VB.Menu op11 
         Caption         =   "-"
      End
      Begin VB.Menu sdwcj 
         Caption         =   "三点位采集(&L)"
         Shortcut        =   ^L
      End
   End
   Begin VB.Menu sbcz 
      Caption         =   " 水表操作(&W)"
      Begin VB.Menu ljcz 
         Caption         =   "累加冲值(&R)"
         Shortcut        =   ^R
      End
      Begin VB.Menu qlcz 
         Caption         =   "清零充值(&T)"
         Shortcut        =   ^T
      End
      Begin VB.Menu op3 
         Caption         =   "-"
      End
      Begin VB.Menu ljcs 
         Caption         =   "累加冲水(&Y)"
         Shortcut        =   ^Y
      End
      Begin VB.Menu qlcs 
         Caption         =   "清零冲水(&O)"
         Shortcut        =   ^O
      End
      Begin VB.Menu op4 
         Caption         =   "-"
      End
      Begin VB.Menu szdj 
         Caption         =   "设置单价(&H)"
         Shortcut        =   ^H
      End
      Begin VB.Menu op5 
         Caption         =   "-"
      End
      Begin VB.Menu ztsz 
         Caption         =   "状态设置(&Z)"
         Shortcut        =   ^Z
      End
   End
   Begin VB.Menu bbsc 
      Caption         =   " 报表输出(&N)"
      Begin VB.Menu dyrbb 
         Caption         =   "打印日报表(&M)"
         Shortcut        =   ^M
      End
      Begin VB.Menu op7 
         Caption         =   "-"
      End
      Begin VB.Menu dyybb 
         Caption         =   "打印月报表(&A)"
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu bangzhu 
      Caption         =   " 帮助(&D)"
      Begin VB.Menu bzrr 
         Caption         =   "帮助内容(&F)"
         Shortcut        =   {F1}
      End
      Begin VB.Menu op6 
         Caption         =   "-"
      End
      Begin VB.Menu guany 
         Caption         =   "关于....(&B)"
         Shortcut        =   ^B
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub dynbb_Click()

End Sub

Private Sub dyrbb_Click()
frm_rbbiao.Show
End Sub

Private Sub dyybb_Click()
frm_ybbiao.Show
End Sub

Private Sub edwcj_Click()
frm_erdwsj.Show
End Sub

Private Sub exit_Click()
Unload Me
Exit Sub
End Sub

Private Sub guany_Click()
frmAbout.Show
End Sub

Private Sub ljcs_Click()
frm1_ljcs.Show
End Sub

Private Sub ljcz_Click()
frm_ljcz.Show
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim dexit As Integer
dexit = MsgBox("你确认要退出系统吗?", vbOKCancel + vbQuestion, "提示")
If dexit = vbOK Then
   Unload Me
   End
Else
   If dexit = vbCancel Then Cancel = True
End If
End Sub

Private Sub qlcs_Click()
frm_qlcs.Show
End Sub

Private Sub qlcz_Click()
frm_qlcz.Show
End Sub

Private Sub sdwcj_Click()
frm_sdwsj.Show
End Sub

Private Sub szdj_Click()
frm_szdj.Show
End Sub

Private Sub ydwcj_Click()
frm_ydwsj.Show
End Sub

Private Sub yhgl_Click()
frm_yhgl.Show
End Sub

Private Sub yhzc_Click()
frm_zhuc.Show
End Sub

Private Sub ztsz_Click()
frm_ztsz.Show
End Sub