mfindbook.frm

一个用VB写的通信录程序是一个课程设计很实用

VERSION 5.00
Begin VB.Form mfindbook 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查找图书"
   ClientHeight    =   1140
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "mfindbook.frx":0000
   ScaleHeight     =   1140
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Height          =   270
      Left            =   3000
      TabIndex        =   2
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始查找"
      Height          =   375
      Index           =   0
      Left            =   1320
      Picture         =   "mfindbook.frx":9C09
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   720
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "取消"
      Height          =   375
      Index           =   1
      Left            =   2640
      Picture         =   "mfindbook.frx":C469
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请输入查找图书编号"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   480
      TabIndex        =   3
      Top             =   240
      Width           =   2310
   End
End
Attribute VB_Name = "mfindbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
Select Case Index
    Case 0
        If Text1.Text = "" Then
            MsgBox "你还没填图书编号呢？", 0 + 48, "提示"
            Text1.SetFocus
            Exit Sub
        Else
            editbookno = Trim(Text1.Text)
            SearchFlag = True
            Unload Me
        End If
    Case 1
        SearchFlag = False
        Unload Me
End Select
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = "13" Then
    Call Command1_Click(0)
End If
End Sub