База даних Бюро знайомств

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ КОРАБЛЕБУДУВАННЯ

ім. адм. Макарова

Херсонський філіал

Кафедра інформаційніх технологій

Курсова робота

З ДІСЦІПЛІНІ

"Об'єктно - орієнтоване програмування"

ТЕМА: Розробка програмного забезпечення "Бюро знайомств"

Виконала:

Перевірів:

Херсон 2004

Хід роботи програми

Модуль Proect1 містить інформацію про всі 7-ми Формах.

Форма 1 (Unit1) складається з 6-ти кнопок і зберігає процедури їх обробки:

Кнопка Нова анкета дозволяє створити нову анкету клієнта, що містить дані про нього.
Кнопка Перегляд анкет виводить список раніше зареєстрованих клієнтів.
Кнопка Робота з архівом відкриває таблицю, яка містить особисті дані клієнтів про себе і розділ анкет по підлозі.
Кнопка Перегляд архіву відкриває таблицю архіву, що містить особисті дані і параметри клієнтів.
Кнопка Перегляд збережених запрошень відкриває діалогове вікно, що містить інформацію про поточний запрошенні пари (за умовчанням в кафе "Нічний Тарзан").
Кнопка Вихід завершує роботу програми Бюро знайомств.

Форма 2 (Unit 2) створює нову анкету, що містить такі поля: Дата, Реєстраційний номер (задається автоматично), Прізвище, Ім'я, По батькові, Стать, Вік, Про себе, Вимоги. Так само є 2 кнопки: OK - зберігає нову, заповнену анкету, Cancel - відміняє створення нової анкети.

Форма 3 (Unit3) - це форма, перегляду анкет, вона містить такі заповнені поля: Рег №, Дата реєстрації, Ім'я, Прізвище, Вік, Пол, дані клієнта про себе і вимоги до партнера. Так само є рядок пошуку за реєстраційним номером і дві кнопки: Видалити - видаляє повністю обрану анкету, Вихід - закриває форму Перегляд анкет.

Форма 4 (Unit4) містить таблицю, яка містить особисті дані клієнтів і сортування пар по підлозі. Є 3 кнопки: Занести до архіву - занесення в архів вибраної пари, Вихід - завершення роботи з архівом, Підготувати запрошення - відкриває вікно підготовки запрошення пари в кафе "Нічний Тарзан" на вечір знайомства з кандидатом жіночої статі і кандидатом чоловічої статі. Далі запрошення можна зберегти натисканням кнопки Зберегти, або скасувати запрошення, натисканням кнопки Вийти.

Форма 5 (Unit5) складається з рядків для перегляду всіх даних клієнта: реєстраційний номер, дата реєстрації, стать, дані про себе, вимоги, вік, ПІБ. Так само є кнопка Вихід - завершальна перегляд даної форми.

Форма 6 (Unit 6) відкриває вікно підготовки запрошення пари в кафе "Нічний Тарзан" на вечір знайомства з кандидатом жіночої статі і кандидатом чоловічої статі. Далі запрошення для подальшого редагування можна зберегти натисканням кнопки Зберегти, що відкриває вікно діалогу збереження файлу і зберігаємо текстову область Mtmo1 у вказаний файл, або скасувати запрошення, натисканням кнопки Вийти.

Форма 7 (Unit7) являє собою вікно, для перегляду готових запрошень тих пар, яким були призначені зустрічі, тут же можна відредагувати запрошення і зберегти наново. Є 3 кнопки:

Відкриття запрошення - відкриття готового запрошення, шляхом виведення вікна діалогу, яке відкриває файл. У цьому вікні відбувається заповнення текстової області Memo1 із зазначеного файлу;

Зберегти запрошення - дає можливість зберегти нове, відредагована запрошення шляхом відкриття вікна діалогу збереження файлу і зберігається текстова область Memo1 у вказаний файл;

Вихід - завершення роботи Unite7.

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

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},

Unit6 in 'Unit6.pas' {Form6},

Unit7 in 'Unit7.pas' {Form7};

