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

Автор: Пользователь скрыл имя, 24 Октября 2011 в 10:17, курсовая работа

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

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

Скачать в ZIP (148.23 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

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

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

    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. Внедрение.

 

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