查询单个号码.frm

软件用到的技巧：透明窗体

        Set rs = db.OpenRecordset("select * from ren where 办公传真  like '*" & Text1.Text & "*' order by 姓名 ")
        If rs.RecordCount = 0 Then
            Me.MSFlexGrid1.Clear
            Label2.Caption = "没有找到号码。"
                            Option6.Value = False
                Option7.Value = True
                GoTo dd:

        ElseIf rs.RecordCount > 0 Then
            rs.MoveLast
            rs.MoveFirst
            SumRs = 1
            Me.MSFlexGrid1.Clear
            Me.MSFlexGrid1.Rows = 1
            Me.MSFlexGrid1.Cols = 3
            Me.MSFlexGrid1.ColWidth(0) = 2000
            Me.MSFlexGrid1.ColWidth(1) = 700
            Me.MSFlexGrid1.ColWidth(2) = 1000
            Me.MSFlexGrid1.ColWidth(3) = 4500
            Me.MSFlexGrid1.TextMatrix(0, 0) = "办公传真"
            Me.MSFlexGrid1.TextMatrix(0, 1) = "ID"
            Me.MSFlexGrid1.TextMatrix(0, 2) = "姓名"
            Me.MSFlexGrid1.TextMatrix(0, 3) = "归属的企业名称"
            Me.MSFlexGrid1.Rows = rs.RecordCount + 1
            Dim iiiiii As Double
            SumRs = rs.RecordCount + 1
            Label2.Visible = False
            Me.Shape1.Visible = True
            Me.ProgressBar1.Visible = True
            Me.ProgressBar1.Min = 0
            Me.ProgressBar1.Max = rs.RecordCount
            For iiiiii = 1 To rs.RecordCount
                Me.MSFlexGrid1.TextMatrix(iiiiii, 0) = rs!办公传真
                Me.MSFlexGrid1.TextMatrix(iiiiii, 1) = rs!id
                Me.MSFlexGrid1.TextMatrix(iiiiii, 2) = rs!姓名
                    Set rs2 = Db2.OpenRecordset("select * from com where id =" & rs!所属企业)
                    If rs2.RecordCount > 0 Then
                        rs2.MoveLast
                        rs2.MoveFirst
                    End If
                    If rs2.RecordCount > 1 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiii, 3) = "（查找所属企业名称失败，找到多个！）"
                    ElseIf rs2.RecordCount = 1 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiii, 3) = rs2!企业名称
                    ElseIf rs2.RecordCount = 0 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiii, 3) = "（查找所属企业名称失败，没有找到！）"
                    End If
                rs.MoveNext
                Me.ProgressBar1.Value = iiiiii
                DoEvents
                Label2.Caption = "已经找到：" & rs.RecordCount & " 条。"
            Next iiiiii
            Me.MSFlexGrid1.Refresh
            Label2.Caption = "查找结束，共找到：" & rs.RecordCount & " 条。"
            Me.Label5.Caption = "联系人。"
            Me.Shape1.Visible = False
            Me.ProgressBar1.Visible = False
            Me.Label2.Visible = True
        End If
    ElseIf Option7.Value = True Then
        Set rs = db.OpenRecordset("select * from ren where QQ号码  like '*" & Text1.Text & "*' order by 姓名 ")
        If rs.RecordCount = 0 Then
            Me.MSFlexGrid1.Clear
            Label2.Caption = "没有找到号码。"
                            Option7.Value = False
                Option8.Value = True
                GoTo dd:

        ElseIf rs.RecordCount > 0 Then
            rs.MoveLast
            rs.MoveFirst
            SumRs = 1
            Me.MSFlexGrid1.Clear
            Me.MSFlexGrid1.Rows = 1
            Me.MSFlexGrid1.Cols = 4
            Me.MSFlexGrid1.ColWidth(0) = 2000
            Me.MSFlexGrid1.ColWidth(1) = 700
            Me.MSFlexGrid1.ColWidth(2) = 1000
            Me.MSFlexGrid1.ColWidth(3) = 4500
            Me.MSFlexGrid1.TextMatrix(0, 0) = "QQ号码"
            Me.MSFlexGrid1.TextMatrix(0, 1) = "ID"
            Me.MSFlexGrid1.TextMatrix(0, 2) = "姓名"
            Me.MSFlexGrid1.TextMatrix(0, 3) = "归属的企业名称"
            Me.MSFlexGrid1.Rows = rs.RecordCount + 1
            Dim iiiiiii As Double
            SumRs = rs.RecordCount + 1
            Label2.Visible = False
            Me.Shape1.Visible = True
            Me.ProgressBar1.Visible = True
            Me.ProgressBar1.Min = 0
            Me.ProgressBar1.Max = rs.RecordCount
            For iiiiiii = 1 To rs.RecordCount
                Me.MSFlexGrid1.TextMatrix(iiiiiii, 0) = rs!QQ号码
                Me.MSFlexGrid1.TextMatrix(iiiiiii, 1) = rs!id
                Me.MSFlexGrid1.TextMatrix(iiiiiii, 2) = rs!姓名
                    Set rs2 = Db2.OpenRecordset("select * from com where id =" & rs!所属企业)
                    If rs2.RecordCount > 0 Then
                        rs2.MoveLast
                        rs2.MoveFirst
                    End If
                    If rs2.RecordCount > 1 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiiii, 3) = "（查找所属企业名称失败，找到多个！）"
                    ElseIf rs2.RecordCount = 1 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiiii, 3) = rs2!企业名称
                    ElseIf rs2.RecordCount = 0 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiiii, 3) = "（查找所属企业名称失败，没有找到！）"
                    End If
                rs.MoveNext
                Me.ProgressBar1.Value = iiiiiii
                DoEvents
                Label2.Caption = "已经找到：" & rs.RecordCount & " 条。"
            Next iiiiiii
            Me.MSFlexGrid1.Refresh
            Label2.Caption = "查找结束，共找到：" & rs.RecordCount & " 条。"
            Me.Label5.Caption = "联系人。"
            Me.Shape1.Visible = False
            Me.ProgressBar1.Visible = False
            Me.Label2.Visible = True
        End If
    ElseIf Option8.Value = True Then
        Set rs = db.OpenRecordset("select * from ren where 其他说明  like '*" & Text1.Text & "*' order by 姓名 ")
        If rs.RecordCount = 0 Then
            Me.MSFlexGrid1.Clear
            Label2.Caption = "没有找到号码。"
                            Option8.Value = False
                Option9.Value = True
                GoTo dd:
        ElseIf rs.RecordCount > 0 Then
            rs.MoveLast
            rs.MoveFirst
            SumRs = 1
            Me.MSFlexGrid1.Clear
            Me.MSFlexGrid1.Rows = 1: Me.MSFlexGrid1.Cols = 4
            Me.MSFlexGrid1.ColWidth(2) = 4500
            Me.MSFlexGrid1.ColWidth(0) = 1000
            Me.MSFlexGrid1.ColWidth(1) = 700
            Me.MSFlexGrid1.ColWidth(3) = 5000
            Me.MSFlexGrid1.TextMatrix(0, 3) = "其他说明"
            Me.MSFlexGrid1.TextMatrix(0, 0) = "姓名"
            Me.MSFlexGrid1.TextMatrix(0, 2) = "归属的企业名称"
            Me.MSFlexGrid1.TextMatrix(0, 1) = "ID"
            Me.MSFlexGrid1.Rows = rs.RecordCount + 1
            Dim iiiiiiii As Double
            SumRs = rs.RecordCount + 1
            Label2.Visible = False
            Me.Shape1.Visible = True
            Me.ProgressBar1.Visible = True
            Me.ProgressBar1.Min = 0
            Me.ProgressBar1.Max = rs.RecordCount
            For iiiiiiii = 1 To rs.RecordCount
                Me.MSFlexGrid1.TextMatrix(iiiiiiii, 3) = rs!其他说明
                Me.MSFlexGrid1.TextMatrix(iiiiiiii, 1) = rs!id
                Me.MSFlexGrid1.TextMatrix(iiiiiiii, 0) = rs!姓名
                    Set rs2 = Db2.OpenRecordset("select * from com where id =" & rs!所属企业)
                    If rs2.RecordCount > 0 Then
                        rs2.MoveLast
                        rs2.MoveFirst
                    End If
                    If rs2.RecordCount > 1 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiiiii, 2) = "（查找所属企业名称失败，找到多个！）"
                    ElseIf rs2.RecordCount = 1 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiiiii, 2) = rs2!企业名称
                    ElseIf rs2.RecordCount = 0 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiiiii, 2) = "（查找所属企业名称失败，没有找到！）"
                    End If
                rs.MoveNext
                Me.ProgressBar1.Value = iiiiiiii
                DoEvents
                Label2.Caption = "已经找到：" & rs.RecordCount & " 条。"
            Next iiiiiiii
            Me.MSFlexGrid1.Refresh
            Label2.Caption = "查找结束，共找到：" & rs.RecordCount & " 条。"
            Me.Label5.Caption = "联系人。"
            Me.Shape1.Visible = False
            Me.ProgressBar1.Visible = False
            Me.Label2.Visible = True
        End If
    ElseIf Option9.Value = True Then
        Set rs = db.OpenRecordset("select * from ren where 家庭电话  like '*" & Text1.Text & "*' order by 姓名 ")
        If rs.RecordCount = 0 Then
            Me.MSFlexGrid1.Clear
            Label2.Caption = "没有找到号码。"

        ElseIf rs.RecordCount > 0 Then
            rs.MoveLast
            rs.MoveFirst
            SumRs = 1
            Me.MSFlexGrid1.Clear
            Me.MSFlexGrid1.Rows = 1
            Me.MSFlexGrid1.Cols = 4
            Me.MSFlexGrid1.ColWidth(0) = 2000
            Me.MSFlexGrid1.ColWidth(2) = 1000
            Me.MSFlexGrid1.ColWidth(1) = 700
            Me.MSFlexGrid1.ColWidth(3) = 4500
            Me.MSFlexGrid1.TextMatrix(0, 0) = "相似的号码"
            Me.MSFlexGrid1.TextMatrix(0, 1) = "ID"
            Me.MSFlexGrid1.TextMatrix(0, 2) = "姓名"
            Me.MSFlexGrid1.TextMatrix(0, 3) = "归属的企业名称"
            Me.MSFlexGrid1.Rows = rs.RecordCount + 1
            Dim iiiiiiiii As Double
            SumRs = rs.RecordCount + 1
            Label2.Visible = False
            Me.Shape1.Visible = True
            Me.ProgressBar1.Visible = True
            Me.ProgressBar1.Min = 0
            Me.ProgressBar1.Max = rs.RecordCount
            For iiiiiiiii = 1 To rs.RecordCount
                Me.MSFlexGrid1.TextMatrix(iiiiiiiii, 0) = rs!家庭电话
                Me.MSFlexGrid1.TextMatrix(iiiiiiiii, 1) = rs!id
                Me.MSFlexGrid1.TextMatrix(iiiiiiiii, 2) = rs!姓名
                    Set rs2 = Db2.OpenRecordset("select * from com where id =" & rs!所属企业)
                    If rs2.RecordCount > 0 Then
                        rs2.MoveLast
                        rs2.MoveFirst
                    End If
                    If rs2.RecordCount > 1 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiiiiii, 3) = "（查找所属企业名称失败，找到多个！）"
                    ElseIf rs2.RecordCount = 1 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiiiiii, 3) = rs2!企业名称
                    ElseIf rs2.RecordCount = 0 Then
                        Me.MSFlexGrid1.TextMatrix(iiiiiiiii, 3) = "（查找所属企业名称失败，没有找到！）"
                    End If
                rs.MoveNext
                Me.ProgressBar1.Value = iiiiiiiii
                DoEvents
                Label2.Caption = "已经找到：" & rs.RecordCount & " 条。"
            Next iiiiiiiii
            Me.MSFlexGrid1.Refresh
            Label2.Caption = "查找结束，共找到：" & rs.RecordCount & " 条。"
            Me.Label5.Caption = "联系人。"
            Me.Shape1.Visible = False
            Me.ProgressBar1.Visible = False
            Me.Label2.Visible = True
        End If
    End If '搜索范围的判断语句的结尾
    Command3.Enabled = True
    Me.Enabled = True
    Exit Sub
