📄 frmphdatemx.frm

📁 这是用Visual Basic6开发的大型喷绘业务管理系统,数据库采用Access数据库
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
Private Sub Mask2_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub

Private Sub Picture5_Click()
    On Error GoTo errmsg
    Dim datel As String
    Dim datel1 As String
    ''''''记录信息的变量,根据客户名称查询YWPRtable得到合同号'''
    Dim HTongNumber(12) As String
    datel = Mid(Mask1.Text, 1, 4) & "年" & Trim(Mid(Mask1.Text, 5, 2)) & "月" & Trim(Mid(Mask1.Text, 7, 2)) & "日"
    datel1 = Mid(Mask2.Text, 1, 4) & "年" & Trim(Mid(Mask2.Text, 5, 2)) & "月" & Trim(Mid(Mask2.Text, 7, 2)) & "日"
    '''''''条件1‘’‘’‘
    If Mask1.Text <> "" And Mask2.Text = "" Then
        sql = "select  *  from  YWPRtable  where  日期='" & Trim(datel) & "'" '  and  客户名称='" & Trim(Combo1.Text) & "'"
       Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
       If result.RowCount <> 0 Then
          result.MoveLast
          MSFlex1.Rows = result.RowCount + 2
          result.MoveFirst
       End If
       If result.RowCount <> 0 Then
            i = 1
            Do While Not result.EOF()
               MSFlex1.TextArray(i * MSFlex1.Cols) = Trim(result("日期"))
               result.MoveNext
               i = i + 1
            Loop
       End If
       ''''''
         For i = 1 To MSFlex1.Rows - 2
            sql = "select  *  from  YWPRtable  where  日期='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols)) & "'" '  and  客户名称='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 1)) & "'  and  合同号='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 2)) & "'"
            Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
            If result.RowCount <> 0 Then
               result.MoveLast
               Zhms(i) = result.RowCount
               result.MoveFirst
            End If
            If result.RowCount <> 0 Then
               MSFlex1.TextArray(i * MSFlex1.Cols + 1) = result("总面积")
               MSFlex1.TextArray(i * MSFlex1.Cols + 2) = result("应收款额")
               MSFlex1.TextArray(i * MSFlex1.Cols + 3) = result("已收款额")
               MSFlex1.TextArray(i * MSFlex1.Cols + 4) = result("未收款额")
               MSFlex1.TextArray(i * MSFlex1.Cols + 5) = Zhms(i)
            End If
            '''''''
              '''''根据合同号查询JTSEtable得到喷绘序列''''
            sql = "select *  from  JTSEtable  where  substring(文件号,1,len(文件号)-1)='" & Trim(HTongNumber(0)) & "'"
            Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
            If result.RowCount <> 0 Then
               'MsgBox result("喷绘序列")
               result.MoveLast
               YWhms(i) = result.RowCount
               result.MoveFirst
            End If
            ''''''''''
            MSFlex1.TextArray(i * MSFlex1.Cols + 6) = YWhms(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 7) = Zhms(i) - YWhms(i)
        Next i
        '''''''计算合计''''''''
        For i = 0 To 7
            HJ(i) = 0
        Next i
        For i = 1 To MSFlex1.Rows - 2
            HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 1))
            HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 2))
            HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
            HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
            HJ(4) = HJ(4) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
            HJ(5) = HJ(5) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
            HJ(6) = HJ(6) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
        Next i
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 1) = HJ(0)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 2) = HJ(1)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(2)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(3)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(4)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(5)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(6)
    End If
    ''''''''''''条件2''''
    If Mask1.Text <> "" And Mask2.Text <> "" Then
        sql = "select  *  from  YWPRtable  where  日期>='" & Trim(datel) & "'  and  日期<='" & Trim(datel1) & "'"
       Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
       If result.RowCount <> 0 Then
          result.MoveLast
          MSFlex1.Rows = result.RowCount + 2
          result.MoveFirst
       End If
       If result.RowCount <> 0 Then
            i = 1
            Do While Not result.EOF()
               MSFlex1.TextArray(i * MSFlex1.Cols) = Trim(result("日期"))
               result.MoveNext
               i = i + 1
            Loop
       End If
       ''''''
         For i = 1 To MSFlex1.Rows - 2
            sql = "select  *  from  YWPRtable  where  日期='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols)) & "'" '  and  客户名称='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 1)) & "'  and  合同号='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 2)) & "'"
            Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
            If result.RowCount <> 0 Then
               result.MoveLast
               Zhms(i) = result.RowCount
               result.MoveFirst
            End If
            If result.RowCount <> 0 Then
               MSFlex1.TextArray(i * MSFlex1.Cols + 1) = result("总面积")
               MSFlex1.TextArray(i * MSFlex1.Cols + 2) = result("应收款额")
               MSFlex1.TextArray(i * MSFlex1.Cols + 3) = result("已收款额")
               MSFlex1.TextArray(i * MSFlex1.Cols + 4) = result("未收款额")
               MSFlex1.TextArray(i * MSFlex1.Cols + 5) = Zhms(i)
            End If
            '''''''
              '''''根据合同号查询JTSEtable得到喷绘序列''''
            sql = "select *  from  JTSEtable  where  substring(文件号,1,len(文件号)-1)='" & Trim(HTongNumber(0)) & "'"
            Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
            If result.RowCount <> 0 Then
               'MsgBox result("喷绘序列")
               result.MoveLast
               YWhms(i) = result.RowCount
               result.MoveFirst
            End If
            ''''''''''
            MSFlex1.TextArray(i * MSFlex1.Cols + 6) = YWhms(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 7) = Zhms(i) - YWhms(i)
        Next i
        ''''''计算合计''''''''
        For i = 0 To 7
            HJ(i) = 0
        Next i
        For i = 1 To MSFlex1.Rows - 2
            HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 1))
            HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 2))
            HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
            HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
            HJ(4) = HJ(4) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
            HJ(5) = HJ(5) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
            HJ(6) = HJ(6) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
        Next i
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 1) = HJ(0)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 2) = HJ(1)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(2)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(3)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(4)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(5)
        MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(6)
    End If
errmsg:
    If Err.Number <> 0 Then
       If Mask1.Text <> "" And Mask2.Text = "" Then
          MSFlex1.Rows = 3
          MSFlex1.TextArray(1 * MSFlex1.Cols) = Trim(datel)
          MSFlex1.TextArray(1 * MSFlex1.Cols + 1) = "120"
          MSFlex1.TextArray(1 * MSFlex1.Cols + 2) = "1200"
          MSFlex1.TextArray(1 * MSFlex1.Cols + 3) = "900"
          MSFlex1.TextArray(1 * MSFlex1.Cols + 4) = "300"
          MSFlex1.TextArray(1 * MSFlex1.Cols + 5) = "1"
          MSFlex1.TextArray(1 * MSFlex1.Cols + 6) = "1"
          MSFlex1.TextArray(1 * MSFlex1.Cols + 7) = "0"
          ''''''计算合计'''''
          For i = 0 To 7
            HJ(i) = 0
          Next i
            For i = 1 To MSFlex1.Rows - 2
                HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 1))
                HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 2))
                HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
                HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
                HJ(4) = HJ(4) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
                HJ(5) = HJ(5) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
                HJ(6) = HJ(6) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
            Next i
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 1) = HJ(0)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 2) = HJ(1)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(2)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(3)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(4)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(5)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(6)
       End If
       '''''''条件2''
       If Mask1.Text <> "" And Mask2.Text <> "" Then
          MSFlex1.Rows = DateDiff("d", datel, datel1) + 3
          'MsgBox MSFlex1.Rows
          For i = 1 To MSFlex1.Rows - 2
                MSFlex1.TextArray(i * MSFlex1.Cols) = DateAdd("d", i - 1, datel)
                If i = 1 Then
                   MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "120"
                ElseIf i = 2 Then
                   MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "220"
                Else
                   MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "100"
                End If
                If i = 1 Then
                   MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "1200"
                ElseIf i = 2 Then
                   MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "2200"
                Else
                   MSFlex1.TextArray(i * MSFlex1.Cols + 2) = "1000"
                End If
                MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "900"
                MSFlex1.TextArray(i * MSFlex1.Cols + 4) = Val(MSFlex1.TextArray(i * MSFlex1.Cols + 2)) - Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
                MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "1"
                MSFlex1.TextArray(i * MSFlex1.Cols + 6) = "1"
                MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "0"
          Next i
          ''''''计算合计'''''
          For i = 0 To 7
            HJ(i) = 0
          Next i
            For i = 1 To MSFlex1.Rows - 2
                HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 1))
                HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 2))
                HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
                HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
                HJ(4) = HJ(4) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
                HJ(5) = HJ(5) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
                HJ(6) = HJ(6) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
            Next i
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 1) = HJ(0)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 2) = HJ(1)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(2)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(3)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(4)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(5)
            MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(6)
       End If
    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
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -