前言:机房收费之内蕴深厚,初次相识,此乃吾之浅见,愿与之分享
概要:借鉴学生信息系统日历控件的添加,应用于第一次机房收费系统
学生信息系统:以添加学籍信息为例
首先逻辑思考:
其次操作分解:
(1)添加:工程-部件-勾选Microsoft Windows Common Controls-2 6.0 (SP6)
(2)窗体加载不可见:
Private Sub Form_Load() '加载之初日历控件不可见
MonthView1.Visible = False
MonthView2.Visible = False
End Sub
(3)单击text控件显示:
Private Sub txtBorndate_Click()
MonthView1.Visible = True
End Sub
Private Sub txtRudate_Click()
MonthView2.Visible = True
End Sub
(4)选择日期,内容传输,控件消失
Private Sub MonthView1_DateClick(ByVal DateClicked As Date) '加入日历,设置时间,年、月、日
txtBorndate.Text = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.Day
MonthView1.Visible = False
End Sub
Private Sub MonthView2_DateClick(ByVal DateClicked As Date)
txtRudate.Text = MonthView2.Year & "-" & MonthView2.Month & "-" &MonthView2.Day
MonthView2.Visible = False
End Sub
第一次机房收费系统:以收取金额查询为例
首先逻辑思考:
其次操作分解:
(1)添加:与学生雷同
(2)运行之初不可见:与学生雷同
(3)控件显示:
Private Sub comboStartDate_GotFocus() '当起始日期下拉框获得焦点时,日历控件显示
MonthView1.Visible = True
End Sub
Private Sub comboStopDate_GotFocus() '当终止日期下拉框获得焦点时,日历控件显示
MonthView2.Visible = True
End Sub
(4)选择日期,内容传输,控件消失:与学生雷同
尾语:心思缜密,敏锐观察,以锋利的眼神究其中之不同,学己不懂之处