form5.frm

一套简单的销售管理系统

VERSION 5.00
Begin VB.Form Form5 
   BorderStyle     =   0  'None
   Caption         =   "登陆界面"
   ClientHeight    =   4020
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5955
   Icon            =   "Form5.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   Picture         =   "Form5.frx":F84A
   ScaleHeight     =   4020
   ScaleWidth      =   5955
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text2 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   2160
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   2085
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   2160
      TabIndex        =   0
      Top             =   1520
      Width           =   2175
   End
   Begin VB.Image Image2 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   3315
      MouseIcon       =   "Form5.frx":231F9
      MousePointer    =   99  'Custom
      Top             =   3120
      Width           =   975
   End
   Begin VB.Image Image1 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   1440
      MouseIcon       =   "Form5.frx":2334B
      MousePointer    =   99  'Custom
      Top             =   3120
      Width           =   975
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub ReleaseCapture Lib "user32" () '支持移动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 Sub Command1_Click()
Call Image1_Click
End Sub

Private Sub Form_Load()
Text1.BackColor = RGB(162, 128, 146)
Text2.BackColor = RGB(162, 128, 146)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture '以下的移动方式更简便
    SendMessage Me.hwnd, &HA1, 2, 0&
End Sub

Private Sub Image1_Click()
Set qy1 = cnn.Execute("select * from 用户 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'")
If qy1.EOF = True Then
 MsgBox "用户名或密码错误!", vbInformation, "提示"
 Text1.Text = ""
 Text2.Text = ""
 Text1.SetFocus
 Exit Sub
Else
 If qy1.Fields(3) = "管理员" Then
 isadmin = True
 Else
 isadmin = False
 End If
 Unload Me
 loginname = qy1.Fields(2)
 form1.Show
End If
End Sub

Private Sub Image2_Click()
End
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub