База данных автосервиса

 

 

 

 

 

 

 

 

 

2.6 Текст  программы с описанием

unit Unit2; //подключение source Unit2

interface

uses

//подключение архитектур

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

Dialogs, StdCtrls, Menus, jpeg, ExtCtrls;

Type

//список объектов

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Image1: TImage;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

\\список процедур

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit4, Unit5, Unit3, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.Show; //показать форму 1

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form4.Show; //показать форму 4

Form4.Table1.Insert;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form5.Show; //показать форму 5

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

Form2.Close;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm2.Button7Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm2.Button8Click(Sender: TObject);

begin

Form8.QuickRep3.Preview;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, Mask, Buttons;

type

TForm4 = class(TForm)

Table2OrderNum: TIntegerField;

Table2CodeWork: TIntegerField;

Table1OrderNum: TAutoIncField;

Table1CodeAuto: TIntegerField;

Table1CodeOwner: TIntegerField;

Table1ActDate: TDateField;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Panel1: TPanel;

DataSource1: TDataSource;

Panel2: TPanel;

Panel3: TPanel;

Splitter1: TSplitter;

Table1: TTable;

Table2: TTable;

DataSource2: TDataSource;

Table3: TTable;

DataSource3: TDataSource;

Table1Marca: TStringField;

Table1Reg: TStringField;

DBGrid3: TDBGrid;

Table4: TTable;

DataSource4: TDataSource;

Table4OrderNum: TIntegerField;

Table4CodePart: TIntegerField;

DataSource5: TDataSource;

Table5: TTable;

Table6: TTable;

DataSource6: TDataSource;

Table2KindWork: TStringField;

Table4PartName: TStringField;

DataSource7: TDataSource;

Table7: TTable;

Table1Name: TStringField;

Table1LasteName: TStringField;

Table1SecondName: TStringField;

Table6CodePart: TAutoIncField;

Table6PartName: TStringField;

Table6CostPart: TCurrencyField;

Table6Guarantee: TIntegerField;

Table5CodeWork: TAutoIncField;

Table5KindWork: TStringField;

Table5CostWork: TCurrencyField;

Table5PeriodExecution: TIntegerField;

Table5Guarantee: TIntegerField;

Table2CostWork: TCurrencyField;

Table1CostSum: TCurrencyField;

Table4CostPart: TCurrencyField;

Button1: TButton;

Button2: TButton;

Query1: TQuery;

Query1SUMOFCostWork: TCurrencyField;

Query1OrderNum: TIntegerField;

DataSource8: TDataSource;

Table3CodeAuto: TAutoIncField;

Table3Info: TMemoField;

Table3TradeMarkAuto: TStringField;

Table3StateSign: TStringField;

Table3TPassport: TStringField;

Table3ColourAuto: TStringField;

Table3OutputYear: TSmallintField;

Table3MotorNum: TStringField;

Table3BodyNum: TStringField;

Table3UnderCgeNum: TStringField;

Table7CodeOwner: TAutoIncField;

Table7OLastName: TStringField;

Table7OFirstName: TStringField;

Table7OSecondName: TStringField;

Table7OPassportNum: TStringField;

Table7ODrivingLicence: TStringField;

Table7OContactPhone: TStringField;

Table7Info: TMemoField;

Table7Photo: TBlobField;

DBEdit1: TDBEdit;

Button3: TButton;

Label2: TLabel;

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure Table1CalcFields(DataSet: TDataSet);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Query1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

procedure Table1AfterInsert(DataSet: TDataSet);

procedure Button3Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit5, Unit6, Unit9;

{$R *.DFM}

procedure TForm4.FormCreate(Sender: TObject);

begin

Table1.Open;

Table2.Open;

//Edit1.Text:=DateToStr(Date);

Label2.Caption:=DateToStr(Date);

end;

procedure TForm4.Table1CalcFields(DataSet: TDataSet);

begin