{$ 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.CreateForm (TForm6, Form6);

Application.CreateForm (TForm7, Form7);

Application.Run;

end.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class (TForm)

Button1: TButton;

Button2: TButton;

Button4: TButton;

Button3: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit7;

{$ R *. dfm}

procedure TForm1.Button1Click (Sender: TObject); / / Процедура обробки кліка кнопки "Нова форма"

begin

form2.ShowModal; / / показ форми Form2. Форма відкривається в режимі при якому інші форми не доступні

end;

procedure TForm1.Button2Click (Sender: TObject); / / Процедура обробки кліка кнопки "Перегляд анкет"

begin

Form3.showmodal; / / показ форми Form3. Форма відкривається в режимі при якому інші форми не доступні

end;

procedure TForm1.Button4Click (Sender: TObject); / / Процедура обробки кліка кнопки "Вихід"

begin

Close; / / Закриття форми Form1, що означає вихід з програми

end;

procedure TForm1.Button3Click (Sender: TObject); / / Процедура обробки кліка кнопки "Робота з архівом"

begin

form4.ShowModal; / / показ форми Form4. Форма відкривається в режимі при якому інші форми не доступні

end;

procedure TForm1.Button5Click (Sender: TObject); / / Процедура обробки кліка кнопки "Перегляд архіву"

begin

form5.Table1.Open; / / відкриванні вперше таблиці Table1 знаходиться на формі FORM5

form5.ShowModal; / / показ форми Form5. Форма відкривається в режимі при якому інші форми не доступні

end;

procedure TForm1.Button6Click (Sender: TObject);

begin

form7.ShowModal; / / показ форми Form7. Форма відкривається в режимі при якому інші форми не доступні

end;

end.

unit Unit2;

interface

uses

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

Dialogs, DBCtrlsEh, Mask, DBCtrls, DB, DBTables, StdCtrls, Buttons;

type

TForm2 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

Table1: TTable;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBDateTimeEditEh1: TDBDateTimeEditEh;

DBEdit5: TDBEdit;

Label6: TLabel;

Label7: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBEdit6: TDBEdit;

Label8: TLabel;

procedure FormCreate (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

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

private

{Private declarations}

public

{Public declarations}

end;

var

Form2: TForm2;

implementation

uses Unit3;

{$ R *. dfm}

procedure TForm2.FormCreate (Sender: TObject); / / При показі, активації і створення форми Form2 виконуються дії:

begin

Table1.Open; / / Відкривається таблиця Table1

table1.Append; / / Додається в кінець таблиці новий рядок в таблицю Table1

table1.FieldByName ('date'). AsDateTime: = date; / / Записуємо в поточний рядок у полі Date сьогоднішнє число

table1.Post; / / Збереження змін

table1.edit; / / Починаємо зміни в таблиці Table1 в поточній Сторк

end;

procedure TForm2.BitBtn1Click (Sender: TObject); / / Процедура обробки кліка кнопки "ОК"

begin

table1.Post; / / Збереження змін

close; / / Закриття форми Form2

end;

procedure TForm2.BitBtn2Click (Sender: TObject);

begin

table1.Cancel; / / скасування змін

table1.Delete; / / Видалення поточного рядка в таблиці Table1

close; / / Закриття форми Form2

end;

procedure TForm2.FormClose (Sender: TObject; var Action: TCloseAction); / / Процедура обробки події при закритті форми Form2

begin

form3.Table1.Refresh; / / Оновлення даних у таблиці Table1 знаходиться на формі Form3

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, Buttons, ExtCtrls, DB,

DBTables;

type

TForm3 = class (TForm)

DataSource1: TDataSource;

Table1: TTable;

Panel1: TPanel;

DBGrid1: TDBGrid;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel;

procedure FormCreate (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form3: TForm3;

implementation

{$ R *. dfm}

procedure TForm3.FormCreate (Sender: TObject); / / прцедура обробки події при створенні форми Form3

begin

table1.Open; / / Відкриття таблиці table1

end;

procedure TForm3.BitBtn1Click (Sender: TObject); / / Процедура обробки кліка кнопки "Видалити"

begin

table1.Delete; / / Видалення поточного рядка в таблиці Table1

end;

procedure TForm3.Button2Click (Sender: TObject); / / Процедура обробки кліка кнопки "Вихід"

begin

Close; / / Закриття Form3

end;

procedure TForm3.Edit1Change (Sender: TObject);

begin

Try / / Залучення обробника помилок

Table1.FindKey ([strtoint (edit1.Text)]); / / Пошук за індексом (ставить курсор у таблиці ближче всього знаходиться до шуканого значенням)

except

Showmessage ('Не вірний параметр для пошуку'); / / у солучае виникнення помилки буде дано повідомлення

end;

end.

unit Unit4;

interface

uses

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

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

type

TForm4 = class (TForm)

Table1: TTable;

Table2: TTable;

Table3: TTable;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DataSource1: TDataSource;

DataSource2: TDataSource;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

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

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form4: TForm4;

implementation

uses Unit6;

{$ R *. dfm}

procedure TForm4.Button2Click (Sender: TObject);

begin

close;

end;

procedure TForm4.Button1Click (Sender: TObject); / / Процедура обробки кліка кнопки "Занести до архіву"

begin

/ / Table1.Open;

/ / Table2.Open;

table1.DisableControls; / / Скасування стеження за змінами в таблиці Table1

table2.DisableControls; / / Скасування стеження за змінами в таблиці Table2

table3.Open; / / Відкриваємо таблицю Table3

table3.Append; / / Додаємо в кінець таблиці новий рядок

table3.FieldByName ('reg'). AsInteger: = table1.FieldByName ('reg'). AsInteger; / / копіюємо в полі "REG" таблиці Table3 значення поля "REG" таблиці Table1

table3.FieldByName ('date'). Asdatetime: = table1.FieldByName ('date'). Asdatetime; / / копіюємо в полі "DATE" таблиці Table3 значення поля "DATE" таблиці Table1

table3.FieldByName ('pol'). Asstring: = table1.FieldByName ('pol'). Asstring; / / копіюємо в полі "POL" таблиці Table3 значення поля "POL" таблиці Table1

table3.FieldByName ('osebe'). AsVariant: = table1.FieldByName ('osebe'). AsVariant; / / копіюємо в полі "OSEBE" таблиці Table3 значення поля "OSEBE" таблиці Table1

table3.FieldByName ('treb'). AsVariant: = table1.FieldByName ('treb'). AsVariant; / / копіюємо в полі "TREB" таблиці Table3 значення поля "TREB" таблиці Table1

table3.FieldByName ('name'). Asstring: = table1.FieldByName ('name'). Asstring; / / копіюємо в полі "NAME" таблиці Table3 значення поля "NAME" таблиці Table1

table3.FieldByName ('family'). Asstring: = table1.FieldByName ('family'). Asstring; / / копіюємо в полі "FAMILY" таблиці Table3 значення поля "FAMILY" таблиці Table1

table3.FieldByName ('father'). Asstring: = table1.FieldByName ('Father'). Asstring; / / копіюємо в полі "FATHER" таблиці Table3 значення поля "FATHER" таблиці Table1

table3.Post; / / Зберігаємо зміни в таблиці Table3

table3.Append; / / Додаємо в кінець таблиці новий рядок

table3.FieldByName ('reg'). AsInteger: = table2.FieldByName ('reg'). AsInteger; / / копіюємо в полі "REG" таблиці Table3 значення поля "REG" таблиці Table2

table3.FieldByName ('date'). Asdatetime: = table2.FieldByName ('date'). Asdatetime; / / копіюємо в полі "DATE" таблиці Table3 значення поля "DATE" таблиці Table2

table3.FieldByName ('pol'). Asstring: = table2.FieldByName ('pol'). Asstring; / / копіюємо в полі "POL" таблиці Table3 значення поля "POL" таблиці Table2

table3.FieldByName ('osebe'). AsVariant: = table2.FieldByName ('osebe'). AsVariant; / / копіюємо в полі "OSEBE" таблиці Table3 значення поля "OSEBE" таблиці Table2

table3.FieldByName ('treb'). AsVariant: = table2.FieldByName ('treb'). AsVariant; / / копіюємо в полі "TREB" таблиці Table3 значення поля "TREB" таблиці Table2

table3.FieldByName ('name'). Asstring: = table2.FieldByName ('name'). Asstring; / / копіюємо в полі "NAME" таблиці Table3 значення поля "NAME" таблиці Table2

table3.FieldByName ('family'). Asstring: = table2.FieldByName ('family'). Asstring; / / копіюємо в полі "FAMILY" таблиці Table3 значення поля "FAMILY" таблиці Table2

table3.FieldByName ('father'). Asstring: = table2.FieldByName ('Father'). Asstring; / / копіюємо в полі "FATHER" таблиці Table3 значення поля "FATHER" таблиці Table2

table3.Post; / / Зберігаємо зміни в таблиці Table3

Button3Click (Sender); / / Виклик процедури Button3Click (див нижче)

table1.Delete; / / Видаляємо поточний рядок з таблиці TABLE1

table2.Delete; / / Видаляємо поточний рядок з таблиці TABLE2

table1.EnableControls; / / Відновлювати контроль над таблицею TABLE1

table2.EnableControls; / / Відновлювати контроль над таблицею TABLE2

table1.Refresh; / / Оновлюємо дані в таблиці Table1

table2.Refresh; / / Оновлюємо дані в таблиці Table1

end;

procedure TForm4.FormShow (Sender: TObject); / / При показі форми Form4 виконуються дії:

begin

table1.Open; / / відкриття таблиці Table1

table2.Open; / / відкриття таблиці Table2

end;

procedure TForm4.FormClose (Sender: TObject; var Action: TCloseAction); / / При закритті форми Form4 виконуються дії:

begin

table1.Close; / / Закриття таблиці Table1

table2.Close; / / Закриття таблиці Table2

end;

procedure TForm4.Button3Click (Sender: TObject); / / Процедура обробки кліка кнопки "Підготувати запрошення"

var ff: textfile; / / Оголошення типу файлової змінної

begin

assignfile (ff, 'c: \ Prigl.txt'); / / процедура асоціації імені файлу з файлової змінної FF

rewrite (ff); / / Перезапис файлу

Writeln (ff, "Запрошення в кафе" Нічний Тарзан "');// Додаємо рядок у файл

Writeln (ff, 'На вечір знайомства з' + table1.fieldbyname ('Family'). Asstring + '' + table1.fieldbyname ('Name'). Asstring); / / Додаємо рядок у файл зі значеннями деяких полів з таблиць Table1 і Table2

Writeln (ff, 'і' + table2.fieldbyname ('Family'). Asstring + '' + table2.fieldbyname ('Name'). Asstring);

closefile (ff); / / Закриття файлу

form6.Memo1.Lines.LoadFromFile ('c: \ Prigl.txt');// Заповнюємо текстове поле Memo1 у вікні форми 6 вмістом тільки що сохранненого файлу

form6.ShowModal; / / показ форми Form6. Форма відкривається в режимі при якому інші форми не доступні

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, DB, DBTables, Grids,

DBGrids;

type

TForm5 = class (TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Panel1: TPanel;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form5: TForm5;

implementation

{$ R *. dfm}

procedure TForm5.BitBtn1Click (Sender: TObject);

begin

close; / / закриття форми Form5

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm6 = class (TForm)

Memo1: TMemo;

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

SaveDialog1: TSaveDialog;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form6: TForm6;

implementation

{$ R *. dfm}

procedure TForm6.Button1Click (Sender: TObject);

begin

if SaveDialog1.Execute then memo1.Lines.SaveToFile (SaveDialog1.FileName); / / Відкриваємо вікно діалогу збереження файлу і зберігаємо текстову область Memo1 у вказаний файл

end;

procedure TForm6.Button2Click (Sender: TObject);

begin

Close; / / Закриття форми

end;

end.

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm7 = class (TForm)

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

Panel1: TPanel;

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button3Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form7: TForm7;

implementation

{$ R *. dfm}

procedure TForm7.Button3Click (Sender: TObject);

begin

Close; / / Закриття форми Form7

end;

procedure TForm7.Button1Click (Sender: TObject);

begin

If OpenDialog1.Execute then memo1.Lines.LoadFromFile (OpenDialog1.FileName); / / Відкриваємо вікно діалогу відкриття файлу і заповнюємо текстову область Memo1 із зазначеного файлу

end;

procedure TForm7.Button2Click (Sender: TObject);

begin

If SaveDialog1.Execute then memo1.Lines.SaveToFile (SaveDialog1.FileName); / / Відкриваємо вікно діалогу збереження файлу і зберігаємо текстову область Memo1 у вказаний файл

end;

end.

Метою моєї курсової роботи є програмування бази даних за допомогою Delphi 7. Перш ніж почати виконувати своє завдання розглянемо цю систему програмування, загалом.

Delphi - це грецьке місто, де жив дельфійський оракул. І цим ім'ям був названий новий програмний продукт із феноменальними характеристиками.

Delphi - це комбінація кількох найважливіших технологій:

Високопродуктивний компілятор в машинний код
Об'єктно-орієнтована модель компонент
Візуальне (а, отже, і швидкісне) побудова додатків з програмних прототипів
Масштабовані кошти для побудови баз даних

Компілятор, вбудований в Delphi, забезпечує високу продуктивність, необхідну для побудови додатків в архітектурі "клієнт-сервер". Цей компілятор в даний час є найшвидшим у світі, його швидкість компіляції становить понад 120 тисяч рядків у хвилину на комп'ютері 486DX33. Він пропонує легкість розробки і швидкий час перевірки готового програмного блоку, характерного для мов четвертого покоління (4GL) і в той же час забезпечує якість коду, характерного для компілятора 3GL.

У процесі побудови програми розробник вибирає з палітри компонент готові компоненти як художник, що робить великі мазки пензлем. Ще до компіляції він бачить результати своєї роботи - після підключення до джерела даних їх можна бачити відображеними на формі, можна переміщатися за даними, представляти їх у тому чи іншому вигляді.

Cреда Delphi включає в себе повний набір візуальних інструментів для швидкісної розробки додатків (RAD - rapid application development), що підтримує розробку користувальницького інтерфейсу і підключення до корпоративних баз даних.

У Delphi візуальні компоненти пишуться на об'єктному паскалі, на тому ж паскалі, на якому пишеться алгоритмічна частина програми. І візуальні компоненти Delphi виходять відкритими для надбудови і переписування.

Delphi використовує структурний об'єктно-орієнтована мова (Object Pascal), який поєднує з одного боку виразну потужність і простоту програмування, характерну для мов 4GL, а з іншого боку ефективність мови 3GL.

Структура бази даних

База даних - це набір однорідною, як правило, упорядкованої по деякому критерію, інформації. База даних може бути представлена у "паперовому" або в комп'ютерному вигляді.

Типовим прикладом "паперової" бази даних є каталог бібліотеки - набір паперових карток, що містять інформацію про книжки. Інформація в цій базі однорідна (містить відомості тільки про книжки) і впорядкована (картки розставлені, наприклад, відповідно до алфавітного порядку прізвищ авторів). Іншими прикладами "паперової" бази даних є телефонний довідник і розклад руху поїздів.

Комп'ютерна база даних є файлом (або набір пов'язаних файлів), що містить інформацію.

База даних складається із записів. Кожен запис містить інформацію про один екземпляр. Записи складаються з полів. Кожне поле містить інформацію про одну характеристиці екземпляра. Наприклад, запис бази даних "Бюро знайомств" складається з наступних полів: "Реєстраційний номер", "Дата реєстрації", "ПІБ", "Вік", "Пол". Вміст цих полів характеризує особистість клієнтів Бюро знайомств.

Слід звернути увагу, що кожен запис складається з однакових полів. Деякі поля можуть бути не заповнені, однак вони все одно присутні в записі.

На папері базу даних зручно представити у вигляді таблиці. Кожен рядок таблиці відповідає запису, а комірка таблиці - полю. При цьому заголовок стовпця таблиці - це ім'я поля, а номер рядка таблиці - номер запису.

Інформацію комп'ютерних баз даних звичайно виводять на екран у вигляді таблиць. Тому в літературі досить часто замість словосполучення "файл даних" використовується словосполучення "таблиця даних" або просто "таблиця".

Програма управління базою даних

Перед тим як приступити безпосередньо до розробки програми управління базою даних, необхідно, використовуючи утиліту Database Desktop, створити файл даних (таблицю) і додати до неї кілька записів. Додаток роботи з базою даних повинне містити компоненти, що забезпечують доступ до даних, можливість перегляду і редагування вмісту полів. Компоненти доступу до даних знаходяться на вкладці Data Access палітри компонентів, а компоненти відображення даних - на вкладці Data Controls.

Створення бази даних

Програми баз даних можуть отримувати доступ до джерел даних за допомогою різноманітних технологій

доступу, багато з яких використовуються і в додатках Delphi. Тим не менше будь-який додаток баз даних в

Delphi має стандартне ядро, структура якого визначена архітектурою додатки баз даних.

Набір базових компонентів і способів розробки є єдиною основою, на якій базуються технології

доступу до даних. Це дозволило уніфікувати процес розробки додатків баз даних.

В основі процесу розробки лежить тріада компонентів:

- Невізуальні компоненти набору даних;

- Невізуальні компоненти TDataSource;

- Візуальні компоненти відображення даних.

Для створення таблиці автономної бази є додаток
Database Desktop, яке викликається командою Tools / Database Desktop.
Воно має власне вікно, меню і кнопки (заставка цього пункту). Нова таблиця створюється построителем таблиць, який викликається командою File / New / ТаИе. На запит тип СУБД виберемо Рагаdох 7.

Розглянемо основні колонки і поля вікна конструктора таблиць.
File Name - ідентифікатори полів (не більше латинських букв і цифр для сумісності з іншими СУБД).

Туре - тип поля (вказується вибором з контекстного меню): А1рhа (А - рядок з не більш ніж 255, символів), Number (N - число з плаваючою точкою), Моnеу ($ - аналогічний типу NumЬег, але додається грошовий знак), Short (S - ціле число в діапазоні -32768 .. 32767), LongIntereger (I ціле число в діапазоні-2147483 .. 2147483647), ВСD (# - число в двійково-десятковому форматі), Datе (D - дата). Time ( Т - час), Timestamp (@ - дата і час), Меmо (М - рядок будь-якої довжини), Formatted Memo (F - аналогічний Меmо, але може містити форматований текст), Graphic (G-зображення ВМР, РСХ, ТIF, СІР , ЕРS), ОLЕ (О - об'єкт ОLЕ), Logical (L логічне - Т, F), Autoincrement (+ - при додаванні запису, автоматично формується унікальне значення), Вinary (В - послідовність байтів будь-якої довжини), Вуtes (У послідовність не більше, ніж 255 байтів).

Size-розмір поля в байтах.

Кеу - ознака первинного ключового поля (подвійне клацання по колонці).
Таbles properties - додаткові властивості таблиці: Secondary Index (завдання вторинних індексів), Validity Checks (обмеження на введення значень полів). Рassword Security (визначення пароля), Referential Intergity (визначення посилальної цілісності між таблицями), ТаИе Language (завдання мови), ТаИе Lоокор (завдання полів перегляду), Depending ТаИеs (залежні дочірні таблиці).

Requierd Filed - ознака обов'язкового заповнення поля.
Мiniтіт ..., Махiпіт ... - Початок і кінець діапазону допустимих значень.
Default vа1іе - значення за замовчуванням при додаванні порожній запису.
Р1сture, Assist - шаблон і будівник шаблону значення поля.

Вторинні ключі (індекси) створюються шляхом вибору зі списку властивостей таблиці рядки Secondary Indexes, і після натискання кнопки Define виводиться вікно Define Secondary Indexes. Використовуючи кнопки зі стрілками або подвійними клацаннями, перенесемо потрібне поле або декілька полів, якщо ключ складовою, до списку індексів. Є перемикачі: Unique (унікальний індекс), Саse sensitive (облік регістрів строкових полів), Descending (сортування за зростанням). Кнопкою ОК. Проводиться вихід із зазначенням імені індексу. Поле, яке є первинним ключем іншої батьківської таблиці, називають зовнішнім ключем. Для зв'язку таблиць зазвичай створюють індекси за зовнішнім ключам. Після формування таблиці вона зберігається, якщо натиснути кнопку Save As, під вказаним ім'ям, при цьому в полі імені файлу можна вказати як
повне ім'я з каталогами, так і псевдонім бази (Аlias). Псевдонім дозволяє не прив'язуватися до каталогу, який може змінюватися надалі.

Для створення псевдоніма виконаємо команду Тоо1s/Аlias Мапаger, і з'явиться вікно Аlias Маnаgег.

Натиснемо кнопку New і в полі Database alias введемо ім'я

псевдоніма Облік, кнопкою Вrowse виберемо наш каталог з базою Люди, далі Кеер New і ОК.

Командою File / Working Directory встановимо поточний каталог, вибравши псевдонім Курсова у списку Alias, займемося створенням таблиць.

Таблиця Люди, буде мати стовпці: Люди, Реєстраційний номер, Дата регістрасіі, Пол, Про себе, Вимоги, Вік, ПІБ.

Друга таблиця - Архів буде іметьаналогічние назви стовпців.

Для коригування та перегляду відкритої таблиці є команди ТаИе / Restructure (кнопка Restructure) і ТаИе / Into Structure. Для перейменування таблиці слід зберегти її під новим ім'ям. Для заповнення та редагування таблиці, після її зв'язування з іншими таблицями, іспочьзуется кнопка Edit Data і меню Record програми Database Deskot (кирилицю при введенні використовувати не можна).

Відомості про бюро знайомств

З долею можна зустрітися ще в школі. Або в інституті. Можна вийти заміж за кучерявого брюнета з сусіднього будинку або познайомитися з майбутньою дружиною в черзі за жетончиками метро. Варіантів маса. Але навіть якщо всі варіанти випробувано, а свого єдиного ви ще не зустріли, залишається ще один варіант - знайомство через Бюро знайомств.

Існує думка, що в службу знайомств звертаються в основному нещасні, нікому непотрібні люди. Звичайно, можна ще подумати, а можна поставитися до проблеми більш цілеспрямовано. Насправді це люди з активною життєвою позицією, які змогли побороти в собі якісь комплекси і вирішили спробувати цивілізований спосіб знайомства.

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

Назві "шлюбне агентство" краще віддати перевагу більш нейтральне - "служба знайомств". Це дозволить уникати важких у обіцянок, оскільки яких-небудь гарантій у справі пристрої чиєїсь долі просто не існує.

Шлюбний бізнес - це комерційна, тобто платна, що передбачає отримання доходу, діяльність, пов'язана з наданням послуг у сфері шлюбних знайомств. Організаціями, що займаються даним видом діяльності та надають послуги у цьому виді бізнесу, є шлюбні агентства і служби знайомств. Крім організацій, у шлюбному бізнесі активно працюють і індивідуальні шлюбні дилери, у минулому - шлюбні свахи.

Застосування програми на практиці

З давніх часів люди шукали собі супутників життя протягом довгого часу. Поступово почали з'являтися фірми, що допомагають людям знайти собі партнера, так звані "служби знайомств".

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

Так само приходили в бюро знайомств люди, які хотіли не лише зареєструватися, але і пошукати супутника або супутницю в існуючій базі. У цих службах велася величезна документація, що зберігала адреси, фотографії, номери телефонів, особисті дані своїх клієнтів. Отже, щоб знайти кого-то, потрібно було переглянути і відсортувати сотні, а то й тисячі паперів.

Моє завдання - полегшити пошук і підбір охочих познайомитися з новими людьми через бюро знайомств.

Програма, написана мною, може зберігати дані про особу, такі як ПІБ, вік, стать, дату реєстрації, опису зовнішності та інших характеристик клієнта, а також вимоги, що задовольняють бажання клієнта в пошуку обраниці або обранця. Реалізовано пошук по реєстраційному номеру, що зручно як для працівника бюро знайомств (для сортування анкет), так і для клієнтів. Клієнт може зареєструватися, залишивши анкету в бюро знайомств, і автоматично отримати реєстраційний номер, що допоможе при оголошенні в тій же газеті. Ввівши певний реєстраційний номер, комп'ютер автоматично виводить всі дані про людину.

Б лок-схема Unit1