Бағдарламалау аймағын таңдау және негіздеу

КІРІСПЕ
1. ПӘН АЙМАҒЫНЫҢ СИПАТТАМАСЫ
1.1 Пән аймағының мінездемесі
1.2 Информациялық жүйе түсінігі
2. БАҒДАРЛАМАЛАУ АЙМАҒЫН ТАҢДАУ ЖӘНЕ НЕГІЗДЕУ
2.1 Объекті.қалыптамалы бағдарламалауға кіріспе (ОҚБ)
2.2 DELPHI визуалдық бағдарламалау ортасы
2.3 Оқиғалар мен оқиғаларды өндеушілер
2.4 DELPHI бағдарламаларының құрылымы
2.5 Мәліметтер қорымен жұмыс істеуге арналған бағдарламаларды құру
3. ИНФОРМАЦИЯЛЫҚ ЖҮЙЕНІ ЖОБАЛАУ
3.1 Есептің қойылуын сипаттау
3.2 Техникалық мінездемесі
3.3 Деректер базасын жобалау
3.3.1 Пәндік аймақ және деректер базасына қойылатын есептер
3.3.2 Деректер базасының объектілерін анықтау
3.3.3 Деректер базасының инфологиялық моделі
3.3.4 Деректер базасының Күнілогиялық моделі
3.3.5 Моделдің физикалық сипатталуы
3.4 Қолданушы инструкциясы
3.5 Бағдарламашы инструкциясы
4. ЕҢБЕКТІ ҚОРҒАУ
4.1 Электр қауіпсіздігі
4.2 Өрт қауіпсіздігі
4.3 Шу деңгейлеріне және дірілдеуге талаптар
4.4 Шан және зиянды химиялық заттар
4.5 Микроклимат
4.6 Желдету
4.7 Информацияны көрсету жүйелеріне эргономикалық талаптар
4.8 Оператордың жұмыс орнын ұйымдастыру
4.9 Жұмыс орынының эргономикалық талаптары
4.10 Жұмыс орынның жарық болуы
ҚОРЫТЫНДЫ
ӘДЕБИЕТТЕР
А ҚОСЫМШАСЫ
Б ҚОСЫМШАСЫ
В ҚОСЫМШАСЫ
Г ҚОСЫМШАСЫ
Д ҚОСЫМШАСЫ
Е ҚОСЫМШАСЫ
Ж ҚОСЫМШАСЫ
        
        МАЗМҰНЫ
