frmlogin.frm

进销存管理软件

VERSION 5.00
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form frmLogin 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "登录"
   ClientHeight    =   1575
   ClientLeft      =   5925
   ClientTop       =   3525
   ClientWidth     =   3015
   DrawStyle       =   6  'Inside Solid
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   930.562
   ScaleMode       =   0  'User
   ScaleWidth      =   2830.922
   ShowInTaskbar   =   0   'False
   Begin VB.ComboBox CoYH 
      Height          =   300
      Left            =   915
      TabIndex        =   6
      Top             =   285
      Width           =   1605
   End
   Begin CSCommand.Command CmOK 
      Height          =   315
      Left            =   960
      TabIndex        =   3
      Top             =   1125
      Width           =   660
      _ExtentX        =   1164
      _ExtentY        =   556
      IconAlign       =   0
      Icon            =   "frmLogin.frx":0000
      Caption         =   "登 录"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.TextBox TeMM 
      Appearance      =   0  'Flat
      Height          =   288
      IMEMode         =   3  'DISABLE
      Left            =   915
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   720
      Width           =   1590
   End
   Begin CSCommand.Command CoCancel 
      Height          =   315
      Left            =   1755
      TabIndex        =   4
      Top             =   1125
      Width           =   660
      _ExtentX        =   1164
      _ExtentY        =   556
      IconAlign       =   0
      Icon            =   "frmLogin.frx":001C
      Caption         =   "取 消"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Label lblLabels 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "用户："
      ForeColor       =   &H80000008&
      Height          =   180
      Index           =   0
      Left            =   315
      TabIndex        =   0
      Top             =   360
      Width           =   1080
   End
   Begin VB.Label lblLabels 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "密码："
      ForeColor       =   &H80000008&
      Height          =   180
      Index           =   1
      Left            =   315
      TabIndex        =   1
      Top             =   750
      Width           =   960
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   1575
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   3015
      WordWrap        =   -1  'True
   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 DB As Database, Rs As Recordset
Dim SQL As String

Private Sub Form_Load()  '初始数据
  SQL = "select 用户 from DB_XT系统"
  Set DB = OpenDatabase("D:\DBB\DATA.mdb")
  Set Rs = DB.OpenRecordset(SQL)
   
  Do Until Rs.EOF
    CoYH.AddItem Rs("用户")
    Rs.MoveNext
  Loop
     
 'MsgBox "用户添加完成"
     
End Sub

Private Sub CmOK_Click() '登录按钮
Dim SJ, CG, XS, CK As String

SQL = "select 用户,密码 from DB_XT系统 where 用户=" & "'" & CoYH.Text + "'" + " AND 密码=" & "'" & TeMM.Text + "'"
 
 Set DB = OpenDatabase("d:\dbb\data.mdb")         '设置数据库路径
 Set Rs = DB.OpenRecordset(SQL)
 
 If Rs.RecordCount > 0 Then
              
        SQL = "select 数据,采购,销售,仓库 from DB_XT系统 where 用户=" & "'" & CoYH.Text + "'"
        Set DB = OpenDatabase("D:\DBB\DATA.mdb")
        Set Rs = DB.OpenRecordset(SQL)
        SJ = Rs("数据")
        CG = Rs("采购")
        XS = Rs("销售")
        CK = Rs("仓库")
        frmMain.Text1 = SJ
        If SJ = "NO" Then  '判断数据模块是否有效
        frmMain.menuSJ.Enabled = False
        End If
        If CG = "NO" Then  '判断采购模块是否有效
        frmMain.menuCG.Enabled = False
        End If
        If XS = "NO" Then  '判断销售模块是否有效
        frmMain.menuXS.Enabled = False
        End If
        If CK = "NO" Then  '判断销售模块是否有效
        frmMain.menuCK.Enabled = False
        End If
        frmMain.Show
       Unload Me
       
     Else
       MsgBox "密码输入有误！请重新来"
       
   End If

End Sub

Private Sub CoCancel_Click() '取消按钮
Unload Me  '关闭frmLogin窗口

End Sub

Private Sub CoYH_DropDown()
TeMM = ""
End Sub