frmhrdempdet.frm

Complete Hotel Management System BackEnd Oracle

      forecolor       =   255
      forehover       =   16711680
   End
   Begin Project1.XPButton cmdClose 
      Height          =   495
      Left            =   10920
      TabIndex        =   24
      Top             =   9480
      Width           =   1755
      _extentx        =   3096
      _extenty        =   873
      font            =   "frmHRDEmpDet.frx":1C54
      caption         =   "Close"
      forecolor       =   255
      forehover       =   16711680
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   26
      Top             =   0
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   979
      ButtonWidth     =   1270
      ButtonHeight    =   926
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   4
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "First"
            Key             =   "Firstw"
            Object.ToolTipText     =   "Go to first record"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Previous"
            Key             =   "Previous"
            Object.ToolTipText     =   "Go to previous record "
            ImageIndex      =   4
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Next"
            Key             =   "Next"
            Object.ToolTipText     =   "Go to next record"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Last"
            Key             =   "Last"
            Object.ToolTipText     =   "Go to last record"
            ImageIndex      =   1
         EndProperty
      EndProperty
   End
   Begin MSComCtl2.MonthView MonthView1 
      Height          =   2820
      Left            =   10920
      TabIndex        =   27
      Top             =   2760
      Width           =   3750
      _ExtentX        =   6615
      _ExtentY        =   4974
      _Version        =   393216
      ForeColor       =   128
      BackColor       =   65280
      Appearance      =   1
      MonthBackColor  =   65280
      StartOfWeek     =   22806529
      TitleBackColor  =   65535
      TitleForeColor  =   16711680
      TrailingForeColor=   0
      CurrentDate     =   38207
   End
   Begin VB.Label Label16 
      BackStyle       =   0  'Transparent
      Caption         =   "Department  Name"
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   1200
      TabIndex        =   21
      Top             =   8400
      Width           =   3975
   End
   Begin VB.Label Label13 
      BackStyle       =   0  'Transparent
      Caption         =   "Basic Salary"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   11
      Top             =   9000
      Width           =   1485
   End
   Begin VB.Label Label12 
      BackStyle       =   0  'Transparent
      Caption         =   "Department  Number"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   10
      Top             =   7800
      Width           =   2805
   End
   Begin VB.Label Label11 
      BackStyle       =   0  'Transparent
      Caption         =   "Designation"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   9
      Top             =   7200
      Width           =   1485
   End
   Begin VB.Label Label10 
      BackStyle       =   0  'Transparent
      Caption         =   "Qualifications"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   8
      Top             =   6600
      Width           =   1485
   End
   Begin VB.Label Label9 
      BackStyle       =   0  'Transparent
      Caption         =   "Hiredate"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   7
      Top             =   6000
      Width           =   1485
   End
   Begin VB.Label Label8 
      BackStyle       =   0  'Transparent
      Caption         =   "Date of birth"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   6
      Top             =   5400
      Width           =   1485
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "City"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   5
      Top             =   4800
      Width           =   1485
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "Phone"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   4
      Top             =   4200
      Width           =   1485
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Address"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   3
      Top             =   3600
      Width           =   1485
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "Sex"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   2
      Top             =   3000
      Width           =   1485
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "Name:"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   1
      Top             =   2400
      Width           =   1485
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "Employee No:"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   1200
      TabIndex        =   0
      Top             =   1920
      Width           =   1485
   End
End
Attribute VB_Name = "frmHRDEmpDet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdClose_Click()
frmHRDEmpDet.Visible = False
frmMain.Visible = True
End Sub

Private Sub cmdExit_Click()
If MsgBox("Are you sure you want to exit Hotel Mangement Sytem ?", vbQuestion + vbYesNo, "Confirm Exit !") = vbYes Then
End
End If
End Sub

Private Sub Form_Load()
MsgBox "Connecting Oracle.Please wait...", vbInformation, "Wait"
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "First"
  adoEmpDet.Recordset.MoveFirst
Case "Previous"
  If adoEmpDet.Recordset.BOF = True Then
   MsgBox " It has already reached the First record", , "Message"
   adoEmpDet.Recordset.MoveLast
  Else
   adoEmpDet.Recordset.MovePrevious
  End If
Case "Next"
  If adoEmpDet.Recordset.EOF = True Then
   MsgBox " It has already reached the Last record", vbInformation, "Message"
   adoEmpDet.Recordset.MoveFirst
  Else
  adoEmpDet.Recordset.MoveNext
  End If
Case "Last"
  adoEmpDet.Recordset.MoveLast
End Select
End Sub