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

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

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

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

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

②编写相应的代码

'窗体载入时默认是不显示的，当我们点击日期输入框时才显示日历。
Private Sub Form_Load()

MonthView1.Visible = False

End sub

 

Private Sub txtBorndate_Click()

MonthView1.Visible = True

End Sub

 

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 

txtBorndate.Text = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.Day

MonthView1.Visible = False

End 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，各种缺陷，经过了一轮一轮的优化调试，终于有了点模样，可是还是有很多地方要去完善，留到机房收费系统的时候，做一个更棒的系统吧~~

感谢您的阅读~~