Компьютерные системы

Это не только экран, который видит пользователь. К этим элементам относятся:

• набор задач пользователя, которые он решает при помощи системы;
• используемая  системой метафора (например, рабочий  стол в MS Windows®);
• элементы  управления системой;
• навигация между блоками системы;
• визуальный (и не только) дизайн экранов программы;
• средства  отображения информации, отображаемая информация и форматы;
• устройства  и технологии ввода данных;
• диалоги, взаимодействие и транзакции между  пользователем и компьютером;
• обратная  связь с пользователем;
• поддержка принятия решений в конкретной предметной области;
• порядок использования программы и документация на нее.

 

4. Виды интерфейсов

 

Интерфейс - это, прежде всего, набор правил. Как  любые правила, их можно обобщить, собрать в "кодекс", сгруппировать по общему признаку. Таким образом, мы пришли к понятию "вид интерфейса" как объединение по схожести способов взаимодействия человека и компьютеров. Вкратце можно предложить следующую схематическую классификацию различных интерфейсов общения человека и компьютера.     

Современными  видами интерфейсов являются:

• Командный интерфейс. Командный интерфейс называется так по  тому, что в этом виде интерфейса  человек подает "команды" компьютеру, а компьютер их выполняет и  выдает результат человеку. Командный интерфейс реализован в виде пакетной технологии и технологии командной строки.
• WIMP - интерфейс (Window - окно, Image - образ, Menu - меню, Pointer - указатель). Характерной  особенностью этого вида интерфейса  является то, что диалог с пользователем ведется не с помощью команд, а с помощью графических образов - меню, окон, других элементов. Хотя и в этом интерфейсе подаются команды машине, но это делается "опосредственно", через графические образы. Этот вид интерфейса реализован на двух уровнях технологий: простой графический интерфейс и "чистый" WIMP - интерфейс.
• SILK - интерфейс (Speech - речь, Image - образ, Language - язык, Knowlege - знание). Этот вид  интерфейса наиболее приближен  к обычной, человеческой форме  общения. В рамках этого интерфейса идет обычный "разговор" человека и компьютера. При этом компьютер находит для себя команды, анализируя человеческую речь и находя в ней ключевые фразы. Результат выполнения команд он также преобразует в понятную человеку форму. Этот вид интерфейса наиболее требователен к аппаратным ресурсам компьютера, и поэтому его применяют в основном для военных целей.

 

2 Разработка пользовательского  интерфейса «Языковая школа»

 

2.1 Подключение базы данных к проекту Delphi

 

Включим в проект новую форму Data Module (File - New - Data Module), которую также желательно сразу сохранить, задав при этом новое имя юниту, например DataUnit. Чтобы избежать трудностей в частом написании длинного имени объекта, изменим его свойство Name на DataM в объектном инспекторе. Далее поместим на эту форму следующие компоненты:

• ADOConnection (в палитре компонентов на вкладке ADO);
• ADOTable (в палитре компонентов на вкладке ADO);
• DataSource (в палитре компонентов на вкладке Data Access).

 

 

 

 

 

 

 

 

 

Рисунок 1 –  Форма DataM

 

Поместите на форму DBGrid с вкладки DataControls:

 

 

 

 

 

 

 

Рисунок 2 – Установка  компонента DBGrid

Главное, что  нам нужно сделать, чтобы таблица  базы отображалась на экране, это указать  в свойстве DataSource компонента DBGrid значение UchenikiSource. Если все предыдущие настройки проделаны верно, то ячейки DBGrid должны отобразить данные базы.

 

2.2 Интерфейсное управление данными

 

За внешнее  представление данных в приложении и управлении ими отвечают интерфейсные визуальные компоненты, расположенные  на вкладке Data Controls.

В таблице видимыми для пользователей были оставлены столбцы «Фамилия», «Имя», «Отчество» и «Домашний телефон». Теперь откроем в программе доступ к оставшимся полям, используя компоненты DBEdit, DBLookupComboBox, DBImage и DBNavigator.

 

 

 

 

 

 

 

 

Рисунок 3 –  Создание компонентов

На AllInfoBox поместим еще четыре компонента GroupBox, которые будут представлять отдельную группу данных текущей записи справочника, а именно:

• Личные данные (GroupBox1);
• Контактные данные (GroupBox2);
• Адрес (GroupBox3);
• Преподаватель (GroupBox4);