//Table1CostSum.Value:=Summ(Table2CostWork.Value);

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm4.Query1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

//Query1.Filter:='OrderNum='+ Form4.Table1OrderNum.AsString;

end;

procedure TForm4.Table1AfterInsert(DataSet: TDataSet);

begin

Form4.Table1ActDate.Value:=Date;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Form9.Show;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;

type

TForm8 = class(TForm)

QuickRep1: TQuickRep;

QuickRep2: TQuickRep;

QuickRep3: TQuickRep;

TitleBand1: TQRBand;

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

SummaryBand1: TQRBand;

QRLabel1: TQRLabel;

Table1: TTable;

PageFooterBand1: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRSysData1: TQRSysData;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRSysData2: TQRSysData;

QRLabel6: TQRLabel;

QRDBText4: TQRDBText;

QRLabel7: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

end.

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, Buttons, ComCtrls, DBTables, DB, Grids, DBGrids;

type

TForm9 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

Query1: TQuery;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

DataSource2: TDataSource;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

Query1.Params.ParamValues['A']:=DateTimePicker1.Date;

Query1.Params.ParamValues['B']:=DateTimePicker2.Date;

Query1.Close;

Query1.Open;

end;

end.

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

Table1CodePart: TAutoIncField;

Table1PartName: TStringField;

Table1CostPart: TCurrencyField;

Table1Guarantee: TIntegerField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2.7 Описание  процесса отладки

Успешное завершение процесса компиляции не означает, что в программе  нет ошибок. Убедиться, что программа  работает правильно можно только в процессе проверки ее работоспособности, который называется тестирование.

Обычно программа редко  сразу начинает работать так, как  надо, или работает правильно только на некотором ограниченном наборе исходных данных. Это свидетельствует о  том, что в программе есть алгоритмические  ошибки. Процесс поиска и устранение ошибок называется отладкой.

Ошибки, возникающие в  процессе разработки и выполнение программы, могут быть:

• Синтаксические;
• Логические;
• Динамические.

Синтаксические ошибки вызываются нарушением синтаксиса языка и выявляются и устраняются при компиляции программы. Их обнаруживает компилятор, выдавая сообщения и указывая в тексте программы место, где  возникла ошибка.

Логические ошибки являются следствием реализации неправильного  алгоритма и проявляются при  выполнении программы. Их наличие обычно не приводит к выдаче пользователю каких-либо сообщений или прекращению  работы всего приложения, однако программа  будет работать некорректно и  выдавать неправильные результаты.

Динамические ошибки возникают  при выполнении программы и являются следствием неправильной работы операторов, процедур, функций и методов программы, а так же операционной системы. Динамические ошибки называют также ошибками времени  выполнения.

2.8 Описание  результатов решения и их оценка

В результате разработки БД автосервиса, БД позволяет вести учет всех автомобилей, когда-либо находящихся в автосервисе, хранит полную информацию о каждом автомобиле (марка, регистрационный знак, цвет, год выпуска, серийные номера завода-изготовителя и т.п.), позволяет вести учет владельцев автомобилей, которые когда-либо обращались в автосервис. Программа позволяет также распечатать отчет по всем параметрам, интересующим как владельцев автосервиса (информация о владельцах автомобилей, информация об автомобилях, полный отчет по всем заказам либо по заказам за определенный интервал времени), так и его клиентов (расценки на услуги, новые запчасти, сезонные скидки); это позволяет вести отчетность на бумаге.

В БД хранится информация о каждом владельце, о каждом автомобиле, которые хотя бы единожды пользовались услугами автосервиса. Существует возможность хранения не только основной и самой необходимой  информации, но и примечаний, уточнений, фотографий владельцев и автомобилей, описания и тех. характеристик устанавливаемых  запчастей и много другой полезной информации.

 

 

Список  литературы

http://ru.wikipedia.org/ -информационный портал

Delphi в задачах и примерах // Никита Культин

http://delphiexpert.ru/ - фан-сайт Delphi