w_login_dw.frm

一个企业生产管理系统

VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form w_login_dw 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   4170
   ClientTop       =   4845
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   3240
      TabIndex        =   4
      Top             =   1560
      Width           =   975
   End
   Begin MSDataListLib.DataCombo DataCombo1 
      Bindings        =   "w_login_dw.frx":0000
      DataField       =   "warehouse_id"
      DataMember      =   "w_dw_lonin"
      DataSource      =   "DataEnvironment1"
      Height          =   330
      Left            =   1200
      TabIndex        =   0
      Top             =   360
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   582
      _Version        =   393216
      Style           =   2
      ListField       =   "warehouse_name"
      BoundColumn     =   "warehouse_id"
      Text            =   "DataCombo1"
      Object.DataMember      =   "warehouseinfo"
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   3240
      TabIndex        =   3
      Top             =   480
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Index           =   2
      Left            =   1200
      TabIndex        =   2
      Top             =   1800
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Index           =   1
      Left            =   1200
      TabIndex        =   1
      Top             =   1080
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      DataField       =   "warehouse_id"
      DataMember      =   "w_dw_lonin"
      DataSource      =   "DataEnvironment1"
      Height          =   375
      Index           =   0
      Left            =   1200
      TabIndex        =   5
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "登录口令:"
      Height          =   375
      Index           =   2
      Left            =   240
      TabIndex        =   8
      Top             =   1800
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "用户编号:"
      Height          =   375
      Index           =   1
      Left            =   240
      TabIndex        =   7
      Top             =   1080
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "选择仓库:"
      Height          =   375
      Index           =   0
      Left            =   240
      TabIndex        =   6
      Top             =   360
      Width           =   855
   End
End
Attribute VB_Name = "w_login_dw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim as_userid As String
Dim as_password As String
Dim as_warehouse_id As String
Dim db As New ADODB.Recordset
Dim str_tmp As String
Text1(0).Text = DataCombo1.BoundText

as_userid = Text1(1).Text
as_password = Text1(2).Text
as_warehouse_id = Text1(0).Text


str_tmp = "SELECT operator.employee_id,operator.password,operator.rights,operator.warehouse_id,warehouseinfo.warehouse_name FROM operator,warehouseinfo WHERE ( warehouseinfo.warehouse_id = operator.warehouse_id ) and ( ( operator.employee_id ='" & as_userid & " ') AND ( operator.password ='" & as_password & "') )"
'str_tmp = "SELECT operator.rights,operator.warehouse_id,warehouseinfo.warehouse_name FROM operator,warehouseinfo WHERE ( warehouseinfo.warehouse_id = operator.warehouse_id ) and ( ( operator.employee_id ='" & as_userid & " ') AND ( operator.password ='" & as_password & "') )"

db.Open str_tmp, cn, adOpenStatic, adLockBatchOptimistic
With db
    If .RecordCount < 1 Then
    
'        If MsgBox("no record", vbOKOnly, "no record") = vbOK Then
        MsgBox "用户编号或密码错误，请核对后重新输入!", vbOKOnly, "登录出错"
        Exit Sub
'        End If
    End If
    .MoveFirst
        gs_rights = Trim(.Fields("rights").Value)
        gs_warehouse_id = .Fields("warehouse_id").Value
        If gs_rights = "无" Then
            If MsgBox("登录出错", vbOKOnly, "该用户无权操作仓库管理系统!") = vbOK Then Exit Sub
        ElseIf gs_rights = "仓管员" Then
            If as_warehouse_id = gs_warehouse_id Then
            gs_warehouse = .Fields("warehouse_name").Value
            Else
            If MsgBox("该用户无权该仓库,请核对后重新输入!", vbOKOnly, "登录出错") = vbOK Then Exit Sub
            End If
        ElseIf gs_rights = "系统" Then
            gs_warehouse = "所有仓库"
        ElseIf gs_rights = "管理员" Then
            gs_warehouse = "所有仓库"
        ElseIf gs_rights = "查询者" Then
            gs_warehouse = "所有仓库"
        End If
        gs_userid = .Fields("employee_id").Value
End With
    Unload Me
    frmMain.Show
End Sub



Private Sub DataCombo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{Tab}"
KeyAscii = 0
End If
End Sub

Private Sub DataCombo1_LostFocus()
'''''''''Text1(0).Text = Trim(DataCombo1.)
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
KeyCode = vbKeyTab
End If
End Sub

Private Sub Form_Load()

Set cn = New ADODB.Connection
    With cn
        .ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User Id=sa;password = hes;Data Source=warehouse;"
        .Open
    End With


    
End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
KeyCode = vbKeyTab
End If
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{Tab}"
KeyAscii = 0
End If

End Sub