姓名输入框.frm

大家一起上传,一起下,对大家都有好处,

VERSION 5.00
Begin VB.Form Form3 
   Caption         =   "Form3"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form3"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   1440
      Width           =   3975
   End
   Begin VB.Label Label1 
      Caption         =   "输入教师姓名"
      Height          =   495
      Left            =   360
      TabIndex        =   1
      Top             =   840
      Width           =   1215
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Unload(Cancel As Integer)
RES.Close
ResOpen = 0
ResClose = 1

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If ResClose = 1 Then
    RES.Open
    ResOpen = 1
    ResClose = 0
End If
SelectString = Trim(Me.Text1.Text)
SelectName = SelectString
    'If Resopen = 0 Then '若游标关闭，则打开它
     '   RES.ActiveConnection = Comsalary
      '  RES.Open
       ' RES.MoveFirst
   ' End If
        RES.MoveFirst
        While Not RES.EOF
            If SelectName = Trim(RES.Fields("姓名")) Then
                Form2.Text1.Text = ""
                For i = 0 To RES.Fields.Count - 1
                    Form2.Text1.Text = Form2.Text1.Text & "    " & RES.Fields(i)
                Next
            End If
        RES.MoveNext
        Wend
     
Unload Me
 End If
End Sub