МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет кораблебудування ім. адм. Макарова
Херсонський філіал
Кафедра інформаційних технологій
Курсова робота
З ДИСЦИПЛІНИ
"Об'єктно -- орієнтоване програмування "
ТЕМА: Розробка програмного забезпечення" Бюро знайомств "
Виконав:
Перевірив:
Херсон 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);// Процедура обробки клікакнопки "Нова форма"beginform2.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);// Процедура обробки клікакнопки "Робота з архівом"beginform4.ShowModal;// показ форми Form4. Форма відкривається в режимі при якомуінші форми не доступніend;
procedure TForm1.Button5Click (Sender: TObject);// Процедура обробки клікакнопки "Перегляд архіву"beginform5.Table1.Open;// відкрита таблиці Table1 що знаходиться на формі FORM5form5.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;// Відкривається таблиця Table1table1.Append;// Додається в кінець таблиці новий рядок в таблицю Table1table1.FieldByName ( 'date'). AsDateTime: = date;// Записуємо в поточний рядок уполе Date сьогоднішнє числоtable1.Post;// Збереження змінtable1.edit;// Починаємо зміни в таблиці Table1 в поточній Сторк
end;
procedure TForm2.BitBtn1Click (Sender: TObject);// Процедура обробки клікакнопки "ОК"begintable1.Post;// Збереження змінclose;// Закриття форми Form2end;
procedure TForm2.BitBtn2Click (Sender: TObject);begintable1.Cancel;// скасувати змінtable1.Delete;// Видалення поточного рядка в таблиці Table1close;// Закриття форми Form2
end;
procedure TForm2.FormClose (Sender: TObject; var Action:
TCloseAction);// Процедура обробки події при закритті форми Form2beginform3.Table1.Refresh;// Оновлення даних в таблиці Table1 що знаходиться наформі Form3end;
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);// прцедура обробки подіїпри створенні форми Form3begintable1.Open;// Відкриття таблиці table1end;
procedure TForm3.BitBtn1Click (Sender: TObject);// Процедура обробки клікакнопки "Видалити"begintable1.Delete;// Видалення поточного рядка в таблиці Table1end;
procedure TForm3.Button2Click (Sender: TObject);// Процедура обробки клікакнопки "Вихід"begin
Close;// Закриття Form3end;
procedure TForm3.Edit1Change (Sender: TObject);begin
Try// Залучення обробникапомилок
Table1.FindKey ([strtoint (edit1.Text)]);// Пошук за індексом (ставить курсорв таблиці найближче знаходиться до шуканого значення)except
Showmessage ( 'Не вірний параметр для пошуку');// в солучае виникненняпомилки буде дано повідомленняend;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; < p> 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);beginclose;end;
procedure TForm4.Button1Click (Sender: TObject);// Процедура обробки клікакнопки "Занести до архіву"begin
//table1.Open;
//table2.Open;table1.DisableControls;// Скасування спостереження за змінами в таблиці Table1table2.DisableControls;// Скасування спостереження за змінами в таблиці Table2table3.Open;// Відкриваємо таблицю Table3table3.Append;// Додаємо в кінець таблиці новий рядокtable3.FieldByName ( 'reg'). AsInteger: = table1.FieldByName ( 'reg'). AsInteger;// копіруем у полі "REG" таблиці Table3 значення поля "REG" таблиці Table1table3.FieldByName ( 'date'). Asdatetime: = table1.FieldByName ( 'date'). Asdatetime
;// копіюємо в поле "DATE" таблиці Table3 значення поля "DATE" таблиці
Table1table3.FieldByName ( 'pol'). Asstring: = table1.FieldByName ( 'pol'). Asstring;// копіруем у полі "POL" таблиці Table3 значення поля "POL" таблиці Table1table3.FieldByName ( 'osebe'). AsVariant: = table1.FieldByName ( 'osebe'). AsVariant
;// копіюємо в поле "OSEBE" таблиці Table3 значення поля "OSEBE" таблиці
Table1table3.FieldByName ( 'treb'). AsVariant: = table1.FieldByName ( 'treb'). AsVariant;/
/ копіюємо в поле "TREB" таблиці Table3 значення поля "TREB" таблиці Table1table3.FieldByName ( 'name'). Asstring: = table1.FieldByName ( 'name'). Asstring;// копіруем в полі "NAME" таблиці Table3 значення поля "NAME" таблиці Table1table3.FieldByName ( 'family'). Asstring: = table1.FieldByName ( 'family'). Asstring
;// копіюємо в поле "FAMILY" таблиці Table3 значення поля "FAMILY" таблиці
Table1table3.FieldByName ( 'father'). Asstring: = table1.FieldByName ( 'Father'). Asstring
;// копіюємо в поле "FATHER" таблиці Table3 значення поля "FATHER" таблиці
Table1table3.Post;// Зберігаємо зміни в таблиці Table3table3.Append;// Додаємо в кінець таблиці новий рядокtable3.FieldByName ( 'reg'). AsInteger: = table2.FieldByName ( 'reg'). AsInteger;// копіруем у полі "REG" таблиці Table3 значення поля "REG" таблиці Table2table3.FieldByName ( 'date'). Asdatetime: = table2.FieldByName ( 'date'). Asdatetime
;// копіюємо в поле "DATE" таблиці Table3 значення поля "DATE" таблиці
Table2table3.FieldByName ( 'pol'). Asstring: = table2.FieldByName ( 'pol'). Asstring;// копіруем у полі "POL" таблиці Table3 значення поля "POL" таблиці Table2table3.FieldByName ( 'osebe'). AsVariant: = table2.FieldByName ( 'osebe'). AsVariant
;// копіюємо в поле "OSEBE" таблиці Table3 значення поля "OSEBE" таблиці
Table2table3.FieldByName ( 'treb'). AsVariant: = table2.FieldByName ( 'treb'). AsVariant;/
/ копіюємо в поле "TREB" таблиці Table3 значення поля "TREB" таблиці Table2table3.FieldByName ( 'name'). Asstring: = table2.FieldByName ( 'name'). Asstring;// копіруем в полі "NAME" таблиці Table3 значення поля "NAME" таблиці Table2table3.FieldByName ( 'family'). Asstring: = table2.FieldByName ( 'family'). Asstring
;// копіюємо в поле "FAMILY" таблиці Table3 значення поля "FAMILY" таблиці
Table2table3.FieldByName ( 'father'). Asstring: = table2.FieldByName ( 'Father'). Asstring
;// копіюємо в поле "FATHER" таблиці Table3 значення поля "FATHER" таблиці
Table2table3.Post;// Зберігаємо зміни в таблиці Table3
Button3Click (Sender);// Виклик процедури Button3Click (см нижче)table1.Delete;// Видаляємо поточний рядок з таблиці TABLE1table2.Delete;// Видаляємо поточний рядок з таблиці TABLE2table1.EnableControls;// поновлює контроль над таблицею TABLE1table2.EnableControls;// поновлює контроль над таблицею TABLE2table1.Refresh;// Оновлюємо дані в таблиці Table1table2.Refresh;// Оновлюємо дані в таблиці Table1
end;
procedure TForm4.FormShow (Sender: TObject);// При показі форми Form4виконуються дії:begin table1.Open;// відкриття таблиці Table1 table2.Open;// відкриття таблиці Table2end;
procedure TForm4.FormClose (Sender: TObject; var Action: TCloseAction);// Призакриття форми Form4 виконуються дії:begintable1.Close;// Закриття таблиці Table1table2.Close;// Закриття таблиці Table2end;
procedure TForm4.Button3Click (Sender: TObject);// Процедура обробки клікакнопки "Підготувати запрошення"var ff: textfile;// Оголошення типу файлової змінноїbeginassignfile (ff, 'c: Prigl.txt');// процедура асоціації імені файлу зфайлової змінної FFrewrite (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);beginclose;// закриття форми Form5end;
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);beginif SaveDialog1.Execute thenmemo1.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;// Закриття форми Form7end;
procedure TForm7.Button1Click (Sender: TObject);begin
If OpenDialog1.Execute thenmemo1.Lines.LoadFromFile (OpenDialog1.FileName);// Відкриваємо вікно діалогувідкриття файлу і заповнюємо текстову область Memo1 з вказаного файлуend;
procedure TForm7.Button2Click (Sender: TObject);begin
If SaveDialog1.Execute thenmemo1.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 (унікальний індекс), Саsesensitive (облік регістрів строкових полів), 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 (кирилицю при введенні використовувати не можна).
Відомості про бюро знайомств
З долею можна зустрітися ще в школі. Або в інституті. Можнавийти заміж за кучерявого брюнета з сусіднього будинку або познайомитися змайбутньою дружиною в черзі за жетончика метро. Варіантів маса. Але навіть якщовсі варіанти випробувані, а свого єдиного ви ще не зустріли,залишається ще один варіант - знайомство через Бюро знайомств.
Існує думка, що в службу знайомств звертаються в основномунещасні, нікому не потрібні люди. Звичайно, можна ще подумати, а можнапоставитися до проблеми більш цілеспрямовано. Насправді це люди зактивною життєвою позицією, які змогли побороти в собі якіськомплекси і вирішили спробувати цивілізований спосіб знайомства.
Бюро знайомств вже не перший рік успішно працює на ринку шлюбнихпослуг, має дуже багато позитивних результатів, і у кожного є свійшанс знайти супутника життя.
Назвою "шлюбне агентство" краще віддати перевагу більш нейтральне -
"служба знайомств". Це дозволить уникати важкоздійснюваних обіцянок,оскільки будь-яких гарантій у справі пристрої чиєїсь долі просто неіснує.
Шлюбний бізнес - це комерційна, то є платна, що припускаєотримання доходу, діяльність, пов'язана з наданням послуг у сферішлюбних знайомств. Організаціями, що займаються даним видом діяльності іщо надають послуги в цьому виді бізнесу, є шлюбні агентства таслужби знайомств. Крім організацій, в шлюбному бізнесі активно працюють ііндивідуальні шлюбні дилери, у минулому - шлюбні свахи.
Застосування програми на практиці
З давніх часів люди шукали собі супутників життя протягом довгогочасу. Поступово стали з'являтися фірми, що допомагають людям знайти собіпартнера, так звані "служби знайомств".
Люди приходили в ці служби, заповнювали анкети, залишаючи дані про себе,залишали так само і вимоги до людини, яку хотіли б знайти.
Так само приходили в бюро знайомств люди, які хотіли не тількизареєструватися, але і пошукати супутника або супутницю в існуючійбазі. У цих службах велася величезна документація, зберігати адреси,фотографії, номери телефонів, особисті дані своїх клієнтів. Отже,щоб знайти когось, потрібно було переглянути та відсортувати сотні, а то йтисячі паперів.
Моє завдання - полегшити пошук і підбір бажаючих познайомитися з новимилюдьми через бюро знайомств.
Програма, написана мною, може зберігати дані про особу, такі як
ПІБ, вік, стать, дату реєстрації, опису зовнішності та іншиххарактеристик клієнта, а також вимоги, що задовольняють бажання клієнтав пошуку обраниці або обранця. Реалізовано пошук по реєстраційногономером, що зручно як для працівника бюро знайомств (для сортування анкет),так і для клієнтів. Клієнт може зареєструватися, залишивши анкету в бюрознайомств, і автоматично отримати реєстраційний номер, що допоможе приоголошення в тій же газеті. Увівши певний реєстраційний номер,комп'ютер автоматично виводить всі дані про людину.
