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

Министерство Образования и Науки Республики Казахстан Кокшетауский государственный университет им. Ш. Уалиханова Институт Экономики Кафедра экономико-математических методов Курсовой проект на тему:

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

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

Кокшетау, 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 Диалоговые окна создания проекта в Visual FoxPro.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

b) c)

Рис.7b, c Диалоговые окна Form Control и 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):

Do form optbase. scx

Код для Command3:

if messagebox («Вы действительно хотите выйти из формы?» , 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. Форма содержит такие текстовые объекты как: «Наименование товара», «Заявитель», «Поставщик» и другие надписи, указывающие с каким полем связан другой объект, или какую команду необходимо выполнить;

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

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

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

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

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

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

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

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

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

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

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

ь Объекты Command Button и Command Group. На форме 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 ()

go top

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 ()

go bottom

endif

_screen. ActiveForm. refresh ()

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

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

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

Browse

_screen. ActiveForm. refresh ()

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

Append blank

_screen. ActiveForm. refresh ()

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

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

delete record (recno ())

pack

endif

_screen. ActiveForm. Refresh ()

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

_screen. ActiveForm. Refresh ()

ь Объект Combo Box. Также, как и объект 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) (т.е. объекты становятся видимыми), лишь в случае выбора опции «Поиск» (об этом подробно будет описано в пункте Объект Option Group). Кода для этих объектов не предусмотрено.

ь Объект Option Group — переключает установленные режимы. На форме два таких объекта: 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). После ввода заявителя и нажатия кнопки «Найти» в основной форме отображается искомая запись (об этом уже было сказано выше).

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

do form " poisk. scx"

goto top

set decimals to 0

set talk off

clear

accept' Введите заявителя ' to t

loca for applier=t

if recno () =reccount () +1

?

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

endif

?

s='1'

do while s! =' '

wait ' Для поиска нажмите пробел, а затем кнопку " Найти" ' to s

enddo

_screen. ActiveForm. release

set talk on

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

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

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

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

do form " poisk. scx"

goto top

set decimals to 0

set talk off

clear

accept' Введите поставщика ' to t

loca for supplier=t

if recno () =reccount () +1

?

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

endif

?

s='1'

do while s! =' '

wait ' Для поиска нажмите пробел, а затем кнопку " Найти" ' to s

enddo

_screen. ActiveForm. release

set talk on

Рис. 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 " Быстрый поиск" - объекты Combo Box

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

Рис. 16 Объект Check Box (поле " Наличие" )

Рис. 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