Информационная система «Оптовая база»


Министерство Образования и Науки Республики Казахстан

Кокшетауский государственный университет им. Ш. Уалиханова

Институт Экономики

Кафедра экономико-математических методов

Курсовой проект на тему:

«Информационная система «Оптовая база»»

По дисциплине: «Базы данных»

Кокшетау, 2005

Содержание

  • 1. Введение
  • 1. Общая характеристика Visual FoxPro
  • 2. Постановка задачи
  • 3. Создание файла базы данных
  • 4. Создание формы
  • 4.1 Форма tit. scx
  • 4.2 Форма optbase. scx
  • 4.3 Форма poisk. scx
  • 5. Заключение
  • Список литературы

1. Введение

Как известно, первоначально компьютер создавался как средство для проведения вычислений, причем, в основном, для научно-технических расчетов (компьютер — вычислитель по-английски). Однако, в настоящее время, 90% ресурсов компьютеров в мире используется в целях хранения и переработки информации, Именно для этого были созданы специально ориентированные комплексы программ, получившие название СистемУправленияБазамиДанных (СУБД).

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

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

История СУБД, пожалуй, начинается с 1982 г., когда фирма Ashton Tale создала СУБД dBase, а затем dBase II, получившее наибольшее распространение в мире, т. к. сочетали относительную простоту использования и многообразие возможностей. Эти СУБД, к тому же, реализованы на компьютерах IBM PC-наиболее популярных в мире.

Дальнейшее совершенствование этих СУБД привело к появлению dBase III, dBase III Plus. FoxBASE+… В настоящее время список СУБД можно продолжать и продолжать. Мы будем рассматривать в данной курсовой работе Visual FoxPro версии 5.0. Она, как и другие СУБД имеет два режима работы: непосредственный (интерактивный), когда команда исполняется сразу же и программный, когда серия команд оформляется в виде цельной программы, записывается на диск и потом многократно может быть использована. Наличие 2 режимов опять-таки позволяет работать в Visual FoxPro и начинающему и достаточно квалифицированному программисту. Заметим, что данная СУБД обладает весьма важным достоинством — в ней возможно активное использование форм, запросов и отчетов. Это позволяет нередко для выполнения рядовых задач обходиться без прямого программирования. Однако выполнение серьезных задач все равно требует умения программировать.

1. Общая характеристика Visual FoxPro

Visual FoxPro 5.0 представляет собой СУБД реляционного типа с развитыми средствами создания БД, организация запросов к ним, построение приложений с использованием визуального, объектно-ориентированного программирования. СУБД Visual FoxPro 5.0 может работать в среде Windows 9x и Windows NT.

В Visual FoxPro реализованы все атрибуты реляционной СУБД. Так, в ней введено понятие базыданных как совокупности связанных таблиц, информация о которых хранится в словареданных. В БД определяются условия её целостности с помощью первичных и внешних ключей таблиц. Все события (изменения), происходящие в БД, могут обнаруживаться и централизованно обрабатываться в связи с появлением в Visual FoxPro таких средств, как триггеры и встроенныепроцедуры.

Visual FoxPro совместима с более ранними версиями FoxPro. Поэтому приложения, разработанные в более ранних версиях FoxPro, могут быть адаптированы с ее помощью в среду Windows 9x. Visual FoxPro обладает высокой скоростью в обслуживании БД.

Используя стандарты ODBC и SQL-запросы для выборки данных, Visual FoxPro позволяет работать с БД СУБД Access, Paradox, dBase и т. д., с серверами БД — Microsoft SQL Server, Oracle и др.

Приложение Visual FoxPro может одновременно работать как с собственными, так и сетевыми таблицами, расположенными на других компьютерах локальной сети.

Поддерживаются такие механизмы работы с приложениями Windows, как:

— Dynamic Data Exchange (DDE) — динамический обмен данными;

— Object Linking and Embedding (OLE) — встраивание и связывание объектов.

база оптовая программный режим

При работе Visual FoxPro 5.0 под управлением Windows 9x к аппаратным ресурсам предъявляются следующие требования:

— IBM — совместимый компьютер с 486 процессором и выше;

— мышь;

— 10 Мб основной памяти;

— 15 Мб дискового пространства для минимальной инсталляции, 100 Мб — для типичной инсталляции и 240 Мб — для максимальной инсталляции;

— монитор VGA или с более высоким разрешением.

