home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Simple_And2035541252006.psc / addbook.frm < prev    next >
Text File  |  2006-11-17  |  58KB  |  1,725 lines
  1. VERSION 5.00
  2. Begin VB.Form fromAddressBook 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Address Book"
  6.    ClientHeight    =   7860
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   8610
  10.    Icon            =   "addbook.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   7860
  15.    ScaleWidth      =   8610
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.Timer Timer2 
  18.       Interval        =   10
  19.       Left            =   7680
  20.       Top             =   5040
  21.    End
  22.    Begin VB.TextBox txtRowid 
  23.       Appearance      =   0  'Flat
  24.       BackColor       =   &H00C0FFFF&
  25.       DataField       =   "pincode"
  26.       DataSource      =   "Adodc1"
  27.       BeginProperty Font 
  28.          Name            =   "Verdana"
  29.          Size            =   8.25
  30.          Charset         =   0
  31.          Weight          =   700
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       ForeColor       =   &H00404080&
  37.       Height          =   345
  38.       Left            =   5370
  39.       Locked          =   -1  'True
  40.       TabIndex        =   44
  41.       Top             =   5130
  42.       Visible         =   0   'False
  43.       Width           =   645
  44.    End
  45.    Begin VB.TextBox txtRemarks 
  46.       Appearance      =   0  'Flat
  47.       BackColor       =   &H00C0FFFF&
  48.       DataField       =   "byear"
  49.       DataSource      =   "Adodc1"
  50.       BeginProperty Font 
  51.          Name            =   "Verdana"
  52.          Size            =   8.25
  53.          Charset         =   0
  54.          Weight          =   700
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       ForeColor       =   &H00404080&
  60.       Height          =   660
  61.       Left            =   1170
  62.       MultiLine       =   -1  'True
  63.       TabIndex        =   13
  64.       Top             =   4845
  65.       Width           =   3675
  66.    End
  67.    Begin VB.ComboBox CboGender 
  68.       Appearance      =   0  'Flat
  69.       BackColor       =   &H00C0FFFF&
  70.       DataField       =   "stream"
  71.       DataSource      =   "Adodc1"
  72.       BeginProperty Font 
  73.          Name            =   "Verdana"
  74.          Size            =   8.25
  75.          Charset         =   0
  76.          Weight          =   700
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       ForeColor       =   &H00404080&
  82.       Height          =   315
  83.       ItemData        =   "addbook.frx":0ECA
  84.       Left            =   1170
  85.       List            =   "addbook.frx":0ED4
  86.       Sorted          =   -1  'True
  87.       TabIndex        =   2
  88.       Text            =   "CboGender"
  89.       Top             =   930
  90.       Width           =   2220
  91.    End
  92.    Begin VB.Timer Timer1 
  93.       Interval        =   1000
  94.       Left            =   7140
  95.       Top             =   5010
  96.    End
  97.    Begin VB.Frame Frame1 
  98.       BackColor       =   &H00C0FFFF&
  99.       BorderStyle     =   0  'None
  100.       ForeColor       =   &H00C0FFFF&
  101.       Height          =   4605
  102.       Left            =   4950
  103.       TabIndex        =   37
  104.       Top             =   510
  105.       Visible         =   0   'False
  106.       Width           =   3555
  107.       Begin VB.OptionButton Option3 
  108.          BackColor       =   &H00C0FFFF&
  109.          Caption         =   "Female"
  110.          BeginProperty Font 
  111.             Name            =   "MS Sans Serif"
  112.             Size            =   8.25
  113.             Charset         =   0
  114.             Weight          =   700
  115.             Underline       =   0   'False
  116.             Italic          =   0   'False
  117.             Strikethrough   =   0   'False
  118.          EndProperty
  119.          Height          =   225
  120.          Left            =   2430
  121.          TabIndex        =   47
  122.          Top             =   180
  123.          Width           =   975
  124.       End
  125.       Begin VB.OptionButton Option2 
  126.          BackColor       =   &H00C0FFFF&
  127.          Caption         =   "All"
  128.          BeginProperty Font 
  129.             Name            =   "MS Sans Serif"
  130.             Size            =   8.25
  131.             Charset         =   0
  132.             Weight          =   700
  133.             Underline       =   0   'False
  134.             Italic          =   0   'False
  135.             Strikethrough   =   0   'False
  136.          EndProperty
  137.          Height          =   225
  138.          Left            =   300
  139.          TabIndex        =   46
  140.          Top             =   210
  141.          Value           =   -1  'True
  142.          Width           =   855
  143.       End
  144.       Begin VB.OptionButton Option1 
  145.          BackColor       =   &H00C0FFFF&
  146.          Caption         =   "Male"
  147.          BeginProperty Font 
  148.             Name            =   "MS Sans Serif"
  149.             Size            =   8.25
  150.             Charset         =   0
  151.             Weight          =   700
  152.             Underline       =   0   'False
  153.             Italic          =   0   'False
  154.             Strikethrough   =   0   'False
  155.          EndProperty
  156.          ForeColor       =   &H00C0FFFF&
  157.          Height          =   225
  158.          Left            =   1350
  159.          TabIndex        =   45
  160.          Top             =   180
  161.          Width           =   855
  162.       End
  163.       Begin VB.ListBox lstSearch 
  164.          Appearance      =   0  'Flat
  165.          BackColor       =   &H00C0C0FF&
  166.          BeginProperty Font 
  167.             Name            =   "Verdana"
  168.             Size            =   8.25
  169.             Charset         =   0
  170.             Weight          =   700
  171.             Underline       =   0   'False
  172.             Italic          =   0   'False
  173.             Strikethrough   =   0   'False
  174.          EndProperty
  175.          ForeColor       =   &H00004080&
  176.          Height          =   2565
  177.          ItemData        =   "addbook.frx":0EE6
  178.          Left            =   150
  179.          List            =   "addbook.frx":0EE8
  180.          TabIndex        =   27
  181.          ToolTipText     =   "Double click on Selected Item"
  182.          Top             =   1830
  183.          Width           =   3255
  184.       End
  185.       Begin VB.TextBox txtcontaining 
  186.          Appearance      =   0  'Flat
  187.          BackColor       =   &H00C0E0FF&
  188.          BeginProperty Font 
  189.             Name            =   "Verdana"
  190.             Size            =   8.25
  191.             Charset         =   0
  192.             Weight          =   700
  193.             Underline       =   0   'False
  194.             Italic          =   0   'False
  195.             Strikethrough   =   0   'False
  196.          EndProperty
  197.          ForeColor       =   &H00004080&
  198.          Height          =   315
  199.          Left            =   1080
  200.          TabIndex        =   28
  201.          Top             =   990
  202.          Width           =   2325
  203.       End
  204.       Begin VB.CommandButton cmdCancel1 
  205.          BackColor       =   &H00C0E0FF&
  206.          Caption         =   "Ca&ncel"
  207.          BeginProperty Font 
  208.             Name            =   "Verdana"
  209.             Size            =   8.25
  210.             Charset         =   0
  211.             Weight          =   700
  212.             Underline       =   0   'False
  213.             Italic          =   0   'False
  214.             Strikethrough   =   0   'False
  215.          EndProperty
  216.          Height          =   345
  217.          Left            =   2430
  218.          Style           =   1  'Graphical
  219.          TabIndex        =   26
  220.          Top             =   1380
  221.          Width           =   975
  222.       End
  223.       Begin VB.ComboBox cboSearch 
  224.          BackColor       =   &H00C0E0FF&
  225.          BeginProperty Font 
  226.             Name            =   "Verdana"
  227.             Size            =   8.25
  228.             Charset         =   0
  229.             Weight          =   700
  230.             Underline       =   0   'False
  231.             Italic          =   0   'False
  232.             Strikethrough   =   0   'False
  233.          EndProperty
  234.          ForeColor       =   &H00004080&
  235.          Height          =   315
  236.          ItemData        =   "addbook.frx":0EEA
  237.          Left            =   1080
  238.          List            =   "addbook.frx":0F0F
  239.          Style           =   2  'Dropdown List
  240.          TabIndex        =   25
  241.          Top             =   600
  242.          Width           =   2325
  243.       End
  244.       Begin VB.Label Label2 
  245.          BackColor       =   &H00C0FFFF&
  246.          Caption         =   "Value"
  247.          BeginProperty Font 
  248.             Name            =   "Verdana"
  249.             Size            =   8.25
  250.             Charset         =   0
  251.             Weight          =   700
  252.             Underline       =   0   'False
  253.             Italic          =   0   'False
  254.             Strikethrough   =   0   'False
  255.          EndProperty
  256.          ForeColor       =   &H00000040&
  257.          Height          =   285
  258.          Left            =   330
  259.          TabIndex        =   39
  260.          Top             =   990
  261.          Width           =   675
  262.       End
  263.       Begin VB.Label lblfield 
  264.          BackColor       =   &H00C0FFFF&
  265.          Caption         =   "Search"
  266.          BeginProperty Font 
  267.             Name            =   "Verdana"
  268.             Size            =   8.25
  269.             Charset         =   0
  270.             Weight          =   700
  271.             Underline       =   0   'False
  272.             Italic          =   0   'False
  273.             Strikethrough   =   0   'False
  274.          EndProperty
  275.          ForeColor       =   &H00000040&
  276.          Height          =   285
  277.          Left            =   300
  278.          TabIndex        =   38
  279.          Top             =   600
  280.          Width           =   705
  281.       End
  282.    End
  283.    Begin VB.CommandButton cmdcancel 
  284.       BackColor       =   &H00C0E0FF&
  285.       Caption         =   "&Cancel"
  286.       BeginProperty Font 
  287.          Name            =   "Verdana"
  288.          Size            =   8.25
  289.          Charset         =   0
  290.          Weight          =   700
  291.          Underline       =   0   'False
  292.          Italic          =   0   'False
  293.          Strikethrough   =   0   'False
  294.       EndProperty
  295.       Height          =   345
  296.       Left            =   2790
  297.       MaskColor       =   &H00FFFFFF&
  298.       Style           =   1  'Graphical
  299.       TabIndex        =   23
  300.       Top             =   5910
  301.       Visible         =   0   'False
  302.       Width           =   855
  303.    End
  304.    Begin VB.CommandButton cmdsave 
  305.       BackColor       =   &H00C0E0FF&
  306.       Caption         =   "&Save"
  307.       BeginProperty Font 
  308.          Name            =   "Verdana"
  309.          Size            =   8.25
  310.          Charset         =   0
  311.          Weight          =   700
  312.          Underline       =   0   'False
  313.          Italic          =   0   'False
  314.          Strikethrough   =   0   'False
  315.       EndProperty
  316.       Height          =   345
  317.       Left            =   1935
  318.       Style           =   1  'Graphical
  319.       TabIndex        =   22
  320.       Top             =   5910
  321.       Visible         =   0   'False
  322.       Width           =   855
  323.    End
  324.    Begin VB.CommandButton cmdSearch 
  325.       BackColor       =   &H00C0E0FF&
  326.       Caption         =   "Searc&h"
  327.       BeginProperty Font 
  328.          Name            =   "Verdana"
  329.          Size            =   8.25
  330.          Charset         =   0
  331.          Weight          =   700
  332.          Underline       =   0   'False
  333.          Italic          =   0   'False
  334.          Strikethrough   =   0   'False
  335.       EndProperty
  336.       Height          =   405
  337.       Left            =   1515
  338.       Style           =   1  'Graphical
  339.       TabIndex        =   0
  340.       Top             =   6270
  341.       Width           =   2520
  342.    End
  343.    Begin VB.CommandButton cmdexit 
  344.       Appearance      =   0  'Flat
  345.       BackColor       =   &H00C0E0FF&
  346.       Caption         =   "E&xit"
  347.       BeginProperty Font 
  348.          Name            =   "Verdana"
  349.          Size            =   8.25
  350.          Charset         =   0
  351.          Weight          =   700
  352.          Underline       =   0   'False
  353.          Italic          =   0   'False
  354.          Strikethrough   =   0   'False
  355.       EndProperty
  356.       Height          =   345
  357.       Left            =   3630
  358.       Style           =   1  'Graphical
  359.       TabIndex        =   21
  360.       Top             =   5910
  361.       Width           =   855
  362.    End
  363.    Begin VB.CommandButton cmdDel 
  364.       BackColor       =   &H00C0E0FF&
  365.       Caption         =   "&Delete"
  366.       BeginProperty Font 
  367.          Name            =   "Verdana"
  368.          Size            =   8.25
  369.          Charset         =   0
  370.          Weight          =   700
  371.          Underline       =   0   'False
  372.          Italic          =   0   'False
  373.          Strikethrough   =   0   'False
  374.       EndProperty
  375.       Height          =   345
  376.       Left            =   2775
  377.       Style           =   1  'Graphical
  378.       TabIndex        =   20
  379.       Top             =   5910
  380.       Width           =   855
  381.    End
  382.    Begin VB.CommandButton cmdedit 
  383.       BackColor       =   &H00C0E0FF&
  384.       Caption         =   "&Edit"
  385.       BeginProperty Font 
  386.          Name            =   "Verdana"
  387.          Size            =   8.25
  388.          Charset         =   0
  389.          Weight          =   700
  390.          Underline       =   0   'False
  391.          Italic          =   0   'False
  392.          Strikethrough   =   0   'False
  393.       EndProperty
  394.       Height          =   345
  395.       Left            =   1920
  396.       Style           =   1  'Graphical
  397.       TabIndex        =   19
  398.       Top             =   5910
  399.       Width           =   855
  400.    End
  401.    Begin VB.CommandButton cmdadd 
  402.       BackColor       =   &H00C0E0FF&
  403.       Caption         =   "&Add"
  404.       BeginProperty Font 
  405.          Name            =   "Verdana"
  406.          Size            =   8.25
  407.          Charset         =   0
  408.          Weight          =   700
  409.          Underline       =   0   'False
  410.          Italic          =   0   'False
  411.          Strikethrough   =   0   'False
  412.       EndProperty
  413.       Height          =   345
  414.       Left            =   1065
  415.       Style           =   1  'Graphical
  416.       TabIndex        =   18
  417.       Top             =   5910
  418.       Width           =   855
  419.    End
  420.    Begin VB.CommandButton cmdlast 
  421.       BackColor       =   &H00C0E0FF&
  422.       Height          =   315
  423.       Left            =   3450
  424.       MaskColor       =   &H0000C0C0&
  425.       Picture         =   "addbook.frx":0F76
  426.       Style           =   1  'Graphical
  427.       TabIndex        =   17
  428.       ToolTipText     =   "Last Record"
  429.       Top             =   5580
  430.       Width           =   645
  431.    End
  432.    Begin VB.CommandButton cmdnext 
  433.       BackColor       =   &H00C0E0FF&
  434.       Height          =   315
  435.       Left            =   2805
  436.       Picture         =   "addbook.frx":10E8
  437.       Style           =   1  'Graphical
  438.       TabIndex        =   16
  439.       ToolTipText     =   "Next Record"
  440.       Top             =   5580
  441.       Width           =   645
  442.    End
  443.    Begin VB.CommandButton cmdprev 
  444.       BackColor       =   &H00C0E0FF&
  445.       Height          =   315
  446.       Left            =   2160
  447.       Picture         =   "addbook.frx":125A
  448.       Style           =   1  'Graphical
  449.       TabIndex        =   15
  450.       ToolTipText     =   "Previous Record"
  451.       Top             =   5580
  452.       Width           =   645
  453.    End
  454.    Begin VB.CommandButton cmdfirst 
  455.       BackColor       =   &H00C0E0FF&
  456.       Height          =   315
  457.       Left            =   1515
  458.       Picture         =   "addbook.frx":13CC
  459.       Style           =   1  'Graphical
  460.       TabIndex        =   14
  461.       ToolTipText     =   "First Record"
  462.       Top             =   5580
  463.       Width           =   645
  464.    End
  465.    Begin VB.ComboBox cbostream 
  466.       Appearance      =   0  'Flat
  467.       BackColor       =   &H00C0FFFF&
  468.       DataField       =   "stream"
  469.       DataSource      =   "Adodc1"
  470.       BeginProperty Font 
  471.          Name            =   "Verdana"
  472.          Size            =   8.25
  473.          Charset         =   0
  474.          Weight          =   700
  475.          Underline       =   0   'False
  476.          Italic          =   0   'False
  477.          Strikethrough   =   0   'False
  478.       EndProperty
  479.       ForeColor       =   &H00404080&
  480.       Height          =   315
  481.       ItemData        =   "addbook.frx":153E
  482.       Left            =   1170
  483.       List            =   "addbook.frx":157B
  484.       Locked          =   -1  'True
  485.       Sorted          =   -1  'True
  486.       TabIndex        =   3
  487.       Top             =   1350
  488.       Width           =   2220
  489.    End
  490.    Begin VB.ComboBox cboyear 
  491.       Appearance      =   0  'Flat
  492.       BackColor       =   &H00C0FFFF&
  493.       DataField       =   "byear"
  494.       DataSource      =   "Adodc1"
  495.       BeginProperty Font 
  496.          Name            =   "Verdana"
  497.          Size            =   8.25
  498.          Charset         =   0
  499.          Weight          =   700
  500.          Underline       =   0   'False
  501.          Italic          =   0   'False
  502.          Strikethrough   =   0   'False
  503.       EndProperty
  504.       ForeColor       =   &H00404080&
  505.       Height          =   315
  506.       Left            =   3570
  507.       Locked          =   -1  'True
  508.       Sorted          =   -1  'True
  509.       TabIndex        =   11
  510.       Top             =   4080
  511.       Width           =   1275
  512.    End
  513.    Begin VB.ComboBox cbomonth 
  514.       Appearance      =   0  'Flat
  515.       BackColor       =   &H00C0FFFF&
  516.       DataField       =   "bmonth"
  517.       DataSource      =   "Adodc1"
  518.       BeginProperty Font 
  519.          Name            =   "Verdana"
  520.          Size            =   8.25
  521.          Charset         =   0
  522.          Weight          =   700
  523.          Underline       =   0   'False
  524.          Italic          =   0   'False
  525.          Strikethrough   =   0   'False
  526.       EndProperty
  527.       ForeColor       =   &H00404080&
  528.       Height          =   315
  529.       ItemData        =   "addbook.frx":1603
  530.       Left            =   2010
  531.       List            =   "addbook.frx":162B
  532.       Locked          =   -1  'True
  533.       TabIndex        =   10
  534.       Top             =   4080
  535.       Width           =   1485
  536.    End
  537.    Begin VB.ComboBox cbodate 
  538.       Appearance      =   0  'Flat
  539.       BackColor       =   &H00C0FFFF&
  540.       DataField       =   "bdate"
  541.       DataSource      =   "Adodc1"
  542.       BeginProperty Font 
  543.          Name            =   "Verdana"
  544.          Size            =   8.25
  545.          Charset         =   0
  546.          Weight          =   700
  547.          Underline       =   0   'False
  548.          Italic          =   0   'False
  549.          Strikethrough   =   0   'False
  550.       EndProperty
  551.       ForeColor       =   &H00404080&
  552.       Height          =   315
  553.       Left            =   1170
  554.       Locked          =   -1  'True
  555.       TabIndex        =   9
  556.       Top             =   4080
  557.       Width           =   765
  558.    End
  559.    Begin VB.TextBox txtemail 
  560.       Appearance      =   0  'Flat
  561.       BackColor       =   &H00C0FFFF&
  562.       DataField       =   "byear"
  563.       DataSource      =   "Adodc1"
  564.       BeginProperty Font 
  565.          Name            =   "Verdana"
  566.          Size            =   8.25
  567.          Charset         =   0
  568.          Weight          =   700
  569.          Underline       =   0   'False
  570.          Italic          =   0   'False
  571.          Strikethrough   =   0   'False
  572.       EndProperty
  573.       ForeColor       =   &H00404080&
  574.       Height          =   345
  575.       Left            =   1170
  576.       Locked          =   -1  'True
  577.       TabIndex        =   12
  578.       Top             =   4440
  579.       Width           =   3675
  580.    End
  581.    Begin VB.TextBox txtphone 
  582.       Appearance      =   0  'Flat
  583.       BackColor       =   &H00C0FFFF&
  584.       DataField       =   "phoneno"
  585.       DataSource      =   "Adodc1"
  586.       BeginProperty Font 
  587.          Name            =   "Verdana"
  588.          Size            =   8.25
  589.          Charset         =   0
  590.          Weight          =   700
  591.          Underline       =   0   'False
  592.          Italic          =   0   'False
  593.          Strikethrough   =   0   'False
  594.       EndProperty
  595.       ForeColor       =   &H00404080&
  596.       Height          =   345
  597.       Left            =   1170
  598.       Locked          =   -1  'True
  599.       TabIndex        =   8
  600.       Top             =   3690
  601.       Width           =   3675
  602.    End
  603.    Begin VB.TextBox txtpincode 
  604.       Appearance      =   0  'Flat
  605.       BackColor       =   &H00C0FFFF&
  606.       DataField       =   "pincode"
  607.       DataSource      =   "Adodc1"
  608.       BeginProperty Font 
  609.          Name            =   "Verdana"
  610.          Size            =   8.25
  611.          Charset         =   0
  612.          Weight          =   700
  613.          Underline       =   0   'False
  614.          Italic          =   0   'False
  615.          Strikethrough   =   0   'False
  616.       EndProperty
  617.       ForeColor       =   &H00404080&
  618.       Height          =   345
  619.       Left            =   1170
  620.       Locked          =   -1  'True
  621.       TabIndex        =   7
  622.       Top             =   3300
  623.       Width           =   2235
  624.    End
  625.    Begin VB.TextBox txtdistrict 
  626.       Appearance      =   0  'Flat
  627.       BackColor       =   &H00C0FFFF&
  628.       DataField       =   "district"
  629.       DataSource      =   "Adodc1"
  630.       BeginProperty Font 
  631.          Name            =   "Verdana"
  632.          Size            =   8.25
  633.          Charset         =   0
  634.          Weight          =   700
  635.          Underline       =   0   'False
  636.          Italic          =   0   'False
  637.          Strikethrough   =   0   'False
  638.       EndProperty
  639.       ForeColor       =   &H00404080&
  640.       Height          =   345
  641.       Left            =   1170
  642.       Locked          =   -1  'True
  643.       TabIndex        =   6
  644.       Top             =   2910
  645.       Width           =   2235
  646.    End
  647.    Begin VB.TextBox txttaluka 
  648.       Appearance      =   0  'Flat
  649.       BackColor       =   &H00C0FFFF&
  650.       DataField       =   "taluka"
  651.       DataSource      =   "Adodc1"
  652.       BeginProperty Font 
  653.          Name            =   "Verdana"
  654.          Size            =   8.25
  655.          Charset         =   0
  656.          Weight          =   700
  657.          Underline       =   0   'False
  658.          Italic          =   0   'False
  659.          Strikethrough   =   0   'False
  660.       EndProperty
  661.       ForeColor       =   &H00404080&
  662.       Height          =   345
  663.       Left            =   1170
  664.       Locked          =   -1  'True
  665.       TabIndex        =   5
  666.       Top             =   2520
  667.       Width           =   2235
  668.    End
  669.    Begin VB.TextBox txtaddress 
  670.       Appearance      =   0  'Flat
  671.       BackColor       =   &H00C0FFFF&
  672.       DataField       =   "address"
  673.       DataSource      =   "Adodc1"
  674.       BeginProperty Font 
  675.          Name            =   "Verdana"
  676.          Size            =   8.25
  677.          Charset         =   0
  678.          Weight          =   700
  679.          Underline       =   0   'False
  680.          Italic          =   0   'False
  681.          Strikethrough   =   0   'False
  682.       EndProperty
  683.       ForeColor       =   &H00404080&
  684.       Height          =   735
  685.       Left            =   1170
  686.       Locked          =   -1  'True
  687.       MultiLine       =   -1  'True
  688.       TabIndex        =   4
  689.       Top             =   1740
  690.       Width           =   3675
  691.    End
  692.    Begin VB.TextBox txtname 
  693.       Appearance      =   0  'Flat
  694.       BackColor       =   &H00C0FFFF&
  695.       DataField       =   "name"
  696.       DataSource      =   "Adodc1"
  697.       BeginProperty Font 
  698.          Name            =   "Verdana"
  699.          Size            =   8.25
  700.          Charset         =   0
  701.          Weight          =   700
  702.          Underline       =   0   'False
  703.          Italic          =   0   'False
  704.          Strikethrough   =   0   'False
  705.       EndProperty
  706.       ForeColor       =   &H00404080&
  707.       Height          =   345
  708.       Left            =   1170
  709.       Locked          =   -1  'True
  710.       TabIndex        =   1
  711.       Top             =   510
  712.       Width           =   3675
  713.    End
  714.    Begin VB.Label Label15 
  715.       AutoSize        =   -1  'True
  716.       BackColor       =   &H008080FF&
  717.       Caption         =   "Developed By : Chetan Patel"
  718.       BeginProperty Font 
  719.          Name            =   "Verdana"
  720.          Size            =   9.75
  721.          Charset         =   0
  722.          Weight          =   700
  723.          Underline       =   0   'False
  724.          Italic          =   0   'False
  725.          Strikethrough   =   0   'False
  726.       EndProperty
  727.       ForeColor       =   &H00FFFFFF&
  728.       Height          =   240
  729.       Left            =   8310
  730.       TabIndex        =   59
  731.       Top             =   7440
  732.       Width           =   3090
  733.    End
  734.    Begin VB.Label Label13 
  735.       BackColor       =   &H00E0E0E0&
  736.       Caption         =   "-: Birth Day :-"
  737.       BeginProperty Font 
  738.          Name            =   "Verdana"
  739.          Size            =   8.25
  740.          Charset         =   0
  741.          Weight          =   700
  742.          Underline       =   0   'False
  743.          Italic          =   0   'False
  744.          Strikethrough   =   0   'False
  745.       EndProperty
  746.       ForeColor       =   &H00000040&
  747.       Height          =   195
  748.       Left            =   6090
  749.       TabIndex        =   57
  750.       Top             =   5250
  751.       Width           =   1410
  752.    End
  753.    Begin VB.Label Label12 
  754.       BackColor       =   &H00E0E0E0&
  755.       Caption         =   "Still to Come"
  756.       BeginProperty Font 
  757.          Name            =   "Verdana"
  758.          Size            =   8.25
  759.          Charset         =   0
  760.          Weight          =   700
  761.          Underline       =   0   'False
  762.          Italic          =   0   'False
  763.          Strikethrough   =   0   'False
  764.       EndProperty
  765.       ForeColor       =   &H00000040&
  766.       Height          =   195
  767.       Left            =   6360
  768.       TabIndex        =   56
  769.       Top             =   6240
  770.       Width           =   1260
  771.    End
  772.    Begin VB.Label Label11 
  773.       Alignment       =   2  'Center
  774.       BackColor       =   &H00FF8080&
  775.       BeginProperty Font 
  776.          Name            =   "Georgia"
  777.          Size            =   9.75
  778.          Charset         =   0
  779.          Weight          =   700
  780.          Underline       =   0   'False
  781.          Italic          =   0   'False
  782.          Strikethrough   =   0   'False
  783.       EndProperty
  784.       ForeColor       =   &H00FFFFFF&
  785.       Height          =   255
  786.       Left            =   6030
  787.       TabIndex        =   55
  788.       ToolTipText     =   "It Displays Birthday which is within previous 7 Days and Next 15 Days"
  789.       Top             =   6240
  790.       Width           =   285
  791.    End
  792.    Begin VB.Label Label10 
  793.       BackColor       =   &H00E0E0E0&
  794.       Caption         =   "Today"
  795.       BeginProperty Font 
  796.          Name            =   "Verdana"
  797.          Size            =   8.25
  798.          Charset         =   0
  799.          Weight          =   700
  800.          Underline       =   0   'False
  801.          Italic          =   0   'False
  802.          Strikethrough   =   0   'False
  803.       EndProperty
  804.       ForeColor       =   &H00000040&
  805.       Height          =   195
  806.       Left            =   6360
  807.       TabIndex        =   54
  808.       Top             =   5910
  809.       Width           =   630
  810.    End
  811.    Begin VB.Label Label8 
  812.       Alignment       =   2  'Center
  813.       BackColor       =   &H000000C0&
  814.       BeginProperty Font 
  815.          Name            =   "Georgia"
  816.          Size            =   9.75
  817.          Charset         =   0
  818.          Weight          =   700
  819.          Underline       =   0   'False
  820.          Italic          =   0   'False
  821.          Strikethrough   =   0   'False
  822.       EndProperty
  823.       ForeColor       =   &H00FFFFFF&
  824.       Height          =   255
  825.       Left            =   6030
  826.       TabIndex        =   53
  827.       ToolTipText     =   "It Displays Birthday which is within previous 7 Days and Next 15 Days"
  828.       Top             =   5910
  829.       Width           =   285
  830.    End
  831.    Begin VB.Label Label7 
  832.       BackColor       =   &H00E0E0E0&
  833.       Caption         =   "Gone"
  834.       BeginProperty Font 
  835.          Name            =   "Verdana"
  836.          Size            =   8.25
  837.          Charset         =   0
  838.          Weight          =   700
  839.          Underline       =   0   'False
  840.          Italic          =   0   'False
  841.          Strikethrough   =   0   'False
  842.       EndProperty
  843.       ForeColor       =   &H00000040&
  844.       Height          =   195
  845.       Left            =   6360
  846.       TabIndex        =   52
  847.       Top             =   5550
  848.       Width           =   540
  849.    End
  850.    Begin VB.Label Label6 
  851.       Alignment       =   2  'Center
  852.       BackColor       =   &H00C0FFFF&
  853.       BeginProperty Font 
  854.          Name            =   "Georgia"
  855.          Size            =   9.75
  856.          Charset         =   0
  857.          Weight          =   700
  858.          Underline       =   0   'False
  859.          Italic          =   0   'False
  860.          Strikethrough   =   0   'False
  861.       EndProperty
  862.       ForeColor       =   &H00FFFFFF&
  863.       Height          =   255
  864.       Left            =   6030
  865.       TabIndex        =   51
  866.       ToolTipText     =   "It Displays Birthday which is within previous 7 Days and Next 15 Days"
  867.       Top             =   5550
  868.       Width           =   285
  869.    End
  870.    Begin VB.Label lblBDMOnth 
  871.       Alignment       =   2  'Center
  872.       BackColor       =   &H008080FF&
  873.       BeginProperty Font 
  874.          Name            =   "Georgia"
  875.          Size            =   9.75
  876.          Charset         =   0
  877.          Weight          =   700
  878.          Underline       =   0   'False
  879.          Italic          =   0   'False
  880.          Strikethrough   =   0   'False
  881.       EndProperty
  882.       ForeColor       =   &H00FFFFFF&
  883.       Height          =   285
  884.       Left            =   2220
  885.       TabIndex        =   50
  886.       ToolTipText     =   "It Displays Birthday which is within previous 7 Days and Next 15 Days from today"
  887.       Top             =   7080
  888.       Width           =   1395
  889.    End
  890.    Begin VB.Label lblBDDate 
  891.       Alignment       =   2  'Center
  892.       BackColor       =   &H008080FF&
  893.       BeginProperty Font 
  894.          Name            =   "Georgia"
  895.          Size            =   9.75
  896.          Charset         =   0
  897.          Weight          =   700
  898.          Underline       =   0   'False
  899.          Italic          =   0   'False
  900.          Strikethrough   =   0   'False
  901.       EndProperty
  902.       ForeColor       =   &H00FFFFFF&
  903.       Height          =   285
  904.       Left            =   1740
  905.       TabIndex        =   49
  906.       ToolTipText     =   "It Displays Birthday which is within previous 7 Days and Next 15 Days from today"
  907.       Top             =   7080
  908.       Width           =   435
  909.    End
  910.    Begin VB.Label lblBDName 
  911.       Alignment       =   2  'Center
  912.       BackColor       =   &H008080FF&
  913.       BeginProperty Font 
  914.          Name            =   "Georgia"
  915.          Size            =   9.75
  916.          Charset         =   0
  917.          Weight          =   700
  918.          Underline       =   0   'False
  919.          Italic          =   0   'False
  920.          Strikethrough   =   0   'False
  921.       EndProperty
  922.       ForeColor       =   &H00FFFFFF&
  923.       Height          =   285
  924.       Left            =   720
  925.       TabIndex        =   48
  926.       ToolTipText     =   "It Displays Birthday which is within previous 7 Days and Next 15 Days from today"
  927.       Top             =   6750
  928.       Width           =   3915
  929.    End
  930.    Begin VB.Label Label5 
  931.       BackColor       =   &H00FFFFFF&
  932.       Caption         =   "Remarks"
  933.       BeginProperty Font 
  934.          Name            =   "Verdana"
  935.          Size            =   8.25
  936.          Charset         =   0
  937.          Weight          =   700
  938.          Underline       =   0   'False
  939.          Italic          =   0   'False
  940.          Strikethrough   =   0   'False
  941.       EndProperty
  942.       ForeColor       =   &H00000040&
  943.       Height          =   225
  944.       Left            =   105
  945.       TabIndex        =   43
  946.       Top             =   4905
  947.       Width           =   930
  948.    End
  949.    Begin VB.Label Label4 
  950.       BackColor       =   &H00FFFFFF&
  951.       Caption         =   "Gender"
  952.       BeginProperty Font 
  953.          Name            =   "Verdana"
  954.          Size            =   8.25
  955.          Charset         =   0
  956.          Weight          =   700
  957.          Underline       =   0   'False
  958.          Italic          =   0   'False
  959.          Strikethrough   =   0   'False
  960.       EndProperty
  961.       ForeColor       =   &H00000040&
  962.       Height          =   255
  963.       Left            =   90
  964.       TabIndex        =   42
  965.       Top             =   930
  966.       Width           =   1035
  967.    End
  968.    Begin VB.Label Label3 
  969.       BackColor       =   &H008080FF&
  970.       BeginProperty Font 
  971.          Name            =   "Georgia"
  972.          Size            =   12
  973.          Charset         =   0
  974.          Weight          =   700
  975.          Underline       =   0   'False
  976.          Italic          =   -1  'True
  977.          Strikethrough   =   0   'False
  978.       EndProperty
  979.       ForeColor       =   &H00C0FFC0&
  980.       Height          =   285
  981.       Left            =   0
  982.       TabIndex        =   41
  983.       Top             =   7440
  984.       Width           =   8625
  985.    End
  986.    Begin VB.Label Label1 
  987.       BackColor       =   &H008080FF&
  988.       Caption         =   "                       Address Book"
  989.       BeginProperty Font 
  990.          Name            =   "Verdana"
  991.          Size            =   12
  992.          Charset         =   0
  993.          Weight          =   700
  994.          Underline       =   0   'False
  995.          Italic          =   0   'False
  996.          Strikethrough   =   0   'False
  997.       EndProperty
  998.       ForeColor       =   &H00FFFFFF&
  999.       Height          =   285
  1000.       Left            =   0
  1001.       TabIndex        =   40
  1002.       Top             =   0
  1003.       Width           =   8655
  1004.    End
  1005.    Begin VB.Label lblBirthday 
  1006.       BackColor       =   &H00FFFFFF&
  1007.       Caption         =   "Birth Day"
  1008.       BeginProperty Font 
  1009.          Name            =   "Verdana"
  1010.          Size            =   8.25
  1011.          Charset         =   0
  1012.          Weight          =   700
  1013.          Underline       =   0   'False
  1014.          Italic          =   0   'False
  1015.          Strikethrough   =   0   'False
  1016.       EndProperty
  1017.       ForeColor       =   &H00000040&
  1018.       Height          =   255
  1019.       Left            =   90
  1020.       TabIndex        =   36
  1021.       Top             =   4110
  1022.       Width           =   1035
  1023.    End
  1024.    Begin VB.Label Label9 
  1025.       BackColor       =   &H00FFFFFF&
  1026.       Caption         =   "E- Mail"
  1027.       BeginProperty Font 
  1028.          Name            =   "Verdana"
  1029.          Size            =   8.25
  1030.          Charset         =   0
  1031.          Weight          =   700
  1032.          Underline       =   0   'False
  1033.          Italic          =   0   'False
  1034.          Strikethrough   =   0   'False
  1035.       EndProperty
  1036.       ForeColor       =   &H00000040&
  1037.       Height          =   225
  1038.       Left            =   90
  1039.       TabIndex        =   35
  1040.       Top             =   4500
  1041.       Width           =   1035
  1042.    End
  1043.    Begin VB.Label lblPhone 
  1044.       BackColor       =   &H00FFFFFF&
  1045.       Caption         =   "Phone No."
  1046.       BeginProperty Font 
  1047.          Name            =   "Verdana"
  1048.          Size            =   8.25
  1049.          Charset         =   0
  1050.          Weight          =   700
  1051.          Underline       =   0   'False
  1052.          Italic          =   0   'False
  1053.          Strikethrough   =   0   'False
  1054.       EndProperty
  1055.       ForeColor       =   &H00000040&
  1056.       Height          =   255
  1057.       Left            =   90
  1058.       TabIndex        =   34
  1059.       Top             =   3720
  1060.       Width           =   1035
  1061.    End
  1062.    Begin VB.Label lblpincode 
  1063.       BackColor       =   &H00FFFFFF&
  1064.       Caption         =   "Pin Code"
  1065.       BeginProperty Font 
  1066.          Name            =   "Verdana"
  1067.          Size            =   8.25
  1068.          Charset         =   0
  1069.          Weight          =   700
  1070.          Underline       =   0   'False
  1071.          Italic          =   0   'False
  1072.          Strikethrough   =   0   'False
  1073.       EndProperty
  1074.       ForeColor       =   &H00000040&
  1075.       Height          =   225
  1076.       Left            =   90
  1077.       TabIndex        =   33
  1078.       Top             =   3300
  1079.       Width           =   1035
  1080.    End
  1081.    Begin VB.Label lbldist 
  1082.       BackColor       =   &H00FFFFFF&
  1083.       Caption         =   "District"
  1084.       BeginProperty Font 
  1085.          Name            =   "Verdana"
  1086.          Size            =   8.25
  1087.          Charset         =   0
  1088.          Weight          =   700
  1089.          Underline       =   0   'False
  1090.          Italic          =   0   'False
  1091.          Strikethrough   =   0   'False
  1092.       EndProperty
  1093.       ForeColor       =   &H00000040&
  1094.       Height          =   225
  1095.       Left            =   90
  1096.       TabIndex        =   32
  1097.       Top             =   2940
  1098.       Width           =   1035
  1099.    End
  1100.    Begin VB.Label lbltaluka 
  1101.       BackColor       =   &H00FFFFFF&
  1102.       Caption         =   "Taluka"
  1103.       BeginProperty Font 
  1104.          Name            =   "Verdana"
  1105.          Size            =   8.25
  1106.          Charset         =   0
  1107.          Weight          =   700
  1108.          Underline       =   0   'False
  1109.          Italic          =   0   'False
  1110.          Strikethrough   =   0   'False
  1111.       EndProperty
  1112.       ForeColor       =   &H00000040&
  1113.       Height          =   225
  1114.       Left            =   90
  1115.       TabIndex        =   31
  1116.       Top             =   2550
  1117.       Width           =   1035
  1118.    End
  1119.    Begin VB.Label lblAddress 
  1120.       BackColor       =   &H00FFFFFF&
  1121.       Caption         =   "Address"
  1122.       BeginProperty Font 
  1123.          Name            =   "Verdana"
  1124.          Size            =   8.25
  1125.          Charset         =   0
  1126.          Weight          =   700
  1127.          Underline       =   0   'False
  1128.          Italic          =   0   'False
  1129.          Strikethrough   =   0   'False
  1130.       EndProperty
  1131.       ForeColor       =   &H00000040&
  1132.       Height          =   255
  1133.       Left            =   90
  1134.       TabIndex        =   30
  1135.       Top             =   1770
  1136.       Width           =   1035
  1137.    End
  1138.    Begin VB.Label lblStream 
  1139.       BackColor       =   &H00FFFFFF&
  1140.       Caption         =   "Stream"
  1141.       BeginProperty Font 
  1142.          Name            =   "Verdana"
  1143.          Size            =   8.25
  1144.          Charset         =   0
  1145.          Weight          =   700
  1146.          Underline       =   0   'False
  1147.          Italic          =   0   'False
  1148.          Strikethrough   =   0   'False
  1149.       EndProperty
  1150.       ForeColor       =   &H00000040&
  1151.       Height          =   255
  1152.       Left            =   90
  1153.       TabIndex        =   29
  1154.       Top             =   1350
  1155.       Width           =   1035
  1156.    End
  1157.    Begin VB.Label lblname 
  1158.       BackColor       =   &H00FFFFFF&
  1159.       Caption         =   "Name"
  1160.       BeginProperty Font 
  1161.          Name            =   "Verdana"
  1162.          Size            =   8.25
  1163.          Charset         =   0
  1164.          Weight          =   700
  1165.          Underline       =   0   'False
  1166.          Italic          =   0   'False
  1167.          Strikethrough   =   0   'False
  1168.       EndProperty
  1169.       ForeColor       =   &H00000040&
  1170.       Height          =   285
  1171.       Left            =   90
  1172.       TabIndex        =   24
  1173.       Top             =   540
  1174.       Width           =   1035
  1175.    End
  1176.    Begin VB.Label Label14 
  1177.       Alignment       =   2  'Center
  1178.       BackColor       =   &H00E0E0E0&
  1179.       BeginProperty Font 
  1180.          Name            =   "Georgia"
  1181.          Size            =   9.75
  1182.          Charset         =   0
  1183.          Weight          =   700
  1184.          Underline       =   0   'False
  1185.          Italic          =   0   'False
  1186.          Strikethrough   =   0   'False
  1187.       EndProperty
  1188.       ForeColor       =   &H00FFFFFF&
  1189.       Height          =   1455
  1190.       Left            =   5880
  1191.       TabIndex        =   58
  1192.       ToolTipText     =   "It Displays Birthday which is within previous 7 Days and Next 15 Days"
  1193.       Top             =   5190
  1194.       Width           =   1845
  1195.    End
  1196. End
  1197. Attribute VB_Name = "fromAddressBook"
  1198. Attribute VB_GlobalNameSpace = False
  1199. Attribute VB_Creatable = False
  1200. Attribute VB_PredeclaredId = True
  1201. Attribute VB_Exposed = False
  1202. Dim cn As New ADODB.Connection
  1203. Dim rs As New ADODB.Recordset
  1204. Dim rsSearch As New ADODB.Recordset
  1205. Dim flag, i, recno As Integer
  1206. Dim str1, s1, s2, msg1, passwd As String
  1207. Dim RsError  As New ADODB.Recordset
  1208. Dim rsBD As New ADODB.Recordset
  1209. Dim CurDate, intDate, intYear As Integer
  1210. Dim strCurDate, strMonth As String
  1211. Dim intDate1, intDate2, intYear1, intYear2, intIncMonth, intDecMonth, intMonthdigit As Integer
  1212. Dim strMonth1, strMonth2 As String
  1213. Dim strDate1, strDate2, strDate As Date
  1214. Private Sub cboSearch_Click()
  1215.     str1 = ""
  1216.     txtcontaining.Text = ""
  1217. End Sub
  1218.  
  1219. Private Sub cmdadd_Click()
  1220.     txtname.SetFocus
  1221.     txtname.Text = ""
  1222.     cbostream.Text = ""
  1223.     txtaddress.Text = ""
  1224.     txttaluka.Text = ""
  1225.     txtdistrict.Text = ""
  1226.     txtpincode.Text = ""
  1227.     cbodate.Text = ""
  1228.     cbomonth.Text = ""
  1229.     cboyear.Text = ""
  1230.     txtemail.Text = ""
  1231.     txtphone.Text = ""
  1232.     txtRemarks.Text = ""
  1233.     Call visibleON
  1234.     flag = 1
  1235.     Call lockFALSE
  1236.     
  1237.     
  1238.     
  1239. End Sub
  1240.  
  1241. Private Sub cmdcancel_Click()
  1242.     Call cmdfirst_Click
  1243.     Call visibleOFF
  1244.     'Call show_rec
  1245.     Call lockTRUE
  1246. End Sub
  1247.  
  1248. Private Sub cmdCancel1_Click()
  1249.     Frame1.Visible = False
  1250.     Me.Width = 5145
  1251.   '  Me.StartUpPosition = 2
  1252.     
  1253. End Sub
  1254.  
  1255. Private Sub cmdDel_Click()
  1256. On Error GoTo Err1
  1257.     If txtRowid.Text = Val(1) Then
  1258.     MsgBox "            Na. Na. Na. " & Chr(13) & "You can't Delete ( Chetan Patel )", vbOKOnly + vbCritical, "Address Book"
  1259.     Else
  1260.         msg1 = MsgBox("Are you Sure ..?", vbYesNo + vbQuestion, "Address Book")
  1261.         If msg1 = vbYes Then
  1262.                 Set rs = Nothing
  1263.                 rs.Open " Delete from AddressBook where rowid = " & Val(txtRowid.Text), cn, adOpenDynamic, adLockOptimistic, adCmdText
  1264.                 Set rs = Nothing
  1265.         End If
  1266.             cmdfirst_Click
  1267. '            Call show_rec
  1268.     End If
  1269.  
  1270. Exit Sub
  1271. Err1:
  1272.        Call ErrorHandlerCheck(Me.Name & " : CmdAction_Click ")
  1273.     
  1274. End Sub
  1275.  
  1276. Private Sub cmdedit_Click()
  1277.     txtname.SetFocus
  1278.     Call visibleON
  1279.     Call lockFALSE
  1280.     flag = 2
  1281. End Sub
  1282.  
  1283. Private Sub cmdexit_Click()
  1284.     Unload Me
  1285. End Sub
  1286.  
  1287. Private Sub cmdfirst_Click()
  1288.     Set rs = Nothing
  1289.     rs.Open "select top 1 * from addressbook", cn, adOpenDynamic, adLockOptimistic, adCmdText
  1290.     Call show_rec
  1291.     Set rs = Nothing
  1292. End Sub
  1293.  
  1294. Private Sub cmdlast_Click()
  1295.     Set rs = Nothing
  1296.     rs.Open "select top 1 * from addressbook order by rowid desc", cn, adOpenDynamic, adLockOptimistic, adCmdText
  1297.     Call show_rec
  1298.     Set rs = Nothing
  1299. End Sub
  1300.  
  1301. Private Sub cmdnext_Click()
  1302.     Set rs = Nothing
  1303.     rs.Open "select top 1 * from addressbook where rowid > " & txtRowid.Text, cn, adOpenDynamic, adLockOptimistic, adCmdText
  1304.     Call show_rec
  1305.     Set rs = Nothing
  1306.     
  1307. End Sub
  1308.  
  1309. Private Sub cmdprev_Click()
  1310.     Set rs = Nothing
  1311.     rs.Open "select top 1 * from addressbook where rowid < " & txtRowid.Text & " order by rowid desc ", cn, adOpenDynamic, adLockOptimistic, adCmdText
  1312.     Call show_rec
  1313.     Set rs = Nothing
  1314. End Sub
  1315.  
  1316. Private Sub cmdsave_Click()
  1317.     On Error GoTo Err1
  1318.     
  1319.     If txtname.Text = "" Then
  1320.         MsgBox "Please Enter Name", vbOKOnly + vbInformation, "AddressBook"
  1321.         txtname.SetFocus
  1322.         Exit Sub
  1323.     End If
  1324.     If cbostream.Text = "" Then
  1325.         MsgBox "Please Enter stream", vbOKOnly + vbInformation, "AddressBook"
  1326.         cbostream.SetFocus
  1327.         Exit Sub
  1328.     End If
  1329.     If txtaddress.Text = "" Then
  1330.         MsgBox "Please Enter Address", vbOKOnly + vbInformation, "AddressBook"
  1331.         txtaddress.SetFocus
  1332.         Exit Sub
  1333.     End If
  1334.     If txttaluka.Text = "" Then
  1335.         MsgBox "Please Enter Taluka Name", vbOKOnly + vbInformation, "AddressBook"
  1336.         txttaluka.SetFocus
  1337.         Exit Sub
  1338.     End If
  1339.     If txtdistrict.Text = "" Then
  1340.         MsgBox "Please Enter District Name", vbOKOnly + vbInformation, "AddressBook"
  1341.         txtdistrict.SetFocus
  1342.         Exit Sub
  1343.     End If
  1344.     If txtpincode.Text = "" Then
  1345.           txtpincode.Text = 0
  1346.     End If
  1347.     If cbodate.Text = "" Then
  1348.         MsgBox "Please Select BirthDate", vbOKOnly + vbInformation, "AddressBook"
  1349.         cbodate.SetFocus
  1350.         Exit Sub
  1351.     End If
  1352.     If cbomonth.Text = "" Then
  1353.         MsgBox "Please Select BirthMonth", vbOKOnly + vbInformation, "AddressBook"
  1354.         cbomonth.SetFocus
  1355.         Exit Sub
  1356.     End If
  1357.     If cboyear.Text = "" Then
  1358.         MsgBox "Please Enter BirthYear", vbOKOnly + vbInformation, "AddressBook"
  1359.         cboyear.SetFocus
  1360.         Exit Sub
  1361.     End If
  1362.     
  1363.     If txtemail.Text = "" Then
  1364.         txtemail.Text = ""
  1365.     End If
  1366.     If txtphone.Text = "" Then
  1367.         txtphone.Text = 0
  1368.     Else
  1369.       
  1370.     Dim rsAdd As New ADODB.Recordset
  1371.     rsAdd.CursorLocation = adUseClient
  1372.  
  1373.     If flag = 1 Then
  1374.     '    rs.AddNew
  1375.     
  1376.         rsAdd.Open " Insert into addressbook (Name, Gender, Stream, Address, Taluka, District, " & _
  1377.                 "   BirthDay, BirthMonth,  BirthYear , EMail, PhoneNo, Pincode, Remarks) values (" & _
  1378.                 " '" & txtname.Text & "' , '" & CboGender.Text & "', '" & cbostream.Text & "',  '" & txtaddress.Text & "', " & _
  1379.                 " '" & txttaluka.Text & "' , '" & txtdistrict.Text & "', '" & Val(cbodate.Text) & "', '" & cbomonth.Text & "' , " & Val(cboyear.Text) & " ," & _
  1380.                 " '" & txtemail.Text & "', '" & txtphone.Text & "', " & Val(txtpincode.Text) & " , '" & txtRemarks.Text & "')   ", cn, adOpenDynamic, adLockOptimistic, adCmdText
  1381.         'MsgBox "Record  Saved...", vbOKOnly + vbInformation, "Birth Day Alarm"
  1382.     ElseIf flag = 2 Then
  1383.         'Call new_rec
  1384.         If Val(txtRowid.Text) <> 1 Then
  1385.         rsAdd.Open " Update addressbook set Name = '" & txtname.Text & "' , Gender = '" & CboGender.Text & "' , " & _
  1386.                 " Stream = '" & cbostream.Text & "', Address = '" & txtaddress.Text & "' , Taluka = '" & txttaluka.Text & "' , " & _
  1387.                 " District  = '" & txtdistrict.Text & "', BirthDay = " & cbodate.Text & ", BirthMonth = '" & cbomonth.Text & "' , " & _
  1388.                 " BirthYear = " & cboyear.Text & ", EMail = '" & txtemail.Text & "', PhoneNo = '" & txtphone.Text & "' ," & _
  1389.                 " Pincode = " & Val(txtpincode.Text) & ", Remarks = '" & txtRemarks.Text & "' where rowid = " & Val(txtRowid.Text), cn, adOpenDynamic, adLockOptimistic, adCmdText
  1390.                 'MsgBox "Record  Updated...", vbOKOnly + vbInformation, "Birth Day Alarm"
  1391.                
  1392.         Else
  1393.                 MsgBox "        Sorry No. Cheating.." & Chr(13) & " You can't Edit Chetan Patel", vbOKOnly + vbInformation, "Birth Day Alarm"
  1394.                 Call cmdfirst_Click
  1395.                 Exit Sub
  1396.         End If
  1397.                 MsgBox "Record Saved..", vbOKOnly + vbInformation, "Birth Day Alarm"
  1398.     End If
  1399.     flag = 0
  1400.     Call visibleOFF
  1401.     Call lockTRUE
  1402.     
  1403.     
  1404.     
  1405.     
  1406.                 Set rsBD = Nothing
  1407.         ' rsBD.CursorLocation = adUseClient
  1408.     
  1409.             'strDate = Date
  1410.             strDate1 = DateAdd("d", -7, Date)
  1411.             strDate2 = DateAdd("d", 15, Date)
  1412.         
  1413.           
  1414.             intDate1 = Val(Format(strDate1, "dd"))
  1415.             intDate2 = Val(Format(strDate2, "dd"))
  1416.             
  1417.             strMonth1 = Format(strDate1, "MMMM")
  1418.             strMonth2 = Format(strDate2, "MMMM")
  1419.             
  1420.             intYear1 = Val(Format(strDate1, "yyyy"))
  1421.             intYear2 = Val(Format(strDate2, "yyyy"))
  1422.                             
  1423.             
  1424.             rsBD.Open " Select * from addressbook where (BirthDay > " & Val(intDate1) & " and BirthMonth = '" & Trim(strMonth1) & "' ) or ( BirthDay < " & Val(intDate2) & "  and  BirthMonth = '" & Trim(strMonth2) & "' ) ", cn, adOpenDynamic, adLockOptimistic, adCmdText
  1425.               
  1426.     
  1427.     End If
  1428.     
  1429.     Exit Sub
  1430.     
  1431. Err1:
  1432.        Call ErrorHandlerCheck(Me.Name & " : CmdAction_Click ")
  1433.  
  1434. End Sub
  1435.  
  1436. Private Sub cmdSearch_Click()
  1437. Frame1.Visible = True
  1438. cboSearch.Text = "Name"
  1439. txtcontaining.SetFocus
  1440. Me.Width = 8700
  1441. End Sub
  1442.  
  1443. Private Sub Form_KeyPress(KeyAscii As Integer)
  1444.     If KeyAscii = 13 Then
  1445.         SendKeys "{Tab}"
  1446.     End If
  1447. End Sub
  1448.  
  1449. Private Sub Form_Load()
  1450.     
  1451. On Error GoTo Err1
  1452.  
  1453.     cn.CursorLocation = adUseClient
  1454.     Dim dbpath As String
  1455.     
  1456.      cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\AddressBook.mdb;Jet OLEDB:Database Password=CHEtan;Persist "
  1457.     rs.Open "select * from addressbook", cn, adOpenDynamic, adLockOptimistic
  1458.  
  1459.     Call show_rec
  1460.     
  1461.     Set rs = Nothing
  1462.     flag = 0
  1463.     For i = 1 To 31
  1464.         cbodate.AddItem (i)
  1465.     Next
  1466.     
  1467.     i = 0
  1468.     
  1469.     Dim j As Integer
  1470.     For j = 1950 To Year(Date)
  1471.         cboyear.AddItem (j)
  1472.     Next
  1473.     
  1474.     Me.Width = 5145
  1475.       
  1476.       
  1477.         Set rsBD = Nothing
  1478.         ' rsBD.CursorLocation = adUseClient
  1479.     
  1480.             'strDate = Date
  1481.             strDate1 = DateAdd("d", -7, Date)
  1482.             strDate2 = DateAdd("d", 15, Date)
  1483.         
  1484.           
  1485.             intDate1 = Val(Format(strDate1, "dd"))
  1486.             intDate2 = Val(Format(strDate2, "dd"))
  1487.             
  1488.             strMonth1 = Format(strDate1, "MMMM")
  1489.             strMonth2 = Format(strDate2, "MMMM")
  1490.             
  1491.             intYear1 = Val(Format(strDate1, "yyyy"))
  1492.             intYear2 = Val(Format(strDate2, "yyyy"))
  1493.                             
  1494.             
  1495.             rsBD.Open " Select * from addressbook where (BirthDay > " & Val(intDate1) & " and BirthMonth = '" & Trim(strMonth1) & "' ) or ( BirthDay < " & Val(intDate2) & "  and  BirthMonth = '" & Trim(strMonth2) & "' ) ", cn, adOpenDynamic, adLockOptimistic, adCmdText
  1496.                 
  1497.             Call lockTRUE
  1498.     Exit Sub
  1499.     
  1500.     
  1501. Err1:
  1502.        Call ErrorHandlerCheck(Me.Name & " : CmdAction_Click ")
  1503.     
  1504. End Sub
  1505.  
  1506. Sub show_rec()
  1507.     On Error GoTo Err1
  1508.     
  1509.         If rs.RecordCount > 0 Then
  1510.             txtRowid.Text = rs!Rowid
  1511.             txtname.Text = IIf(IsNull(rs!Name) = True, "", rs!Name)
  1512.             CboGender.Text = IIf(IsNull(rs!Gender) = True, "", rs!Gender)
  1513.             cbostream.Text = IIf(IsNull(rs!Stream) = True, "", rs!Stream)
  1514.             txtaddress.Text = IIf(IsNull(rs!Address) = True, "", rs!Address)
  1515.             txttaluka.Text = IIf(IsNull(rs!Taluka) = True, "", rs!Taluka)
  1516.             txtdistrict.Text = IIf(IsNull(rs!District) = True, "", rs!District)
  1517.             txtpincode.Text = IIf(IsNull(rs!PhoneNo) = True, "", rs!PhoneNo)
  1518.             cbodate.Text = IIf(IsNull(rs!BirthDay) = True, "", rs!BirthDay)
  1519.             cbomonth.Text = IIf(IsNull(rs!BirthMonth) = True, "", rs!BirthMonth)
  1520.             cboyear.Text = IIf(IsNull(rs!BirthYear) = True, "", rs!BirthYear)
  1521.             txtemail.Text = IIf(IsNull(rs!EMail) = True, "", rs!EMail)
  1522.             txtphone.Text = IIf(IsNull(rs!PhoneNo) = True, "", rs!PhoneNo)
  1523.             txtRemarks.Text = IIf(IsNull(rs!Remarks) = True, "", rs!Remarks)
  1524.         End If
  1525.     Exit Sub
  1526. Err1:
  1527.        Call ErrorHandlerCheck(Me.Name & " : CmdAction_Click ")
  1528.  
  1529. End Sub
  1530.  
  1531. Sub visibleON()
  1532.     cmdsave.Visible = True
  1533.     cmdcancel.Visible = True
  1534.     cmdadd.Visible = False
  1535.     cmdedit.Visible = False
  1536.     cmdDel.Visible = False
  1537.     cmdexit.Visible = False
  1538. End Sub
  1539. Sub visibleOFF()
  1540.     cmdsave.Visible = False
  1541.     cmdcancel.Visible = False
  1542.     cmdadd.Visible = True
  1543.     cmdedit.Visible = True
  1544.     cmdDel.Visible = True
  1545.     cmdexit.Visible = True
  1546. End Sub
  1547.  
  1548. Sub lockTRUE()
  1549.     txtname.Locked = True
  1550.     cbostream.Locked = True
  1551.     txtaddress.Locked = True
  1552.     txttaluka.Locked = True
  1553.     txtdistrict.Locked = True
  1554.     txtpincode.Locked = True
  1555.     cbodate.Locked = True
  1556.     cbomonth.Locked = True
  1557.     cboyear.Locked = True
  1558.     txtemail.Locked = True
  1559.     txtphone.Locked = True
  1560.     CboGender.Locked = True
  1561.     txtRemarks.Locked = True
  1562.     cmdfirst.Enabled = True
  1563.     cmdlast.Enabled = True
  1564.     cmdprev.Enabled = True
  1565.     cmdnext.Enabled = True
  1566.     cmdSearch.Enabled = True
  1567. End Sub
  1568. Sub lockFALSE()
  1569.     cmdSearch.Enabled = False
  1570.     txtname.Locked = False
  1571.     cbostream.Locked = False
  1572.     txtaddress.Locked = False
  1573.     txttaluka.Locked = False
  1574.     txtdistrict.Locked = False
  1575.     txtpincode.Locked = False
  1576.     cbodate.Locked = False
  1577.     cbomonth.Locked = False
  1578.     cboyear.Locked = False
  1579.     txtemail.Locked = False
  1580.     txtphone.Locked = False
  1581.     CboGender.Locked = False
  1582.     txtRemarks.Locked = False
  1583.     cmdfirst.Enabled = False
  1584.     cmdlast.Enabled = False
  1585.     cmdprev.Enabled = False
  1586.     cmdnext.Enabled = False
  1587.     
  1588.     Call cmdCancel1_Click
  1589.     
  1590. End Sub
  1591.  
  1592. Private Sub lstSearch_DblClick()
  1593.     
  1594. On Error GoTo Err1
  1595.  
  1596.         Set rs = Nothing
  1597.         rs.Open " select * from addressbook where name = '" & Trim(lstSearch.Text) & "'", cn, adOpenDynamic, adLockOptimistic, adCmdText
  1598.         
  1599.         If rs.RecordCount > 0 Then
  1600.                 Call show_rec
  1601.         End If
  1602.     
  1603. Exit Sub
  1604.  
  1605. Err1:
  1606.        Call ErrorHandlerCheck(Me.Name & " : CmdAction_Click ")
  1607.  
  1608.  
  1609. End Sub
  1610.  
  1611. Private Sub Timer1_Timer()
  1612.                 
  1613.           
  1614.         If rsBD.EOF = True And rsBD.RecordCount > 0 Then
  1615.                   rsBD.MoveFirst
  1616.         End If
  1617.             
  1618.         If rsBD.RecordCount > 0 Then
  1619.         
  1620.               
  1621.                 
  1622.         
  1623.                 If Val(Format(Date, "dd")) = rsBD!BirthDay And strMonth1 = Trim(rsBD!BirthMonth) Then
  1624.                         lblBDName.ForeColor = 192
  1625.                         lblBDDate.ForeColor = 192
  1626.                         lblBDMOnth.ForeColor = 192
  1627.                 ElseIf Val(Format(Date, "dd")) = rsBD!BirthDay And strMonth2 = Trim(rsBD!BirthMonth) Then
  1628.                         lblBDName.ForeColor = 192
  1629.                         lblBDDate.ForeColor = 192
  1630.                         lblBDMOnth.ForeColor = 192
  1631.                 ElseIf intDate1 < rsBD!BirthDay And strMonth1 = Trim(rsBD!BirthMonth) Then
  1632.                         lblBDName.ForeColor = 12648447
  1633.                         lblBDDate.ForeColor = 12648447
  1634.                         lblBDMOnth.ForeColor = 12648447
  1635.                 ElseIf intDate1 < rsBD!BirthDay And strMonth2 = Trim(rsBD!BirthMonth) Then
  1636.                         lblBDName.ForeColor = 12648447
  1637.                         lblBDDate.ForeColor = 12648447
  1638.                         lblBDMOnth.ForeColor = 12648447
  1639.                 ElseIf intDate1 >= rsBD!BirthDay And strMonth1 = Trim(rsBD!BirthMonth) Then
  1640.                         lblBDName.ForeColor = 16744576
  1641.                         lblBDDate.ForeColor = 16744576
  1642.                         lblBDMOnth.ForeColor = 16744576
  1643.                 ElseIf intDate1 >= rsBD!BirthDay And strMonth2 = Trim(rsBD!BirthMonth) Then
  1644.                         lblBDName.ForeColor = 16744576
  1645.                         lblBDDate.ForeColor = 16744576
  1646.                         lblBDMOnth.ForeColor = 16744576
  1647.                 End If
  1648.  
  1649.                 lblBDName.Caption = rsBD!Name
  1650.                 lblBDDate.Caption = rsBD!BirthDay
  1651.                 lblBDMOnth.Caption = rsBD!BirthMonth
  1652.                 rsBD.MoveNext
  1653.                 
  1654.         Else
  1655.                 lblBDName.Visible = False
  1656.                 lblBDDate.Visible = False
  1657.                 lblBDMOnth.Visible = False
  1658.               
  1659.         End If
  1660.         
  1661.        
  1662.         
  1663.         
  1664. End Sub
  1665.  
  1666. Private Sub Timer2_Timer()
  1667.  If Label15.Left + Label15.Width > 0 Then
  1668.                 Label15.Left = Val(Label15.Left) - 10
  1669.         
  1670.         Else
  1671.                 Label15.Left = 8600
  1672.         
  1673.         End If
  1674. End Sub
  1675.  
  1676. Private Sub txtcontaining_KeyPress(KeyAscii As Integer)
  1677.         On Error GoTo Err1
  1678.  
  1679.         str1 = str1 & Chr(KeyAscii)
  1680.         If KeyAscii = 8 Then
  1681.             If txtcontaining.Text = "" Then
  1682.                 str1 = ""
  1683.             Else
  1684.                 str1 = Left(str1, Len(str1) - 2)
  1685.             
  1686.                 If Len(str1) <= 0 Then
  1687.                     lstSearch.Clear
  1688.                 End If
  1689.             End If
  1690.         End If
  1691.     
  1692.         Dim strQry As String
  1693.         
  1694.         If Option2.Value = True Then
  1695.                     rsSearch.Open "select * from ADDRESSBOOK where " + cboSearch.Text + " like '%" + Trim(str1) + "%'", cn, adOpenDynamic, adLockOptimistic
  1696.         ElseIf Option1.Value = True Then
  1697.                     rsSearch.Open "select * from ADDRESSBOOK where " + cboSearch.Text + " like '%" + Trim(str1) + "%' and Gender='Male'", cn, adOpenDynamic, adLockOptimistic
  1698.         ElseIf Option3.Value = True Then
  1699.                     rsSearch.Open "select * from ADDRESSBOOK where " + cboSearch.Text + " like '%" + Trim(str1) + "%' and Gender ='Female'", cn, adOpenDynamic, adLockOptimistic
  1700.         End If
  1701.         
  1702.         lstSearch.Clear
  1703.         While Not rsSearch.EOF
  1704.             lstSearch.AddItem (rsSearch.Fields(1).Value)
  1705.             rsSearch.MoveNext
  1706.         Wend
  1707.         rsSearch.Close
  1708.     
  1709.         Exit Sub
  1710. Err1:
  1711.        Call ErrorHandlerCheck(Me.Name & " : CmdAction_Click ")
  1712.     
  1713. End Sub
  1714.  
  1715.  
  1716. Public Sub ErrorHandlerCheck(Optional StrFormName As String)
  1717.     StrFormName = "Address Book"
  1718.     MsgBox Err.Description, vbCritical, "ERROR"
  1719. RsError.CursorLocation = adUseClient
  1720.     Set RsError = Nothing
  1721.         RsError.Open " Insert Into ErrorOccur(ErrorDesc ,ErrorNumber ,ErrorDate)Values ('" & Replace(Err.Description, "'", "''") & "  (" & StrFormName & ")'," & Err.Number & ",'" & Str(Now) & "')", StrConnectionString, adOpenKeyset, adLockPessimistic, adCmdText
  1722.     Set RsError = Nothing
  1723.  
  1724. End Sub
  1725.