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

Размещено на http://www.allbest.ru/

Министерство образования РФ

Дагестанский Государственный Технический Университет

Кафедра ПОВТиАС

Курсовая работа

По дисциплине:

«База данных»

на тему:

«Разработка информационно-справочной системы

для автопарка»

Выполнила: студенткиа 3го курса

Факультета ИиУ

Группы № 3132

Баганова К.Б.

Проверил: Джанмурзаев А.А.

Махачкала 2004 г.

Аннотация

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

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

Данная курсовая работа предназначена для студентов технических специальностей, желающих в какой-то мере освоить некоторые (а именно применяемые в данной работе) возможности языка FoxPro.

Введение

Восприятие реального мира можно соотнести с последовательностью разных, хотя иногда и взаимосвязанных, явлений. С давних времен люди пытались описать эти явления (даже тогда, когда не могли их понять). Такое описание называют данными.

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

Жесткая зависимость между данными и использующими их программами создает серьезные проблемы в введении данных и делает использование их менее гибкими.

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

База данных и способы ее представления

Концепция баз данных.

Активная деятельность по отысканию приемлемых способов обобществления непрерывно растущего объема информации привела к созданию в начале 60-х годов специальных программных комплексов, называемых "Системы управления базами данных" (СУБД).

Основная особенность СУБД - это наличие процедур для ввода и хранения не только самих данных, но и описаний их структуры. Файлы, снабженные описанием хранимых в них данных и находящиеся под управлением СУБД, стали называть банки данных, а затем "Базы данных" (БД).

Базы Данных , способы представления , модели данных.

Базы Данных (БД) представляют собой совокупность данных, структурированных определенным образом по определенной тематике, применяющихся в различных отраслях экономики, промышленности, бизнеса и науки. Скорость доступа к нужной информации, оперативность ее получения определяют, в конечном итоге, успешное ведение бизнеса и уменьшают затраты на соответствующие статьи доходов. Разработаны методы, которые облегчают работу с большим объемом данных: создание баз данных, выполнение поиска, редактирование, извлечение различных выборок, а также проведение анализа данных и оформления расчетов, которые содержат итоговые документы и данные в виде таблиц, диаграмм и графиков. Эти методы реализуются с помощью комплекса программных средств, обеспечивающих работу с БД - системой управления базой данных (СУБД).

Известно много программных продуктов, позволяющих создавать и работать с БД, например, Access, Clipper, Excel и другие. Среди большого разнообразия программ наибольшей популярностью пользуется СУБД FoxPro, которая по своим характеристикам удовлетворяет самым высоким требованиям, предъявляемым к такого типа системам как по уровню и объему, так и по скорости обработки информации.

На данный момент разработано и широко используется Visual FoxPro для Windows версий 3.0 и 5.0. Однако, работа с этими пакетами для непрограммистов представляет собой довольно сложную задачу. Поэтому для создания БД для пользователей, имеющих небольшой опыт в программировании , очень удачными являются версии 2.5 и 2.6 под Windows и 2.0 под DOS.

Инфологическая модель отображает реальный мир в некоторые понятные человеку концепции, полностью независимые от параметров среды хранения данных. Существует множество подходов к построению таких моделей: графовые модели, семантические сети, модель "сущность-связь" и т.д.. Наиболее популярной из них оказалась модель "сущность-связь",которая будет рассмотрена далее. Инфологическая модель должна быть отображена в компьютеро-ориентированную даталогическую модель, "понятную" СУБД. В процессе развития теории и практического использования баз данных, а также средств вычислительной техники создавались СУБД, поддерживающие различные даталогические модели. Сначала стали использовать иерархические даталогические модели. Простота организации, наличие заранее заданных связей между сущностями, сходство с физическими моделями данных позволяли добиваться приемлемой производительности иерархических СУБД на медленных ЭВМ с весьма ограниченными объемами памяти. Но, если данные не имели древовидной структуры, то возникала масса сложностей при построении иерархической модели и желании добиться нужной производительности.

Сетевые модели также создавались для мало ресурсных ЭВМ. Это достаточно сложные структуры, состоящие из "наборов" - поименованных двухуровневых деревьев. "Наборы" соединяются с помощью "записей-связок", образуя цепочки и т.д. При разработке сетевых моделей было выдумано множество "маленьких хитростей", позволяющих увеличить производительность СУБД, но существенно усложнивших последние. Прикладной программист должен знать массу терминов, изучить несколько внутренних языков СУБД, детально представлять логическую структуру базы данных для осуществления навигации среди различных экземпляров, наборов, записей и т.п.

