ОПИСАНИЕ ПРОЦЕССА РАЗРАБОТКИ

2.6.4 ОПИСАНИЕ ПРОЦЕССА РАЗРАБОТКИ.

2.6.4.1 НАЧАЛО СОЗДАНИЯ.

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

BEGIN

{Подготовка к работе}

{Работа}

{Завершить работу}

END.

Если попытаться выполнить эту программу, ничего не произойдет. Так обстоит дело с Borland Pascal’ем, но не так в Turbo Vision ! Для любой прикладной программы Turbo Vision создает минимальную программную реализацию, которую затем можно постепенно наращивать в ходе детализации программы. Вот начальный вариант программы с использованием Turbo Vision.

Uses App;

Var

SklVks : TSklVks;

Begin

SklVks.Init;

SklVks.Run;

SklVks.Done;

End.

В этой программе объявлено использование стандартного для Turbo Vision модуля APP (от Application - прикладная программа). Такое объявление открыло доступ к мощным возможностям Turbo Vision. Затем объявили экземпляр объекта TApplication, т.е. объединение данных и методов обработки этик данных (процедур, функций, конструкторов, деструкторов). В объекте TApplication предусмотрены методы INIT, RUN и DONE. Вызов этих методов и составляет исполняемую часть программы. Если запустить эту программу, то на экран появится изображение (см. рис 1) :

(рис 1)

Как видно, даже простейшая программа “знает”, как создать экран, распознать команду ALT-X и может работать с мышью. Совсем не плохо для трех исполняемых операторов, не так ли ? Такие возможности доступны потому, что в объекте TApplication предусмотрены соответствующие методы.

Простейшая программа не может выполнять никаких других действий, кроме уже перечисленных, так как именно эти действия запрограммированы в методах Init и Run объекта TApplication. В ходе их выполнения на экране создается изображение, имеющее три зоны : верхняя строка (строка меню), нижняя строка (строка статуса) и вся остальная часть (рабочая область).

2.6.4.2 ФОРМИРОВАНИЕ МЕНЮ И СТРОКИ СТАТУСА.

Теперь нужно создать основные элементы программы - строку меню и строку состояния. Для этого я модифицировал стандартное поведение объекта SKLVKS. Я перекрыл (переопределил) унаследованные от TApplication методы InitStatusLine и InitMenuBar. Метод InitStatusLine я перекрыл так, чтобы программа в строке состояния вывела подсказки : выхода из программы, справка и меню. При нажатии мышкой или при нажатии горячей клавишу на соответствующую надпись ваполнится связанная с ней процедура. Например при нажатии на F1 на экране появится сообщение о создании СУРКК или при нажатии на F10 активизируется строка меню. Метод InitMenuBar перекрал так, чтобы организовать меню для работы с данными. (см. рис 2)

USES APP,OBJECTS,MENUS,DRIVERS,VIEWS;

Const

cmPrnSklad = 200;

cmSklad = 201;

cmZak = 203;

cmPriceLst = 204;

cmHelp_About = 205;

cmPrint = 206;

cmPrihod = 207;

cmSbros = 208;

cmNext = 209;

cmMore = 213;

cmSKL = 214;

cmDostup = 215;

cmDobavka = 216;

cmRekviz = 217;

cmKurs = 218;

cmTemp = 219;

cmPriceList = 220;

cmSdelka = 221;

cmPrih = 222;

cmVozvrat = 223;

cmKorPrihod = 224;

cmDolgi = 225;

cmUdal = 226;

cmMoney = 227;

cmArchive = 228;

Type

TSklVks = object(TApplication)

Procedure InitStatusLine ; Virtual;

Procedure InitMenuBar ; Virtual;

End;

Procedure TSklVks.InitStatusLine; { создает строку статуса }

var

R: Trect;

Begin

GetExtent(R);

R.A.Y:=pred(R.B.Y); { координаты строки статуса }

StatusLine:=New(PStatusLine,Init(R,NewStatusDef(0,$ffff,

NewStatusKey(' ~ALT-X~-Конец работы',kbAltX,cmQuit,

NewStatusKey(' ~F1~-Справка',kbf1,cmHelp_About,

NewStatusKey(' ~F10~-Меню',kbf10,cmMenu,

nil))),nil)));

END;

