www.pudn.com > jiudianguanli.rar > frmdenglu.frm

VERSION 5.00 
Begin VB.Form frmdenglu  
   BackColor       =   &H00FFFFFF& 
   BorderStyle     =   0  'None 
   Caption         =   "登录" 
   ClientHeight    =   2100 
   ClientLeft      =   225 
   ClientTop       =   1845 
   ClientWidth     =   4260 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   2100 
   ScaleWidth      =   4260 
   ShowInTaskbar   =   0   'False 
   Begin VB.CommandButton Command2  
      BackColor       =   &H00FFFFFF& 
      Caption         =   "取消" 
      Height          =   375 
      Left            =   3360 
      Style           =   1  'Graphical 
      TabIndex        =   5 
      Top             =   1560 
      Width           =   735 
   End 
   Begin VB.CommandButton Command1  
      BackColor       =   &H00FFFFFF& 
      Caption         =   "确定" 
      Height          =   375 
      Left            =   2280 
      Style           =   1  'Graphical 
      TabIndex        =   4 
      Top             =   1560 
      Width           =   735 
   End 
   Begin VB.TextBox txtkouling  
      Height          =   375 
      IMEMode         =   3  'DISABLE 
      Left            =   1560 
      PasswordChar    =   "*" 
      TabIndex        =   3 
      Top             =   960 
      Width           =   2535 
   End 
   Begin VB.TextBox txtid  
      Height          =   375 
      Left            =   1560 
      TabIndex        =   2 
      Top             =   240 
      Width           =   2535 
   End 
   Begin VB.Label lblkouling  
      BackColor       =   &H00FFFFFF& 
      Caption         =   "管理员口令" 
      Height          =   375 
      Left            =   120 
      TabIndex        =   1 
      Top             =   1080 
      Width           =   1215 
   End 
   Begin VB.Label lblid  
      BackColor       =   &H00FFFFFF& 
      Caption         =   "管理员ID" 
      Height          =   375 
      Left            =   120 
      TabIndex        =   0 
      Top             =   240 
      Width           =   1215 
   End 
End 
Attribute VB_Name = "frmdenglu" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
    If txtid.Text = "liangli" And txtkouling = "123" Then 
        midguanli.Show 
    Else 
        MsgBox "输入ID或密码错误" 
    End If 
    Unload frmtupian 
    Unload Me 
End Sub 
 
Private Sub Command2_Click() 
    Unload Me 
End Sub