ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 14.04.2024
Просмотров: 24
Скачиваний: 0
Опис процедур і функцій користувача:
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');