Для панели «Преподаватели» также необходимо создать панель с полями дополнительной информации по аналогии. Поместим компонент Panel2 с заголовком в правой части формы (Align – alRight), также переименуем его в PrepodaBox и выделим в нем отдельные тематические блоки благодаря использованию GroupBox6 («Личные данные»), GroupBox7 («О преподавателе») и GroupBox8 («Адрес») и две кнопки BitBtn.

 

 

 

 

 

 

 

 

 

Рисунок 4 –  Панель «Преподаватель»

В свойстве Caption кнопок BitBtn1 и BitBtn2 пропишите соответственно «Загрузить фотографию» и «Удалить фотографию». Предстоящая с ними работа будет рассмотрена позже.

 

2.3 Диалоги загрузки графических файлов

 

Ни один интерфейс  не будет считаться таковым, если он не поддерживает в полной мере общение  пользователей с приложением. Реализовать такой непосредственный контакт помогают диалоги – модальные окна, появляющиеся как результат реакции приложения на какое-либо действие пользователя, требующее сбора дополнительных сведений перед его выполнением. Такие диалоги «ведет» каждый, кто работает за компьютером, при открытии, сохранении, поиске, замене информации и т.д.

Вернемся к созданным  нами в предыдущей работе кнопкам  «Загрузить фотографию» и «Удалить фотографию». Переименуем компоненты в LoadFotoBtn и DelFotoBtn, изменив соответственно значения их свойства Name, и сделаем DelFotoBtn недоступной, установив свойство Enabled в False. Теперь можно приступать к программированию. Вызовем обработчики событий для данных кнопок, дважды щелкнув по ним самим или по строке OnClick на вкладке Events объектного инспектора. В появившемся редакторе пропишем следующий код:

procedure TMainForm.LoadFotoBtnClick(Sender: TObject);

begin

if OpenPictureDialog1.Execute then begin

DataM. UchenikiTable.Edit;

DataM.UchenikiTableFoto.LoadFromFile(OpenPictureDialog1.FileName);

DataM. UchenikiTable.Post;

DelFotoBtn.Enabled := true;

end;

end;

 

 

 

 

 

Рисунок 5 –  Отображение диалогового окна.

 

Этот метод отображает на экране диалоговое окно открытия графических  файлов.

Но прежде чем  загружать в базу данных фотографии, необходимо установить ее в режим редактирования процедурой Edit, которая принадлежит объекту UchenikiTable в модуле DataM. Далее выбранный файл с именем, определенным в свойстве OpenPictureDialog1.FileName, методом LoadFromFile, который имеется у всех графических объектов, заносится в поле Foto базы данных. Фиксация изменений осуществляется процедурой Post, а последнее действие переводит кнопку DelFotoBtn в доступное для нажатия состояние. Результат можно увидеть в DBImage1: там появилось изображение.

Теперь реализуем возможность  удаления фотографии. Создадим обработчик события DelFotoClick:

procedure TMainForm.DelFotoBtnClick(Sender: TObject);

begin

if MessageBox(0,PChar('Вы действительно хотите удалить фотографию

записи "'+DataM.AllBooksTableFamiliya_P.AsString + ' ' +

DataM.AllBooksTableTheImya_P.AsString + ' ' +

DataM.AllBooksTableOtchestvo_P.AsString +'"?'), 'Внимание!',

MB_YESNOCANCEL + MB_ICONQUESTION) = id_YES then

begin

DataM.PrepodaTable.Edit;

DataM. PrepodaTableFoto.Clear;

DataM. PrepodaTable.Post;

DelFotoBtn.Enabled := false;

LoadFotoBtn.SetFocus;

end;

end;

В принципе, программный  прототип справочника готов: он содержит достаточное количество информации и набор элементарных функций.

 

2.4 Главное и контекстное меню

 

Главным атрибутом  любого Windows-приложения является меню, которое представляет собой набор именованных команд и других вложенных меню (подменю), которые сгруппированы в отдельные функциональные категории. В зависимости от уровня охвата функциональности различают главное и локальное меню.

Главное меню является важным элементом, через которое  осуществляется централизованное управление работой всего приложения. Именно поэтому нужно приложить максимум усилий к проектированию меню, эффективность  которого определяется устройством отдельных элементов и их группировкой.

Поместим на форму компонент MainMenu с вкладки Standard, после чего дважды щелкнем по нему левой кнопкой мыши.