Один из разработчиков операционной системы UNIX сказал "Сетевая база - это самый верный способ потерять данные". Сложность практического использования иерархических и и сетевых СУБД заставляла искать иные способы представления данных. В конце 60-х годов появились СУБД на основе инвертированных файлов, отличающиеся простотой организации и наличием весьма удобных языков манипулирования данными. Однако такие СУБД обладают рядом ограничений на количество файлов для хранения данных, количество связей между ними, длину записи и количество ее полей. Физическая организация данных оказывает основное влияние на эксплуатационные характеристики БД. Разработчики СУБД пытаются создать наиболее производительные физические модели данных, предлагая пользователям тот или иной инструментарий для поднастройки модели под конкретную БД. Разнообразие способов корректировки физических моделей современных промышленных СУБД не позволяет рассмотреть их в этом разделе.

Инфологическая модель данных. Сущность-связь.Основные понятия.

Цель инфологического моделирования - обеспечение наиболее естественных для человека способов сбора и представления той информации, которую предполагается хранить в создаваемой базе данных. Поэтому инфологическую модель данных пытаются строить по аналогии с естественным языком ( последний не может быть использован в чистом виде из-за сложности компьютерной обработки текстов и неоднозначности любого естественного языка).Основными конструктивными элементами инфологических моделей являются сущности, связи между ними и их свойства (атрибуты).

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

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

Абсолютное различие между типами сущностей и атрибутами отсутствует. Атрибут является таковым только в связи с типом сущности. В другом контексте атрибут может выступать как самостоятельная сущность.

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

Связь - ассоциирование двух или более сущностей. Если бы назначением базы данных было только хранение отдельных, не связанных между собой данных, то ее структура могла бы быть очень простой. Однако одно из основных требований к организации базы данных - это обеспечение возможности отыскания одних сущностей по значениям других, для чего необходимо установить между ними определенные связи. А так как в реальных базах данных нередко содержатся сотни или даже тысячи сущностей, то теоретически между ними может быть установлено более миллиона связей. Наличие такого множества связей и определяет сложность инфологических моделей.

О построении инфологической модели.

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

В идеале же необходимо, чтобы читатель предварительно реализовал хотя бы один проект информационной системы, предложил его реальным пользователям и побыл администратором базы данных и приложений столь долго, чтобы осознать хотя бы небольшую толику проблем, возникающих из-за недостаточно продуманного проекта. Опыт автора и всех знакомых ему специалистов по информационным системам показывает, что любые теоретические рекомендации воспринимаются всерьез лишь после нескольких безрезультатных попыток оживления неудачно спроектированных систем. (Хотя есть и такие проектировщики, которые продолжают верить, что смогут реанимировать умирающий проект с помощью изменения программ, а не инфологической модели базы данных.)

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

Это связано с абсолютно различающимися требованиями к базе данных прикладных программистов и администратора базы данных. Первые хотели бы иметь в одном месте (например, в одной таблице) все данные, необходимые им для реализации запроса из прикладной программы или с терминала. Вторые же заботятся о исключении возможных искажений хранимых данных при вводе в базу данных новой информации и обновлении или удалении существующей. Для этого они удаляют из базы данных дубликаты и нежелательные функциональные связи между атрибутами, разбивая базу данных на множество маленьких таблиц. Так как многолетний мировой опыт использования информационных систем, построенных на основе баз данных, показывает, что недостатки проекта невозможно устранить любыми ухищрениями в программах приложений, то опытные проектировщики не позволяют себе идти навстречу прикладным программистам (даже тогда, когда они сами являются таковыми).

Разработка структуры программы

Информация в программе AutoPark.PRG представляется в виде таблиц. Они, в свою очередь, подразделяются по определенным категориям. В программе было предусмотрено определенное количество операций (или действий) по работе с базой данной и ее обработки.

Основное меню программы (Рис. 1) состоит из:

Система > Загрузить,

Сохранить,

Удалить >Удалить всю БД

Удалить по признаку >По марке авто

По рег. номеру авто

База автомобилей >Корректировать,

Просмотреть,

Добавить,

Поиск >По марке авто

По рег. номеру авто

Выход в DOS

При выборе пункта меню Система пункты Загрузить и Сохранить пользователь может загрузить основную базу данных Auto.DBF на экран и сохранить внесенные им изменения соответственно. В пункте меню Удалить следует уделить особое внимание пункту Удалить всю БД, при выборе которого ВСЯ база данных уничтожается. Пункт меню Удалить по признаку помечает выбранные записи на удаление соответственно по марке и рег. номер авто.

