学生信息管理系统总结（三）

【序言】接着前两篇博客将学生信息管理系统的总结进行到底。

===============================================================================================

【问题5】日期输入时添加日历控件

在我们平时使用的软件中，当有输入日期的文本框时都会有下拉的日历供我选择，这样更加方便，可视化也避免了格式输入错误的问题

①在VB中部件中添加部件Microsoft Windows Common Controls-2 6.0  然后在窗体上添加MonthView控件。

②编写相应的代码

</pre><pre name="code" class="vb">'窗体载入时默认是不显示的，当我们点击日期输入框时才显示日历。Private Sub Form_Load()MonthView1.Visible = FalseEnd sub Private Sub txtBorndate_Click()MonthView1.Visible = TrueEnd Sub Private Sub MonthView1_DateClick(ByVal DateClicked As Date) txtBorndate.Text = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.DayMonthView1.Visible = FalseEnd Sub

【问题6】设置课程防止课程重复

看了这张图大家可能会发现有两个问题:

①已选的课程里面有重复的课程

②当左边的课程移动到右边后左边的课程没有消失或者变灰

<pre name="code" class="vb">Private Sub cmdAdd_Click()       Dim i As Variant '判断是否有内容被选中         If listallCourse.ListIndex <> -1 Then                                 '全部课程列表不为空            If listselectCourse.ListCount = 0 Then                           '已选列表为空'将选中的课程赋值到已选课程中                   listselectCourse.AddItem listallCourse.List(listallCourse.ListIndex)                         Exit Sub           End If'如果已选课程列表中已有信息，则查询是否有重复的选项'如果有的话，就提示然后跳出程序                            For i = 0 To listselectCourse.ListCount - 1                    If listselectCourse.List(i) = listallCourse.List(listallCourse.ListIndex) Then                        MsgBox "此项已添加，请勿重复添加"                        Exit Sub                    End If               Next               listselectCourse.AddItem listallCourse.List(listallCourse.ListIndex)               Else                     MsgBox "请先点击“设置课程”按钮添加课程"                  End If      End Sub

【总结】

      没有优化之前许多操作虽然没有bug出现但是整体来说有很多问题要完善，因为当你完成了一个系统这个系统并不是仅供自己使用的，也不是仅供懂程序的人使用的，之后当你的做的软件足够简单，足够让用户花最短的时间明白他所需要的操作，以及它可以达到的效果，你才向成功迈出了一小步~~  加油，调试系统的时候各种Bug，各种缺陷，经过了一轮一轮的优化调试，终于有了点模样，可是还是有很多地方要去完善，留到机房收费系统的时候，做一个更棒的系统吧~~

     感谢您的阅读~~