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

概述【序言】接着前两篇博客将学生信息管理系统的总结进行到底。 =============================================================================================== 【问题5】日期输入时添加日历控件 在我们平时使用的软件中，当有输入日期的文本框时都会有下拉的日历供我选择，这样更加方便，可视化也避免了格式输入错误的问

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

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

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

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

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

②编写相应的代码

'窗体载入时默认是不显示的，当我们点击日期输入框时才显示日历。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" >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，各种缺陷，经过了一轮一轮的优化调试，终于有了点模样，可是还是有很多地方要去完善，留到机房收费系统的时候，做一个更棒的系统吧~~

感谢您的阅读~~

总结

以上是内存溢出为你收集整理的学生信息管理系统总结（三）全部内容，希望文章能够帮你解决学生信息管理系统总结（三）所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。