Пункт меню База автомобилей решает основные задачи, поставленные в курсовой работе. Пункт меню Корректировать позволяет изменить все или несколько полей записи в базе данных. В пункте меню Просмотреть возможно просмотреть основные параметры (или поля) базы данных, а при выборе одной записи - дополнительную информацию о ней (записи). Пункт меню Добавить позволяет добавить одну или несколько записей в основную базу данных. В пункте меню Поиск реализованы два вида поиска: по марке авто и по рег. номеру.

И, соответственно, Выход в DOS осуществляет выход из программы.

Разработка системного меню

Сервис(Загрузить, Сохранить, Удалить(Удалить всю БД, Удалить по признаку(По марке авто, По рег. номеру)))

База автомобилей(Корректировать, Просмотреть, Добавить, Поиск(По марке авто, По рег. номеру))

Выход в DOS

Разработка процедур

В программе были использованы 6 процедур и 1 функция.

1. Процедура удаления записи из БД udal1.

При выборе процедуры udal1 на экране вырисовывается окно ok1 для удаления записи по признаку. В зависимости от того, какой из пунктов меню был выбран (по марке авто или по рег. номеру), выполняется первая или вторая часть процедуры.

2. Процедура коррекции БД korr.

При выборе процедуры korr на экране вырисовывается окно krok для коррекции одного или нескольких полей БД.

3. Функция nom, предупреждающая возможность дублирования рег. номера.

Данная функция вызывается после ввода рег. номера авто. Просматривая все записи БД, введенный рег. номер сравнивается с уже существующими. Если такой номер уже существует, то выводится сообщение о том, что данный номер уже занят.

4. Процедура просмотра БД procm.

При выборе процедуры procm на экран вырисовывается окно prosm для просмотра трех параметров записей БД.

5. Процедура inf, выдающая в окне содержимое выбранной записи.

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

6. Процедура добавления новой записи в БД vvod.

При выборе данной процедуры vvod на экран вырисовывается окно ok_v. После внесения параметров новой записи она заносится в БД.

7. Процедура поиска записи по признаку poisk1.

При выборе процедуры poisk1 на экране вырисовывается окно ok для поиска записи по признаку. В зависимости от того, какой из пунктов меню был выбран (по марке авто или по рег. номеру), выполняется первая или вторая часть процедуры.

Листинг программы AutoPark.PRG

marka1=''

model1=''

color1=''

nomer1=0

dvigatel1=0

regnomer1=0

DEFINE WINDOW AutoPark FROM 1,1 TO 24,79 fill ;

'-' color b/W

ACTIVATE WINDOW AutoPark

SET TALK OFF

CLEAR

USE Auto In 1

USE Klient In 2

DEFINE MENU AutoPark

DEFINE PAD system OF AutoPark PROMPT "Система" AT 1,5 COLOR SCHEME 3

DEFINE PAD baza OF AutoPark PROMPT "База Автомобилей" AT 1,25 COLOR SCHEME 3

DEFINE PAD vih OF AutoPark PROMPT "Выход в DOS" AT 1,55 COLOR SCHEME 3

ON PAD system OF AutoPark ACTIVATE POPUP syst

ON PAD baza OF AutoPark ACTIVATE POPUP baza

ON SELECTION PAD vih OF AutoPark DO _18b16pgbh

* IN LOCFILE("FOX26\AUTO" ,"MPX;MPR|FXP;PRG" ,"Where is AUTO?")

DEFINE POPUP syst MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF syst PROMPT "Загрузить"

DEFINE BAR 2 OF syst PROMPT "Сохранить"

DEFINE BAR 3 OF syst PROMPT "Удалить"

ON SELECTION BAR 1 OF syst BROWSE

ON SELECTION BAR 2 OF syst SAVE TO AutoSET

ON BAR 3 OF syst ACTIVATE POPUP udalen

DEFINE POPUP udalen MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF udalen PROMPT "Удалить всю БД"

DEFINE BAR 2 OF udalen PROMPT "Удалить по признаку"

ON SELECTION BAR 1 OF udalen ZAP

ON BAR 2 OF udalen ACTIVATE POPUP udalp

DEFINE POPUP udalp MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF udalp PROMPT "По марке авто"

DEFINE BAR 2 OF udalp PROMPT "По рег.номеру"

ON SELECTION BAR 1 OF udalp DO udal1

ON SELECTION BAR 2 OF udalp DO udal1

DEFINE POPUP baza MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF baza PROMPT "Корректировать"

DEFINE BAR 2 OF baza PROMPT "Просмотреть"

DEFINE BAR 3 OF baza PROMPT "Добавить"

DEFINE BAR 4 OF baza PROMPT "Поиск"

ON SELECTION BAR 1 OF baza DO korr

