findfrm.frm

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

      End
      Begin VB.TextBox Text1 
         Enabled         =   0   'False
         Height          =   285
         Index           =   0
         Left            =   1350
         TabIndex        =   7
         Top             =   180
         Width           =   2670
      End
      Begin VB.CheckBox CHK2 
         Caption         =   "联系人名 ="
         Height          =   240
         Index           =   0
         Left            =   135
         TabIndex        =   6
         Top             =   225
         Width           =   3930
      End
      Begin VB.CheckBox CHK2 
         Caption         =   "英 文 名 ="
         Height          =   240
         Index           =   1
         Left            =   4860
         TabIndex        =   11
         Top             =   225
         Width           =   3030
      End
      Begin VB.CheckBox CHK2 
         Caption         =   "昵　　称 ="
         Height          =   240
         Index           =   2
         Left            =   135
         TabIndex        =   13
         Top             =   585
         Width           =   3030
      End
      Begin VB.CheckBox CHK2 
         Caption         =   " QQ号码 ="
         Height          =   240
         Index           =   4
         Left            =   135
         TabIndex        =   15
         Top             =   945
         Width           =   3030
      End
      Begin VB.CheckBox CHK2 
         Caption         =   "ICQ号码　="
         Height          =   240
         Index           =   5
         Left            =   4860
         TabIndex        =   17
         Top             =   945
         Width           =   3030
      End
      Begin VB.TextBox Text1 
         Enabled         =   0   'False
         Height          =   285
         Index           =   6
         Left            =   6075
         TabIndex        =   18
         Top             =   1305
         Width           =   1770
      End
      Begin VB.TextBox Text1 
         Enabled         =   0   'False
         Height          =   285
         Index           =   7
         Left            =   1350
         TabIndex        =   19
         Top             =   1305
         Width           =   1770
      End
      Begin VB.CheckBox CHK2 
         Caption         =   "Email地址="
         Height          =   240
         Index           =   6
         Left            =   135
         TabIndex        =   20
         Top             =   1350
         Width           =   3030
      End
      Begin VB.CheckBox CHK2 
         Caption         =   "MSN地址　="
         Height          =   240
         Index           =   7
         Left            =   4860
         TabIndex        =   21
         Top             =   1350
         Width           =   3030
      End
      Begin VB.TextBox Text1 
         Enabled         =   0   'False
         Height          =   285
         Index           =   8
         Left            =   1350
         TabIndex        =   22
         Top             =   1665
         Width           =   1770
      End
      Begin VB.CheckBox CHK2 
         Caption         =   "关    系 ="
         Height          =   240
         Index           =   8
         Left            =   135
         TabIndex        =   23
         Top             =   1710
         Width           =   3030
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   " 搜索范围 "
      Height          =   1410
      Left            =   315
      TabIndex        =   0
      Top             =   360
      Width           =   4785
      Begin VB.CheckBox CHK1 
         Caption         =   "搜索包含下级子目录"
         Height          =   195
         Left            =   450
         TabIndex        =   4
         Top             =   945
         Width           =   3345
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Index           =   0
         Left            =   1035
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   585
         Width           =   1725
      End
      Begin VB.OptionButton OP1 
         Caption         =   "在所有组中搜索"
         Height          =   285
         Index           =   0
         Left            =   180
         TabIndex        =   1
         Top             =   225
         Value           =   -1  'True
         Width           =   3615
      End
      Begin VB.OptionButton OP1 
         Caption         =   "只搜索　　　　　　　　　　组中联系人"
         Height          =   375
         Index           =   1
         Left            =   180
         TabIndex        =   3
         Top             =   540
         Width           =   3615
      End
   End
End
Attribute VB_Name = "FindFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub CHK2_Click(Index As Integer)
  On Error Resume Next
  If Index = CHK2.Count - 1 Then
    Combo2.Enabled = CHK2(Index).Value
    Combo2.SetFocus
  Else
    Text1(Index).Enabled = CHK2(Index).Value
    If Text1(Index).Enabled Then
        Text1(Index).SetFocus
        Text1(Index).SelStart = 0
        Text1(Index).SelLength = Len(Text1(Index).Text)
     End If
  End If
End Sub

Private Sub Command2_Click()
  Unload Me
End Sub

Private Sub FCT_Change()
  Dim I As Long
  On Error Resume Next
  If UCase(FCT.Text) = "&HFFFF" Then
    I = &HFFFF&
  Else
    I = Val(FCT.Text)
  End If
  I = I And &HFFFFFF
  FCT.ForeColor = I
  FCT.BackColor = I Xor &HFFFFFF
End Sub

Private Sub Form_Load()
  Dim RET As ADODB.Recordset
  Dim STR1 As String, I As Long
  
  FCT.ForeColor = FindColor
  FCT.Text = "&H" & Hex(FindColor)
  Set RET = New ADODB.Recordset
  STR1 = "select * from ZBXX where (ID>=0) or (ID=-1 and ZB=-1) ORDER by ZB DESC"
  RET.Open STR1, DataCON, adOpenKeyset, adLockOptimistic
  
    For I = 1 To RET.RecordCount
      Combo1(0).AddItem RET.Fields("Name_" & LangSTR)
      Combo1(1).AddItem RET.Fields("Name_" & LangSTR)
      RET.MoveNext
    Next
  With Combo1(0)
    If MainFrm.TV1.SelectedItem Is Nothing Then
      .ListIndex = 0
      .Enabled = False
      OP1(0).Value = True
      CHK1.Value = 0
      CHK1.Enabled = False
    Else
      If Left(MainFrm.TV1.SelectedItem.Key, 1) = "R" Then
        .Text = MainFrm.TV1.SelectedItem.Text
      Else
        .Text = MainFrm.TV1.SelectedItem.Parent.Text
      End If
      .Enabled = True
      OP1(1).Value = True
      CHK1.Enabled = True
      CHK1.Value = 1
    End If
  End With
  Combo1(1).ListIndex = 0
  Set RET = Nothing
  I = CHK2.Count - 1
  CHK2(I).Width = CHK2(0).Width
  Combo2.Enabled = False
  Combo2.Width = Text1(0).Width
  I = I - 1
  Do While I >= 0
    CHK2(I).Width = CHK2(0).Width
    Text1(I).Width = Text1(0).Width
    Text1(I).Enabled = False
    I = I - 1
  Loop
End Sub

Private Sub OP1_Click(Index As Integer)
  Combo1(0).Enabled = OP1(1).Value
  CHK1.Enabled = Index = 1
  CHK1.Value = 1
End Sub

Private Sub OP2_Click(Index As Integer)
  Select Case Index
'  With CHK3(0)
'    .Enabled = Index = 1
'    .Value = .Enabled And 1&
'  End With
    Case 0:
      CHK3(0).Enabled = False
      CHK3(0).Value = 0
      CHK3(1).Enabled = False
      Combo1(1).Enabled = False
    Case 1:
      CHK3(0).Enabled = True
      CHK3(0).Value = 1
      CHK3(1).Enabled = False
      Combo1(1).Enabled = False
    Case 2:
      CHK3(0).Enabled = False
      CHK3(0).Value = 0
      CHK3(1).Enabled = False
      Combo1(1).Enabled = True
    Case 3:
      CHK3(0).Enabled = False
      CHK3(0).Value = 0
      CHK3(1).Enabled = True
      Combo1(1).Enabled = False
  End Select
End Sub