4.3 Описание процедур приложения

procedure TForm_Filter.BitBtn_FilClick(Sender: TObject) проводит фильтрацию по фамилиям;

procedure TForm_Filter.BitBtn_FilClick(Sender: TObject) проводит сортировку по фамилии сотрудников;

procedure TFormCarPark.RadioButton5Click(Sender: TObject) проводит сортировку по специальности сотрудников;

procedure TFormCarPark.RadioButton2Click(Sender: TObject) проводит сортировку по марке автомобиля;

procedure TFormCarPark.BitBtn_OutClick(Sender: TObject) закрывает приложение;

procedure TFormCarPark.BitBtn_SumClick(Sender: TObject) проводит подсчет выручки;

procedure TFormCarPark.BitBtn_EndClick(Sender: TObject) позволяет забрать машину с автостоянки;

procedure TFormCarPark.BitBtn_TicketClick(Sender: TObject) позволяет получить квитанцию об оплате;

procedure TFormCarPark.RadioGroup2Click(Sender: TObject) проводит фильтрацию записей;

Заключение

В стандартную поставку Delphi входят основные объекты, которые образуют удачно подобранную иерархию из 270 базовых классов. На Delphi можно одинаково хорошо писать как приложения к корпоративным базам данных, так и, к примеру, игровые программы. Тем не менее, это так. Во многом это объясняется тем, что традиционно в среде Windows было достаточно сложно реализовывать пользовательский интерфейс. Событийная модель в Windows всегда была сложна для понимания и отладки. Но именно разработка интерфейса в Delphi является самой простой задачей для программиста.

Список используемых источников

1. Дейт К. Введение в системы баз данных. Киев, Диалектика, 1998;

2. Карпова Т. БАЗЫ ДАННЫХ: модели, разработка, реализация, СПб. - «Питер бук», 2001 г. –304 с.:ил.

3. Информационные системы в экономике: Учебник для вузов/ Под ред. В.Дика –М.:Финансы и статистика, 1996

4. Гофман В., Хомоненко А. Работа с базами данных в Delphi. Практическое руководство. - Спб.:БХВ- Петербург, 2001 – 656 с.

5. Дарахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7. – СПб.: БХВ – Петербург, 2003. – 784 с.

6. Мартин Грабер, Введение в SQL. –М.: ЛОРИ, 1996. – 380 с.

7. Федорова А., Елманова Н., Базы данных для всех. – М.: КомпьютерПресс, 2001. – 256 с.

8. Кириллов В., Громов Г. Структурированный язык запросов (SQL). Учебное пособие - htpp://www/citforum.ru/database/sql_kg

9. Кузнецов С.Д. Основы современных баз данных – htpp://www/citforum.ru/database/osbd

Приложение

unit main;

interface

uses

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

Db, DBTables, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Math,

Buttons;

type

TFormCarPark = class(TForm)

PageControl1: TPageControl;

tsPlaces: TTabSheet;

tbPlace: TTable;

dsPlace: TDataSource;

tbPlacePlaceID: TAutoIncField;

tbPlaceCode: TIntegerField;

DBGrid1: TDBGrid;

dbnPlaces: TDBNavigator;

tsEmployee: TTabSheet;

tbEmployee: TTable;

dsEmployee: TDataSource;

dbgEmployee: TDBGrid;

tbEmployeeEmployeeID: TAutoIncField;

tbEmployeeFIO: TStringField;

tbEmployeeSpec: TStringField;

dbnEmployee: TDBNavigator;

tbAuto: TTable;

dsAuto: TDataSource;

tsAuto: TTabSheet;

DBGrid2: TDBGrid;

dbnAuto: TDBNavigator;

tbAutoAutoNumber: TStringField;

tbAutoMarka: TStringField;

tbAutoFIO: TStringField;

tsJournal: TTabSheet;

tbJournal: TTable;

dsJournal: TDataSource;

dbgJournal: TDBGrid;

DBLookupComboBox1: TDBLookupComboBox;

tbJournalPlaceID: TIntegerField;

tbJournalDateStart: TDateField;

tbJournalDateEnd: TDateField;