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

Автор работы: Пользователь скрыл имя, 26 Июня 2013 в 16:51, курсовая работа

Краткое описание

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

Вложенные файлы: 1 файл

Моя курсовая.doc

— 466.50 Кб (Скачать файл)

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdEchoServer'));

end;

procedure Tf_main.bb_IdFingerServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdFingerServer'));

end;

procedure Tf_main.bb_IdGopherServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdGopherServer'));

end;

procedure Tf_main.bb_IdHostNameServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdHostNameServer'));

end;

procedure Tf_main.bb_IdHTTPServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdHTTPServer'));

end;

procedure Tf_main.bb_IdIMAP4ServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdIMAP4Server'));

end;

procedure Tf_main.bb_IdIRCServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdIRCServer'));

end;

procedure Tf_main.bb_IdMappedPortTCPClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdMappedPortTCPerver'));

end;

procedure Tf_main.bb_IdNNTPServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdNNTPServer'));

end;

procedure Tf_main.bb_IdQOTDServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdQOTDServer'));

end;

procedure Tf_main.bb_IdSimpleServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdSimpleServer'));

end;

procedure Tf_main.bb_IdTelnetServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdTelnetServer'));

end;

procedure Tf_main.bb_IdTimeServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdTimeServer'));

end;

procedure Tf_main.bb_IdTrivialFTPServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdTrivialFTPServer'));

end;

procedure Tf_main.bb_IdTunnelMasterClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdTunnelMaster'));

end;

procedure Tf_main.bb_IdTunnelSlaveClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdTunnelSlave'));

end;

procedure Tf_main.bb_IdWhoIsServerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyServers.txt','IdWhoIsServer'));

end;

procedure Tf_main.bb_IdAntiFreezeClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdAntiFreeze'));

end;

procedure Tf_main.bb_IdDateTimeStampClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdDateTimeStamp'));

end;

procedure Tf_main.bb_IdIPWatchClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdIPWatch'));

end;

procedure Tf_main.bb_IdLogDebugClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdLogDebug'));

end;

procedure Tf_main.bb_IdMessageClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdMessage'));

end;

procedure Tf_main.bb_IdNetworkCalculatorClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdNetworkCalculator'));

end;

procedure Tf_main.bb_IdThreadMgrDefaultClick(Sender: TObject);

begin

       m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdThreadMgrDefault'));

end;

procedure Tf_main.bb_IdThreadMgrPoolClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdThreadMgrPool'));

end;

procedure Tf_main.bb_IdVCardClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdVCard'));

end;

procedure Tf_main.bb_IdIMFDecoderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdIMFDecoder'));

end;

procedure Tf_main.bb_IdQuotedPrintableEncoderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdQuotedPrintableEncoder'));

end;

procedure Tf_main.bb_IdQuotedPrintableDecoderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdQuotedPrintableDecoder'));

end;

procedure Tf_main.bb_IdBase64EncoderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdBase64Encoder'));

end;

procedure Tf_main.bb_IdBase64DecoderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdBase64Decoder'));

end;

procedure Tf_main.bb_IdUUEncoderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdUUEncoder'));

end;

procedure Tf_main.bb_IdUUDecoderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdUUDecoder'));

end;

procedure Tf_main.bb_IdXXEncoderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdXXEncoder'));

end;

procedure Tf_main.bb_IdXXDecoderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdXXDecoder'));

end;

