Файл: стсрьтсьсьсрсьоспмь.doc

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

procedure BitBtn2Click(Sender: TObject); - відповідає за закриття всієї програмиї.

Form4:

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

procedure BitBtn2Click(Sender: TObject); - відповідає за закриття всієї програмиї.

Form5:

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

procedure BitBtn2Click(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. Інструкція для роботи з програмою:

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

При відкритті вікна програми користувач бачить форму(«Співробітники») програми яке дає змогу виконувати різні дії по відношенню до бази даних.

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

Вибравши відповідний запит програма відразу ж, покаже результат.

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

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

Label1: TLabel;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

ComboBox1: TComboBox;

Label2: TLabel;

Table1: TTable;

DataSource1: TDataSource;

Query1: TQuery;

DBNavigator1: TDBNavigator;

procedure ComboBox1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

var x:integer;

begin

x:=combobox1.itemindex;

case x of

0:begin

with Query1 do

begin

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

Active:=False;

SQL.Clear;

sql.Add('Create table "tab.db"');

sql.Add('(PIP char(50), Posada char(20), Zarplata float(8))');

ExecSQL;

End

else begin

active:=false;

sql.clear;

---

Висновок

Під час проходження навчальної практики я остаточно закріпив теоретичні знання та набув практичні навички роботи з базами даних. За допомогою програмного середовища Borland Delphi мною була створена базу даних для роботи з інформаційним матеріалом на тему «Салон чоловічих сорочок», створені необхідні таблиці та виконані відповідні запити згідно виданого завдання. Навчився самостійно створювати SQL-запити в Borland Delphi.

Література

1 Бакнелл Джордж. Фундаментальные алгоритмы и структуры данных в Delphi. – DiaSoft, 2003. – 557 с. 2 Браст Эндрю Дж., Форте С. Разработка приложений на основе Microsoft SQL Server 2005. - Русская Редакция, 2007. – 880 с. 3 Сорокин А.В. Delphi. Разработка базы данных. - Питер, 2005. – 474 с.

4 Фаронов В.В. Delphi 2005. Разработка приложений для баз данных и Интернета. – Питер, 2006. – 603 с.

5 Хомоненко А. Д., Цыганков В. М., Мальцев М. Г. Базы даннях. - СПб.: КОРОНА, 2004. – 736 с.

---