form1.frm

电话本信息 基本上实现电话功能 自己下载侃侃吧

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   4725
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5550
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4725
   ScaleWidth      =   5550
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消(&C)"
      Height          =   330
      Left            =   4545
      TabIndex        =   5
      Top             =   810
      Width           =   915
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&A)"
      Height          =   330
      Left            =   4545
      TabIndex        =   4
      Top             =   360
      Width           =   915
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   225
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   360
      Width           =   4155
   End
   Begin MSComctlLib.TreeView TV1 
      Height          =   3570
      Left            =   225
      TabIndex        =   1
      Top             =   990
      Width           =   4155
      _ExtentX        =   7329
      _ExtentY        =   6297
      _Version        =   393217
      HideSelection   =   0   'False
      LabelEdit       =   1
      LineStyle       =   1
      Style           =   7
      Appearance      =   1
   End
   Begin MSComctlLib.ImageList IList1 
      Left            =   3195
      Top             =   1350
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   393216
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请输入联系人组名："
      Height          =   180
      Index           =   1
      Left            =   225
      TabIndex        =   3
      Top             =   135
      Width           =   1620
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请选择目标组："
      Height          =   180
      Index           =   0
      Left            =   225
      TabIndex        =   2
      Top             =   765
      Width           =   1260
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public MoveR As Node, MoveNode As Node

Private Sub Command1_Click()
  Dim I As Long, J As Long, K As Long, MaxIndex As Long, NodeText() As String
  Dim STR1 As String, RET As ADODB.Recordset, NText() As String
  
  If Not (MoveR Is Nothing Or MoveNode Is Nothing) Then
    STR1 = IIf(Left(MoveNode.Key, 1) = "R", "Select * from " & RootName & " where ID=", "Select * from " & ListA & " where ID=") & Mid(MoveNode.Key, 2, Len(MoveNode.Key))
    Set MoveR = TV1.SelectedItem
    K = Mid(MoveR.Key, 2, Len(MoveR.Key))
    Set RET = New ADODB.Recordset
    RET.Open STR1, DataCON, adOpenKeyset, adLockOptimistic
    If RET.RecordCount Then
      RET.Fields("ZB") = K
      RET.Update
      HasChange = K
    End If
    RET.Close
    Set RET = Nothing
    Set MoveR = Nothing
  ElseIf (Not (TV1.SelectedItem Is Nothing)) And (MoveR Is Nothing) Then
    K = Mid(TV1.SelectedItem.Key, 2, Len(TV1.SelectedItem.Key))
    If Len(Text1.Text) Then
        HasChange = K
        Text1.Text = Replace(Text1.Text, "；", ";")
        Text1.Text = Replace(Text1.Text, "