procedure Tf_main.bb_IdCoderMD2Click(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdCoderMD2'));

end;

procedure Tf_main.bb_IdCoderMD4Click(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdCoderMD4'));

end;

procedure Tf_main.bb_IdCoderMD5Click(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdCoderMD5'));

end;

procedure Tf_main.bb_IdConnectionInterceptOpenSSLClick(Sender: TObject);

begin

        m_help.Clear;

     m_help.Lines.Add(finding('IndyMisc.txt','IdConnectionInterceptOpenSSL'));

end;

 

procedure Tf_main.b_IdServerInterceptOpenSSLClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('IndyMisc.txt','IdServerInterceptOpenSSL'));

end;

procedure Tf_main.b_findClick(Sender: TObject);

var

        fp, ff : TextFile;

        fn, fs : string;

begin

        AssignFile(fp, '_Panels.txt');

        Reset(fp);

        repeat

                ReadLn(fp,fn);

                AssignFile(ff,fn+'.txt');

                Reset(ff);

                repeat

                        ReadLn(ff, fs);

                        if pos(e_find.Text,fs)>0 then

                        begin

                                m_help.Lines.Add('');

                                m_help.Lines.Add(fs);

                        end;

                until eof(ff);

                CloseFile(ff);

        until eof(fp);

        CloseFile(fp);

end;

 

procedure Tf_main.b_fileClick(Sender: TObject);

begin

        m_help.Lines.SaveToFile('FoundText.txt');

end;

procedure Tf_main.b_printClick(Sender: TObject);

var

        f, fp : TextFile;

        s     : String;

begin

        m_help.Lines.SaveToFile('FoundText.txt');

        AssignFile(f,'FoundText.txt');

        AssignPrn(fp);

        Reset(f);

        Rewrite(fp);

        repeat

                ReadLn(f,s);

                WriteLn(fp,s);

        until eof(f);

        CloseFile(f);

        CloseFile(fp);

end;

end.

2.4. Описание программы.

2.4.1. Общие сведения.

 

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

Программное обеспечение, необходимое  для функционирования программы:

  • Help.exe;
  • Файлы: UHalp.dfm; PHalp.dpr; UHalp.pas; PHalp.cfg; UHalp.dcu; PHalp.dof; PHalp.res.

Язык программирования: Object Pascal.

2.4.2. Функциональное назначение.

 

Класс решаемых задач: Русифицированная справка-приложение к Delphi 6. Область применения: Справочная система по визуальным компонентам Delphi 6.

2.4.3. Описание логической структуры.

 

Структура модуля работы с файлом справочной системы:

Отдельные переменные справочного  текста с их описанием:

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

var

        f  : TextFile;

        s  : string;

        sr : string;

var

        fp, ff : TextFile;

        fn, fs : string;

 

Процедуры по выполнению щелчка на определенной иконке и выведение  справки на данный элемент2:

procedure bb_FramesClick(Sender: TObject);

procedure bb_EditClick(Sender: TObject);

 

Отображение справочной информации в компоненте Memo1.

m_help: TMemo;

 

Поиск по ключевому слову3:

e_find: TEdit;

b_find: TButton;

begin

        AssignFile(fp, '_Panels.txt');

        Reset(fp);

        repeat

                ReadLn(fp,fn);

                AssignFile(ff,fn+'.txt');

                Reset(ff);

                repeat

                        ReadLn(ff, fs);

                        if pos(e_find.Text,fs)>0 then

                        begin

                                m_help.Lines.Add('');

                                m_help.Lines.Add(fs);

                        end;

                until eof(ff);

                CloseFile(ff);

        until eof(fp);

        CloseFile(fp);

end;

 

Сохранение искомой  информации в файл:

b_file: TButton;

procedure Tf_main.b_fileClick(Sender: TObject);

begin

        m_help.Lines.SaveToFile('FoundText.txt'); Сохранение информации.

end;

 

Организация печати информации:

b_print: TButton;

procedure Tf_main.b_printClick(Sender: TObject);

var

        f, fp : TextFile; Переменные.

        s     : String; Переменные строчного типа.

begin

        m_help.Lines.SaveToFile('FoundText.txt'); Распечатка из файла.

        AssignFile(f,'FoundText.txt');

        AssignPrn(fp);

        Reset(f);

        Rewrite(fp);

        repeat

                ReadLn(f,s);

                WriteLn(fp,s); Печать.

        until eof(f);

        CloseFile(f);

        CloseFile(fp);

end;

2.4.4. Используемые технические средства.

 

Программа работает на всех компьютерах семейства Intel Pentium 166 и выше. Операционная система: Microsoft Windows 98, 2000, Me.

2.4.5. Вызов и загрузка программы.

 

Для запуска программы  необходимо запустить файл Help.exe.

2.4.6. Входные данные.

 

Программа работает непосредственно с файлами на диске.

2.4.7. Выходные данные.

 

Выходные данные отображаются на экране или распечатываются на принтере.

2.5. Тестирование программы.

 

Разработано в среде  программирования Delphi 6.

Контрольный пример предполагает проверку следующих требований:

  • соответствие описание файла и выводимой на экран информации.
  • возможность переходов по вкладкам.
  • отображение искомой информации.
  • сохранение информации в файл.
  • распечатка информации на принтере.

Программа тщательно  проверялась. Ошибок не найдено.

2.6. Внедрение.

 

Условия выполнения программы:

минимальный состав аппаратных средств: Intel Pentium 166 MHz

минимальный состав программных средств: Microsoft Windows 98.

 

Выполнение программы:

  • запуск - запустить на выполнение файл help.exe.
  • завершение программы осуществляется путем нажатия кнопки закрытия окна.

Сообщения оператору:

Программа, не выводит  никаких сообщений.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. Литература.

 

    1. Возневич Э. «Освой самостоятельно Delphi: Полное руководство для самостоятельного обучения. /Под ред. В. Тимофеева. – М.: Бином, 1996.
    2. Гофман В.Э./ Хомоненко А.Д. Delphi 6. – СПБ.: БХВ, 1996.
    3. Дарахвелидзе П.Г. Марков Е.П. Delphi – средства визуального программирования. – СПБ.: BHV – С-Петербург, 1996.
    4. Епанешников А.М. Программирование в среде Turbo Pascal 0 – 3-е изд., стер. – М.: «Диалог-МИФИ». 1996.
    5. Зуев Е.А. Система программирования Turbo Pascal./Под общ. Ред. Чадчикова П.М.: Радиоисвязь, 1992.
    6. Конопка Р. Создание оригинальных компонент в среде Delphi: Пер. с англ. – Киев: DiaSoftLtd, 1996.
    7. Сван Том. Основы программирования Delphi для Windows 95. Киев: Диалектика, 1996.
    8. Фаронов В.В. Delphi4. Учебный курс. – М.: Нолидж, 1999.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение.

 

1) Вид окна справочной системы при отображении информации выделенной иконки:

 

 

2) Вид окна справочной  системы при поиске информации. Отображаются все те компоненты, в которые включено искомое  слово.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 Сван Том. Основы программирования Delphi для Windows 95.

2 см. Приложение. п/п 1.

3 см. Приложение. п/п 2.


Информация о работе Разработка эскизного и технического проектов программы