Case 3 - Visual Basic - Object
VERSION 5.00
Begin VB.Form Form1
Caption = "Case 3 - VB"
ClientHeight = 8325
ClientLeft = 60
ClientTop = 345
ClientWidth = 4650
LinkTopic = "Form1"
ScaleHeight = 8325
ScaleWidth = 4650
StartUpPosition = 3 'Windows Default
Begin MSComctlLib.ListView lvwemployees
Height = 3015
Left = 360
TabIndex = 15
Top = 840
Width = 3975
_ExtentX = 7011
_ExtentY = 5318
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.ComboBox StatusMsgBox
BackColor = &H80000013&
Height = 315
Left = 120
Style = 2 'Dropdown List
TabIndex = 14
Top = 7920
Width = 4455
End
Begin VB.CommandButton cmdback
Caption = "Back"
Enabled = 0 'False
Height = 375
Left = 1080
Style = 1 'Graphical
TabIndex = 13
Top = 4080
Width = 1095
End
Begin VB.CommandButton cmdforward
Caption = "Forward"
Enabled = 0 'False
Height = 375
Left = 2520
Style = 1 'Graphical
TabIndex = 12
Top = 4080
Width = 1095
End
Begin VB.Frame frmEmployeeDetails
Caption = "Employee Details"
Height = 3015
Left = 360
TabIndex = 3
Top = 4680
Width = 3975
Begin VB.CommandButton cmdUpdate
Caption = "Update"
Enabled = 0 'False
Height = 375
Left = 1560
TabIndex = 11
Top = 2400
Width = 1095
End
Begin VB.TextBox uSalary
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 3081
SubFormatType = 1
EndProperty
Height = 350
Left = 1560
MaxLength = 11
TabIndex = 7
Text = "Salary"
Top = 1800
Width = 1215
End
Begin VB.TextBox uGiveName
Height = 350
Left = 1560
TabIndex = 6
Text = "Give Name"
Top = 840
Width = 1815
End
Begin VB.TextBox uSurname
Height = 345
Left = 1560
TabIndex = 5
Text = "Surname"
Top = 1320
Width = 1815
End
Begin VB.TextBox uNumber
BackColor = &H80000013&
Enabled = 0 'False
Height = 350
Left = 1560
TabIndex = 4
TabStop = 0 'False
Top = 360
Width = 1215
End
Begin VB.Label lblSalary
Caption = "Salary:"
Height = 345
Left = 240
TabIndex = 10
Top = 1800
Width = 855
End
Begin VB.Label LblName
Caption = "Name:"
Height = 225
Left = 240
TabIndex = 9
Top = 840
Width = 855
End
Begin VB.Label lblnumber
Caption = "Number:"
Height = 375
Left = 240
TabIndex = 8
Top = 360
Width = 735
End
End
Begin VB.CommandButton cmdSearch
Caption = "Search"
Default = -1 'True
Height = 375
Left = 2880
TabIndex = 2
Top = 240
Width = 1215
End
Begin VB.TextBox uDepartment
Height = 350
Left = 1800
TabIndex = 1
Text = "ADM"
Top = 240
Width = 495
End
Begin VB.Label lblDepartment
Caption = "Department:"
Height = 350
Left = 480
TabIndex = 0
Top = 240
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False