Procedure TSklVks.InitMenuBar; { Создает строку меню }

var

R: Trect;

Begin

GetExtent(R);

R.B.Y :=succ(R.A.Y); { координаты строки меню }

MenuBar:=New(PMenuBar,Init(R,NewMenu(NewSubMenu('~Д~анные',hcNoContext,

NewMenu(

NewItem('~С~клад',' ',kbNokey,cmSklad,hcNoContext,

NewItem('С~д~елки',' ',kbNoKey,cmSdelka,hcNoContext,

NewItem('~П~риходы',' ',kbNoKey,cmPrih,hcNoContext,

NewItem('Дол~г~и',' ',kbNoKey,cmDolgi,hcNoContext,

NewItem('Выруч~к~а',' ',kbNoKey,cmMoney,hcNoContext,

NewLine(

NewItem('~В~ыход','ALT-X',kbAltX,cmQuit,hcNoContext,nil)))))))),

NewSubMenu('~К~лиент',hcNoContext,(NewMenu(

NewItem('~П~родажа','',kbNoKey,cmZak,hcNoConText,

NewItem('~В~озврат','',kbNoKey,cmVozvrat,hcNoConText,

nil)))),

NewSubMenu('~П~оставщик',hcNoContext,NewMenu(

NewItem('Новый при~х~од','',kbNoKey,cmPrihod,hcNoContext,

NewItem('~К~орректировка прихода','',KbNoKey,cmKorPrihod,hcNoContext,

nil))),

NewSubMenu('Пе~ч~ать',hcNoContext,NewMenu(

NewItem('~О~тчет о наличии товара',' ',kbNoKey,cmPrnSklad,hcNoContext,

NewItem('Прайс ~л~ист',' ',KbNoKey,cmPriceList,hcNoContext,

nil))),

NewSubMenu('~А~рхив',hcNoContext,NewMenu(NewItem('~Р~абота с архивом',

' ',kbNokey,cmArchive,hcNoContext,nil)),

NewSubMenu('~У~становки',hcNoContext,NewMenu(

NewItem('~П~ароль',' ',kbNoKey,cmDostup,hcNoContext,

NewItem('Рекви~з~иты',' ',kbNoKey,cmRekviz,hcNoContext,

NewItem('Кур~с~ доллара',' ',kbNoKey,cmKurs,hcNocontext,

nil)))),

NewSubMenu('~И~нформация',hcNoContext,NewMenu(

NewItem('О Скла~д~е ... ','',kbNokey,cmHelp_About,hcNoContext,

nil)),

nil))))))))));

end;

Var

SKLVKS : TSKLVKS;

BEGIN { Основная программа }

SklVks.Init;

SklVks.Run;

SklVks.Done;

END. { Конец основной программы }

(рис 2)

Похожие работы

Разработка системы управления продвижения изделий фирмы на рынок

Скачать

467691

60

25

... » анализ платежеспособности показал, что предприятие на 01.10.97 является неплатежеспособным, но прогноз платежеспособности положительный. 4. Маркетинговые исследования предприятия и разработка системы управления продвижения изделий фирмы на рынок 4.1. Маркетинговые исследования предприятия ОАО «Волжское Химволокно» производит полиамидные (капроновые) нити текстильного и технического назначения, ...

Разработка системы адаптации персонала холдинговой компании

Скачать

148797

44

13

... каждом последующем уровне управления. Изучение отечественного опыта показало, что, как правило, специальной службы, которая бы занималась вопросами адаптации в организациях, не существует. 2 Разработка системы адаптации персонала ООО «Радио 2.1 Анализ деятельности компании ООО «Радио СИ» 2.1.1 Характеристика компании ООО «Радио СИ» Общество с ограниченной ответственностью «Радио СИ». ...

Внешние факторы, определяющие работу систем управления предприятием

Скачать

68785

0

0

... товарного предложения: качество и ремонтоспособность продукции, а также уровень сервиса и др. 3. Влияние уровня компьютеризации на работу систем управления предприятием Управленческая деятельность выступает в современных условиях как один из важнейших факторов функционирования и развития промышленных фирм. Эта деятельность постоянно совершенствуется в соответствии с объективными требованиями ...

Разработка системы управления акционерным обществом АОА Контур

Скачать

72028

0

0

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