Определение объемов заработка и выпуска продукции
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ыми. Если свойства объектов зависят от связей с другими объектами, то называются реляционными.[4]
Цель инфологического моделирования - создать точное и полное отображение реального мира, используемое в дальнейшим в качестве источника информации для построения БД.
Для инфологической модели используют как аналитические, так и графические способы ее представления.[2]
. Разработка датологической модели
Модель данных логического уровня, поддерживаемую средствами СУБД, называют датологической моделью. Эта модель представляет собой отображение логических связей между элементами данных безотносительно к их содержанию и среде хранения. Датологическая модель строится с учетом ограничений конкретной СУБД.
При построение датологической модели учитываются особенности отображаемой предметной области. БД предполагает интегрированное и взаимосвязанное хранение данных, поэтому для проектирования датологической модели необходимо иметь соответствующее описание предметной области. Описание предметной области, выполненное без ориентации на используемые в дальнейшем программные и технические средства, называется инфологической моделью предметной области. Иногда к инфологической модели относят и описание характера информационных потребностей пользователей. [2]
Инфологическая модель предметной области является исходной по отношению к датологической модели БД.
Для привязывания датологической модели в среде хранения данных используется модель данных физического уровня. Эта модель определяет используемое запоминающее устройство, способ представления данных в среде хранения. Модель физического уровня строится также с учетом возможности предоставленных СУБД. [4]
7. Инфологическая модель данных
Датологическая модель
1 БД -DET-ДЕТАЛЬ
имятипразмерностькомментарийTAB DATE SHIFR VIRAB NAME CENAN D N N C N3 8 3 2 10 5ТАБЕЛЬНЫЙ НОМЕР РАБОЧЕГО ДАТА ШИФР ДЕТАЛИ ВЫРАБОТКА НАИМЕНОВАНИЕ ЦЕНА ДЕТАЛИ
2 БД- RAB-РАБОЧИЙ
имятипразмерностькомментарийТАВ FIO VIRAB NAL DETI NACHISN C N N N N3 25 2 5 2 5ТАБЕЛЬНЫЙ НОМЕ РАБОЧЕГО ФИО РАБОЧЕГО ВЫРАБОТКА НАЛОГ КОЛИЧЕСТВО ДЕТЕЙ СУММА НАЧИСЛЕНИЯ
3 БД -NAL-НАЛОГ
имятипразмерностькомментарийPODOH MED B.NALN N N3 3 3ПОДОХОДНЫЙ НАЛОГ МЕДИЦИНСКИЙ НАЛОГ НАЛОГ ЗА БЕЗДЕТНОСТЬ
4 БД -NACHIS-НАЧИСЛЕНИЕ
имятипразмерностькомментарийТАВ MES CHISLON C N3 8 2ТАБЕЛЬНЫЙ НОМЕР РАБОЧЕГО МЕСЯЦ НАЧИСЛЕНИЯ ЧИСЛО НАЧИСЛЕНИЯ
Текст программы
**Программа осуществляет вывод титульного листа в окне.
*******************************************************
** PROCEDURE AR_PRGWINDOW ARMENU menu0curs off
@ 1,13 say 'ДАГЕСТАНСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ'
@ 3,3 say 'The program was executed by the student of the 3-rd rate'
@ 4,11 say 'Факультет информационных систем'
@ 5,9 say 'Специальность информационные системы в экономике '
@ 6,23 say ' 3912 группа'
@ 7,18 say 'Абдуллаева Эльнара'
@ 11,26 say 'WARNING!' COLOR g+/r
@ 12,10 say 'Coping of givenned program is PROSHIBITED' COLOR b/rcurs onWINDOW ARMENU menu0
return
****************************************
КУРСОВАЯ
*Определение объемов зароботка и выпуска продукции
*Структура БД AUDI: дата,шифр детали,выработка,
*наименование,расценка(за1 деталь),
*Структура БД AUDI2: табельный номер,фамилия,выработка,
*налог,к-во детей,начисленно
*Форма документов:
*Ведомость
set date germantalk offdeleted onescape onhelp onnear onmacrosdatakeyc:\arsen\audi.dbfmenu manu shadPAD zagr OF manu PROMPT '\<ЗАГРУЗИТЬ'PAD dan OF manu PROMPT '\<ДАННЫЕ'PAD poisk OF manu PROMPT '\<ПОИСК'PAD print OF manu PROMPT '\<ПЕЧАТЬ'PAD konec OF manu PROMPT '\<ВЫХОД'PAD zagr OF manu ACTIVATE POPUP zagryPAD dan OF manu ACTIVATE POPUP dannPAD poisk OF manu ACTIVATE POPUP poiskiSELECTION PAD print OF manu DO printeSELECTION PAD konec OF manu CANCELPOPUP zagryBAR 1 OF zagry PROMPT'\<ВЕДОМОСТЬ по З/П'BAR 2 OF zagry PROMPT'\<ВЫПУСК ДЕТАЛЕЙ'
*DEFINE BAR 3 OF zagry PROMPT'\<ОТКРЫТИЕ ФАЙЛА'BAR 1 OF zagry ACTIVATE POPUP mesBAR 2 OF zagry DO period
* ON BAR 3 OF zagry DOPOPUP dann SHADBAR 1 OF dann PROMPT'\<ДОПОЛНЕНИЕ'KEY Ctrl+N,'^N'BAR 2 OF dann PROMPT'\<КОРРЕКЦИЯ 'BAR 3 OF dann PROMPT'\<УДАЛЕНИЕ'KEY Ctrl+T,'^T'
*DEFINE BAR 4 OF dann PROMPT'\<СОХРАНЕНИЕ'
*DEFINE BAR 5 OF dann PROMPT'\<ОЧИСТКА БД'BAR 1 OF dann DO dopolBAR 2 OF dann ACTIVATE POPUP korekBAR 3 OF dann DO deleted
* ON BAR 4 OF dann DO
* ON BAR 5 OF dann DOwindow poisk shado from 8,45 to 10,73 title'Укажите ключ'zoom grow float system close color schem(2)window wipysk shado from 6,2 to 10,77 title'Выпуск деталей'zoom grow float system close color schem(3)window of memo to wipyskwindow f1 shado from 1,1 to 12,50 title'Выход-любая клавиша'zoom grow float system close color schem(3)popup poisk from 5,14 title'Выбор критерия поиска'key F3 shadowbar 1 of poisk prompt'По таб номеру'bar 2 of poisk prompt'По дате'bar 3 of poisk prompt'По шифру детали'bar 4 of poisk prompt'По выработке'
define bar 5 of poisk prompt'По ФИО'bar 6 of poisk prompt'По наименованию'bar 7 of poisk prompt'По расценке'selection popup poisk do poiskmenu manuPOPUP mes SHADBAR 1 OF mes PROMPT'\<ЯНВАРЬ 'BAR 2 OF mes PROMPT'\<ФЕВРАЛЬ 'BAR 3 OF mes PROMPT'\<МАРТ 'BAR 4 OF mes PROMPT'\<АПРЕЛЬ 'BAR 5 OF mes PROMPT'\<МАЙ 'BAR 6 OF mes PROMPT'\<ИЮНЬ 'BAR 7 OF mes PROMPT'\<ИЮЛЬ 'BAR 8 OF mes PROMPT'\<АВГУСТ 'BAR 9 OF mes PROMPT'\<СЕНТЯБРЬ 'BAR 10 OF mes PROMPT'\<ОКТЯБРЬ 'BAR 11 OF mes PROMPT'\<НОЯБРЬ 'BAR 12 OF mes PROMPT'\<ДЕКАБРЬ 'SELECTION POPUP mes DO mes1mes1
*PUSH KEY CLEAR
* nt=RECNO()
* str =' 'CASEPROMPT()='ЯНВАРЬ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=01 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='ФЕВРАЛЬ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=02 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='МАРТ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=03 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='АПРЕЛЬ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=04 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='МАЙ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SC