金额返回信息查询逻辑其实是和收取金额查询是一样的。都是
1.先判断起始日期和终止日期的关系:终止日期不能早于起止日期。
2.金额返回信息记录的判断,cancelcard表记录的查询,有记录和没有记录结果
3.查询成功
此窗体的目的:在机房收费系统中,操作员或者管理员需要查看退卡人的相关信息, 所以出现了这个窗体,主要功能是查询任意时间段内退卡人的信息。
流程图:连接的cancelcard表
代码展示:
Dim txtsql, msgtext As String
Dim mrc As ADODB.Recordset
txtsql = "select * from cancelcard_info where date >= '" & DTPicker1.Value & "' and date <='" & DTPicker2.Value & "'"
Set mrc = executeSQL(txtsql, msgtext)
If DTPicker2.Value < DTPicker1.Value Then
MsgBox "终止日期不能早于起止日期!", vbOKOnly + vbExclamation, "提示"
Exit Sub
Else
If mrc.EOF = True Then
MsgBox "没有数据记录!", vbOKOnly + vbExclamation, "提示"
Exit Sub
End If
End If
With MSHFlexGrid1
.rows = 1
.cols = 7
.CellAlignment = 4
'设置第一行的标题
.TextMatrix(0, 0) = "卡号"
.TextMatrix(0, 1) = "退还金额"
.TextMatrix(0, 2) = "退还日期"
.TextMatrix(0, 3) = "退还时间"
.TextMatrix(0, 4) = "结账教师"
.TextMatrix(0, 5) = "结账状态"
Do While Not mrc.EOF
.rows = .rows + 1
.CellAlignment = 4
.TextMatrix(.rows - 1, 0) = Trim(mrc.Fields(1))
.TextMatrix(.rows - 1, 1) = Trim(mrc.Fields(2))
.TextMatrix(.rows - 1, 2) = Trim(mrc.Fields(3))
.TextMatrix(.rows - 1, 3) = Trim(mrc.Fields(4))
.TextMatrix(.rows - 1, 4) = Trim(mrc.Fields(5))
.TextMatrix(.rows - 1, 5) = Trim(mrc.Fields(6))
mrc.MoveNext
Loop
End With
MsgBox "查询成功!", vbOKOnly + vbExclamation, "提示"
mrc.Close
导出为excel:
rem:导出为excel
Private Sub cmdexcel_Click()
Call ExportToExcel(MSHFlexGrid1)
End Sub