С помощью Visual FoxPro можно создавать сетевые приложения, функционирующие в сетях под управлением Microsoft Windows 9x, Windows NT, Microsoft LAN Manager и др.

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

2. Постановка задачи

Создать информационную систему: «Оптовая база».

Файл данных должен содержать не менее десяти записей по следующим полям:

— наименование товара;

— мера измерения;

— количество;

— заявитель товара;

— поставщик;

— наличие;

— цена за единицу.

Разработать форму, с помощью которой можно будет выполнять:

— просмотр;

— дополнение на одну запись;

— удаление записи;

— корректировку записи;

— поиск по конкретному заявителю товара;

— поиск по конкретному поставщику.

3. Создание файла базы данных

Значительно удобнее создавать базы данных с помощью визуальных средств, имеющихся в Visual FoxPro.

Все элементы: экраны, отчеты, запросы, меню и другие можно объединить в единое целое, называемое проектом.

Проект служит для управления элементами в процессе создания приложения. Создав проект и задав файлы, которые должны в него войти, можно использовать этот проект для сборки приложения (. APP) или исполняемого файла (если у Вас есть пакет FoxPro Distribution Kit).

Для того, чтобы создать проект необходимо проделать следующие шаги:

1. Дать команду File/New и в открывшемся окне переключиться на Project и выбрать кнопку New File (рис.1).

Рис.1ДиалоговыеокнасозданияпроектавVisualFoxPro.

2. В окне диалога Create выбрать папку для сохранения проекта и задать имя проекта (в данном случае проект назван Wholesale).

3. В очередном окне конструктора баз данных перейти на вкладку Data, выбрать Free Table и щелкнуть по кнопке New, при этом откроется окно New Table и там можно выбрать мастера (Table Wizard), либо создание с помощью конструктора таблиц (New Table) (рис. 2).

Рис.2ДиалоговыеокнасозданиятаблицывVisualFoxPro.

4. Выберем создание таблицы с помощью конструктора таблиц. Щелкнув на кнопке New Table, появится окно, в котором необходимо задать имя таблицы и сохранить ее (назовем нашу таблицу opt_base) (рис. 3).

Рис.3Диалоговоеокносохранениятаблицы.

5. В окне конструктора (Table Designer) необходимо ввести структуру создаваемой таблицы (рис. 4).

Рис.4Диалоговоеокносозданияструктурытаблицы.

Как видно из рисунка 4, структура нашей таблицы включает следующие поля:

Таблица 1. Структура таблицыopt_base. dbf

Название поля

Тип поля

Размер

Пояснение

Title

Character

35

Наименование товара

Measure

Character

3

Мера измерения

Quantity

Integer

4

Количество

Applier

Character

35

Заявитель товара

Supplier

Character

35

Поставщик

Available

Logical

Наличие

Price

Numeric

8 (2)

Цена за единицу

6. По окончании ввода структуры таблицы следует нажать ОК. Появится запрос: InputDatarecordsnow? (Yes/No). Если ответить Yes — появится созданная форма для ввода значений полей первой записи (рис.5).

Рис.5Окнодлязаполненияданныхтаблицы.

Заполним нашу таблицу следующими данными:

Таблица 2. Данные, которые вносятся в базу данных.

Наименование

товара

Мера

Кол-во

Заявитель

Поставщик

Наличие

Цена

Майонез «Три желания», 250 г.

шт.

200

Магазин «Коктем»

АО «Алматинский маргариновый завод»

Т

50

Маргарин «Три желания», 200 г.

шт.

100

Кондитерская «Али Баба»

АО «Алматинский маргариновый завод»

F

30

Кетчуп «Три желания», 250 г.

шт.

250

Магазин «Космос»

АО «Алматинский маргариновый завод»

Т

60

Горчица «Три желания», 130 г.

шт.

170

Магазин «Салтанат»

АО «Алматинский маргариновый завод»

Т

19

Минеральная вода «Свежесть», 1.5 л

шт.

300

Магазин «Грифон»

КокшетауМинВоды

Т

34

Минеральная вода «Кулагер», 1.5 л

шт.

400

Магазин «Достык»

КокшетауМинВоды

F

34

Томатная паста, 1000 г.

шт.

20

Столовая «Наурыз»

Компания «Маслодел»

Т

118

Консервированный горошек, 300 г.

шт.

35

Кафе «Радуга»

ООО «Промконсервы»

Т

25

