企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Begin VB.Form Locate_Frm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "人员定位"
   ClientHeight    =   960
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3795
   Icon            =   "公用_定位.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   960
   ScaleWidth      =   3795
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Txt_Person 
      Height          =   300
      Left            =   585
      TabIndex        =   0
      Top             =   180
      Width           =   3075
   End
   Begin VB.CommandButton Cmd_Cancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   2535
      TabIndex        =   2
      Top             =   585
      Width           =   1120
   End
   Begin VB.CommandButton Cmd_OK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   300
      Left            =   1350
      TabIndex        =   1
      Top             =   585
      Width           =   1120
   End
   Begin VB.Label Lab_Mark 
      AutoSize        =   -1  'True
      Caption         =   "人员:"
      Height          =   300
      Left            =   75
      TabIndex        =   3
      Top             =   225
      Width           =   450
   End
End
Attribute VB_Name = "Locate_Frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'*    模 块 名 称 :定位
'*    功 能 描 述 :
'*    程序员姓名  :苗鹏
'*    最后修改人  :苗鹏
'*    最后修改时间:2002/01/01
'*    备        注:
'******************************************************************
Option Explicit
Public frm As Form
Private Sub Cmd_Cancel_Click()
    Unload Me
End Sub
Private Sub Cmd_OK_Click()
    '调用父窗体的 Locate(s as string ) 函数
    With frm
        If Trim(Me.Txt_Person.Text) <> "" Then
            If frm.Locate(Me.Txt_Person.Text) = 0 Then
                MsgBox "没有此人!", vbOKOnly + vbCritical
            End If
            Me.Txt_Person.SetFocus
            Me.Txt_Person.SelStart = 0
            Me.Txt_Person.SelLength = Len(Me.Txt_Person.Text)
        End If
    End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set frm = Nothing
End Sub

						