frmphywin.frm

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

    End If
End Sub

Private Sub MSFlex1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture7.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture2.Cls
    Picture8.Cls
    Picture9.Cls
End Sub

Private Sub Picture2_Click()
    YWFlagh = 1
    jframe.danum = 2
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture2
   frmPHywin1.Show 1
End Sub

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

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

Private Sub Picture4_Click()
    If MSFlex1.TextArray(1 * MSFlex1.Cols + 1) <> "" Then
       If MsgBox("确定是否删除！！！", , 36, "删除？") = 6 Then
          sql = "delete   from  YWtable   where   合同号='" & Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols)) & "'  and  文件序列='" & Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 1)) & "'"
          MsgBox sql
          Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
          MsgBox "本记录已经删除！！"
       End If
    Else
       MsgBox "没有选择要删除的记录 "
    End If
End Sub

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

Private Sub Picture5_Click()
    YWFlagh = 2
    jframe.danum = 2
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture5
End Sub

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

Private Sub Picture6_Click()
   Unload Me
   'End
End Sub

Private Sub Picture6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture2.Cls
    Picture7.Cls
    Picture8.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture6
End Sub

Private Sub Picture7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture2.Cls
    Picture8.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture7
End Sub

Private Sub Picture8_Click()
   If MSFlex1.TextArray(1 * MSFlex1.Cols + 1) <> "" Then
        If MsgBox("确定是否存盘？？", 36, "存盘！") = 6 Then
           For i = 1 To MSFlex1.Rows - 2
               sql = "insert into  YWtable(合同号,文件序列,画面规格,面积,单价,客户名称,应收款额,已收款额,未收款额,业务员,签单人,欠款审核,日期) values('" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols)) & "','" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 1)) & "','" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 2)) & "'," & Val(Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 3))) & "," & Val(Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 4))) & ",'" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 5)) & "'," & Val(Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 6))) & "," & Val(Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 7))) & "," & Val(Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 8))) & ",'" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 9)) & "','" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 10)) & "','" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 11)) & "','" & Trim(date1.Value) & "')"
               Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
               MsgBox "存盘结束！"
           Next i
           
        End If
   Else
       MsgBox "数据不完整????"
   End If
End Sub

Private Sub Picture8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    Picture2.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture8
End Sub

Private Sub Picture9_Click()
   sql = "select *  from  YWtable  where  日期='" & Trim(date1.Value) & "'"
   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) = Trim(result("画面规格"))
         MSFlex1.TextArray(i * MSFlex1.Cols + 3) = Trim(result("面积"))
         MSFlex1.TextArray(i * MSFlex1.Cols + 4) = Trim(result("单价"))
         MSFlex1.TextArray(i * MSFlex1.Cols + 5) = Trim(result("客户名称"))
         MSFlex1.TextArray(i * MSFlex1.Cols + 6) = Trim(result("应收款额"))
         MSFlex1.TextArray(i * MSFlex1.Cols + 7) = Trim(result("已收款额"))
         MSFlex1.TextArray(i * MSFlex1.Cols + 8) = Trim(result("未收款额"))
         MSFlex1.TextArray(i * MSFlex1.Cols + 9) = Trim(result("业务员"))
         MSFlex1.TextArray(i * MSFlex1.Cols + 10) = Trim(result("签单人"))
         MSFlex1.TextArray(i * MSFlex1.Cols + 11) = Trim(result("欠款审核"))
         result.MoveNext
         i = i + 1
      Loop
   End If
End Sub

Private Sub Picture9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    Picture8.Cls
    Picture2.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture9
End Sub

Private Sub Text2_Change()
   MSFlex1.Text = text2.Text
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'   If KeyAscii = 13 Then
'      If MSFlex1.Col = 13 Then
'         MSFlex1.Rows = MSFlex1.Rows + 1
'      End If
'      If (MSFlex1.Col < 13 And MSFlex1.Col = 11) Then
'            MSFlex1.Col = MSFlex1.Col + 1
'            If MSFlex1.Col = 3 Then
'               Dim point As Integer
'               Dim width
'               Dim height
'               Dim hstring As String
'               Dim hpoint As Integer
'               point = InStr(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 2), "*")
'               width = Format(Mid(Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 2)), 1, point - 1), "fixed")
'               hstring = Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 2))
'               hpoint = Len(Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 2))) - point
'               height = Format((Mid(hstring, point + 1, hpoint)), "fixed")
'               MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 2) = width & "*" & height
'               ''''''''
'               MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 3) = Format((width * height), "fixed")
'            End If
'            If MSFlex1.Col = 5 Then
'               MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 4) = Format((MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 4)), "fixed")
'            End If
'            If MSFlex1.Col = 8 Then
'               MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 8) = Val(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 3)) * Val(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 4))
'            End If
'            If MSFlex1.Col = 9 Then
'               MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 8) = Format((MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 8)), "fixed")
'            End If
'            If MSFlex1.Col = 10 Then
'               MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 9) = Format((MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 9)), "fixed")
'               MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 10) = Val(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 8)) - Val(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 9))
'            End If
'            If MSFlex1.Col = 11 Then
'               MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 10) = Format((MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols + 10)), "fixed")
'            End If
'
'            text2.Visible = True
'            text2.Top = MSFlex1.CellTop + MSFlex1.Top
'            text2.Left = MSFlex1.CellLeft + 120
'            text2.width = MSFlex1.CellWidth
'            text2.height = MSFlex1.CellHeight
'            text2.SetFocus
'            text2.Text = MSFlex1.Text
'      End If
'   End If
End Sub