Разработка справочной системы по визуальным компонентам Delphi

 

 

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

АРМАВИРСКАЯ ГОСУДОРСТВЕННАЯ ПЕДАГОГИЧЕСКАЯ АКАДЕМИЯ

ИНСТИТУТ ПРИКЛАДНОЙ ИНФОРМАТИКИ, МАТЕМАТИКИ И ФИЗИКИ

КАФЕДРА ИНФОРМАТИКИ И ИНФОРМАЦИОННЫХ ТЕХНОЛОГИЙ

 

 

 

 

 

 

КУРСОВАЯ РАБОТА

ПО ДИСЦИПЛИННЕ: «Высокоуровневые методы информатики и программирования»

ПО ТЕМЕ: «Разработка справочной системы по визуальным компонентам Delphi»

 

 

 

Работу выполнил

 студент 5 курса

У-ПИЭ-4-55-1

Дробященко Р.А.

Научный руководитель

Старший преподаватель

Лапшин Н.А.

 

 

 

 

Усть-Лабинск 2012

 

 

Содержание.

 

 

 

 

 

 

1. Разработка эскизного и технического проектов программы.

 

1.1. Введение.

 

Условие задачи:

Нужно разработать справочную систему на объектно-ориентировочном языке Object Pascal по визуальным компонентам Delphi в среде визуального программирования Delphi (7 версия). Для этого будут использоваться книги авторов, таких как Возневич Э. Освой самостоятельно Delphi: Полное руководство для самостоятельного обучения; Гофман В.Э./ Хомоненко А.Д. Delphi 6; Епанешников А.М. Программирование в среде Turbo Pascal 0 – 3-е издание и другие.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1.2. Назначение и область применения.

 

Необходимо разработать приложение на языке Object Pascal по визуальным компонентам Delphi в среде Delphi, для создания справочной системы.

Область применения: Дополнение Delphi подробной русифицированной  справочной системой по визуальным компонентам.

 

1.3. Технические характеристики.

 

1.3.1. Постановка задачи.

 

В условии задачи указывается, что нужно разработать справочную систему по визуальным компонентам Delphi. Поэтому будет целесообразно описать конкретно постановку данной задачи, объяснить ее предназначение и функции; для кого предназначена, и основные требования по данной задаче.

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

Итак, теперь можно определить два основных требования к справочной системе:

• Справочная система должна быть понятной;
• Справочная система должна быть полной.

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

Полнота справочной системы нужна квалифицированным пользователям и администраторам. Первые из них хотят «копнуть поглубже», то есть полностью освоить и всесторонне разобраться с программой. В отличие от «продвинутых» пользователей, администраторами движет не энтузиазм, а их прямая обязанность. Кроме доступности и полноты, нужно обратить внимание на структуру справочной системы, а также на формат, в котором она будет поставляться к продукту. Доступность и «читабельность» справочной системы. Справочная система должна быть написана понятным языком.

 

1.3.2. Описание алгоритма.

 

В разрабатываемой справочной системе, должны решатся следующие подзадачи:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1.3.3. Организация входных и выходных данных.

 

При создании справочной системы необходимо подготовить и обработать тексты для справочной системы. На этом этапе специальным образом форматируются текстовые файлы:

 

Файловые переменные:

p1, p2, f, s, sr, fp, ff, fn, fs.

 

Описание переменных:

p1: string;

p2: string;

f: TextFile;

s: string;

sr: string;

fp, ff : TextFile;

fn, fs : string;

 

Процедуры для связи файловой переменной с физическим файлом:

Assign

Reset

Repeat

ReadLn

Until

Rewrite

WriteLn

 

При поиске и выводе информации на экран, искомый материал сохраняется в файле FoundText.txt, эту информацию можно оставить сохраненной или распечатать на принтере.

 

 

1.3.4. Выбор состава технических и программных средств.

 

При разработке данной программы можно сделать вывод о том, что наилучшим средством для выполнения программы будет объектно-ориентировочный язык Object Pascal и среда визуального программирования Delphi. Delphi – это среда программирования, позволяющая достаточно быстро разрабатывать приложения для Windows.

 

Для запуска приложений Delphi достаточны такие характеристики компьютера:

 

• Intel Pentium 166 MHz или выше (P2 400 MHz рекомендуется)
• Microsoft Windows 98, 2000, Me, NT 4.0 с Service Pack 5 или выше
• 64 Mb RAM (128 Mb рекомендуется)
• 400 Mb свободного места на диске

 

2. Разработка рабочего  проекта.

 

2.1. Разработка  программы.

 

Для разработки справочной системы работы с Delphi использовалась среда визуального программирования Delphi 7. Визуальное программирование строится на тесном взаимодействии двух процессов:

• процесс конструирования Windows-окна;
• процесс написания кода, придающего элементам этого окна и программе в целом необходимую функциональность1.

Проект программы содержит одно окно:

 

Form1 – окно справочной системы по всем визуальным компонентам Delphi 6.

 

 

Рис. 1. Главное окно справочной системы.

 

1. Компонент Form1.

Свойства:

Caption – “Help”;

