frmmain.frm

一个自己做的电力管理系统,主要用于电力电业行业的管理

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain 
   Caption         =   "电业电量管理系统"
   ClientHeight    =   8835
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11295
   DrawMode        =   1  'Blackness
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "frmMain.frx":0BC2
   ScaleHeight     =   8835
   ScaleWidth      =   11295
   StartUpPosition =   3  '窗口缺省
   Visible         =   0   'False
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Top             =   8565
      Width           =   11295
      _ExtentX        =   19923
      _ExtentY        =   476
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   14261
            Text            =   "欢迎进入重庆大学电器工程学院电业电量管理系统"
            TextSave        =   "欢迎进入重庆大学电器工程学院电业电量管理系统"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2008-3-16"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "10:58"
         EndProperty
      EndProperty
   End
   Begin VB.Menu systemM 
      Caption         =   "系统管理"
      Begin VB.Menu Mdpass 
         Caption         =   "修改密码"
      End
      Begin VB.Menu Adduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu Rlogin 
         Caption         =   "重新登陆"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu workerm 
      Caption         =   "抄表员管理"
      Begin VB.Menu workerfilem 
         Caption         =   "抄表员档案管理"
      End
   End
   Begin VB.Menu customerm 
      Caption         =   "用户管理"
      Begin VB.Menu customerfilem 
         Caption         =   "用户档案管理"
      End
   End
   Begin VB.Menu digtran 
      Caption         =   "数据传输"
      Begin VB.Menu digupload 
         Caption         =   "数据传输"
      End
   End
   Begin VB.Menu select 
      Caption         =   "查询"
      Begin VB.Menu selectworkerinfo 
         Caption         =   "抄表员信息查询"
      End
      Begin VB.Menu selectcustoinfo 
         Caption         =   "用户信息查询"
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "关于作者"
      End
      Begin VB.Menu Help1 
         Caption         =   "帮助(&H)"
         Shortcut        =   {F1}
      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 about_Click()
    frmAbout.Show
End Sub

Private Sub Adduser_Click()     '添加用户
    frmAdduser.Show
End Sub
Private Sub customerfilem_Click()
    frmcustoinfo.Show
End Sub



Private Sub digupload_Click()
frmdigupload.Show
End Sub

Private Sub Exit_Click()        '退出本系统
    Dim st As Integer
     st = MsgBox("您将要离开本系统，你确定离开本系统吗？", vbOKCancel)
     If st = 1 Then
         Unload Me
      End If
End Sub


   '退出窗体
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim st As Integer
    st = MsgBox("您将要离开本系统，你确定离开本系统吗？", vbOKCancel)
    If st = 1 Then
        Unload Me
     End If
End Sub

Private Sub Help1_Click()       '显示帮助
    Frmhelp.Show
End Sub

Private Sub Mdpass_Click()      '修改用户密码
    frmMdpassword.Show
End Sub

Private Sub Rlogin_Click()       '重新登陆
    frmLogin.Show
    Unload Me
End Sub

Private Sub selectcustoinfo_Click()
frmselectcustoinfo.Show
End Sub

Private Sub selectworkerinfo_Click()
frmSelectworkerinfo.Show
End Sub

Private Sub workerfilem_Click()
frmworkerInfo.Show

End Sub