home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / PWA_AWAR.ZIP / SAMPVB.Z / SCHEDULE.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-07-05  |  47.2 KB  |  1,307 lines
  1. VERSION 2.00
  2. Begin Form schedule 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   6465
  6.    ClientLeft      =   255
  7.    ClientTop       =   405
  8.    ClientWidth     =   9240
  9.    ControlBox      =   0   'False
  10.    Height          =   6870
  11.    Left            =   195
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   6465
  14.    ScaleWidth      =   9240
  15.    Top             =   60
  16.    Width           =   9360
  17.    Begin AwareBinary fpBinary1 
  18.       BackColor       =   &H00C0C0C0&
  19.       FontBold        =   -1  'True
  20.       FontItalic      =   0   'False
  21.       FontName        =   "System"
  22.       FontSize        =   9.75
  23.       FontStrikethru  =   0   'False
  24.       FontUnderline   =   0   'False
  25.       Height          =   3255
  26.       Left            =   7080
  27.       TabIndex        =   38
  28.       ThreeDFrameWidth=   1
  29.       ThreeDInsideHighlightColor=   &H00FFFFFF&
  30.       ThreeDInsideShadowColor=   &H00808080&
  31.       ThreeDInsideStyle=   2  'Raised
  32.       ThreeDInsideWidth=   2
  33.       ThreeDOutsideStyle=   2  'Raised
  34.       Top             =   1800
  35.       Width           =   2055
  36.       Begin AwareBoolean ok 
  37.          BackColor       =   &H00C0C0C0&
  38.          BooleanMode     =   2  'Button-Like
  39.          BooleanPicture  =   4  'User Defined
  40.          BorderStyle     =   2  'Rounded
  41.          BorderWidth     =   1
  42.          FontBold        =   -1  'True
  43.          FontItalic      =   0   'False
  44.          FontName        =   "MS Sans Serif"
  45.          FontSize        =   8.25
  46.          FontStrikethru  =   0   'False
  47.          FontUnderline   =   0   'False
  48.          Height          =   600
  49.          Left            =   150
  50.          PictureFalse    =   SCHEDULE.FRX:0000
  51.          PictureFalseDisabled=   SCHEDULE.FRX:0302
  52.          TabIndex        =   42
  53.          TextFalse       =   "OK"
  54.          ThreeDOutsideStyle=   2  'Raised
  55.          ThreeDOutsideWidth=   3
  56.          ThreeDText      =   2  'Embossed w/ shading
  57.          ThreeDTextShadowColor=   &H00C0C0C0&
  58.          Top             =   75
  59.          Width           =   1635
  60.       End
  61.       Begin AwareBoolean cancel 
  62.          BackColor       =   &H00C0C0C0&
  63.          BooleanMode     =   2  'Button-Like
  64.          BooleanPicture  =   4  'User Defined
  65.          BorderStyle     =   2  'Rounded
  66.          BorderWidth     =   1
  67.          FontBold        =   -1  'True
  68.          FontItalic      =   0   'False
  69.          FontName        =   "MS Sans Serif"
  70.          FontSize        =   8.25
  71.          FontStrikethru  =   0   'False
  72.          FontUnderline   =   0   'False
  73.          Height          =   600
  74.          Left            =   150
  75.          PictureFalse    =   SCHEDULE.FRX:0604
  76.          PictureFalseDisabled=   SCHEDULE.FRX:0906
  77.          TabIndex        =   41
  78.          TextFalse       =   "Cancel"
  79.          ThreeDOutsideStyle=   2  'Raised
  80.          ThreeDOutsideWidth=   3
  81.          ThreeDText      =   2  'Embossed w/ shading
  82.          ThreeDTextShadowColor=   &H00C0C0C0&
  83.          Top             =   840
  84.          Width           =   1635
  85.       End
  86.       Begin AwareBoolean del 
  87.          BackColor       =   &H00C0C0C0&
  88.          BooleanMode     =   2  'Button-Like
  89.          BooleanPicture  =   4  'User Defined
  90.          BorderStyle     =   2  'Rounded
  91.          BorderWidth     =   1
  92.          FontBold        =   -1  'True
  93.          FontItalic      =   0   'False
  94.          FontName        =   "MS Sans Serif"
  95.          FontSize        =   8.25
  96.          FontStrikethru  =   0   'False
  97.          FontUnderline   =   0   'False
  98.          Height          =   600
  99.          Left            =   150
  100.          PictureFalse    =   SCHEDULE.FRX:0C08
  101.          PictureFalseDisabled=   SCHEDULE.FRX:0F0A
  102.          TabIndex        =   40
  103.          TextFalse       =   "Delete"
  104.          ThreeDOutsideStyle=   2  'Raised
  105.          ThreeDOutsideWidth=   3
  106.          ThreeDText      =   2  'Embossed w/ shading
  107.          ThreeDTextShadowColor=   &H00C0C0C0&
  108.          Top             =   1560
  109.          Visible         =   0   'False
  110.          Width           =   1635
  111.       End
  112.       Begin AwareBoolean prnt 
  113.          BackColor       =   &H00C0C0C0&
  114.          BooleanMode     =   2  'Button-Like
  115.          BooleanPicture  =   4  'User Defined
  116.          BorderStyle     =   2  'Rounded
  117.          BorderWidth     =   1
  118.          FontBold        =   -1  'True
  119.          FontItalic      =   0   'False
  120.          FontName        =   "MS Sans Serif"
  121.          FontSize        =   8.25
  122.          FontStrikethru  =   0   'False
  123.          FontUnderline   =   0   'False
  124.          Height          =   600
  125.          Left            =   150
  126.          PictureFalse    =   SCHEDULE.FRX:120C
  127.          PictureFalseDisabled=   SCHEDULE.FRX:150E
  128.          TabIndex        =   39
  129.          TextFalse       =   "Print"
  130.          ThreeDInsideHighlightColor=   &H00FFFFFF&
  131.          ThreeDInsideShadowColor=   &H00808080&
  132.          ThreeDInsideWidth=   2
  133.          ThreeDOutsideStyle=   2  'Raised
  134.          ThreeDOutsideWidth=   3
  135.          ThreeDText      =   2  'Embossed w/ shading
  136.          Top             =   2400
  137.          Width           =   1635
  138.       End
  139.    End
  140.    Begin AwareText fpText2 
  141.       BackColor       =   &H00C0C0C0&
  142.       BorderStyle     =   0  'No Border
  143.       ControlType     =   2  'Static
  144.       FontBold        =   -1  'True
  145.       FontItalic      =   0   'False
  146.       FontName        =   "MS Sans Serif"
  147.       FontSize        =   8.25
  148.       FontStrikethru  =   0   'False
  149.       FontUnderline   =   0   'False
  150.       ForeColor       =   &H000000FF&
  151.       Height          =   1095
  152.       Left            =   7080
  153.       MultiLine       =   -1  'True
  154.       TabIndex        =   37
  155.       TabStop         =   0   'False
  156.       Text            =   "Enter your appointment beside the desired time and press OK to save these entries :"
  157.       ThreeDOutsideStyle=   1  'Lowered
  158.       ThreeDTextHighlightColor=   &H00FFFFFF&
  159.       ThreeDTextShadowColor=   &H00808080&
  160.       Top             =   360
  161.       Width           =   1935
  162.    End
  163.    Begin Data Data1 
  164.       Caption         =   "Data1"
  165.       Connect         =   ""
  166.       DatabaseName    =   ""
  167.       Exclusive       =   0   'False
  168.       Height          =   375
  169.       Left            =   7290
  170.       Options         =   0
  171.       ReadOnly        =   0   'False
  172.       RecordSource    =   "Appoint"
  173.       Top             =   5820
  174.       Visible         =   0   'False
  175.       Width           =   1695
  176.    End
  177.    Begin AwareBinary Imprint1 
  178.       BackColor       =   &H00C0C0C0&
  179.       BorderStyle     =   0  'No Border
  180.       FontBold        =   -1  'True
  181.       FontItalic      =   0   'False
  182.       FontName        =   "System"
  183.       FontSize        =   9.75
  184.       FontStrikethru  =   0   'False
  185.       FontUnderline   =   0   'False
  186.       Height          =   6465
  187.       Left            =   75
  188.       TabIndex        =   0
  189.       ThreeDFrameWidth=   3
  190.       ThreeDInsideHighlightColor=   &H00FFFFFF&
  191.       ThreeDInsideShadowColor=   &H00808080&
  192.       ThreeDInsideStyle=   2  'Raised
  193.       ThreeDInsideWidth=   2
  194.       ThreeDOutsideStyle=   2  'Raised
  195.       Top             =   0
  196.       Width           =   6930
  197.       Begin AwareText message 
  198.          AutoAdvance     =   -1  'True
  199.          DataField       =   "TimeSlot4"
  200.          DataSource      =   "Data1"
  201.          FontBold        =   -1  'True
  202.          FontItalic      =   0   'False
  203.          FontName        =   "Times New Roman"
  204.          FontSize        =   8.25
  205.          FontStrikethru  =   0   'False
  206.          FontUnderline   =   0   'False
  207.          Height          =   315
  208.          Index           =   3
  209.          Left            =   1845
  210.          MarginTop       =   1
  211.          TabIndex        =   43
  212.          ThreeDOutsideStyle=   1  'Lowered
  213.          ThreeDTextHighlightColor=   &H00FFFFFF&
  214.          ThreeDTextShadowColor=   &H00808080&
  215.          Top             =   975
  216.          Width           =   4830
  217.       End
  218.       Begin AwareMemo fpMemo1 
  219.          DataField       =   "Memo"
  220.          DataSource      =   "Data1"
  221.          FontBold        =   -1  'True
  222.          FontItalic      =   0   'False
  223.          FontName        =   "Times New Roman"
  224.          FontSize        =   8.25
  225.          FontStrikethru  =   0   'False
  226.          FontUnderline   =   0   'False
  227.          Height          =   730
  228.          Left            =   75
  229.          LineLimit       =   2147483647
  230.          OnFocusPosition =   3  'Caret
  231.          ScrollBars      =   2  'Vertical (auto)
  232.          TabIndex        =   36
  233.          Text            =   " "
  234.          Top             =   5520
  235.          Width           =   6600
  236.       End
  237.       Begin AwareText message 
  238.          AutoAdvance     =   -1  'True
  239.          DataField       =   "TimeSlot18"
  240.          DataSource      =   "Data1"
  241.          FontBold        =   -1  'True
  242.          FontItalic      =   0   'False
  243.          FontName        =   "Times New Roman"
  244.          FontSize        =   8.25
  245.          FontStrikethru  =   0   'False
  246.          FontUnderline   =   0   'False
  247.          Height          =   315
  248.          Index           =   17
  249.          Left            =   1845
  250.          MarginTop       =   1
  251.          TabIndex        =   17
  252.          ThreeDOutsideStyle=   1  'Lowered
  253.          ThreeDTextHighlightColor=   &H00FFFFFF&
  254.          ThreeDTextShadowColor=   &H00808080&
  255.          Top             =   5175
  256.          Width           =   4830
  257.       End
  258.       Begin AwareText message 
  259.          AutoAdvance     =   -1  'True
  260.          DataField       =   "TimeSlot17"
  261.          DataSource      =   "Data1"
  262.          FontBold        =   -1  'True
  263.          FontItalic      =   0   'False
  264.          FontName        =   "Times New Roman"
  265.          FontSize        =   8.25
  266.          FontStrikethru  =   0   'False
  267.          FontUnderline   =   0   'False
  268.          Height          =   315
  269.          Index           =   16
  270.          Left            =   1845
  271.          MarginTop       =   1
  272.          TabIndex        =   16
  273.          ThreeDOutsideStyle=   1  'Lowered
  274.          ThreeDTextHighlightColor=   &H00FFFFFF&
  275.          ThreeDTextShadowColor=   &H00808080&
  276.          Top             =   4875
  277.          Width           =   4830
  278.       End
  279.       Begin AwareText message 
  280.          AutoAdvance     =   -1  'True
  281.          DataField       =   "TimeSlot16"
  282.          DataSource      =   "Data1"
  283.          FontBold        =   -1  'True
  284.          FontItalic      =   0   'False
  285.          FontName        =   "Times New Roman"
  286.          FontSize        =   8.25
  287.          FontStrikethru  =   0   'False
  288.          FontUnderline   =   0   'False
  289.          Height          =   315
  290.          Index           =   15
  291.          Left            =   1845
  292.          MarginTop       =   1
  293.          TabIndex        =   15
  294.          ThreeDOutsideStyle=   1  'Lowered
  295.          ThreeDTextHighlightColor=   &H00FFFFFF&
  296.          ThreeDTextShadowColor=   &H00808080&
  297.          Top             =   4575
  298.          Width           =   4830
  299.       End
  300.       Begin AwareText message 
  301.          AutoAdvance     =   -1  'True
  302.          DataField       =   "TimeSlot15"
  303.          DataSource      =   "Data1"
  304.          FontBold        =   -1  'True
  305.          FontItalic      =   0   'False
  306.          FontName        =   "Times New Roman"
  307.          FontSize        =   8.25
  308.          FontStrikethru  =   0   'False
  309.          FontUnderline   =   0   'False
  310.          Height          =   315
  311.          Index           =   14
  312.          Left            =   1845
  313.          MarginTop       =   1
  314.          TabIndex        =   14
  315.          ThreeDOutsideStyle=   1  'Lowered
  316.          ThreeDTextHighlightColor=   &H00FFFFFF&
  317.          ThreeDTextShadowColor=   &H00808080&
  318.          Top             =   4275
  319.          Width           =   4830
  320.       End
  321.       Begin AwareText message 
  322.          AutoAdvance     =   -1  'True
  323.          DataField       =   "TimeSlot14"
  324.          DataSource      =   "Data1"
  325.          FontBold        =   -1  'True
  326.          FontItalic      =   0   'False
  327.          FontName        =   "Times New Roman"
  328.          FontSize        =   8.25
  329.          FontStrikethru  =   0   'False
  330.          FontUnderline   =   0   'False
  331.          Height          =   315
  332.          Index           =   13
  333.          Left            =   1845
  334.          MarginTop       =   1
  335.          TabIndex        =   13
  336.          ThreeDOutsideStyle=   1  'Lowered
  337.          ThreeDTextHighlightColor=   &H00FFFFFF&
  338.          ThreeDTextShadowColor=   &H00808080&
  339.          Top             =   3975
  340.          Width           =   4830
  341.       End
  342.       Begin AwareText message 
  343.          AutoAdvance     =   -1  'True
  344.          DataField       =   "TimeSlot13"
  345.          DataSource      =   "Data1"
  346.          FontBold        =   -1  'True
  347.          FontItalic      =   0   'False
  348.          FontName        =   "Times New Roman"
  349.          FontSize        =   8.25
  350.          FontStrikethru  =   0   'False
  351.          FontUnderline   =   0   'False
  352.          Height          =   315
  353.          Index           =   12
  354.          Left            =   1845
  355.          MarginTop       =   1
  356.          TabIndex        =   12
  357.          ThreeDOutsideStyle=   1  'Lowered
  358.          ThreeDTextHighlightColor=   &H00FFFFFF&
  359.          ThreeDTextShadowColor=   &H00808080&
  360.          Top             =   3675
  361.          Width           =   4830
  362.       End
  363.       Begin AwareText message 
  364.          AutoAdvance     =   -1  'True
  365.          DataField       =   "TimeSlot12"
  366.          DataSource      =   "Data1"
  367.          FontBold        =   -1  'True
  368.          FontItalic      =   0   'False
  369.          FontName        =   "Times New Roman"
  370.          FontSize        =   8.25
  371.          FontStrikethru  =   0   'False
  372.          FontUnderline   =   0   'False
  373.          Height          =   315
  374.          Index           =   11
  375.          Left            =   1845
  376.          MarginTop       =   1
  377.          TabIndex        =   11
  378.          ThreeDOutsideStyle=   1  'Lowered
  379.          ThreeDTextHighlightColor=   &H00FFFFFF&
  380.          ThreeDTextShadowColor=   &H00808080&
  381.          Top             =   3375
  382.          Width           =   4830
  383.       End
  384.       Begin AwareText message 
  385.          AutoAdvance     =   -1  'True
  386.          DataField       =   "TimeSlot11"
  387.          DataSource      =   "Data1"
  388.          FontBold        =   -1  'True
  389.          FontItalic      =   0   'False
  390.          FontName        =   "Times New Roman"
  391.          FontSize        =   8.25
  392.          FontStrikethru  =   0   'False
  393.          FontUnderline   =   0   'False
  394.          Height          =   315
  395.          Index           =   10
  396.          Left            =   1845
  397.          MarginTop       =   1
  398.          TabIndex        =   10
  399.          ThreeDOutsideStyle=   1  'Lowered
  400.          ThreeDTextHighlightColor=   &H00FFFFFF&
  401.          ThreeDTextShadowColor=   &H00808080&
  402.          Top             =   3075
  403.          Width           =   4830
  404.       End
  405.       Begin AwareText message 
  406.          AutoAdvance     =   -1  'True
  407.          DataField       =   "TimeSlot10"
  408.          DataSource      =   "Data1"
  409.          FontBold        =   -1  'True
  410.          FontItalic      =   0   'False
  411.          FontName        =   "Times New Roman"
  412.          FontSize        =   8.25
  413.          FontStrikethru  =   0   'False
  414.          FontUnderline   =   0   'False
  415.          Height          =   315
  416.          Index           =   9
  417.          Left            =   1845
  418.          MarginTop       =   1
  419.          TabIndex        =   9
  420.          ThreeDOutsideStyle=   1  'Lowered
  421.          ThreeDTextHighlightColor=   &H00FFFFFF&
  422.          ThreeDTextShadowColor=   &H00808080&
  423.          Top             =   2775
  424.          Width           =   4830
  425.       End
  426.       Begin AwareText message 
  427.          AutoAdvance     =   -1  'True
  428.          DataField       =   "TimeSlot9"
  429.          DataSource      =   "Data1"
  430.          FontBold        =   -1  'True
  431.          FontItalic      =   0   'False
  432.          FontName        =   "Times New Roman"
  433.          FontSize        =   8.25
  434.          FontStrikethru  =   0   'False
  435.          FontUnderline   =   0   'False
  436.          Height          =   315
  437.          Index           =   8
  438.          Left            =   1845
  439.          MarginTop       =   1
  440.          TabIndex        =   8
  441.          ThreeDOutsideStyle=   1  'Lowered
  442.          ThreeDTextHighlightColor=   &H00FFFFFF&
  443.          ThreeDTextShadowColor=   &H00808080&
  444.          Top             =   2475
  445.          Width           =   4830
  446.       End
  447.       Begin AwareText message 
  448.          AutoAdvance     =   -1  'True
  449.          DataField       =   "TimeSlot8"
  450.          DataSource      =   "Data1"
  451.          FontBold        =   -1  'True
  452.          FontItalic      =   0   'False
  453.          FontName        =   "Times New Roman"
  454.          FontSize        =   8.25
  455.          FontStrikethru  =   0   'False
  456.          FontUnderline   =   0   'False
  457.          Height          =   315
  458.          Index           =   7
  459.          Left            =   1845
  460.          MarginTop       =   1
  461.          TabIndex        =   7
  462.          ThreeDOutsideStyle=   1  'Lowered
  463.          ThreeDTextHighlightColor=   &H00FFFFFF&
  464.          ThreeDTextShadowColor=   &H00808080&
  465.          Top             =   2175
  466.          Width           =   4830
  467.       End
  468.       Begin AwareText message 
  469.          AutoAdvance     =   -1  'True
  470.          DataField       =   "TimeSlot7"
  471.          DataSource      =   "Data1"
  472.          FontBold        =   -1  'True
  473.          FontItalic      =   0   'False
  474.          FontName        =   "Times New Roman"
  475.          FontSize        =   8.25
  476.          FontStrikethru  =   0   'False
  477.          FontUnderline   =   0   'False
  478.          Height          =   315
  479.          Index           =   6
  480.          Left            =   1845
  481.          MarginTop       =   1
  482.          TabIndex        =   6
  483.          ThreeDOutsideStyle=   1  'Lowered
  484.          ThreeDTextHighlightColor=   &H00FFFFFF&
  485.          ThreeDTextShadowColor=   &H00808080&
  486.          Top             =   1875
  487.          Width           =   4830
  488.       End
  489.       Begin AwareText message 
  490.          AutoAdvance     =   -1  'True
  491.          DataField       =   "TimeSlot6"
  492.          DataSource      =   "Data1"
  493.          FontBold        =   -1  'True
  494.          FontItalic      =   0   'False
  495.          FontName        =   "Times New Roman"
  496.          FontSize        =   8.25
  497.          FontStrikethru  =   0   'False
  498.          FontUnderline   =   0   'False
  499.          Height          =   315
  500.          Index           =   5
  501.          Left            =   1845
  502.          MarginTop       =   1
  503.          TabIndex        =   5
  504.          ThreeDOutsideStyle=   1  'Lowered
  505.          ThreeDTextHighlightColor=   &H00FFFFFF&
  506.          ThreeDTextShadowColor=   &H00808080&
  507.          Top             =   1575
  508.          Width           =   4830
  509.       End
  510.       Begin AwareText message 
  511.          AutoAdvance     =   -1  'True
  512.          DataField       =   "TimeSlot5"
  513.          DataSource      =   "Data1"
  514.          FontBold        =   -1  'True
  515.          FontItalic      =   0   'False
  516.          FontName        =   "Times New Roman"
  517.          FontSize        =   8.25
  518.          FontStrikethru  =   0   'False
  519.          FontUnderline   =   0   'False
  520.          Height          =   315
  521.          Index           =   4
  522.          Left            =   1845
  523.          MarginTop       =   1
  524.          TabIndex        =   4
  525.          ThreeDOutsideStyle=   1  'Lowered
  526.          ThreeDTextHighlightColor=   &H00FFFFFF&
  527.          ThreeDTextShadowColor=   &H00808080&
  528.          Top             =   1275
  529.          Width           =   4830
  530.       End
  531.       Begin AwareText message 
  532.          AutoAdvance     =   -1  'True
  533.          DataField       =   "TimeSlot3"
  534.          DataSource      =   "Data1"
  535.          FontBold        =   -1  'True
  536.          FontItalic      =   0   'False
  537.          FontName        =   "Times New Roman"
  538.          FontSize        =   8.25
  539.          FontStrikethru  =   0   'False
  540.          FontUnderline   =   0   'False
  541.          Height          =   315
  542.          Index           =   2
  543.          Left            =   1845
  544.          MarginTop       =   1
  545.          TabIndex        =   3
  546.          ThreeDOutsideStyle=   1  'Lowered
  547.          ThreeDTextHighlightColor=   &H00FFFFFF&
  548.          ThreeDTextShadowColor=   &H00808080&
  549.          Top             =   675
  550.          Width           =   4830
  551.       End
  552.       Begin AwareText message 
  553.          AutoAdvance     =   -1  'True
  554.          DataField       =   "TimeSlot2"
  555.          DataSource      =   "Data1"
  556.          FontBold        =   -1  'True
  557.          FontItalic      =   0   'False
  558.          FontName        =   "Times New Roman"
  559.          FontSize        =   8.25
  560.          FontStrikethru  =   0   'False
  561.          FontUnderline   =   0   'False
  562.          Height          =   315
  563.          Index           =   1
  564.          Left            =   1845
  565.          MarginTop       =   1
  566.          TabIndex        =   2
  567.          ThreeDOutsideStyle=   1  'Lowered
  568.          ThreeDTextHighlightColor=   &H00FFFFFF&
  569.          ThreeDTextShadowColor=   &H00808080&
  570.          Top             =   375
  571.          Width           =   4830
  572.       End
  573.       Begin AwareText message 
  574.          AutoAdvance     =   -1  'True
  575.          DataField       =   "TimeSlot1"
  576.          DataSource      =   "Data1"
  577.          FontBold        =   -1  'True
  578.          FontItalic      =   0   'False
  579.          FontName        =   "Times New Roman"
  580.          FontSize        =   8.25
  581.          FontStrikethru  =   0   'False
  582.          FontUnderline   =   0   'False
  583.          Height          =   315
  584.          Index           =   0
  585.          Left            =   1845
  586.          MarginTop       =   1
  587.          TabIndex        =   1
  588.          ThreeDOutsideStyle=   1  'Lowered
  589.          ThreeDTextHighlightColor=   &H00FFFFFF&
  590.          ThreeDTextShadowColor=   &H00808080&
  591.          Top             =   75
  592.          Width           =   4830
  593.       End
  594.       Begin AwareText fpText1 
  595.          AlignTextV      =   1  'Center
  596.          BackColor       =   &H00C0C0C0&
  597.          BorderStyle     =   0  'No Border
  598.          ControlType     =   2  'Static
  599.          FontBold        =   -1  'True
  600.          FontItalic      =   0   'False
  601.          FontName        =   "Times New Roman"
  602.          FontSize        =   8.25
  603.          FontStrikethru  =   0   'False
  604.          FontUnderline   =   0   'False
  605.          ForeColor       =   &H000000FF&
  606.          Height          =   315
  607.          Index           =   17
  608.          Left            =   60
  609.          MarginLeft      =   10
  610.          MarginRight     =   0
  611.          MarginTop       =   0
  612.          TabIndex        =   35
  613.          TabStop         =   0   'False
  614.          Text            =   "  4:30 -   5:00 pm:"
  615.          ThreeDOutsideStyle=   2  'Raised
  616.          ThreeDTextHighlightColor=   &H00FFFFFF&
  617.          ThreeDTextShadowColor=   &H00808080&
  618.          Top             =   5175
  619.          Width           =   1750
  620.       End
  621.       Begin AwareText fpText1 
  622.          AlignTextV      =   1  'Center
  623.          BackColor       =   &H00C0C0C0&
  624.          BorderStyle     =   0  'No Border
  625.          ControlType     =   2  'Static
  626.          FontBold        =   -1  'True
  627.          FontItalic      =   0   'False
  628.          FontName        =   "Times New Roman"
  629.          FontSize        =   8.25
  630.          FontStrikethru  =   0   'False
  631.          FontUnderline   =   0   'False
  632.          ForeColor       =   &H000000FF&
  633.          Height          =   315
  634.          Index           =   16
  635.          Left            =   60
  636.          MarginLeft      =   10
  637.          MarginRight     =   0
  638.          MarginTop       =   0
  639.          TabIndex        =   34
  640.          TabStop         =   0   'False
  641.          Text            =   "  4:00 -   4:30 pm:"
  642.          ThreeDOutsideStyle=   2  'Raised
  643.          ThreeDTextHighlightColor=   &H00FFFFFF&
  644.          ThreeDTextShadowColor=   &H00808080&
  645.          Top             =   4875
  646.          Width           =   1750
  647.       End
  648.       Begin AwareText fpText1 
  649.          AlignTextV      =   1  'Center
  650.          BackColor       =   &H00C0C0C0&
  651.          BorderStyle     =   0  'No Border
  652.          ControlType     =   2  'Static
  653.          FontBold        =   -1  'True
  654.          FontItalic      =   0   'False
  655.          FontName        =   "Times New Roman"
  656.          FontSize        =   8.25
  657.          FontStrikethru  =   0   'False
  658.          FontUnderline   =   0   'False
  659.          ForeColor       =   &H000000FF&
  660.          Height          =   315
  661.          Index           =   15
  662.          Left            =   60
  663.          MarginLeft      =   10
  664.          MarginRight     =   0
  665.          MarginTop       =   0
  666.          TabIndex        =   33
  667.          TabStop         =   0   'False
  668.          Text            =   "  3:30 -   4:00 pm:"
  669.          ThreeDOutsideStyle=   2  'Raised
  670.          ThreeDTextHighlightColor=   &H00FFFFFF&
  671.          ThreeDTextShadowColor=   &H00808080&
  672.          Top             =   4575
  673.          Width           =   1750
  674.       End
  675.       Begin AwareText fpText1 
  676.          AlignTextV      =   1  'Center
  677.          BackColor       =   &H00C0C0C0&
  678.          BorderStyle     =   0  'No Border
  679.          ControlType     =   2  'Static
  680.          FontBold        =   -1  'True
  681.          FontItalic      =   0   'False
  682.          FontName        =   "Times New Roman"
  683.          FontSize        =   8.25
  684.          FontStrikethru  =   0   'False
  685.          FontUnderline   =   0   'False
  686.          ForeColor       =   &H000000FF&
  687.          Height          =   315
  688.          Index           =   14
  689.          Left            =   60
  690.          MarginLeft      =   10
  691.          MarginRight     =   0
  692.          MarginTop       =   0
  693.          TabIndex        =   32
  694.          TabStop         =   0   'False
  695.          Text            =   "  3:00 -   3:30 pm:"
  696.          ThreeDOutsideStyle=   2  'Raised
  697.          ThreeDTextHighlightColor=   &H00FFFFFF&
  698.          ThreeDTextShadowColor=   &H00808080&
  699.          Top             =   4275
  700.          Width           =   1750
  701.       End
  702.       Begin AwareText fpText1 
  703.          AlignTextV      =   1  'Center
  704.          BackColor       =   &H00C0C0C0&
  705.          BorderStyle     =   0  'No Border
  706.          ControlType     =   2  'Static
  707.          FontBold        =   -1  'True
  708.          FontItalic      =   0   'False
  709.          FontName        =   "Times New Roman"
  710.          FontSize        =   8.25
  711.          FontStrikethru  =   0   'False
  712.          FontUnderline   =   0   'False
  713.          ForeColor       =   &H000000FF&
  714.          Height          =   315
  715.          Index           =   13
  716.          Left            =   60
  717.          MarginLeft      =   10
  718.          MarginRight     =   0
  719.          MarginTop       =   0
  720.          TabIndex        =   31
  721.          TabStop         =   0   'False
  722.          Text            =   "  2:30 -   3:00 pm:"
  723.          ThreeDOutsideStyle=   2  'Raised
  724.          ThreeDTextHighlightColor=   &H00FFFFFF&
  725.          ThreeDTextShadowColor=   &H00808080&
  726.          Top             =   3975
  727.          Width           =   1750
  728.       End
  729.       Begin AwareText fpText1 
  730.          AlignTextV      =   1  'Center
  731.          BackColor       =   &H00C0C0C0&
  732.          BorderStyle     =   0  'No Border
  733.          ControlType     =   2  'Static
  734.          FontBold        =   -1  'True
  735.          FontItalic      =   0   'False
  736.          FontName        =   "Times New Roman"
  737.          FontSize        =   8.25
  738.          FontStrikethru  =   0   'False
  739.          FontUnderline   =   0   'False
  740.          ForeColor       =   &H000000FF&
  741.          Height          =   315
  742.          Index           =   12
  743.          Left            =   60
  744.          MarginLeft      =   10
  745.          MarginRight     =   0
  746.          MarginTop       =   0
  747.          TabIndex        =   30
  748.          TabStop         =   0   'False
  749.          Text            =   "  2:00 -   2:30 pm:"
  750.          ThreeDOutsideStyle=   2  'Raised
  751.          ThreeDTextHighlightColor=   &H00FFFFFF&
  752.          ThreeDTextShadowColor=   &H00808080&
  753.          Top             =   3675
  754.          Width           =   1750
  755.       End
  756.       Begin AwareText fpText1 
  757.          AlignTextV      =   1  'Center
  758.          BackColor       =   &H00C0C0C0&
  759.          BorderStyle     =   0  'No Border
  760.          ControlType     =   2  'Static
  761.          FontBold        =   -1  'True
  762.          FontItalic      =   0   'False
  763.          FontName        =   "Times New Roman"
  764.          FontSize        =   8.25
  765.          FontStrikethru  =   0   'False
  766.          FontUnderline   =   0   'False
  767.          ForeColor       =   &H000000FF&
  768.          Height          =   315
  769.          Index           =   11
  770.          Left            =   60
  771.          MarginLeft      =   10
  772.          MarginRight     =   0
  773.          MarginTop       =   0
  774.          TabIndex        =   29
  775.          TabStop         =   0   'False
  776.          Text            =   "  1:30 -   2:00 pm:"
  777.          ThreeDOutsideStyle=   2  'Raised
  778.          ThreeDTextHighlightColor=   &H00FFFFFF&
  779.          ThreeDTextShadowColor=   &H00808080&
  780.          Top             =   3375
  781.          Width           =   1750
  782.       End
  783.       Begin AwareText fpText1 
  784.          AlignTextV      =   1  'Center
  785.          BackColor       =   &H00C0C0C0&
  786.          BorderStyle     =   0  'No Border
  787.          ControlType     =   2  'Static
  788.          FontBold        =   -1  'True
  789.          FontItalic      =   0   'False
  790.          FontName        =   "Times New Roman"
  791.          FontSize        =   8.25
  792.          FontStrikethru  =   0   'False
  793.          FontUnderline   =   0   'False
  794.          ForeColor       =   &H000000FF&
  795.          Height          =   315
  796.          Index           =   10
  797.          Left            =   60
  798.          MarginLeft      =   10
  799.          MarginRight     =   0
  800.          MarginTop       =   0
  801.          TabIndex        =   28
  802.          TabStop         =   0   'False
  803.          Text            =   "  1:00 -   1:30 pm:"
  804.          ThreeDOutsideStyle=   2  'Raised
  805.          ThreeDTextHighlightColor=   &H00FFFFFF&
  806.          ThreeDTextShadowColor=   &H00808080&
  807.          Top             =   3075
  808.          Width           =   1750
  809.       End
  810.       Begin AwareText fpText1 
  811.          AlignTextV      =   1  'Center
  812.          BackColor       =   &H00C0C0C0&
  813.          BorderStyle     =   0  'No Border
  814.          ControlType     =   2  'Static
  815.          FontBold        =   -1  'True
  816.          FontItalic      =   0   'False
  817.          FontName        =   "Times New Roman"
  818.          FontSize        =   8.25
  819.          FontStrikethru  =   0   'False
  820.          FontUnderline   =   0   'False
  821.          ForeColor       =   &H000000FF&
  822.          Height          =   315
  823.          Index           =   9
  824.          Left            =   60
  825.          MarginLeft      =   10
  826.          MarginRight     =   0
  827.          MarginTop       =   0
  828.          TabIndex        =   27
  829.          TabStop         =   0   'False
  830.          Text            =   "12:30 -   1:00 pm:"
  831.          ThreeDOutsideStyle=   2  'Raised
  832.          ThreeDTextHighlightColor=   &H00FFFFFF&
  833.          ThreeDTextShadowColor=   &H00808080&
  834.          Top             =   2775
  835.          Width           =   1750
  836.       End
  837.       Begin AwareText fpText1 
  838.          AlignTextV      =   1  'Center
  839.          BackColor       =   &H00C0C0C0&
  840.          BorderStyle     =   0  'No Border
  841.          ControlType     =   2  'Static
  842.          FontBold        =   -1  'True
  843.          FontItalic      =   0   'False
  844.          FontName        =   "Times New Roman"
  845.          FontSize        =   8.25
  846.          FontStrikethru  =   0   'False
  847.          FontUnderline   =   0   'False
  848.          ForeColor       =   &H000000FF&
  849.          Height          =   315
  850.          Index           =   8
  851.          Left            =   60
  852.          MarginLeft      =   10
  853.          MarginRight     =   0
  854.          MarginTop       =   0
  855.          TabIndex        =   26
  856.          TabStop         =   0   'False
  857.          Text            =   "12:00 - 12:30 pm:"
  858.          ThreeDOutsideStyle=   2  'Raised
  859.          ThreeDTextHighlightColor=   &H00FFFFFF&
  860.          ThreeDTextShadowColor=   &H00808080&
  861.          Top             =   2475
  862.          Width           =   1750
  863.       End
  864.       Begin AwareText fpText1 
  865.          AlignTextV      =   1  'Center
  866.          BackColor       =   &H00C0C0C0&
  867.          BorderStyle     =   0  'No Border
  868.          ControlType     =   2  'Static
  869.          FontBold        =   -1  'True
  870.          FontItalic      =   0   'False
  871.          FontName        =   "Times New Roman"
  872.          FontSize        =   8.25
  873.          FontStrikethru  =   0   'False
  874.          FontUnderline   =   0   'False
  875.          ForeColor       =   &H000000FF&
  876.          Height          =   315
  877.          Index           =   7
  878.          Left            =   60
  879.          MarginLeft      =   10
  880.          MarginRight     =   0
  881.          MarginTop       =   0
  882.          TabIndex        =   25
  883.          TabStop         =   0   'False
  884.          Text            =   "11:30 - 12:00 am:"
  885.          ThreeDOutsideStyle=   2  'Raised
  886.          ThreeDTextHighlightColor=   &H00FFFFFF&
  887.          ThreeDTextShadowColor=   &H00808080&
  888.          Top             =   2175
  889.          Width           =   1750
  890.       End
  891.       Begin AwareText fpText1 
  892.          AlignTextV      =   1  'Center
  893.          BackColor       =   &H00C0C0C0&
  894.          BorderStyle     =   0  'No Border
  895.          ControlType     =   2  'Static
  896.          FontBold        =   -1  'True
  897.          FontItalic      =   0   'False
  898.          FontName        =   "Times New Roman"
  899.          FontSize        =   8.25
  900.          FontStrikethru  =   0   'False
  901.          FontUnderline   =   0   'False
  902.          ForeColor       =   &H000000FF&
  903.          Height          =   315
  904.          Index           =   6
  905.          Left            =   60
  906.          MarginLeft      =   10
  907.          MarginRight     =   0
  908.          MarginTop       =   0
  909.          TabIndex        =   24
  910.          TabStop         =   0   'False
  911.          Text            =   "11:00 - 11:30 am:"
  912.          ThreeDOutsideStyle=   2  'Raised
  913.          ThreeDTextHighlightColor=   &H00FFFFFF&
  914.          ThreeDTextShadowColor=   &H00808080&
  915.          Top             =   1875
  916.          Width           =   1750
  917.       End
  918.       Begin AwareText fpText1 
  919.          AlignTextV      =   1  'Center
  920.          BackColor       =   &H00C0C0C0&
  921.          BorderStyle     =   0  'No Border
  922.          ControlType     =   2  'Static
  923.          FontBold        =   -1  'True
  924.          FontItalic      =   0   'False
  925.          FontName        =   "Times New Roman"
  926.          FontSize        =   8.25
  927.          FontStrikethru  =   0   'False
  928.          FontUnderline   =   0   'False
  929.          ForeColor       =   &H000000FF&
  930.          Height          =   315
  931.          Index           =   5
  932.          Left            =   60
  933.          MarginLeft      =   10
  934.          MarginRight     =   0
  935.          MarginTop       =   0
  936.          TabIndex        =   23
  937.          TabStop         =   0   'False
  938.          Text            =   "10:30 - 11:00 am:"
  939.          ThreeDOutsideStyle=   2  'Raised
  940.          ThreeDTextHighlightColor=   &H00FFFFFF&
  941.          ThreeDTextShadowColor=   &H00808080&
  942.          Top             =   1575
  943.          Width           =   1750
  944.       End
  945.       Begin AwareText fpText1 
  946.          AlignTextV      =   1  'Center
  947.          BackColor       =   &H00C0C0C0&
  948.          BorderStyle     =   0  'No Border
  949.          ControlType     =   2  'Static
  950.          FontBold        =   -1  'True
  951.          FontItalic      =   0   'False
  952.          FontName        =   "Times New Roman"
  953.          FontSize        =   8.25
  954.          FontStrikethru  =   0   'False
  955.          FontUnderline   =   0   'False
  956.          ForeColor       =   &H000000FF&
  957.          Height          =   315
  958.          Index           =   4
  959.          Left            =   60
  960.          MarginLeft      =   10
  961.          MarginRight     =   0
  962.          MarginTop       =   0
  963.          TabIndex        =   22
  964.          TabStop         =   0   'False
  965.          Text            =   "10:00 - 10:30 am:"
  966.          ThreeDOutsideStyle=   2  'Raised
  967.          ThreeDTextHighlightColor=   &H00FFFFFF&
  968.          ThreeDTextShadowColor=   &H00808080&
  969.          Top             =   1275
  970.          Width           =   1750
  971.       End
  972.       Begin AwareText fpText1 
  973.          AlignTextV      =   1  'Center
  974.          BackColor       =   &H00C0C0C0&
  975.          BorderStyle     =   0  'No Border
  976.          ControlType     =   2  'Static
  977.          FontBold        =   -1  'True
  978.          FontItalic      =   0   'False
  979.          FontName        =   "Times New Roman"
  980.          FontSize        =   8.25
  981.          FontStrikethru  =   0   'False
  982.          FontUnderline   =   0   'False
  983.          ForeColor       =   &H000000FF&
  984.          Height          =   315
  985.          Index           =   3
  986.          Left            =   60
  987.          MarginLeft      =   10
  988.          MarginRight     =   0
  989.          MarginTop       =   0
  990.          TabIndex        =   21
  991.          TabStop         =   0   'False
  992.          Text            =   "  9:30 - 10:00 am:"
  993.          ThreeDOutsideStyle=   2  'Raised
  994.          ThreeDTextHighlightColor=   &H00FFFFFF&
  995.          ThreeDTextShadowColor=   &H00808080&
  996.          Top             =   975
  997.          Width           =   1750
  998.       End
  999.       Begin AwareText fpText1 
  1000.          AlignTextV      =   1  'Center
  1001.          BackColor       =   &H00C0C0C0&
  1002.          BorderStyle     =   0  'No Border
  1003.          ControlType     =   2  'Static
  1004.          FontBold        =   -1  'True
  1005.          FontItalic      =   0   'False
  1006.          FontName        =   "Times New Roman"
  1007.          FontSize        =   8.25
  1008.          FontStrikethru  =   0   'False
  1009.          FontUnderline   =   0   'False
  1010.          ForeColor       =   &H000000FF&
  1011.          Height          =   315
  1012.          Index           =   2
  1013.          Left            =   60
  1014.          MarginLeft      =   10
  1015.          MarginRight     =   0
  1016.          MarginTop       =   1
  1017.          TabIndex        =   20
  1018.          TabStop         =   0   'False
  1019.          Text            =   "  8:30 -   9:30 am:"
  1020.          ThreeDOutsideStyle=   2  'Raised
  1021.          ThreeDTextHighlightColor=   &H00FFFFFF&
  1022.          ThreeDTextShadowColor=   &H00808080&
  1023.          Top             =   375
  1024.          Width           =   1750
  1025.       End
  1026.       Begin AwareText fpText1 
  1027.          AlignTextV      =   1  'Center
  1028.          BackColor       =   &H00C0C0C0&
  1029.          BorderStyle     =   0  'No Border
  1030.          ControlType     =   2  'Static
  1031.          FontBold        =   -1  'True
  1032.          FontItalic      =   0   'False
  1033.          FontName        =   "Times New Roman"
  1034.          FontSize        =   8.25
  1035.          FontStrikethru  =   0   'False
  1036.          FontUnderline   =   0   'False
  1037.          ForeColor       =   &H000000FF&
  1038.          Height          =   315
  1039.          Index           =   1
  1040.          Left            =   60
  1041.          MarginLeft      =   10
  1042.          MarginRight     =   0
  1043.          MarginTop       =   0
  1044.          TabIndex        =   19
  1045.          TabStop         =   0   'False
  1046.          Text            =   "  9:00 -   9:30 am:"
  1047.          ThreeDOutsideStyle=   2  'Raised
  1048.          ThreeDTextHighlightColor=   &H00FFFFFF&
  1049.          ThreeDTextShadowColor=   &H00808080&
  1050.          Top             =   675
  1051.          Width           =   1750
  1052.       End
  1053.       Begin AwareText fpText1 
  1054.          AlignTextV      =   1  'Center
  1055.          BackColor       =   &H00C0C0C0&
  1056.          BorderStyle     =   0  'No Border
  1057.          ControlType     =   2  'Static
  1058.          FontBold        =   -1  'True
  1059.          FontItalic      =   0   'False
  1060.          FontName        =   "Times New Roman"
  1061.          FontSize        =   8.25
  1062.          FontStrikethru  =   0   'False
  1063.          FontUnderline   =   0   'False
  1064.          ForeColor       =   &H000000FF&
  1065.          Height          =   315
  1066.          Index           =   0
  1067.          Left            =   60
  1068.          MarginLeft      =   10
  1069.          MarginRight     =   0
  1070.          MarginTop       =   1
  1071.          TabIndex        =   18
  1072.          TabStop         =   0   'False
  1073.          Text            =   "  8:00 -   8:30 am:"
  1074.          ThreeDOutsideStyle=   2  'Raised
  1075.          ThreeDTextHighlightColor=   &H00FFFFFF&
  1076.          ThreeDTextShadowColor=   &H00808080&
  1077.          Top             =   75
  1078.          Width           =   1750
  1079.       End
  1080.    End
  1081. End
  1082.  
  1083. Sub cancel_Click (Button As Integer)
  1084.     Dim I As Integer
  1085.     
  1086.     For I = 0 To 17
  1087.       Message(I).Text = ""
  1088.     Next
  1089.     
  1090.     Intro.Show
  1091.     Me.Hide
  1092.     
  1093.     del.Visible = False
  1094.  
  1095. End Sub
  1096.  
  1097. Sub del_Click (Button As Integer)
  1098. Dim answer
  1099.  
  1100.     answer = MsgBox("Are you sure you want to delete this day? ", 4 + 32)
  1101.     
  1102.     'If answer = Yes then delete the record and show the intro form
  1103.     If answer = 6 Then
  1104.         data1.Recordset.Delete
  1105.         Me.Hide
  1106.     End If
  1107.  
  1108. End Sub
  1109.  
  1110. Sub Form_Activate ()
  1111. Dim I As Integer
  1112.  
  1113.     Refresh
  1114.     Screen.MousePointer = 11   'Hourglass
  1115.     
  1116.     'Connect to Database and Retrieve Record For Day
  1117.     data1.Connect = ""
  1118.     data1.DatabaseName = App.Path + "\APPOINT.MDB"
  1119.     data1.RecordSource = "Select * from Appoint Where " & SDate & " And Name = " & "'" & selectedname & "'"
  1120.     data1.Refresh
  1121.  
  1122.    'If not reviewing the days appointments then
  1123.       'If no record was found then create a new record for that day
  1124.       'Else a record was found.  Allow that record to be edited.
  1125.    'Else if there are no records then
  1126.       'Display a record saying there are no appointments
  1127.     If Not Reviewing Then
  1128.         If data1.Recordset.RecordCount = 0 Then
  1129.             'MsgBox "Record Not Found," & Chr$(10) & "A New Record will Be Created ", 64, "Appointment"
  1130.             data1.Recordset.AddNew
  1131.             data1.Recordset.Fields("Date").Value = DbDate
  1132.             data1.Recordset.Fields("name").Value = selectedname
  1133.             Screen.MousePointer = 0
  1134.             Exit Sub
  1135.         Else
  1136.             data1.Recordset.Edit
  1137.             Screen.MousePointer = 0
  1138.             Exit Sub
  1139.         End If
  1140.     Else
  1141.        If Reviewing And data1.Recordset.RecordCount = 0 Then
  1142.           Beep
  1143.           MsgBox "There are No Appointments for this day", 64
  1144.           Me.Hide
  1145.           Reviewing = False
  1146.        End If
  1147.     End If
  1148.  
  1149.     Screen.MousePointer = 0   'Default
  1150. End Sub
  1151.  
  1152. Sub Form_Load ()
  1153.     
  1154.     centerform Me
  1155.   
  1156.     'Load all pictures displayed in the booleans
  1157.     ok.PictureFalse = LoadPicture(App.Path + "\note14.ico")
  1158.     Cancel.PictureFalse = LoadPicture(App.Path + "\note15.ico")
  1159.     del.PictureFalse = LoadPicture(App.Path + "\erase01.ico")
  1160.     prnt.PictureFalse = LoadPicture(App.Path + "\note14.ico")
  1161.   
  1162. End Sub
  1163.  
  1164. Sub ok_Click (Button As Integer)
  1165. Dim I As Integer
  1166.  
  1167.     'Save all changes then close database
  1168.     If Not Reviewing Then
  1169.         data1.Recordset.Update
  1170.     Else
  1171.         Reviewing = False
  1172.     End If
  1173.     data1.Recordset.Close
  1174.     
  1175.     'Clear all text from text boxes
  1176.     fpMemo1.Text = ""
  1177.     For I = 0 To 17
  1178.       Message(I).Text = ""
  1179.     Next
  1180.   
  1181.     Me.Hide
  1182.     del.Visible = False
  1183.  
  1184. End Sub
  1185.  
  1186. Sub prnt_Click (Button As Integer)
  1187.       'Prints the appointments
  1188.       
  1189.       Dim Lines As Integer
  1190.       
  1191.       Screen.MousePointer = 11  'Set Cursor to HourGlass
  1192.       
  1193.       Printer.FontSize = 14
  1194.       Printer.FontBold = True
  1195.       Printer.FontItalic = True
  1196.       Printer.FontUnderline = True
  1197.       Printer.Print Spc(22); Mid$(Schedule.Caption, 8, 31)
  1198.       Printer.FontSize = 12
  1199.       
  1200.       Printer.FontItalic = False
  1201.       Printer.FontUnderline = False
  1202.       Printer.Print
  1203.       Printer.Print
  1204.       Printer.Print
  1205.       
  1206.       Lines = 0
  1207.  
  1208.       If Not IsNull(data1.Recordset.Fields("TimeSlot1").Value) Then
  1209.          Printer.Print Spc(5); "8:00 AM - 8:30 AM"; Spc(5); data1.Recordset.Fields("TimeSlot1")
  1210.          Printer.Print
  1211.          Lines = Lines + 1
  1212.       End If
  1213.       If Not IsNull(data1.Recordset.Fields("TimeSlot2").Value) Then
  1214.          Printer.Print Spc(5); "8:30 AM - 9:00 AM"; Spc(5); data1.Recordset.Fields("TimeSlot2")
  1215.          Printer.Print
  1216.          Lines = Lines + 1
  1217.       End If
  1218.       If Not IsNull(data1.Recordset.Fields("TimeSlot3").Value) Then
  1219.          Printer.Print Spc(5); "9:00 AM - 9:30 AM"; Spc(5); data1.Recordset.Fields("TimeSlot3")
  1220.          Printer.Print
  1221.          Lines = Lines + 1
  1222.       End If
  1223.       If Not IsNull(data1.Recordset.Fields("TimeSlot4").Value) Then
  1224.          Printer.Print Spc(5); "9:30 AM - 10:00 AM"; Spc(4); data1.Recordset.Fields("TimeSlot4")
  1225.          Printer.Print
  1226.          Lines = Lines + 1
  1227.       End If
  1228.       If Not IsNull(data1.Recordset.Fields("TimeSlot5").Value) Then
  1229.          Printer.Print Spc(5); "10:00 AM - 10:30 AM"; Spc(3); data1.Recordset.Fields("TimeSlot5")
  1230.          Printer.Print
  1231.          Lines = Lines + 1
  1232.       End If
  1233.       If Not IsNull(data1.Recordset.Fields("TimeSlot6").Value) Then
  1234.          Printer.Print Spc(5); "10:30 AM - 11:00 AM"; Spc(3); data1.Recordset.Fields("TimeSlot6")
  1235.          Printer.Print
  1236.          Lines = Lines + 1
  1237.       End If
  1238.       If Not IsNull(data1.Recordset.Fields("TimeSlot7").Value) Then
  1239.          Printer.Print Spc(5); "11:00 AM - 11:30 AM"; Spc(3); data1.Recordset.Fields("TimeSlot7")
  1240.          Printer.Print
  1241.          Lines = Lines + 1
  1242.       End If
  1243.       If Not IsNull(data1.Recordset.Fields("TimeSlot8").Value) Then
  1244.          Printer.Print Spc(5); "11:30 AM - 12:00 PM"; Spc(3); data1.Recordset.Fields("TimeSlot8")
  1245.          Printer.Print
  1246.          Lines = Lines + 1
  1247.       End If
  1248.       If Not IsNull(data1.Recordset.Fields("TimeSlot9").Value) Then
  1249.          Printer.Print Spc(5); "12:00 PM - 12:30 PM"; Spc(3); data1.Recordset.Fields("TimeSlot9")
  1250.          Printer.Print
  1251.          Lines = Lines + 1
  1252.       End If
  1253.       If Not IsNull(data1.Recordset.Fields("TimeSlot10").Value) Then
  1254.          Printer.Print Spc(5); "12:30 PM - 1:00 PM"; Spc(4); data1.Recordset.Fields("TimeSlot10")
  1255.          Printer.Print
  1256.          Lines = Lines + 1
  1257.       End If
  1258.       If Not IsNull(data1.Recordset.Fields("TimeSlot11").Value) Then
  1259.          Printer.Print Spc(5); "1:00 PM - 1:30 PM"; Spc(5); data1.Recordset.Fields("TimeSlot11")
  1260.          Printer.Print
  1261.          Lines = Lines + 1
  1262.       End If
  1263.       If Not IsNull(data1.Recordset.Fields("TimeSlot12").Value) Then
  1264.          Printer.Print Spc(5); "1:30 PM - 2:00 PM"; Spc(5); data1.Recordset.Fields("TimeSlot12")
  1265.          Printer.Print
  1266.          Lines = Lines + 1
  1267.       End If
  1268.       If Not IsNull(data1.Recordset.Fields("TimeSlot13").Value) Then
  1269.          Printer.Print Spc(5); "2:00 PM - 2:30 PM"; Spc(5); data1.Recordset.Fields("TimeSlot13")
  1270.          Printer.Print
  1271.          Lines = Lines + 1
  1272.       End If
  1273.       If Not IsNull(data1.Recordset.Fields("TimeSlot14").Value) Then
  1274.          Printer.Print Spc(5); "2:30 PM - 3:00 PM"; Spc(5); data1.Recordset.Fields("TimeSlot14")
  1275.          Printer.Print
  1276.          Lines = Lines + 1
  1277.       End If
  1278.       If Not IsNull(data1.Recordset.Fields("TimeSlot15").Value) Then
  1279.          Printer.Print Spc(5); "3:00 PM - 3:30 PM"; Spc(5); data1.Recordset.Fields("TimeSlot15")
  1280.          Printer.Print
  1281.          Lines = Lines + 1
  1282.       End If
  1283.       If Not IsNull(data1.Recordset.Fields("TimeSlot16").Value) Then
  1284.          Printer.Print Spc(5); "3:30 PM - 4:00 PM"; Spc(5); data1.Recordset.Fields("TimeSlot16")
  1285.          Printer.Print
  1286.          Lines = Lines + 1
  1287.       End If
  1288.       If Not IsNull(data1.Recordset.Fields("TimeSlot17").Value) Then
  1289.          Printer.Print Spc(5); "4:00 PM - 4:30 PM"; Spc(5); data1.Recordset.Fields("TimeSlot17")
  1290.          Printer.Print
  1291.          Lines = Lines + 1
  1292.       End If
  1293.       If Not IsNull(data1.Recordset.Fields("TimeSlot18").Value) Then
  1294.          Printer.Print Spc(5); "4:30 PM - 5:00 PM"; Spc(5); data1.Recordset.Fields("TimeSlot18")
  1295.          Lines = Lines + 1
  1296.       End If
  1297.       
  1298.       If (Lines > 0) Then
  1299.          Printer.NewPage
  1300.          Printer.EndDoc
  1301.       End If
  1302.  
  1303.       Screen.MousePointer = 0 'Set Cursor Back To Arrow
  1304.  
  1305. End Sub
  1306.  
  1307.