6. Використана література

1. Абчук В.А., Ліфшиц А.Л., Федулов А.А., Куштіна Е.І., Автоматизація керування, Москва «Радіо і зв'язок», 1984р.

2. Аппак М.А., Автоматизовані робочі місця на основі персональних ЕОМ, М.: Радіо і зв'язок, 1989 р.

3. Ахаян Р., Горєв А., Макашаріпов С. "Ефективна робота із СУБД", Санкт-Петербург, 1997р.

4. Баас Р., Фервай М., Гюнтер Х., Delphi 5: для користувачів: пер з нім. - К.: Іздетельская група BHV, 2000. -496 C: Іл.

5. Бадд Т. об'єктно-орієнтоване програмування в дії: Пер. з англ. - Спб: Пітер паблішинг, 1997.

6. Береза ​​А. М. Основи створення інформаційних систем: Навч. посібник. -К.: КНЕУ, 1998.

7. Бєгун А.В. Технологія програмування: об'єктно-орієнтований підхід: Навч.-метод. посібник для самост. вівч. дисц. - К.: КНЕУ, 2000.

8. Вендров А.М. CASE - технології. Сучасні методи і засоби проектування інформаційних систем. - М.: Фінанси і статистика, 1998.

9. Гері Хансен, Джеймс Хансен. Бази даних: розробка і управління: Пер. з англ. - М.: ЗАТ «Видавництво БІНОМ», 2000. - 704 с.

10. Дж.Ульман, "Основи систем баз даних", М.: Фінанси і статистика, 1983 р.

11. Дейт К., Введення в системи баз даних, М.: Hаука, 1980 р.

12. Кириллов В.В. Структуризовано мова запитів (SQL). - СПб.: ІТМО, 1994. - 80 с.

13. Клейнер Б.С., «Техогляд і ремонт автомобілів, організація, управління».

14. Крамаренко Г.В., Барашков І.В., Технічне обслуговування автомобілів: Підручник для автотранспортних технікумів. - М.: Транспорт, 1982.-368с., Іл.

15. Ландсберг І.Д., Соколін Л.З., Каманін В.Н., Ремонт електрообладнання автомобілів / І.Д. Ландсберг Л.З. Соколін В.Н. Каманін В.Н.-М.: Транспорт. 1981.-317 с., Іл.

16. Маміконов А. Г. "Проектування АСУ" (підручник для вузів), Москва "Вища школа".

17. Hаумов А.H., Вендров А.М. ін, Системи керування базами даних і знань, М.: Фінанси і статистика, 1991р.

18. Розуміння SQL (Understanding SQL). [SQL.RU] http://www.sql.ni/docs/sql/u sqI / index.shtml.

19. Сван Том. Секрети 32-розрядного програмування в Delphi. - К.: Діалектика, 1997. - 480 с., Іл.

20. Ситнік В.Ф., Писаревського Т.А., Єрьоміна Н.В. та ін. Основи інформаційніх систем. Навчальний посібник. - К.: КНЕУ, 2001.

21. Тайксера, Стів, Пачеко, Ксав'є. Delphi 5. Керівництво розробника, том 1. Основні методи і технологія програмування: Пер. з англ. М.: Видавництво дім «Вільямс», 2001. - 832 с.: Іл. - Парал. тит. англ.

22. Флен М.Є. Біблія Delphi. -2-e изд., БВХ-Петербург, 2008 р.

23. Хомоненко А., Delphi 7 в оригіналі .. СПб: BHV, 2003 - 1216 стор

24. Хохлач Е.Н. "Теоретичні основи створення і застосування АСУ", Москва, Міністерство оборони, 1987р.

7. Додатки Додаток а. Код програми

Текст модуля project1.dpr:

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.Run;

end.

Текст модуля Unit1.pas:

unit Unit1;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Image1: TImage;

BitBtn1: TBitBtn;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form5.Show;

end;

end.

Текст модуля Unit2.pas:

unit Unit2;

interface

uses

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

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

type

TForm2 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBMemo1: TDBMemo;

DataSource1: TDataSource;

Query1: TQuery;

Button1: TButton;

GroupBox2: TGroupBox;

DBNavigator1: TDBNavigator;

Button2: TButton;

Button3: TButton;

Button4: TButton;

GroupBox3: TGroupBox;

DBGrid1: TDBGrid;

Query2: TQuery;

DataSource2: TDataSource;

DataSource3: TDataSource;

Query3: TQuery;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBMemo2: TDBMemo;

DataSource4: TDataSource;

Table1: TTable;

DBNavigator2: TDBNavigator;

Button5: TButton;

GroupBox4: TGroupBox;

Table2: TTable;

DBEdit15: TDBEdit;

DataSource5: TDataSource;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBMemo3: TDBMemo;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

GroupBox5: TGroupBox;

DBNavigator3: TDBNavigator;

Button10: TButton;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Button11: TButton;

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);

begin

Query1.Open;

Query2.Open;

Query3.Open;

Table1.Open;

Table1.Open;

GroupBox3.Visible:=True;

GroupBox4.Visible:=False;

DBEdit1.Visible:=True;

DBEdit2.Visible:=True;

DBEdit3.Visible:=True;

DBEdit4.Visible:=True;

DBEdit5.Visible:=True;

DBEdit6.Visible:=True;

DBEdit7.Visible:=True;

DBMemo1.Visible:=True;

DBNavigator1.Visible:=True;

DBEdit8.Visible:=False;

