机房收费系统之范围查询

该类窗体功能：查询一定时间范围内的表信息，并将查询信息导出为Excel表。

 

步骤：

1，该窗体用到的是DTPicker和MSFlexGrid控件，以及对Excel的调用。

2，难点一：查询条件的填写：

Do While Not (mrs.EOF)
    If ((DateDiff("d", mrs.Fields(5), DTPstart.Value)) > 0) Then '若在开始时间之前则不显示
        mrs.MoveNext
        Exit Do
    ElseIf ((DateDiff("d", mrs.Fields(5), DTPend.Value)) < 0) Then '若在结束时间之后也不显示
        mrs.MoveNext
        Exit Do
    End If

    ‘将表中满足日期范围内的表中信息添加到MSFlexGrid中

Loop

当然还有其他的方法来查询范围内的信息：

strSQL="select * from Recharge where Date>='" & Format(DTPstart.Value, "yyyy/mm/dd") & "' and Date <='" & Format(DTPend.Value, "yyyy/mm/dd") & "'"

3，难点二：导出Excel表。

实际上这个只要在网上搜一下就有好多，可是对于本程序来说，很多东西都是多余的，我筛选了一下：

'导出至Excel
Public Sub OutDataToExcel(Flex As MSFlexGrid)
    Dim I As Integer, J As Integer  '标识行列
    Dim k As Integer                       '标识总函数
    Dim ColTitle As Integer           '标识列头
    On Error GoTo sub_error         ’出现错误则跳到错误处理（该错误处理也可以不填写，一般也不会有什么错误）
    frmRechargeInfo.MousePointer = 11’设置窗体的鼠标指针为忙碌状态
    Dim Excelapp As Excel.Application
    Set Excelapp = New Excel.Application  ‘实例化一个Excel应用程序
    On Error Resume Next
    DoEvents                                          ‘查看是否有其他重要的事情要做（转移对CPU的控制权）
    Excelapp.SheetsInNewWorkbook = 1    '新建一个工作簿
    Excelapp.Workbooks.Add                      '新建一个工作表
    Excelapp.ActiveSheet.Range("A:C").ColumnWidth = 10    '设置列宽（Range可一次设置多列，若只设置一列，也可用Columns属性）
    With Flex
        k = .Rows
        For I = 1 To k
            For J = 1 To Flex.Cols
                DoEvents
                Excelapp.ActiveSheet.Cells(I, J) = .TextMatrix(I - 1, J - 1)   ’将MSFlexGrid中的信息导入到Excel表中
            Next J
        Next I
    End With
    frmRechargeInfo.MousePointer = 0        ’将鼠标指针设为正常值
    Excelapp.WindowState = xlMaximized     ‘最大化显示
    Excelapp.Caption = "充值记录表"           '设置Excel表头
    Excelapp.Visible = True
    Exit Sub
sub_error:
    If Not (Excelapp Is Nothing) Then       ’错误处理：若表中没有信息则退出
        Excelapp.Quit
    End If
End Sub