frmlogin.frm

登陆系统 基于vb 开发 本系统需要的功能有： a.首页展示：各个模块的链接

VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H00C0E0FF&
   Caption         =   "系统登录"
   ClientHeight    =   3525
   ClientLeft      =   6015
   ClientTop       =   2970
   ClientWidth     =   8220
   LinkTopic       =   "Form1"
   ScaleHeight     =   3525
   ScaleWidth      =   8220
   Begin VB.CommandButton cmdOK 
      Caption         =   "确认(&O)"
      Default         =   -1  'True
      Height          =   615
      Left            =   960
      TabIndex        =   3
      Top             =   2640
      Width           =   1935
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   615
      Left            =   3600
      TabIndex        =   4
      Top             =   2640
      Width           =   2055
   End
   Begin VB.TextBox txtUserID 
      Height          =   375
      Left            =   1800
      TabIndex        =   1
      Top             =   1200
      Width           =   2895
   End
   Begin VB.TextBox txyPWD 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1800
      MaxLength       =   6
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1920
      Width           =   2895
   End
   Begin VB.PictureBox Picture1 
      Height          =   3135
      Left            =   6240
      Picture         =   "frmLogin.frx":0000
      ScaleHeight     =   3075
      ScaleWidth      =   1875
      TabIndex        =   0
      Top             =   120
      Width           =   1935
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "帐号"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   375
      Left            =   960
      TabIndex        =   7
      Top             =   1200
      Width           =   735
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "密码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   495
      Left            =   960
      TabIndex        =   6
      Top             =   1920
      Width           =   855
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "学生基本信息管理系统(V1.0)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000040C0&
      Height          =   975
      Left            =   2160
      TabIndex        =   5
      Top             =   120
      Width           =   3735
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
txtUserID = ""
txyPWD = ""

End Sub

Private Sub cmdOK_Click()
If txtUserID.Text = "06243051" And txyPWD.Text = "111111" Then
frmLogin.Hide
MsgBox ("神，欢迎进入！")
frmabout.Show 0
Else
MsgBox ("用户名或密码错误，请重新输入！")
txtUserID.Text = ""
txyPWD.Text = ""
txtUserID.SetFocus
End If
End Sub

Private Sub Form_Click()
frmabout.Show 0
frmLogin.Hide
End Sub

Private Sub Form_DblClick()
frmabout.Show 0
End Sub

Private Sub form_load()
Debug.Print "Print方法可以在窗体中输出文本"
End Sub

Private Sub Form_Resize()
Label1.Left = (frmLogin.Width - Label1.Width) / 2
End Sub

Private Sub Form_Unload(cancel As Integer)
ii = MsgBox("确认要退出？", vbYesNo, "警告")
If ii = vbYes Then
cancel = False
Else
cancel = True
End If

End Sub

Private Sub Picture1_Click()
Debug.Print "You clicked 'Cartoon' image."
End Sub

Private Sub Picture1_DblClick()
frmabout.Hide
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.MousePointer = 11
End Sub