Навигация
Хансен Гэри, Хансен Джеймс. Базы данных: разработка и управление: Пер. с англ. - М.: ЗАО "Издательство БИНОМ", 1999
16039
знаков
1
таблица
13
изображений
1. Хансен Гэри, Хансен Джеймс. Базы данных: разработка и управление: Пер. с англ. - М.: ЗАО "Издательство БИНОМ", 1999.
2. Живаева А.В., Лимарева И.Г. Методические указания по выполнению курсовой работы по дисциплине "Базы данных", Караганда: КарГТУ, 2006. 17 с.
Приложение А
Листинг программы
Событие Кнопки "Руководство пользователя" главной формы:
Событие Кнопки "О программе" главной формы:
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
Похожие работы
... в легенде. Полный текст программы приведен в приложении Г, а результат работы – на рисунке 4.5.1. Рисунок 4.5.1 – Диаграмма количества товаров. 4.6 Использование модулей (подпрограмм) В языке FoxPro могут использоваться внешние и внутренние процедуры. Внешняя процедура – это совокупность команд, осуществляющих обычно какие-то законченные действия по обработке данных и образующих ...
... ЭВМ. Приложения, созданные с помощью SQL и рассчитанные на однопользовательские системы, по мере своего развития могут быть перенесены в более крупные системы. Информация из корпоративных реляционных баз данных может быть загружена в базы данных отдельных подразделений или в личные базы данных. Наконец, приложения для реляционных баз данных можно вначале смоделировать на экономичных персональных ...
... типов запросов предоставляет иные средства для изменения данных. 3. Microsoft Visual FoxPro 7.0 Visual FoxPro 7.0 представляет собой новую версию широко известной системы управления базами данных (СУБД) Visual FoxPro, которая функционирует в среде Windows и представляет собой полноценное 32-х разрядное приложение. Visual FoxPro является объектно-ориентированным, визуально-программируемым ...
... отнесена весьма условно. В Microsoft Access пользователь может выбрать, какой механизм доступа к данным следует применять: Microsoft Jet - стандартный набор библиотек доступа к данным или MSDE (в этом случае управление базой данных осуществляется с помощью отдельного процесса). Возможно преобразование имеющихся баз данных Access в базу данных MSDE из среды разработки Access. Базы данных MSDE ...
0 комментариев