frmphcustom.frm

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

    jframe.rbottom = 97
    jframe.ddraw frmPHcustom
    ''''''''
    jframe.danum = 3
    jframe.rtop = 102
    jframe.rleft = 35
    jframe.rright = 539
    jframe.rbottom = 390
    jframe.ddraw frmPHcustom
End Sub

Private Sub Image1_Click()
    Unload Me
End Sub

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

Private Sub ListView1_DblClick()
    On Error GoTo errmsg
     CustomInFlag = 2
    Dim Customtext As String
    If ListView1.ListItems.Count <> 0 Then
      Customtext = ListView1.SelectedItem.Text
      sql = "select *  from  customtable  where  客户类别='" & Trim(Customtext) & "'  and   客户名称='" & Trim(ListView1.SelectedItem.SubItems(1)) & "'"
      Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
      If result.RowCount <> 0 Then
         CUSTOMSelectText(0) = Trim(result("客户类别"))
         CUSTOMSelectText(1) = Trim(result("客户名称"))
         CUSTOMSelectText(2) = Trim(result("联系人"))
         CUSTOMSelectText(3) = Trim(result("联系电话"))
         CUSTOMSelectText(4) = Trim(result("传真"))
         CUSTOMSelectText(5) = Trim(result("地址"))
         CUSTOMSelectText(6) = Trim(result("电子邮件"))
         CUSTOMSelectText(7) = Trim(result("网址"))
         CUSTOMSelectText(8) = Trim(result("银行帐号"))
         
         
      End If
      frmPHcustomIn.Show
   End If
errmsg:
   If Err.Number <> 0 Then
      CUSTOMSelectText(0) = "电脑培训学校" 'Trim(result("客户类别"))
         CUSTOMSelectText(1) = "北京鸿宇计算机学校" ' Trim(result("客户名称"))
         CUSTOMSelectText(2) = "张小姐" 'Trim(result("联系人"))
         CUSTOMSelectText(3) = "2546334" 'Trim(result("联系电话"))
         CUSTOMSelectText(4) = "2546334" 'Trim(result("传真"))
         CUSTOMSelectText(5) = "北京站台地下室" 'Trim(result("地址"))
         CUSTOMSelectText(6) = "HY2002&sohu.com.cn" 'Trim(result("电子邮件"))
         CUSTOMSelectText(7) = "http:/www.sohu.net" 'Trim(result("网址"))
         CUSTOMSelectText(8) = "133123245445" 'Trim(result("银行帐号"))
         frmPHcustomIn.Show
   End If
End Sub

Private Sub Picture1_Click()
    CustomInFlag = 1
    frmPHcustomIn.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
    CustomInFlag = 2
    Dim Customtext As String
    If ListView1.ListItems.Count <> 0 Then
      Customtext = ListView1.SelectedItem.Text
      sql = "select *  from  customtable  where  客户类别='" & Trim(Customtext) & "'  and   客户名称='" & Trim(ListView1.SelectedItem.SubItems(1)) & "'"
      'MsgBox sql
      Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
      If result.RowCount <> 0 Then
         CUSTOMSelectText(0) = Trim(result("客户类别"))
         CUSTOMSelectText(1) = Trim(result("客户名称"))
         CUSTOMSelectText(2) = Trim(result("联系人"))
         CUSTOMSelectText(3) = Trim(result("联系电话"))
         CUSTOMSelectText(4) = Trim(result("传真"))
         CUSTOMSelectText(5) = Trim(result("地址"))
         CUSTOMSelectText(6) = Trim(result("电子邮件"))
         CUSTOMSelectText(7) = Trim(result("网址"))
         CUSTOMSelectText(8) = Trim(result("银行帐号"))
         
         
      End If
      frmPHcustomIn.Show
   End If
errmsg:
   If Err.Number <> 0 Then
       CUSTOMSelectText(0) = "电脑培训学校"
        CUSTOMSelectText(1) = "北京鸿宇计算机培训" ' Trim(result("客户名称"))
        CUSTOMSelectText(2) = "王小姐" 'Trim(result("联系人"))
        CUSTOMSelectText(3) = "01022630451" 'Trim(result("联系电话"))
        CUSTOMSelectText(4) = "01022630451" 'Trim(result("传真"))
        CUSTOMSelectText(5) = "抚顺西三街" 'Trim(result("电子邮件"))
        CUSTOMSelectText(6) = "[e-mail]" 'Trim(result("联系电话"))
        CUSTOMSelectText(7) = "http:/www.Tianhubeer.com.cn" 'Trim(result("传真"))
        CUSTOMSelectText(8) = "2323232323232" 'Trim(result("电子邮件"))
        
        '''
        CUSTOMSelectText(0) = "汽车修配厂"
        CUSTOMSelectText(1) = "北京鸿宇汽配厂" ' Trim(result("客户名称"))
        CUSTOMSelectText(2) = "李小姐" 'Trim(result("联系人"))
        CUSTOMSelectText(3) = "01025630451" 'Trim(result("联系电话"))
        CUSTOMSelectText(4) = "01025630451" 'Trim(result("传真"))
        CUSTOMSelectText(5) = "北京王福井大街" 'Trim(result("电子邮件"))
        CUSTOMSelectText(6) = "[e-mail]" 'Trim(result("联系电话"))
        CUSTOMSelectText(7) = "http:/www.BeiJingSY.com.cn" 'Trim(result("传真"))
        CUSTOMSelectText(8) = "3434343434344" 'Trim(result("电子邮件"))
        frmPHcustomIn.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 Customtext As String
    If ListView1.ListItems.Count <> 0 Then
         Customtext = ListView1.SelectedItem.Text
         sql = "select *  from  YWtable  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  customtable  where  客户类别='" & Trim(Customtext) & "' and  客户名称='" & Trim(ListView1.SelectedItem.SubItems(1)) & "'"
                Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
            End If
            ''''''''
           sql = "select  *  from  customtable" '  where  客户类别='" & Trim(Combo1.Text) & "'"
           Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
            frmPHcustom.ListView1.ListItems.Clear
            If result.RowCount <> 0 Then
               Do While Not result.EOF()
                    Set itm = frmPHcustom.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
       MsgBox "该资料已经在往来业务中使用,不能删除!!"
    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