frmdisplay.frm

图书管理系统!有源代码!论文!心得!

VERSION 5.00
Begin VB.Form frmDisplay 
   Caption         =   "标本排列样式"
   ClientHeight    =   6030
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7245
   Icon            =   "frmDisplay.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6030
   ScaleWidth      =   7245
   Begin VB.TextBox txtESalary 
      Height          =   495
      Left            =   4200
      TabIndex        =   12
      Top             =   3480
      Width           =   2415
   End
   Begin VB.TextBox txtEJob 
      Height          =   495
      Left            =   4200
      TabIndex        =   11
      Top             =   2520
      Width           =   2415
   End
   Begin VB.TextBox txtEName 
      Height          =   495
      Left            =   4200
      TabIndex        =   10
      Top             =   1560
      Width           =   2415
   End
   Begin VB.TextBox txtENo 
      Height          =   495
      Left            =   4200
      TabIndex        =   9
      Top             =   720
      Width           =   2415
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除"
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   3600
      Width           =   1575
   End
   Begin VB.CommandButton cmdAddNew 
      Caption         =   "添加"
      Height          =   375
      Left            =   120
      TabIndex        =   7
      Top             =   3000
      Width           =   1575
   End
   Begin VB.CommandButton cmdMoveLast 
      Caption         =   "移到最后"
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   2400
      Width           =   1575
   End
   Begin VB.CommandButton cmdMoveNext 
      Caption         =   "下一个"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   1200
      Width           =   1575
   End
   Begin VB.CommandButton cmdMovePrevious 
      Caption         =   "上一个"
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   1800
      Width           =   1575
   End
   Begin VB.CommandButton cmdMoveFirst 
      Caption         =   "移到首部"
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   600
      Width           =   1575
   End
   Begin VB.TextBox txtRno 
      Height          =   495
      Left            =   1200
      TabIndex        =   2
      Top             =   4200
      Width           =   2055
   End
   Begin VB.CommandButton cmdExecute 
      Caption         =   "执行"
      Height          =   495
      Left            =   3600
      TabIndex        =   1
      Top             =   4200
      Width           =   1815
   End
   Begin VB.Label lblESalary 
      Caption         =   "地址"
      Height          =   375
      Left            =   2520
      TabIndex        =   16
      Top             =   3600
      Width           =   1335
   End
   Begin VB.Label lblEJob 
      Caption         =   "性别"
      Height          =   375
      Left            =   2520
      TabIndex        =   15
      Top             =   2640
      Width           =   1335
   End
   Begin VB.Label lblEName 
      Caption         =   "名字"
      Height          =   375
      Left            =   2520
      TabIndex        =   14
      Top             =   1680
      Width           =   1335
   End
   Begin VB.Label lblENo 
      Caption         =   "滚动"
      Height          =   375
      Left            =   2520
      TabIndex        =   13
      Top             =   840
      Width           =   1335
   End
   Begin VB.Label Label1 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   5400
      Width           =   6975
   End
End
Attribute VB_Name = "frmDisplay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
''Private Sub cmdExecute_Click()
''    rs.MoveFirst
''    While rs.EOF <> True
''        If rs(2) = Val(txtRno.Text) Then
''            Call displayStudent
''            Exit Sub
''        Else
''            rs.MoveNext
''        End If
''    Wend
''    MsgBox "Record Not Found", vbInformation, "LMS"
''End Sub
'
''Data Traversal Code
''Move to First Record....and so on
'Private Sub cmdMoveFirst_Click()
'On Error Resume Next
'    rs.MoveFirst
'    Call displayStudent
'End Sub
'
'Private Sub cmdMoveLast_Click()
'On Error Resume Next
'    rs.MoveLast
'    Call displayStudent
'End Sub
'
'Private Sub cmdMoveNext_Click()
'On Error Resume Next
'    rs.MoveNext
'    If rs.EOF Then
'       rs.MoveLast
'       MsgBox "Last Record", vbInformation, "Last Record"
'    Else
'       Call displayStudent
'    End If
'End Sub
'
'Private Sub cmdMovePrevious_Click()
'On Error Resume Next
'    rs.MovePrevious
'    If rs.BOF Then
'       rs.MoveFirst
'       MsgBox "First Record", vbInformation, "First Record"
'    Else
'       Call displayStudent
'    End If
'End Sub
'
'
''Add new record
'Private Sub cmdAddNew_Click()
'On Error Resume Next
'    'Call Clear
'    rs.AddNew
'    txtENo.SetFocus
'End Sub
'
''Delete Record
'Private Sub cmdDelete_click()
'On Error Resume Next
'    If MsgBox("Are you sure you wan't to delete record", vbOKCancel + vbExclamation, "Deleting Record") = vbOK Then
'        rs.Delete
'        rs.MoveNext
'        If rs.EOF Then
'            rs.MoveLast
'            MsgBox "Last Record"
'        End If
'        Call displayStudent
'    End If
'End Sub
'
Private Sub lblEName_Click()

End Sub