frmphjitai.frm

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

      frmPHJiTaiIn.Show
   End If
errmsg:
   If Err.Number <> 0 Then
      JTflagh = 5
      JTPRtableText(0) = "2002年03月10日" ' Trim(result("日期"))
      JTPRtableText(1) = "20310001" 'Trim(result("喷绘序列"))
      JTPRtableText(2) = "360" 'Trim(result("总面积"))
      JTPRtableText(3) = "wa010001" 'Trim(result("布料号"))
      JTPRtableText(4) = "3.00" 'Trim(result("幅宽"))
      JTPRtableText(5) = "20" 'Trim(result("原有长度"))
      JTPRtableText(6) = "15" 'Trim(result("实际用布长度"))
      JTPRtableText(7) = "300" 'Trim(result("实际用布面积"))
      JTPRtableText(8) = "5" 'Trim(result("剩余长度"))
      JTPRtableText(9) = "李红" 'Trim(result("操作员"))
      '''''''
      JTSErows = 2
      For i = 1 To 2
          If i = 1 Then
            JTSEtableText1(i) = "13151a" ' Trim(result("文件号"))
            JTSEtableText2(i) = "7*8" 'Trim(result("画面规格"))
            JTSEtableText3(i) = "李非" 'Trim(result("设计员"))
            JTSEtableText4(i) = "许红" 'Trim(result("负责人"))
          End If
          If i = 2 Then
            JTSEtableText1(i) = "13151b" ' Trim(result("文件号"))
            JTSEtableText2(i) = "7*11" 'Trim(result("画面规格"))
            JTSEtableText3(i) = "李力" 'Trim(result("设计员"))
            JTSEtableText4(i) = "曹红" 'Trim(result("负责人"))
          End If
          
      Next i
      frmPHJiTaiIn.Show
   End If
End Sub

Private Sub Picture1_Click()
    JTflagh = 1
    frmPHJiTaiIn.Show
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 43
    jframe.rbottom = 39
    jframe.ddrawc Picture1
End Sub

Private Sub Picture2_Click()
    On Error GoTo errmsg
     JTflagh = 2
    Dim JTPRtext As String
    If ListView1.ListItems.Count <> 0 Then
      JTPRtext = ListView1.SelectedItem.SubItems(1)
      sql = "select *  from  JTPRtable  where  喷绘序列='" & Trim(JTPRtext) & "'  and   日期='" & Trim(ListView1.SelectedItem.Text) & "'"
      '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(JTPRtext) & "'  and   日期='" & Trim(ListView1.SelectedItem.Text) & "'"
      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
   End If
errmsg:
   If Err.Number <> 0 Then
      JTflagh = 5
      JTPRtableText(0) = "2002年03月10日" ' Trim(result("日期"))
      JTPRtableText(1) = "20310001" 'Trim(result("喷绘序列"))
      JTPRtableText(2) = "360" 'Trim(result("总面积"))
      JTPRtableText(3) = "wa010001" 'Trim(result("布料号"))
      JTPRtableText(4) = "3.00" 'Trim(result("幅宽"))
      JTPRtableText(5) = "20" 'Trim(result("原有长度"))
      JTPRtableText(6) = "15" 'Trim(result("实际用布长度"))
      JTPRtableText(7) = "300" 'Trim(result("实际用布面积"))
      JTPRtableText(8) = "5" 'Trim(result("剩余长度"))
      JTPRtableText(9) = "李红" 'Trim(result("操作员"))
      '''''''
      JTSErows = 2
      For i = 1 To 2
          If i = 1 Then
            JTSEtableText1(i) = "13151a" ' Trim(result("文件号"))
            JTSEtableText2(i) = "7*8" 'Trim(result("画面规格"))
            JTSEtableText3(i) = "李非" 'Trim(result("设计员"))
            JTSEtableText4(i) = "许红" 'Trim(result("负责人"))
          End If
          If i = 2 Then
            JTSEtableText1(i) = "13151b" ' Trim(result("文件号"))
            JTSEtableText2(i) = "7*11" 'Trim(result("画面规格"))
            JTSEtableText3(i) = "李力" 'Trim(result("设计员"))
            JTSEtableText4(i) = "曹红" 'Trim(result("负责人"))
          End If
          
      Next i
      frmPHJiTaiIn.Show
   End If
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 43
    jframe.rbottom = 39
    jframe.ddrawc Picture2
End Sub

