客户基本资料.frm

从网上搜集的快递管理软件VB源码,还未仔细研究.

Case 0, 1
    Call Set_State(True, True, True, False, False)
    Label2.Caption = "客户基本资料[添加客户资料]"
    Call ClearText(False)
    OP_Flag = "add"
End Select
End Sub

Private Sub CMD_IMG2_Click(Index As Integer)
Select Case Index
Case 0, 1
    Call Set_State(True, True, True, False, False)
    Label2.Caption = "客户基本资料[修改客户资料]"
    For i = 0 To 6
        Text1(i).locked = False
    Next
    ImageCombo1.locked = False
    Combo1.locked = False
    OP_Flag = "modify"
End Select
End Sub


Private Sub CMD_IMG1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0, 1
CMD_IMG1(Index).BorderStyle = 1
End Select
End Sub

Private Sub CMD_IMG1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG1(Index).BorderStyle = 0
End Sub

Private Sub CMD_IMG2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0, 1
CMD_IMG2(Index).BorderStyle = 1
End Select
End Sub
Private Sub CMD_IMG2_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG2(Index).BorderStyle = 0
End Sub

Private Sub CMD_IMG3_Click(Index As Integer)
Select Case Index
    Case 0, 1
    ret = MsgBox("客户是：" & Current_Name & vbCrLf & "要删除吗？", vbInformation + vbYesNo, "删除提示")
    If ret = vbYes Then
        sqltext = "delete from 客户资料 where 客户ID='" & Current_ID & "'"
        Set rs = ExecuteSQL(sqltext, MsgString)
        Call ShowTreeView
        Call Set_State(False, True, True, True, True)
        Call ClearText(True)
    Else
        Exit Sub
    End If
End Select
End Sub

Private Sub CMD_IMG3_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0, 1
CMD_IMG3(Index).BorderStyle = 1
End Select
End Sub
Private Sub CMD_IMG3_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG3(Index).BorderStyle = 0
End Sub


Private Sub CMD_IMG4_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0, 1
CMD_IMG4(Index).BorderStyle = 1
End Select
End Sub
Private Sub CMD_IMG4_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG4(Index).BorderStyle = 0
End Sub

Private Sub CMD_IMG5_Click(Index As Integer) '确定操作
Dim Nd As Node
Dim NewID As String

If OP_Flag = "add" Then
    Select Case Index
        Case 0, 1
            If Combo1.Text <> "" And Text1(0) <> "" And Text1(2) <> "" And Text1(4) <> "" Then
                If Text1(3) = "" And Text1(5) & Text1(6) = "" Then
                    MsgBox "联系电话和手机必需要有一个有效", vbInformation, "提示"
                    Text1(5).SetFocus
                    Exit Sub
                End If
            Else
                MsgBox "数据不完整,请重新输入", vbCritical, "错误提示"
                Exit Sub
            End If
            If Val(MaxID) < 100 Then
                MaxID = "1000"
            End If
            NewID = Trim(Str(Val(MaxID) + 1))
            Select Case ImageCombo1.SelectedItem
                Case ImageCombo1.ComboItems.Item(3)
                    sex = 1
                Case ImageCombo1.ComboItems.Item(1)
                    sex = 1
                Case ImageCombo1.ComboItems.Item(2)
                    sex = 0
            End Select
            
            sqltext = "insert into 客户资料 values('" & NewID & "','" & Text1(0) & "','" & Combo1.Text
            sqltext = sqltext & "','" & Text1(2) & "','" & Text1(1) & "','" & Text1(5) + "-" + Text1(6)
            sqltext = sqltext & "','" & Text1(3) & "','" & Text1(4) & "', " & sex & ")"
            
            Set rs = ExecuteSQL(sqltext, MsgString)
            
            '添加完成后的设置
            Label2.Caption = "客户基本资料"
            MsgBox "数据已经添加", vbInformation, "提示"
            Call Set_State(False, False, False, True, True)
            Call ShowTreeView
            For Each Nd In TreeView1.Nodes
                If Nd.Key = "mz" + NewID Or Nd.Key = "dw" + NewID Then
                    TreeView1.Nodes(Nd.Index).EnsureVisible
                    Call TreeView1_NodeClick(Nd)
                End If
            Next
    End Select

ElseIf OP_Flag = "modify" Then
    Select Case Index
        Case 0, 1
            If Combo1.Text <> "" And Text1(0) <> "" And Text1(2) <> "" And Text1(4) <> "" Then
                If Text1(3) = "" And Text1(5) & Text1(6) = "" Then
                    MsgBox "联系电话和手机必需要有一个有效", vbInformation, "提示"
                    Text1(5).SetFocus
                    Exit Sub
                End If
            Else
                MsgBox "数据不完整,请重新输入", vbCritical, "错误提示"
                Exit Sub
            End If
            
            Select Case ImageCombo1.SelectedItem
                Case ImageCombo1.ComboItems.Item(3)
                    sex = 1
                Case ImageCombo1.ComboItems.Item(1)
                    sex = 1
                Case ImageCombo1.ComboItems.Item(2)
                    sex = 0
            End Select
            
            sqltext = "update 客户资料 set 收件人='" & Text1(0) & "',目的地='" & Combo1.Text & "',详细地址='"
            sqltext = sqltext & Text1(2) & "',单位名称='" & Text1(1) & "',联系电话='" & Trim(Text1(5)) + "-" + Trim(Text1(6))
            sqltext = sqltext & "',手机='" & Text1(3) & "',简称='" & Text1(4) & "',收件人性别=" & sex & "where 客户ID='" & Current_ID & "'"
            
            Set rs = ExecuteSQL(sqltext, MsgString)
            
            '添加完成后的设置
            Label2.Caption = "客户基本资料"
            MsgBox "数据已经修改完成", vbInformation, "提示"
            Call Set_State(False, False, False, True, True)
            Call ShowTreeView
            For Each Nd In TreeView1.Nodes
                If Nd.Key = "mz" + Current_ID Or Nd.Key = "dw" + Current_ID Then
                    TreeView1.Nodes(Nd.Index).EnsureVisible
                    Call TreeView1_NodeClick(Nd)
                End If
            Next
    End Select