Консервированная кукуруза, 400 г.

шт

50

Ресторан «Огни Кокшетау»

АО «Бондюэль»

Т

100

Подсолнечное масло «Иртыш», 1 л

шт

40

Кафе «Апельсин»

АО «Vita»

Т

147

После того, как создана таблица и заполнена необходимыми данными, создадим форму для работы с базой данных.

4. Создание формы

Любая форма в Visual FoxPro состоит из объектов формы, которые имеют характерные для них свойства. Для каждого объекта можно определить действия, выполняемые при наступлении определенных событий. Процесс создания формы состоит в размещении объектов на форме и определении для них свойств, связанных с ними событий и выполняемых действий.

Для создания формы откроем существующий проект Wholesale, который уже содержит созданную ранее таблицу Opt_base. Перейдя на вкладку Documents, выберем опцию Form и нажмем кнопку New (рис. 6). Появится окно New Form, в котором следует нажать кнопку New File (для создания формы с помощью конструктора).

Рис.6Диалоговыеокнасозданияформы.

После описанных выше шагов появится конструктор форм (рис. 7a) с панелью инструментов Form Control (рис. 7b) и окном для задания свойств объектов Properties (рис. 7c).

Рис.7aДиалоговоеокноFormDesigner (конструкторформ).

b) c)

Рис.7b,cДиалоговыеокнаFormControlиProperties

Итак, для данного курсового проекта создадим три формы:

1. tit. scx — титульный лист. Данная форма — оформлением, и, в принципе является не обязательной, так как не выполняет никаких конкретных действий направленных на работу с базой данных.

2. optbase. scx — основная форма, в которой производятся все операции над базой данных (просмотр, редактирование, дополнение, удаление, поиск).

3. poisk. scx — форма для поиска.

4.1 Форма tit. scx

Как уже было сказано ранее, эта форма является оформлением курсового проекта и не выполняет никаких событий для базы данных.

Форма tit. scx имеет необычный фон, который можно изменить в окне для задания свойств Properties. Для этого нужно выбрать вкладку Layout, и затем пункт Picture, нажав на кнопку, указать путь к папке, где хранится рисунок, который используется как фон данной формы.

Также, на этой форме расположены три кнопки, для которых в пункте Style (вкладка Layout) выбрано свойство 1-Invisible. Рисунок фона содержит три надписи: Курсовой проект, «Оптовая база» и г. Кокшетау, 2005. Кнопки Command1, Command2 и Command3 расположены на этих надписях соответственно. Так как мы установили стиль кнопок Invisible, при запуске формы они невидимы (рис.8). Таким образом, при щелчке на определенную надпись, происходит то или иное действие.

Рис8. Видформыtit. scxвокнеконструктораформ.

При щелчке на надпись Курсовойпроект появляется сообщение вида:

Рис.9ЩелчокнанадписиКурсовойпроект.

Под этой надписью скрывается кнопка Command1. Код для данной кнопки (процедура Click):

messagebox (‘Курсовойпроектподисциплине «Базыданных»,разработалаКлючниковаО.С., КГУим.Ш. Уалиханова’,0+0+256,’Курсовойпроект’)

При щелчке на надпись «Оптоваябаза» открывается основная форма optbase. scx (создание которой мы рассмотрим немного позже).

Код для процедуры обработки события Click (Command2):

Doformoptbase. scx

Код для Command3:

ifmessagebox («Выдействительнохотитевыйтиизформы?», 4+32+256, «ВЫХОД») =6

_screen. ActiveForm. Release ()

else

_screen. ActiveForm. Refresh ()

endif

При щелчке на надпись «г. Кокшетау,2005″ появляется сообщение о выходе вида:

Рис.10Щелчокнанадписиг. Кокшетау,2005

При запуске (команда Run) форма выглядит следующим образом:

Рис.11Формаtit. scxпослезапуска.

4.2 Форма optbase. scx

Форма optbase. scx является основной формой. С помощью этой формы можно выполнять такие операции над базой данных как просмотр, корректировка, добавление на одну запись, удаление записи, поиск по конкретному полю.

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

Рис.12Формаoptbase. scxвокнеконструктора.

Итак, разместим на форме optbase. scx такие объекты:

а) Label — текстовый объект, который чаще всего служит для какого-либо пояснения или в качестве надписи;

б) Text Box — поле ввода, этот объект динамически связан с файлом данных, то есть, изменение в базе приведет к изменению значения Text (и наоборот). С помощью этого поля можно просмотреть текущую запись и при необходимости произвести изменения;

