Skip to content
This repository was archived by the owner on Jan 21, 2026. It is now read-only.

Commit b4cc36b

Browse files
njzjznjzjz
committed
some changes
1 parent f52cc43 commit b4cc36b

File tree

10 files changed

+304
-26
lines changed

10 files changed

+304
-26
lines changed

‎Chemistry.vbp‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -15,6 +15,7 @@ Form=frmOptions.frm
1515
Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files (x86)\Common Files\Microsoft Shared\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library
1616
Form=frmLogin.frm
1717
Form=frmSignUp.frm
18+
Form=FrmChangePassword.frm
1819
IconForm="frmMain"
1920
Startup="Sub Main"
2021
HelpFile=""

‎Chemistry.vbw‎

Lines changed: 6 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,14 @@
1-
frmMain = 212, 151, 740, 562, C, 298, 28, 891, 616, C
1+
frmMain = 388, 183, 916, 594, , 298, 28, 891, 616, C
22
modCalculate = -25, 70, 902, 494, C
3-
modData = 180, -16, 1045, 526, C
3+
modData = 180, -16, 1043, 526,
44
frmElement = 34, 92, 920, 532, C, 104, 104, 990, 544, C
55
frmMass = 214, 191, 1104, 631, C, 43, 123, 929, 617, C
6-
modUI = -2, 379, 884, 815, C
7-
modMain = 194, 289, 1080, 729, C
6+
modUI = 3, 259, 889, 695,
7+
modMain = 194, 289, 1080, 729,
88
modExam = 40, 26, 926, 466, C
99
frmExam = 162, 158, 1093, 598, C, 133, 77, 1019, 548, C
1010
frmAbout = 104, 104, 989, 544, , 156, 142, 1042, 596, C
1111
frmOptions = 160, 118, 1046, 558, C, 108, 6, 994, 564, C
12-
frmLogin = 208, 208, 735, 632, C, 74, 117, 601, 541, C
12+
frmLogin = 445, 53, 1001, 477, , 74, 117, 601, 541, C
1313
frmSignUp = 0, 0, 527, 424, C, 499, 63, 1026, 487, C
14+
FrmChangePassword = 389, 177, 1274, 617, , 156, 156, 1041, 596, C

‎FrmChangePassword.frm‎

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

‎FrmChangePassword.frx‎

51.1 KB
Binary file not shown.

‎frmLogin.frm‎

Lines changed: 37 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -3,22 +3,41 @@ Begin VB.Form frmLogin
33
BackColor = &H00C0FFFF&
44
BorderStyle = 0 'None
55
Caption = "登陆"
6-
ClientHeight = 4725
6+
ClientHeight = 4995
77
ClientLeft = 0
88
ClientTop = 0
99
ClientWidth = 7335
1010
ForeColor = &H00FFFFFF&
1111
LinkTopic = "Form1"
12-
ScaleHeight = 4725
12+
ScaleHeight = 4995
1313
ScaleWidth = 7335
1414
ShowInTaskbar = 0 'False
1515
StartUpPosition = 2 '屏幕中心
16+
Begin VB.CheckBox chkAutoLogin
17+
BackColor = &H00C0FFFF&
18+
Caption = "自动登陆"
19+
Height = 375
20+
Left = 3360
21+
TabIndex = 7
22+
Top = 3840
23+
Width = 1095
24+
End
25+
Begin VB.CheckBox chkPassword
26+
BackColor = &H00C0FFFF&
27+
Caption = "记住密码"
28+
ForeColor = &H00000000&
29+
Height = 375
30+
Left = 1080
31+
TabIndex = 6
32+
Top = 3840
33+
Width = 1095
34+
End
1635
Begin VB.CommandButton cmdSignUp
1736
Caption = "注册"
1837
Height = 615
1938
Left = 4080
2039
TabIndex = 5
21-
Top = 3960
40+
Top = 4320
2241
Width = 1215
2342
End
2443
Begin VB.CommandButton cmdLogin
@@ -27,7 +46,7 @@ Begin VB.Form frmLogin
2746
Height = 615
2847
Left = 1440
2948
TabIndex = 4
30-
Top = 3960
49+
Top = 4320
3150
Width = 1215
3251
End
3352
Begin VB.TextBox texPassword
@@ -107,11 +126,15 @@ Attribute VB_GlobalNameSpace = False
107126
Attribute VB_Creatable = False
108127
Attribute VB_PredeclaredId = True
109128
Attribute VB_Exposed = False
129+
Private Sub chkAutoLogin_Click()
130+
If chkAutoLogin.value = 1 And chkPassword.value <> 1 Then chkPassword.value = 1
131+
End Sub
132+
110133
Private Sub cmdLogin_Click()
111-
If dataLogin(texUsername, texPassword) = True Then
134+
If dataLogin(texUsername, texPassword, chkPassword.value, chkAutoLogin.value) = True Then
112135
Me.Hide
113136
frmMain.Show
114-
Unload Me
137+
If UIFormLoad(Me) Then Unload Me
115138
Else
116139
MsgBox "用户名或密码错误！", vbOKOnly, "登陆失败"
117140
End If
@@ -124,8 +147,16 @@ End Sub
124147
Private Sub Form_Load()
125148
If HisUsername <> "" Then
126149
texUsername = HisUsername
150+
If HisPassword <> "" Then
151+
texPassword = HisPassword
152+
chkPassword.value = 1
153+
End If
154+
If HisAutoLogin = "True" Then
155+
chkAutoLogin.value = 1
156+
End If
127157
Me.Show
128158
texPassword.SetFocus
159+
If HisAutoLogin = "True" Then cmdLogin_Click
129160
End If
130161
End Sub
131162

