Версия для печати темы

Автор: GrukhvinEV 2.09.2012 15:15

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

Program MyPhoneBook;

Uses App,Objects,Menus,Drivers,Views,MsgBox,StdDlg,Dos,Memory,Editors,Dialogs;
{Используемые модули библиотеки Turbo Vision}

const {TPhonebook.InitStatusLine}
      {Команды для обработчиков событий:}
      cmSerch=203; {Поиск по записям}
      cmAdd=204; {Добавить запись}
      cmDelete=205;{Удалить запись}
      WinComl:TCommandSet=[];{Множество временно недоступных команд}


type
    TPhoneBook=object(TApplication)
    procedure InitMenuBar;virtual;
    procedure InitStatusLine;virtual;
end;


Procedure TPhoneBook.InitMenuBar;{Создание верхнего меню}
var
   R:TRect;
begin
     GetExtent® ;
     R.B.Y:=succ(R.A.Y);{R - координаты, строки меню}
     MenuBar:=New(PMenuBar,Init(R,NewMenu({Создаем меню}
     {Первый элемент нового меню представляет собой подменю (меню второго уровня) . Создаем его}
     NewSubMenu('Меню',hcNoContext,
     {Описываем элемент главного меню}
     NewMenu({Создаем подменю}
     NewItem({Второй элемент}
     '~1~/Поиск','',kbF2,cmSerch,hcNoContext,
     NewItem({Третий элемент}
     '~2~/Добавить','',0,cmAdd,hcNoContext,
     NewItem('~3~/Удалить','',0,cmDelete,
     hcNoContext,
     NIL))){Нет других элементов подменю}),
     {Создаем второй элемент главного меню}
     NewItem('Выход','E',kbAltX,cmQuit,hcNoContext,
     NIL){Нет других элементов главного меню}))))
end;


Procedure TPhoneBook.InitStatusLine;
{Описание нового метода, с помощью которого создается строка статуса}
var
   R:TRect;{Границы строки статуса}
begin
     GetExtent®;{Получаем в R координаты всего экрана}
     R.A.Y:=pred(R.B.Y);{Помещаем в R координаты строки статуса}
     {Создаем строку статуса:}
     StatusLine:=New(PStatusLine,Init(R,
     NewStatusDef(0,$FFFF,{Устанавливаем для этого варианта максимальный диапазон контекстной справочной службы}
     NewStatusKey('~F1~ Меню',kbF1,cmMenu,
     NewStatusKey('~F2~ Поиск',kbF2, cmSerch,
     NewStatusKey('~F3~ Добавить',kbF3,cmAdd,
     NewStatusKey('~F4~ Удалить',kbF4,cmDelete,
     NewStatusKey('~Alt-X~ Выход',kbAltX,cmQuit,nil))))),{Нет других клавиш}
     nil){Нет других определений}
     ));
     DisableCommands(WinComl){Запрещаем недоступные команды}
end;


var
   PhoneBook:TPhoneBook;

begin
     PhoneBook.Init;{Подготовить работу программы}
     PhoneBook.Run;{Выполнить необходимые действия}
     PhoneBook.Done{Завершить исполнение программы}
end.

Прикрепленные файлы
 TEL.rar ( 27.69 килобайт ) Кол-во скачиваний: 220