| ... | ... |ПӘН ... ... | ... |Пән ... ... | ... ... жүйе ... | ... ... ... ... ЖӘНЕ НЕГІЗДЕУ | ... ... ... ... (ОҚБ) | |
|2.2 |DELPHI ... ... ... | ... |Оқиғалар мен оқиғаларды өндеушілер | ... |DELPHI ... ... | ... ... ... жұмыс істеуге арналған | |
| ... құру | ... ... ... ... | ... |Есептің қойылуын сипаттау | ... ... ... | ... ... ... ... | ... ... ... және ... базасына қойылатын есептер | |
|3.3.2 ... ... ... анықтау | ... ... ... ... ... | ... ... ... ... ... | ... |Моделдің физикалық сипатталуы | ... ... ... | ... |Бағдарламашы инструкциясы | ... ... ... | ... ... ... | ... |Өрт қауіпсіздігі | ... |Шу ... және ... ... | ... |Шан және ... ... ... | ... ... | ... ... | ... ... көрсету жүйелеріне эргономикалық талаптар | |
|4.8 ... ... ... ... | ... |Жұмыс орынының ... ... | ... |Жұмыс орынның жарық болуы | |
| ... | |
| ... | |
| |А ... | |
| |Б ... | |
| |В ... | |
| |Г ... | |
| |Д ... | |
| |Е ... | |
| |Ж ... | ... ... ... айналып жүретін информациялар тасқыны өте үлкен.
Уақыт өткен сайын олар көбейеді. Сондықтан кез-келген үлкен де, ... да, ... ... ... ... ететін деректермен басқаруды
ұйымдастырудың мәселесі туады. Кейбір ұйымдар ол үшін ... ... ... бірақ-та көпшілігі компьютерленген әдістерді жоғары
бағалайды – үлкен ... ... ... ... ... ... мүмкіндік беретін ... ... ... көпшілік
қаражаттық, өнеркәсіптік, сауда және тағы ... ... ... ... ұсыну қиын. Деректер базасы жоқ ... ... ... ... ... қалушы едік.
Бар информацияны компьютерлік негізге ауыстырудың көптеген салмақты
себептері бар. Казіргі кезде информацияны ЭВМ-де ... ... ... бағасынан арзан. Деректер базасы информацияны сақтауға, жүйелеуге
және қолданушыға оптималды әдіспен алып ... ... ... ... ... ... құралдарды сақтауға, ал ең
негізгісі - ол керек ... алу үшін ... ... мүмкіндік
береді. Сонымен қатар баруды және жүргізуді ... ... ... ... өндеуге және оларды орталықтай сақтауға негізделінген.
ЭЕМ ... ... ... ... ... ... ... қолмен
жазылған нұсқадағы мәліметтерді, Кроме того ЭВМ ... ... ... ... ... ... ... және т.б.
Осындай сақталған үлкен көлемді информацияны қолдану үшін жүйелік
құрылғылардың, деректерді тасымалдау ... ... ... ... диалогын қамтамасыздандыратын құралдар қажет, олар қолданушыға
сұрауларды енгізуге, ... ... ... ... жаңа ... қосуға немесе сақталған деректер
негізінде шешімдерді қабылдауға ... ... Осы ... үшін ... ... ... – деректер базасын
басқару жүйесі (ДББЖ). Казіргі ДББЖ- ол деректер базасымен көпқолданушылық
басқару жүйесі, олар бір ... бір ... ... ... істеп отырған
қолданушылардың массивтік информациясын басқаруға мамандандырылған.
Берілген дипломдық жұмыстың мақсаты арнайы орта білім беру кәсіпорынның
оқу ... үшін ... ... ... ... ... алдын-ала анықталған информация құрылымымен басқаруға
және оқу бөлімі үшін ... және ... ... ... шешуге
арналған, сонымен қатар келешекте қолданушыларға ... ... ... басқару жүйелерін зерттеуге көңілін алаңдатпауға мүмкіндік беретін,
деректер базасын әзірлеу болып табылады.
Дипломдық жобаның ... ... ... ... ... туралы информацияны оперативті беретін, оқушылар контингентінің
жылжуын қадағалайтын, ... ... ... ... ... ... қағазсыз технологияға көшіретін жүйе өте
маңызды болатындығын ... ... ... ол оқушылардың үлкен
контингенті кезінде оқу бөлімі секретарінің автоматтандырылған жұмыс орны
студенттердің іс қағаздарын сақтаудың ... және ... ... ... құралы болып табылады. Жоғарыда көрсетілген ... ... ... да бір ... ... ... ... істейтін, интерфейсі ыңғайлы жұмыс істеу үшін максималды икемнедген,
қосымша білімді талап етпейтін, орындалтын файл түрде ... ... ... ... Осы талаптарға сәйкес мына дипломдық жобаның
қажеттілігі туады.
Дипломдық жұмыстың ... ... ... ... ... және құжаттар айналымын ықшамдайтын, сонымен ... ... ... ... ... ... үшін
тағайындалған, арнайы орта білім беру кәсіпорынның оқу бөлімі ... ... ... ... қойылады. Қызметкерлер өз жұмыстарын
осы бағдарлама арқылы тез уақытта орындай алады.
Қойылған мақсатқа жету келесі есептерді шешуге мүмкіндік береді:
- ... жеке ... ... ... және ... пәндер аттарының тізімін толтыру;
- топтар, мамандықтар, оқу ... ... ... ... студенттерді оқуға тіркеу, оқудан шығару құжаттарын жүргізу;
- сынақ, емтихан бағалары туралы құжаттарын жүргізу;
- есеп беру ... ... ... ... бағаларының, емтихан
бағаларының ведомостерін, оқушының құрама ведомосін, оқушылар тізімін,
оқушылардың кәртешкелерін.
Дипломдық жұмыстың зерттеу ... ... ... ... ... бұйырықтарын құрастыру, оқушылардың оқу үлгерімдерін қадағалау, жеке
катешкелерін жүргізу, талапқа қойылатын периодпен ... ... есеп беру ... ... ... емтихан бағаларының
ведомостерін) ... ... ... ... ... болатын
процесстерді қамтитын, оқу бөлімінің қызметі болып табылады.
Дипломдық жұмыстың зерттеу пәні, негізі информациялық және компьютерлік
технология аймағындағы казіргі кездегі ... ... ... ... болып табылады.
Берілген дипломдық жұмыстың практикалық мәнінің ... ... ... ... жұмыс орынын автоматтандыруға көмектесетін
компьютерлік ... ... ... ПӘН аймағының сипаттамасы
1.1 Пән аймағының мінездемесі
Семей политехникалық колледжі орта кәсіптік білім беру мекеме ... ... ... кәсіпорындарының мамандарын дайындауға
арналған үлкен техникалық базамен қамтамасыздандырылған: тоңазытқыш-
компрессорлы ... және ... ... ... ... механиктерін, ет технологтарын, нан ... және ... ... ... ... ... ... колледж квалификацияланған кадрлермен қамтамасыздандырылған және әр 5
жыл сайын аттестцияланады.
Берілген дипломдық жобада оқу бөлімінің деректер базасы әзірленген.
Оқу бөлімін ... ... ... ... беру ... ... негізгі бөлігі болып табылады.
Білім беру мекеменің оқу бөлімі басқару бойынша деректер ... ... ... ... ... ... спецификалық
ерекшеліктері бар, мысалы, колледждегі студенттер контингентінің жылжу
құрылымын есептеу үшін ... ... ... ... ... ... ... бойы білім, жұмыс дағдыларын, қоршаған орта туралы
мағлұматтарды жинаған, басқа ... ...... ... инфорация ұрпақтан ұрпаққа аңыздар немесе ауызша ... ... ... Кітаптык істің пайда болуы және дамуы информацияны
сенімділі жазба түрінде сақтауға және тасымалдауға мүмкіндік ... ... ... ... ... телефондардың, радио және
теледидардың пайда болуына әкелді –информацияны оперативті жинауға және
тасымалдауға мүмкіндік ... ... ... ... ... ... әкелді, осыған орай оны сақтау және өңдеу туралы мәселе ... ... ... ... Есептеуіш техниканың пайда ... ... ... ал ... оны ... ... жеңілдеді.
Микропроцессорлар базасындағы есептеуіш техниканың ... ... ... ... ... әкелді. Үлкен
информация тасқындарын өңдей алатын бағдарламалар пайда болады. ... ... ... ... ... ... ... мақсаты- ол нақты дүниенің ... ... ... ... және ... олар ... ... информацияны
ұсыну /11/.
Егер біз кейбір ... ... ... болсақ, онда
бірдей қасиеттері бар объектілерді белгілеуімізге болады. Мұндай объектілер
жеке кластарға ... ... ... ... ... ... ... бойынша да тізімдеуге болады, мысалы,
алфавит бойынша, сол сияқты ... ... ... ... мысалы, түсі
немесе материалдары. Объектілерді анықталған белгілер арқылы топтастыру,
информацияны ... және ... ... ... барлық мағлұматтар
деректер базасы деп аталатын файлдар жиынтығына жиналады, ал осы файлдармен
басқару үшін арнайы бағдарламалар әзірленеді- деректер ... ... ... /10/.
Информациялық жүйелерді (ИЖ) шартты екі түрге ... ... және ... ... ... ... нақты дүниенің объектілері
туралы нақты мәнді деректер. Мұндай ... ... ... ... туралы барлық мағлұматтар (адамдар фамилиясы және пәндер аттары,
сандар, күндер) компьютерге қандай-да бір шартталған форматта (мысалы, күні
- ДД.ММ.ГГГГ ... ... ... ... ИЖ ... информацияның нақты құрылымы болады, ол арқылы машина бір деректі
басқасынан ажырата алады, мысалы адам ... оның ... ... оның ... және т.б. ... фактографиялық жүйе берілген
сұрақтарға бірмәнді ... бере ... ИЖ ... ... ... ... қызмет көрсетеді,
олар берілген сұраққа бірмәнді жауапты қабылдамайды. Осындай жүйелердің
деректер базасы, ... ... ... ... ... құжаттар (статьялар, кітаптар, рефераттар ... және ... ... ... ... Жүйенің мақсаты
қолданушының сұрағындағы құралған шарттарды қалай да ... және ... ... ... ... ... ИЖ классификация есікірген, өйткені қазіргі ... ... ... ... ... ... ... (статьялар, графика, дыбыс, видео)
жұмыс істейді. ... ... ... жүйе ... жүйеге
(немесе керісінше) айналып кетуі мүмкін.
Берілген дипломдық жүйенің мақсаты, ол ... ... ... ... ... ... данной работы удовлетворяют которые используются буквально во всех
сферах человеческой деятельности.
2. Бағдарламалау аймағын таңдау және негіздеу
2.1 Объекті-қалыптамалы бағдарламалауға кіріспе (ОҚБ)
ОҚБ-ның ... ... ... ... ... бір ... ... объект ұғымы жататын программаларды құру әдістемесі.
Объект дегеніміз бізді қоршаған әлемнің белгілі бір ... ... ... мына ... сипаттауға болады:
1. аты
2. объектінің параметрі – объектінің қасиеттерін сипаттайтын көрсеткіш
3. іс-әрекеттер жиыны – объект атқаратын қызметтер
ОҚБ – тілінің 3 ... ... ... ... ...... мен ... жазбалармен
біріктіреді;
2. полиморфизм – белгілі бір іс-әрекетке бір атау меншіктеледі;
3. орын басу – объектті анықтау және оның ... ... DELPHI ... ... ... – Windows операциялық жүйесінің ортасында жұмыс істеуге
қалыптанған программаларды құруға ... ... ... ... оқиғаларды программалау мен визуальды жобалау технологиялары
жатыр. Оларды қолдану ... құру ... ... ... DELPHI ... ... бөлігі және визуальдық
компоненттері объект Pascal-да (Object Pascal) жазылған. Оны Turbo Pascal
7.0-дің ары ... ... ... ... ... ... ... программист немесе жобалаушы компоненттер жиыны ... ... ... ... іске қосқаннан кейін экранда келесі терезелер пайда ... ... ... ... ... DELPHI 6 – Project 1);
2. форманың дизайнері терезесі (атауында Form ... ... ... ... (атауында Object Inspector);
4. программа кодының терезесі (Unit 1.Pas).
Жобамен байланысқан файлдар
Жоба – тұтастай ... ... ... программалар мен
файлдардың жиынтығы.
Форма – үстіне басқа объектілер орналасатын объект. Кез келген жобамен
келесі файлдар ... ... ... ...... .dpr. ... келісім бойынша оның
атауы Project 1.dpr. Оның текстін көру үшін View/Project Source
командасын ... ... dfm ... файлдар – форманың сыртқы түрі жайлы ақпаратты
сақтайды. Бұл файлдар бірнешеу болуы ... ... ... ... ... 2.dfm
3. Pas кеңейтілімді файлдар – объектті Pascal тіліндегі программалар.
Олар программа кодының терезесіндегі ... ... меню ... ... NEW – DELPHI репозютариіне кіруге мүмкіндік береді.
➢ NEW APPLICATION – жаңа проект құрады.
➢ NEW FORM – жаңа форма құрып, оны ... ... OPEN – ... ... ... ... OPEN PROJECT – алдыңғы құрылған проектті ашады.
➢ REOPEN – орындауға жіберілген проекттер тізімін ашады.
➢ SAVE – ... ... ... SAVE AS – активті форманы басқа атпен сақтайды.
➢ SAVE PROJECT AS – проекттің файлын басқа атпен сақтайды.
➢ SAVE ALL – ... ашық ... ... және ... файлын
сақтайды.
➢ CLOSE – ағымдық форманы жабады.
➢ CLOSE ALL – ... ашық ... ... жабады.
➢ USE UNIT – ағымдық формаға басқа модульге сілтемені қосады.
➢ PRINT – активті форманы немесе модульді басуға жібереді.
➢ EXIT – ... ... ... ... ... ережелері:
Қосымшаны құру процесі қажет компонеттерді таңдау және ... ... ... ... ... компонеттің ерекше атауы
болуы керек. Сондықтан DELPHI компонеттер үшін кейбір ережелерді қолданады
және оларға реттік номерлер береді. Мысалы, ... ... Label ... 2, ... ... ... ... ... Button 1, Button 2,
... үнсіз келісім бойынша берілген ... ... ... ... алфавитінің әріптерінен, сандардан тұруы қажет.
Компоненттердің қасиеттерін баптау
Компонеттердің қасиеттерін жобалау ... ... ... деп, ал
программаны орындауға жіберу кезіндегі динамикалық ... деп ... ... өзгерту кезінде меншіктеу операторы қолданылады.
Мысалы,
1) FORM 1.Color:=clred. Бұл ... ... ... қызыл түске
бояйды.
2 ) LABEL 1.Caption:= «Привет». Меткада ... ... ... LABEL ... Бұл ... ... ... сөздің
символдарын жасыл түске бояйды.
4) LABEL 1.Color:=clgreen. Меткадағы фонның түсін жасылға бояйды.
Компоненттерді редакциялау
Компонеттерді редакторлеу комнадалары EDIT ... ......... ... (Стандарт) бетінің компонеттері:
1. LABEL (метка) – формада әр ... ... ... шығару үшін
арналған.
Қасиеттері:
➢ CAPTION – меткаға жазылған тексттен ... COLOR – ... ... түсін анықтайды.
➢ FONT – меткадағы текст шрифтінің түрін анықтайды.
2. BUTTON – программаны басқару үшін жиі қолданылады.
Қасиеті:
➢ CAPTION – кнопкада ... ... ... EDIT – ... бір ... ... ... көрсетеді. Онда
мәліметтерді жинаумен байланыстырылған өріс ішінен мәліметтер көрінеді және
өзгертіледі. EDIT компонентінің тікелей класы ... ... өріс үшін ... ... ... тексеруді
қамтамасыз етеді. Field объектісі редакторда мәліметтерді тексеру кезінде
қолданылатын EditMask құрамында бар. ... ... ... әдісімен әрбір енгізілген немесе өзгертілген символдардан
кейін жүзеге ... ... ... ... ... ... Ол
CopyToClipboard, CutToClipboard, PasteFromClipboard әдістерінің көмегімен
орындалады.
4. MEMO – қарапайым ... ... Оның ... ...... көру және айнымалы ұзындықтың бірнеше жолдарын ... ... ... ... ... ... жолдарды көрсете
алады.
5. CheckBox – қарапайым жалаушаны толық көрсетеді және екі ... бар ... ... және ... ... Ол
мәліметтердің логикалық типі немесе кез ... ... ... ... ... өріс тек екі жолдан тұратын мағыналарды қабылдайды.
6. RadioGroup – стандартты айырып-қосқыш тобын көрсетеді. ... ... ... ... Егер байланысқан өріс мағынасы қандайда
бір айырып-қосқыш мағынасына сәйкес келсе, онда ол іске ... ... ... айырып-қосқышты қосатын болса, онда ... ... ... ... ListBox – мәліметтер жинау өрісімен байланысқан ағымды ... және оны ... ... өзгертуге мүмкіндік береді. Өріс
мағынасы тізім элементтерінің ішіндегі ... ... ... ... ComboBox – редактірлеу жолында мәліметтерді жинау өрісімен
байланыстырылған ағымды мағынаны көрсетеді және де өріс ... ... ... ... ... ... келуі керек. Ағымды мағынаны кез
келген тізімде ... ... ... ... Panel – ... ... ... контейнер болып табылады.
Оны Caption қасиетін мәліметтер шығаруға болады. Бұл компонент үстіне
қосымша компонеттер ... ... ... ... ... ... RadioButton – бұл компонент әр түрлі варианттарды көрсету үшін
қолданылады. - ... CAPTION – ... ... Checked – егер переключатель болса, онда true мәніне тең болады, ал
егер ... ... false ... ... ... ... BitBtn – Button стандартты кнопкасының бір түрі. Оның ... ... ... ... ... болады.
Қасиеттері:
➢ Glyph – бірден төртке дейінгі нүктелік суреттен тұрады;
➢ Kind – кнопканың түрін анықтайды.
Нүктелік сурет дегеніміз bmp форматында ... ... ... ... ... Image ... – бұл компонеттің қолдануы қарапайым мысалдармен
қарастырады.
№1 мысал.
➢ әшекейлеу ... ... ... ... ... ... ... Image компонентін орнату. Ол Additional
бетінде орналасқан;
➢ картинканы іске қосу үшін оның Picture қасиетін ... ... ... load ... ... Сосын суреттен тұратын
файлдарды бір папканы ашып, қажеттісін таңдаңыз. Картинка bmp, ... ico және т.б. ... ... ... ... ... ең ... қасиеттері Center, Stretch болып табылады.
Егер Center қасиетіне true мәнін берсек, онда бейненің центрі ... ... ... ... Егер Stretch қасиетіне true
мәнін ... онда ... Image ... ... ... мысал.
Екі пунктілі тізімнен тұратын программа құрыңыз. Менюдің 1 пунктін
таңдаған кезде ... ... ... ... ... формаға 1 ListBox компонентін, 1 Image компонентін орнатыңыз. Бұл
тапсырмада менюдің пунктілеріне оқиға өңдеуішін құру ... ... ... ... ... ... үшін Picture ... ListBox1. Itemindex=0
then Image1.Picture
LoadFromFile (1-файл аты);
If ListBox1. ... ... ... ... MENU компоненттерді қолдану
Формаға меню орнату үшін Main Menu компонентін орнату керек. Оны 2 рет
шертіп, MenuDesigner терезесінде ... ... ... ... ... теріп жазу керек. Менюдің ішіндегі команда атын жазу үшін
курсорды төмен қарай ... ... ... төртбұрышқа команда атын жазу
керек.
Ашылатын меню жасау үшін қажет пунктке курсорды ... ctrl ... ... ... пунктіне сурет орнату үшін қажет пунктті белгілеп, ... мән ... ... ... ... Shared\Images\Buttons
Открыть\ОК.
Menu пунктына ыстық клавишалар орнату. Ол үшін ... меню ... ShortCut ... мән ... пунктін alt-пен ашу үшін меню атауындағы қажет әріптің алдына
& қою керек.
Компонентке тышқанның курсорын орнатқан кезде шығатын ... ... ... ShowHint қасиетіне true мәнін беріп, Hint қасиетіне ... ... көп ... ... ... Ол үшін формаға Win32 бетіндегі
PageControl компонентін орнату керек. Осы ... ... ... ... ... шертіп, NewPage командасын орындау керек.
Сұхбат терезелерді шығару
Ол үшін ShowMessage (‘привет’)
Сұхбат ... ... ... ... үшін MessageDlg функциясы қолданылады.
Жазу форматы:
MessageDlg(‘сообщение’,Т, К, Х);
Т – сұхбат ... ... ... ... ... алады:
mtWarning
mtInformation
mtConfirmation
mtError
mtCustom
Әрбір константаның арнайы пиктограммасы және терезесінің атауы бар.
К – сұхбат терезеде орналасқан батырмаларды анықтайды. Олар ... ... ... ... ... ... mbNo, mbOK, mbCancel, mbRetry, mbIgnore, mbAbout, mbAll, mbHelp.
Х – ... қай ... ... ... ... ... ... выйти’, mtConfirmation, [mbYes,
mbNo, mbCancel],0);
Контекстік меню ... ... ... үшін контекстті меню құруға болады. Контекстті
меню құруға арналған ... ... деп ... ... оң жақ ... шерткен кезде пайда болатын меню құру үшін
компоненттің PopupMenu қасиетіне компоненттің ... ... ... Яғни ... егер Label1 компонентіне PopupMenu1 компоненті
байланысқан ... онда Label1 ... ... ... деп ... ... Контекстті менюдің командаларын жазу кәдімгі
менюді құруға ұқсас.
Анимация (Animate) компонентін орнату ...... ... ...... іске ... ... бетінің кейбір компоненттері
Windows операциялық жүйесінің құрамына жүктелетін файлды таңдау, шрифті
таңдау, принтерді баптау және т.б. ... ... ... ... терезелермен жұмыс 3 кезеңнен тұрады:
1. формаға сәйкес компонент ... оның ... ... ... үшін арналған execute стандартты әдісі шақырылады. Ол бапталған
терезені ... және ... Бұл ... ... ... ... ... өңдеуіштің ішінде орналасады. Сұхбат терезелері модальды терезе
болып табылады. Сондықтан execute ... ... ... ары ... ... ... қолданушы терезені жапқанға дейін
тоқтатылады. Execute логикалық функция болып табылады. Сондықтан егер
қолданушы мен диалог нәтижесі сәтті болса, ол true ... ... execute ... ... ... программа диалогтық терезе көмегімен
енгізілген мәліметтерді қолданады. Мысалы, файл аттарын, таңдалған
шрифтерді және т.б.
OPEN DIALOG және SAVE DIALOG ... ... ... ... ... ... қарастырылады.
Open Dialog - файлды ашу стандартты терезесін құру үшін қолданылады.
Save Dialog – ... ... ... ... құру үшін қолданылады.
Қасиеттері:
1. FileName – файлдың аты мен орнынан тұрады.
2. Filter – сұхбат терезеде көрсетілетін ... сүзу ... және ... ... ... ... ... және сақтау үшін арналған.
Олардың Open Dialog және Save Dialog ... ... ... ... файлдарды таңдауға арналған стандартты фильтрлар
бар.
... ... ... ... ... ... арналған
тақталар бар.
FontDialog компоненті - Шрифті таңдау стандартты терезесін құрады.
FaindDialog компоненті – ... ... ... арналған.
ReplaceDialog компоненті – мәтіндік фрагменттерін іздеу және алмастыру
терезесін құрып ... ...... ... ... ... құрайды.
Вид / Цвет формы:
If ColorDialog1.execute=true then
Form1.Color:=ColorDialog1.Color;
2.3 Оқиғалар мен оқиғаларды өндеушілер
Оқиғаның реакциясы белгілі бір іс-әрекет болуы керек. Мысалы, ... ... ... ... ...... терезесінің
жабылуы болу керек. DELPHI-де оқиғалардың реакциясы – оқиғаларды өңдеуіш
деп ... оны ... ... ... іске ... ... міндеті қажетті оқиғаларды өңдеуіш деп атайды.
Оқиғаларды өңдеуіштерді құру үшін мыналарды орындау қажет:
1. компонетті белгілеу;
2. Object ... ... Events ... ... ... ... жақ колонкада белгіленген объект іске асыра ... ... ... орналасады. Мысалы: а) OnClick – ... ... ... – тышқанмен екі рет шерту; в) ...... ... Егер ... үшін оны ... ... ... онда оң жақ
колонкада оның аты шығып тұрады;
3. Оқиға өңдеуішті анықтау үшін ... ... ... тышқанды екі
рет шерту керек. Нәтижесінде оқиға өңдеуіш процедурасының макеті ... коды ... ... ашылады, яғни Unit 1. DELPHI автоматты
түрде өңдеуішке екі ... ... атау ... Бірінші бөлік компонент
орналасқан форманы анықтайды, екінші бөлік компоненттің өзін және оқиғаны
анықтайды. Мысалы: кнопканы ... ... ... жазу ... болса, оның
процедурасының аты былай болады:
TForm1.Button1.Click
Форманың компонент- оқиға
аты тің ... ... ... ешқандай оқиғаларды өңдеуге тиіс емес, сондықтан
да оларға оқиға өңдеуіштер құрылмайды.
2. Оқиға өңдеуішті жазу үшін инспектор объектовті ... ... ... ... шығуға болады.
Кластар
DELPHI кластары деп үлгілерге ұқсас экземплярлар құру үшін ... ... ... ... ... ... Бір
кезде класты құрып, программист оның ... ... әр ... немесе сол программаның әр түрлі жеріне қосуына болады.
DELPHI-дің құрамына жүзден аса ... ... ... Ал формаға
орнатылған компоненттердің нақтылы экземплярларының барлығы ... ... ... ... ... Кластардың барлық атаулары Т ... ... ... – TҒorm стандартты кластың үлгісі бойынша
құрылған кластың атауын білдіреді. ... ... ... ... метка компонеттері орнатылған болсын және кнопка үшін
тышқанмен шерту оқиға өңдеуіші жазылған ... ... ... ... мәтіннің басында мына жолдарды көруге болады:
Type
TFrom1=Class (TForm);
Button1:TВutton;
Label1:TLabel;
Procedure Button1.Click (Sender:Tobject);
Private
{private declarations};
public
{public declarations}
end;
Var Form1: TForm1;
TҒorm1=Class (TForm) жолы TҒorm ... ... ... TҒorm1 ... анықтайды, яғни TҒorm класының өрісі бойынша ... ... ... ... бос терезесін сипаттайды. Ал TҒorm1. класы
кнопка және метка компоненттері орнатылған ... ... ...... ... ... экземпляры болып табылады. Ал
Label1 компоненті - TLabel ... ... ... ... – Tobject ... ... Sender процедурасының параметрін
анықтайды. Sender параметрі DELPHI-де қандайда бір жағдай үшін ... ... ... ... қай компонент OnClick оқиғасын
құрғанын кез келген уақытта анықтайды.
2.4 DELPHI бағдарламаларының құрылымы
DELPHI-дің кез ... ... ... файлына және бір немесе
бірнеше модульдерден ... ... ... ... – Object ... ... программа
болып табылады және компиляторда өңдеу үшін арналған. Бұл программа
автоматты түрде құрылады және ... ... ... ... in ‘Unit1.Pas’; {Form1}
{$R *.Res}
begin
Application.Initialize;
Application.CreateForm (TForm1:Form1);
Application.Run;
End.
Мұндағы:
TАpplication класы – орындалып отырған қосымщаларды басқаруды жүзеге
асырады. Ол Палитра компонентінде жоқ, ... ... ... оның құрамына
ену мүмкіндігі бар.
Application айнымалысы – ауқымды айнымалы, DELPHI ортасында жазылған
кез келген программаларға ... ... ... ... ... ... әдісі – инициализация қосымшасы үшін қолданылады.
CreateForm әдісі – қосымшада форма құру үшін қолданылады.
Run әдісі – қосымшаны іске ... ... ... *.Res} – оған ... ... ... модулін байланыстыру үшін
қолданылады.
Модульдің құрылымы:
Проект файлынан айырмашылығы модульдің текстін өзгертуге болады. Бірақ
DELPHI–де ... ... ... жолдарды өзгертуге болмайды және
өшіруге болмайды. Кез келген ... ... ... ... ... (интерфейс) – басқа программа бөлімдеріне: басқа модульдерге
және негізгі бөлімге мүмкіндігі бар ақпараттарды суреттейді. ... ... ... ... және ... ... ... – тарату бөлімі Implementation сөзінен басталады.
Initialization – тек бір рет және ... ... ... іс-әрекет. Егер программада модульдер бірнешеу ... ... ... ... реттеуге сәйкес инициализация бөлімі
орындалады.
Finalization – тек бір рет және программа жұмысының ... ... ... ... ... end сөзі және ... ... кез келген бөлігі бос болуы мүмкін. Модульдің атауы модульдің
бастапқы мәтіні орналасқан файл атымен сәйкес келуі қажет. Модульдің атауы
оны ... ... және ... ... байланыстыру үшін
арналған.
DELPHI-де жаңа бағдарламаны құрудың жалпы схемасы
1. Құрылған программаның барлық файлдары сақталынатын жаңа ... ... DELPHI ... File/New ... командасын орындау қажет.
Барлық қажетті файлдарды сақтау үшін File/Save all ... ... Осы ... ең ... проект файлын сақтау ұсынылады. Әрбір жаңа
программаны сақтау кезінде файлдарға ... ат беру ... ... Содан кейін модульдің файлын сақтау ұсынылады.
2.5 Мәліметтер қорымен жұмыс істеуге арналған бағдарламаларды құру
Мәліметтер қорын ... ... ... арналған құралдарға
жалпы сипаттама
1. BDE (BorlandDataBaseEngine) ... және ... ... ... ... рұқсатты қамтамасыз ететін DLL
библиотекалар жиыны ... ... ... ... ... ... істеу программаларын қолданатын әрбір компьютерде орнатылу керек. BDE
программа мен мәліметтер қорының арасында байланыс орнатады.
2. BDE ...... ... ... ... ... драйверлерін орнатуға арналған программа. Бұл
программада мәліметтер қорының көрсеткіштерін ... ... ... ... ... ... мәндерді көрсетудің форматын және қолданылатын
тілдің драйверін.
3. DataBaseDesktop (DBD) – ... ... ... ... және ... ... ... Бұл программа локальды ... ... ... ... ... істеуге бейімделген.
4. SQL Explorer – BDE administrator мен DataBaseDesktop программаларына
көптеген қызметтерін атқаратын универсальды программа. Оның ... ... ... құрылымы мен мазмұнын көруге және SQL ... ... ... ... ... ... ... ұғымдары
1. Кесте (Table) - өрістерінің құрылымы бірдей жазбалардың жиыны.
2. Өріс (Filt) – кесте мәліметтерінің жеке ... ... ... ... және типі болады).
3. Жазба (Record) – байланысқан өрістердің тобы.
4. Мәліметтер қоры (DataBase) – кестелердің ұйымдастырылған жиыны.
5. Кілттік өріс – мәндері ... ... ... ... ... ... ... істеуге арналған компоненттер
DataAccess вкладкасы
Бұл вкладка мәліметтер қорымен байланыс орнату және олардың мазмұнын
көруге мүмкіндік ... ... ... Table – мәліметтер ... ... ... ... байланыс орнатады. Кейбір қасиеттері:
1. DataBaseName – мәліметтер көзін анықтайды. Бұл қасиеттің мәні
нақтылы жол ... ... ...... тұратын файлдың атын анықтайды.
3. Active – егер true мәнін қабылдаса, онда мәліметтер программаны ... ... ... ...... ... table) және көрінетін компоненттер
арасында байланыс орнатады. Қасиеті:
1. DataSet – ... ... ... вкладкасы
Бұл вкладка мәліметтерді көрсету және редактірлеу үшін ... ... DbGrid – ... ... ... ... көрсетуге мүмкіндік
береді.
❖ DbNavigator – кестенің ... ... ... үшін ... ... ... Қасиеті: DataSource – мәліметтер көзі
компонентінің атынан тұрады. Мысал: country.db файлындағы мәліметтер
қорының информацияларын көру және редактрлеуге арналған ... ... ... ... Формаға table компонентін орнату және келесі қасиеттеріне мән беру:
▪ DataBaseName - ... ... ... ... ... - ... Active – ... Формаға DataSource компонентін орнату. DataSet қасиетіне Table1
мәнін беру.
3. Формаға DbGrid компонентін ... Оның ... ... ... ... Формаға DbNavigator компонентін орнату. DataSource қасиетіне
DataSource1. мәнін беру. ShowHint қасиетіне true мәнін ... 7. ... ... ... ... ... ... (пуск - программы - Borland Delphi ... ... ... ... File - New - Table
командасын орындау.
3. Table терезесінде құрылатын ... ... ... (paradox ... жаңа ... генерациялау үшін ОК кнопкасын шерту.
4. Кестенің құрылымын анықтау, яғни өрістердің атауын, типтері ... ... және ... ... жағдайда кілттік өрісті орнату.
5. Save As кнопкасын шерту.
6. ... ... файл ... ... таңдау.
7. Мәліметтер қорының файлының атын енгізіп, сохранить кнопкасын шерту.
Ескерту: Бір ғана кестені сақтау үшін db. ... жеке ... ... ... ... Alpha – ... яғни 255 ... дейінгі жол.
2. Number - -10307-нен +10308 дейінгі сандар.
3. Money – Number типіне ұқсас, бірақ көрсетілу кезінде ақшаның белгісі
шығып тұрады.
4. Short - ... ... ... ... ... ... - ... +2147483647-ге дейінгі бүтін сандар.
6. BCD - екілік және ондық жүйедегі бүтін және бөлшек сандар. ... өте көп ... ... ... кезінде өте нақты нәтиже алуға
мүмкіндік береді.
7. Date – Күніның мәні.
8. Tame – ... ... ...... және ... ... GraphicFilds – bmp, pcx, giv форматтағы графикалық бейнелер.
11. Logical – true ... false ... ... ... ... (счетчик).
3. ИНФОРМАЦИЯЛЫҚ жүйені жобалау
3.1. Есептің қойылуын сипаттау
Кәсіпорынның аты: Семей политехникалық колледжі
Пән аймағының атауы: оқу бөлімі секретарінің ... ... ... ... ... ... оқу ... оқу бөлімі
секретарінің информациялық қамсыздандыруы.
Процесстерді сипаттау:
- студенттерді оқуға тіркеу бұйырықтары;
- студенттердің оқудан шығару ... ... жеке ... ... ... ... тіркелген күні және оқудан шыққан күні көрсетіледі;
- ... оқу ... ... ... ... ... қадағалау;
- бастыққа есеп беруды ұсыну, әртүрлі формадағы есеп беруге
өзгерістерді енгізу;
- анықталған уақыт мерзімдегі бұйырықтар және ведомостар бойынша
журналдарды жүргізу.
Перечень ... для ... ... ... ... ... ... мәліметтері;
- оқытушылардың және оқытатын пәндердің анкеталық мәліметтері;
- топтар, мамандықтар, оқу тілі және түрі тізімдері;
- мамандықтар түрі;
- сұрауларды ... есеп ... ... ... бойынша есеп берулердің тізімі:
- сынақ бағалары ведомостері бойынша есеп;
- емтихан бағалары ведомостері ... ... ... ... ... бойынша есеп;
- студенттер тізімінің есебі;
- студенттің жеке карточкасы бойынша есеп.
Информациялық жүйеге сұраулар тізімі:
- бұйырықтар бойынша информацияларды ... ... ... ... ... ... мінездемесі
Казіргі кездегі автоматтандырылған информациялық жүйелердің аппараттық
құрылымына мыналар кіреді: есептеуіш техника құралдары; ... ... ... ... ... ... автоматтандыратын
құрылғылар: автоматтар, сауда жүйесінің, пластикалық картешкелердің
терминдары; ақша қаражатымен ... ... ... құралдар.
ИЖ аймағында әзірленетін әртүрлі деңгейлі автоматтандырылған жұмыс
орындар ... ... ... құрылымына, олардың
архитектураларына және ... ... ... болады.
Сондықтан АЖО әзірлеу сатысында информацияларды сақтайтын, өндейтін ... ... ... ... құрылғылар тізімінің,
интерфейстердің және т.б. парамерлеріне талаптар ... ... ... «Оқу бөлімі» секретарінің АЖО
ерекшеліктеріне мыналар ... ... ... ... ... қатан
құжаттармен жұмыс істеу, сонымен ... ... ... ... ... ... ... информацияның көлемі.
Жоғарыда айтылғанға сүйеніп келесі аппараттық құралдардың тізімін
ұсынуға болады:
Тактілік тазалығы 400- 630 Мгц ... Pentium ... ... бірге қосылатын дербес компьютер;
оперативті жады көлемі 128 МБ;
көлемі 10.0 Гб-тан кем емес ... ... ... жинақтауыш;
лазерлік принтер;
тоқты тұрақты беретін блок.
3.3. Деректер базасын жобалау
3.3.1 ... ... және ... базасына қойылатын есептер
Деректер базасы оқып жатқан студенттер және оқытылатын пәндер тізімі
(оқу бағдарламасы) бойынша үлгерімдік бағалары ... ... ... ... ... оқу ... ... толтырылады және
өзгеріп отырады және кез-келген уақытта студенттің оқып жүрген және оқуды
бітіріп кеткен жағдайда да сұра ... ... ... ... жүйе мінездемесіне сай
және де қойылған ... бір ... ... ... ... ... ... қолданушылар оқу бөлімінің секретарлері болады, ... ... ... ... және ... жағдайда ұстау
сұрақтарында көп білімі жоқ қолданушыларға ... Бұл ... ... талаптарды береді, мұнда барудың, іздеудің және администрациялау
көптеген функцияларының әдістері бағдарлама ішіне кірістірілген және ... ... ... ... ... ... ізін қалдырады. Барлық талаптар толық төменде тізімделген:
Оқитын студенттер туралы жалпы информацияны ... осы ... оқып ... әр ... туралы мәліметтер жинағы, оған
жалпы информация кіреді, мысалы, ... ... ... ... және ... ... ... үлты, туратын мекен жайы, семья жағдайы және құрамы,
сонымен қатар оқу мінездемелік информация, мысалы, ағымды курс, топ, ... ... және т.б. ... оқу ... ... толтырылады және
өзгеріп отырады.
Студенттер архивін жүргізу
Оқу мерзімі өткен соң студенттер туралы информация әлі көп ... ... ... ... ... ол 75 жыл ... қалады), сондықтан
колледж бітірген студенттер архивке тіркеліп, оларды жою туралы шешім
қабылданбағанша ... ... ... ... ... жаңа ... абитуриенттермен толтыру
Әр оқу жылдың басында деректер базасына ағымды жылы оқуға түскен
абитуриенттер тізімінен студенттер кіргізулері керек.
Факультетті келесі ... ... жылы ... соң әр ... ... курс ... ... отыруы тиіс, яғни студент сессияны жақсы тапсырған соң келесі
курсқа көшірілуі керек. Бұл өзгерістер архивтегі емес, тек ... ... ... ... ... қажет. Сонымен қатар оқуды аяқтап кеткен
студенттер автоматты архивке тіркелулері керек.
Топтарды мамандықтары бойынша бөлу
Бұл ... 9 ... ... ... ... ... 1 ... емтихандарды тапсырған соң кездеседі, мұнда бұрын жасалған
топтар ... ... ... ... тағы да ... топтар бойынша бөлу
Студенттерді бірінші курста топтарға бөлу ... ... ... ... ... және А/Д ... ... мерзімі барысында студентке бір жылға академиялық демалыс беріледі,
ол ... соң ... ... ... Бұл мерзім ішінде студент
туралы информация, оны қайта тізімге алу кезінде керек болғандықтан архивте
сақталуы ... ... ... ... ... ... ... кеткен күні және бұйырықтың номері туралы информация керек болып
қалуы мүмкін.
Оқудан шығу және оқуға қайта кіру
Студент кез-келген курста ... ... ... ... шығуы мүмкін.
Бірақ та оқудан шығу фактінің мінездемесі фаталды емес, сондықтан кейбір
себептерге байланысты ... ... ... ... яғни ... ... ... дейін информация қажет болғанша немесе оны сақтаудың қажеттілігі
жоқ болғанша ... ... ... ... шығу ... ... шығу күні және ... номері туралы информация қажет болады.
Басқа топқа немесе ішкі топқа ... есеп ... ... ... ... мұнда студенттер топтар әлі толық
құралмаған кезде басқа топқа ... ішкі ... ... ... тілек
білдіреді.
Оқу жоспары туралы информацияны ұсыну
Топтардағы жалпы білім беру мерзімде және мамандандыруды таңдаған
кезден соң ... ... ... анық ... ... керек. Олар
бойынша әр студент үшін сессия қорытындысы бойынша ведомостер жүргізіледі.
Сессия қорытындысы және өткізілетін аттестациялар бойынша ... ... әр ... оқу ... көрсетілген пәндерді
меңгереді, демек әр семестр аяқталған соң олар бойынша білімдерін бақылауды
өтеді. Сонымен ... ... ... ... бақылау жүйесінен өзгеше
қосымша білімдерді бақылау өткізіліп отырады.
Факультет туралы статистикалық информацияны ... ... ... ... ... ... және ... алу үшін
жалпы түрде берілген информацияны (соңғы суммалар, кестелер, сызбалар) ... ... оны ... ... ... және т.б. ... ... (сандық және сапалық оқу үлгерімі, пәндер бойынша
қарыздар саны, ... ... саны және т.б.) ... ... ... базасының объектілерін анықтау
Жоғарыда анықталған есептер ... ... ... базасының
мәндерін (объектілер) белгілеуге және «Кесте-байланыс» тіліндегі оның
инфологиялық ... ... ... береді. Анализдеу нәтижесінде
деректер базасының келесі объектілері анықталды:
Студенттер (Студент номері, ... ... ... ... Топ, Үй адресі, Телефон, Оқуға алыну күні, Оқудан шығу күні,
Қосымша).
Бұл мән студенттер ... ... ... ... ... Мұндағы
мәліметтер бүкіл оқу мерзімі кезінде өзгермеуі де мүмкін (есімі, жөні,
туған күні, жынысы және т.б.), және де оқу ... ... бір ... ... де ... (курс, топ, үй адресі). Кейбір кезде бір топ
ішінде бірдей ... және ... ... да ... ... болуы мүмкін,
сондықтан жазылымдарды студенттер фамилиялары бойынша бірмәнді анықтауға
болмайды. Сондықтан жаңа ... ... әр ... ... ... идентификатор. Бұл идентификаторды деректер базасымен жұмыс
істегенде білудің соншалықты қажеті жоқ және де ... ... ол тек қана ішкі ... үшін ... Үлты ... ... ... үлттың атын көрсетеді. Топ атрибуты «Топ» кестесінде
анықталған топ атын ... ... ... күні ... ... ... ... оқуға алыну күнін көрсетеді. Оқудан шығару
күні «Бұйырықтар» кестесінде анықталған ... ... ... күнін
көрсетеді.
Барлық студенттер туралы информация анықталған жерде сақталады, бұл
деректер ... ... ... ... ... (Топ_номері, Аталуы, Мамандығы, Оқу_түрі, Оқу_тілі)
Бұл мән топтар туралы ... ... ... арналған. Мұндағы
мәліметтер бүкіл оқу мерзімі кезінде өзгермейді. Алдынғы мән ... ... оның ... ... ... ... ол жаңа топты қосқан
кезде автоматты бірге көбейеді. Бұл идентификаторды деректер ... ... ... ... ... жоқ және де ... ... ол тек қана ішкі ... үшін ... ... ... ... ... мамандық атын көрсетеді. Оқу
формасы атрибуты «Бөлімі» кестесінде анықталған оқу формасын ... ... ... ... ... ... тіл атын ... (Оқытушы_номері, Фамилиясы_ Есімі_ Жөні)
Бұл мән оқытушылар тізімін сақтауға арналған. Мұндағы мәліметтер бүкіл
оқу мерзімі кезінде ... ... ... мән ... әр оқушыны оның
идентификатор номері ... ... ол жаңа ... ... ... ... ... Бұл идентификаторды деректер базасымен жұмыс
істегенде білудің соншалықты қажеті жоқ және де ... ... ол тек қана ішкі ... үшін ... ... Атауы).
Бұл мән топтардағы оқу жүргізілетін жоспарларды жасауға қатысты болатын
пәндер тізімін ... ... ... мән ... әр ... ... ... бірмәнді анықтайды, ол жаңа пәнді қосқан кезде
автоматты бірге көбейеді.
Ведомостер (Құжат_номері, Пән, ... Топ, ... ... мән оқу ... көрсетілген пәндер бойынша студенттердің
білімдерін ... ... ... ... ... атрибуты – уникалды
номер. Пән атрибуты ... ... ... пән атын ... ... ... кестесінде анықталған оқытушы аты-жөнін
көрсетеді. Топ атрибуты ... ... ... топ атын ... ... ... аяқтау кезіндегі білімді бақылау формасының ... ол ... ... ... ... бақылау) жол болуы мүмкін.
Студент ведомості (Құжат_номері, Студент, Балл).
Мән оқу ... ... ... бойынша студенттер оқу
үлгерімдерінің атрибуттарын бейнелейді. Құжат номері атрибуты– «Ведомостер»
кестесінде құжат номерімен ... ... ... ... ... ... анықталған студенттің фамилиясын, ... ... ... ... студенттер білімдерінің бағасы жазылады.
Бұйырықтар (Бұйырық номері, Бұйырық типі, Бұйырық күні, Топ).
Берілген мән студенттерді оқуға алу ... ... ... және
академиялық демалыстарды беру және одан ... келу ... ... ... ... арналған. Бірінші кілтті бір атрибут құрайды.
Бұйырық номері, уникалды номер студенттердің кадр бөлімінен келеді. ... ... ... ... ие бола ... алу, ... А/Д ... А/Д
келу. Практикада бір студенттің бірнеше рет оқудан шығып ... ... ... қатар академиялық демалысты алу жағдайлары кездеседі, сондықтан
бірінші кілт құрамына тағы Бұйырық ... ... ... ... ... барлық хронологиясын бейнелейді.
Тілдер (Тіл номері, Атауы).
Бұл мән топтардағы оқу жүргізілетін тілдер тізімін сақтауға арналған.
Алдынғы мән сияқты әр тілді оның ... ... ... ... жаңа тілді қосқан кезде автоматты бірге көбейеді.
Үлттар ... ... ... мән ... ... ... ... туралы тізімді сақтауға
арналған. Алдынғы мән сияқты әр үлтты оның идентификатор номері бірмәнді
анықтайды, ол жаңа ... ... ... ... ... ... (Бөлім номері, Атауы).
Бұл мән берілген ... бар ... ... ... сырттай) тізімін сақтауға арналған. Алдынғы мән сияқты әр ... ... ... ... ... ол жаңа бөлімді қосқан кезде
автоматты бірге көбейеді.
Мамандықтар (Мамандық номері, Аталуы).
Бұл мән берілген колледжде бар ... ... ... ... номері атрибуты мамандық шифрі, оның номері идентификатор
жалпы білім беру ... ... ... ... ... ... мән студенттер тізімдерін сақтауға арналған. Құжат номері атрибуты–
«Ведомостер» кестесінде құжат номерімен ... ... ... ... ... кестесінде анықталған студенттің фамилиясын,
есімін, жөнін көрсетеді. Топ атрибуты «Топтар» ... ... ... ... Деректер базасының инфологиялық моделі
4 Қосымшада «Кесте-байланыстар» тіліндегі деректер ... ... ... көрсетілген.
«Бірді-көпке» типті бағынышты құрылым «Студенттер»( «Бұйырықтар» мәнді
қостар үшін анықталады және оқудан шығару, ... ... ... беру және т.б. ... ... үшін ... ... мүмкіндік береді. Мұнда студенттер туралы информация деректер
базасынан ... Тек ... ... ... ... мысалы
«оқудан шыққан», ал барлық информация қажет болғанша немесе жою ... ... ... ... ... ... мәндердің тәуелді құрылымы ... ... ... ... ... Мысалы, алдымен «Студенттер» және
«Пәндер» кестелері толтырылуы қажет, оқу ... ... ... ... соң
ғана оқу жоспары бойынша «Ведомостер» кестесін информациямен толтыруға
болады. Бұл ... ... ... ... қолданушымен
әрекеттескендегі интерфейсте бейнеленуі керек.
Сызбадан көрініп тұрғандай «Студенттер» және «Пәндер» ... ... ... ... ... бірмәнді
идентификациялауда ғана негізгі болып табылмай, сондай-ақ ... ... ... арасында ұйыдастыруда байланысты ролді орындайды.
3.3.4 Деректер базасының Күнілогиялық моделі
Деректер базасының ... ... ... ... ... ... тек ... модель деректер базасын құру және жүргізу
туралы дамыған ұсыныстардың ... ... ... оған ... ... ... Реляционды моделдер ... және ішкі ... ... ... анық ... логикалық бейнелейді. Бұл әзірлеуде деректер базасын толық
анализдеуге мүмкіндік береді. ... ... ... ... ... кезде көбірек таралған және де оған көшіріліп ... ... ... және ... ... ... базалары үшін
стандарт болып табылады. Реляционды модельді таңдауға тағы бір салмақты
себеп, ол ... ... ... ... ... ... ... бағытталған. Сонымен қатар реляционды деректер базасын
келешекте толықтыруға және интеграциялауға оңай, бұл деректер ... ... ... ... ... ажыратылмайтын бөлігі болып
табылады.
Деректер базасының инфологиялық моделі ... ... оңай ... ... ... ... ... қолданып
сипаттайды. Нәтижесінде реляционды деректер базасында он екі ... ... мән жеке ... ... әр ... атрибуттары осы кестенің
алаңдары болады, ал мәндердің бірінші кілттері ... ... ... Осы ... ... ... болдырмау мақсатында ... ... ... қажет. Бұл процедура келешекте деректер
базасының бүтіндік жағдайындағы кестелерді қолдауға кететін ... ... ... ... анализдесе, онда кейбір
алаңдар, мысалы, Жынысы, ... Топ ... ... ... ... ... қатар бұл мәндер өздерін ұзындығы үлкен болатын мәтіндік
тұрақтылар ретінде ұсынады. Тура ... ... ... ... Оқу ... ... алаңдары ие. Мұндай мәліметтерді ... ... ... жеке кестеде сақтау ыңғайлы, ал ұзын ... әр жол үшін ... ... ... мәндерін қою. Бұл
деректер базасы үшін дискілік орынды үнемдеуге мүмкіндік береді. Қолданушы
осы алаңдардың кейбір мәндерін ... ... ... ... ... толтыру
уақыты үнемделеді, өйткені оған айта-қайта мәндері бірдей ұзақ жолдарды
жазудың қажеті жоқ ... ... үшін ... сипатталған нормализация ережелері
бойынша әр алаң үшін жеке ... ... және онда осы бір ... ғана ... мәндерді сақтау. Берілген дипломдық жұмыста ... ... ... жеке ... ... және оларды уникалды
идентификатор-номер арқылы ажыратуға болады. Мұндай әр жеке алаң үшін жеке
кестені ... ... ... базасының құрылымын күрделетеді.
Сонымен ... ... ... сан болатын жаңа атрибутты қосу және соңғы
қолданушымен әрекеттестік интерфейсті өзгертуге және бағдарламалық ... көп ... ... ... бұл ... ... ... кестелері соңына дейін
нормализацияланған болады және ... ... ... қалыпта қолдау
процедураларына қосымша талаптардың қажеті жоқ ... ... та ... ... ... демек әзірлеу уақыты ұзақтырақ болып ... ... ... ... ... аты ... ... ... ... ... аты |Осы ... алаң аты ... ... ... мәні үшін ... номер (код) |
|Мәні ... ... алаң үшін мәні ... ... ... кілт ... және ... шрифтпен белгіленген)
және алаңдар сипатталуы 1 кестеде көрсетілген.
Кестелердің мұндай құрылымы қойылған есептердің ... ... ол ... ... ... қарап инфологиялық моделден
шығарылған.
3.3.5 Моделдің физикалық сипатталуы
Деректер ... ... ... әйгілі Paradox форматты локалды деректер
базасында ұйымдастырылған. Релционды деректер ... ... ... ең ... және ... мәліметтер типінің сақтау жүйесі ең
әйгілі, және алаңдарды индекстеу мүмкіндігі бар, яғни ... ... ... ... ішінде алуға болады, сонымен қатар реляционды
алаңдар арқасында ... ... ... ... Paradox деректер базасы– реляционды деректер базасына ... ... ... сұраулар тілі SQL көмегімен жасалады. Кестелерді
әзірлеу кезінде кілтті алаңдарды және индекстерді анықтаудың әйгілі ... ... ... ... шығынымен әзірленеді. Бірақ бұл ... ... ... үшін кілтті болмайды, бірақ сақталатын ... ... ... ... ... ... ... орындау
жылдамдылығында шешілетін факторға жатады.
Paradox кестесінде сақталатын деректер типы әртүрлі. Бұл символдық,
әртүрлі сандық типтер: бүтін типті, ... ... ... бар ... және ... ... сандар, логикалық типтер, күндерді,
уақытты және ақшаны, графикалық бейнелерді ең ... ... ... ... ... ... rtf-те форматталған) және OLE (Object
Linking and Embedding) технологиясымен қолдай алатын тип. ... ... ... ... ... ... қызмет көрсетуге тағайындалған
«Оқу бөлімі» деректер базасы үшін ең ... ... ... ... ... ... ... он екі кестемен ұсынылады (реляционды
деректер базасы терминологиясы бойынша - он екі ... ... ... Group, ... National, Otdel, Predmet, Teacher,
Sheet, Sheetstud, Special, Spisok. Әрқайсысының құрылымын ... ... ... ... ... ... нормализациялау ережесін
ұстау қажет:
1 Ереже: Кез-келген кестенің әр алаңы уникалды ... ... ... Әр ... ... ... (бірінші кілті) болуы
қажет, ол кестенің бір немесе бірнеше алаңнан құрылуы мүмкін.
3 Ереже: ... ... әр мәні үшін ... деректер бағандарының
бір және тек бір мәні ғана болуы қажет, және де бұл мән ... ... ... керек.
4 Ереже: Кез-келген алаңның (бірінші кіліт құрамына ... ... ... ... ... және де ... ... мәнін
өзгертуге әкелмеуі керек [2].
Әр агрегаттандырылған объект деректер базасының жеке ... ... ... ... ... ... ... және
оның алаңдарының аттарын деректер ... мен ... ... ... ... кілт ... табельдік номерді қолданамыз.
Деректер базасы өзіне 11 кестені кірістіреді.
Деректер базасын кестелік түрде ... ... ... жалпы және оқу мінездемесі туралы
информация ұсынылған. Алаңдар, олардың типтері және ... ... ... 3.2
|Кесте атауы: |STUDENT.DB ... ... жеке ... ... үшін ... | ... ... |Мәліметтер типі |Сипаттамасы ... ... ... идентификациялық номері |
|FIO ... (50) ... ... жөні ... ... ... күні ... ... (100) ... телефоны ... ... (15) ... ... |Мәтіндік (3) ... ... ... (15) |Топ ... ... ... ... күні ... ... ... ... ... ... ... |Оқудан ... күні ... ... ... ... номері ... ... ... ... кілті болып табылады және кестедегі әр
жазылымды бір мәнді анықтайды. FIO ... ... кілт ... ... ол ... бір топ ... ... бірдей студенттер кездесуы
мүмкін, демек кілттің уникалдығы жойылады.
Кейбір бір типті информацияны ұсынатын Pol, National, Group және ... ... ... ... және ... ... ... жазылады.
Осы кодтардың мәндері сәйкес атты ... ... бұл ... ... ... ... береді.
Group кестесінде топтар туралы мағлұматтар ұсынылған представлена
информация о группах. Алаңдар, олардың ... және ... ... ... ... ... ... |GROUP.DB ... | ... ... ... ... | ... ... ... типі ... ... ... ... ... номері |
|NAME ... (15) |Топ ... ... ... (15) ... ... ... ... (100) |Диплом бойынша мамандығы ... ... (10) ... тілі ... ... ... ... типпен ұсынылған. Сонымен қатар Code
алаңы Student, Sheet, Document кестелеріне бүтіндік сілтемесі бар. ... ... Otdel, Special, Language ... ... ... ... ... және тағайындалулары 3.4 кестеде көрсетлген.
кесте 3.4
| ... ... ... ... ... ... ... ... | ... ... |Мәліметтер типі |Сипаттамасы ... ... ... ... ... |
|FIO |Мәтіндік (30) ... ... жөні ... кестесінде оқу жоспары бойынша ... ... ... ұсынылған. Алаңдар, олардың типтері және тағайындалулары 3.5
кестеде көрсетлген.
кесте 3.5
| ... ... ... ... ... ... ... | ... ... |Мәліметтер типі |Сипаттамасы ... ... ... идентификациялық номері |
|Алаң атауы ... типі ... ... ... (30) |Атауы ... ... ... ... информация ұсынылған. Алаңдар,
олардың типтері және тағайындалулары 3.6 кестеде ... ... ... ... ... ... ... о ... ... | ... ... ... типі |Сипаттамасы ... ... ... ... ... ... ... |Номер документа ... ... (30) ... ... ... ... (30) |Фамилия, имя, отчество преподавателя |
|GROUP ... (15) ... ... ... ... (10) |Тип_ведомости ... ... (12) ... ... ... ... ... ведомостері туралы информация
ұсынылған. Алаңдар, олардың типтері және тағайындалулары 3.7 кестеде
көрсетлген.
кесте 3.7
| ... ... ... ... ... оқу ... туралы мағлұматтар ... | ... ... ... типі ... ... ... |Студенттің идентификациялық номері ... ... ... аты ... ... (50) ... ... есімі, жөні |
|BALL ... ... ... ... бұйырықтар туралы жалпы информация ұсынылған.
Алаңдар, ... ... және ... 3.8 ... көрсетлген.
кесте 3.8
| ... ... ... ... ... ... ... ... | ... ... |Мәліметтер типі |Сипаттамасы ... ... ... ... ... ... ... |Бұйырық номері ... ... ... ... ... ... |Күні ... ... |Топ ... ... ... типі ... кестесінде тілдер туралы информация ... ... ... және ... 3.9 ... ... 3.9
| ... ... ... ... ... ... ... | ... ... ... типі |Сипаттамасы ... ... ... ... ... |
|NAME ... (10) ... ... кестесінде студенттер үлттары туралы информация ... ... ... және ... 3.10 ... ... 3.10
| ... ... ... ... ... ... ... | ... ... ... типі |Сипаттамасы ... ... ... идентификациялық номері |
|NAME ... (15) ... ... ... ... бар ... туралы информация ұсынылған.
Алаңдар, олардың типтері және тағайындалулары 3.11 ... ... ... ... ... ... ... |Колледждегі бөлімдер тізімі ... | ... ... ... типі ... ... |Сандық ... ... ... ... ... (15) ... ... ... мамандықтар туралы информация ұсынылған. Алаңдар,
олардың типтері және тағайындалулары 3.12 ... ... ... ... ... ... ... ... ... ... | ... поля |Тип ... ... ... ... ... ... ... ... (100) ... ... кестесінде студенттер тізімі туралы информация ... ... ... және ... 3.13 ... ... ... ... ... ... ... ... ... ... | ... ... ... типі ... ... ... ... ... ... ... |Сандық ... ... ... ... (50) ... ... ... жөні ... |Мәтіндік (15) ... тауы ... ... ... ... 12 ... ... Ыңғайлы жұмысты
істеу үшін кейбір кестелерді индекстеу қажет:
student.DB кестені NATIONAL;
student.DB кестені ... ... ... ... DATA_PR;
GROUP.DB кестені OTDEL;
GROUP.DB кестені SPECIAL;
GROUP.DB ... ... ... ... кестені DOC;
DOCUMENT.DB кестені NOM_DOC;
SPISOK.DB кестені DOC;
Мәліметтерді осылай ұсыну ыңғайлы ... ... ... ... ... сақтауға мүмкіндік береді, өйткені мәліметтер тек
бір жерде орналасады, және де бір ... ... ... ... ... қажеті жоқ.
3.4 Қолданушы инструкциясы
Берілген кестелер мәліметтері бойынша есеп ... ... ... мағлұматтар сұрауларды құрастырғанда қолданылады. Кестелер
журналдарға, ... ... ... болады.
Қолданушы алдымен «Оқытушылар», «Мамандықтар», «Бөлімдер», «Тілдер»,
«Үлттар» ... ... ... Ал екінші кезекпен «Студенттер» және
«Топтар» толтырылуы қажет, өйткені бұл ... ... ... ... ... ... ... Айтылған кестелерге
деректерді енгізіп болған соң құжаттарды құрастыруға болады: студенттерді
оқуға алу және шығару ... ... ... және емтихан бағаларының
ведомостерін құруға.
Қолданушының анықтамалардағы жазылымдарды ағымды деректер бойынша
өзгертуге мүмкіндіктері бар.
Содан соң ... және ... ... ... ... ... жалпы санын қарауға болады.
Содан соң сұрау арқылы ... жеке ... ... ... тізімін және оқушылардың жеке катешкелерін қарап шығуға
және баспаға шығарып алуға болады.
3.5 Бағдарламашы инструкциясы
Әзірленген қосымша С дискісінде ... ... ... ... кірістіреді:
- бағдарламаның деректер базасының файлдарын кірістірген «Bases» бумасын;
- ... және ... ...... ... ... ... Group.px, Group.x03, ... ... ... ... History.db, History.px,
History.x02, History.x03, History.y02, ... ... ... ... ... ... Predmets.db,
Predmets.px, Sheet.db, Sheet.px, Sheet.xg0, Sheet.yg0, Sheetstud.db,
Sheetstud.px, Sheetstud.xg0, ... ... ... ... Spisok.x02, Spisok.y02, Student.db, Student.mb,
Student.px, ... ... ... Student.x08,
Student.x09, Student.y05, Student.y06, Student.y08, ... ... қосу ... ... ОС Windows 9x және ... BDE ... Database Desktop
Қосымша келесі формаларды кірістіреді:
frmMainForm- негізгі меню, негізгі терезе.
frmStudent- «Студенттер» тізімі.
frmAddStud- «Студенттер» анықтамасын толтыруға арналған терезе.
frmNewStud- ... ... ... ... ... ... тізімі.
frmNewGroup- «Топтар» анықтамасын редакциялау терезесі.
frmTeacher- «Оқытушылар» анықтамасы.
frmNewTeacher- «Оқытушылар» анықтамасын редакциялау терезесі.
frmPredmets- «Пәндер» анықтамасы.
frmNewPredmets- «Пәндер» анықтамасын редакциялау терезесі.
frmSpecial- ... ... ... ... ... ... ... анықтамасы.
frmNewOtdel- «Бөлімдер» анықтамасын редакциялау терезесі.
frmLanguage- «Тілдер» анықтамасы.
frmNewLanguage- «Тілдер» анықтамасын редакциялау терезесі.
frmNation- «Үлттар» анықтамасы.
frmNewNation- «Үлттар» ... ... ...... ... ... ... сынық бағаларын радакциялау терезесі.
frmSheet_2 – емтихан бағаларының ведомостерін редакциялау терезесі.
frmRSpisok- оқушылар ... ... есеп ... – оқу орынның аты және директоры туралы мағлұматтарды кірістіретін
параметр ... ... ... ... ... ... алыну туралы бұйырықтар» құжатын редакциялау терезесі.
frmPrikaz_2- «Оқудан шығару туралы бұйырықтар» ... ...... ... ... студенттің құрылымдық ведомосін
шығару сұрауын шақыру.
frmRCard- студент ... ... ... жеке ... ... ... ... алыну туралы бұйырық» есеп беру ... ... ... ... ... ... есеп беру ... баспаға
шығарады.
frmRepSheet_1- «Сынақ бағалары ведомосін» есеп беру түрінде баспаға
шығарады.
frmRepSheet_2- «Емтихан ... ... есеп беру ... ... ... ... есеп беру түрінде баспаға шығарады.
frmRepStudent- студенттің жеке картешкесін есеп беру ... ... ... ... ... баспаға шығарады.
frmRSheet_1- сынақ ведомосі сұрауын айы, тобы, пәні бойынша шақыру.
frmRSheet_2- емтихан ведомосі сұрауын айы, тобы, пәні ... ... ... ... ... ... ... әзірлеу барысында жиі
жүйелік бағдарламалау қолданылады, оның бастапқы сатысында, өзінде бүкіл
жүйенің эффективтілігін және ... ... ... ... ... қамтамасыздандыру сурақтары пайда болады. Бұл
жобалау процесі барысында ... ... ... ... алумен
байланысты. Эргономикалық қамтамасыздандырудың негізгі есебі ... ... ... ... ... тек ... жүйені қолдану
мерзімінде ғана емес, сонымен қатар әзірлеу және техникалық компоненттерді
утилизациялау барысында оптималдау болып табылады. Бұл, ... ... және оны ... ... мәндері, логикалары және тізбектері
бойынша ... ... ... процедуралар және шаралар
комплексін өткізу және орындау нәтижесінде жеткізіледі.
1 Электр қауіпсіздігі
Электр қауіпсіздік ... ... ... тоғының, электр доғаның
және статикалық ... ... ... және ... ... қамтамасыздандыратын, үйымдастырушылық және техникалық шараларды
және құралдарды айтады. Басқа қауіп-қатер көзіне ... ... ... ... және ... ... ... оның адамға
әрекеттестігі жиі оқас ... ... ... тоқ ... мәні осы кездегі адамның күшіне және
осы күш салынған дене учаскесінің кедергісіне ... ... ... ... 127, 220 и 380 В тоқ ... ... ал ... жануы 40-
50 В тоқ күшінде басталуына себепті, айнымалы тоқтың қауіпсіз күші ... ... 42 В, ал ... тоқ үшін 110 В алынады.
Әзірленген бағдарламаның іске асырылуы ... ... ... көзі ретінде күштенуі 220В-қа тең айнымалы тоқ желісі болып
табылады.
Электр тоғымен ... ... ... ... ... ... өңдіру ережелерін және техникалық іске асыру ережелерін
нақты және толығымен орындау;
2. оператордың, қауіпті тоқ күшенуіде жұмыс істейтіндердің, жабдықтар
бөлігіне, үлкен емес тоқ ... ... ... ... ... ... ... изоляцияланбаған бөліктерге,
тиісу мүмкіндіктерін алып тастау;
3. электр тоғымен тиісуден қорғайтын, берік жаппай немесе көп қабатты
айырушы материал қолдануымен ... ... ... ... - ... ... ... коректенуін арнайы
шаңышқы көмегімен жерге қосатын контактімен жанында ғимарат
розеткасының ... ... ... тоқ ... сеніп, тоқ бойынша жүктемесінен
қорғау; сонымен қатар тоқтың қысқаша өшуінен ғимарат ... ... ... операторға оңай тұрған металл бөлімдерін жерге қосатын қысымдарына
қосу, өткені олар изоляцияның зақымдануы нәтижесінде тоқтың қауіпті
күштенуінде болуы мүмкін;
7. жерге ... ... жол ... ... ... жоқ екендігін, сонымен қатар сенімді
изоляцияланғын ... Өрт ... ... деп ... ... және жеке ... ... мемлекеттік және қоғамдық шаралар жүйесін түсінеді.
Электр желісі бар бөлмелердің өрт қауіпсіздігі ГОСТ 12.1.033-81, ГОСТ
12.1.004-85-пен ... ЭЕМ ... ... өрт
қауіпсіздігінің Д категориясына ... ... ... ... керек
(жанбайтын заттар және материалдар суық күйінде). Ғимараттың өртке
тұрақтылығы СниП ... [5] ... I ... ... ... ... ... натурал тастан жасалған, ғимараттың ... ... ... ... ... ... ... азайтатын, яғни ЭЕМ-
нің да қызыун азайтатын арнайы разъемдер қолданылады. ЭЕМ-ні жылу көздері
немесе ... ... ... ... ЭЕМ-на экрандарына күнің
тура сәулелері түспеу керек. ... оның ... және ... ... ... 0,2 ... кем емес ... жерде орнатылуы қажет. ЭЕМ-на
корпусында жылулық режимді бұзбау үшін вентиляциялық ... ... ... ... Ішкі монтаж жоғарғы дәрежелі жылу
ұстағыш сыммен орындалған.
Объектінің өрт қауіпсіздігі қамтамасыздандырылады:
8. өртті алдын алу ... ... ... қорғау жүйесімен;
10. ұйымдастырушылық-техникалық шаралармен.
Өртті бөлмеде алдын алу ... ... ... ... ... ... және де тез жанатын материалдың жоқтығымен
жеткізіледі.
Ұйымдастырушылық-техникалық ... ... ... ... ... ... кірістіреді.
3 Шу деңгейлеріне және дірілдеуге талаптар
Операторға бөгеттердің тигізетін ықпалы туралы және оның ... ... ... ... туады. Операторға әсер ... ... ... ... ... біреуі тұрақты және бүкіл
жұмыс уақытында ықпал етеді, ал кейбіреулері кездейсоқ болады.
Компаниялардың ... ... ... шулардың негізгі көзі
ДЭЕМ-дың шуы болып табылады. Сонымен ... ЭЕМ ... ... ... көзі ... та табылады (айнымалы магнитті алаңдар әсерінен туатын
электромеханикалық құралдар элементтерінің ... ... ... ... құрылымдық шу пайда ... яғни ... ... ... жиіліктердің дыбыстық диапазонындағы
ғимараттардың жабулары, қалқаларынан ... ... емес ... ықпалын жою немесе азайту үшін жұмыс бөлмелерін
изоляциялау керек, ол үшін ... ... қала ... алыс ... Шу ... ... ... отырымдар ароқасында азаяды.
Тұрақты шу мінездемелері – ... ... ... децибелада
4.1. кестесінде
|дБ дәрежесі |63 |
| ... ... ... ... °C |22-24 |23-25 ... ... ... ... м/с |0.1 |0.1-0.2 ... ... ... % |40-60 |40-60 ... 5.2. ... ... ... ... ... ... жоғарғы температурасы жоғарғы ылғалдылықпен қоса
оператордың ... ... ... әсер ... ... жағдайларда сенсомоторлық реакция уақыттары үлкейеді,
қозғалыстардың үйлестігі бұзылады, қателер саны ... ... ... ... функцияларына теріс әсер
тигізеді. Сақталатын информацияның көлемі азаяды, елестету мүмкіншілігі тез
кемиді, елестету және ... ... ... ... ... – 60% ... салыстырмалы ылғалдылықтың адам күйіне ... Ал 99 – 100% ... ... ... ... ... ... өшіріледі және қайнап қызу басталады.
Жұмыс бөлмелерінде қажетті ... және ... ... ... және ... ... циркуляцияны қамтамасыз ететін және ауаны
шан немесе ұлы заттардан тазартатын, жылыту және ... ... іске ... ... ... ... ... орындалады.
4.6 Желдету
Бөлмелерде ауаның дұрыс, гигиеналық талаптарына сай келетін құрамын
ұстау үшін, және оны ұлы ... ... және ... ... ... қолданады.
4.7 Информацияны көрсету жүйелеріне эргономикалық талаптар
Эргономикалық талаптар көру ... ... ... ... ... қажетті параметрлерін анықтайды.
Жарықтық режимнің бағасы жарық деңгейін нормалауды, көру информацияның
көрсеткіштерін эффективті ... ... жету үшін оның ... ... қайта-қайта түсуын кірістіреді. Оптималды деп жарықтың сондай
деңгейі есептелінеді, егер ол ... ... ... ... ... Оператордың көру алаңына кіретін жарықтардың оптималды
диапазондарын орнатқандаадаптация деңгейіне жақын жарықтардың ... ... ету ... көру ... ... ... максималды қайта-қайта
өзгеруі 1:100-ден аспауы қажет. Оптималды деп жарық көзі және ... ... 20:1, ал ... ең ... және ең ... участкілері
арасындағы 40:1 қатынастары есептелінеді.
Экранның жарығы төмен, ал ... ... ... ... ... бейненің контрастілігі сыртқы жарықтандыру кезінде
соншалықты мәнді болады. Информацияны ... ... және оның ... ... ... 3:1 қатынастан аспауы қажет.
Информацияны бейнелеу құралдары келесі техникалық талаптарға жауап
берулері ... ... ... ... 100 Кд/м2 кем ... ... ... үшін растра нүктенің минималды өлшемі 0.6 мм-
ден аспауы керек;
3. бейне контрастілігі 0.8 кем емес;
4. ... ... ... ... ... 72 Гц кем ... бір жолдағы растра нүктелерінің саны 640 кем емес;
6. экранның антибликтік қабықшасының болуы;
7. размер экрана не менее 31 см по ... ... ... ... биіктігі 3.8 мм-ден кем емес;
9. оператор көзіненен экранға дейінгі арақашықтық 40-80 см;
10. монитор, оны 130-200 мм ... ... және ... және ... 10-15( ... ... мүмкіндік беретін,
астында бұралатын подставкамен құралуы керек;
4.8 Оператордың жұмыс орнын ұйымдастыру
Оператордың комфортностты жұмысына ... ... ... ... ... құралдары, машинаны басқару органдары
ықпал етеді. Олар, жұмыс процесі кезінде кедергілерді және ... ... ... адам үшін ... ... болулары қажет және тез
шаршатпауы қажет.
ЭЕМ операторының ... ... ... ... негізгісі- ол
оның жұмыс орнын ұйымдастыру болып табылады. Бұл ... ... ... жай көзбен қарағанда әсері жоқ ... көп ... ... ... ... ... тудыруы мүмкін, қызметтің нәтижесіне
теріс әрекет жасап, қандай да бір ... ... ... монитор экраны алдында көп уақыт жұмыс істеген кезде
оператордың көру ... ... ... және жұмыстан
қанағаттандырлық алмайтына, бастын ауыруына, үйқының бұзылуына, шашағандық,
көздің, мойынның, белдің, қолдың ауыруына ... ... ... ... орны стандарттар талаптарына және еңбек қорғау
бойынша ... ... ... ... ... ... ... орналастырғанда мыналар
ескеріледі:
11. адамның-оператордың ... ... ... ... ... ... ... оператордың орналасу
кеңістігі,
13. оператор және құралдар арасындағы физикалық, көру және есту
байланыстары;
14. ... ... ... ... артық қашықтықтағы
кеңістікті көру;
15. оператормен қолданылатын материалдарды және құжаттарды орналастыру,
жазылымдарын ... ... ... ... және сыртқы бейнеленуі минималды шаршауға
жағдай жасайды. Жұмыс жиқазының конструкциясы ГОСТ талаптарына сай ... ... ... үшін ... ... ... және ... істеп отырғанның
бойына қатысты жиналуын қамтамасыз етуі қажет. ... ... ... кезінде ЭЕМ операторларының еңбек ... ... ... ... орынының эргономикалық талаптары
Жұмыс орынның конструкциясы және оның ... ... ... орналасуы (орындық, басқару органдары, ... ... ... физиологиялық және психологиялық талаптарға
және жұмыс мінездемесіне сәйкес келуі қажет.
Жұмыс орынның берілген конструкциясы ... ... ... ... ... зонасында орындалуын қамтамасыз етеді. Моторлық
алаңның жету зонасы ... ... ... үшін ... ... жазықтықта 4.1 суретте көрсетілген. Еңбек операцияларының
орындалуы жету ... және ... ... ... ... ... ... «жиі» және «өте жиі» қамтамасыз етіледі.
Информацияны бейнелеу құралдарының орналасуы, берілген ... ... ... СниП 2.01.02-85 [5]-ге сәйкес келеді.
Рис. 4.1. Адам деңесіне моторлық алаңның ... 4.2. Жету ... және ... ... ... ... болатын жүктемені азайту үшін, дисплей эргономика көзқарасына
байланысты оптималды ... ... ... ... шеті ... болуы қажет, ал экранға дейінгі арақашықтық 28-ден 60 ... ... ... ... ... ... ... Гц болуы қажет..
Лабораториялардағы жұмыс орындар терезелерге перпендикулярно орналасуы
керек, бұл экранның терезелерден, жасанды жарықтан ... қызу ... яғни ... ... ... газозарядты лампаларды қолданудың
керегі жоқ), тура және тұңық болмауын алып ... үшін ... ... ... ... болуы
Жұмыс орынның жобалау кезінде жасанды және ... ... ... ... ... тек ... ... шешу үшін ғана
қажет емес, сонымен қатар ол жұмыс істеп отырғанның ... ... ... ... етеді. Өнеркәісіптік бөлмелердің рационалды
жарықтандыруы келесілерге қатысты:
16. ... ... және ... ... дұрыс таңдау;
17. жұмыс беттердің жарықтандыруының қажетті деңгейін әзірлеу;
18. соқырлататын жарықтың әрекетін шектеу;
19. тұрақты жарықтандыруды қамтамасыз ету;
20. жарық тасқынының уақыт ... ... ... ... ... ... жарықтандыру гигиеналық нормаларға сәйкес еңбектің
көздік шарттарына сәйкес ... ... ... ГОСТ ... ... дисплеймен жұмыс істегендегі жарықтандыру 200 лк, ал ... ... – 400 лк. ... керек.
Электронды-сәулелік трубканы пайдалану шартына сыртқы жарықтандыру және
байқау арақашықтығы жатады. Сыртқы жарықтандыру үш деңгейге бөлінеді:
21. төмен (10 – 50 ... ... (500 – 1000 ... ... (более 10000 лк).
Егер жарықтандыру 30000 лк артық болса, онда оны азайту үшін шаралар
қолдану қажет.
Нұр шашудың ... ... ... үшін жерленген сақтандыру
экрандарын қолдануға болады, олардың интенсивтілігі азаяды. Сонымен ... және ... ... ... ... Советімен ойланып тапқан,
MPR II спецификациясына жауап берін мониторларды қолдануға ... ... ... ... үшін электромагниттік әсердің ықпал деңгейін
анықтайды: 5 Гц – 2 кГц және 2 – 400 кГц. ... ... ... ... В/м, ал ... – 2.5 В/м аспау қажет, сәйкес магниттік алаң күші 250
және 2.5 нТ болуы қажет.
Қорытынды
Орындалған ... ... ... бүкіл оқу процесі ... іс ... ... істейтін оқу бөлімінің жұмыскерлерінің
кездесетін есептерін шешетін функционалды ДББЖ әзірлеу.
Берілген деректер базасының ... ... ... ... істейтін күшті құралдар қолданылған жоқ, өткені олар көп орын алады
және деректер базасының теориясынан білімді талап етеді.
Windows ... ... ... істейтін қосымшаларды жасауға
арналған күшті Delphi 6.0 құралын қолдану, соңғы қолданушыға бағытталған
аса күрделі емес ... ... ... ... ... базасында сақталған информацияларға бару әдістерін іске асыру,
оны модификациялау бағдарламаның ішінде жасалған, ал ... ... ... шешу үшін оны ... ... жоқ. ... қатар
бағдарламалық интерфейс деректер базасымен жұмыс істеуді ыңғайлатады.
ДББЖ орындалатын барлық функциялар әзірлеу процесі кезінде ... және ... ... ... ... ... ... өңім казіргі кезде бар деректер базасымен және оны басқару
құралдарымен бәсекеге күмәнсіз түсе алады.
ӘДЕБИЕТ
1. Дж. ... ... ... баз данных", Москва, Финансы и
статистика', 1983г.
2. Дейт К., "Введение в системы баз ... ... ... 1980 ... ... М.Р., ... баз данных на персональных ЭВМ", Москва,
'Финансы и статистика', 1992 ... ... П. В. ... 3.0 и ... баз ... Москва 1997г.
5. Джон Матчо, Дэвид Р.Фолкнер. «Delphi» — пер. с ...... ... ... ... в ... Delphi 2.0"
7. Дж. Мартин, "Организация баз данных в вычислительных системах" М: ... ... ... и ... баз ... ... Финансы и
статистика 1995.
9. Горев А., Ахаян Р., ... С. ... ... с
СУБД».СПб.:Питер, 1997.— 704 с.,ил.
10. Атре Ш. Структурный подход к организации баз ... – М.: ... ... 1983. – 320 ... ... В.В., ... В.М. ... баз данных информационных
систем. – М.: ... и ... 1989. – 351 ... ... Г. ... ... баз данных для использования с
микроЭВМ. -М.: Мир, 1991. – 252 с.
13. Кириллов В.В. Структуризованный язык ... (SQL). – СПб.: ... – 80 ... ... М. Теория реляционных баз данных. – М.: Мир, 1987. – 608 ... ... Т., Фрай Дж. ... ... баз ... В 2 кн., – ... 1985. Кн. 1. – 287 с.: Кн. 2. – 320 ... ... Д., ... Ф. ... данных. – М.: Финансы и статистика,
1985. – 344 с.
17. Paradox for Windows: ... ... Под ... Д. А. ... АОЗ’ "Алевар", 1993.
18. Брябрин В.М., "Программное обеспечение ... ЭВМ", ... 1989 ... ... Ю.А. ... ... технологии». М., 1998
20. «Кибернетические диалоговые системы», И.П.Кузнецов.
21. «Рекоммендации по общепользовательскому интерфейсу», ... ... ... ... из сети ... ... коллекция рефератов.
(Адреса хранителей коллекции ... ... ... ... ... ҚОСЫМША
Информациялық тасқын
ПРИЛОЖЕНИЕ В
Функциональная схема
ПРИЛОЖЕНИЕ Г
Схема КТС
ПРИЛОЖЕНИЕ Д
Интерфейс разработанной программы (с указанием переходов между окнами)
ПРИЛОЖЕНИЕ ... и ... ... ... ... «Студенты»
Заполнение таблицы «Студенты»
Справочник «Группы»
Заполнение таблицы «Группа»
Справочник «Преподаватели»
Заполнение таблицы «Преподаватели»
Справочник «Предметы»
Заполнение таблицы «Предметы»
Справочник «Специальности»
Заполнение таблицы «Специальность»
Справочник «Отделения»
Заполнение таблицы «Отделения»
Справочник ... ... ... ... обучения»
Справочник «Национальности»
Заполнение таблицы «Национальности»
Заполнение приказа на зачисления ... ... на ... ... ... на ... ... зачетных оценок
Ведомость зачетных оценок
Приложение Ж
Листинг программы
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ComCtrls, ToolWin, Menus, DB, DBTables, ImgList, Grids, ... = ... ... ... ... ... ... TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
tblStudent: TTable;
tblGroup: TTable;
tblLanguage: TTable;
tblNation: TTable;
tblOtdel: TTable;
tblSpecial: TTable;
tblSpecialCODE: TAutoIncField;
tblSpecialNAME: ... ... ... ... TStringField;
tblLanguageCODE: TAutoIncField;
tblLanguageNAME: TStringField;
tblGroupCODE: TAutoIncField;
ImageList1: TImageList;
tblGroupNAME: TStringField;
tblGroupOTDEL: TIntegerField;
tblGroupSPECIAL: TIntegerField;
tblGroupLANGUAGE: TIntegerField;
tblGroupNazv_Otdel: TStringField;
tblGroupNazv_Special: TStringField;
tblGroupNazv_Lang: TStringField;
N8: TMenuItem;
tblStudentCODE: TAutoIncField;
tblStudentFIO: TStringField;
tblStudentDATA_R: TDateField;
tblStudentADRESS: TStringField;
tblStudentNATION: ... ... ... ... ... ... ... TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
tblStudentDOC_PR: TStringField;
tblStudentDOC_OT: TStringField;
tblDocument: TTable;
tblSpisok: TTable;
tblSpisokCODE: TAutoIncField;
tblSpisokFIO: TIntegerField;
tblSpisokNazv_FIO: TStringField;
tblSpisokDOC: TIntegerField;
tblDocumentCODE: TAutoIncField;
tblDocumentNOM_DOC: TIntegerField;
tblDocumentPRIKAZ: TStringField;
tblDocumentDATA_PR: TDateField;
tblDocumentGROUP: TIntegerField;
N10: TMenuItem;
N11: TMenuItem;
N15: ... ... ... ... TIntegerField;
tblSpisoknGROUP: TStringField;
N14: TMenuItem;
N16: TMenuItem;
N18: TMenuItem;
tblTeacher: TTable;
tblTeacherCODE: TAutoIncField;
tblTeacherFIO: TStringField;
tblPredmets: TTable;
tblPredmetsCODE: TAutoIncField;
tblPredmetsNAME: TStringField;
tblSheet: TTable;
tblSheetStud: TTable;
DataSource3: TDataSource;
DataSource4: TDataSource;
tblSheetStudCODE: ... ... ... ... ... ... ... TIntegerField;
tblSheetGROUP: TIntegerField;
N17: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
tblSheetTYPE: TIntegerField;
tblSheetStudsSTUD: TStringField;
tblDocumentsGROUP: TStringField;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
tblSheetsPREDMET: TStringField;
tblSheetsTEACHER: TStringField;
tblSheetsGROUP: TStringField;
tblSheetsSPECIAL: TStringField;
Gfhv1: TMenuItem;
tblDocumentsSPECIAL: ... ... ... ... TMenuItem;
tblSheetMONT: TStringField;
N27: TMenuItem;
Cgbcjr1: TMenuItem;
tblStudentsNATION: TStringField;
N28: TMenuItem;
procedure N2Click(Sender: ... ... ... N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: ... ... ... ... ... N18Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure tblDocumentTYPEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure N21Click(Sender: TObject);
procedure ... ... ... TField; var Text: ... ... Gfhv1Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure dTLJVJCNM1Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure Cgbcjr1Click(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure N15Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... String[100];
Direct: String[50];
implementation
uses IniFiles, Student, Group, Special, Language, Otdel, Nation, ... ... Sheet_1, Sheet_2, Prikaz, Sheet, Param, ... ... RSpisok, RCard, ... ... ... TObject);
var IniFile: TIniFile;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) +
'Config.ini');
if not IniFile.SectionExists('NAME') ... ... ... not ... ... ... ... := IniFile.ReadString('NAME', 'RECORDS', '');
Direct := IniFile.ReadString('DIR', 'RECORDS', '');
IniFile.Free;
tblLanguage.DatabaseName := ExtractFilePath(Application.ExeName) +
'Bases\';
tblLanguage.Open;
tblNation.DatabaseName := ExtractFilePath(Application.ExeName) + 'Bases\';
tblNation.Open;
tblOtdel.DatabaseName := ExtractFilePath(Application.ExeName) + ... := ... ... := ... + 'Bases\';
tblGroup.Open;
tblStudent.DatabaseName := ExtractFilePath(Application.ExeName) +
'Bases\';
tblStudent.Open;
tblSpisok.DatabaseName := ExtractFilePath(Application.ExeName) + 'Bases\';
tblSpisok.Open;
tblDocument.DatabaseName := ExtractFilePath(Application.ExeName) +
'Bases\';
tblDocumentDATA_PR.EditMask := '!99/99/00;1; ';
tblDocument.Open;
tblTeacher.DatabaseName := ExtractFilePath(Application.ExeName) +
'Bases\';
tblTeacher.Open;
tblPredmets.DatabaseName := ... ... := ... + ... := ... ... ... TObject;
var Action: TCloseAction);
begin
tblSheet.Close;
tblSheetStud.Close;
tblPredmets.Close;
tblTeacher.Close;
tblLanguage.Close;
tblNation.Close;
tblOtdel.Close;
tblSpecial.Close;
tblGroup.Close;
tblStudent.Close;
tblSpisok.Close;
tblDocument.Close;
end;
procedure TfrmMainForm.N2Click(Sender: TObject);
begin
Application.CreateForm(TfrmStudent, frmStudent);
frmStudent.Outline1.Lines.Clear;
frmStudent.Outline1.Lines.Add('Группы');
tblGroup.First;
while not tblGroup.Eof ... ... ... ... ... ... TObject);
begin
Application.CreateForm(TfrmOtdel, frmOtdel);
frmOtdel.Show;
end;
procedure TfrmMainForm.N7Click(Sender: TObject);
begin
Application.CreateForm(TfrmSpecial, frmSpecial);
frmSpecial.Show;
end;
procedure TfrmMainForm.N6Click(Sender: TObject);
begin
Application.CreateForm(TfrmLanguage, frmLanguage);
frmLanguage.Show;
end;
procedure TfrmMainForm.N8Click(Sender: TObject);
begin
Application.CreateForm(TfrmNation, frmNation);
frmNation.Show;
end;
procedure TfrmMainForm.N12Click(Sender: TObject);
var n: Integer;
begin
Application.CreateForm(TfrmPrikaz_1, frmPrikaz_1);
tblDocument.Last;
n := ... := ... := n + ... ... ... n: Integer;
begin
Application.CreateForm(TfrmPrikaz_2, frmPrikaz_2);
tblDocument.Last;
n := tblDocumentNOM_DOC.AsInteger;
tblDocument.Append;
tblDocumentTYPE.AsInteger := 2;
tblDocumentNOM_DOC.AsInteger := n + 1;
frmPrikaz_2.ShowModal;
end;
procedure TfrmMainForm.N16Click(Sender: TObject);
begin
Application.CreateForm(TfrmTeacher, frmTeacher);
frmTeacher.Show;
end;
procedure TfrmMainForm.N18Click(Sender: TObject);
begin
Application.CreateForm(TfrmPredmets, ... ... ... n: ... ... := tblSheetDOC.AsInteger;
tblSheet.Append;
tblSheetTYPE.AsInteger := 1;
tblSheetDOC.AsInteger := n + 1;
frmSheet_1.ShowModal;
end;
procedure TfrmMainForm.N20Click(Sender: TObject);
var n: Integer;
begin
Application.CreateForm(TfrmSheet_2, frmSheet_2);
tblSheet.Last;
n := tblSheetDOC.AsInteger;
tblSheet.Append;
tblSheetTYPE.AsInteger := ... := n + ... ... ... Text: String; ... ... ... = 1 then
Text := ' Приказ о зачислении';
if tblDocumentTYPE.AsInteger = 2 then
Text := ' Приказ об отчислении'
end;
procedure TfrmMainForm.tblSheetTYPEGetText(Sender: ... Text: String; ... ... tblSheetTYPE.AsInteger = 1 then
Text := ' Аттестационная ведомость';
if ... = 2 ... := ' ... ... TfrmMainForm.N21Click(Sender: TObject);
begin
Application.CreateForm(TfrmPrikaz, frmPrikaz);
frmPrikaz.Show;
end;
procedure TfrmMainForm.N23Click(Sender: TObject);
begin
Application.CreateForm(TfrmSheet, frmSheet);
frmSheet.Show;
end;
procedure TfrmMainForm.Gfhv1Click(Sender: TObject);
begin
Application.CreateForm(TfrmParam, ... := ... := ... TfrmMainForm.N24Click(Sender: TObject);
begin
Application.CreateForm(TfrmRSvodStud, frmRSvodStud);
frmRSvodStud.ShowModal;
end;
procedure TfrmMainForm.dTLJVJCNM1Click(Sender: TObject);
begin
Application.CreateForm(TfrmRSheet_1, frmRSheet_1);
frmRSheet_1.ShowModal;
end;
procedure TfrmMainForm.N26Click(Sender: TObject);
begin
Application.CreateForm(TfrmRSheet_2, frmRSheet_2);
frmRSheet_2.ShowModal;
end;
procedure TfrmMainForm.Cgbcjr1Click(Sender: TObject);
begin
Application.CreateForm(TfrmRSpisok, frmRSpisok);
frmRSpisok.ShowModal;
end;
procedure TfrmMainForm.N28Click(Sender: TObject);
begin
Application.CreateForm(TfrmRCard, frmRCard);
frmRCard.ShowModal;
end;
procedure TfrmMainForm.N15Click(Sender: TObject);
begin
frmAvtor.ShowModal;
end;
end.
unit Student;
interface
uses
Windows, Messages, ... ... Classes, ... ... ImgList, DB, ... ToolWin, ... ... Grids,
DBGrids, Outline;
type
TfrmStudent = class(TForm)
DBGrid1: TDBGrid;
Panel2: TPanel;
Label2: TLabel;
ToolBar1: ... ... ... TToolButton;
ToolButton4: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton8: TToolButton;
DataSource1: TDataSource;
Outline1: TOutline;
Splitter1: TSplitter;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ToolButton2Click(Sender: TObject);
procedure Outline1DblClick(Sender: ... ... ... ... ... ... ... ToolButton13Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... ... NewStudent, RepStudent;
{$R *.dfm}
procedure TfrmStudent.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmStudent.ToolButton1Click(Sender: TObject);
begin
frmMainForm.tblStudent.Append;
Application.CreateForm(TfrmNewStud, frmNewStud);
frmNewStud.ShowModal;
end;
procedure TfrmStudent.ToolButton2Click(Sender: TObject);
begin
frmMainForm.tblStudent.Edit;
Application.CreateForm(TfrmNewStud, frmNewStud);
frmNewStud.ShowModal;
end;
procedure ... ... n: ... ... = 1 then
frmMainForm.tblStudent.Filtered := False
else
if Outline1.SelectedItem = Outline1.ItemCount - 1 then
begin
frmMainForm.tblStudent.Filter := 'Group = ... := ... ... = ... ... := 'Group = ... := True;
end
else
begin
frmMainForm.tblGroup.Locate('NAME',Outline1.Items[Outline1.SelectedItem].Tex
t,[]);
n := frmMainForm.tblGroupCODE.AsInteger;
frmMainForm.tblStudent.FilterOptions := [foCaseInsensitive];
frmMainForm.tblStudent.Filter := 'Group ='+ IntToStr(n);
frmMainForm.tblStudent.Filtered := ... ... ... b: Boolean;
begin
b := True;
with frmMainForm do
begin
if tblStudent.RecordCount > 0 then
if tblSpisok.Locate('FIO', tblStudentCODE.AsInteger, []) then
b := False;
if tblSheetStud.Locate('STUD', tblStudentCODE.AsInteger, []) then
b := ... b ... ... запись?','Удаление',MB_YESNO +
MB_ICONINFORMATION + MB_DEFBUTTON2) = IDYES then
tblStudent.Delete;
tblStudent.ApplyUpdates;
tblStudent.CommitUpdates
end
else
Application.MessageBox('Не ... ... ... ... + ... ... TObject);
begin
Application.CreateForm(TfrmRepStudent, frmRepStudent);
frmRepStudent.QuickRep1.Print
end;
procedure TfrmStudent.ToolButton13Click(Sender: TObject);
begin
Application.CreateForm(TfrmRepStudent, frmRepStudent);
frmRepStudent.QuickRep1.Preview
end;
procedure TfrmStudent.ToolButton9Click(Sender: TObject);
begin
if not ... then ... ... TObject);
begin
if not frmMainForm.tblStudent.Bof then frmMainForm.tblStudent.Prior
end;
procedure TfrmStudent.ToolButton11Click(Sender: TObject);
begin
if not frmMainForm.tblStudent.Eof then frmMainForm.tblStudent.Next
end;
procedure TfrmStudent.ToolButton8Click(Sender: TObject);
begin
if not frmMainForm.tblStudent.Eof then frmMainForm.tblStudent.Last
end;
end.
unit AddStudent;
interface
uses
Windows, Messages, ... ... Classes, ... ... StdCtrls, DB, ExtCtrls, Grids, DBGrids, DBTables;
type
TfrmAddStud = class(TForm)
DBGrid1: ... ... ... ... TButton;
Panel2: TPanel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: ... Private ... ... Public ... ... ... MainForm;
{$R *.dfm}
procedure TfrmAddStud.Button1Click(Sender: TObject);
begin
if (Tag = 1) or (Tag = 2) then
begin
frmMainForm.tblSpisok.Append;
frmMainForm.tblSpisokDOC.AsInteger :=
frmMainForm.tblDocumentNOM_DOC.AsInteger;
frmMainForm.tblSpisokFIO.AsInteger :=
frmMainForm.tblStudentCODE.AsInteger;
if Tag = 2 ... ... ... ... TfrmAddStud.Button2Click(Sender: TObject);
begin
Close
end;
procedure TfrmAddStud.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmMainForm.tblStudent.Filtered := False;
frmMainForm.tblSpisok.Refresh;
Action := ... ... in ... ... in ... ... in 'NewStudent.pas' {frmNewStud},
Group in 'Group.pas' {frmGroup},
NewGroup in ... ... in ... ... in ... ... in ... {frmLanguage},
NewLanguage in 'NewLanguage.pas' {frmNewLanguage},
Otdel in 'Otdel.pas' {frmOtdel},
NewOtdel in 'NewOtdel.pas' {frmNewOtdel},
Nation in 'Nation.pas' {frmNation},
NewNation in 'NewNation.pas' {frmNewNation},
AddStudent in ... ... in ... ... in 'Prikaz_2.pas' {frmPrikaz_2},
Teacher in 'Teacher.pas' {frmTeacher},
NewTeacher in 'NewTeacher.pas' {frmNewTeacher},
Predmets in 'Predmets.pas' {frmPredmets},
NewPredmets in 'NewPredmets.pas' {frmNewPredmets},
Sheet_1 in 'Sheet_1.pas' {frmSheet_1},
Sheet_2 in ... ... in ... ... in ... {frmSheet},
RepSheet_1 in 'RepSheet_1.pas' {frmRepSheet_1},
RepSheet_2 in 'RepSheet_2.pas' {frmRepSheet_2},
Param in 'Param.pas' {frmParam},
RepPrikaz_1 in 'RepPrikaz_1.pas' {frmRepPrikaz_1},
RepPrikaz_2 in 'RepPrikaz_2.pas' {frmRepPrikaz_2},
RepSvodStud in 'RepSvodStud.pas' ... in ... ... in ... ... in ... ... in 'RepSpisok.pas' {frmRepSpisok},
RSpisok in 'RSpisok.pas' {frmRSpisok},
RepStudent in 'RepStudent.pas' ... in ... ... in 'Avtor.pas' {frmAvtor};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'Учебная часть';
Application.CreateForm(TfrmMainForm, frmMainForm);
Application.CreateForm(TfrmAvtor, frmAvtor);
Application.Run;
end.
unit Group;
interface
uses
Windows, ... ... ... Classes, ... ... ImgList, DB, ... ToolWin, StdCtrls, ExtCtrls, Grids,
DBGrids, Menus;
type
TfrmGroup = class(TForm)
DBGrid1: TDBGrid;
Panel2: TPanel;
Label2: TLabel;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: ... ... ... TToolButton;
ToolButton8: TToolButton;
DataSource1: TDataSource;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ... ... ... ... ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmGroup: ... ... ... *.dfm}
procedure TfrmGroup.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmGroup.ToolButton1Click(Sender: ... ... ... ... frmNewGroup);
frmNewGroup.ShowModal;
end;
procedure TfrmGroup.ToolButton9Click(Sender: TObject);
begin
if not frmMainForm.tblGroup.Bof then frmMainForm.tblGroup.First;
end;
procedure TfrmGroup.ToolButton10Click(Sender: TObject);
begin
if not ... then ... ... ... not frmMainForm.tblGroup.Eof then frmMainForm.tblGroup.Next;
end;
procedure TfrmGroup.ToolButton8Click(Sender: TObject);
begin
if not frmMainForm.tblGroup.Eof then frmMainForm.tblGroup.Last;
end;
procedure TfrmGroup.ToolButton3Click(Sender: TObject);
var b: Boolean;
begin
b := True;
with frmMainForm do
begin
if ... > 0 ... ... ... []) ... := False;
if tblDocument.Locate('GROUP', tblGroupCODE.AsInteger, []) then
b := False;
if tblSpisok.Locate('GROUP', tblGroupCODE.AsInteger, []) then
b := False;
if tblSheet.Locate('GROUP', tblGroupCODE.AsInteger, []) then
b := ... b ... ... ... ... + ... = IDYES then
tblGroup.Delete
end
else
Application.MessageBox('Не возможно удалить, объект используется',
'Ошибка',MB_OK + MB_ICONERROR)
end
end;
end.
unit Language;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, ... ... DB, ... ToolWin, ... ... Grids, ... = class(TForm)
DBGrid1: TDBGrid;
Panel2: TPanel;
Label2: TLabel;
DataSource1: TDataSource;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton8: TToolButton;
procedure FormClose(Sender: TObject; var Action: ... ... ... ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations ... ... ... NewLanguage;
{$R *.dfm}
procedure TfrmLanguage.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmLanguage.ToolButton1Click(Sender: TObject);
begin
frmMainForm.tblLanguage.Append;
Application.CreateForm(TfrmNewLanguage, frmNewLanguage);
frmNewLanguage.ShowModal;
end;
procedure TfrmLanguage.ToolButton2Click(Sender: ... ... ... ... not frmMainForm.tblLanguage.Bof then frmMainForm.tblLanguage.First;
end;
procedure TfrmLanguage.ToolButton10Click(Sender: TObject);
begin
if not frmMainForm.tblLanguage.Bof then frmMainForm.tblLanguage.Prior;
end;
procedure TfrmLanguage.ToolButton11Click(Sender: TObject);
begin
if not frmMainForm.tblLanguage.Eof then frmMainForm.tblLanguage.Next;
end;
procedure TfrmLanguage.ToolButton8Click(Sender: TObject);
begin
if not frmMainForm.tblLanguage.Eof then ... ... ... b: Boolean;
begin
b := True;
with frmMainForm do
begin
if tblLanguage.RecordCount > 0 ... ... ... []) ... := False;
if b then
begin
if Application.MessageBox('Удалить запись?','Удаление',MB_YESNO +
MB_ICONINFORMATION + MB_DEFBUTTON2) = IDYES ... ... ... ... ... + ... ... Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Grids, DBGrids;
type
TfrmNation = ... ... ... ... ... TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton8: TToolButton;
DataSource1: TDataSource;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ... ... ... TObject);
procedure ToolButton8Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ToolButton3Click(Sender: TObject);
private
{ Private ... ... Public ... ... ... MainForm, NewNation;
{$R *.dfm}
procedure TfrmNation.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmNation.ToolButton1Click(Sender: TObject);
begin
frmMainForm.tblNation.Append;
Application.CreateForm(TfrmNewNation, frmNewNation);
frmNewNation.ShowModal;
end;
procedure TfrmNation.ToolButton2Click(Sender: TObject);
begin
frmMainForm.tblNation.Edit;
Application.CreateForm(TfrmNewNation, frmNewNation);
frmNewNation.ShowModal;
end;
procedure TfrmNation.ToolButton9Click(Sender: TObject);
begin
if not ... then ... ... ... not ... then frmMainForm.tblNation.Prior;
end;
procedure TfrmNation.ToolButton11Click(Sender: TObject);
begin
if not frmMainForm.tblNation.Eof then ... ... ... not ... then ... ... ... b: Boolean;
begin
b := True;
with frmMainForm do
begin
if tblNation.RecordCount > 0 then
if tblGroup.Locate('NATION', tblNationCODE.AsInteger, []) then
b := False;
if b ... ... ... ... + ... = IDYES ... ... удалить, объект используется',
'Ошибка',MB_OK + MB_ICONERROR)
end
end;
end.
unit NewGroup;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, StdCtrls, DBCtrls, ... = ... ... ... ... ... ... TButton;
Label6: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label3: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label4: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
DataSource2: TDataSource;
DataSource1: TDataSource;
DataSource3: TDataSource;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private ... ... Public ... ... TfrmNewGroup;
implementation
uses MainForm, Group;
{$R *.dfm}
procedure TfrmNewGroup.Button1Click(Sender: TObject);
begin
frmMainForm.tblGroup.Post;
Close
end;
procedure TfrmNewGroup.Button2Click(Sender: TObject);
begin
frmMainForm.tblGroup.Cancel;
Close
end;
procedure TfrmNewGroup.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree
end;
end.
unit NewNation;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, ... ... ... Mask, ... = class(TForm)
Label2: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: ... Private ... ... Public declarations }
end;
var
frmNewNation: TfrmNewNation;
implementation
uses MainForm, Nation;
{$R *.dfm}
procedure TfrmNewNation.Button1Click(Sender: TObject);
begin
frmMainForm.tblNation.Post;
Close
end;
procedure TfrmNewNation.Button2Click(Sender: TObject);
begin
frmMainForm.tblNation.Cancel;
Close
end;
procedure TfrmNewNation.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := ... ... ... ... ... Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Mask, DBCtrls;
type
TfrmNewOtdel = class(TForm)
Label2: TLabel;
GroupBox1: TGroupBox;
Label1: ... ... ... ... ... ... ... TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmNewOtdel: TfrmNewOtdel;
implementation
uses MainForm, Otdel;
{$R *.dfm}
procedure TfrmNewOtdel.Button1Click(Sender: TObject);
begin
frmMainForm.tblOtdel.Post;
Close
end;
procedure TfrmNewOtdel.Button2Click(Sender: ... ... ... Action: ... := ... ... Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Mask, DBCtrls;
type
TfrmNewPredmets = class(TForm)
Label2: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: ... ... ... ... TObject; var Action: ... Private ... ... Public declarations }
end;
var
frmNewPredmets: TfrmNewPredmets;
implementation
uses MainForm, Predmets;
{$R *.dfm}
procedure TfrmNewPredmets.Button1Click(Sender: TObject);
begin
frmMainForm.tblPredmets.Post;
Close
end;
procedure TfrmNewPredmets.Button2Click(Sender: TObject);
begin
frmMainForm.tblPredmets.Cancel;
Close
end;
procedure ... ... Action: ... := ... ... ... SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Mask, DBCtrls;
type
TfrmNewSpecial = class(TForm)
Label2: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: ... ... ... FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmNewSpecial: TfrmNewSpecial;
implementation
uses MainForm, ... ... ... ... TfrmNewSpecial.Button2Click(Sender: TObject);
begin
frmMainForm.tblSpecial.Cancel;
Close
end;
procedure TfrmNewSpecial.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree
end;
end.
unit NewTeacher;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, ... ... Mask, ... = ... ... ... ... TDBEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmNewTeacher: TfrmNewTeacher;
implementation
uses MainForm, ... ... ... ... ... TObject);
begin
frmMainForm.tblTeacher.Cancel;
Close
end;
procedure TfrmNewTeacher.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree
end;
end.
unit Otdel;
interface
uses
Windows, Messages, ... ... Classes, ... ... DB, ... ToolWin, ... ExtCtrls, Grids, DBGrids;
type
TfrmOtdel = class(TForm)
DBGrid1: TDBGrid;
Panel2: TPanel;
Label2: TLabel;
DataSource1: TDataSource;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton8: TToolButton;
procedure ... TObject; var Action: ... ... TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations ... ... ... ... ... ... TObject; var Action: ... := caFree;
end;
procedure TfrmOtdel.ToolButton1Click(Sender: TObject);
begin
frmMainForm.tblOtdel.Append;
Application.CreateForm(TfrmNewOtdel, frmNewOtdel);
frmNewOtdel.ShowModal;
end;
procedure TfrmOtdel.ToolButton2Click(Sender: TObject);
begin
frmMainForm.tblOtdel.Edit;
Application.CreateForm(TfrmNewOtdel, frmNewOtdel);
frmNewOtdel.ShowModal;
end;
procedure TfrmOtdel.ToolButton9Click(Sender: TObject);
begin
if not frmMainForm.tblOtdel.Bof then frmMainForm.tblOtdel.First;
end;
procedure TfrmOtdel.ToolButton10Click(Sender: TObject);
begin
if not frmMainForm.tblOtdel.Bof then frmMainForm.tblOtdel.Prior;
end;
procedure ... ... not ... then ... ... ... not frmMainForm.tblOtdel.Eof then frmMainForm.tblOtdel.Last;
end;
procedure TfrmOtdel.ToolButton3Click(Sender: TObject);
var b: Boolean;
begin
b := True;
with frmMainForm do
begin
if tblOtdel.RecordCount > 0 ... ... ... []) then
b := False;
if b then
begin
if Application.MessageBox('Удалить запись?','Удаление',MB_YESNO +
MB_ICONINFORMATION + MB_DEFBUTTON2) = IDYES ... ... ... объект используется',
'Ошибка',MB_OK + MB_ICONERROR)
end
end;
end.
unit Param;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, StdCtrls, DBCtrls, Mask, ... = ... ... TGroupBox;
Label1: TLabel;
Label6: TLabel;
Button1: TButton;
DataSource1: TDataSource;
Button2: TButton;
Edit1: TEdit;
DBLookupCombo1: TDBLookupCombo;
procedure ... ... ... TObject; var Action: ... Private ... ... Public declarations }
end;
var
frmParam: TfrmParam;
implementation
uses MainForm, IniFiles;
{$R *.dfm}
procedure TfrmParam.Button2Click(Sender: TObject);
begin
Close
end;
procedure ... TObject; var Action: ... IniFile: ... ... = mrOK then
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) +
'Config.ini');
IniFile.WriteString('NAME', 'RECORDS', Edit1.Text);
IniFile.WriteString('DIR', 'RECORDS', ... := ... := ... := ... ... ... SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, ComCtrls, ToolWin, ... ... Grids, ... = ... TDBGrid;
Panel2: TPanel;
Label2: TLabel;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton8: TToolButton;
DataSource1: TDataSource;
procedure FormClose(Sender: TObject; var Action: ... ... ... ... TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmPredmets: TfrmPredmets;
implementation
uses MainForm, NewPredmets;
{$R ... ... ... Action: ... := ... ... ... frmNewPredmets);
frmNewPredmets.ShowModal;
end;
procedure TfrmPredmets.ToolButton2Click(Sender: TObject);
begin
frmMainForm.tblPredmets.Edit;
Application.CreateForm(TfrmNewPredmets, frmNewPredmets);
frmNewPredmets.ShowModal;
end;
procedure TfrmPredmets.ToolButton3Click(Sender: TObject);
var b: Boolean;
begin
b := True;
with frmMainForm do
begin
if tblPredmets.RecordCount > 0 then
if ... ... []) ... := ... b ... ... ... +
MB_ICONINFORMATION + MB_DEFBUTTON2) = IDYES then
tblPredmets.Delete
end
else
Application.MessageBox('Не возможно удалить, объект используется',
'Ошибка',MB_OK + MB_ICONERROR)
end
end;
procedure ... ... not ... then ... ... ... not frmMainForm.tblPredmets.Bof then frmMainForm.tblPredmets.Prior;
end;
procedure TfrmPredmets.ToolButton11Click(Sender: TObject);
begin
if not frmMainForm.tblPredmets.Eof then frmMainForm.tblPredmets.Next;
end;
procedure ... ... not ... then frmMainForm.tblPredmets.Last;
end;
end.
unit Prikaz;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, ... ToolWin, ... ... Grids, ... = ... ... ... TLabel;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton8: TToolButton;
DataSource1: TDataSource;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
procedure ToolButton1Click(Sender: TObject);
procedure ... ... ... ... ... ... ToolButton11Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: ... ... TObject; var Action: ... ToolButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmPrikaz: TfrmPrikaz;
implementation
uses MainForm, Prikaz_1, ... ... ... TObject);
var n: Integer;
begin
if frmMainForm.tblDocumentTYPE.AsInteger = 1 then
begin
Application.CreateForm(TfrmPrikaz_1, frmPrikaz_1);
frmMainForm.tblDocument.Last;
n := ... := ... := n + ... ... := frmMainForm.tblDocumentNOM_DOC.AsInteger;
frmMainForm.tblDocument.Append;
frmMainForm.tblDocumentTYPE.AsInteger := 2;
frmMainForm.tblDocumentNOM_DOC.AsInteger := n + 1;
frmPrikaz_2.ShowModal;
end
end;
procedure TfrmPrikaz.ToolButton2Click(Sender: TObject);
begin
if frmMainForm.tblDocumentTYPE.AsInteger = 1 then
begin
frmMainForm.tblDocument.Edit;
Application.CreateForm(TfrmPrikaz_1, frmPrikaz_1);
frmPrikaz_1.ShowModal;
end
else
begin
frmMainForm.tblDocument.Edit;
Application.CreateForm(TfrmPrikaz_2, frmPrikaz_2);
frmPrikaz_2.ShowModal;
end
end;
procedure TfrmPrikaz.ToolButton9Click(Sender: ... not ... then ... TfrmPrikaz.ToolButton10Click(Sender: TObject);
begin
if not frmMainForm.tblDocument.Bof then frmMainForm.tblDocument.Prior;
end;
procedure TfrmPrikaz.ToolButton11Click(Sender: TObject);
begin
if not frmMainForm.tblDocument.Eof then frmMainForm.tblDocument.Next;
end;
procedure ... ... not ... then ... ... ... ... TObject);
begin
//
end;
procedure TfrmPrikaz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree
end;
procedure TfrmPrikaz.ToolButton3Click(Sender: TObject);
begin
if frmMainForm.tblDocument.RecordCount > 0 then
if frmMainForm.tblDocumentTYPE.AsInteger = 1 ... ... ... ... + MB_DEFBUTTON2) = IDYES then
while not frmMainForm.tblSpisok.Eof do
begin
frmMainForm.tblStudent.Locate('CODE',
frmMainForm.tblSpisokFIO.AsInteger, []);
frmMainForm.tblStudent.Edit;
frmMainForm.tblStudentGROUP.AsVariant := Null;
frmMainForm.tblStudentDATA_PR.AsVariant := Null;
frmMainForm.tblStudent.Post;
frmMainForm.tblSpisok.Delete;
end;
frmMainForm.tblSpisok.ApplyUpdates;
frmMainForm.tblSpisok.CommitUpdates;
frmMainForm.tblStudent.ApplyUpdates;
frmMainForm.tblStudent.CommitUpdates;
frmMainForm.tblDocument.Delete
end
else
begin
if Application.MessageBox('Удалить запись?','Удаление',MB_YESNO +
MB_ICONINFORMATION + MB_DEFBUTTON2) = IDYES ... not ... ... ... :=
frmMainForm.tblSpisokGROUP.AsInteger;
frmMainForm.tblStudentDATA_OT.AsVariant := Null;
frmMainForm.tblStudent.Post;
frmMainForm.tblSpisok.Delete;
end;
frmMainForm.tblSpisok.ApplyUpdates;
frmMainForm.tblSpisok.CommitUpdates;
frmMainForm.tblStudent.ApplyUpdates;
frmMainForm.tblStudent.CommitUpdates;
frmMainForm.tblDocument.Delete
end
end;
end.
unit Prikaz_1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, ComCtrls, ToolWin, DBCtrls, StdCtrls, Mask, ... ... = ... ... ... ... TButton;
Button3: TButton;
Panel2: TPanel;
Label2: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: ... ... ... ... ... ... ... FormClose(Sender: TObject; var Action: TCloseAction);
procedure ToolButton1Click(Sender: TObject);
procedure ... ... ... TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmPrikaz_1: TfrmPrikaz_1;
implementation
uses MainForm, AddStudent, RepPrikaz_1;
{$R *.dfm}
procedure TfrmPrikaz_1.FormClose(Sender: TObject;
var Action: ... ... = mrOK ... ... ... ... ... приказа!','Ошибка',MB_OK +
MB_ICONERROR);
Action := caNone;
Exit
end;
if frmMainForm.tblDocumentDATA_PR.IsNull then
begin
Application.MessageBox('Не указана Күні приказа!','Ошибка',MB_OK +
MB_ICONERROR);
Action := caNone;
Exit
end;
if frmMainForm.tblDocumentGROUP.IsNull then
begin
Application.MessageBox('Не указана группа!','Ошибка',MB_OK +
MB_ICONERROR);
Action := caNone;
Exit
end;
if frmMainForm.tblSpisok.RecordCount = 0 ... ... ... ... := caNone;
Exit
end;
frmMainForm.tblSpisok.First;
while not frmMainForm.tblSpisok.Eof do
begin
frmMainForm.tblStudent.Locate('CODE',
frmMainForm.tblSpisokFIO.AsInteger, []);
frmMainForm.tblStudent.Edit;
frmMainForm.tblStudentDATA_PR.AsDateTime :=
frmMainForm.tblDocumentDATA_PR.AsDateTime;
frmMainForm.tblStudentGROUP.AsInteger :=
frmMainForm.tblDocumentGROUP.AsInteger;
frmMainForm.tblStudent.Post;
frmMainForm.tblSpisok.Next;
end;
frmMainForm.tblSpisok.ApplyUpdates;
frmMainForm.tblSpisok.CommitUpdates;
frmMainForm.tblStudent.ApplyUpdates;
frmMainForm.tblStudent.CommitUpdates;
frmMainForm.tblDocument.Post;
end
else
begin
frmMainForm.tblDocument.Cancel;
frmMainForm.tblSpisok.CancelUpdates;
frmMainForm.tblStudent.CancelUpdates;
end;
Action := caFree
end;
procedure TfrmPrikaz_1.ToolButton1Click(Sender: TObject);
begin
Application.CreateForm(TfrmAddStud, frmAddStud);
frmMainForm.tblStudent.Filtered := False;
frmMainForm.tblStudent.Filter := 'Group = ... := ... := ... ... ... ... > 0 then
if Application.MessageBox('Удалить запись?','Удаление',MB_YESNO +
MB_ICONINFORMATION + MB_DEFBUTTON2) = IDYES then
frmMainForm.tblSpisok.Delete
end;
procedure TfrmPrikaz_1.Button3Click(Sender: TObject);
begin
Application.CreateForm(TfrmRepPrikaz_1, frmRepPrikaz_1);
frmRepPrikaz_1.qNAME.Caption := NameOrg;
frmRepPrikaz_1.qDIR.Caption := ... ... ... SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, ComCtrls, ToolWin, DBCtrls, ... Mask, ... ... = ... ... ... TButton;
Button2: TButton;
Button3: TButton;
Panel2: TPanel;
Label2: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label3: TLabel;
DBEdit1: ... ... ... ... ... ... ... TObject; var Action: TCloseAction);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmPrikaz_2: TfrmPrikaz_2;
implementation
uses ... ... ... *.dfm}
procedure TfrmPrikaz_2.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if ModalResult = mrOK then
begin
if frmMainForm.tblDocumentPRIKAZ.IsNull then
begin
Application.MessageBox('Не указан ... ... ... := ... ... ... ... Күні приказа!','Ошибка',MB_OK +
MB_ICONERROR);
Action := caNone;
Exit
end;
if frmMainForm.tblSpisok.RecordCount = 0 ... ... ... ... := ... not ... do
begin
frmMainForm.tblStudent.Locate('CODE',
frmMainForm.tblSpisokFIO.AsInteger, []);
frmMainForm.tblStudent.Edit;
frmMainForm.tblStudentDATA_OT.AsDateTime :=
frmMainForm.tblDocumentDATA_PR.AsDateTime;
frmMainForm.tblStudentGROUP.AsInteger := 0;
frmMainForm.tblStudent.Post;
frmMainForm.tblSpisok.Next;
end;
frmMainForm.tblSpisok.ApplyUpdates;
frmMainForm.tblSpisok.CommitUpdates;
frmMainForm.tblStudent.ApplyUpdates;
frmMainForm.tblStudent.CommitUpdates;
frmMainForm.tblDocument.Post;
end
else
begin
frmMainForm.tblDocument.Cancel;
frmMainForm.tblSpisok.CancelUpdates;
frmMainForm.tblStudent.CancelUpdates;
end;
Action := caFree
end;
procedure TfrmPrikaz_2.ToolButton1Click(Sender: TObject);
begin
Application.CreateForm(TfrmAddStud, frmAddStud);
frmMainForm.tblStudent.Filtered := False;
frmMainForm.tblStudent.Filter := 'Group NULL';
frmMainForm.tblStudent.Filtered := True;
frmAddStud.Tag := 2;
frmAddStud.ShowModal;
end;
procedure ... ... ... > 0 ... ... запись?','Удаление',MB_YESNO +
MB_ICONINFORMATION + MB_DEFBUTTON2) = IDYES then
frmMainForm.tblSpisok.Delete
end;
procedure TfrmPrikaz_2.Button3Click(Sender: TObject);
begin
Application.CreateForm(TfrmRepPrikaz_2, frmRepPrikaz_2);
frmRepPrikaz_2.qNAME.Caption := NameOrg;
frmRepPrikaz_2.qDIR.Caption := ... ... ... SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, StdCtrls, DBCtrls;
type
TfrmRCard = class(TForm)
Label2: TLabel;
GroupBox1: TGroupBox;
Label6: TLabel;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
DBLookupComboBox1: TDBLookupComboBox;
procedure ... ... ... ... ... TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmRCard: TfrmRCard;
implementation
uses MainForm, RepStudent;
var n: Integer;
{$R *.dfm}
procedure TfrmRCard.DBLookupComboBox1CloseUp(Sender: ... := ... ... ... ... := False;
frmMainForm.tblStudent.Filter := 'CODE = ' + IntToStr(n);
frmMainForm.tblStudent.Filtered := ... ... ... ... TObject; var Action: ... := ... := caFree
end;
end.
unit RepPrikaz_1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TfrmRepPrikaz_1 = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel3: TQRLabel;
QRDBText1: ... ... ... ... TQRLabel;
QRShape2: TQRShape;
QRLabel7: TQRLabel;
QRDBText4: TQRDBText;
QRLabel10: TQRLabel;
qNAME: TQRLabel;
SummaryBand1: TQRBand;
QRLabel9: TQRLabel;
DetailBand1: TQRBand;
QRShape8: TQRShape;
QRShape10: TQRShape;
QRDBText9: TQRDBText;
QRSysData1: TQRSysData;
QRLabel2: TQRLabel;
QRLabel11: TQRLabel;
QRDBText5: TQRDBText;
QRMemo1: TQRMemo;
qDIR: ... Private ... ... Public ... ... TfrmRepPrikaz_1;
implementation
uses MainForm;
{$R *.dfm}
end.
unit RepPrikaz_2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TfrmRepPrikaz_2 = ... ... ... ... ... ... TQRShape;
QRLabel6: TQRLabel;
QRShape2: TQRShape;
QRLabel7: TQRLabel;
qNAME: TQRLabel;
QRLabel2: TQRLabel;
QRLabel11: TQRLabel;
QRDBText5: TQRDBText;
QRMemo1: TQRMemo;
SummaryBand1: TQRBand;
QRLabel9: TQRLabel;
qDIR: TQRLabel;
DetailBand1: TQRBand;
QRShape8: TQRShape;
QRShape10: ... ... ... TQRShape;
QRLabel3: TQRLabel;
QRShape4: TQRShape;
QRDBText1: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmRepPrikaz_2: TfrmRepPrikaz_2;
implementation
uses MainForm;
{$R *.dfm}
end.
unit RepSheet_1;
interface
uses
Windows, ... ... ... Classes, ... ... ... QRCtrls, ... = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
SummaryBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: ... ... ... ... ... ... ... TQRShape;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRDBText7: TQRDBText;
DetailBand1: TQRBand;
QRShape8: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRSysData1: TQRSysData;
QRDBText4: TQRDBText;
QRLabel10: TQRLabel;
qNAME: TQRLabel;
private
{ Private declarations ... Public ... ... ... ... ... RepSheet_2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TfrmRepSheet_2 = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRDBText1: ... ... ... TQRDBText;
QRShape1: TQRShape;
QRLabel6: TQRLabel;
QRShape2: TQRShape;
QRLabel7: TQRLabel;
QRShape3: TQRShape;
QRLabel8: TQRLabel;
QRDBText4: ... ... ... TQRLabel;
QRDBText7: TQRDBText;
DetailBand1: TQRBand;
QRShape8: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRSysData1: TQRSysData;
qName: TQRLabel;
private
{ Private declarations }
public
{ Public ... ... ... *.dfm}
end.
unit RepSpisok;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TfrmRepSpisok = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRShape1: TQRShape;
QRLabel6: ... ... ... ... ... TQRShape;
QRShape10: TQRShape;
QRDBText9: TQRDBText;
QRSysData1: TQRSysData;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmRepSpisok: ... ... ... ... ... ... ... Classes, Graphics, Controls,
Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TfrmRepStudent = class(TForm)
QuickRep1: TQuickRep;
DetailBand1: TQRBand;
QRShape10: TQRShape;
QRDBText9: TQRDBText;
QRLabel2: TQRLabel;
QRLabel3: ... ... ... ... ... ... TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBRichText1: TQRDBRichText;
QRLabel1: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRDBText6: TQRDBText;
QRLabel10: TQRLabel;
QRDBText7: ... Private ... ... Public ... }
end;
var
frmRepStudent: TfrmRepStudent;
implementation
uses MainForm;
{$R *.dfm}
end.
unit RepSvodStud;
interface
uses
Windows, Messages, SysUtils, ... Classes, ... ... DB, ... QRCtrls, QuickRpt, ExtCtrls, Grids, DBGrids;
type
TfrmRepSvodStud = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: ... ... ... ... ... ... TQRShape;
QRLabel6: TQRLabel;
QRShape2: TQRShape;
QRLabel7: TQRLabel;
QRShape3: TQRShape;
QRLabel8: TQRLabel;
qName: TQRLabel;
DetailBand1: TQRBand;
QRShape8: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRSysData1: TQRSysData;
Query1: TQuery;
QRLabel3: TQRLabel;
QRDBText1: TQRDBText;
Table1: ... ... ... ... ... TIntegerField;
Query1CODE_1: TIntegerField;
Query1DOC_1: TIntegerField;
Query1PREDMET: TIntegerField;
Query1TEACHER: TIntegerField;
Query1GROUP: TIntegerField;
Query1TYPE: TIntegerField;
Table1CODE: TAutoIncField;
Table1FIO: TStringField;
Table1DATA_R: TDateField;
Table1ADRESS: TStringField;
Table1NATION: TIntegerField;
Table1POL: TStringField;
Table1PRIM: TMemoField;
Table1GROUP: TIntegerField;
Table1DATA_PR: ... ... ... TStringField;
Table2CODE: TAutoIncField;
Table2NAME: TStringField;
Query1sFIO: TStringField;
Query1sPREDMET: TStringField;
Table3: TTable;
AutoIncField1: TAutoIncField;
StringField1: TStringField;
Query1sGROUP: TStringField;
QRShape4: TQRShape;
QRLabel2: TQRLabel;
QRShape5: TQRShape;
QRExpr1: TQRExpr;
Query1MONT: TStringField;
private
{ Private declarations }
public
{ Public ... ... ... ... ... ... ... Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, StdCtrls, DBCtrls;
type
TfrmRSheet_1 = class(TForm)
Label2: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label6: TLabel;
Label3: TLabel;
ComboBox1: TComboBox;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
DataSource2: ... ... ... Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBLookupComboBox2CloseUp(Sender: TObject);
private
{ Private declarations ... Public ... ... ... ... RepSheet_1;
var n1, n2: Integer;
{$R *.dfm}
procedure TfrmRSheet_1.DBLookupComboBox1CloseUp(Sender: TObject);
begin
n1 := frmMainForm.tblGroupCODE.AsInteger
end;
procedure TfrmRSheet_1.DBLookupComboBox2CloseUp(Sender: TObject);
begin
n2 := frmMainForm.tblPredmetsCODE.AsInteger
end;
procedure TfrmRSheet_1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TfrmRepSheet_1, frmRepSheet_1);
frmMainForm.tblSheet.Filtered := ... := '(GROUP = ' + ... + ')' ... (PREDMET = ' + IntToStr(n2) + ')' +
'AND (MONT = ''' + ComboBox1.Text + ''')' +
'AND (TYPE = ... := ... := ... := False;
end;
procedure TfrmRSheet_1.Button2Click(Sender: TObject);
begin
Close
end;
procedure TfrmRSheet_1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree
end;
end.
unit RSheet_2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, ... ... = ... ... ... ... TLabel;
Label6: TLabel;
Label3: TLabel;
ComboBox1: TComboBox;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
Button1: TButton;
Button2: TButton;
DataSource2: TDataSource;
DataSource3: ... ... ... ... ... ... ... FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBLookupComboBox2CloseUp(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmRSheet_2: TfrmRSheet_2;
implementation
uses MainForm, RepSheet_2;
var n1, n2: Integer;
{$R *.dfm}
procedure ... ... := ... ... TObject);
begin
n2 := frmMainForm.tblPredmetsCODE.AsInteger
end;
procedure TfrmRSheet_2.Button1Click(Sender: TObject);
begin
Application.CreateForm(TfrmRepSheet_2, frmRepSheet_2);
frmMainForm.tblSheet.Filtered := False;
frmMainForm.tblSheet.Filter := '(GROUP = ' + ... + ')' ... (PREDMET = ' + ... + ')' ... (MONT = ''' + ... + ''')' ... (TYPE = ... := True;
frmRepSheet_2.qNAME.Caption := NameOrg;
frmRepSheet_2.QuickRep1.PreviewModal;
frmMainForm.tblSheet.Filtered := False;
end;
procedure TfrmRSheet_2.Button2Click(Sender: TObject);
begin
Close
end;
procedure TfrmRSheet_2.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree
end;
end.
-----------------------
...
Список учащихся
Сводная ведомость на учащегося
Ведомость зачетных оценок
Экзаменационная ... ... ... ... ... ОЦЕНОК
ПРИКАЗ ОБ ОТЧИСЛЕНИИ
ПРИКАЗ О ЗАЧИСЛЕНИИ
ДОКУМЕНТЫ
НАЦИОНАЛЬНОСТИ
ОТДЕЛЕНИЯ
ЯЗЫКИ
СПЕЦИАЛЬНОСТИ
ПРЕДМЕТЫ
ПРЕПОДАВАТЕЛИ
ГРУППЫ
СТУДЕНТЫ
СПРАВОЧНИКИ
О ПРОГРАММЕ
ПАРАМЕТРЫ
Сервер
Компьютерный класс №5
Компьютерный класс №4
Компьютерный класс №3
Компьютерный класс №2
Компьютерный класс №1
Бухгалтерия
Библиотека
Отдел
кадров
Заместители
директора
Приемная
директора
Учебная часть
директора
Заведующие
отделением
Приемная
директора
Номер_специальности
Наименование
Специальность
Номер_отделения
Найменование
Отделения
Номер_языка
Найменование
Языки
Номер_группы
Название
Отделение
Специальность
Язык_обучения
Группы
Номер_приказа
Приказ
Күні_приказа
Группа
Тип_приказа
Приказы
Номер_документа
Предмет
Преподаватель
Группа
Тип_документа
Месяц
Ведомость
Номер_документа
Студент
Баллы
Ведомость_студента
Номер_документа
Фамилия_Имя_отчество
Группа
Список
Номер_предмета
Найменование
Предметы
Номер_национальности
Найменование
Национальность
Номер_преподавателя
Фамилия_Имя_Отчество
Преподаватели
Номер_Студента
Тип_студента
Фамилия_Имя_Отчество Күні_рождения
Адрес_проживания, телефон
Национальность
Пол
Группа
Курс
Күні_зачисления
Күні_отчисления
Примечание
Студенты
Оқу бөлімі
Өтініш
Бұйырықтар
Бухгалтерия
Анықтамалыр
бұйырықтар
Өтініш
Бұйырықтар
Өтініш
Студент
Директор
Қабылдау
комиссиясы
Абитуриент
Методист
Программисттер
Директордың
ӨП ... ... ... ... ... ... есепші
Кадр бөлімі
инспекторы
Сырттай оқу бөлім
меңгерушісі
Коммерциялық бөлім
меңгерушісі
Бюджеттік бөлім
меңгерушісі
Директордың
ТЖ ... ... ОЖ ... ...

Пән: Информатика
Жұмыс түрі: Дипломдық жұмыс
Көлемі: 60 бет
Бұл жұмыстың бағасы: 900 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Микрокредит мекемесіндегі кредит менеджерінің ажо жетілдіру61 бет
Қоймалық операцияларды есепке алу және өнімді сату есептін информациялық қамтамасыздандыруы94 бет
Жүк тасымалдауды жобалау және ұйымдастыру55 бет
Коммерциялық банктердің жеке тұлғаларды несиелеу ерекшеліктері48 бет
Модель және компьютерлік модельдеу негіздері50 бет
Инвестициялық жобаларды іске асыру кезіндегі техникалық-экономикалық есептердің сатылары мен түрлері12 бет
Патенттік құжаттар4 бет
Санау жүйесi. Санау жүйесінің түрлері. Бір санау жүйесінен екіншісіне өту жолы.5 бет
1. Ұңғының түп маңы аймағын құм тығынынан тазарту» «2. Ұңғының түп аймағын фенолформальдегиді шайырмен бекіту26 бет
Action Script бағдарламалау тілінің теориялық негіздері22 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь