📄 frmphclothmxcx.frm

📁 这是用Visual Basic6开发的大型喷绘业务管理系统,数据库采用Access数据库
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
    jframe.rright = 659
    jframe.rbottom = 420
    jframe.ddraw frmPHClothMXCX
End Sub

Private Sub Image1_Click()
    Unload Me
End Sub

Private Sub Image2_Click()
    frmPHClothMXCX.WindowState = 1
End Sub

Private Sub MSFlex1_DblClick()
    On Error GoTo errmsg
    JTflagh = 3
    Dim JTPRtext As String
      'JTPRtext = ListView1.SelectedItem.SubItems(1)
      sql = "select *  from  JTPRtable  where  喷绘序列='" & Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 1)) & "'  and   日期='" & Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols)) & "'"
      'MsgBox sql
      Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
      If result.RowCount <> 0 Then
         JTPRtableText(0) = Trim(result("日期"))
         JTPRtableText(1) = Trim(result("喷绘序列"))
         JTPRtableText(2) = Trim(result("总面积"))
         JTPRtableText(3) = Trim(result("布料号"))
         JTPRtableText(4) = Trim(result("幅宽"))
         JTPRtableText(5) = Trim(result("原有长度"))
         JTPRtableText(6) = Trim(result("实际用布长度"))
         JTPRtableText(7) = Trim(result("实际用布面积"))
         JTPRtableText(8) = Trim(result("剩余长度"))
         JTPRtableText(9) = Trim(result("操作员"))
         
      End If
      sql = "select  *  from  JTSEtable  where  喷绘序列='" & Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 1)) & "'  and   日期='" & Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols)) & "'"
      Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
      If result.RowCount <> 0 Then
         result.MoveLast
         JTSErows = result.RowCount
         result.MoveFirst
      End If
      i = 1
      If result.RowCount <> 0 Then
         Do While Not result.EOF()
             JTSEtableText1(i) = Trim(result("文件号"))
             JTSEtableText2(i) = Trim(result("画面规格"))
             JTSEtableText3(i) = Trim(result("设计员"))
             JTSEtableText4(i) = Trim(result("负责人"))
             result.MoveNext
             i = i + 1
         Loop
      End If
      frmPHJiTaiIn.Show
errmsg:
      If Err.Number <> 0 Then
         'MsgBox "错误号:" & Err.Number & "    描述--" & Err.Source & Err.Description
            
            JTPRtableText(0) = "2002年03月11日"
            JTPRtableText(1) = "20310001" 'Trim(result("喷绘序列"))
            JTPRtableText(2) = "68" 'Trim(result("总面积"))
            JTPRtableText(3) = "wa010001" 'Trim(result("布料号"))
            JTPRtableText(4) = "21" 'Trim(result("幅宽"))
            JTPRtableText(5) = "12" 'Trim(result("原有长度"))
            JTPRtableText(6) = "12" 'Trim(result("实际用布长度"))
            JTPRtableText(7) = "252" 'Trim(result("实际用布面积"))
            JTPRtableText(8) = "0" 'Trim(result("剩余长度"))
            JTPRtableText(9) = "" 'Trim(result("操作员"))
            '''
            JTSErows = 3
            i = 1
             JTSEtableText1(i) = "13151a"
             JTSEtableText2(i) = "7*8"
             JTSEtableText3(i) = "fffff"
             JTSEtableText4(i) = "33ewee"
              i = 2
             JTSEtableText1(i) = "13151b"
             JTSEtableText2(i) = "3*4"
             JTSEtableText3(i) = "wwwww"
             JTSEtableText4(i) = "rddddd"
             frmPHJiTaiIn.Show
      End If
      ''''''''
     
      
End Sub

Private Sub Picture5_Click()
    On Error GoTo errmsg
    If Text1.Text <> "" Then
       sql = "select  *  from   JTPRtable  where  布料号 like '%" & Trim(Text1.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("日期"))
             MSFlex1.TextArray(i * MSFlex1.Cols + 1) = Trim(result("喷绘序列"))
             MSFlex1.TextArray(i * MSFlex1.Cols + 2) = result("总面积")
             MSFlex1.TextArray(i * MSFlex1.Cols + 3) = Trim(result("幅宽"))
             MSFlex1.TextArray(i * MSFlex1.Cols + 4) = result("原有长度")
             MSFlex1.TextArray(i * MSFlex1.Cols + 5) = result("实际用布长度")
             MSFlex1.TextArray(i * MSFlex1.Cols + 6) = result("剩余长度")
             MSFlex1.TextArray(i * MSFlex1.Cols + 7) = Trim(result("操作员"))
             result.MoveNext
             i = i + 1
          Loop
       End If
       '''''''''计算合计 ''''''''''
       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 + 2))
           HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
           HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
           HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
       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 + 4) = HJ(1)
       MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(2)
       MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(3)
    End If
errmsg:
     Dim er As rdoError
    'For Each er In rdoErrors
    '    MsgBox er.Number & ":" & er.Source & "..." & er.Description
    'Next er
    If Err.Number <> 0 Then
      ' MsgBox "错误号:" & Err.Number & "     " & Err.Source & "和" & Err.Description, vbExclamation
          MSFlex1.Rows = 4
          '''''(1)
          i = 1
          MSFlex1.TextArray(i * MSFlex1.Cols) = "2002年03月11日" 'Trim(result("日期"))
          MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "203250001" ' Trim(result("喷绘序列"))
          MSFlex1.TextArray(i * MSFlex1.Cols + 2) = 60 'result("总面积")
          MSFlex1.TextArray(i * MSFlex1.Cols + 3) = 3 'Trim(result("幅宽"))
          MSFlex1.TextArray(i * MSFlex1.Cols + 4) = 20 'result("原有长度")
          MSFlex1.TextArray(i * MSFlex1.Cols + 5) = 10 'result("实际用布长度")
          MSFlex1.TextArray(i * MSFlex1.Cols + 6) = 10 'result("剩余长度")
          MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "李红" 'Trim(result("操作员"))
          ''''''(2)
           i = 2
          MSFlex1.TextArray(i * MSFlex1.Cols) = "2002年03月12日" 'Trim(result("日期"))
          MSFlex1.TextArray(i * MSFlex1.Cols + 1) = "203250002" ' Trim(result("喷绘序列"))
          MSFlex1.TextArray(i * MSFlex1.Cols + 2) = 90 'result("总面积")
          MSFlex1.TextArray(i * MSFlex1.Cols + 3) = 5 'Trim(result("幅宽"))
          MSFlex1.TextArray(i * MSFlex1.Cols + 4) = 18 'result("原有长度")
          MSFlex1.TextArray(i * MSFlex1.Cols + 5) = 10 'result("实际用布长度")
          MSFlex1.TextArray(i * MSFlex1.Cols + 6) = 8 'result("剩余长度")
          MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "张亚力" 'Trim(result("操作员"))
           ''''计算合计 ''''
           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 + 2))
               HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
               HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
               HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
           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 + 4) = HJ(1)
           MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(2)
           MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(3)
        Exit Sub
    End If
'      '''''''显示演示数据''''''''

End Sub

Private Sub Picture5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Picture6.Cls
     Picture7.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
     Picture7.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 65
    jframe.rbottom = 29
    jframe.ddrawc Picture6
End Sub

Private Sub Picture7_Click()
    Unload Me
End Sub

Private Sub Picture7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Picture6.Cls
     Picture5.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 65
    jframe.rbottom = 29
    jframe.ddrawc Picture7
End Sub
上一页 12
⌨️ 快捷键说明

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