学生系统优化（二）- - 窗体代码

痛定思痛。 2022-03-21 13:44 238阅读 0赞

**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

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70][]

**     **

**2.在修改信息窗体上：**

a.如果之前数据库没有数据，此时选中修改按钮时必定会报出“3021”夺命错误，此为数据库操作著名错误。此错误是因为BOF或者EOF为真引起的，之前曾经介绍过。遇到此错误最好的办法就是加一个判断语句，如果遇到就跳过。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 1][]

b.如果之前是有数据的那么就会跳转到修改信息的界面，当按删除键时，如果是最后一条记录，再点击删除就会跟上面一样，弹出提示，然后再出现添加信息界面，这样设计会更加的人性化。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 2][]

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

经过他人的启发，我发现了一个很简单又实用的控件：MonthView。

可以先把它放在窗体上，在运行时设置为隐藏，等点击文本框后再显示出来；而且还可以把最大的日期设置为当前日期，很有意思。设置最大日期的代码：

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

![20190202081001943.png][]

在此模块中，输入时间的时候还需要有一个条件判断：出生日期必须要大于入校时间，否则是不合理的。

![20190202081001937.png][]

时间类型的数据进行比较，需要把字符串类型转换为数值类型：

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

**4.1查询学号时，模糊查询：**

![2019020208100237.png][]

当然查询姓名也可以使用模糊查询：

![20190202081001938.png][]

**4.2显示查询到的结果数量：**

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 3][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 4][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70]: /images/20220321/b9bcf17a8f5f4da49d70f450a96778a6.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 1]: /images/20220321/90499a7f8a8041afa19ddbe066d69213.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 2]: /images/20220321/3aee41ad3f3840f28f2753f66574aace.png
[20190202081001943.png]: /images/20220321/0f448226465441c68069813c9d09069b.png
[20190202081001937.png]: /images/20220321/524f7080657c4b0fa6a90e6156334e47.png
[2019020208100237.png]: /images/20220321/5549d90f02344ba194bddb23cb42ded1.png
[20190202081001938.png]: /images/20220321/e73067912c9b475da0d514b465a9bd6f.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 3]: /images/20220321/d95b1d720e2943dc8db2703a39057a8e.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 4]: /images/20220321/adab3a18000d496685c891fd45aa8cde.png