в) Command Button и Command Group — кнопка и группа кнопок, эти объекты предназначены для вызова какого-либо события (например, процедура Click вызывает определенное событие связанное с этой кнопкой при ее нажатии);

г) Combo Box — поле ввода со списком, этот объект также как и Text Box динамически связан с базой, отличается лишь тем, что имеет выпадающий список значений поля, с которым он связан;

д) Option Group — переключатель;

е) Check Box — флажок;

ж) Select Object — не является каким-то определенным объектом, это указатель выделения, он присутствует в каждой форме по умолчанию.

Это все объекты, размещенные в нашей форме, но в Visual FoxPro существуют и другие объекты на панели инструментов Form Control: View Classes — выбирает класс для создания объектов в форме; Edit Box — поле редактирования; Grid — таблица; List Box — список; Spinner — поле ввода значения; Line — линия; Shape — контур; Container — контейнер; Image — рисунок; Timer — таймер; Page Frame — страница; OLE Bound Control — отображает содержимое OLE-объекта, хранящегося в поле типа General; OLE Container Control — создает OLE-объект; Separator — создает разделитель-объект, формирующий промежутки между элементами управления на панели инструментов; Builder Lock — закрепляет выбор построителя; Button Lock — закрепляет выбранную кнопку на панели инструментов.

Рассмотрим подробнее все объекты, размещенные на форме optbase. scx.

ь Объект Label. Форма содержит такие текстовые объекты как: «Наименование товара», «Заявитель», «Поставщик» и другие надписи, указывающие с каким полем связан другой объект, или какую команду необходимо выполнить;

ь Объект TextBox. В поле объекта TextBox отображается текущая запись (как уже было сказано выше, объект TextBox динамически связан с таблицей opt_base. dbf).

Связку можно осуществить двумя способами:

1. Щелкнуть правой кнопкой манипулятора «мышь» на объекте, который необходимо связать, в появившемся меню выбрать пункт Builder. Появится окно Text Box Builder, в этом окне перейти на вкладку Value, щелкнуть на кнопку, в появившемся окне открытия таблицы Open выбрать таблицу (выбираем opt_base. dbf), и в появившемся списке Field Name выбрать необходимое поле.

2. Выделить связываемый объект, в окне свойств Properties перейти на вкладку Data, щелкнуть пункт ControlSource и выбрать необходимое поле.

На форме optbase. scx объекты TextBox отображают следующие поля таблицы opt_base. dbf:

Text1 — Наименование товара (optbase. title);

Text2 — Цена товара (optbase. price);

Text3 — Мера измерения (optbase. measure);

Text4 — Количество (optbase. quantity);

Text5 — Поставщик (optbase. supplier);

Text6 — Заявитель (optbase. applier).

ь Объекты CommandButton и CommandGroup. На форме optbase. scx размещены один объект Command Button и один объект Command Group, который содержит восемь объектов Command Button.

Рассмотрим все эти объекты и их коды (процедуры, которые выполняются при щелчке на эти объекты-кнопки, точнее при отпускании кнопки «мыши»).

Command1 — при щелчке на эту кнопку осуществляется выход из формы. На этой кнопке нет надписи, но есть опознавательная картинка (дверь) (рис.13a). Чтобы установить картинку на объект, необходимо в окне свойств Properties на вкладке Layout в пункте Picture указать путь к папке, в которой находиться необходимая картинка.

Код для процедуры обработки события Click (Command1):

_Screen. ActiveForm. Release ()

При выполнении данной процедуры не появляется запрос о выходе, форма просто закрывается и активной становится форма tit. scx, при выходе из которой такой запрос появляется (об этом было подробно указано в пункте «Форма tit. scx»).

a) b)

Рис.13ОбъектыCommand1иCommandgroup1

Command Group — здесь кнопки объединены в один объект, но в работе каждая выполняет свою определенную функцию не зависящую от других кнопок в этом объекте (рис.13b).

Кнопки Commandgroup1.command1 — Commandgroup1.command4 выполняют переход по записям (они, также как и кнопка «Выход», не содержат надписей, а имеют картинки-указатели). Картинки на этих кнопках можно установить, либо как было описано в случае кнопки «Выход», либо, щелкнув правой кнопкой «мыши» на объекте Commandgroup1. В появившемся меню выбрать Builder и в окне Command Group Builder на вкладке Buttons в поле Graphics указать путь к картинке, или, если необходимо, в поле Caption название кнопки (рис.13b).

