login.frm

来自「简单的数据库系统」· FRM 代码 · 共 202 行

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Begin VB.Form login 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Login"
   ClientHeight    =   6930
   ClientLeft      =   1350
   ClientTop       =   765
   ClientWidth     =   8610
   Icon            =   "login.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6930
   ScaleWidth      =   8610
   Begin SHDocVwCtl.WebBrowser WebBrowser1 
      Height          =   975
      Left            =   360
      TabIndex        =   8
      Top             =   3120
      Width           =   1215
      ExtentX         =   2143
      ExtentY         =   1720
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   ""
   End
   Begin VB.Frame Frame1 
      Height          =   6615
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   8295
      Begin VB.PictureBox Picture1 
         Height          =   1095
         Left            =   240
         Picture         =   "login.frx":0442
         ScaleHeight     =   1035
         ScaleWidth      =   1275
         TabIndex        =   7
         Top             =   3120
         Width           =   1335
      End
      Begin VB.Frame Frame2 
         Height          =   2415
         Left            =   2280
         TabIndex        =   3
         Top             =   3000
         Width           =   4455
         Begin VB.Label Label3 
            Caption         =   "教职工管理"
            BeginProperty Font 
               Name            =   "华文行楷"
               Size            =   36
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   855
            Left            =   120
            TabIndex        =   5
            Top             =   1440
            Width           =   4215
         End
         Begin VB.Label Label2 
            Caption         =   "学生管理"
            BeginProperty Font 
               Name            =   "华文行楷"
               Size            =   36
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   855
            Left            =   120
            TabIndex        =   4
            Top             =   360
            Width           =   3495
         End
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00FF0000&
         BorderWidth     =   3
         X1              =   120
         X2              =   7920
         Y1              =   2400
         Y2              =   2400
      End
      Begin VB.Label Label5 
         Caption         =   "江川县第二中学"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   36
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   855
         Left            =   600
         TabIndex        =   6
         Top             =   480
         Width           =   5655
      End
      Begin VB.Label Label4 
         Caption         =   "退出系统"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   18
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   375
         Left            =   6000
         TabIndex        =   2
         Top             =   6120
         Width           =   1575
      End
      Begin VB.Label Label1 
         Caption         =   "学校管理系统"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   36
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   855
         Left            =   2280
         TabIndex        =   1
         Top             =   1440
         Width           =   4815
      End
   End
End
Attribute VB_Name = "login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim rs, rm, rh, r
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()

Picture1.Picture = LoadPicture(App.Path & "\dream.gif")
WebBrowser1.Navigate (App.Path & "\dream.gif")
  
studentmdi.StatusBar1.Panels.Item(1).Text = "登录"

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Label1.ForeColor = vbred
End Sub


Private Sub Label2_Click()
pass.Show
login.Hide
End Sub

Private Sub Label2_DragDrop(Source As Control, X As Single, Y As Single)
Label1.ForeColor = vbBlue
End Sub

End Sub

Private Sub Label4_Click()
Unload Me
studentmdi.StatusBar1.Panels.Item(1).Text = " "

End Sub