《机房收费之日历》

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


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

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

首先逻辑思考:

其次操作分解:

(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)选择日期,内容传输,控件消失:与学生雷同


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

你可能感兴趣的:(《机房收费之日历》)