DBEdit9.Visible:=False;

DBEdit10.Visible:=False;

DBEdit11.Visible:=False;

DBEdit12.Visible:=False;

DBEdit13.Visible:=False;

DBEdit14.Visible:=False;

DBMemo2.Visible:=False;

DBNavigator2.Visible:=False;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Query1.Close;

Query2.Close;

Query3.Close;

Table1.Close;

Table2.Close;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

Table1.Insert;

DBEdit1.Visible:=False;

DBEdit2.Visible:=False;

DBEdit3.Visible:=False;

DBEdit4.Visible:=False;

DBEdit5.Visible:=False;

DBEdit6.Visible:=False;

DBEdit7.Visible:=False;

DBMemo1.Visible:=False;

DBNavigator1.Visible:=False;

DBEdit8.Visible:=True;

DBEdit9.Visible:=True;

DBEdit10.Visible:=True;

DBEdit11.Visible:=True;

DBEdit12.Visible:=True;

DBEdit13.Visible:=True;

DBEdit14.Visible:=True;

DBMemo2.Visible:=True;

DBNavigator2.Visible:=True;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Table1.Edit;

DBEdit1.Visible:=False;

DBEdit2.Visible:=False;

DBEdit3.Visible:=False;

DBEdit4.Visible:=False;

DBEdit5.Visible:=False;

DBEdit6.Visible:=False;

DBEdit7.Visible:=False;

DBMemo1.Visible:=False;

DBNavigator1.Visible:=False;

DBEdit8.Visible:=True;

DBEdit9.Visible:=True;

DBEdit10.Visible:=True;

DBEdit11.Visible:=True;

DBEdit12.Visible:=True;

DBEdit13.Visible:=True;

DBEdit14.Visible:=True;

DBMemo2.Visible:=True;

DBNavigator2.Visible:=True;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Table1.Delete;

DBEdit1.Visible:=False;

DBEdit2.Visible:=False;

DBEdit3.Visible:=False;

DBEdit4.Visible:=False;

DBEdit5.Visible:=False;

DBEdit6.Visible:=False;

DBEdit7.Visible:=False;

DBMemo1.Visible:=False;

DBNavigator1.Visible:=False;

DBEdit8.Visible:=True;

DBEdit9.Visible:=True;

DBEdit10.Visible:=True;

DBEdit11.Visible:=True;

DBEdit12.Visible:=True;

DBEdit13.Visible:=True;

DBEdit14.Visible:=True;

DBMemo2.Visible:=True;

DBNavigator2.Visible:=True;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

Table2.Active:=True;

GroupBox3.Visible:=False;

GroupBox4.Visible:=True;

end;

procedure TForm2.Button7Click(Sender: TObject);

begin

GroupBox3.Visible:=True;

GroupBox4.Visible:=False;

DBEdit1.Visible:=True;

DBEdit2.Visible:=True;

DBEdit3.Visible:=True;

DBEdit4.Visible:=True;

DBEdit5.Visible:=True;

DBEdit6.Visible:=True;

DBEdit7.Visible:=True;

DBMemo1.Visible:=True;

DBNavigator1.Visible:=True;

DBEdit8.Visible:=False;

DBEdit9.Visible:=False;

DBEdit10.Visible:=False;

DBEdit11.Visible:=False;

DBEdit12.Visible:=False;

DBEdit13.Visible:=False;

DBEdit14.Visible:=False;

DBMemo2.Visible:=False;

DBNavigator2.Visible:=False;

end;

procedure TForm2.Button9Click(Sender: TObject);

begin

Table2.Insert;

end;

procedure TForm2.Button8Click(Sender: TObject);

begin

Table2.Delete;

end;

procedure TForm2.Button10Click(Sender: TObject);

begin

Table2.Edit;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

Table2.Post;

end;

procedure TForm2.Button11Click(Sender: TObject);

begin

Form2.Close;

end;

end.

Текст модуля Unit3.pas:

unit Unit3;

interface

uses

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

Dialogs, jpeg, ExtCtrls, DB, StdCtrls, Grids, DBGrids, DBTables, Mask,

DBCtrls;

type

TForm3 = class(TForm)

Image1: TImage;

DBGrid1: TDBGrid;

Label1: TLabel;

DataSource1: TDataSource;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

Label2: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label3: TLabel;

Label4: TLabel;

Table1: TTable;

Table2: TTable;

Query1: TQuery;

Button1: TButton;

Label5: TLabel;

DataSource3: TDataSource;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

Edit1: TEdit;

Panel1: TPanel;

Image2: TImage;

DataSource4: TDataSource;

Table3: TTable;

DBGrid3: TDBGrid;

Label6: TLabel;

DBGrid4: TDBGrid;

Label7: TLabel;

DataSource5: TDataSource;

Table4: TTable;

DBEdit5: TDBEdit;

Button2: TButton;

Button3: TButton;

DBEdit6: TDBEdit;

DBGrid5: TDBGrid;

DBGrid6: TDBGrid;

Button4: TButton;

Button5: TButton;

DataSource7: TDataSource;

Query2: TQuery;

Query3: TQuery;

DBNavigator3: TDBNavigator;

DBNavigator4: TDBNavigator;

Button6: TButton;

Label12: TLabel;

Panel2: TPanel;

Image4: TImage;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Button7: TButton;

Query5: TQuery;

Query6: TQuery;

DataSource8: TDataSource;

Label13: TLabel;

Edit2: TEdit;

Label14: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button2Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;