frmcountanalyze.frm
来自「一套简易的MIS系统。带SQLServer数据库。供参考。」· FRM 代码 · 共 1,233 行 · 第 1/4 页
FRM
1,233 行
End With
rsTemp.MoveNext
iIndex = iIndex + 1
Loop
iCount = lstDataInfo.ListItems.Count + 1
lstDataInfo.ListItems.Add iCount, , iCount
lstDataInfo.ListItems(iCount).SubItems(1) = " 合计："
lstDataInfo.ListItems(iCount).SubItems(2) = Format(iSum1, "0.00")
lstDataInfo.ListItems(iCount).SubItems(3) = Format(iSum2, "0.00")
lstDataInfo.ListItems(iCount).SubItems(4) = Format(iSum3, "0.00")
lstDataInfo.ListItems(iCount).SubItems(5) = Format(iSum4, "0.00")
lstDataInfo.ListItems(iCount).SubItems(6) = Format(iSum5, "0.00")
lstDataInfo.ListItems(iCount).SubItems(7) = Format(iSum6, "0.00")
lstDataInfo.ListItems(iCount).SubItems(8) = Format(iSum7, "0.00")
lstDataInfo.ListItems(iCount).SubItems(9) = Format(iSum8, "0.00")
Case 3
lstDataInfo.ListItems.Clear
Do Until rsTemp.EOF
lstDataInfo.ListItems.Add iIndex, , iIndex
With lstDataInfo.ListItems(iIndex)
.SubItems(1) = IIf(IsNull(rsTemp.Fields("Shop_way")), "", rsTemp.Fields("Shop_way"))
.SubItems(2) = rsTemp.Fields("iCount")
iSum1 = iSum1 + Val(.SubItems(2))
.SubItems(3) = Format(rsTemp.Fields("iWeight"), "0.00")
iSum2 = iSum2 + Val(.SubItems(3))
.SubItems(4) = rsTemp.Fields("iCount1")
iSum3 = iSum3 + Val(.SubItems(4))
.SubItems(5) = Format(rsTemp.Fields("iChange"), "0.00")
iSum4 = iSum4 + Val(.SubItems(5))
.SubItems(6) = rsTemp.Fields("iCount2")
iSum5 = iSum5 + Val(.SubItems(6))
.SubItems(7) = Format(rsTemp.Fields("iCash"), "0.00")
iSum6 = iSum6 + Val(.SubItems(7))
.SubItems(8) = Format(Val(.SubItems(2)) + Val(.SubItems(4)), "0.00")
iSum7 = iSum7 + Val(.SubItems(8))
.SubItems(9) = Format(Val(.SubItems(3)) + Val(.SubItems(5)), "0.00")
iSum8 = iSum8 + Val(.SubItems(9))
End With
rsTemp.MoveNext
iIndex = iIndex + 1
Loop
iCount = lstDataInfo.ListItems.Count + 1
lstDataInfo.ListItems.Add iCount, , iCount
lstDataInfo.ListItems(iCount).SubItems(1) = " 合计："
lstDataInfo.ListItems(iCount).SubItems(2) = Format(iSum1, "0.00")
lstDataInfo.ListItems(iCount).SubItems(3) = Format(iSum2, "0.00")
lstDataInfo.ListItems(iCount).SubItems(4) = Format(iSum3, "0.00")
lstDataInfo.ListItems(iCount).SubItems(5) = Format(iSum4, "0.00")
lstDataInfo.ListItems(iCount).SubItems(6) = Format(iSum5, "0.00")
lstDataInfo.ListItems(iCount).SubItems(7) = Format(iSum6, "0.00")
lstDataInfo.ListItems(iCount).SubItems(8) = Format(iSum7, "0.00")
lstDataInfo.ListItems(iCount).SubItems(9) = Format(iSum8, "0.00")
End Select
Else
MsgBox "没有符合条件的数据！", vbInformation, "提示："
End If
End Function
Private Sub SSTab1_Click(PreviousTab As Integer)
Dim rsTemp As New ADODB.Recordset
Dim iIndex As Long
Dim iKP_ZC(), iKP_XG(), iKP_ZF() As Single
Dim iDataList As Integer
Select Case SSTab1.Tab
Case 1
Select Case iCountFlag
Case 0
If getSQLString = False Then MsgBox "无数据显示！", vbInformation, "提示：": Exit Sub
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set MSChart2.DataSource = rsTemp
With MSChart2
.RowCount = rsTemp.RecordCount
.ColumnCount = 3
.Column = 1
End With
MSChart2.ColumnLabel = "开票金额"
MSChart2.Column = 2
MSChart2.ColumnLabel = "开票修改金额"
MSChart2.Column = 3
MSChart2.ColumnLabel = "开票作废金额"
If rsTemp.EOF = False Then
iDataList = 1
iIndex = 1
rsTemp.MoveFirst
Do Until rsTemp.EOF
With MSChart2
.Row = iIndex
.RowLabel = rsTemp.Fields("Oper_ID")
.Column = iDataList
.Data = rsTemp.Fields("iWeight") / 10000
.Column = iDataList + 1
.Data = rsTemp.Fields("iChange") / 10000
.Column = iDataList + 2
.Data = rsTemp.Fields("iCash") / 10000
End With
iDataList = 1
rsTemp.MoveNext
iIndex = iIndex + 1
Loop
End If
Case 1
If getSQLString = False Then MsgBox "无数据显示！", vbInformation, "提示：": Exit Sub
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set MSChart2.DataSource = rsTemp
With MSChart2
.RowCount = rsTemp.RecordCount
.ColumnCount = 3
.Column = 1
End With
MSChart2.ColumnLabel = "开票金额"
MSChart2.Column = 2
MSChart2.ColumnLabel = "开票修改金额"
MSChart2.Column = 3
MSChart2.ColumnLabel = "开票作废金额"
If rsTemp.EOF = False Then
iDataList = 1
iIndex = 1
rsTemp.MoveFirst
Do Until rsTemp.EOF
With MSChart2
.Row = iIndex
.RowLabel = rsTemp.Fields("Goods_id")
.Column = iDataList
.Data = rsTemp.Fields("iWeight") / 10000
.Column = iDataList + 1
.Data = rsTemp.Fields("iChange") / 10000
.Column = iDataList + 2
.Data = rsTemp.Fields("iCash") / 10000
End With
iDataList = 1
rsTemp.MoveNext
iIndex = iIndex + 1
Loop
End If
Case 2
If getSQLString = False Then MsgBox "无数据显示！", vbInformation, "提示：": Exit Sub
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set MSChart2.DataSource = rsTemp
With MSChart2
.RowCount = rsTemp.RecordCount
.ColumnCount = 6
.Column = 1
End With
With MSChart2
.ColumnLabel = "开票量"
.Column = 2
.ColumnLabel = "开票金额"
.Column = 3
.ColumnLabel = "开票修改量数"
.Column = 4
.ColumnLabel = "开票修改金额"
.Column = 5
.ColumnLabel = "开票作废量数"
.Column = 6
.ColumnLabel = "开票作废金额"
End With
If rsTemp.EOF = False Then
iDataList = 1
iIndex = 1
rsTemp.MoveFirst
Do Until rsTemp.EOF
With MSChart2
.Row = iIndex
.RowLabel = rsTemp.Fields("Oper_ID")
.Column = iDataList
.Data = rsTemp.Fields("iCount")
.Column = iDataList + 1
.Data = rsTemp.Fields("iWeight") / 10000
.Column = iDataList + 2
.Data = rsTemp.Fields("iCount1")
.Column = iDataList + 3
.Data = rsTemp.Fields("iChange") / 10000
.Column = iDataList + 4
.Data = rsTemp.Fields("iCount2")
.Column = iDataList + 5
.Data = rsTemp.Fields("iCash") / 10000
End With
iDataList = 1
rsTemp.MoveNext
iIndex = iIndex + 1
Loop
End If
Case 3
If getSQLString = False Then MsgBox "无数据显示！", vbInformation, "提示：": Exit Sub
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set MSChart2.DataSource = rsTemp
With MSChart2
.RowCount = rsTemp.RecordCount
.ColumnCount = 3
.Column = 1
End With
With MSChart2
' .ColumnLabel = "结算票量"
' .Column = 2
.ColumnLabel = "结算票金额"
' .Column = 2
' .ColumnLabel = "结算票修改量数"
.Column = 2
.ColumnLabel = "结算票修改金额"
' .Column = 5
' .ColumnLabel = "结算票作废量数"
.Column = 3
.ColumnLabel = "结算票作废金额"
End With
If rsTemp.EOF = False Then
iDataList = 1
iIndex = 1
rsTemp.MoveFirst
Do Until rsTemp.EOF
With MSChart2
.Row = iIndex
.RowLabel = rsTemp.Fields("Oper_ID")
.Column = iDataList
' .Data = rsTemp.Fields("iCount")
' .Column = iDataList + 1
.Data = rsTemp.Fields("iWeight") / 10000
' .Column = iDataList + 2
' .Data = rsTemp.Fields("iCount1")
.Column = iDataList + 1
.Data = rsTemp.Fields("iChange") / 10000
' .Column = iDataList + 4
' .Data = rsTemp.Fields("iCount2")
.Column = iDataList + 2
.Data = rsTemp.Fields("iCash") / 10000
End With
iDataList = 1
rsTemp.MoveNext
iIndex = iIndex + 1
Loop
End If
Case 4
If getSQLString = False Then MsgBox "无数据显示！", vbInformation, "提示：": Exit Sub
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set rsTemp = DBCN.Execute("Select * from " & strCountTab & "")
Set MSChart2.DataSource = rsTemp
With MSChart2
.RowCount = rsTemp.RecordCount
.ColumnCount = 3
.Column = 1
End With
With MSChart2
' .ColumnLabel = "结算票量"
' .Column = 2
.ColumnLabel = "结算票金额"
' .Column = 2
' .ColumnLabel = "结算票修改量数"
.Column = 2
.ColumnLabel = "结算票修改金额"
' .Column = 5
' .ColumnLabel = "结算票作废量数"
.Column = 3
.ColumnLabel = "结算票作废金额"
End With
If rsTemp.EOF = False Then
iDataList = 1
iIndex = 1
rsTemp.MoveFirst
Do Until rsTemp.EOF
With MSChart2
.Row = iIndex
.RowLabel = rsTemp.Fields("Shop_way")
.Column = iDataList
.Data = rsTemp.Fields("iWeight") / 10000
.Column = iDataList + 1
.Data = rsTemp.Fields("iChange") / 10000
.Column = iDataList + 2
.Data = rsTemp.Fields("iCash") / 10000
End With
iDataList = 1
rsTemp.MoveNext
iIndex = iIndex + 1
Loop
End If
End Select
End Select
End Sub
' .Add , , "开票数", 1600
' .Add , , "开票金额", 1600
' .Add , , "开票修改量数", 1600
' .Add , , "开票修金额", 1600
' .Add , , "开票作废量数", 1800
' .Add , , "开票作废金额", 1800
' .Add , , "合计有效量数", 1600
' .Add , , "合计有效金额", 1600
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?