sdfrm.frm

这是一个选课系统

VERSION 5.00
Object = "{1666F204-B71B-4E6D-AA21-DCE71B94F422}#7.0#0"; "SmartXpButton.ocx"
Begin VB.Form sdfrm 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "系统已经锁定……"
   ClientHeight    =   2460
   ClientLeft      =   420
   ClientTop       =   210
   ClientWidth     =   5955
   Icon            =   "sdfrm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2460
   ScaleWidth      =   5955
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "系统已经锁定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   2415
      Left            =   30
      TabIndex        =   0
      Top             =   15
      Width           =   5895
      Begin SmartXpButton.SmartNetXpButton Command2 
         Height          =   375
         Left            =   3480
         TabIndex        =   4
         Top             =   1800
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   661
         BackColor       =   16744703
         BackColorPop    =   16744576
         BackColorPush   =   8454016
         CaptionAreaLayout=   1
         Caption         =   "清  空"
         CaptionBackColor=   255
         ShowCaption     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowPictureFixSize=   -1  'True
      End
      Begin SmartXpButton.SmartNetXpButton Command1 
         Height          =   375
         Left            =   1320
         TabIndex        =   3
         Top             =   1800
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         BackColor       =   16744703
         BackColorPop    =   65280
         BackColorPush   =   255
         CaptionAreaLayout=   1
         Caption         =   "解除系统"
         CaptionBackColor=   255
         ShowCaption     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ShowPictureFixSize=   -1  'True
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   2565
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   645
         Width           =   2535
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FFFFFF&
         Caption         =   "请输入密码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00004000&
         Height          =   375
         Left            =   840
         TabIndex        =   1
         Top             =   720
         Width           =   1935
      End
   End
End
Attribute VB_Name = "sdfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Trim(Text1.Text) = "" Then
MsgBox "请输入密码！", vbOKOnly + vbExclamation, "温馨提示"
Text1.SetFocus
Else
If Trim(Text1.Text) <> Password Then
 MsgBox "很抱歉，你的密码输入错误！^()^", vbOKOnly + vbExclamation, "温馨提示"
 Text1.Text = ""
 Text1.SetFocus
 Else
 Unload Me
 End If
 End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text1.SetFocus
End Sub


Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub