Рис.9.

Тепер на підставі логічної моделі ми бачимо, що нормалізація здійснена вірно.

2.2.4 Розробка фізичної схеми бази даних

Таким чином, остаточна схема бази даних „Кафедра” виглядає так, як це зображено на рис.10.

Рис.10.

Схема даних має зв'язки типу „Один-до-багатьох”.

3. .Інтерфейс користувача інформаціїної системи

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

Схема алгоритму доступу до БД і меню наведена на рис.11.

Рис.11. Схема алгоритму.

Інтерфейс за допомогою технології MDI у Windows реалізується наступним чином (рис.12):

Рис.12.

Меню „Файл” має підменю „Знищити об'єкт” (деяку таблицю).

Меню „Редагування” має підменю „Додати новий запис”, „”Знищити запис”, „На останній запис”.

Меню „Сервіс” має підменю „Доступ до даних” (відкриття сторінки доступу до даних через Інтернет).

Меню „Вихід” здійснює вихід з інформаційної системи зі збереженням усіх даних.

4. Програмні додатки, які реалізують пункт меню

Модуль реалізації меню у вікнах MDI наведений у лістингу 1.

Лістинг 1

unit MainFrm;

interface

uses

WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Menus,

StdCtrls, Messages, Dialogs, SysUtils, ComCtrls,

ToolWin, ExtCtrls, Buttons, ImgList;

type

TMainForm = class(TForm)

mmMain: TMainMenu;

OpenDialog: TOpenDialog;

mmiFile: TMenuItem;

mmiExit: TMenuItem;

N3: TMenuItem;

mmiOpen: TMenuItem;

mmiNew: TMenuItem;

mmiWindow: TMenuItem;

mmiArrangeIcons: TMenuItem;

mmiCascade: TMenuItem;

mmiTile: TMenuItem;

mmiCloseAll: TMenuItem;

tlbMain: TToolBar;

ilMain: TImageList;

tbFileOpen: TToolButton;

{ File Event Handlers }

procedure mmiNewClick(Sender: TObject);

procedure mmiOpenClick(Sender: TObject);

procedure mmiExitClick(Sender: TObject);

{ Window Event Handlers }

procedure mmiTileClick(Sender: TObject);

procedure mmiArrangeIconsClick(Sender: TObject);

procedure mmiCascadeClick(Sender: TObject);

procedure mmiCloseAllClick(Sender: TObject);

public

{ User defined methods }

procedure OpenTextFile(EditForm: TForm; Filename: string);

procedure OpenBMPFile(FileName: String);

procedure Open MDBFile(RTFForm: TForm; FileName: string);

procedure SetToolBar(AToolBar: TToolBar);

end;

var

MainForm: TMainForm;

implementation

uses MDIBmpFrm, MdiEditFrm, MdiRtfFrm, FTypForm;

const

{ Define constants to represent file name extensions }

BMPExt = '.BMP'; // Bitmapped file

TextExt = '.TXT'; // Text file

Страницы: 1, 2, 3, 4