Код для Commandgroup1.command1 — кнопка «Первая»:

if! bof ()

gotop

endif

_screen. ActiveForm. refresh ()

При щелчке на эту кнопку в полях объектов Text Box отображается первая запись файла данных.

Код для объекта Commandgroup1.command2 — кнопка «Следующая»:

if! bof ()

skip

endif

_screen. ActiveForm. refresh ()

При щелчке на эту кнопку в полях объектов Text Box отображается следующая за текущей запись файла данных.

Код для объекта Commandgroup1.command3 — кнопка «Предыдущая»:

if! bof ()

skip — 1

endif

_screen. ActiveForm. refresh ()

При щелчке на эту кнопку в полях объектов Text Box отображается запись предшествующая текущей записи файла данных.

Код для объекта Commandgroup1.command4 — кнопка «Последняя»:

if! bof ()

gobottom

endif

_screen. ActiveForm. refresh ()

При щелчке на эту кнопку в полях объектов Text Box отображается последняя запись файла данных.

Commandgroup1.command5 — кнопка «Просмотр». Позволяет просмотреть файл данных в виде таблицы.

Код для этой кнопки:

Browse

_screen. ActiveForm. refresh ()

Commandgroup1.command6 — кнопка «Добавить». Добавляет на одну запись. Код для нее:

Appendblank

_screen. ActiveForm. refresh ()

Commandgroup1.command7 — кнопка «Удалить». Удаляет текущую запись. Код:

ifmessagebox («Выдействительнохотитеудалитьэтузапись?», 4+32+256,»Удаление») =6

deleterecord (recno ())

pack

endif

_screen. ActiveForm. Refresh ()

Commandgroup1.command8 — кнопка «Найти». Находит указанную запись (о поиске подробнее будет сказано ниже). Код для этой кнопки:

_screen. ActiveForm. Refresh ()

ь Объект ComboBox. Также, как и объект Text Box, динамически связывается с файлом данных, связывание производится аналогичным способом. Отличием является то, что в поле объекта Text Box отображается лишь одна (текущая) запись, а в поле объекта Combo Box отображается все связанное с ним поле. Причем, если в поле объекта Combo Box выбрать какое-либо значение, то в поле объекта Text Box, также появится эта запись (станет текущей).

На форме optbase. scx расположены два объекта Combo Box: Combo1 и Combo2, которые связаны с полями opt_base. applier («Заявитель») и opt_base. supplier («Поставщик») соответственно.

Изначально, у этих объектов в окне свойств Properties на вкладке Layout изменено свойство Visible (Видимость) на. F. (False), то есть при запуске формы объектов Combo1 и Combo2 не видно, свойству Visible присваивается значение. T. (True) (т. е. объекты становятся видимыми), лишь в случае выбора опции «Поиск» (об этом подробно будет описано в пункте Объект OptionGroup). Кода для этих объектов не предусмотрено.

ь Объект OptionGroup — переключает установленные режимы. На форме два таких объекта: Optiongroup1 является основным переключателем режимов просмотра, редактирования и поиска, и Optiongroup2 — появляется при выборе режима поиска.

Optiongroup1 включает в себя три пункта (опции): Option1, Option2 и Option3 (рис.14a).

Option1. Режим просмотра. Если выбрана эта опция, то пользователь сможет только просмотреть все записи (в окне формы и в табличном виде), но не сможет редактировать, добавлять, удалять записи или использовать систему поиска.

Код для процедуры обработки события Click:

thisform. text1. readonly=. t.

thisform. text2. readonly=. t.

thisform. text3. readonly=. t.

thisform. text4. readonly=. t.

thisform. text5. readonly=. t.

thisform. text6. readonly=. t.

thisform. check1. enabled=. f.

thisform. label8. visible=. f.

thisform. label9. visible=. f.

thisform. label10. visible=. f.

thisform.combo1. visible=. f.

thisform.combo2. visible=. f.

thisform.commandgroup1.command6. enabled=. f.

thisform.commandgroup1.command7. enabled=. f.

thisform.commandgroup1.command8. enabled=. f.

thisform. optiongroup2. visible=. f.

_screen. activeForm. refresh ()