ON SELECTION BAR 2 OF baza DO procm

ON SELECTION BAR 3 OF baza DO vvod

ON BAR 4 OF baza ACTIVATE POPUP poisk

DEFINE POPUP poisk MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF poisk PROMPT "По марке авто"

DEFINE BAR 2 OF poisk PROMPT "По рег.номеру"

ON SELECTION BAR 1 OF poisk DO poisk1

ON SELECTION BAR 2 OF poisk DO poisk1

ACTIVATE MENU AutoPark

DEACTIVATE MENU

DEACTIVATE WINDOW AutoPark

* Процедура удаления записи

PROCEDURE udal1

DEFINE WINDOW ok1 FROM 5,10 to 20,70 TITLE 'Удаление записи из БД' COLOR SCHEME 10

ACTIVATE WINDOW ok1

n=RECNO()

IF BAR()=1

@ 2,2 SAY 'Введита марку авто'

@ 2,col()+2 GET m.marka DEFAULT SPACE(25)

READ

LOCATE FOR marka=ALLTRIM(m.marka)

ELSE

@ 2,2 SAY 'Введите рег.номер авто'

@ 2,col()+2 GET m.regnomer DEFAULT 0

READ

LOCATE FOR regnomer=m.regnomer

ENDIF

IF EOF()

WAIT 'Не найдено' WINDOW

GO n

ELSE

IF DELETE()

RECALL

ELSE

DELETE

ENDIF

ENDIF

@ 3,2 SAY IIF(DELETE(),'Запись удалена !!!',' ')

SHOW GETS

DEACTIVATE WINDOW ok1

RETURN

* Процедура коррекции БД

PROCEDURE korr

USE auto IN 1

USE klient IN 2

SELECT 1

DEFINE WINDOW krok FROM 5,10 to 20, 70 TITLE 'Коррекция БД' COLOR SCHEME 10

ACTIVATE WINDOW krok

SCAN

@ 2,2 SAY 'Марка авто '

@ 2,col()+4 GET marka

@ 3,4 SAY 'Модель авто'

@ 3,col()+6 GET model

@ 4,6 SAY 'Цвет авто'

@ 4,col()+10 GET color

@ 5,6 SAY 'Номер двигателя'

@ 5,col()+4 GET dvigatel

@ 6,4 SAY 'Номер авто'

@ 6,col()+7 GET nomer

@ 7,2 SAY 'Рег. номер '

@ 7,col()+4 GET regnomer VALID nom() ERROR 'Этот номер занят !'

READ

ch=1

@ 10,12 say 'Продолжим просмотр базы Да Нет'

@ 10,col()-7 get ch FUNCTION '*IHT ;' SIZE 1,3,1

READ cycl

IF ch<>1

EXIT

ENDIF

ENDSCAN

DEACTIVATE WINDOW krok

RETURN

* Функция, предупреждающая возможность дублирования рег.номера

FUNCTION nom

i=RECNO()

n=regnomer

r=.t.

SCAN

IF RECNO() <>i

r=IIF(regnomer=n,.f.,.t.)

IF NOT r

EXIT

ENDIF

ENDIF

ENDSCAN

GO i

RETURN r

* Процедура просмотра БД

PROCEDURE procm

USE auto IN 1

USE klient IN 2

SELECT 1

SET RELATION TO regnomer INTO klient

DEFINE WINDOW prosm FROM 5,10 to 20,70 TITLE 'Информация о авто' COLOR SCHEME 10

DEFINE POPUP pr FROM 1,1 to 12,57 PROMPT FIELD marka+' '+model+' '+ ;

str(nomer,3) TITLE 'Марка авто Модель авто Номер авто' footer ;

'Выберите и нажмите ENTER'

ON SELECT POPUP pr DO inf

ACTIVATE WINDOW prosm

ACTIVATE POPUP pr

SET RELATION TO

DEACTIVATE WINDOW prosm

RETURN

* Прoцедура, выдающая в окне содержимое выбранной записи

PROCEDURE inf

DEFINE WINDOW inf FROM 9,45 TO 15,73 TITLE 'Авто '+marka COLOR SCHEME 7

ACTIVATE WINDOW inf

m_n=regnomer

fio=MEC()

@1,1 SAY 'Цвет авто:'

@1,col()+1 SAY color

@2,1 say 'Номер двигателя:'

@2,col()+1 SAY dvigatel

@3,1 say 'Рег. номер:'

@3,col()+1 SAY regnomer

WAIT ''

DEACTIVATE WINDOW inf

RETURN

FUNCTION mec

SELECT 2

fio=''

LOCATE FOR m_n=regnomer

IF NOT FOUND()

