VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Caption = "Address Book -04"
ClientHeight = 6240
ClientLeft = 0
ClientTop = 0
ClientWidth = 7395
Icon = "frmMain.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 416
ScaleMode = 3 'Pixel
ScaleWidth = 493
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 6210
Left = 0
Picture = "frmMain.frx":0ECA
ScaleHeight = 414
ScaleMode = 3 'Pixel
ScaleWidth = 486
TabIndex = 18
Top = 0
Width = 7290
Begin VB.TextBox txtDate
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
Height = 285
Left = 5640
TabIndex = 0
Top = 600
Width = 975
End
Begin VB.PictureBox picNew
Height = 375
Left = 6240
Picture = "frmMain.frx":94824
ScaleHeight = 315
ScaleWidth = 315
TabIndex = 58
Top = 5520
Visible = 0 'False
Width = 375
End
Begin VB.PictureBox picCancel
Height = 375
Left = 5760
Picture = "frmMain.frx":94DAE
ScaleHeight = 315
ScaleWidth = 315
TabIndex = 57
Top = 5520
Visible = 0 'False
Width = 375
End
Begin VB.TextBox txtTeleNoO
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
ForeColor = &H00000080&
Height = 195
Left = 5160
TabIndex = 7
Text = "Enter No."
Top = 3240
Width = 1575
End
Begin VB.TextBox txtNotes
Appearance = 0 'Flat
BackColor = &H00E3E7ED&
ForeColor = &H00000080&
Height = 915
Left = 1920
MultiLine = -1 'True
TabIndex = 9
Text = "frmMain.frx":95338
Top = 4080
Width = 3855
End
Begin VB.TextBox txtNickName
Appearance = 0 'Flat
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
ForeColor = &H00000080&
Height = 195
Left = 1920
TabIndex = 3
Text = "Enter Nick Name"
Top = 1320
Width = 1935
End
Begin VB.TextBox txtDOB
Appearance = 0 'Flat
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
ForeColor = &H00000080&
Height = 195
Left = 1920
TabIndex = 8
Text = "Enter DOB"
Top = 3600
Width = 1455
End
Begin VB.CommandButton cmdClose
BackColor = &H00E3E7ED&
Height = 375
Left = 5160
Picture = "frmMain.frx":95346
Style = 1 'Graphical
TabIndex = 17
ToolTipText = "Close Address Book"
Top = 5520
Width = 495
End
Begin VB.CommandButton cmdAbout
BackColor = &H00E3E7ED&
Height = 375
Left = 4680
Picture = "frmMain.frx":958D0
Style = 1 'Graphical
TabIndex = 16
ToolTipText = "About this address book"
Top = 5520
Width = 495
End
Begin VB.CommandButton cmdNext
BackColor = &H00E3E7ED&
Height = 375
Left = 3120
Picture = "frmMain.frx":95E5A
Style = 1 'Graphical
TabIndex = 14
ToolTipText = "Next Page"
Top = 5520
Width = 495
End
Begin VB.CommandButton cmdDelete
BackColor = &H00E3E7ED&
Height = 375
Left = 1920
Picture = "frmMain.frx":963E4
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "Delete Record"
Top = 5520
Width = 495
End
Begin VB.CommandButton cmdSave
BackColor = &H00E3E7ED&
Height = 375
Left = 1440
Picture = "frmMain.frx":9652E
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "Save Record"
Top = 5520
Width = 495
End
Begin VB.CommandButton cmdNew
BackColor = &H00E3E7ED&
Height = 375
Left = 960
Picture = "frmMain.frx":96AB8
Style = 1 'Graphical
TabIndex = 10
Tag = "New"
ToolTipText = "Add New Record"
Top = 5520
Width = 495
End
Begin VB.CommandButton cmdEmail
BackColor = &H00E3E7ED&
Height = 375
Left = 3840
Picture = "frmMain.frx":97042
Style = 1 'Graphical
TabIndex = 15
ToolTipText = "Send Email"
Top = 5520
Width = 735
End
Begin VB.CommandButton cmdPrev
BackColor = &H00E3E7ED&
Height = 375
Left = 2640
Picture = "frmMain.frx":9734C
Style = 1 'Graphical
TabIndex = 13
ToolTipText = "Previous Page"
Top = 5520
Width = 495
End
Begin VB.TextBox txtTeleNoR
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
BeginProperty DataFormat
Type = 0
Format = "( )- "
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
ForeColor = &H00000080&
Height = 195
Left = 5160
TabIndex = 6
Text = "Enter No."
Top = 2880
Width = 1575
End
Begin VB.TextBox txtEmail
Appearance = 0 'Flat
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
ForeColor = &H00000080&
Height = 195
Left = 1920
TabIndex = 5
Text = "Enter Email ID"
Top = 2880
Width = 1815
End
Begin VB.TextBox txtFName
Appearance = 0 'Flat
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
ForeColor = &H00000080&
Height = 195
Left = 1920
TabIndex = 1
Text = "Enter Name"
Top = 960
Width = 1695
End
Begin VB.TextBox txtAddress
Appearance = 0 'Flat
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
ForeColor = &H00000080&
Height = 915
Left = 1920
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Text = "frmMain.frx":978D6
Top = 1680
Width = 3135
End
Begin VB.TextBox txtLName
Appearance = 0 'Flat
BackColor = &H00E3E7ED&
BorderStyle = 0 'None
ForeColor = &H00000080&
Height = 195
Left = 4560
TabIndex = 2
Text = "Enter Last Name"
Top = 960
Width = 2415
End
Begin VB.Label lblLname
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "lname"
BeginProperty Font
Name = "Garamond"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Left = 1920
TabIndex = 61
Top = 360
Width = 570
End
Begin VB.Label lblFname
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "fname"
BeginProperty Font
Name = "Garamond"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Left = 960
TabIndex = 60
Top = 360
Width = 585
End
Begin VB.Label lblPosition
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 195
Left = 3360
TabIndex = 59
Top = 5160
Width = 45
End
Begin VB.Image Image1
Height = 720
Left = 6000
Picture = "frmMain.frx":978E6
ToolTipText = "Address Book -04"
Top = 1800
Width = 720
End
Begin VB.Line Line1
BorderColor = &H00AFC8D6&
Index = 7
X1 = 0
X2 = 416
Y1 = 0
Y2 = 0
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Additional Information"
Height = 495
Index = 10
Left = 960
TabIndex = 56
Top = 4080
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Nick Name"
Height = 255
Index = 9
Left = 960
TabIndex = 55
Top = 1320
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "DOB"
Height = 255
Index = 8
Left = 960
TabIndex = 54
Top = 3600
Width = 495
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "O"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 15
Left = 6960
MouseIcon = "frmMain.frx":987B0
MousePointer = 1 'Arrow
TabIndex = 39
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 3480
Width = 255
End
Begin VB.Label lblSrNO
BackColor = &H00E3E7ED&
Caption = "000"
Height = 255
Left = 5640
TabIndex = 53
Top = 240
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Serial No."
Height = 255
Index = 7
Left = 4800
TabIndex = 52
Top = 240
Width = 735
End
Begin VB.Line Line1
BorderColor = &H00E3E7ED&
BorderWidth = 3
Index = 4
X1 = 56
X2 = 464
Y1 = 88
Y2 = 88
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Tele-phone No. (O)"
Height = 255
Index = 6
Left = 3720
TabIndex = 51
Top = 3240
Width = 1455
End
Begin VB.Line Line1
BorderColor = &H00AFC8D6&
Index = 3
X1 = 56
X2 = 472
Y1 = 232
Y2 = 232
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Date"
Height = 255
Index = 5
Left = 4800
TabIndex = 50
Top = 600
Width = 495
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "E"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 25
Left = 6960
MouseIcon = "frmMain.frx":98ABA
MousePointer = 1 'Arrow
TabIndex = 49
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 1080
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "F"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 24
Left = 6960
MouseIcon = "frmMain.frx":98DC4
MousePointer = 1 'Arrow
TabIndex = 48
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 1320
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "G"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 23
Left = 6960
MouseIcon = "frmMain.frx":990CE
MousePointer = 1 'Arrow
TabIndex = 47
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 1560
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "H"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 22
Left = 6960
MouseIcon = "frmMain.frx":993D8
MousePointer = 1 'Arrow
TabIndex = 46
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 1800
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "I"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 21
Left = 6960
MouseIcon = "frmMain.frx":996E2
MousePointer = 1 'Arrow
TabIndex = 45
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 2040
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "J"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 20
Left = 6960
MouseIcon = "frmMain.frx":999EC
MousePointer = 1 'Arrow
TabIndex = 44
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 2280
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "K"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 19
Left = 6960
MouseIcon = "frmMain.frx":99CF6
MousePointer = 1 'Arrow
TabIndex = 43
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 2520
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "L"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 18
Left = 6960
MouseIcon = "frmMain.frx":9A000
MousePointer = 1 'Arrow
TabIndex = 42
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 2760
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "M"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 17
Left = 6960
MouseIcon = "frmMain.frx":9A30A
MousePointer = 1 'Arrow
TabIndex = 41
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 3000
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "N"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 16
Left = 6960
MouseIcon = "frmMain.frx":9A614
MousePointer = 1 'Arrow
TabIndex = 40
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 3240
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "P"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 14
Left = 6960
MouseIcon = "frmMain.frx":9A91E
MousePointer = 1 'Arrow
TabIndex = 38
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 3720
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "Q"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 13
Left = 6960
MouseIcon = "frmMain.frx":9AC28
MousePointer = 1 'Arrow
TabIndex = 37
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 3960
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "R"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 12
Left = 6960
MouseIcon = "frmMain.frx":9AF32
MousePointer = 1 'Arrow
TabIndex = 36
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 4200
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "S"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 11
Left = 6960
MouseIcon = "frmMain.frx":9B23C
MousePointer = 1 'Arrow
TabIndex = 35
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 4440
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "T"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 10
Left = 6960
MouseIcon = "frmMain.frx":9B546
MousePointer = 1 'Arrow
TabIndex = 34
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 4680
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "U"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 9
Left = 6960
MouseIcon = "frmMain.frx":9B850
MousePointer = 1 'Arrow
TabIndex = 33
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 4920
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "V"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 8
Left = 6960
MouseIcon = "frmMain.frx":9BB5A
MousePointer = 1 'Arrow
TabIndex = 32
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 5160
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "W"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 7
Left = 6960
MouseIcon = "frmMain.frx":9BE64
MousePointer = 1 'Arrow
TabIndex = 31
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 5400
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 6
Left = 6960
MouseIcon = "frmMain.frx":9C16E
MousePointer = 1 'Arrow
TabIndex = 30
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 5640
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "Y"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 5
Left = 6960
MouseIcon = "frmMain.frx":9C478
MousePointer = 1 'Arrow
TabIndex = 29
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 5880
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "Z"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 4
Left = 6720
MouseIcon = "frmMain.frx":9C782
MousePointer = 1 'Arrow
TabIndex = 28
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 5880
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "D"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 3
Left = 6960
MouseIcon = "frmMain.frx":9CA8C
MousePointer = 1 'Arrow
TabIndex = 27
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 840
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "C"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 2
Left = 6960
MouseIcon = "frmMain.frx":9CD96
MousePointer = 1 'Arrow
TabIndex = 26
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 600
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "B"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 1
Left = 6960
MouseIcon = "frmMain.frx":9D0A0
MousePointer = 1 'Arrow
TabIndex = 25
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 360
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "A"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Index = 0
Left = 6960
MouseIcon = "frmMain.frx":9D3AA
MousePointer = 1 'Arrow
TabIndex = 24
ToolTipText = "Click the buttons to move to next record with this letter"
Top = 120
Width = 255
End
Begin VB.Line Line1
BorderColor = &H00AFC8D6&
Index = 1
X1 = 56
X2 = 472
Y1 = 184
Y2 = 184
End
Begin VB.Line Line1
BorderColor = &H00AFC8D6&
Index = 0
X1 = 56
X2 = 472
Y1 = 80
Y2 = 80
End
Begin VB.Line Line1
BorderColor = &H00AFC8D6&
Index = 2
X1 = 56
X2 = 472
Y1 = 208
Y2 = 208
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Tele-phone No. (R)"
Height = 255
Index = 4
Left = 3720
TabIndex = 23
Top = 2880
Width = 1455
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Email ID"
Height = 255
Index = 3
Left = 960
TabIndex = 22
Top = 2880
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Address"
Height = 255
Index = 2
Left = 960
TabIndex = 21
Top = 1680
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Last Name"
Height = 255
Index = 1
Left = 3720
TabIndex = 20
Top = 960
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Name"
Height = 255
Index = 0
Left = 960
TabIndex = 19
Top = 960
Width = 855
End
Begin VB.Line Line1
BorderColor = &H00AFC8D6&
Index = 5
X1 = 56
X2 = 472
Y1 = 104
Y2 = 104
End
Begin VB.Line Line1
BorderColor = &H00AFC8D6&
Index = 6
X1 = 56
X2 = 472
Y1 = 256
Y2 = 256
End
Begin VB.Line Line1
BorderColor = &H00AFC8D6&
Index = 8
X1 = 48
X2 = 464
Y1 = 336
Y2 = 336
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'MODULE: FRMMAIN.FRM
'DESCRIPTION: STORES THE CONTACT DETAILS INTO THE DATABASE
'PROGRAMMER: PENUEL
'WARNING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'YOU ARE USING THIS CODE ON YOUR MACHINE OR ANY OTHER
'MACHINE AT YOUR OWN RISK, AND THE AUTHOR DOESNOT TAKE
'ANY RESPONSIBILITY OF THE DAMAGED CAUSED TO THE MACHINE
'DUE TO THIS CODE.
'**********************************************************
'THIS PROGRAM TAKES A SIGNIFICANT LOADING TIME
'DUE TO SHAPING THE FORM AND CONNECTING TO DATABASE
'IF YOU HAVE ANY SUGGESTIONS OR IMPROVEMENTS OR BUGS
'PLEASE MAIL ME AT share_code@lycos.com
'THANK YOU.
Option Explicit
'------------------API DECLARATIONS FOR NOTE BOOK SKIN-----------------------------------------------------------------------------------------------------------
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Const RGN_OR = 2
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
'----------------------API for sending mail-----------------------
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_MAXIMIZE = 3
'------------------DATABASE CONNECTION OBJECTS DECLARATIONS-----------------------------------------------------------------
Dim conAdd As ADODB.Connection
Dim rsAdd As ADODB.Recordset
Dim blnNew As Boolean
Dim bmark As Variant
Dim prevSearch As String
'-------------------------------------------------------------------------------------------------
Private Sub cmdAbout_Click()
Form2.Show vbModal
End Sub
Private Sub cmdClose_Click()
'CLOSE ALL CONNECTIONS AND RECORDSETS
On Error GoTo errhandler
rsAdd.Close
conAdd.Close
Unload Me
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Occured"
Unload Me
End Sub
Private Sub cmdDelete_Click()
'DELETE THE RECORD
On Error GoTo errhandler
If blnNew = True Then
Exit Sub
End If
If rsAdd.RecordCount = 0 Then 'IF NO RECORDS
MsgBox "There are no records to delete", vbExclamation, "Empty Address Book"
Exit Sub
End If
Dim intresponse As Integer
intresponse = MsgBox("Are you sure you want to delete this contact ?", vbYesNo + vbExclamation, "Confirm Delete")
If intresponse = vbYes Then 'DELETE RECORD
With rsAdd
.Delete
.MoveNext
If .EOF Then
.MovePrevious
If .BOF Then
MsgBox "No Records Left", vbInformation, "Empty Address Book"
lblPosition.Caption = "Record 0 OF 0"
End If
End If
End With
End If
lblPosition.Caption = "Record " & rsAdd.AbsolutePosition & " OF " & rsAdd.RecordCount
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Occured"
End Sub
Private Sub cmdEmail_Click()
'SEND EMAIL
On Error GoTo errhandler
If txtEmail.Text = "" Then
MsgBox "No Email ID specified.", vbExclamation, "Error sending mail"
Exit Sub
End If
ShellExecute Me.hwnd, "open", "mailto:" & txtEmail.Text, vbNullString, vbNullString, SW_MAXIMIZE
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Occured"
End Sub
Private Sub cmdNew_Click()
'ADD A NEW RECORD
On Error GoTo errhandler
If cmdNew.Tag = "New" Then
rsAdd.AddNew
With cmdNew
.Tag = "Cancel"
.Picture = picCancel.Picture
.ToolTipText = "Cancel Record Update"
End With
With txtDate
.Text = FormatDateTime(Date, vbShortDate)
.SetFocus
End With
blnNew = True
Else
rsAdd.CancelUpdate
With cmdNew
.Tag = "New"
.Picture = picNew.Picture
.ToolTipText = "Add New Record"
End With
blnNew = False
End If
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Occured"
End Sub
Private Sub cmdNext_Click()
'MOVE TO NEXT RECORD
On Error GoTo errhandler
If blnNew = True Then 'IF IN NEW RECORD MODE
Exit Sub
End If
If rsAdd.RecordCount <= 0 Then
MsgBox "No Records", vbExclamation, "Empty Address Book"
Exit Sub
End If
With rsAdd
.MoveNext
If .EOF Then
.MoveFirst
End If
End With
lblPosition.Caption = "Record " & rsAdd.AbsolutePosition & " OF " & rsAdd.RecordCount
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Occured"
End Sub
Private Sub cmdPrev_Click()
'MOVE TO PREVIOUS RECORD
On Error GoTo errhandler
If blnNew = True Then 'IF IN NEW RECORD MODE
Exit Sub
End If
If rsAdd.RecordCount <= 0 Then
MsgBox "No Records", vbExclamation, "Empty Address Book"
Exit Sub
End If
With rsAdd
.MovePrevious
If .BOF Then
.MoveLast
End If
End With
lblPosition.Caption = "Record " & rsAdd.AbsolutePosition & " OF " & rsAdd.RecordCount
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Occured"
End Sub
Private Sub cmdSave_Click()
'update the record
On Error GoTo errhandler
If txtFName.Text = "" Then 'REQUIRED FIELD
MsgBox "Please enter a first name of the addresse", vbInformation, "Data Missing"
txtFName.SetFocus
Exit Sub
End If
If txtAddress.Text = "" Then
MsgBox "Please enter a address", vbInformation, "Data Missing"
txtAddress.SetFocus
Exit Sub
End If
'UPDATE DATABASE
rsAdd.Update
With cmdNew
.Tag = "New"
.Picture = picNew.Picture
.ToolTipText = "Add New Record"
End With
blnNew = False
lblPosition.Caption = "Record " & rsAdd.AbsolutePosition & " OF " & rsAdd.RecordCount
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Saving Record"
End Sub
Private Sub Form_Load()
'WILL TAKE SIGNIFICANT LOADING TIME.
On Error GoTo errhandler
Dim transColor As Long
Dim newRgn, oldRgn, comprgn As Long
Dim picW As Long
Dim picH As Long
Dim X, Y As Integer
Dim startX As Integer
Dim rgnFound As Boolean
Dim firstFound As Boolean
rgnFound = False
firstFound = True
X = 0
Y = 0
'get the transparent color
Picture1.Top = 0
Picture1.Left = 0
picW = Picture1.ScaleWidth - 1
picH = Picture1.ScaleHeight - 1
transColor = GetPixel(Picture1.hdc, 0, 0)
'SCAN PIXEL BY PIXEL
For Y = 0 To picH
For X = 0 To picW
If GetPixel(Picture1.hdc, X, Y) = transColor Or X = Picture1.ScaleWidth - 1 Then
If rgnFound = True Then
rgnFound = False
newRgn = CreateRectRgn(startX, Y, X, Y + 1)
If firstFound = True Then
oldRgn = newRgn
firstFound = False
Else
'COMBINE NEW REGION WITH OLD REGION
comprgn = CombineRgn(oldRgn, oldRgn, newRgn, RGN_OR)
DeleteObject (newRgn)
End If
End If
Else
If rgnFound = False Then
rgnFound = True
startX = X
End If
End If
Next
Next
'SET THE WINDOW RGN WITH THE COMPLETE REGION
SetWindowRgn Me.hwnd, oldRgn, True
'----------------------OPEN CONNECTION WITH THE DATA BASE---------
Set conAdd = New ADODB.Connection
conAdd.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
App.Path & "\addressdb.mdb"
conAdd.CursorLocation = adUseServer
Set rsAdd = New ADODB.Recordset
rsAdd.Open "Select * from addresses order by Fname asc", conAdd, adOpenKeyset, adLockPessimistic
'SET THE DATASOURCE OF EACH CONTROL
With lblSrNO
Set .DataSource = rsAdd
.DataField = rsAdd("sr_no").Name
End With
With txtDate
Set .DataSource = rsAdd
.DataField = rsAdd("entrydt").Name
End With
With txtFName
Set .DataSource = rsAdd
.DataField = rsAdd("FName").Name
End With
With txtLName
Set .DataSource = rsAdd
.DataField = rsAdd("LName").Name
End With
With txtNickName
Set .DataSource = rsAdd
.DataField = rsAdd("NickName").Name
End With
With txtAddress
Set .DataSource = rsAdd
.DataField = rsAdd("Address").Name
End With
With txtEmail
Set .DataSource = rsAdd
.DataField = rsAdd("Email").Name
End With
With txtTeleNoR
Set .DataSource = rsAdd
.DataField = rsAdd("TeleR").Name
End With
With txtTeleNoO
Set .DataSource = rsAdd
.DataField = rsAdd("TeleO").Name
End With
With txtDOB
Set .DataSource = rsAdd
.DataField = rsAdd("DOB").Name
End With
With txtNotes
Set .DataSource = rsAdd
.DataField = rsAdd("Notes").Name
End With
If rsAdd.RecordCount = 0 Then
lblPosition.Caption = "Record 0 OF 0"
Else
lblPosition.Caption = "Record " & rsAdd.AbsolutePosition & " OF " & rsAdd.RecordCount
End If
blnNew = False
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Occured"
End
End Sub
Private Sub Label2_Click(Index As Integer)
'SEARCH FOR THE RECORDS
On Error GoTo errhandler
If blnNew = True Then 'IF NEW RECORD BEIGN ADDED THEN
Exit Sub
End If
If rsAdd.RecordCount = 0 Then 'IF NO RECORDS THEN
MsgBox "No Records to search", vbExclamation, "Empty Address Book"
Exit Sub
End If
If Label2(Index).Caption <> prevSearch Then 'ITS A NEW SEARCH
With rsAdd
.MoveFirst 'MOVE TO FIRST RECORD AND FIND THE FIRST MATCHING RECORD
.Find "Fname like '" & Label2(Index).Caption & "%'", , adSearchForward
If .EOF Then 'RECORD NOT FOUND
MsgBox "No Records Found", vbInformation, "Search Complete"
.MoveFirst
Else
bmark = .Bookmark
End If
End With
prevSearch = Label2(Index).Caption 'SAVE THE CURRENT SEARCH
Else 'FIND NEXT RECORDS FOR THE PREVIOUS SEARCH
With rsAdd
.Find "Fname like '" & Label2(Index).Caption & "%'", 1, adSearchForward
If .EOF Then 'ALL RECORDS SEARCHED
MsgBox "Finished Searching the record.", vbInformation, "Search Complete"
If Not IsEmpty(bmark) Then
.Bookmark = bmark
Else
.MoveFirst 'MOVE TO FIRST RECORD
End If
End If
End With
End If
'DISPLAY RECORD POSITION
lblPosition.Caption = "Record " & rsAdd.AbsolutePosition & " OF " & rsAdd.RecordCount
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Occured"
End Sub
Private Sub lblFname_Change()
lblLname.Left = lblFname.Left + lblFname.Width + 5
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'MOVE THE FORM
On Error GoTo errhandler
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, &H0
Exit Sub
errhandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Error Occured"
End Sub
Private Sub txtLName_Change()
lblLname.Caption = UCase(txtLName.Text)
End Sub
Private Sub txtFName_change()
lblFname.Caption = UCase(txtFName.Text)
End Sub
Private Sub txtTeleNoO_KeyPress(KeyAscii As Integer)
'ALLOW ONLY NUMERIC VALUES
If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Then
ElseIf KeyAscii = vbKeyBack Then
Else
KeyAscii = 0
Beep
End If
End Sub
Private Sub txtTeleNoR_KeyPress(KeyAscii As Integer)
'ALLOW ONLY NUMERIC VALUES
If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Then
ElseIf KeyAscii = vbKeyBack Then
Else
KeyAscii = 0
Beep
End If
End Sub