Как видно из этих команд, при выборе опции «Поиск» объекты Text1, Text2, Text3, Text4, Text5,Text6 и Check1 становятся доступны только для чтения (свойство Readonly), а Label8, Label9, Label10, combo1, combo2 и optiongroup2 — не видимы, также блокируются кнопки «Добавить», «Удалить» и «Найти» (то есть воспользоваться ими в таком режиме невозможно).

Option2. Режим редактирования. При таком выборе помимо просмотра можно добавлять и удалять записи, а также их редактировать.

Код процедуры:

thisform. text1. readonly=. f.

thisform. text2. readonly=. f.

thisform. text3. readonly=. f.

thisform. text4. readonly=. f.

thisform. text5. readonly=. f.

thisform. text6. readonly=. f.

thisform. check1. enabled=. t.

thisform. label8. visible=. f.

thisform. label9. visible=. f.

thisform. label10. visible=. f.

thisform.combo1. visible=. f.

thisform.combo2. visible=. f.

thisform.commandgroup1.command6. enabled=. t.

thisform.commandgroup1.command7. enabled=. t.

thisform.commandgroup1.command8. enabled=. f.

thisform. optiongroup2. visible=. f.

_screen. activeForm. refresh ()

Доступные только для чтения в предыдущем коде объекты Text1-Text6, Check1 в этой процедуре уже могут изменять свое значение в зависимости от выбора пользователя. Также можно заметить, что объекты Label8-10, Combo1,2 и Optiongroup2 остались невидимы и кнопкой «Найти» также нельзя воспользоваться. Это говорит о том, что в режиме редактирования (также как и в режиме просмотра) поиск записей невозможен.

Option3. Режим поиска. При выборе опции «Поиск» появляется еще одна группа опций, в которой можно выбрать ту систему поиска, которой вам необходимо воспользоваться. Выбрав поиск по заявителю или поставщику, появляется еще одна форма с запросом вида: «Введите заявителя (поставщика)» (рис.15a, b). После того как введен заявитель (или поставщик) требуется нажать «пробел» и затем кнопку «Найти» (которая теперь уже активна). После этого в окне формы optbase. scx отображается та запись, которую вы указывали в запросе поиска.

Выбрав «Быстрый поиск» появляются объекты Combo Box. Здесь в выпадающем списке из предложенных вариантов можно выбрать, тот который вам требуется. Затем также как и в первом поиске нажать кнопку «Найти» и текущей установится искомая запись.

Код для процедуры обработки события Click:

thisform. text1. readonly=. t.

thisform. text2. readonly=. t.

thisform. text3. readonly=. t.

thisform. text4. readonly=. t.

thisform. text5. readonly=. t.

thisform. text6. readonly=. t.

thisform. check1. enabled=. f.

thisform. label8. visible=. f.

thisform. label9. visible=. f.

thisform. label10. visible=. f.

thisform.combo1. visible=. f.

thisform.combo2. visible=. f.

thisform. optiongroup2. visible=. t.

thisform.commandgroup1.command6. enabled=. f.

thisform.commandgroup1.command7. enabled=. f.

thisform.commandgroup1.command8. enabled=. t.

В этом режиме редактирование невозможно (возможен только просмотр): кнопки «Удалить» и «Добавить» неактивны. Но здесь становится активной кнопка «Найти». При выборе этого режима объекту Optiongroup2 в свойстве Visible присваивается значение. t. (true), то есть объект становится видимым.

a) b)

Рис.14ОбъектыOptiongroup1иOptiongroup2

Optiongroup2 также как и Optiongroup1 содержит три опции. Этот объект является, так называемой, системой поиска (рис.14b).

Option1 «Поиск по заявителю». При выборе данной опции появляется форма poisk. scx с запросом о вводе заявителя (рис.15a). После ввода заявителя и нажатия кнопки «Найти» в основной форме отображается искомая запись (об этом уже было сказано выше).

Код для данной процедуры:

doform «poisk. scx»

gototop

setdecimalsto0

settalkoff

clear

accept’Введитезаявителя’tot

locaforapplier=t

ifrecno () =reccount () +1

?

? t,’Данныйзаявительотсутствует’

endif

?

s=’1′

dowhiles! =»

wait’Дляпоисканажмитепробел,азатемкнопку «Найти»‘tos

enddo

_screen. ActiveForm. release

settalkon