WAIT WINDOW 'Ошибка! Клиент авто не зарегестрирован! '

ENDIF

fio1=fio

SELECT 1

RETURN fio1

* Процедура добавления новой записи в БД

PROCEDURE vvod

USE auto IN 1

USE klient IN 2

SET EXACT ON

DEFINE WINDOW ok_v FROM 5,10 to 20,70 TITLE 'Добавление новой записи в БД' COLOR SCHEME 10

defi popup mesto from 1,1 to 6,16 prompt field pol

DO WHILE .t.

SELECT 1

CLEAR

STORE 0 TO regnomer1

ACTIVATE WINDOW ok_v

@ 2,2 SAY 'Введите марку авто:'

@ 2,col()+6 GET marka1 size 1,15

@ 3,4 SAY 'Введите модель авто:'

@ 3,col()+5 GET model1 size 1,15

@ 4,6 SAY 'Введите цвет авто'

@ 4,col()+8 GET color1 size 1,15

@ 5,6 SAY 'Введите номер авто:'

@ 5,col()+6 GET nomer1 size 1,15

@ 6,4 SAY 'Введите рег. номер:'

@ 6,col()+6 GET regnomer1 size 1,15

@ 7,2 SAY 'Введите номер двигателя:'

@ 7,col()+1 GET dvigatel1 size 1,15

READ

SELECT 1

@ 10,5 SAY 'Вы уверены в правильности ввода ? Да Нет'

@ 10,col()-7 GET ch FUNCTION '*IHT ;' SIZE 1,3,1 default 1

READ cycl

IF ch=1

SELECT 1

APPEND BLANK

REPLACE marka WITH marka1

REPLACE model WITH model1

REPLACE color WITH color1

REPLACE nomer WITH nomer1

REPLACE dvigatel WITH dvigatel1

REPLACE regnomer WITH regnomer1

ELSE

CLEAR

ENDIF

@ 10,1 TO 15,78 CLEAR

@ 10,5 SAY 'Продолжим ввод ? Да Нет'

@ 10,col()-7 get ch FUNCTION '*IHT ;' SIZE 1,3,1

READ cycl

IF ch<>1

DEACTIVATE WINDOW ok_v

CLOSE DATA ALL

EXIT

ENDIF

ENDDO

DEACTIVATE POPUP kor

RETURN

* Процедура поиска записи

PROCEDURE poisk1

DEFINE WINDOW ok FROM 5,10 to 20,70 TITLE 'Поиск записи в БД' COLOR SCHEME 10

ACTIVATE WINDOW ok

n=RECNO()

IF BAR()=1

@ 2,2 SAY 'Введита марку авто'

@ 2,col()+2 GET m.marka DEFAULT SPACE(25)

READ

LOCATE FOR marka=ALLTRIM(m.marka)

ELSE

@ 2,2 SAY 'Введите рег.номер авто'

@ 2,col()+2 GET m.regnomer DEFAULT 0

READ

LOCATE FOR regnomer=m.regnomer

ENDIF

IF EOF()

WAIT 'Не найдено' WINDOW

GO n

ELSE

@ 4,3 SAY 'Марка авто :'

@ 4,col()+1 SAY marka

@ 5,3 SAY 'Модель авто :'

@ 5,col()+1 SAY model

@ 6,3 SAY 'Цвет авто :'

@ 6,col()+1 SAY color

@ 7,3 SAY 'Номер авто :'

@ 7,col()+1 SAY nomer

@ 8,3 SAY 'Рег.номер :'

@ 8,col()+1 SAY regnomer

@ 9,3 SAY 'Номер двигателя:'

@ 9,col()+1 SAY dvigatel

WAIT ''

ENDIF

DEACTIVATE WINDOW ok

RETURN

PROCEDURE _18b16pgbh

RELEASE WINDOW poisk

CLOSE ALL

CANCEL

Прикладной пакет экранных форм программы AutoPark.PRG

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

база данные программа листинг

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Список литературы

1. Вейскас Д, В26 Эффективная работа с Мicrosoft Access 97 - Спб: ЗАО «Издательство Питер»,1999. - 976 с.:ил.

2. Кауфельд Дж., К45 FoxPro для «чайников». - К.: «Диалекика», 1995.- 264 с., ил.

3. Microsoft Excel для Windows 95.Шаг за шагом: Практ. Пособ\Пер. с англ.- М:Издательство ЭКОМ,1997.- 432с.:ил.

1. Селиджтаун.М, В26 «FoxPro 2.5 Практическое пособие» - М: изд. «Москва-Пресс»,1994.-296 с.:ил.; 3-е Издание.

Размещено на Allbest.ru