BorderStyle – bsDialog;

ClientHeight – 208;

ClientWidth – 739;

Name – f_main;

Position – poScreenCenter;

ShowHint – False.

2. Компонент PageControl1.

Свойства:

ActivePage – ts_standard (видима на данном рисунке);

Name – PageControl1;

Style – tsTabs;

TabIndex – 0;

TabPosition – tpTop;

(при переключении на следующие  вкладки свойства ActivePage, TabIndex меняются соответственно вкладке).

3. Компоненты BitBtn.

Свойства:

Caption – ‘   ’;

Glyph – *.bmp; (свой рисунок присвоен определенной кнопке);

Name – bb_...; (… - соответствует названию иконки);

Show Hint – True;

Style – sAutoDetect;

TabOrder – 0 или  …; (… - соответствует количеству иконок);

События:

BitBtnClick – это событие вызывает появление информации-справки в компоненте Memo1, на заданный компонент.

4. Компонент Memo1.

Свойства:

Name – m_help;

ScrollBars – ssVertical.

5. Компонент Label1.

Свойства:

Caption – “Поиск”.

6. Компонент Edit1.

Свойства:

Name – e_find;

Text – ‘   ’.

7. Компонент Button1.

Свойства:

Caption – “Поиск”;

Name – b_find.

События:

Button1Click – организует поиск искомого слова по справочной системе.

 

8. Компонент Button 2

Свойства:

Caption – “Файл”;

Name – b_file.

События:

Button2Click – сохраняет отображенную или найденную информацию в файл.

9. Компонент Button 3

Свойства:

Caption – “Печать”;

Name – b_print.

События:

Button3Click – печатает отображенную или найденную информацию из файла.

 

2.2 Спецификация программы.

 

Исполняемый файл программы имеет название Help.exe. Состав проекта:

 

Наименование	Обозначение	Примечание
UHalp.dfm	Файл формы	Содержит список свойств всех компонентов
PHalp.dpr	Файл проекта	Проект
UHalp.pas	Файл программного модуля	Определяет функциональность проекта
PHalp.cfg	Файл конфигурации	Все конфигурации проекта
UHalp.dcu	Объектный файл для UHalp.pas	Откомпилированная версия UHalp.pas
PHalp.dof	Файл параметров проекта	Содержит текущие установки
PHalp.res	Файл ресурсов	Содержит пиктограммы, графические иображения

 

 

 

 

 

 

 

2.3. Текст программы.

 

var

  f_main: Tf_main;

implementation

{$R *.DFM}

function finding(p1:string;p2:string):string;

var

        f  : TextFile;

        s  : string;

        sr : string;

begin

        AssignFile(f,p1);

        Reset(f);

        repeat

                ReadLn(f,s);

                sr:=copy(s,length(p2)+3,length(s)-(length(p2)+3));

        until pos(p2+' - ',s)>0;

        CloseFile(f);

        finding:=sr;

end;

procedure Tf_main.bb_FramesClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Frames'));

end;

procedure Tf_main.bb_EditClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Edit'));

end;

procedure Tf_main.bb_MainMenuClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','MainMenu'));

end;

procedure Tf_main.bb_PopupMenuClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','PopupMenu'));

end;

procedure Tf_main.bb_LabelClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Label'));

end;

procedure Tf_main.bb_MemoClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Memo'));

end;

procedure Tf_main.bb_ButtonClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Button'));

end;

procedure Tf_main.bb_CheckBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','CheckBox'));

end;

procedure Tf_main.bb_RadioButtonClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','RadioButton'));

end;

procedure Tf_main.bb_ListBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','ListBox'));

end;

procedure Tf_main.bb_ComboBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','ComboBox'));

end;

procedure Tf_main.bb_ScrollBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','ScrollBar'));

end;

procedure Tf_main.bb_GroupBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','GroupBox'));

end;

procedure Tf_main.bb_RadioGroupClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','RadioGroup'));

end;

procedure Tf_main.bb_PanelClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Panel'));

end;

procedure Tf_main.bb_ActionListClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','ActionList'));

end;

procedure Tf_main.bb_bitbtnClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','BitBtn'));

end;

procedure Tf_main.bb_speedbuttonClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','SpeedButton'));

end;

procedure Tf_main.bb_MaskEditClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','MaskEdit'));

end;

procedure Tf_main.bb_StringGridClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','StringGrid'));

end;

procedure Tf_main.bb_DrawGridClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','DrawGrid'));

end;

procedure Tf_main.bb_ImageClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','Image'));

end;

procedure Tf_main.bb_ShapeClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','Shape'));

end;

procedure Tf_main.bb_BevelClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','Bevel'));

end;

procedure Tf_main.bb_ScrollBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ScrollBox'));

end;

procedure Tf_main.bb_CheckListBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','CheckListBox'));

end;

procedure Tf_main.bb_SplitterClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','Splitter'));

end;

procedure Tf_main.bb_StaticTextClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','StaticText'));

end;

procedure Tf_main.bb_ControlBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ControlBar'));