!H LoadNew EntryDelete Entry$ Position in DB:$ No. of Entries:Previous NextFirst NameBirth DateAddress FredE-MailSalaryHoraceBarney442-2244*&slateh@hotmail.com Phone5.5.1955 SlateFlintstone62fredflinfstone@yahoo.com6.6.1966Rubble40barneyb@stonehendge.netLast NameRockhead4.4.1944 Joe&"jr@microsoft.comPosition OwnerExcavatorLaborerLaborerGravelShellySecretary8.8.1988*&dollybelle@xxx.com Jason Lim456-7890,(jason.lim@yahoo.com:61558 S.Manchester Ave., LA7.7.1977 Tan Rick649-2038&"ricky@triade.orgunknownunknown2.2.1922666-6666PetersonStephen11.11.1911 N/A167-3333.*stephen@peterson.netLaborerLaborer.*400 S Beverly Dr, LALocal pub8.6.1957555-5555&"Orchurd Park, NY$ 21 Jake St., LA*&100 W 10th St., LA.*1029#A Kent Ave., LA552-0600(position&entries*firstcell lcol Col  LoadReLoad for i=7 to LastRow(1) Sel(CellRef(1,i,1)) DeleteCells(False) end if entries = 0 MsgBox("No Entries in Database") else Set(position,1) for i=1 to lcol Set(CellRef(1,i+6,1),CellRef(i,1,2)) Set(CellRef(2,i+6,1),CellRef(i,2,2)) Sel(CellRef(i,2,2)) end for i=1 to lcol Sel(CellRef(1,i+6,1)) FormatPainter(CellRef(i,1,2)) Sel(CellRef(2,i+6,1)) FormatPainter(CellRef(i,2,2)) end end TopLeftCell(Database!a1) TopLeftCell(EditForm!a1)Previousif IsBlank(entries) Load end if position=1 MsgBox("This is the first entry") else for i=1 to lcol Set(CellRef(2,i+6,1),CellRef(i,position,2)) end Set(position,position-1) end ReLoad Nextif IsBlank(entries) Load end if Position>=entries MsgBox("This is the last entry") else if position>entries for i=1 to lcol Set(CellRef(2,i+6,1),CellRef(i,entries+1,2)) end Set(position,entries) else for i=1 to lcol Set(CellRef(2,i+6,1),CellRef(i,position+2,2)) end Set(position,position+1) end end ReLoadNew EntryLif IsBlank(entries) Load end Sel(RangeRef(2,7,2,LastRow(1))) Clear() Set(entries,entries+1) Set(position,entries) 'TopLeftCell(EditForm!a1) Sel(EditForm!b7) Savecelltext = ActiveCell() rownum = Row(ActiveCell())-6 Set(CellRef(rownum,position+1,2),celltext) if position>1 Sel(CellRef(rownum,position+1,2)) FormatPainter(CellRef(rownum,position,2)) end ActiveSheet(1)Y"Database Entrieschead = ActiveCell() Set(lcol,LastCol(1)) ccol = Column(ActiveCell()) Sel(ActiveCell()) FormatPainter(FirstCell) 'TopLeftCell(Database!a1) ActiveSheet(1) Set(CellRef(1,ccol+6,1),chead) Sel(CellRef(1,ccol+6,1)) FormatPainter(CellRef(1,1,2)) ActiveSheet(2)XReLoadActiveSheet(2) Set(entries,LastRow()-1) Set(lcol,LastCol(1)) ActiveSheet(1)3Delete Entryif entries = 0 MsgBox("No Entries in Database") else if YesNoBox("Delete Entry?") ActiveSheet(2) Sel(CellRef(1,position+1)) DeleteCells(False) x = LastRow()-1 ActiveSheet(1) if position = 1 Set(position,position) else Set(position,position-1) end if entries-1<>0 for i=1 to lcol Set(CellRef(2,i+6,1),CellRef(i,position+1,2)) end else Sel(RangeRef(2,7,2,LastRow(1),1)) Clear() TopLeftCell(EditForm!a1) end Set(entries,x) end endEditFormDatabase OTahomaX  X"9 ȘA cJOArialX  X"9 ȘA cJOArialX  X"9 ȘA cJOArialX  X"9 ȘA cJOArialX  X"9 ȘA cJO TahomaX  X"9 ȘA cJO TahomaX  X"9 ȘA cJO  TahomaX  X"9 ȘA cJ  - -$($)$($)%-%M/d/yyd-MMM-yyd-MMMMMM-yyh:mm tt H:mmh:mm:ss ttH:mm:ssM/d/yyH:mm M/d/yy H:mm K - K  K - K d.M.yyd.M.yy H:mm @ @ @ @ IA @ @ @ @ IA@ @@ @ IA Z&?'?(?)?*,@d# m     #                                     ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~                                                                                                                   Z&?'?(?)?*,d#          D        H @>F@ H  ?9 H!,A? H"BA H#$%&C5'.A H)(<-D*+@ H./24301sA H67=8E:;@ $  $  $  $  $  $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $  $! $" $# $$ $% $& $' $( $) $* $+ $, $- $. $/ $0 $1 $2 $3 $4 $5 $6 $7 $8 $9 $: $; $< $= $> $? $@ $A $B $C $D $E $F $G $H $I $J $K $L $M $N $O $P $Q $R $S $T $U $V $W $X $Y $Z $[ $\ $] $^ $_ $` $a $b $c $d $e $f $g $h $i $j $k $l $m $n $o $p $q $r $s $t $u $v $w $x $y $z ${ $| $} $~ $ $ $ $ $ $ $ $ $ $ $ $ $