Option Explicit

Private Sub Form_Load()
Dim Mpath As String
Mpath = VB.App.Path
If Right(Mpath, 1) <> "/" Then Mpath = Mpath + "/"
Data1.DatabaseName = Mpath + "管理系統數據庫.mdb"
Data1.RecordSource = "select 帳號,密碼 from 管理員"
Data1.Refresh
Text7.DataField = "帳號"
Text8.DataField = "密碼"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If X > Shape1.Left And X < Shape1.Left + Shape1.Width And Y > Shape1.Top And Y < Shape1.Top + Shape1.Height Then
Shape1.Visible = True
Label7.ForeColor = &HFF&
Else:
Shape1.Visible = False
Label7.ForeColor = &H0&
End If

If X > Shape2.Left And X < Shape2.Left + Shape2.Width And Y > Shape2.Top And Y < Shape2.Top + Shape2.Height Then
Shape2.Visible = True
Label8.ForeColor = &HFF&
Else:
Shape2.Visible = False
Label8.ForeColor = &H0&
End If

If X > Shape3.Left And X < Shape3.Left + Shape3.Width And Y > Shape3.Top And Y < Shape3.Top + Shape3.Height Then
Shape3.Visible = True
Label9.ForeColor = &HFF&
Else:
Shape3.Visible = False
Label9.ForeColor = &H0&
End If

If X > Shape5.Left And X < Shape5.Left + Shape5.Width And Y > Shape5.Top And Y < Shape5.Top + Shape5.Height Then
Shape5.Visible = True
Label10.ForeColor = &HFF&
Else:
Shape5.Visible = False
Label10.ForeColor = &H0&
End If
End Sub

Private Sub Label10_Click()
Unload Me
main.Show
End Sub

Private Sub Label9_Click()
Unload Me
P = True
a3.Show
 
End Sub

Private Sub Label7_Click()                 '進行口令的修改
Label7.Enabled = Not Label7.Enabled
Label8.Enabled = Not Label8.Enabled
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text1.SetFocus
End Sub


Private Sub Label8_Click()
Dim z As String
Text1.SetFocus
If Text1.Text = Text7.Text And Text2.Text = Text8.Text And Text3.Text = Text5.Text And Text4.Text = Text6.Text Then
'And Text4.Text <> "" And Text5.Text <> "" And Text6.Text <> "" And Text7.Text <> "" Then
'以上一句是防止新密碼與新帳號一樣的語句，若起用，就可避免一致，這樣加大了系統的安全性！！

MsgBox "口令修改成功！！", 48

Data1.Recordset.Edit
Text7.Text = Text5.Text
Text8.Text = Text6.Text
Data1.Recordset.Update
Label7.Enabled = Not Label7.Enabled
Label8.Enabled = Not Label8.Enabled
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
ElseIf Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then       '輸入空口令
z = MsgBox("您輸入的新口令是空的，這是不合法的口令！！要重新輸入嗎？", 5)
If z = 4 Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
ElseIf z = 2 Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""




Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Label8.Enabled = Not Label8.Enabled
Label7.Enabled = Not Label7.Enabled

End If
ElseIf Text1.Text <> Text7.Text Or Text2.Text <> Text8.Text Then
z = MsgBox("您輸入的原始口令有誤！！要重新輸入嗎？", 5)




If z = 4 Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
ElseIf z = 2 Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Label8.Enabled = Not Label8.Enabled
Label7.Enabled = Not Label7.Enabled


End If
ElseIf Text3.Text <> Text5.Text Or Text4.Text <> Text6.Text Then          '兩次輸入的口令不一致
z = MsgBox("兩次輸入的口令不一致！要重新輸入嗎？", 5)
If z = 4 Then
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text3.SetFocus
ElseIf z = 2 Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Label8.Enabled = Not Label8.Enabled
Label7.Enabled = Not Label7.Enabled

Exit Sub
End If
End If
End Sub