Form1 Product Information Form1 Label1 Item: Label2 Price: Price Label3 Qty in Stock: Product DBENGINE TopButton NextButton BottomButton Bottom PreviousButton Previous MNU_File &File MNU_Create &Create Product Database MNU_Quit &Quit Form_Click @ Form_Load Product6 TableName IndexID SaveEveryChange False Action OpenTable Form_Unload Cancel CloseTableK MNU_Quit_Click* GetRecordo FillFormF FieldName GetField FieldValued Price Command1_Click FirstRecord Command2_Click LastRecord Command3_Click NextRecord Command4_Click PreviousRecord# Command5_Click5 PutField InsertRecord Reaction Command6_Click UpdateRecord @ FillCombo Item_Change SearchMode SearchFirst/ SearchField Item_LostFocus Item_Click TopButton_Clickj BottomButton_Click NextButton_Click PreviousButton_Click DTBL_Error Customer DataTable_Error ErrorCode DBENG_Error MNU_Create_Click NFields} TableFieldNames TableFieldTypes CreateTable IndexNFields CreateIndex Fill_Database TableType Paradox40 Form_Load Here we set up the DataTable - Table parameterso Note - Here is the PRODUCT database table structure: FIELD FIELD TYPE Item A50 Price Qty Note key fields are marked with an *.. Also note that this program expects the PRODUCT database (PRODUCT.DB and PRODUCT.PX) to be located on drive C in the root directory. C:\PRODUCT Specify database table name. Open with all indexes. Buffer data to disk. Open up the tableT Fill the combo box on the form with products from the database. in the field Item. Fill the form. Form_Unload MNU_Quit_Click FillForm Fill in the form with a record from the database Get the first record Item field Get the field value Place in the combo box Price" Price fieldo Get the field valuel Place in text box Qty field Get the field value Place in text box' FillCombo Here we have some code to fill a Visual Basic Combo boxx With products from our database. We will be placing itemss from the datatbase into our combo box using the AddItem method Get the record Error handlerF Field in the database with the items to place in the combo boxn Move to the first record in the database.. Loop to place all items in combo box. Loop while no DataTable error. Get the record Get the field value Add it to the combo box list Move to next recordt Done now move back to the first record. Item_Click Item not found!" TopButton_Click Move to the first record in the table Fill the form BottomButton_Click Move to the last record in the table Fill the form NextButton_Click Move to the next record Fill the form PreviousButton_Click Move to the previous recordv Fill the form DBENG_Error Error code:" -Drive not ready! Error code:" -End of table! Error code:" -Start of table! Error code:" -Table not found!" Error code:" -Unknown error!" MNU_Create_Click We will create the Product table here in the root directory on drive C C:\Product Item,Price,Qty A50,$,S" Now create the primary index C:\Product Fill_Database This function fills in the C:\PRODUCT database with a few itemss in order to have records to fill the combo box.. Place the first item, price and Qty in the databasee VGA Monitor" Price" 245.00 Insert a new record Place the second item, price and Qty in the database EGA Monitor" Price" 145.00 Insert a new record Place the third item, price and Qty in the database CGA Monitor" Price" 145.00 Insert a new record Place the fourth item, price and Qty in the database Keyboard/101 key/AT Style" Price" 55.00" Insert a new record Place the fifth item, price and Qty in the databasee Mouse/serial Price" 35.00" Insert a new record