Private Sub Picture3_Click()
     On Error GoTo errmsg
     Dim datel As String
     Dim HT As String
     datel = ListView1.SelectedItem.Text
     HT = ListView1.SelectedItem.SubItems(1)
     If ListView1.ListItems.Count <> 0 Then
        sql = "select *  from YWSEtable " ' where   文件序列='" & Trim(ListView1.SelectedItem.SubItems(1)) & "'"
         Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
        If result.RowCount <> 0 Then
           MsgBox "该资料已经在往来业务中使用,不能删除!!"
        Else
            If MsgBox("确定是否删除?", 36, "删除!") = 6 Then
               
              sql = "delete    from  JTPRtable  where  日期='" & Trim(ListView1.SelectedItem.Text) & "' and  喷绘序列='" & Trim(ListView1.SelectedItem.SubItems(1))
              Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
              sql = "delete  from  JTSEtable  where  日期='" & Trim(datel) & "'  and  喷绘序列='" & Trim(HT) & "'"
              Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
            End If
            ''''''''
            'ListView1.Refresh
             ''''''''''显示数据'''''''
           ''''''''''显示数据'''''''
             sql = "select *  from  JTPRtable where  喷绘序列='" & Trim(GoodsTree) & "'"
            Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
            ListView1.ListItems.Clear
            If result.RowCount <> 0 Then
               Do While Not result.EOF()
                   Set itm = frmPHJiTai.ListView1.ListItems.Add(, , result("日期"))
                   itm.SubItems(1) = Trim(result("喷绘序列"))
                   itm.SubItems(2) = Trim(result("布料号"))
                   itm.SubItems(3) = Trim(result("原有长度"))
                   itm.SubItems(4) = Trim(result("实际用布长度"))
                   itm.SubItems(5) = Trim(result("剩余长度"))
                   
                   result.MoveNext
               Loop
           End If
        End If
    End If
errmsg:
    If Err.Number <> 0 Then
       If ListView1.ListItems.Count <> 0 Then
          MsgBox "该资料在业务往来中使用，不能删除..."
       End If
    End If
End Sub

Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Picture2.Cls
    Picture1.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 43
    jframe.rbottom = 39
    jframe.ddrawc Picture3
End Sub

Private Sub Picture4_Click()
    MsgBox "本版本为试用版,无数据查询功能..."
End Sub

Private Sub Picture4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Picture2.Cls
    Picture3.Cls
    Picture1.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 43
    jframe.rbottom = 39
    jframe.ddrawc Picture4
End Sub

Private Sub Picture5_Click()
   MsgBox "本版本为试用版,无数据打印功能..."
End Sub

Private Sub Picture5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture1.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 43
    jframe.rbottom = 39
    jframe.ddrawc Picture5
End Sub

Private Sub Picture6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture1.Cls
    Picture7.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 43
    jframe.rbottom = 39
    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)
      Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture1.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 43
    jframe.rbottom = 39
    jframe.ddrawc Picture7
End Sub

Private Sub TreeView1_DblClick()
    On Error GoTo errmsg
    Dim hrecord As Integer
    sql = "select *  from  PHserial where  级别='" & Trim(GoodsTree) & "'"
    Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
    Dim itm As ListItem
    If result.RowCount <> 0 Then
       If TreeView1.SelectedItem.Children = 0 Then
            Do While Not result.EOF()
               Set TreeView1.ImageList = ImageList1
               Set TreeSub1 = TreeView1.Nodes.Add(TreeView1.SelectedItem.Index, tvwChild, "fff" & Str(i), result("序列号"))
               TreeSub1.Image = 1
               TreeSub1.EnsureVisible
               result.MoveNext
               i = i + 1
            Loop
        End If
    End If
    ''''''''''显示数据'''''''
     sql = "select *  from  JTPRtable where  喷绘序列='" & Trim(GoodsTree) & "'"
    Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
    ListView1.ListItems.Clear
    If result.RowCount <> 0 Then
       Do While Not result.EOF()
           Set itm = frmPHJiTai.ListView1.ListItems.Add(, , result("日期"))
           itm.SubItems(1) = Trim(result("喷绘序列"))
           itm.SubItems(2) = Trim(result("布料号"))
           itm.SubItems(3) = Trim(result("原有长度"))
           itm.SubItems(4) = Trim(result("实际用布长度"))
           itm.SubItems(5) = Trim(result("剩余长度"))
           
           result.MoveNext
       Loop
    End If
errmsg:
    If Err.Number <> 0 Then
        Dim alphal As String
        If TreeView1.SelectedItem.Children = 0 Then
           For i = 0 To 1
               If i = 0 Then
                  alphal = "13151a"
               End If
               If i = 1 Then
                  alphal = "13151b"
               End If
               Set TreeView1.ImageList = ImageList1
               Set TreeSub1 = TreeView1.Nodes.Add(TreeView1.SelectedItem.Index, tvwChild, "fff" & Str(i), Trim(alphal))
               TreeSub1.Image = 1
               TreeSub1.EnsureVisible
           Next i
           ''''''''
           ListView1.ListItems.Clear
                      
           Set itm = frmPHJiTai.ListView1.ListItems.Add(, , "2002年03月10日")
           itm.SubItems(1) = "20310001"
           itm.SubItems(2) = "wa010001"
           itm.SubItems(3) = "200"
           itm.SubItems(4) = "120" 'Trim(result("已收款额"))
           itm.SubItems(5) = "80" 'Trim(result("未收款额"))
           
        End If
    End If
End Sub

Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
         If TreeView1.SelectedItem.Text = "喷绘序列" Then
        If Button = 2 Then
           PopupMenu frmPHmain.mnuPH
        End If
    Else
        If TreeView1.SelectedItem.Children = 0 Then
            frmPHmain.mnuaddserial.Enabled = True
            If Button = 2 Then
               PopupMenu frmPHmain.mnuPH
            End If
        Else
            frmPHmain.mnuaddserial.Enabled = True
            If Button = 2 Then
               PopupMenu frmPHmain.mnuPH
            End If
        End If
    End If
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    GoodsTree = Node.Text
End Sub