Рис.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

RTFExt = '.MDB'; // File BD

{$R *.DFM}

procedure TMainForm.mmiNewClick(Sender: TObject);

begin

{ Determine the file type the user wishes to open by calling the

GetFileType function. Call the appropriate method based on the

retrieved file type. }

case GetFileType of

mrTXT: OpenTextFile(nil, ''); // Open a text file.

mrMDB: OpenMDBFile(nil, ''); // Open an MDB file.

mrBMP:

begin

{ Set the defalt filter for OpenDialog1 for BMP files. }

OpenDialog.FilterIndex := 2;

mmiOpenClick(nil);

end;

end;

end;

procedure TMainForm.mmiOpenClick(Sender: TObject);

var

Ext: string[4];

begin

{ Call the appropriate method based on the file type of the file

selected from OpenDialog1 }

if OpenDialog.Execute then

begin

{ Get the file's extension and compare it to determine the

file type the user is opening. Call the appropriate method and

pass in the file name. }

Ext := ExtractFileExt(OpenDialog.FileName);

if CompareStr(UpperCase(Ext), TextExt) = 0 then

OpenTextFile(ActiveMDIChild, OpenDialog.FileName)

else if CompareStr(UpperCase(Ext), BMPExt) = 0 then

OpenBMPFile(OpenDialog.FileName)

else if CompareStr(UpperCase(Ext), MDBExt) = 0 then

Open MDBFile(ActiveMDIChild, OpenDialog.FileName);

end;

end;

procedure TMainForm.mmiExitClick(Sender: TObject);

begin

Close;

end;

{ Window Event Handlers }

procedure TMainForm.mmiTileClick(Sender: TObject);

begin

Tile;

end;

procedure TMainForm.mmiArrangeIconsClick(Sender: TObject);

begin

ArrangeIcons;

end;

procedure TMainForm.mmiCascadeClick(Sender: TObject);

begin

Cascade;

end;

procedure TMainForm.mmiCloseAllClick(Sender: TObject);

var

i: integer;

begin

{ Close all forms in revers order as they appear in the

MDIChildren property. }

for i := MdiChildCount - 1 downto 0 do

MDIChildren[i].Close;

end;

{ User Defined Methods }

procedure TMainForm.OpenTextFile(EditForm: TForm; FileName: string);

begin

{ If EditForm is of a TEditForm type, then give the user the option

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