CSIS 208 Programming Assignment 7

The database Microland.accdb is maintained by the Microland Computer Warehouse, a mail-order computer-supply company. The illustrations below show data in the Customers table and the Orders Table in the database. The table identifies each customer by an ID number and gives, in addition to the name and address, the total amount of purchases during the current year. The Order table provides the customer id and the item ordered.

The database that contains the table for this assignment is contained within your Instructions folder and should be placed in your project’s bin\debug folder.

**To receive any points for this assignment you must do the following:
For this assignment you will open the attached Microsoft Access file and add your name and your instructors name in the customers table using the following information:

CustID Name Street City AmtPurchase
13 Your Name Your Street Your City 100.50
14 Your teachers Name Your Street Your City 95.25

You must also add the following lines to the Orders table

CustID itemID Quantity
13 HW921 3
14 SW109 2

Write a Visual Basic program that will:

  1. On the form_load event, display in a listbox the customers’ names that are listed in the Customers table.
  2. When the user selects a customer from the listbox,the customer’s name, street, city, and purchases should be displayed in the textboxes to the right of the buttons as illustrated below.
  3. The customer and the order table are joined and the orders for the customer are displayed in the atagrid. The datagrid should have headers for the data as shown below.
  4. The purchases should be formatted to be currency.
  5. A Display Total Purchases should be included to sum up all of the total purchases for all names listed in the lstOutput. This information should be displayed in a message box.
  6. A Clear button should be included to clear all of the textboxes and datagrid. [Note that it should not clear the listbox containing the customers’ names.]
  7. A Close button should be included to exit the application.

As in all of your assignments, make sure that you have used appropriate programming techniques (i.e. naming of controls and variables, form has a title, tab order of controls is appropriate, textboxes used for display purposes are not writeable, internal documentation/comments are clear, formatting of any currency fields, etc.)

This slideshow requires JavaScript.

This assignment includes a Visual Studio (VB) project

  • Attachments
    • CSIS208_Programming_Assignment_7.zip (246.14 KB)
      • CSIS208-Programming-Assignment-7-Screenshot-1.png
      • CSIS208-Programming-Assignment-7-Screenshot-2.png
      • CSIS208-Programming-Assignment-7-Screenshot.png
      • Visual Studio project
        • CSIS208ProgrammingAssignment7
          • CSIS208ProgrammingAssignment7
            • App.config
            • bin
              • Debug
                • CSIS208ProgrammingAssignment7.vshost.exe
                • CSIS208ProgrammingAssignment7.vshost.exe.config
                • CSIS208ProgrammingAssignment7.vshost.exe.manifest
                • MICROLAND.accdb
              • Release
              • CSIS208ProgrammingAssignment7.vbproj
              • Microland.Designer.vb
              • Microland.vb
              • My Project
                • Application.Designer.vb
                • Application.myapp
                • AssemblyInfo.vb
                • Resources.Designer.vb
                • Settings.Designer.vb
                • Settings.settings
              • obj
                • Debug
                  • CSIS208ProgrammingAssignment7.vbproj.FileListAbsolute.txt
                  • DesignTimeResolveAssemblyReferences.cache
                  • DesignTimeResolveAssemblyReferencesInput.cache
                  • TempPE
                    • MICROLANDDataSet.Designer.vb.dll
                    • My Project.Resources.Designer.vb.dll
            • CSIS208ProgrammingAssignment7.sln
            • CSIS208ProgrammingAssignment7.v12.suo
      Preview random excerpt
      xxxxxxxxxxx.xxxx = xxxx
      xxx xxxxxx xx xxxxxx
      xxx xxxxx xx xxxxxx = "xxxxxx * xxxx xxxxxxxxx xxxxx (xxxx = '" & xxxx & "')"
      xxx xxxxxxxxxxxxxxxx xx xxxxxx = "xxxxxxxx=xxxxxxxxx.xxx.xxxxx.12.0;xxxx xxxxxx=xxxxxxxxx.xxxxx"
      = New OleDbConnection(
      command As OleDbCommand =
      = query
      reader As OleDbDataReader
      connection.State =
      .Closed Then
      xxx xx
      xxxxxx = xxxxxxx.xxxxxxxxxxxxx
      xxxxx xxxxxx.xxxx()
      - - - more text follows - - -

    Purchasing Instruction
    List Price: $19
    Buy Now

    Buy More Save More
    Buy at least TWO items & save up to 30% OFF your ENTIRE order!
    Rack up instant rebates in your shopping cart. Simply add items to your cart, and see the savings add up.
    Discounts will automatically be applied on eligible orders.

    Add to Cart