End If
End Sub

Private Sub CMD_IMG5_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0, 1
CMD_IMG5(Index).BorderStyle = 1
End Select
End Sub
Private Sub CMD_IMG5_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG5(Index).BorderStyle = 0
End Sub

Private Sub CMD_IMG6_Click(Index As Integer) '取消操作
Select Case Index
    Case 0, 1
        Label2.Caption = "客户基本资料"
        Call TreeView1_NodeClick(Save_node)
End Select
End Sub

Private Sub CMD_IMG6_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0, 1
CMD_IMG6(Index).BorderStyle = 1
End Select
End Sub
Private Sub CMD_IMG6_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG6(Index).BorderStyle = 0
End Sub


Private Sub Form_Load()
'设置动态按钮
Image7.Move -3000, Image6.Top

Call ShowTreeView

Call Set_State(False, True, True, True, True)

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'还原按钮状态
Image7.Move -3000, Image6.Top
End Sub


Private Sub Cmd_IMG3_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG3(1).Move CMD_IMG3(0).Left, CMD_IMG3(0).Top
End Sub

Private Sub CMD_IMG4_Click(Index As Integer)
Unload Me
End Sub

Private Sub Cmd_IMG4_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG4(1).Move CMD_IMG4(0).Left, CMD_IMG4(0).Top
End Sub

Private Sub Cmd_IMG5_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG5(1).Move CMD_IMG5(0).Left, CMD_IMG5(0).Top
End Sub

Private Sub Cmd_IMG6_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG6(1).Move CMD_IMG6(0).Left, CMD_IMG6(0).Top
End Sub

Private Sub Cmd_IMG2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG2(1).Move CMD_IMG2(0).Left, CMD_IMG2(0).Top
End Sub

Private Sub Cmd_IMG1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG1(1).Move CMD_IMG1(0).Left, CMD_IMG1(0).Top
End Sub

Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    ReleaseCapture
    SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
End If

End Sub

Private Sub Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'切入图片
Image7.Move Image6.Left, Image6.Top
End Sub

Private Sub Image7_Click()
Unload Me
End Sub



Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    ReleaseCapture
    SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
End If

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    ReleaseCapture
    SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'还原按钮状态
Image7.Move -3000, Image6.Top
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
CMD_IMG1(1).Move -2000, -2000
CMD_IMG2(1).Move -2000, -2000
CMD_IMG3(1).Move -2000, -2000
CMD_IMG4(1).Move -2000, -2000
CMD_IMG5(1).Move -2000, -2000
CMD_IMG6(1).Move -2000, -2000
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
On Error Resume Next
If IsNull(Node.Key) Then
    Call Set_State(False, True, True, True, True)
    Exit Sub
End If

If Node.Key <> "root" And Left(Node.Key, 2) <> "dq" Then
    Call ClearText(True)
    
    Call Set_State(False, False, False, True, True)
    sqltext = "select * from 客户资料 where 客户ID='" & Right(Node.Key, 4) & "'"
    Set rs = ExecuteSQL(sqltext, MsgString)
    Combo1.Text = rs(2)
    Text1(0) = rs(1)
    Text1(1) = rs(4)
    Text1(2) = rs(3)
    Text1(3) = rs(6)
    Text1(4) = rs(7)
    qb = Split(rs(5), "-", 2)
    Text1(5) = qb(0)
    Text1(6) = qb(1)
    
        If IsNull(rs(8)) Then
            ImageCombo1.SelectedItem = ImageCombo1.ComboItems.Item(3)
            
            
        ElseIf rs(8) = True Then
            ImageCombo1.SelectedItem = ImageCombo1.ComboItems.Item(1)
            
        ElseIf rs(8) = False Then
            ImageCombo1.SelectedItem = ImageCombo1.ComboItems.Item(2)
            
        End If
    
    Set Save_node = Node
    
    Current_ID = rs(0)
    Current_Name = Node.Text
End If
End Sub

Private Sub ClearText(ByVal locked As Boolean)
If locked = True Then
    For i = 0 To 6
        Text1(i).locked = True
        Text1(i) = ""
    Next
    ImageCombo1.locked = True
    ImageCombo1.SelectedItem = ImageCombo1.ComboItems.Item(3)
    Combo1.locked = True
    Combo1.Text = ""
Else
    For i = 0 To 6
        Text1(i).locked = False
        Text1(i) = ""
    Next
    ImageCombo1.locked = False
    ImageCombo1.SelectedItem = ImageCombo1.ComboItems.Item(3)
    Combo1.locked = False
    Combo1.Text = ""
End If
End Sub