frmphclerkmx.frm

这是用Visual Basic6开发的大型喷绘业务管理系统,数据库采用Access数据库

              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月01日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "12"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "24"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "248"
              i = 2
              MSFlex1.TextArray(i * MSFlex1.Cols) = "姜波"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月02日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "10"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "28"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "348"
              i = 3
              MSFlex1.TextArray(i * MSFlex1.Cols) = "许小静"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月03日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "6"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "34"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "268"
              i = 4
              MSFlex1.TextArray(i * MSFlex1.Cols) = "蔡兵兵"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月04日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "7"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "24"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "188"
              '''计算合计
              For i = 0 To 3
                    HJ(i) = 0
                Next i
                For i = 1 To MSFlex1.Rows - 2
                    HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 2))
                    HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
                    HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
                Next i
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 2) = HJ(0)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(1)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(2)
           End If
           If Trim(Combo1.Text) = "操作员" Then
              MSFlex1.Cols = 8
              MSFlex1.FormatString = "^  操作员 |^      日  期      |^ 喷绘序列 |^ 总面积 |^  幅宽  |^ 原有长度 |^实际用布长度|^ 剩余长度 "
              MSFlex1.Rows = 6
              i = 1
              MSFlex1.TextArray(i * MSFlex1.Cols) = "张力"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月01日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "20310001"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "660"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "20"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "30"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "20"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "10"
              i = 2
              MSFlex1.TextArray(i * MSFlex1.Cols) = "陈蕾"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月02日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "20310002"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "220"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "22"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "10"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "10"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "2"
              i = 3
              MSFlex1.TextArray(i * MSFlex1.Cols) = "许风"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月03日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "20310003"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "280"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "40"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "30"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "20"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "10"
              i = 4
              MSFlex1.TextArray(i * MSFlex1.Cols) = "王小丹"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月04日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "20310004"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "240"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "30"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "20"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "12"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "8"
              ''''''''计算合计''''''
                  For i = 0 To 9
                    HJ(i) = 0
                  Next i
                    For i = 1 To MSFlex1.Rows - 2
                        HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
                        HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
                        HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
                        HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
                    Next i
                    MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
                    MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(0)
                    MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(1)
                    MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(2)
                    MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(3)
           End If
           If Trim(Combo1.Text) = "负责人" Then
              MSFlex1.Cols = 5
              MSFlex1.FormatString = "^  负责人  |^    日  期     |^ 合同数 |^  画面数  |^  平米数   "
              MSFlex1.Rows = 6
              i = 1
              MSFlex1.TextArray(i * MSFlex1.Cols) = "葛亮亮"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月01日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "12"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "24"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "248"
              i = 2
              MSFlex1.TextArray(i * MSFlex1.Cols) = "陈小明"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月02日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "10"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "28"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "348"
              i = 3
              MSFlex1.TextArray(i * MSFlex1.Cols) = "许风"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月03日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "6"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "34"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "268"
              i = 4
              MSFlex1.TextArray(i * MSFlex1.Cols) = "蔡点"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月04日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "7"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "24"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "188"
              '''计算合计
              For i = 0 To 3
                    HJ(i) = 0
                Next i
                For i = 1 To MSFlex1.Rows - 2
                    HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 2))
                    HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
                    HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
                Next i
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 2) = HJ(0)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(1)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(2)
           End If
           '''''''业务员''''''
           If Trim(Combo1.Text) = "业务员" Then
              MSFlex1.Cols = 8
              MSFlex1.FormatString = "^   业务员   |^      日  期      |^ 合同号 |^     客户名称     |^ 总面积 |^应收款额|^已收款额|^未收款额 "
              MSFlex1.Rows = 6
              i = 1
              MSFlex1.TextArray(i * MSFlex1.Cols) = "葛亮亮"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月01日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "13153"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "抚顺天通建筑公司"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "120"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "3600"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "2000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "1600"
              i = 2
              MSFlex1.TextArray(i * MSFlex1.Cols) = "陈小明"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月02日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "13154"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "沈阳华天机床"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "200"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "6000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "5000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "1000"
              i = 3
              MSFlex1.TextArray(i * MSFlex1.Cols) = "许风"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月03日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "13155"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "抚顺百幕电脑公司"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "100"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "3000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "3000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "0"
              i = 4
              MSFlex1.TextArray(i * MSFlex1.Cols) = "蔡点"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月04日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "13156"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "北京十月软件公司"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "110"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "3300"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "3300"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "0"
              '''计算合计
              For i = 0 To 3
                    HJ(i) = 0
                Next i
                For i = 1 To MSFlex1.Rows - 2
                    HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
                    HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
                    HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
                    HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
                    
                Next i
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(0)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(1)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(2)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(3)
           End If
           '''''''
           '''''''签单人''''''
           If Trim(Combo1.Text) = "签单人" Then
              MSFlex1.Cols = 8
              MSFlex1.FormatString = "^   签单人   |^      日  期      |^ 合同号 |^     客户名称     |^ 总面积 |^应收款额|^已收款额|^未收款额 "
              MSFlex1.Rows = 6
              i = 1
              MSFlex1.TextArray(i * MSFlex1.Cols) = "徐长华"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月01日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "13153"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "抚顺天通建筑公司"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "120"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "3600"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "2000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "1600"
              i = 2
              MSFlex1.TextArray(i * MSFlex1.Cols) = "陈丽"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月02日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "13154"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "沈阳华天机床"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "200"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "6000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "5000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "1000"
              i = 3
              MSFlex1.TextArray(i * MSFlex1.Cols) = "谷晓敏"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月03日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "13155"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "抚顺百幕电脑公司"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "100"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "3000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "3000"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "0"
              i = 4
              MSFlex1.TextArray(i * MSFlex1.Cols) = "续连利"
              MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "2002年02月04日"
              MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "13156"
              MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "北京十月软件公司"
              MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "110"
              MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "3300"
              MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "3300"
              MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "0"
              '''计算合计
              For i = 0 To 3
                    HJ(i) = 0
                Next i
                For i = 1 To MSFlex1.Rows - 2
                    HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
                    HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
                    HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
                    HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
                    
                Next i
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(0)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(1)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(2)
                MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(3)
           End If
        End If
        Exit Sub
     End If
End Sub

Private Sub Picture5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture6.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 65
    jframe.rbottom = 29
    jframe.ddrawc Picture5
End Sub

Private Sub Picture6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture5.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 65
    jframe.rbottom = 29
    jframe.ddrawc Picture6
End Sub