frmmain.frm

水电费管理信息系统。用VB编写

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "水电费管理系统"
   ClientHeight    =   6975
   ClientLeft      =   2310
   ClientTop       =   2355
   ClientWidth     =   10740
   LinkTopic       =   "Form2"
   ScaleHeight     =   6975
   ScaleWidth      =   10740
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   15420
      Left            =   0
      Picture         =   "frmMain.frx":0000
      ScaleHeight     =   15360
      ScaleWidth      =   19200
      TabIndex        =   0
      Top             =   360
      Width           =   19260
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      X1              =   0
      X2              =   15240
      Y1              =   10
      Y2              =   10
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   15240
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Menu Mnu_in_update 
      Caption         =   "数据管理(&I)"
      Begin VB.Menu Mnu_Water 
         Caption         =   "用户信息输入(&B)..."
         Shortcut        =   ^B
      End
      Begin VB.Menu Mnu_GL 
         Caption         =   "用户信息管理(&G)..."
         Shortcut        =   ^G
      End
      Begin VB.Menu Mnu_e 
         Caption         =   "水电费数据输入(&U)..."
         Shortcut        =   ^U
      End
      Begin VB.Menu Mnu_eGL 
         Caption         =   "水电费数据管理(&T)..."
         Shortcut        =   ^T
      End
      Begin VB.Menu Mnu_F 
         Caption         =   "-"
      End
      Begin VB.Menu Mnu_end 
         Caption         =   "退出(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu Mnu_Query 
      Caption         =   "用户查询(&Q)"
      Begin VB.Menu Mnu_Qry_W 
         Caption         =   "用户信息查询(&Y)..."
         Shortcut        =   ^Y
      End
      Begin VB.Menu Mnu_Qry_E 
         Caption         =   "水电费查询(&S)..."
         Shortcut        =   ^S
      End
      Begin VB.Menu MNu_kk 
         Caption         =   "-"
      End
      Begin VB.Menu Mnu_Com 
         Caption         =   "计算器(&J)"
         Shortcut        =   ^J
      End
   End
   Begin VB.Menu Mnu_Print 
      Caption         =   "统计报表(&P)"
      Begin VB.Menu Mnu_MonTT 
         Caption         =   "交费情况统计(&N)"
      End
      Begin VB.Menu Mnu_TJ_W 
         Caption         =   "月总各项统计(&V)"
      End
   End
   Begin VB.Menu Mnu_G 
      Caption         =   "系统管理(&Z)"
      Begin VB.Menu Mnu_password 
         Caption         =   "密码修改(&M)..."
      End
      Begin VB.Menu Mnu_S 
         Caption         =   "-"
      End
      Begin VB.Menu Mnu_G_Copy 
         Caption         =   "数据备份..."
      End
      Begin VB.Menu Mnu_G_H 
         Caption         =   "数据恢复..."
      End
   End
   Begin VB.Menu Mnu_Help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu Mnu_zixun 
         Caption         =   "相关资迅"
      End
      Begin VB.Menu Mnu_Z 
         Caption         =   "-"
      End
      Begin VB.Menu Mnu_About 
         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


Private Sub Mnu_About_Click()
  frmAbout.Show
End Sub

Private Sub Mnu_Com_Click()
  Shell "C:\WINDOWS\system32\calc.exe"
End Sub

Private Sub Mnu_e_Click()
  frmSDin.Show
End Sub

Private Sub Mnu_eGL_Click()
  frmSDGL.Show
End Sub

Private Sub Mnu_end_Click()
  End
End Sub

Private Sub Mnu_G_Copy_Click()
  frmCopy.Show
End Sub

Private Sub Mnu_G_H_Click()
  frmBackup.Show
End Sub

Private Sub Mnu_GL_Click()
  frmGL.Show
End Sub

Private Sub Mnu_MonTT_Click()
  frmMoney.Show
End Sub

Private Sub Mnu_password_Click()
  frmPWupdate.Show
End Sub

Private Sub Mnu_Qry_E_Click()
  frmSDcx.Show
End Sub

Private Sub Mnu_Qry_W_Click()
  frmyhcx.Show
End Sub

Private Sub Mnu_TJ_W_Click()
  frmTJ.Show
End Sub

Private Sub Mnu_Water_Click()
  frmNew.Show
End Sub

Private Sub Mnu_zixun_Click()
  Form2.Show
End Sub