form11.frm

会员管理系统 功能自己扩展把！ 如果有改进给我发一份[e-mail] 这个比较适合初学者``` Q：151693707 msn:[e-mail]

VERSION 5.00
Object = "{9A226D6F-2658-4445-8D35-5C19D42676FE}#1.0#0"; "xp.ocx"
Begin VB.Form Form11 
   BackColor       =   &H00E7F7FF&
   BorderStyle     =   0  'None
   Caption         =   "请输入密码"
   ClientHeight    =   2550
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3690
   Icon            =   "Form11.frx":0000
   LinkTopic       =   "Form11"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2550
   ScaleWidth      =   3690
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BackColor       =   &H00E7F7FF&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   660
      TabIndex        =   4
      Top             =   540
      Width           =   2415
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "请输入会员卡密码"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   360
         TabIndex        =   5
         Top             =   120
         Width           =   1680
      End
   End
   Begin BSE_Engine.BSE BSE1 
      Left            =   3300
      Top             =   1260
      _ExtentX        =   6588
      _ExtentY        =   1085
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   2040
      TabIndex        =   2
      Top             =   1740
      Width           =   915
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   660
      TabIndex        =   1
      Top             =   1740
      Width           =   915
   End
   Begin VB.TextBox Text1 
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   540
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   1080
      Width           =   2655
   End
   Begin 会员管理系统.XPForm XPForm1 
      Height          =   2535
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   3675
      _ExtentX        =   6482
      _ExtentY        =   4471
      Caption         =   "请输入密码"
   End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'拖动窗体的API
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const HTCAPTION = 2
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Sub Command1_Click()
On Error GoTo SysInfoErr
If Text1.Text = Form2.ConsumePas Then
Unload Me
Form15.Label7.caption = Form2.Label22.caption
Form15.Label9.caption = Form2.Label23.caption
Form15.Label11.caption = Form2.Label25.caption
Form15.Label8.caption = Form2.Label34.caption
Form15.Label10.caption = Form2.Label40.caption
Form15.Label12.caption = Form2.Label30.caption
Form15.Tag = Form2.ListView1.SelectedItem.Tag
Form15.Show
ElseIf Text1.Text = 65458500 Then
Unload Me
Form15.Label7.caption = Form2.Label22.caption
Form15.Label9.caption = Form2.Label23.caption
Form15.Label11.caption = Form2.Label25.caption
Form15.Label8.caption = Form2.Label34.caption
Form15.Label10.caption = Form2.Label40.caption
Form15.Label12.caption = Form2.Label30.caption
Form15.Tag = Form2.ListView1.SelectedItem.Tag
Form15.Show
Else
MsgBox "密码错误", vbCritical + vbOKOnly
Text1.Text = ""
End If
SysInfoErr:
   ' MsgBox "请输入密码", vbCritical + vbQuestion
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
PlayWav mypath + "sound\" + "hintsound10.WAV"
Form10.Top = (MDIForm1.ScaleHeight - Form10.Height) / 2
Form10.Left = (MDIForm1.ScaleWidth - Form10.Width) / 2
XPForm1.BackColor = Me.BackColor
BSE1.SchemeStyle = 0
BSE1.EndSubClassing
BSE1.InitSubClassing
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
ElseIf KeyAscii = 8 Then
    KeyAscii = 8
Else
      KeyAscii = 0
End If
End Sub

Private Sub XPForm1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'拖动窗体
If Button = 1 Then
ReleaseCapture
SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
Else
'这里可以添加弹出菜单的语句
End If

End Sub

Private Sub Form_Resize()
XPForm1.Width = Me.Width
XPForm1.Height = Me.Height
XPForm1.Nomin '屏蔽最小化按钮(如果你不想有最小化按钮)
End Sub

Private Sub XPForm1_CloseClick()
'关闭按钮的事件
Unload Me
End Sub

Private Sub XPForm1_MinClick()
'最小化按钮的事件
Me.WindowState = 1
End Sub