closef.frm

音像制品出租及销售管理系统,用VB实现

VERSION 5.00
Begin VB.Form loadma 
   BackColor       =   &H00FFFF80&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "音像制品出租及销售管理系统"
   ClientHeight    =   1935
   ClientLeft      =   4230
   ClientTop       =   3375
   ClientWidth     =   3960
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   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           =   1935
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Index           =   0
      Left            =   1440
      TabIndex        =   2
      Top             =   240
      Width           =   1935
   End
   Begin VB.Image Image2 
      Height          =   195
      Index           =   1
      Left            =   2280
      MouseIcon       =   "closef.frx":0000
      MousePointer    =   99  'Custom
      Picture         =   "closef.frx":030A
      Top             =   1440
      Width           =   195
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "       退出"
      Height          =   375
      Left            =   2040
      MouseIcon       =   "closef.frx":0385
      MousePointer    =   99  'Custom
      TabIndex        =   5
      Top             =   1440
      Width           =   1455
   End
   Begin VB.Image Image1 
      Height          =   450
      Index           =   1
      Left            =   2160
      MouseIcon       =   "closef.frx":068F
      MousePointer    =   99  'Custom
      Picture         =   "closef.frx":0999
      Stretch         =   -1  'True
      Top             =   1320
      Width           =   1395
   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 
      BackColor       =   &H00C0FFFF&
      BorderColor     =   &H00C0C0FF&
      BorderWidth     =   5
      FillColor       =   &H00004080&
      Height          =   1935
      Left            =   0
      Top             =   0
      Width           =   3975
   End
   Begin VB.Image Image2 
      Height          =   195
      Index           =   0
      Left            =   600
      MouseIcon       =   "closef.frx":0DCC
      MousePointer    =   99  'Custom
      Picture         =   "closef.frx":10D6
      Top             =   1440
      Width           =   195
   End
   Begin VB.Label qd 
      BackStyle       =   0  'Transparent
      Caption         =   "       确定"
      Height          =   375
      Left            =   360
      MouseIcon       =   "closef.frx":1151
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Top             =   1440
      Width           =   1455
   End
   Begin VB.Image Image1 
      Height          =   450
      Index           =   0
      Left            =   360
      MouseIcon       =   "closef.frx":145B
      MousePointer    =   99  'Custom
      Picture         =   "closef.frx":1765
      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 Image1_Click(Index As Integer)
  Me.Hide
    End
End Sub

Private Sub Label2_Click()
 Me.Hide
    End
End Sub

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 + vbOKOnly, "音像制品出租及销售管理系统"
    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