开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > SQL Server > 查看源码
XiuGaimima.frm
资源名称：20080403.rar　[点击查看]
上传用户：linhua1013
上传日期：2014-12-05
资源大小：375k
文件大小：5k
源码类别：

SQL Server

开发平台：

Visual Basic

XiuGaimima.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form XiuGaimima 
  3.    Caption         =   "修改密码"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    LockControls    =   -1  'True
  10.    MDIChild        =   -1  'True
  11.    ScaleHeight     =   3090
  12.    ScaleWidth      =   4680
  13.    Begin VB.CommandButton quxiao 
  14.       Caption         =   "取  消"
  15.       Height          =   375
  16.       Left            =   2760
  17.       TabIndex        =   9
  18.       Top             =   2640
  19.       Width           =   975
  20.    End
  21.    Begin VB.CommandButton queding 
  22.       Caption         =   "确  定"
  23.       Height          =   375
  24.       Left            =   960
  25.       TabIndex        =   8
  26.       Top             =   2640
  27.       Width           =   975
  28.    End
  29.    Begin VB.Frame Frame1 
  30.       Height          =   1695
  31.       Left            =   120
  32.       TabIndex        =   1
  33.       Top             =   840
  34.       Width           =   4455
  35.       Begin VB.TextBox QDmima 
  36.          Height          =   270
  37.          Left            =   1920
  38.          TabIndex        =   7
  39.          Top             =   1200
  40.          Width           =   1695
  41.       End
  42.       Begin VB.TextBox Xmima 
  43.          Height          =   270
  44.          Left            =   1920
  45.          TabIndex        =   5
  46.          Top             =   760
  47.          Width           =   1695
  48.       End
  49.       Begin VB.TextBox Jmima 
  50.          Height          =   270
  51.          Left            =   1920
  52.          TabIndex        =   3
  53.          Top             =   300
  54.          Width           =   1695
  55.       End
  56.       Begin VB.Label Label4 
  57.          AutoSize        =   -1  'True
  58.          Caption         =   "确定密码："
  59.          Height          =   180
  60.          Left            =   840
  61.          TabIndex        =   6
  62.          Top             =   1275
  63.          Width           =   900
  64.       End
  65.       Begin VB.Label Label3 
  66.          AutoSize        =   -1  'True
  67.          Caption         =   "新密码："
  68.          Height          =   180
  69.          Left            =   960
  70.          TabIndex        =   4
  71.          Top             =   840
  72.          Width           =   720
  73.       End
  74.       Begin VB.Label Label1 
  75.          AutoSize        =   -1  'True
  76.          Caption         =   "旧密码："
  77.          Height          =   180
  78.          Left            =   960
  79.          TabIndex        =   2
  80.          Top             =   360
  81.          Width           =   720
  82.       End
  83.    End
  84.    Begin VB.Label Label2 
  85.       AutoSize        =   -1  'True
  86.       Caption         =   "公 司 人 事 管 理 系 统"
  87.       BeginProperty Font 
  88.          Name            =   "华文彩云"
  89.          Size            =   21.75
  90.          Charset         =   134
  91.          Weight          =   400
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       ForeColor       =   &H00C0C000&
  97.       Height          =   450
  98.       Left            =   240
  99.       TabIndex        =   0
  100.       Top             =   240
  101.       Width           =   4215
  102.    End
  103. End
  104. Attribute VB_Name = "XiuGaimima"
  105. Attribute VB_GlobalNameSpace = False
  106. Attribute VB_Creatable = False
  107. Attribute VB_PredeclaredId = True
  108. Attribute VB_Exposed = False
  109. Private Sub Form_Load()
  110.   Me.Height = 3600
  111.   Me.Width = 4800
  112.   If XGmima.State = adStateOpen Then XGmima.Close
  113.   XGmima.Open "select * from userDL where ID='" & DLyonghuM & "'", MySQL, adOpenKeyset, adLockPessimistic
  114. End Sub
  116. Private Sub Form_Unload(Cancel As Integer)
  117.   Set XGmima = Nothing
  118. End Sub
  120. Private Sub queding_Click()
  121.   If Xmima.Text = "" Or Jmima.Text = "" Then
  122.      MsgBox "新旧密码均不能为空，请仔细填写！", , "温馨提示"
  123.   Else
  124.      If Xmima.Text <> QDmima.Text Then
  125.         MsgBox "新密码两次输入不相同，请仔细检查密码！", , "温馨提示"
  126.         QDmima.SetFocus
  127.         QDmima.SelStart = 0
  128.         QDmima.SelLength = Len(QDmima.Text)
  129.      Else
  130.         If Jmima.Text <> Trim(XGmima.Fields(1)) Then
  131.            MsgBox "与原密码不符！请重新仔细输入！", , "温馨提示"
  132.            Jmima.SetFocus
  133.            Jmima.SelStart = 0
  134.            Jmima.SelLength = Len(Jmima.Text)
  135.         Else
  136.            QD = MsgBox(" 确定修改么？", 64 + 4, "温馨提示")
  137.            If QD = 6 Then
  138.               XGmima.Fields(1) = Trim(Xmima.Text)
  139.               XGmima.Update
  140.               MsgBox "修改密码成功！" + vbCrLf + "新密码：" + Xmima.Text, , "温馨提示"
  141.            Else
  142.               Xmima.Text = ""
  143.               Jmima.Text = ""
  144.               QDmima.Text = ""
  145.               Jmima.SetFocus
  146.            End If
  147.         End If
  148.      End If
  149.   End If
  150. End Sub
  152. Private Sub quxiao_Click()
  153.   Unload Me
  154. End Sub