closef.frm

易能光盘管理系统 ,含源程序与毕业论文 可以提供源代码和文档

VERSION 5.00
Begin VB.Form loadma 
   BackColor       =   &H00FFFF80&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "易能光盘管理系统 V1.5.1"
   ClientHeight    =   1935
   ClientLeft      =   4230
   ClientTop       =   3375
   ClientWidth     =   3960
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1935
   ScaleWidth      =   3960
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox Text1 
      Height          =   270
      IMEMode         =   3  'DISABLE
      Index           =   1
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   720
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Index           =   0
      Left            =   1440
      TabIndex        =   2
      Top             =   240
      Width           =   2175
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "管理员密码："
      Height          =   180
      Index           =   1
      Left            =   360
      TabIndex        =   1
      Top             =   720
      Width           =   1080
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "管理员姓名："
      Height          =   180
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   1080
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0FF&
      BorderWidth     =   5
      Height          =   1935
      Left            =   0
      Top             =   0
      Width           =   3975
   End
   Begin VB.Image Image2 
      Height          =   195
      Index           =   0
      Left            =   2520
      MouseIcon       =   "closef.frx":0000
      MousePointer    =   99  'Custom
      Picture         =   "closef.frx":030A
      Top             =   1440
      Width           =   195
   End
   Begin VB.Label qd 
      BackStyle       =   0  'Transparent
      Caption         =   "       确定"
      Height          =   375
      Left            =   2280
      MouseIcon       =   "closef.frx":0385
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Top             =   1440
      Width           =   1455
   End
   Begin VB.Image Image1 
      Height          =   450
      Index           =   0
      Left            =   2280
      MouseIcon       =   "closef.frx":068F
      MousePointer    =   99  'Custom
      Picture         =   "closef.frx":0999
      Stretch         =   -1  'True
      Top             =   1320
      Width           =   1395
   End
End
Attribute VB_Name = "loadma"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim yn As New yn
Private Sub qd_Click()
  
  Call yn.opendb("select * from 管理员 where 名字='" & Me.Text1(0).Text & "' and 密码='" & Me.Text1(1).Text & "'")
  If yn.myrec.EOF Then
    MsgBox "没有此用户！！！", vbInformation
    Call yn.closedb
  Else
    man = yn.myrec.Fields("名字")
    main.StatusBar1.Panels(1).Text = "当前的管理员：" & man
    Unload Me
    Call yn.closedb
  End If

End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
  Call qd_Click
End If
End Sub