frmchangemanager.frm

针对农资系统的商品进销存管理系统软件

VERSION 5.00
Begin VB.Form FrmChangeManager 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "改变主管"
   ClientHeight    =   2490
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4065
   Icon            =   "FrmChangeManager.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2490
   ScaleWidth      =   4065
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdCancel 
      Caption         =   "放弃(&C)"
      CausesValidation=   0   'False
      Height          =   375
      Left            =   2400
      TabIndex        =   5
      Top             =   2040
      Width           =   1095
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   600
      TabIndex        =   4
      Top             =   2040
      Width           =   1095
   End
   Begin VB.Frame Frame3 
      Caption         =   "新主管姓名"
      Height          =   1815
      Left            =   2040
      TabIndex        =   9
      Top             =   60
      Width           =   1935
      Begin VB.TextBox txtNewName 
         Height          =   270
         Left            =   480
         MaxLength       =   10
         TabIndex        =   1
         Top             =   240
         Width           =   1335
      End
      Begin VB.TextBox txtNewPassword2 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   480
         MaxLength       =   8
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   1440
         Width           =   1335
      End
      Begin VB.TextBox txtNewPassword1 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   480
         MaxLength       =   8
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   840
         Width           =   1335
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "新口令："
         Height          =   180
         Left            =   120
         TabIndex        =   11
         Top             =   600
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "核实新口令："
         Height          =   180
         Left            =   120
         TabIndex        =   10
         Top             =   1200
         Width           =   1080
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "核对原主管口令"
      Height          =   855
      Left            =   120
      TabIndex        =   7
      Top             =   1020
      Width           =   1815
      Begin VB.TextBox txtOldPassword 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   360
         MaxLength       =   8
         PasswordChar    =   "*"
         TabIndex        =   0
         Top             =   360
         Width           =   1335
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "原主管姓名"
      Height          =   855
      Left            =   120
      TabIndex        =   6
      Top             =   60
      Width           =   1815
      Begin VB.TextBox txtOldName 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Height          =   270
         Left            =   360
         Locked          =   -1  'True
         TabIndex        =   8
         TabStop         =   0   'False
         Top             =   340
         Width           =   1335
      End
   End
End
Attribute VB_Name = "FrmChangeManager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public m_bOk As Boolean

Private Sub SetOkCheck()
    cmdOk.Enabled = (txtNewPassword1.Text = txtNewPassword2.Text) And txtNewPassword1.Text <> "" And Trim(txtNewName.Text) <> ""
    
    txtNewName.Enabled = (txtOldPassword.Text = m_gsPassword)
    txtNewPassword1.Enabled = (txtOldPassword.Text = m_gsPassword)
    txtNewPassword2.Enabled = (txtNewPassword1.Text <> "")
End Sub

Private Sub cmdCancel_Click()
    m_bOk = False
    Me.Hide
End Sub

Private Sub cmdOk_Click()
    Dim sSqlStr As String, nAffected As Integer
    
    If m_gnLevel = SUPPER_MANAGER Then
        sSqlStr = "Update System Set FSupperManager = '" & Trim(txtNewName.Text) & "', FPassword = '" & txtNewPassword1.Text & "'"
    ElseIf m_gnLevel = DEPART_MANAGER Then
        sSqlStr = "Update Depart Set FDepartMaster = '" & Trim(txtNewName.Text) & "', FPassword = '" & txtNewPassword1.Text & "' Where FDepartCode = '" & m_gsDepartCode & "'"
    Else
        Exit Sub
    End If
    m_gDBCnn.Execute sSqlStr, nAffected
    If nAffected <> 1 Then
        MsgBox "数据输入有误, 更新不成功!", vbOKOnly + vbInformation, "提示:"
        Exit Sub
    End If
    
    m_gsOperator = Trim(txtNewName.Text)
    m_gsPassword = txtNewPassword1.Text
    
    m_bOk = True
    Me.Hide
    MsgBox "新主管及口令均已经生效!", vbOKOnly + vbInformation, "提示:"
End Sub

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

''//////////////////////////////////////
''//只有主管拥有本模块权限, m_gsOperator即为主管姓名;
''//此时, m_gnLevel = SUPPER_MANAGER 或 DEPART_MANAGER
''//////////////////////////////////////
Private Sub Form_Load()
    SetForm Me, 9
    txtOldName.Text = m_gsOperator
    SetOkCheck
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Me.MousePointer = vbDefault
End Sub

Private Sub txtOldPassword_Change()
    txtNewName.Text = ""
    txtNewPassword1.Text = ""
    txtNewPassword2.Text = ""
    SetOkCheck
End Sub

Private Sub txtOldPassword_Validate(Cancel As Boolean)
    If txtOldPassword.Text <> m_gsPassword Then
        MsgBox "原主管口令输入不正确!", vbOKOnly + vbInformation, "提示:"
        txtOldPassword.SetFocus
        txtOldPassword.SelStart = 0
        txtOldPassword.SelLength = Len(txtOldPassword.Text)
    End If
End Sub

Private Sub txtNewName_Change()
    txtNewPassword1.Text = ""
    txtNewPassword2.Text = ""
    SetOkCheck
End Sub

Private Sub txtNewPassword1_Change()
    txtNewPassword2.Text = ""
    SetOkCheck
End Sub

Private Sub txtNewPassword2_Change()
    SetOkCheck
End Sub