Из этой программы видно, что при выборе опции «Поиск по заявителю» активизируется форма poisk. scx, в поле которой высвечивается запрос «Введите заявителя». Если введенный заявитель отсутствует, то появляется сообщение «Данный заявитель отсутствует». Если же заявитель введен верно, вам предлагается нажать «пробел», после чего форма poisk. scx закрывается, затем щелкнуть по кнопке «Найти» и искомый заявитель отобразится в поле формы optbase. scx.

Рис.15aФормаpoisk. scx «Поискпозаявителю» призапуске

Option2 «Поиск по поставщику». Данная опция практически полностью аналогична опции «Поиск по заявителю». Отличием является лишь то, что в форме poisk. scx появляется запрос о поиске поставщика (рис. 15b).

Код этой процедуры также схож с предыдущей процедурой, за исключением некоторых отличий (здесь поиск осуществляется по поставщику):

doform «poisk. scx»

gototop

setdecimalsto0

settalkoff

clear

accept’Введитепоставщика’tot

locaforsupplier=t

ifrecno () =reccount () +1

?

? t,’Данныйпоставщикотсутствует’

endif

?

s=’1′

dowhiles! =»

wait’Дляпоисканажмитепробел,азатемкнопку «Найти»‘tos

enddo

_screen. ActiveForm. release

settalkon

Рис.15bФормаpoisk. scx «Поискпопоставщику» призапуске

Option3 «Быстрый поиск». После выбора этой опции появляется предложение выбрать заявителя или поставщика и, собственно, объекты Combo1 и Combo2, в списке которых можно выбрать необходимого поставщика или заявителя (об этом поиске уже было сказано выше) (рис.15c).

Код процедуры:

thisform. label8. visible=. t.

thisform. label9. visible=. t.

thisform. label10. visible=. t.

thisform.combo1. visible=. t.

thisform.combo2. visible=. t.

thisform. optiongroup2. visible=. f.

Здесь понятно, что становятся видимыми объекты Label8, Label9, label10, Combo1 и Combo2, а объект optiongroup2 — невидимым.

Рис.15c «Быстрыйпоиск» — объектыComboBox

ь Объект Check Box — «флажок». На форме отображает значение поля opt_base. available, то есть этот объект динамически связан с полем «Наличие». Значения ранее рассмотренных полей отображались поле объекта Text Box, но в данном случае не обязательно устанавливать объект Text Box, так как атрибуту available (наличие) присваивается лишь два значения: либо товар есть — значение true, либо его нет — значение false (рис. 16)

Рис. 16 Объект CheckBox (поле «Наличие»)

Рис.17Видформыoptbase. scxпризапуске.

4.3 Форма poisk. scx

Форма poisk. scx является вспомогательной формой. Она появляется лишь при поиске и сама по себе не содержит никаких объектов и процедур. Единственное, что здесь можно отметить, так это то, что в свойстве Caption в окне Properties на вкладке Layout установлено «Поиск» — это слово отображается в заголовке окна формы (рис.17).

Надо заметить, что в предыдущих формах это свойство также изменено: у формы tit. scx — «Курсовой проект «Оптовая база»», а у формы optbase. scx — «Оптовая база».

Рис.18Формаpoisk. scx

5. Заключение

Цель данного курсового проекта состояла в том, чтобы изучить основы работы с СУБД Visual FoxPro, а именно: научиться работать с таблицами, базами данных, разрабатывать проекты, формы и т. п.

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

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

Форма проста в обращении и с ней может работать практически каждый пользователь, даже тот, который не имеет навыков работы с системами управления базами данных (в частности с СУБД Visual FoxPro). Это является немаловажным преимуществом системы, т. к. она не требует больших затрат на обучение рабочего персонала.

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

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

1. В. Н. Кирнос — «Основы работы с базами данных в СУБД Visual FoxPro. Часть 1. Элементы программирования», Кокшетау, 2003

2. В. Н. Кирнос — «Основы работы с базами данных в СУБД Visual FoxPro. Часть 2. Формы, запросы, отчеты …», Кокшетау, 2003

3. В. Н. Кирнос — «Основы использования языка сируктурированных запросов SQL», Кокшетау, 2003

Если вы думаете скопировать часть этой работы в свою, то имейте ввиду, что этим вы только снизите уникальность своей работы! Если вы хотите получить уникальную курсовую работу, то вам нужно либо написать её своими словами, либо заказать её написание опытному автору:
УЗНАТЬ СТОИМОСТЬ ИЛИ ЗАКАЗАТЬ »