机房收费系统总结三

机房收费系统的第三步，开始建立与充值有关的表，即命名为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。