frmlogin1.frm

VB做的排课

VERSION 5.00
Begin VB.Form frmlogin1 
   BackColor       =   &H00FF8080&
   Caption         =   "重新登录界面"
   ClientHeight    =   10785
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   13995
   ControlBox      =   0   'False
   FillColor       =   &H00FFFF00&
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   21.75
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   Picture         =   "frmlogin1.frx":0000
   ScaleHeight     =   10785
   ScaleLeft       =   30
   ScaleMode       =   0  'User
   ScaleTop        =   20
   ScaleWidth      =   14166.72
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Height          =   6855
      Left            =   2520
      Picture         =   "frmlogin1.frx":0342
      ScaleHeight     =   6795
      ScaleWidth      =   9555
      TabIndex        =   2
      Top             =   480
      Width           =   9615
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00FFC0C0&
      Caption         =   "登录本系统"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   600
      TabIndex        =   1
      Top             =   9120
      Width           =   4335
   End
   Begin VB.CommandButton Cmdlogin 
      BackColor       =   &H00FFC0C0&
      Caption         =   "退出本系统"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Index           =   0
      Left            =   9240
      TabIndex        =   0
      Top             =   9000
      Width           =   4335
   End
End
Attribute VB_Name = "frmlogin1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit







Private Sub Cmdlogin_Click(Index As Integer)
Unload Me
End Sub

Private Sub Command3_Click()
Unload Me
frmlogin1.Hide
frmlogin.Show vbModal
End Sub