ad_main.frm

通信录

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00404080&
   Caption         =   "Address  diary"
   ClientHeight    =   6420
   ClientLeft      =   165
   ClientTop       =   390
   ClientWidth     =   5520
   HelpContextID   =   30
   LinkTopic       =   "MDIForm1"
   ScrollBars      =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Menu add 
      Caption         =   "&Add"
      HelpContextID   =   410
   End
   Begin VB.Menu view 
      Caption         =   "&View"
      HelpContextID   =   420
   End
   Begin VB.Menu delete_rec 
      Caption         =   "&Delete"
      HelpContextID   =   430
   End
   Begin VB.Menu Query 
      Caption         =   "&Query"
      HelpContextID   =   440
   End
   Begin VB.Menu exit 
      Caption         =   "E&xit"
      HelpContextID   =   450
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''Description: This is small program to handle address records of friends or contacts
''I call this project as My Address Diary
''Author : Sanjay Sharma Contact No:9419118285(M)
''Sainik Colony , Jammu , India
''E-Mail : [e-mail] , [e-mail]
''Bugs , Suggestions & Comments are well come
''This was my App. I own my PC.
''Please vote

Private Sub add_Click()
Load Form2

End Sub

Private Sub delete_rec_Click()
d_val = "del"

Load Form3

End Sub

Private Sub exit_Click()
Unload Me

End Sub



Private Sub MDIForm_Unload(Cancel As Integer)
If Not MsgBox("Are you sure ?", vbQuestion + vbYesNo, "Confirmation") = vbYes Then
Cancel = True
End If
End Sub

Private Sub Query_Click()
d_val = "qu"
Load Form3
End Sub

Private Sub view_Click()
Load Form1

End Sub