Автор работы: Пользователь скрыл имя, 26 Апреля 2013 в 10:42, курсовая работа
Целью выполнения курсовой работы является приобретение студентами практических навыков проектирования баз данных и разработки программного обеспечения по управлению базами данных с использованием СУБД.
В задачи курсовой работы по дисциплине "Базы данных и знаний" входят:
1. Разработка структуры баз данных.
2. Работа с несколькими таблицами и установление взаимосвязей между таблицами.
Аннотация
Введение
1 Содержательная постановка задачи
2. Формализованная постановка задачи
3. Структура входной, хранимой и выходной информации
4. Структура программы, структура диалога, формы
5. Результаты работы программы
6. Руководство пользователя по работе с программой "Товары-почтой"
Заключение
Список использованных источников
Приложение А
DO FORM "C: \Program Files\DB\about"
Событие Кнопки "Выход" главного меню
if messagebox ('Вы подтверждаете выход из программы? ', 4+32+256,"Выйти") =6 then
_screen. activeform. release ()
set sysmenu to default
endif
События кнопок навигации форм "Заказы", "Поставщик", "Товар", "Жанры игр" очень схожи и различие между ними только из-за различия в количестве используемых объектов на форме. Приведу пример из формы "Товар"
Кнопка "Первая"
if! bof ()
go top
this. enabled =. f.
thisform.command1. enabled =. t.
thisform.command2. enabled =. f.
thisform.command4. enabled =. t.
endif
_screen. activeform. refresh ()
Кнопка "Пред."
if! bof ()
skip-1
thisform.command3. enabled =. t.
thisform.command1. enabled =. t.
thisform.command4. enabled =. t.
endif
_screen. activeform. refresh ()
if bof ()
this. enabled =. f.
thisform.command3. enabled =. f.
endif
_screen. activeform. refresh ()
Кнопка "След."
if! eof ()
skip
thisform.command2. enabled =. t.
thisform.command3. enabled =. t.
thisform.command4. enabled =. t.
endif
_screen. activeform. refresh ()
if eof ()
this. enabled =. f.
thisform.command4. enabled =. f.
endif
_screen. activeform. refresh ()
Кнопка "Посл."
if! eof ()
go bottom
this. enabled =. f.
thisform.command1. enabled =. f.
thisform.command2. enabled =. t.
thisform.command3. enabled =. t.
endif
_screen. activeform. refresh ()
Кнопка "Удалить"
DELETE
pack
_screen. activeform. refresh ()
Кнопка "Изменить"
IF thisform.command8. Caption = "Изменить"
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.combo1. ReadOnly =. F.
thisform.command2. Enabled =. F.
thisform.command1. Enabled =. F.
thisform.command3. Enabled =. F.
thisform.command4. Enabled =. F.
thisform.command5. Enabled =. F.
thisform.command7. Enabled =. F.
thisform.command9. Enabled =. T.
thisform.command8. Caption = "Принять"
ELSE
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.combo1. ReadOnly =. T.
thisform.command2. Enabled =. T.
thisform.command1. Enabled =. T.
thisform.command3. Enabled =. T.
thisform.command4. Enabled =. T.
thisform.command5. Enabled =. T.
thisform.command7. Enabled =. T.
thisform.command9. Enabled =. F.
thisform.command8. Caption = "Изменить"
endIF
Кнопка "Добавить"
IF thisform.command5. Caption = "Добавить"
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.combo1. ReadOnly =. F.
thisform.command2. Enabled =. F.
thisform.command1. Enabled =. F.
thisform.command3. Enabled =. F.
thisform.command4. Enabled =. F.
thisform.command8. Enabled =. F.
thisform.command7. Enabled =. F.
thisform.command9. Enabled =. T.
APPEND BLANK
thisform.command5. Caption = "Принять"
ELSE
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.combo1. ReadOnly =. T.
thisform.command2. Enabled =. T.
thisform.command1. Enabled =. T.
thisform.command3. Enabled =. T.
thisform.command4. Enabled =. T.
thisform.command8. Enabled =. T.
thisform.command7. Enabled =. T.
thisform.command9. Enabled =. F.
thisform.command5. Caption = "Добавить"
endIF
_screen. ActiveForm. Refresh ()
Кнопка "Выход"
if messagebox ('Вы подтверждаете выход из формы? ', 4+32+256,"Выход") =6 then
_screen. activeform. release ()
DO FORM "C: \Program Files\DB\main"
endif
Информация о работе Создание и управление базой данных в СУБД FoxPro