1.修改密碼窗體：

a.首先就是窗體上方顯示登錄人的姓名，這樣修改密碼的時候可以加深自己的印象：

Label1.Caption = "當前用戶為：" & frmLogin.txtUserName.Text

b.其次就是在修改密碼的時候需要先輸入舊密碼來判定是不是本人，這樣才修改密碼的規則，符合常理，符合我們的認知。

If Trim(txtold.Text) <> Trim(mrc.Fields(1)) Then ?'判斷原密碼是否正確

??????? MsgBox "原密碼輸入不正確", vbOKOnly + vbExclamation, "警告"

??????? ????????txtold.SetFocus

???????? ???????txtold.Text = ""

???????? ???????txtPassword1.Text = ""

?????????? ?????txtPassword2.Text = ""

??? ????Exit Sub

End If

c.最后是在第二次輸入新密碼時，如果我們不輸入任何信息，直接點確認，這時候的彈出的警告框應該顯示“密碼不能為空”。

If txtPassword2.Text = "" Then

???????????? MsgBox "密碼不能為空，請再次確認密碼", vbOKOnly + vbExclamation, "警告"

???????? ????txtPassword2.SetFocus

?????????? ??txtPassword2.Text = ""

End? if

?

? ? ?

2.在修改信息窗體上：

a.如果之前數據庫沒有數據，此時選中修改按鈕時必定會報出“3021”奪命錯誤，此為數據庫操作著名錯誤。此錯誤是因為BOF或者EOF為真引起的，之前曾經介紹過。遇到此錯誤最好的辦法就是加一個判斷語句，如果遇到就跳過。

b.如果之前是有數據的那么就會跳轉到修改信息的界面，當按刪除鍵時，如果是最后一條記錄，再點擊刪除就會跟上面一樣，彈出提示，然后再出現添加信息界面，這樣設計會更加的人性化。

?

3.添加日期信息的文本框：

經過他人的啟發，我發現了一個很簡單又實用的控件：MonthView。

可以先把它放在窗體上，在運行時設置為隱藏，等點擊文本框后再顯示出來；而且還可以把最大的日期設置為當前日期，很有意思。設置最大日期的代碼：

MonthView1.MaxDate = Format(Now, "yyyy-mm-dd")

在此模塊中，輸入時間的時候還需要有一個條件判斷：出生日期必須要大于入校時間，否則是不合理的。

?

時間類型的數據進行比較，需要把字符串類型轉換為數值類型：

year("2018-7-11")&month("2018-7-11")&day("2018-7-11") 它就等于2018711。

?

4.1查詢學號時，模糊查詢：

當然查詢姓名也可以使用模糊查詢：

4.2顯示查詢到的結果數量：

?

?

?

總結

以上是生活随笔為你收集整理的学生系统优化（二）- - 窗体代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。