frmser.frm

本系统实现了对实验室设备的增删改查等基本的功能

VERSION 5.00
Begin VB.Form frmser 
   BackColor       =   &H00FFC0C0&
   Caption         =   "修改密码界面"
   ClientHeight    =   2700
   ClientLeft      =   4125
   ClientTop       =   2340
   ClientWidth     =   4680
   Icon            =   "frmser.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2700
   ScaleWidth      =   4680
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Txtnewd 
      BackColor       =   &H00FFFFC0&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C000&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1560
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1440
      Width           =   2415
   End
   Begin VB.TextBox Txtnew 
      BackColor       =   &H00FFFFC0&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C000&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1560
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   840
      Width           =   2415
   End
   Begin VB.TextBox Txtsec 
      BackColor       =   &H00FFFFC0&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C000&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1560
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   240
      Width           =   2415
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   2160
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "确定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   2160
      Width           =   1215
   End
   Begin VB.Label Label4 
      BackColor       =   &H00FFC0C0&
      Caption         =   "重新输入新口令"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   495
      Left            =   240
      TabIndex        =   7
      Top             =   1440
      Width           =   975
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFC0C0&
      Caption         =   "新口令"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   240
      TabIndex        =   6
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "旧口令"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   240
      Width           =   1215
   End
End
Attribute VB_Name = "frmser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************
'模块名称：修改密码模块
'模块功能：完成对用户密码的修改
'版本    ：1.0版
'代码编写者：熊锋
'编写日期：2006-11-6
'*********************************************
Private Sub Command1_Click() '修改密码
     Dim rs As New ADODB.Recordset   '定义一个记录集，记录用户信息
       '打开用户信息表
       rs.Open "select * from SysAd_Info where Admin_Name='" & Trim(frmlog.txtuser.Text) & "' and Admin_SecNum='" & Trim(Txtsec.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic
      ' Set DataGrid1.DataSource = rs.DataSource
       'If Txtnew = "" Or Txtnewd = "" Then
        '  MsgBox "新密码不能为空！"
         ' Exit Sub
      ' End If
       If rs.RecordCount < 1 Then
          MsgBox "密码有误，请输入正确信息！"
          Exit Sub
        ElseIf Txtnew.Text <> Txtnewd Then  '校验两次输入的新密码是否相同
          MsgBox "新口令重复输入时不正确！"
          Txtnew.Text = ""
          Txtnewd.Text = ""
          Exit Sub
        Else
          rs.Fields("Admin_SecNum") = Txtnew.Text
          MsgBox "密码修改成功"
          frmser.Hide
           '完成事务日志的填写
               rslog.Open "select * from Log_Info where 操作员=''", DBCnn, adOpenStatic, adLockOptimistic
               rslog.AddNew
               rslog.Fields("操作员") = frmlog.txtuser.Text
               rslog.Fields("日期") = Date
               rslog.Fields("操作时间") = Time
               rslog.Fields("操作模块") = "修改密码界面"
               rslog.Fields("操作") = "修改密码"
               rslog.Fields("备注") = "被修改密码的用户：" & frmlog.txtuser.Text
               rslog.Update
               rslog.Close
        End If
     rs.Update
     rs.Close
     Txtsec.Text = ""
     Txtnew.Text = ""
     Txtnewd.Text = ""
End Sub

Private Sub Command2_Click()
     Txtsec.Text = ""
     Txtnew.Text = ""
     Txtnewd.Text = ""
End Sub