Разработка приложения «Автосалон»

СОДЕРЖАНИЕ

 

 

ВВЕДЕНИЕ

 

Целью курсовой работы является разработка приложения «Автосалон», которая по своей сути является справочной системой по автосалону. Данный курсовой проект предполагается разработать в визуальной среде разработки Borland Delphi 7. Для начала в программу предполагается ввести начальные сведения об автомобилях, их тех. характеристики, и имена владельцев. Всю информацию об автосалоне предполагается записывать в типизированный файл. При необходимости  выполнить следующие запросы:

• выдать информацию о наличии автомобилей определенной марки и модели;

• выдать технические данные заданной модели;

• выдать информацию обо всех проданных моделях некоторой марки;

• посчитать сумму продаж моделей каждой марки и общую сумму продаж за год;

• выдать информацию о самом дорогом автомобиле;

• выдать списки клиентов и автомобилей по виду оплаты;

• посчитать количество автомобилей на складе.

                            

 

1 ТЕХНИЧЕСКОЕ  ЗАДАНИЕ

1. Текст задания

Существует некоторая фирма, торгующая  автомобилями. Автомобиль выступает  в качестве товара и как товар  имеет определенные характеристики. Кроме того, на каждый автомобиль имеются исчерпывающие технические данные. Фирма имеет своих клиентов — покупателей автомобилей. Деятельность автосалона описана следующими данными: марка автомобиля, модель, страна-изготовитель, наличие на складе (да, нет), тип кузова, количество дверей, количество мест, тип двигателя, расположение двигателя, рабочий объем двигателя, цена, ФИО покупателя, дата продажи, вид оплаты.

Хранить данные в типизированном файле. Создать, сохранить, открыть файл, дописать данные в конец файла.  Выполнить следующие запросы:

• выдать информацию о наличии автомобилей определенной марки и модели;
• выдать технические данные заданной модели;
• выдать информацию обо всех проданных моделях некоторой марки;
• посчитать сумму продаж моделей каждой марки и общую сумму продаж за год;
• выдать информацию о самом дорогом автомобиле;
• выдать списки клиентов и автомобилей по виду оплаты;
• Посчитать количество автомобилей на складе.

 

 

 

 

 

 

 

 

 

 

 

1.2 Постановка задачи

Составить программу, помогающую узнать сведения об автосалоне.

В файле должны храниться следующие сведения:

• марка автомобиля,

• модель,

• страна-изготовитель,

• наличие на складе (да, нет),

• тип кузова,

• количество дверей,

• количество мест,

• тип двигателя,

• расположение двигателя,

• рабочий объем двигателя,

• цена,

• ФИО покупателя,

• дата продажи,

• вид оплаты.

Приложение с использованием данных из файла должна обеспечивать:

• Выдать информацию о наличии автомобилей определенной марки и модели;

• Выдать технические данные заданной модели;

• Выдать информацию обо всех проданных моделях некоторой марки;

• Посчитать сумму продаж моделей каждой марки;

• Выдать информацию о самом дорогом автомобиле;

• Выдать списки клиентов и автомобилей по виду оплаты;

• Посчитать количество автомобилей на складе.

 

2 ТЕХНИЧЕСКИЙ  ПРОЕКТ

2.1 Структурная схема

 

 

 

 

 

 

 

 

 

 

Рисунок 2.1 - Структурная  схема приложения

 

2.2 Назначение модулей

Имя модуля	Назначение
Unit1	Выводит главную форму FormMain
Unit2	Выводит форму FormNew позволяющею добавить новые данные в файл
Unit3	Выводит форму Form1P, дающею информацию по запросу «Информация о наличии авто»
Unit4	Выводит форму Form3P, дающею информацию по запросу «Информация о проданных авто»
Unit5	Выводит форму Form6P, дающею информацию по запросу «Выдать списки клиентов и авто по виду оплаты»
Unit6	Выводит форму Form6, дающею информацию по запросу «Сумма по каждой модели»

Рисунок 2.1 – Назначение модулей

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2.3 Описание алгоритмов модулей

2.3.1 Unit1

N221Click

 

 

 

 

 

N222Click

 

 

N251Click

 

 

 

 

N2Click

 

 

 

 

 

 

N311Click

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

N4Click

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

N81Click

 

 

 

 

 

 

 

N9Click

 

 

 

N3Click

 

 

 

 

Button1Click

 

 

 

 

 

 

 

2.3.2 Unit2

BitBtn1Click

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2.3.3 Unit3

Button1Click

 

 

 

 

 

 

 

Button2Click

 

2.3.4 Unit4

Button1Click

 

 

 

 

 

 

 

 

 

 

 

Button2Click

2.3.5 Unit5

Button1Click

 

 

 

 

 

Button2Click

 

 

 

 

 

2.3.6 Unit6

Button1Click

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Button2Click

 

 

 

 

 

 

 

 

 

 

 

 

2.4 Формы

Главная форма с рабочим меню представлена на рисунке 2.1 и рисунке 2.2.

Рисунок 2.1 – Главная  форма меню файл

Рисунок 2.2 – Главная  форма запросы

Главная форма «Запросы → Инфа о наличие авто»

 

Рисунок 2.3 – Форма  «Инфа о наличие авто на складе»

 

 

 

 

 

Главная форма «Запросы → Инфа о проданных авто»

 

Рисунок 2.4 – Форма  «Выдать информацию обо всех проданных  моделях некоторой марки»

 

 

Главная форма «Запросы → Самый  дорогой авто»

 

Рисунок 2.5 – Запрос «Самый дорогой авто»

 

Главная форма «Запросы → Выдать список клиентов и авто по виду оплаты»

 

Рисунок 2.6 – Запрос «Выдать  список клиентов и авто по виду оплаты»

 

 

 

 

 

 

Главная форма «Запросы → Сумма  по каждой модели»

 

Рисунок 2.7 – Запрос «Сумма по каждой модели определенной марки»

 

 Главная форма «Количество автомобилей на складе» и «Тех. данные  модели»

Рисунок 2.8 – Главная  форма

 

 

 

 

 

 

3 РАБОЧИЙ ПРОЕКТ

3.1 Текст программы

 

Программа состоит из шести модулей.

Текст модуля Unit 1:

unit Unit1; // Главная форма

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, StdCtrls, Buttons, ExtCtrls, ComCtrls, Grids;

type

  TFormMain = class(TForm)

    Panel1: TPanel;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N9: TMenuItem;

    StringGrid1: TStringGrid;

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    N221: TMenuItem;

    N222: TMenuItem;

    N81: TMenuItem;

    Label20: TLabel;

    N251: TMenuItem;

    N311: TMenuItem;

    procedure N9Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure N221Click(Sender: TObject);

    procedure N81Click(Sender: TObject);

    procedure N222Click(Sender: TObject);

    procedure N251Click(Sender: TObject);

    procedure N311Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

type Avto=Record  //Прописали все значение таблицы и их тип

   Marka:String[30];   //марка

   Model:String[50]; //модель

   DataP:TdateTime; //дата продаж

   Stran:string[30]; //страна

   Nali:string[10]; // наличие на складе

   Zena:real;//  цена

   KolD:integer; //количество дверей

   TipK:string[50];// тип кузова

   KolM:integer;// количество мест

   TipD:string[30];//тип движка

   ObD:real;//обьем движка

   Pokup:string[50];//ФИО покупателя

   VidO:string[30];//вид оплаты

   RaspD:string[50];// расположение движка