system.frm

小区巡逻管理靠请系统。需要硬件支持才可以工作

VERSION 5.00
Begin VB.Form system 
   Caption         =   "感应式巡检记录系统"
   ClientHeight    =   4905
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6225
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   14.25
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   4905
   ScaleWidth      =   6225
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu system 
      Caption         =   "   系  统(&S)"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu login 
         Caption         =   "登 录"
      End
      Begin VB.Menu b 
         Caption         =   "-"
      End
      Begin VB.Menu modify 
         Caption         =   "修改密码"
      End
      Begin VB.Menu aaa 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退 出"
      End
   End
End
Attribute VB_Name = "system"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
Me.Width = Screen.Width - 200
Me.Height = Screen.Height - 200
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub login_Click()
frmLogin.Show
End Sub

Private Sub modify_Click()
Dialog.Show
End Sub