机房收费系统 —— 金额返还信息查询

#前言
在机房收费系统中，操作员或者管理员需要查看退卡人的相关信息， 所以出现了这个船体，主要功能是查询任意时间段内退卡人的信息。

#正文
这个窗体一开始我认为比较陌生的是时间控件和导出为Excel，这些是新知识，确实是没有见过，那我们就需要站在巨人的肩膀上了。

（1）查询任意时间段的信息：

 '查询数据库中需用日期段的内容
    txtsql = "select * from cancelcard_info where date between '" & DTPbegin.Value & "'AND '" & DTPend.Value & "'"
    Set mrc = executeSQL(txtsql, msgtext)
    

（2）导出为Excel代码：

 Dim Excelapp As Excel.Application
    Dim Excelbook As Excel.Workbook
    Dim Excelsheet As Excel.Worksheet
      
    Set Excelapp = New Excel.Application '建立一张表
    Set Excelbook = Excelapp.Workbooks.Add '添加新的工作簿
    Set Excelsheet = Excelbook.Worksheets(1) '建立工作表
      
    Dim row As Integer 
    dim col as integer  
    With myFlexGrid
      
        For row = 0 To .Rows - 1
            For col = 0 To .Cols - 1
                DoEvents '转让控制权
                 Excelsheet.Cells(row + 1, col + 1) = myFlexGrid.TextMatrix(row, col)
                Next col
            Next row
       End With
         
       Excelapp.Visible = True
       Exit Sub

#后记
遇到一个新的知识不要害怕，去联系旧知识，时间控件是新知识，但是“控件”这个词不是新知识，知道它是控件去按照控件的方法去桌就可以了。导出为 Excel 可能觉得不熟悉，但是我们有那么多的巨人哈哈，在网上就可以找到方法，到时候一总结就是我的啦！