‎main.frm‎

Lines changed: 40 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -3,45 +3,61 @@ Begin VB.Form frmMain
33
BackColor = &H00C0FFFF&
44
BorderStyle = 0 'None
55
Caption = "化学小工具 Designed by 团队一号"
6-
ClientHeight = 3930
6+
ClientHeight = 4680
77
ClientLeft = 0
88
ClientTop = 0
99
ClientWidth = 7425
1010
Icon = "main.frx":0000
1111
LinkTopic = "Form1"
1212
MaxButton = 0 'False
13-
ScaleHeight = 3930
13+
ScaleHeight = 4680
1414
ScaleWidth = 7425
1515
ShowInTaskbar = 0 'False
1616
StartUpPosition = 1 '所有者中心
17+
Begin VB.CommandButton cmdNewPassword
18+
Caption = "修改密码"
19+
Height = 615
20+
Left = 600
21+
TabIndex = 6
22+
Top = 3840
23+
Width = 1575
24+
End
25+
Begin VB.CommandButton cmdSignOut
26+
Caption = "注销"
27+
Height = 615
28+
Left = 2880
29+
TabIndex = 5
30+
Top = 3840
31+
Width = 1455
32+
End
1733
Begin VB.CommandButton cmdfrmAbout
1834
Caption = "关于"
1935
Height = 615
20-
Left = 5520
36+
Left = 5040
2137
TabIndex = 4
22-
Top = 2880
38+
Top = 3840
2339
Width = 1455
2440
End
2541
Begin VB.CommandButton cmdfrmExam
2642
Caption = "元素记忆"
2743
Height = 615
28-
Left = 3840
44+
Left = 5040
2945
TabIndex = 3
3046
Top = 2880
31-
Width = 1335
47+
Width = 1455
3248
End
3349
Begin VB.CommandButton cmdfrmElement
3450
Caption = "元素查询"
3551
Height = 615
36-
Left = 240
52+
Left = 600
3753
TabIndex = 1
3854
Top = 2880
39-
Width = 1335
55+
Width = 1575
4056
End
4157
Begin VB.CommandButton cmdfrmMass
4258
Caption = "质量计算"
4359
Height = 615
44-
Left = 1920
60+
Left = 2880
4561
TabIndex = 2
4662
Top = 2880
4763
Width = 1455
@@ -90,7 +106,7 @@ Attribute VB_Exposed = False
90106

91107
Private Sub cmdfrmAbout_Click()
92108
Load frmAbout
93-
frmAbout.Show
109+
frmAbout.Show 1, Me
94110
End Sub
95111

96112
Private Sub cmdfrmElement_Click()
@@ -105,7 +121,20 @@ End Sub
105121

106122
Private Sub cmdfrmmass_Click()
107123
Load frmMass
108-
frmMass.Show 1, Me
124+
frmMass.Show
125+
End Sub
126+
127+
Private Sub cmdNewPassword_Click()
128+
FrmChangePassword.Show 1
129+
End Sub
130+
131+
Private Sub cmdSignOut_Click()
132+
dataSignOut
133+
If UIFormLoad(frmLogin) Then Unload frmLogin
134+
Load frmLogin
135+
Me.Hide
136+
frmLogin.Show
137+
Unload Me
109138
End Sub
110139

111140
Private Sub Form_Load()

‎mdb/User.mdb‎

0 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)