frmdisplay.frm

学生管理系统虽然不是很完善

VERSION 5.00
Begin VB.Form frmDisplay 
   Caption         =   "Sample Display Form"
   ClientHeight    =   5790
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7245
   Icon            =   "frmDisplay.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5790
   ScaleWidth      =   7245
   Begin VB.CommandButton cmdExecute 
      Caption         =   "Execute"
      Height          =   495
      Left            =   3600
      TabIndex        =   15
      Top             =   3600
      Width           =   1815
   End
   Begin VB.TextBox txtRno 
      Height          =   495
      Left            =   1200
      TabIndex        =   14
      Top             =   3600
      Width           =   2055
   End
   Begin VB.CommandButton cmdMoveFirst 
      Caption         =   "Move First"
      Height          =   375
      Left            =   120
      TabIndex        =   13
      Top             =   0
      Width           =   1575
   End
   Begin VB.CommandButton cmdMovePrevious 
      Caption         =   "Move Previous"
      Height          =   375
      Left            =   120
      TabIndex        =   12
      Top             =   1200
      Width           =   1575
   End
   Begin VB.CommandButton cmdMoveNext 
      Caption         =   "Move Next"
      Height          =   375
      Left            =   120
      TabIndex        =   11
      Top             =   600
      Width           =   1575
   End
   Begin VB.CommandButton cmdMoveLast 
      Caption         =   "Move Last"
      Height          =   375
      Left            =   120
      TabIndex        =   10
      Top             =   1800
      Width           =   1575
   End
   Begin VB.CommandButton cmdAddNew 
      Caption         =   "Add New"
      Height          =   375
      Left            =   120
      TabIndex        =   9
      Top             =   2400
      Width           =   1575
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "Delete Record"
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   3000
      Width           =   1575
   End
   Begin VB.TextBox txtENo 
      Height          =   495
      Left            =   4200
      TabIndex        =   3
      Top             =   120
      Width           =   2415
   End
   Begin VB.TextBox txtEName 
      Height          =   495
      Left            =   4200
      TabIndex        =   2
      Top             =   960
      Width           =   2415
   End
   Begin VB.TextBox txtEJob 
      Height          =   495
      Left            =   4200
      TabIndex        =   1
      Top             =   1920
      Width           =   2415
   End
   Begin VB.TextBox txtESalary 
      Height          =   495
      Left            =   4200
      TabIndex        =   0
      Top             =   2880
      Width           =   2415
   End
   Begin VB.Label Label1 
      Caption         =   "Only Rough Work.....USELESS FORM.......JUST Made for initial TESTING"
      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          =   1335
      Left            =   120
      TabIndex        =   16
      Top             =   4320
      Width           =   6855
   End
   Begin VB.Label lblENo 
      Caption         =   "Roll No"
      Height          =   375
      Left            =   2520
      TabIndex        =   7
      Top             =   240
      Width           =   1335
   End
   Begin VB.Label lblEName 
      Caption         =   "Name"
      Height          =   375
      Left            =   2520
      TabIndex        =   6
      Top             =   1080
      Width           =   1335
   End
   Begin VB.Label lblEJob 
      Caption         =   "Sex"
      Height          =   375
      Left            =   2520
      TabIndex        =   5
      Top             =   2040
      Width           =   1335
   End
   Begin VB.Label lblESalary 
      Caption         =   "Address"
      Height          =   375
      Left            =   2520
      TabIndex        =   4
      Top             =   3000
      Width           =   1335
   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
'