В рассматриваемой  базе данных имеется две таблицы Ucheniki и Prepoda, содержащие телефонные номера двух категорий, которые мы и запишем в качестве подменю пункта «Справочники» с заголовками «Ученики» и «Преподаватели» соответственно. Поменяем значения свойства Name этих записей на Prepoda_Item и Ucheniki_Item.

 

 

 

 

 

 

 

Рисунок 6 –  Конструктор меню

Напишем обработчик события OnClick для пункта Prepoda_Items:

procedure TForm1.Prepod_ItemClick(Sender: TObject);

begin

DBGrid1.DataSource := DataM.PrepodaSource; //присваиваем нужный источник

GroupBox2.Visible := true;

  //отображаем панель фильтра

  Panel1.Visible := false;

  Panel2.Visible := true;  

  //если открыт справочник AllBooks, то

  if DBGrid1.DataSource = DataM.PrepodaSource then

    begin

      //показать панель для AllBooks

      Panel1.Visible := false;

      //скрыть панель для OrgsBooks

      Panel2.Visible := true;

    end;

DBGrid1.DataSource := DataM.PrepodaSource;

LoadFotoPop_Item.Visible := true;

DelFotoPop_Item.Visible := true;

SortBySur_Item.Visible := true;

  SortByName_Item.Visible := true;

  SortByPat_Item.Visible := true;

  SortOrgsByNaz_Item.Visible := true;

  SortByKlass_Item.Visible := false;

end;

 

Аналогичную процедуру  нужно создать для следующего пункта меню - «Ученики»:

procedure TForm1.Ucheniki_ItemClick(Sender: TObject);

begin

DBGrid1.DataSource := DataM.UchenikiSource; //присваиваем нужный источник

GroupBox2.Visible := true;

//отображаем панель фильтра

  Panel1.Visible := true;

  Panel2.Visible := false;

 

  //если открыт справочник AllBooks, то

  if DBGrid1.DataSource = DataM.UchenikiSource then

    begin

      //показать панель для AllBooks

      Panel1.Visible := true;

      //скрыть панель для OrgsBooks

      Panel2.Visible := false;

    end;

DBGrid1.DataSource := DataM.UchenikiSource;

LoadFotoPop_Item.Visible := false;

DelFotoPop_Item.Visible := false;

SortBySur_Item.Visible := true;

  SortByName_Item.Visible := true;

  SortByPat_Item.Visible := true;

  SortOrgsByNaz_Item.Visible := true;

  SortByKlass_Item.Visible := true;

 

На очереди  последний пункт – «Выход»:

procedure TMainForm.Exit_ItemClick(Sender: TObject);

begin

Close;

end;

 

Создадим еще  один пункт «Правка» с такими подменю:

 

 

 

 

 

 

Рисунок 7 - Создание пункта «Правка».

Переименуем свойство Name этих элементов меню следующим образом:

• Правка – Edit_Menu;
• Добавить запись – Add Item;
• Редактировать запись – Edit_Item;
• Сохранить изменения – Save_Item;
• Отменить изменение – CancelEdit_Item;
• Удалить запись – Del_Item;

Теперь вернемся к непосредственному программированию. Реализуем доступ к методам таблиц через обработчики событий OnClick перечисленных выше пунктов меню.

Для Add_Item необходимо прописать:

procedure TForm1.Add_ItemClick(Sender: TObject);

begin

//провреряем, какая  таблица отображается в данный  момент

if DBGrid1.DataSource = DataM.UchenikiSource then

begin

DataM.UchenikiTable.Insert; //добавляем новую строку

DBEdit1.ReadOnly := false;

DBEdit1.SetFocus; //устанавливаем фокус ввода

end;

if DBGrid1.DataSource = DataM.PrepodaSource then

begin

DataM.PrepodaTable.Insert;

DBEdit10.ReadOnly := false; //снимаем режим только для чтения

DBEdit10.SetFocus;

end;

 

Для пункта Edit_Item обработчик выглядит таким образом:

procedure TForm1.Edit_ItemClick(Sender: TObject);

begin

if DBGrid1.DataSource = DataM.UchenikiSource then

begin

DBEdit1.ReadOnly := false;

DBEdit1.SetFocus;

end;

if DBGrid1.DataSource = DataM.PrepodaSource then

begin

DBEdit10.ReadOnly := false;

DBEdit10.SetFocus;

end;

end;

Для пункта Save_Item обработчик выглядит таким образом:

procedure TForm1.Save_ItemClick(Sender: TObject);

begin

if DBGrid1.DataSource = DataM.UchenikiSource then

if DataM.UchenikiTable.Modified then //проверяем  наличие изменений