Файл: Отчет.doc

Опис процедур і функцій користувача:

Form1:

procedure Button1Click(Sender: TObject); - відповідає за відображення F1.

procedure N1Click(Sender: TObject); - відповідає за вихід з програми.

procedure Button2Click(Sender: TObject); - відповідає за відображення F2.

procedure Button3Click(Sender: TObject); - відповідає за відображення F3.

procedure N2Click(Sender: TObject); - відповідає за відкритя форми «Информація».

F1:

procedure Image2Click(Sender: TObject); - відповідає за закриття форми та повернення до головної.

F2:

procedure Image2Click(Sender: TObject);- відповідає за закриття форми та повернення до головної.

F3:

procedure Image2Click(Sender: TObject);- відповідає за закриття форми та повернення до головної.

AboutBox1:

procedure BitBtn1Click(Sender: TObject); - відповідає за закриття форми та повернення до головної.

Опис стандартних процедур і функцій, що використовувались у програмі:

function IntToStr (StringInteger : string ) : Integer; - функція конвертує ціле значення Integer в рядкову велечину.

function Showmessage ( const Message : string; DialogType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpContext : Longint ) : Integer; - функция використовується для відображення повідомлень користувачу.

---

2 Практична частина

2.1. Інструкція для роботи з програмою:

Для початку роботи програми запустіть файл Avto.exe.

При відкритті вікна програми користувач бачить головне меню(«Ведомость про владельца», «Редактировать базу», «Выполнить запрос») програми яке дає змогу виконувати різні дії по відношенню до бази даних. Також наявні кнопки «Вихід» та «Информация». При натисненні на які користувач завершить роботу з програмою або побаче вікно з додатковою інформацію про дану програму.

Для перегляду бази даних всіх сорочок потрібно натиснути першу кнопку, в наслідок чого відкриється вікно з назвою «Автовласники ». В ньому знаходиться таблиця в якій можна переглянути ввесь вміст бази даних.

Для того щоб повернутися в гловне меню потрібно натиснути кнопку «Закрыть».

Повернувшись до головного меню можна обрати потрібну вам дію. Якщо ви хочете відредегувати вміст бази даних, то нажмість на другій кнопці. З’явиться вікно подібне до першого але буду новий елемент «Навігатор». За допомогою навігатору можно переходити зі строчки на строчку, а також додавати або вилучати записи с бази даних. Ящо порібно змінити значення в якійсь одній комірці то клацніть подвійним натиснення по ній і введіть потрібне значення. Для того щоб повернутися в гловне меню потрібно натиснути кнопку «Закрыть».

Для того щоб виконати запити слід обратни відповіднпий пункт меню. Після чого з’явится вікно. В першій частині якого знаходить випадаючий список з варінтами запиту, а в другій таблиця для відображення результату. Оберіть потрібний запит та одразу з’явится результат.

Для того щоб повернутися в гловне меню потрібно натиснути кнопку «Закыть».

---

В головному вікні також є міні-меню до складу якого входять такі елементи «Вихід» «Информация». При виборі елементу «Вихід» ви завершуєте роботу з програмою. При виборі пункту «Про програму» з’явиться інформаційне вікно.

В цьому вікні написан коротка інфорамція про дану програму, а саме Назва, графічне зображення яке символізує програму, короткий коментар про те для чого призначена програма, та хто розробив дану програму.

Для виходу в головне меню потрібно натиснути кнопку «ОК», а далі вже продовжити роботу з програмою на ваш розсуд.

2.2. Програмний код: Лістинг модуля Unit1

unit Unit1;

interface

uses

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

Dialogs, jpeg, ExtCtrls, Menus;

type

TForm1 = class(TForm)

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

aboutbox.ShowModal;

end;

procedure TForm1.Image2Click(Sender: TObject);

begin

F1.showmodal;

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Image3Click(Sender: TObject);

begin

F2.showmodal;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

F3.showmodal;

end;

end.

---

Лістинг модуля Unit2

unit Unit2;

interface

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

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProductName: TLabel;

Version: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

end;

end.

Лістинг модуля Unit3

unit Unit3;

interface

uses

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

Dialogs, jpeg, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TF1 = class(TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

Image1: TImage;

Image2: TImage;

procedure Image2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F1: TF1;

implementation

uses Unit1, Unit2, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TF1.Image2Click(Sender: TObject);

begin

close;

end;

end.

Лістинг модуля Unit4

unit Unit5;

interface

uses

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

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

type

TF3 = class(TForm)

Table1: TTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Query1: TQuery;

ComboBox1: TComboBox;

Label1: TLabel;

Image1: TImage;

Panel1: TPanel;

Image2: TImage;

procedure ComboBox1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F3: TF3;

implementation

{$R *.dfm}

procedure TF3.ComboBox1Change(Sender: TObject);

var x:integer;

begin

x:=combobox1.itemindex;

case x of

0:begin

---

with Query1 do

begin

if not(fileexists('mashinu.db')) then begin

Active:=False;

SQL.Clear;

SQL.Add('CREATE TABLE "mashinu.db"');

SQL.Add('(PIP char(20), Nomer float, Kraina char(2))');

ExecSQL;

end

else begin

active:=false;

sql.clear;

sql.add('DELETE FROM "mashinu.db"');

execSQL;

end;

close;

active:=false;

sql.Clear;

sql.Add('insert into "mashinu.db"(PIP, Nomer, Kraina)');

sql.add('select PIP, Nomer, Kraina');

sql.Add('from "avto.DB"');

sql.Add('where Kraina="ÞÀ"');

execsql;

active:=false;

sql.Clear;

sql.Add('select *');

sql.Add('from "mashinu.db"');

active:=true;

end;

end;

1:begin

with Query1 do

begin

active:=false;

sql.clear;

sql.Add('select PIP, Nomer, Colir');

sql.Add('from "avto.DB"');

sql.Add('where colir="ñ³ðèé"');

active:=true;

end;

end;

2:begin

with Query1 do

begin

active:=false;

sql.clear;

sql.Add('select PIP, Adresa');

sql.Add('from "avto.DB"');

SQL.Add('where Nomer like "%35%"');

SQL.Add(' order by Nomer');

active:=true;

end;

end;

3:begin

with Query1 do

begin

active:=false;

sql.clear;

sql.Add('select PIP,Marka,Kraina');

sql.Add('from "avto.DB"');

sql.Add('where Nomer>4000');

active:=true;

end;

end;

4:begin

with Query1 do

begin

active:=false;

sql.clear;

sql.Add('select PIP,Marka,Nomer');

sql.Add('from "avto.DB"');

sql.Add('where Kraina="ÐÓ"');

active:=true;

end;

end;

5:begin

with Query1 do

begin

active:=false;

sql.clear;

sql.Add('select PIP,Nomer,Marka,Kraina');

sql.Add('from "avto.DB"');

sql.Add('where Sim_stan="í"');

active:=true;

end;

end;

6:begin

with Query1 do

begin

active:=false;

sql.clear;

sql.Add('select PIP,Adresa,Nomer');

sql.Add('from "avto.DB"');

sql.Add('where Marka="Lexus"');

active:=true;

end;

end;

7:begin

with Query1 do

begin

active:=false;

sql.clear;

sql.Add('delete');

---