Can someone send across the code for a sample data entry form with validations,computed fields

Structure for table:D:\PSR MONITOR\UNFIXEDDEALSREGISTER.DBF
Number of data records: 1
Date of last update: 04/12/03
Code Page: 1252
Field Field Name Type Width Dec Category
1/A DATE Date 8 User Input
2/B DEALREF Character 50 User Input
3/C CUSTOMERCD Character 50 User Input
4/D CUSTOMER Character 50 User Input
5/E QTY Numeric 4 User Input
6/F QTYINOZ Numeric 7 3 User Input
7/G NOTIONALMR Numeric 6 2 User Input
8/H PREMIUM Numeric 4 2 User Input
9/I NOTIONALFX Numeric 5 2 User Input
10/J USDVALUE Numeric 20 2 Computed(6*(7+8))
11/K INRVALUE Numeric 20 2 Computed(10*9)
12/L CUSTOMSDUT Numeric 20 2 User Input
13/M OCTROIDUTY Numeric 20 2 User Input
14/N COMM Numeric 20 2 User Input
15/O SALESTAX Numeric 20 2 User Input
16/P DEALVALDTD Numeric 20 2 Computed(11+12+13+14+15)
17/Q AMTCOLL Numeric 20 2 Computed(16*110%)
18/R CURRMKTVAL Numeric 20 2 =((($P$2+G7)*E7*$P$4+K7+L7)+((($P$2+G7)*E7*$P$4+K7+L7)*1%))
19/S M2MLOSS Numeric 20 2 =IF(Q7>O7,Q7-O7,0)
20/T PSRUTIL Numeric 20 2 =IF((Q7*110%)>P7,(Q7*110%)-P7,0)
21/U MONIESCOLL Numeric 20 2 User Input
** Total ** 425

Computed Fields to be populated upon exiting from a user input field.

Can some one help with a from to
Add Records(option to clear all fields/cancel midway)
Modify Records
Delete Records
Fetch For Records based on a field input
Close Form


Thx & Rgds,

KB.