xgmm.frm

vb+sqlserver实现的人事管理系统

VERSION 5.00
Begin VB.Form xgmm 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   4485
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "xgmm.frx":0000
   ScaleHeight     =   4485
   ScaleWidth      =   4560
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      BackColor       =   &H00D8D7D5&
      Caption         =   "修改密码"
      Height          =   3855
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   4215
      Begin VB.Frame Frame3 
         BackColor       =   &H00D8D7D5&
         Height          =   975
         Left            =   120
         TabIndex        =   2
         Top             =   2520
         Width           =   3975
         Begin VB.CommandButton Cmd_Cancle 
            Caption         =   "取消"
            Height          =   495
            Left            =   2040
            TabIndex        =   10
            Top             =   360
            Width           =   1695
         End
         Begin VB.CommandButton Cmd_Ok 
            BackColor       =   &H0080FF80&
            Caption         =   "确定"
            Height          =   495
            Left            =   120
            MaskColor       =   &H0080FF80&
            TabIndex        =   9
            Top             =   360
            Width           =   1455
         End
      End
      Begin VB.Frame Frame2 
         BackColor       =   &H00D8D7D5&
         Height          =   2295
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   3975
         Begin VB.TextBox New_Pwd2 
            Height          =   375
            IMEMode         =   3  'DISABLE
            Left            =   1800
            PasswordChar    =   "*"
            TabIndex        =   8
            Top             =   1680
            Width           =   1935
         End
         Begin VB.TextBox New_Pwd1 
            Height          =   375
            IMEMode         =   3  'DISABLE
            Left            =   1800
            PasswordChar    =   "*"
            TabIndex        =   7
            Top             =   1080
            Width           =   1935
         End
         Begin VB.TextBox old_Pwd 
            Height          =   375
            IMEMode         =   3  'DISABLE
            Left            =   1800
            PasswordChar    =   "*"
            TabIndex        =   6
            Top             =   360
            Width           =   1935
         End
         Begin VB.Label Label3 
            BackStyle       =   0  'Transparent
            Caption         =   "确认新密码："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   120
            TabIndex        =   5
            Top             =   1680
            Width           =   1335
         End
         Begin VB.Label Label2 
            BackStyle       =   0  'Transparent
            Caption         =   "请输入新密码："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   120
            TabIndex        =   4
            Top             =   1080
            Width           =   1695
         End
         Begin VB.Label Label1 
            BackStyle       =   0  'Transparent
            Caption         =   "请输入旧密码："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   120
            TabIndex        =   3
            Top             =   360
            Width           =   1575
         End
      End
   End
   Begin VB.Image Image1 
      Height          =   345
      Left            =   4200
      Picture         =   "xgmm.frx":1DE5
      Top             =   0
      Width           =   345
   End
End
Attribute VB_Name = "xgmm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Cancle_Click()
 Unload Me
End Sub

Private Sub Cmd_Ok_Click()
    
    If old_Pwd.Text = "" Then
    MsgBox "请输入旧密码", 48, "提示"
    End If
    
    If New_Pwd1.Text = "" Then
    MsgBox "请输入新密码", 48, "提示"
    End If
    
    If New_Pwd2 = "" Then
    MsgBox "请输入确认密码", 48, "提示"
    End If
        
   
    tmpPwd1 = old_Pwd.Text
    tmpPwd2 = New_Pwd1.Text
        
     
    If New_Pwd1.Text = New_Pwd2.Text Then
          If MyUser.in_db(UserName, tmpPwd1) Then
          
             SqlStmt = "Update Users Set UserName='" + Trim(UserName) _
                  + "',Pwd='" + Trim(tmpPwd2) + "' WHERE UserName='" _
                     + Trim(UserName) + "'"
             mydb.opendb
              b = mydb.exesql(SqlStmt, rs1, True)
              mydb.closedb
              If b Then
              
               MsgBox "修改成功", 48, "提示"
                New_Pwd1.Text = ""
                 New_Pwd2.Text = ""
                 old_Pwd.Text = ""
                old_Pwd.SetFocus
               Else: MsgBox "修改失败", 48, "提示"
               Unload Me
              End If
               
              
         Else
                   
            MsgBox "旧密码输入错误", 48, "提示"
            New_Pwd1.Text = ""
            New_Pwd2.Text = ""
            old_Pwd.Text = ""
            old_Pwd.SetFocus
                     
        End If
          
    Else
        MsgBox "两次输入的新密码不一致", 48, "提示"
        New_Pwd1.Text = ""
        New_Pwd2.Text = ""
        New_Pwd2.SetFocus
        
        
    End If
    
End Sub

Private Sub Image1_Click()
 Unload Me
End Sub