杨晓风廊坊师范学院信息技术提高班十二期

前言：机房收费之内蕴深厚，初次相识，此乃吾之浅见，愿与之分享

概要：借鉴学生信息系统日历控件的添加，应用于第一次机房收费系统

学生信息系统：以添加学籍信息为例

首先逻辑思考：

其次操作分解：

（1）添加：工程-部件-勾选Microsoft Windows Common Controls-2 6.0 (SP6)

（2）窗体加载不可见：

Private Sub Form_Load() ‘加载之初日历控件不可见 MonthView1.Visible = False MonthView2.Visible = FalseEnd Sub

（3）单击text控件显示：

Private Sub txtBorndate_Click() MonthView1.Visible = TrueEnd Sub

Private Sub txtRudate_Click() MonthView2.Visible = TrueEnd Sub

（4）选择日期，内容传输，控件消失

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) ‘加入日历，设置时间，年、月、日txtBorndate.Text = MonthView1.Year & "-" & MonthView1.Month & "-" &MonthView1.DayMonthView1.Visible = FalseEnd Sub

Private Sub MonthView2_DateClick(ByVal DateClicked As Date)txtRudate.Text = MonthView2.Year & "-" & MonthView2.Month & "-" &MonthView2.DayMonthView2.Visible = FalseEnd Sub

第一次机房收费系统：以收取金额查询为例

首先逻辑思考：

其次操作分解：

（1）添加：与学生雷同

（2）运行之初不可见：与学生雷同

（3）控件显示：

Private Sub comboStartDate_GotFocus() ‘当起始日期下拉框获得焦点时，日历控件显示 MonthView1.Visible = TrueEnd SubPrivate Sub comboStopDate_GotFocus() ‘当终止日期下拉框获得焦点时，日历控件显示 MonthView2.Visible = TrueEnd Sub

（4）选择日期，内容传输，控件消失：与学生雷同

尾语：心思缜密，敏锐观察，以锋利的眼神究其中之不同，学己不懂之处

你说只有有缘人才可以取下，我看着你手中的戒指，

相关文章：

你感兴趣的文章：

标签云：