a:
MsgBox Err.Number & " : " & Err.Description
    Command3.Enabled = True
    Me.Enabled = True
    Me.Label2.Caption = "查询出现错误！"
End Sub

Private Sub Command2_Click()
    StopB = False
End Sub

Private Sub Command3_Click()
    Me.MSFlexGrid1.Clear
    Me.MSFlexGrid1.Rows = 2
    Me.MSFlexGrid1.Cols = 3
    Me.Label2.Caption = "就绪，等待查询。"
    Text1.Text = ""
    Label5.Caption = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
    AllBaiFangShow = False
End Sub

Private Sub MSFlexGrid1_DblClick()
    If Label5.Caption = "" Then
        Exit Sub
    End If
    If Val(Trim(Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 1))) <> 0 Then
        ShowInfo Label5.Caption, Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 1)
    End If
End Sub

Private Sub MSFlexGrid1_GotFocus()
Set CtlWheel = MSFlexGrid1 '用于设定支持鼠标滚轮
End Sub
Private Sub MSFlexGrid1_LostFocus()
Set CtlWheel = Nothing '用于设定取消鼠标滚轮的支持
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
UnHookWheel Me.hwnd '卸载鼠标滚轮的支持
End Sub


Private Sub Form_Load()
HookWheel Me.hwnd '用于支持鼠标滚轮
    Me.Icon = MDIForm1.Icon
    Me.BackColor = FormBackColor
    Me.MSFlexGrid1.BackColorBkg = MsFlexGridBackColorBkgValue
    Me.Frame1.BackColor = Me.BackColor
    Me.Frame2.BackColor = Me.BackColor
    Me.Frame3.BackColor = Me.BackColor
    Me.Frame4.BackColor = Me.BackColor
    Me.Option1.BackColor = Me.BackColor
    Me.Option2.BackColor = Me.BackColor
    Me.Option3.BackColor = Me.BackColor
    Me.Option4.BackColor = Me.BackColor
    Me.Option5.BackColor = Me.BackColor
    Me.Option6.BackColor = Me.BackColor
    Me.Option7.BackColor = Me.BackColor
    Me.Option8.BackColor = Me.BackColor
    Me.Option9.BackColor = Me.BackColor
    Me.Check1.BackColor = Me.BackColor
    Me.MSFlexGrid1.BackColorFixed = 16777178
    Label2.Caption = "就绪，等待查询。"
    Me.Shape1.Visible = False
    Me.ProgressBar1.Visible = False
    Me.Label2.Visible = True
    Me.Top = (Screen.Height - Me.Height) / 5
    Me.Left = (Screen.Width - Me.Width) / 2

End Sub

Private Sub Text1_GotFocus()
    SendKeys "{end}"

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Command1_Click
    End If
End Sub
Public Sub ShowInfo(i As String, id As Long)
    If i = "企业。" Then
        EditComInfo (id)
    ElseIf i = "联系人。" Then
        ShowRenInfo id
    End If
End Sub