frmnavigate.frm

来自「电梯检测系统是对电梯性能进行检测的系统。是一个用来学习的程序。」· FRM 代码 · 共 307 行

VERSION 5.00
Begin VB.Form FrmNavigate 
   AutoRedraw      =   -1  'True
   Caption         =   "Elevator Testing System"
   ClientHeight    =   8310
   ClientLeft      =   615
   ClientTop       =   -15
   ClientWidth     =   11370
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   10.5
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "FrmNavigate.frx":0000
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   PaletteMode     =   1  'UseZOrder
   Picture         =   "FrmNavigate.frx":030A
   ScaleHeight     =   554
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   758
   WindowState     =   2  'Maximized
   Begin VB.CommandButton TestCmd 
      Caption         =   "Test Report"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1200
      TabIndex        =   6
      Top             =   5040
      Width           =   2535
   End
   Begin VB.CommandButton ExitCmd 
      Caption         =   "Exit System"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   7440
      TabIndex        =   7
      Top             =   5040
      Width           =   2535
   End
   Begin VB.CommandButton PrjCmd 
      Caption         =   "Project Setup"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   4320
      TabIndex        =   5
      Top             =   5040
      Width           =   2535
   End
   Begin VB.CommandButton WireCmd 
      Caption         =   "Wire Test"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   4320
      TabIndex        =   3
      Top             =   3600
      Width           =   2535
   End
   Begin VB.CommandButton FuncCmd 
      Caption         =   "Function Test"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   7440
      TabIndex        =   4
      Top             =   3600
      Width           =   2535
   End
   Begin VB.Timer DateTimer 
      Interval        =   1000
      Left            =   3600
      Top             =   1200
   End
   Begin VB.PictureBox picHidden 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000001&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   5535
      Left            =   13080
      ScaleHeight     =   369
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   92
      TabIndex        =   0
      Top             =   1920
      Visible         =   0   'False
      Width           =   1380
   End
   Begin VB.Label TimeLabel 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "System Status"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   1920
      Width           =   2415
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00E0E0E0&
      BorderWidth     =   3
      Index           =   5
      X1              =   799
      X2              =   799
      Y1              =   0
      Y2              =   600
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000000&
      Index           =   4
      X1              =   798
      X2              =   798
      Y1              =   3
      Y2              =   603
   End
   Begin VB.Label TitleLabel 
      AutoSize        =   -1  'True
      BackColor       =   &H80000007&
      BackStyle       =   0  'Transparent
      Caption         =   "The software is  by Suzhou-Yidi Software Inc ,2000-10-01"
      ForeColor       =   &H00C0C0C0&
      Height          =   240
      Index           =   5
      Left            =   4440
      TabIndex        =   1
      Top             =   8520
      Width           =   5415
   End
   Begin VB.Menu mnuTestFunc 
      Caption         =   "Main Func"
      Begin VB.Menu FuncTestMenu 
         Caption         =   "Func Test(&F)"
      End
      Begin VB.Menu LineTestMenu 
         Caption         =   "Wire Test(&L)"
      End
      Begin VB.Menu mnuFg6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuTestSet 
         Caption         =   "Test Set(&T)"
      End
      Begin VB.Menu mnuFg10 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "Exit System"
      End
   End
   Begin VB.Menu mnuReport 
      Caption         =   "Report View(&R)"
   End
   Begin VB.Menu MnuPassWord 
      Caption         =   "PassWord"
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "Help(&H)"
      Begin VB.Menu mnuOnlineHelp 
         Caption         =   "Online Help"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "About Me(&A)..."
      End
   End
End
Attribute VB_Name = "FrmNavigate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub DateTimer_Timer()
TimeLabel = Format$(Now, "hh:mm:ss")
End Sub

Private Sub ExitCmd_Click()
  Unload Me
  End
End Sub

Private Sub Form_Load()

Set Me.Picture = LoadPicture(App.Path & "\button\backpic.gif")

End Sub


Private Sub FuncCmd_Click()

'FrmFuncMsg.Show 1
FrmFuncTest.Show

End Sub

Private Sub FuncTestMenu_Click()
  FrmFuncTest.Show
End Sub

Private Sub LineTestMenu_Click()
  FrmWireTest.Show
End Sub


Private Sub mnuAbout_Click()
  frmAbout.Show
End Sub

Private Sub mnuExit_Click()
Unload Me
End
End Sub


Private Sub MnuPassWord_Click()
  FrmPassWord.Show 1
End Sub

Private Sub mnuReport_Click()
  FrmReport.Show
End Sub

Private Sub mnuTestSet_Click()
  FrmProjSet.Show
End Sub

Private Sub PrjCmd_Click()
  On Error Resume Next
  FrmProjSet.Show
End Sub

Private Sub TestCmd_Click()
  On Error Resume Next
  FrmReport.Show
End Sub

Private Sub WireCmd_Click()
  FrmWireTest.Show
End Sub