机房收费系统的第三步,开始建立与充值有关的表,即命名为chargerecord_Info表。主要包括的信息有卡号,学号,充值金额,日期,时间,充值教师,结账状态,操作员的一项功能收取金额查询中可以得到这些字段。
因此,随之敲的窗体有:
1、充值
2、学生充值记录
3、收取金额查询(操作员功能,为了结账,需要显示是否结账)
随之而来的又是三个窗体,在敲这三个窗体的过程中也遇到了一些小困难,还有继续学习的知识:
一、导出为Excel
Dim xlsRowCount As Integer Dim xlsColCount As Integer Dim xlsApp As Excel.Application Dim xlsBook As Excel.Workbook Dim xlsSheet As Excel.Worksheet Dim i, j As Long Set xlsApp = CreateObject("excel.Application") Set xlsBook = xlsApp.Workbooks.Add Set xlsSheet = xlsBook.Worksheets(1) On Error Resume Next xlsRowCount = myFlexGrid.Rows xlsColCount = myFlexGrid.Cols With xlsSheet For i = 0 To xlsRowCount - 1 For j = 0 To xlsColCount - 1 .Cells(i + 1, j + 1) = myFlexGrid.TextMatrix(i, j) Next Next End With xlsApp.Visible = True Set xlsApp = Nothing二、添加部件Microsoft Windows Common Controls_2 6.0(SP6)
日期控件:DTPicker
1、Month属性:返回当前选定日期的月份整数值(1—12)
2、Day属性:返回当前选定的日(1—31)
3、DayOfWeek属性:返回指定所选日期是星期几
4、Year属性:返回选定日期的年份整数值
6、week属性:返回当前选定日期的星期序号
7.value属性:设置控件的value属性,以便决定在控件中一开始选中哪个日期。
和下面的日历控件联合使用:
DTPicker1.Value = Format(MonthView1.Value, "mm/dd/yyyy ")日历控件:MonthView
1、也有DTpicker的Month,Day,DayOfWeek,Year,Week属性
2、SelStart和SelEnd属性决定选择哪些日子
3、MaxSelCount属性返回或设置一次可以选择的连续日期的最大数目(缺省值为7,需要MultiSelect属性设置为True才有效)。其设置规则:如果MonthView.SelEnd - MonthView.SelStart = 5。然而,由于实际上选择了六天,因此MaxSelCount 必须设为 6。