SearchNum.frm
上传用户:zhuahui520
上传日期:2007-05-21
资源大小:347k
文件大小:4k
源码类别:

其他智力游戏

开发平台:

Java

  1. VERSION 5.00
  2. Begin VB.Form SearchNum 
  3.    Caption         =   "查找图书编号"
  4.    ClientHeight    =   2055
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5220
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2055
  11.    ScaleWidth      =   5220
  12.    StartUpPosition =   3  '窗口缺省
  13.    Begin VB.CommandButton cmdOkCancel 
  14.       Cancel          =   -1  'True
  15.       Caption         =   "不想查了(&E)"
  16.       BeginProperty Font 
  17.          Name            =   "宋体"
  18.          Size            =   10.5
  19.          Charset         =   134
  20.          Weight          =   400
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   375
  26.       Index           =   1
  27.       Left            =   3720
  28.       TabIndex        =   3
  29.       Top             =   1560
  30.       Width           =   1335
  31.    End
  32.    Begin VB.CommandButton cmdOkCancel 
  33.       Caption         =   "填好了(&E)"
  34.       Default         =   -1  'True
  35.       BeginProperty Font 
  36.          Name            =   "宋体"
  37.          Size            =   10.5
  38.          Charset         =   134
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   375
  45.       Index           =   0
  46.       Left            =   2160
  47.       TabIndex        =   2
  48.       Top             =   1560
  49.       Width           =   1335
  50.    End
  51.    Begin VB.TextBox txtBookNum 
  52.       BeginProperty Font 
  53.          Name            =   "宋体"
  54.          Size            =   12
  55.          Charset         =   134
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H000000C0&
  62.       Height          =   375
  63.       Left            =   1320
  64.       TabIndex        =   0
  65.       Text            =   "Text1"
  66.       Top             =   840
  67.       Width           =   2655
  68.    End
  69.    Begin VB.Image Image1 
  70.       Height          =   480
  71.       Left            =   240
  72.       Picture         =   "SearchNum.frx":0000
  73.       Top             =   240
  74.       Width           =   480
  75.    End
  76.    Begin VB.Label Label1 
  77.       AutoSize        =   -1  'True
  78.       Caption         =   "请输入查找图书的编号"
  79.       BeginProperty Font 
  80.          Name            =   "宋体"
  81.          Size            =   12
  82.          Charset         =   134
  83.          Weight          =   700
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       ForeColor       =   &H00FF0000&
  89.       Height          =   240
  90.       Left            =   840
  91.       TabIndex        =   1
  92.       Top             =   360
  93.       Width           =   2565
  94.    End
  95. End
  96. Attribute VB_Name = "SearchNum"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101. Private Sub cmdOkCancel_Click(Index As Integer)
  102. Select Case Index
  103.     Case 0
  104.         If txtBookNum.Text = "" Then
  105.             MsgBox "你还没填图书编号呢?", 0 + 48, "提示"
  106.             txtBookNum.SetFocus
  107.             Exit Sub
  108.         End If
  109.         BookBianHao = Trim(txtBookNum)
  110.         SearchFlag = True
  111.         Unload Me
  112.     Case 1
  113.         SearchFlag = False
  114.         Unload Me
  115. End Select
  116. End Sub
  117. Private Sub Form_Load()
  118. txtBookNum.Text = ""
  119. End Sub