frmeditpwd.frm

该软件（教师住房管理系统）能实现如下功能： 基本信息录入 基本信息浏览 基本查询 分类查询 查基本信息的添加、删除修改。分房申请信息的录入及平分 分房处理 报表生成 打印功能 帮助

VERSION 5.00
Begin VB.Form frmeditpwd 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "修改密码："
   ClientHeight    =   2850
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3870
   Icon            =   "frmeditpwd.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2850
   ScaleWidth      =   3870
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   2280
      TabIndex        =   9
      Top             =   2280
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   480
      TabIndex        =   8
      Top             =   2280
      Width           =   975
   End
   Begin VB.TextBox Text4 
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   1800
      PasswordChar    =   "*"
      TabIndex        =   7
      Top             =   1740
      Width           =   1335
   End
   Begin VB.TextBox Text3 
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   1800
      PasswordChar    =   "*"
      TabIndex        =   6
      Top             =   1260
      Width           =   1335
   End
   Begin VB.TextBox Text2 
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   1800
      PasswordChar    =   "*"
      TabIndex        =   5
      Top             =   780
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      Height          =   300
      Left            =   1800
      Locked          =   -1  'True
      TabIndex        =   4
      Top             =   300
      Width           =   1335
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "确认新密码："
      Height          =   180
      Left            =   480
      TabIndex        =   3
      Top             =   1800
      Width           =   1080
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "新密码："
      Height          =   180
      Left            =   600
      TabIndex        =   2
      Top             =   1320
      Width           =   720
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "旧密码："
      Height          =   180
      Left            =   600
      TabIndex        =   1
      Top             =   840
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "用户名："
      Height          =   180
      Left            =   600
      TabIndex        =   0
      Top             =   360
      Width           =   720
   End
End
Attribute VB_Name = "frmeditpwd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                    教师住房管理系统   Version 1.0                    '''
'''                         （VB6.0 源代码）                             '''
'''                                                                      '''
'''                        俊彦软件工作室出品                            '''
'''                                                                      '''
'''            （浦口校区科技节“电子杯”程序设计大赛参赛作品）          '''
'''                                                                      '''
'''                程序设计：东南大学土木工程学院   周曹俊               '''
'''                                                                      '''
'''                 CopyRight AllRights Reserved (c)2003                 '''
'''                                                                      '''
'''                         2003年5月15日                                '''
'''                                                                      '''
'''                                                                      '''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim mydb As Database, myrs As Recordset

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
'初始化
Set mydb = OpenDatabase(App.Path & "\Support\login.dll")
Set myrs = mydb.OpenRecordset("select * from login")
Text1.Text = myrs!Name
End Sub

Private Sub Command1_Click()
If Text2.Text = "" Or deypt(Text2.Text) <> myrs!Password Then
    MsgBox "请输入正确的原始密码！", vbCritical + vbOKOnly, SYSTITLE
    Text2.SetFocus
    Exit Sub
End If
If Text3.Text = "" Then
    MsgBox "请输入新密码！", vbCritical + vbOKOnly, SYSTITLE
    Text3.SetFocus
    Exit Sub
End If
If Text3.Text <> Text4.Text Then
    MsgBox "两次输入密码不一样，请重新输入！", vbCritical + vbOKOnly, SYSTITLE
    Text2.SetFocus
    Exit Sub
End If
With myrs
    .edit
    !Password = deypt(Trim(Text3.Text))
    .Update
End With
MsgBox "新密码设定成功！", vbInformation + vbOKOnly, SYSTITLE
Unload Me
End Sub