chemicaltools-windows/FrmChangePassword.frm at master · chemicaltools/chemicaltools-windows · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
VERSION 5.00
Begin VB.Form FrmChangePassword
   BackColor       =   &H00C0FFFF&
   BorderStyle     =   0  'None
   Caption         =   "修改密码"
   ClientHeight    =   5175
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4560
   Icon            =   "FrmChangePassword.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5175
   ScaleWidth      =   4560
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdPasswordChange
      Caption         =   "修改密码"
      Default         =   -1  'True
      Height          =   495
      Left            =   1560
      TabIndex        =   3
      Top             =   4560
      Width           =   1095
   End
   Begin VB.TextBox texAgain
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1440
      MaxLength       =   15
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   3960
      Width           =   2895
   End
   Begin VB.TextBox texNewPassword
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1440
      MaxLength       =   15
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   3240
      Width           =   2895
   End
   Begin VB.TextBox texPassword
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1440
      MaxLength       =   15
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   2520
      Width           =   2895
   End
   Begin VB.Label lblAgain
      BackStyle       =   0  'Transparent
      Caption         =   "确认新密码"
      BeginProperty Font
         Name            =   "微软雅黑"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   6
      Top             =   3960
      Width           =   1335
   End
   Begin VB.Label lblNewPassword
      BackStyle       =   0  'Transparent
      Caption         =   "新 密 码"
      BeginProperty Font
         Name            =   "微软雅黑"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   5
      Top             =   3240
      Width           =   1095
   End
   Begin VB.Label lblPassword
      BackStyle       =   0  'Transparent
      Caption         =   "原 密 码"
      BeginProperty Font
         Name            =   "微软雅黑"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   2520
      Width           =   1095
   End
   Begin VB.Image imgClose
      Height          =   450
      Left            =   4080
      Picture         =   "FrmChangePassword.frx":1B692
      Stretch         =   -1  'True
      Top             =   0
      Width           =   450
   End
   Begin VB.Image imgTitle
      Appearance      =   0  'Flat
      Height          =   2145
      Left            =   -1440
      Picture         =   "FrmChangePassword.frx":1CF8A
      Stretch         =   -1  'True
      Top             =   0
      Width           =   7335
   End
End
Attribute VB_Name = "FrmChangePassword"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdPasswordChange_Click()
    If texNewPassword = texAgain Then
        If dataChangePassword(DataUsername, texPassword, texNewPassword) Then
            MsgBox "修改成功！", vbOKOnly, "成功"
            Me.Hide
            If UIFormLoad(frmAbout) Then Unload frmAbout
            If UIFormLoad(frmElement) Then Unload frmElement
            If UIFormLoad(frmExam) Then Unload frmExam
            If UIFormLoad(frmLogin) Then Unload frmLogin
            If UIFormLoad(frmMain) Then Unload frmMain
            If UIFormLoad(frmMass) Then Unload frmMass
            If UIFormLoad(frmOptions) Then Unload frmOptions
            Load frmLogin
            Unload Me
        Else
            MsgBox "密码错误！", vbOKOnly, "错误"
        End If
    Else
        MsgBox "两次密码输入不一致！", vbOKOnly, "错误"
    End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    ReleaseCapture
    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub imgClose_Click()
    Unload Me
End Sub

Private Sub imgTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    ReleaseCapture
    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub