frmlogin.frm

便利店管理系统 VB+ACCESS 附上数据库和源码

VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "LOGIN"
   ClientHeight    =   2655
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5985
   Icon            =   "frmLogin.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmLogin.frx":030A
   ScaleHeight     =   2655
   ScaleWidth      =   5985
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   3240
      TabIndex        =   5
      Top             =   2160
      Width           =   1455
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   1260
      TabIndex        =   4
      Top             =   2160
      Width           =   1455
   End
   Begin VB.TextBox txPSW 
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   3780
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1680
      Width           =   2055
   End
   Begin VB.TextBox txID 
      Height          =   315
      Left            =   600
      TabIndex        =   0
      Top             =   1680
      Width           =   2115
   End
   Begin VB.Label lbCount 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "5"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   555
      Left            =   4980
      TabIndex        =   6
      Top             =   960
      Width           =   270
   End
   Begin VB.Image Image2 
      Height          =   45
      Left            =   0
      Picture         =   "frmLogin.frx":E375
      Stretch         =   -1  'True
      Top             =   1500
      Width           =   6075
   End
   Begin VB.Label lbPSW 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Password"
      Height          =   195
      Left            =   3030
      TabIndex        =   3
      Top             =   1740
      Width           =   690
   End
   Begin VB.Label lbID 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "ID"
      Height          =   195
      Left            =   360
      TabIndex        =   2
      Top             =   1740
      Width           =   165
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   5400
      Picture         =   "frmLogin.frx":E783
      Top             =   960
      Width           =   480
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim loginCount As Integer

Private Sub LoadFormLang()
    
    Me.lbID.Caption = getResource("resID")
    Me.lbPSW.Caption = getResource("resPassWord")
    Me.cmdOK.Caption = getResource("resOK")
    Me.cmdCancel.Caption = getResource("resCancel")
    
End Sub

Private Sub cmdCancel_Click()
    Call ShutDownSystem(True)
End Sub

Private Sub cmdOK_Click()
    If TestText(Me.txID.Text) Then
        myDE.rsrsSystemUser.Filter = "ID='" & Trim$(Me.txID.Text) & "' AND PWS='" & Trim$(Me.txPSW.Text) & "'"
        If myDE.rsrsSystemUser.RecordCount = 0 Then
            MsgBox getResource("resMsgF0000006") & Trim$(Me.txID.Text), vbCritical + vbOKOnly
        Else
            curSystemUser.uID = myDE.rsrsSystemUser.Fields(0).Value & ""
            curSystemUser.uPWS = myDE.rsrsSystemUser.Fields(1).Value & ""
            curSystemUser.uName = myDE.rsrsSystemUser.Fields(2).Value & ""
            curSystemUser.uTel = myDE.rsrsSystemUser.Fields(3).Value & ""
            curSystemUser.uOp0001 = myDE.rsrsSystemUser.Fields(4).Value
            curSystemUser.uOp0002 = myDE.rsrsSystemUser.Fields(5).Value
            curSystemUser.uOp0003 = myDE.rsrsSystemUser.Fields(6).Value
            curSystemUser.uOp0101 = myDE.rsrsSystemUser.Fields(7).Value
            curSystemUser.uOp0102 = myDE.rsrsSystemUser.Fields(8).Value
            curSystemUser.uOp0103 = myDE.rsrsSystemUser.Fields(9).Value
            curSystemUser.uOp0104 = myDE.rsrsSystemUser.Fields(10).Value
            curSystemUser.uOp0201 = myDE.rsrsSystemUser.Fields(11).Value
            curSystemUser.uOp0202 = myDE.rsrsSystemUser.Fields(12).Value
            curSystemUser.uOp0203 = myDE.rsrsSystemUser.Fields(13).Value
            curSystemUser.uOp0301 = myDE.rsrsSystemUser.Fields(14).Value
            curSystemUser.uOp0302 = myDE.rsrsSystemUser.Fields(15).Value
            curSystemUser.uOp0303 = myDE.rsrsSystemUser.Fields(16).Value
            curSystemUser.uOp0304 = myDE.rsrsSystemUser.Fields(17).Value
            curSystemUser.uRemark = myDE.rsrsSystemUser.Fields(18).Value & ""

            Unload Me
            
            myDE.rsrsSystemUser.Filter = ""
            Call MDIFormMain.loadMenuEnable
            MDIFormMain.Show
        End If
    Else
        MsgBox getResource("resMsgF0302001"), vbCritical + vbOKOnly
        Me.txID.SetFocus
    End If
    
    loginCount = loginCount - 1
    If loginCount = 0 Then
        Call ShutDownSystem(True)
    End If
    Me.lbCount.Caption = loginCount
    
End Sub

Private Sub Form_Load()
    loginCount = 5
    Me.lbCount.Caption = loginCount
    Call LoadFormLang
End Sub