Delphi ортасында Гуманитарлық-техникалық бөлім меңгерушінің автоматтандырылған жұмыс орыны

Аннотация
Кіріспе
1 Қойылым бөлім
1.1 Тапсырманың тұжырымдамасы
1.2 Кіру және шығу құжаттарының сипаттамасы
1.3 Интерфейске қойылатын талаптар
2 Арнайы бөлім
2.1 Акпараттық базаның сипаттамасы
2.2 Негізгі алгоритмдер сипаттамасы
2.3 Бағдарламаның құрылымдық схемасы
2.4 Пайдалушының интерфейсін ұйымдастыру
2.5 Дипломдық жобаны жүзеге асырудың аспаптық құралдары
2.5.1 Қолданылған операциялық жүйенің қысқаша сипаттамасы
2.5.2 Бағдарламалау тілінің қысқаша сипаттамасы
2.6 Бағдарламаны тестілеу
3 Өндірісті ұйымдастыру
3.1 Аппараттық қаматамасыз етуге қойылатын талаптар
3.2 Пайдаланушыға нұсқау
3.3 Бағдарламашыға нұсқау
4 Экономикалық бөлім
4.1 Бағдарламалық өнімді жасауға кеткен шығындардың есебі
5 Техника қауіпсіздігі және өрт қауіпсіздігі бойынша шаралары
5.1 Бөлімшедегі еңбекті қорғау
5.2 Техника қауіпсіздігі
5.3 Өнеркәсіптік санитария
5.4 Өрт қауіпсіздігі бойынша қорғау
Қорытынды
Қолданылатын әдебиеттер тізімі
Қосымша А
Қосымша Ә
Қосымша Б
Қазіргі кездегі ақпараттық технологиялардың дамуы автоматтандырылған ақпараттық жүйелермен сүйенетін және олардың негізінде жататын, деректер базалары, социалдық сұраныстар комплекстік мен және пайдаланушылар үшін әртүрлі категориялы ақпараттық қажеттіліктерді қанағаттандырумен байланысты бар класстық есептермен шешілетін ғылыми-техникалық мүмкіндіктермен анықталады. Сондықтан автоматтандырылған жүйелерді ақпараттық және бағдарламалық қамсыздандыруды құра мен экспорттай алатын квалификациялары бар мамандар қажет болады.
Қазіргі заманда үздіксіз басқарусыз өмірді елестеу қиын. Негізгі категория болып ақпаратты өңдеу жүйесі әртүрлі мекеме жұмыстары үздіксіз
болуына байлансты. Бірінші деректер базасы негізінде ядерлық физика, химия космонавтика және т.б. деректер жұмысына жүйелік қадамдарды талап ететін фундаментальды ғылымдарда қолданылған. Біздің заманымызда компьютеризация әрбір орта стастикалық фирма рұқсатында бар. Сондықтан үздіксіз бағдарламалық қамтамасыздандыруға сұраныстар күннен күнге өсіп жатыр.
Динамикалық өсім компаниясының алдында кең спектр есептерінің автоматизациялық есебі және басқаруды рұқсат ететін бизнес құру сәтті болу үшін бағдарламалық қамтамасыздандыруды дұрыс таңдау қажет.
Ұйымдардың көбісі үлкен ақпараттық базасын қолданылады. Олармен жұмыс істеу үшін орсан үлкен құжаттар жиынын қолданады. Бұрын қызметкерлердің біреуі үйінді қағаздармен кабинеттен кабинетке жүгіріп, бір кабинетте тіркеп, екіншісінде өзгертетін, онын арқасында көп уақытын соған жұмсайтын.Уақыт өте өндірістік процесті автоматизациялау, кәсіп орын мен жеке ұйымдардың өндірістігін ұлғайтты. Неғұрлым есептеуіш машиналар дамыған болса, соғұрлым жұмыстың сапасы ұлғайған еді
1 В.А. Гофман «Delphi 6.0», Санкт-Петербург, 2002 – 321 с.;
2 Культин Н. Б. «Основы программирования в Delphi 7.» - СПб.:БХВ-Петербург, 2004. – 608 с.;
3 С.В. Глушаков «Программирование на Delphi 6.0», Харьков: Фолио,2003
4 Дарахвелидзе П.Г, Марков Е.П. «Програмирование в Delphi 7.0» СПБ БХВ Петербург, 2003-784с.

5 И. Харитонова, Н. Вольман Программирование в Access 2002
6 Антипов Д.В., Соколов А.В. «Базы данных». Москва, 2002г.
7 С. Немнюгин Turbo Pascal практикум
8 Шумаков А.И. «База данных в среде Delphi 5», Электронная версия
9 Д.Б. Поляков, И.Ю. Круглов программирование в среде Turbo Pascal
        
        МАЗМҰНЫ
| |Дипломдық жобаға тапсырма | |
| ... | |
| ... | |
|1 ... ... | ... |Тапсырманың тұжырымдамасы | ... ... және шығу ... ... | ... ... ... талаптар | |
|2 ... ... | ... |Акпараттық базаның сипаттамасы | ... ... ... ... | ... ... ... схемасы | ... ... ... ұйымдастыру | ... ... ... ... ... ... ... | ... ... ... ... ... ... | |
|2.5.2 ... ... ... сипаттамасы | ... ... ... | |
|3 ... ... | ... ... қаматамасыз етуге қойылатын талаптар | ... ... ... | ... |Бағдарламашыға нұсқау | |
|4 ... ... | ... ... ... ... кеткен шығындардың есебі | |
|5 |Техника ... және өрт ... ... | |
| ... | ... ... ... ... | ... ... ... | ... ... ... | ... |Өрт қауіпсіздігі бойынша қорғау | |
| ... | |
| ... ... тізімі | |
| ... А | |
| ... Ә | |
| ... Б | ... ... ... ... бөлім меңгерушінің
автоматтандырылған жұмыс орны» тақырыбына деректер базасын жасау.
Жұмыстың ... ... ... ... ... яғни студенттердің, мамандықтардың, топтардың,
оқытушылардың, ... және т.б. ... ... сақтайтын,
өзгертетін, керекті ақпаратарды табатын, тапсырысты ... және ... ... ... өнімнің кестелері MS Access ДББЖ-де жасалынып
ADO ... ... Borland Delphi 7.0 ... ортасында
жасалынған. Бағдарламаның интерфейсі пайдаланушыға ыңғайлы болу үшін
максималды ... ... ... ... ... ... ... схемасы, кестелердің
құрылымы, қосымшаның схемасы жасалынған. Негізгі ... ... ... ... ... ... мен ... үшін нұсқаулар сипатталған.
Дипломдық жобаның экономикалық бөлімінде бағдарламалық өнімді жасап
шығаруға жұмасалатын шығындар септелінген, ол 104927 ... тең ... ... ... ... ... ... табиғи мен
жасанды жарықтандыру есептелінген.
АННОТАЦИЯ
Целью дипломного проекта ... ... базы ... на тему
«Автоматизированное рабочее место ... ... ... ... в ... ... программного продукта,
который будет автоматизировать все функции, необходимые при ... ... а ... ... ... и ... ... студентах, преподавателях, специальностях, группах, предметах, находить
необходимую информацию, формировать и ... ... ... ... продукта разработаны в СУБД MS Access ... с ... ... ADO со ... ... Borland ... в которой реализован интерфейс программы, а ... все ... ... организован максимально автоматизированным для удобства
работы пользователя.
В ходе работы над дипломным проектом разработаны и ... ... ... ... ... ... ... основные алгоритмы, и
представлены их реализации в ... ... ... ... ... ... ... описаны инструкции пользователю и программисту.
В Экономической части ... ... был ... расчет
материальных затрат на разработку программного продукта и он ... ... ... ... ... по ... ... а также
произведён расчет освещения.
КІРІСПЕ
Қазіргі кездегі ақпараттық ... ... ... жүйелермен сүйенетін және олардың негізінде жататын, деректер
базалары, социалдық сұраныстар комплекстік мен және ... ... ... ақпараттық қажеттіліктерді қанағаттандырумен байланысты
бар класстық есептермен шешілетін ғылыми-техникалық ... ... ... ... ... және
бағдарламалық қамсыздандыруды құра мен экспорттай алатын ... ... ... ... ... үздіксіз басқарусыз өмірді елестеу қиын. Негізгі
категория болып ақпаратты өңдеу жүйесі әртүрлі мекеме жұмыстары үздіксіз
болуына байлансты. Бірінші деректер базасы ... ... ... ... және т.б. деректер жұмысына жүйелік қадамдарды талап ететін
фундаментальды ғылымдарда қолданылған. Біздің ... ... орта ... ... ... бар. ... ... қамтамасыздандыруға сұраныстар күннен күнге өсіп жатыр.
Динамикалық өсім компаниясының алдында кең ... ... ... және ... ... ететін бизнес құру сәтті болу
үшін бағдарламалық қамтамасыздандыруды дұрыс таңдау қажет.
Ұйымдардың көбісі үлкен ... ... ... ... ... үшін орсан үлкен құжаттар жиынын ... ... ... ... ... ... ... жүгіріп, бір кабинетте
тіркеп, екіншісінде өзгертетін, онын ... көп ... ... өте өндірістік процесті автоматизациялау, кәсіп орын мен
жеке ұйымдардың өндірістігін ұлғайтты. Неғұрлым есептеуіш машиналар дамыған
болса, ... ... ... ұлғайған еді
Есептеуіш техникаларды қолдану қиын есептер классын шешу нәтижелігін
арттыруға көмектеседі. Ақпаратты өңдеудің жаңа ... мен ... ... ... еңбек өнімділігін артырады, экономикада ең
нәтижелі өндіріс құралдарын қолдануын ... ... жаңа ... ... мүмкіндік береді, мемлекеттік, ... ... ... ... ... қабылдауға мүмкіндік береді.
Қазіргі кездегі есептеуіш техникасын қолдану адамның кез келген
қызыметінде автоматтандырылған ... ... ... орын ... ... ЭЕМ –ді қолдану олармен байланысты болады. Компьютерлердің
көмегімен техникалық дамыған ... ... ... ... ... алмасу, өндеу технологиясына – электронды карталарға
өтіп жатыр. Арнайы бағдарламалар – ... ... ... жүйесі (ДББЖ).
ДББЖ деректерді енгізу, сақтау, өндеу шығару операциялардың барлығын
қамтамасыз ... ... да ... ... ... ... ... болса, сіздер картотекамен кездесесіздер. Картотеканың негізі
еңгізілуі керек бөлімдерден тұратын карточкасы ... ... Көп ... қарағанда электрондық картотекадан деректерді табу оңай.
1. ҚОЙЫЛЫМ БӨЛІМІ
1. Тапсырманың тұжырымдамасы
Берілген бағдарлама гуманитарлы-техникалық бөлімдегі студенттер туралы
деректер базасымен ... ... үшін ... төрт ... ... ... ... қарастыру:
– Мамандық, топ, жетекші,оқушы, оқытушы, пән, оқушылардың
тапсырулары, тапсырмаған оқушылар туралы ... ... ... ... ... деректерді іздеп табу және
редактірлеу мүмкіндігі болуы керек.
2. Деректерді қосу:
– Жаңа ... ... ... қосу ... ... мамандықтың
аты, мамандықтың толық аты). мамандықтың деректерін еңгізгенде
қателіктер пайда болса, бағдарлама ескертуі керек.
– Жаңа топ туралы деректерді қосу ... ... ... ... ... және жаңа жетекші туралы деректерді қосу (тобтың
аты, ... ... ... ... аты, ... аты, адресі, телефоны).
– Жаңа оқушының деректерін қосу (топтың аты, оқушының нөмірі,
оқушының ... ... аты, ... әкесінің аты, туылған
күні, ұлты, ... ... ... оралман(логикалық(«йә»
немесе «жоқ»), әкесінің аты-жөні, анасының аты-жөні, әкесінің
жұмыс орыны, анасының жұмыс орыны, қай ... ... ... ... ... ... ... немесе «жоқ»), денешынықтырудан
босатылған(логикалық(«йә» немесе ... ... ... ... ... ... Яғни мұнда оқушылардың
негізгі және қосымша ... ... ... Жаңа ... ... қосу ... ... оқытушының тегі,
оқытушының аты, оқытушының әкесінің аты, оқытатын пәні, тобтар).
– Таңдаған оқытушыға пәнді қосу ... ... ... қысқа аты)
Мұнда бір оқытушының бірнеше оқытатын пәндері болатындықтан
пәндер қосылуы тиіс;
– Жаңа пән туралы деректерді қосу ... ... ... ... ... толық аты).
3. Негізгі операциялар:
– Оқушыны оқудан шығару. Оқышыны ... ... онда ... ... атың ... ... оқушының тегін таңдап
алып кейін деректерді (оқудан шығару, оқудан шығарылған күні
және себеп) толтыру ... Топ үшін ... ... ... Топтың аты, тапсыру
түрі, семестр, тиісті тапсыру күні, оқытушының нөмері, пәннің
қысқаша аты ... ... ... ол оқушылардың
тапсырыстары кестесіне автоматты түрде сол ... ... Бұл ... ... ... сол ... ... тапсыру керек. Яғни ол ... ... ... түрі, семестр, тапсырған күні (әзір ешқандай күн жоқ,
оны ведосмость толтырғанда ... ... ... ... және бағасы еңгізіледі. Бағасы ноль ... ... ... әлі ... ... ... ... толтырылуы. Мұнда топтың аты
таңдалынады, оқушының тегі таңдалынады, оқушының аты, оқушының
әкесінің аты автоматты түрде ... ... ... ... ... аты таңдалынып, тапсырылған күні мен бағасы ... ... ... Мамандықтардың толық тізімін (мамандық коды, мамандықтың аты,
мамандықтың толық аты) шығару.
– Тобтардың толық тізімін (мамандықтың коды, ... аты, ... ... Жетекшілердің толық тізімін (тобтың аты, тобтағы ... ... аты, ... әкесінің аты, адресі, телефоны)
шығару.
– Оқытушылардың толық ... ... ... ... ... аты, ... ... аты, оқытатын пәні)
шығару.
– Пәндердің толық тізімін (пәннің нөмірі, пәннің ... ... ... аты) ... ... ... тізімін (топтың аты, оқушының нөмірі,
оқушының тегі, ... аты, ... ... аты, ... ... ... телефоны) немесе топтағы оқушылар тізімін
шығару үшін ... атын ... ... және ... басу ... шығарылуы керек.
– Жатақханада тұратын оқушылардың ... ... ... аты,
оқушының тегі, оқушының аты, оқушының әкесінің аты, ... ... ... ... ... топтағы жатақханада тұратын
оқушылар тізімін шығару үшін топтың атын таңдау керек ... ... басу ... ... ... ... оқушылардың толық тізімін (топтың аты, оқушының тегі,
оқушының аты, оқушының әкесінің аты, туылған күні, ... ... ... жұмыс орыны, анасының аты-жөні, анасының
жұмыс орыны, қай жерден келген) немесе оралман оқушылар тізімін
шығару үшін ... атын ... ... және тапсырыс(отчет)
батырмасын басу арқылы шығарылуы керек.
– Дене шынықтыру пәніне қатыспайтын оқушылардың ... ... аты ... ... ... аты, оқушының әкесінің аты,
туылған күні, ұлты, адресі, телефоны, диагноз) немесе топтағы
денешынықтыруға қатыспайтын оқушылар тізімін ... үшін ... ... ... және ... ... басу арқылы
шығарылуы керек.
– Көпбалы отбасында тұратын оқушылардың толық ... ... ... ... ... тегі, оқушының аты, оқушының
әкесінің аты, туылған күні, ұлты, ... ... ... ... тізімін шығару үшін топтың атын таңдау керек
және тапсырыс(отчет) батырмасына арқылы шығарылуы керек.
– Тапсырмаған оқушылардың ... ... ... аты, ... ... тегі, оқушының аты, оқушының әкесінің аты,
тапсыру түрі, ... ... ... аты, ... аты, ... әкесінің аты, тапсырған күні,
бағасы) немесе топтағы тапсырмаған оқушылар тізімін шығару үшін
топтың атын таңдау ... және ... ... ... ... керек.
– Оқудан шығарылған оқушылар туралы мәліметтерді шығару( тобтың
аты, оқушының тегі, оқушының аты, ... ... аты, ... ... адресі, телефоны, бұйрықтың нөмірі, оқудан шығарылу
күні, себеп).
– Ведомствоны тапсырыс ретінде шығару(топтың аты, оқушының ... ... аты, ... ... аты, ... түрі,
семестр пәннің аты, оқытушының аты-жөні, тапсыру күні, бағасы)
деген ... ... Кіру және шығу ... ... Ең ... кіру деректері пайдаланушының аты мен паролі еңгізіледі.
шығыс деректері – осы жобаның ашылуы.
- Мамандық ... ... ... ... кіру ...... ... аты, мамандықтың толық аты, ал шығу ... ... ... ... ... .
- Топ туралы деректерді толтыру кезіндегі кіру деректері –мамандықтың
аты, тобтың аты, түскен ... ал шығу ... – топ ... ... ... ... деректерді толтыру кезіндегі кіру деректері – тобтың
аты, ... ... ... аты, жетекшінің әкесінің аты, адресі,
телефоны, ал шығу деректері –жетекші туралы толтырылған карточкасы.
- ... ... ... ... кіру ...... аты,
оқушының нөмірі, оқушының тегі, оқушының аты, оқушының әкесінің ... ... ... адресі, телефоны, жынысы, оралман(логикалық(«йә»
немесе «жоқ»), әкесінің ... ... ... ... ... ... ... жұмыс орыны, қай жерден ... көп ... ... ... ... ... ... денешынықтырудан босатылған(логикалық(«йә» немесе
«жоқ»), диагнозы, арнайы ... ... ... ... ... ...... толтырылған карточкасы.
- Оқытушы туралы деректерін толтыру кезіндегі кіру деректері –
оқытушының ... ... ... оқытушының аты, оқытушының
әкесінің аты, ... ... ... ал шығу ... – оқытушының
толтырылған карточкасы.
- Пән туралы деректерді қосу кезіндегі кіру деректері – ... ... ... аты, ... толық аты, ал шығу деректері – пәннің
толтырылған карточкасы.
- Оқушыны оқудан шығару ... кіу ...... аты, ... ... аты, оқушының әкесінің аты, оқудан шығару, бұйрықтың
нөмірі, шығарылу күні, себеп, топтағы оқушылар саны, ал шығу ... осы ... ... Топ үшін керекті тапсырыстарды толтыру кезінде кіру деректері – топтың
аты, тапсыру түрі, семестр, тиісті тапсыру күні, оқытушының ... ... аты, ал шығу ... – осы деректердің толтырылуы.
- Ведомосьтің толтырылуы кездегі кіру деректер – топтың аты, оқушының
тегі, оқушының аты, ... ... аты, ... ... семестр,
тапсырылған күні, бағасы, ал шығу деректері – ведомостьтің толтырылуы.
- Мамандықтардың ... ... ... кіру ...... ... аты, мамандықтың толық аты, ал шығу деректері – осы
деректерге байланысты тапсырыстың шығарылуы.
- Тобтардың деректерін ... ... кіру ...... ... аты, ... жылы, ал шығу деректері – осы ... ... ... ... және ... кезіндегі кіру деректері – ... ... ... ... ... аты, жетекшінің әкесінің аты,
адресі, телефоны, ал шығу деректері – осы ... ... ... ... деректерін шығару кезіндегі кіру деректері– оқытушының
нөмірі, оқытушының тегі, оқытушының аты, оқытушының әкесінің аты,
оқытатын ... ал шығу ... - – осы ... ... шығарылуы.
- Пәндердің деректерін шығару кезіндегі кіру деректері – пәннің нөмірі,
пәннің қысқа аты, пәннің ... аты, ал шығу ... – осы ... ... ... ... деректерін іздеу және шығару кезіндегі кіру деректері ... аты, ... ... ... ... оқушының аты, оқушының
әкесінің аты, туылған күні, ұлты, адресі, телефоны , ал шығу ... осы ... ... ... шығарылуы.
- Жатақханада тұратын оқушылар туралы тапсырысты жасау кезіндегі кіру
деректері – топтың аты, ... ... ... аты, оқушының әкесінің
аты, адресі, телефоны, ал шығу деректері – осы ... ... ... ... ... ... кезіндегі кіру деректері – топтың
аты, оқушының ... ... аты, ... ... аты, ... күні,
ұлты, адресі, телефоны, әкесінің аты-жөні, әкесінің жұмыс ... ... ... ... ... қай ... келген, ал шығу
деректері – осы деректерге ... ... Дене ... ... ... ... туралы тапсырысты жасаған
кездегі кіру деректер – топтың аты, оқушының тегі, ... ... ... аты, ... ... ... телефоны, жынысы,
диагнозы, арнайы топқа кіреді(логикалық(«йә» немесе ... ал ... – осы ... ... ... ... ... тұратын оқушылар туралы тапсырысты жасаған ... ...... аты, ... нөмірі, оқушының тегі, оқушының
аты, оқушының әкесінің аты, туылған күні, ұлты, адресі, телефоны, ... ... – осы ... ... ... Тапсырмаған оқушылар туралы тапсырысты жасау кезіндегі кіру деректері
– топтың аты, ... ... ... ... ... аты, ... аты, тапсыру түрі, семестр, пәннің қысқаша аты, ... аты, ... ... аты, ... ... ... шығу ... – осы деректерге байланысты тапсырыс.
- Оқудан шығарылған оқушылар туралы тапсырысты жасау ... ...... аты, ... ... ... аты, оқушының әкесінің
аты, туылған күні, ұлты, ... ... ... ... «жоқ»), бұйрықтың нөмірі, оқудан шығарылу
күні, себебі, ал шығу деректері – осы деректерге байланысты тапсырыс.
- Ведомство туралы тапсырысты жасау кезіндегі кіру ...... ... тегі ... ... аты, ... ... аты,
тапсыру түрі, семестр пәннің аты, оқытушының аты-жөні, тапсыру күні,
бағасы, ал шығу деректері – осы деректерге байланысты ... ... ... ... ... – ең ... ... бөлімі болып
табылады.Бағдарламамен жұмыс қолайлы болуы маңызды. ... ... ... ... ... ... ... жасалынуы тиіс, әрі
пайдаланушыға керекті тірек сөздер көбірек ... ... ... ... ... үшін оның ... жұмсақ екпінде
жасалынуы тиіс. Пернетақта мен ... ... ... ... ... ... өзі қандаймен жұмыс істейтінін таңдайды. Әрбір
мәзірдің пункттіңде тек соған ғана ... ... ... ... ... интерфейстті түсінуге мүмкіндік береді. ... ... ... ... жасалынады.
Стандартизациясы. Көптеген бағдарламшылар мен ... ... ... ... Delphi үшін ... қолданылу стандартты.
Жұмыстың қолайлығы мен қарапайымдылығы. Интерфейс түсінікті болуы
тиіс,барлық әрекеттер оңай жатталынатын болуы тиіс, ... ... ... командалар болуы тиіс.
Сыртқы дизайны. Интерфейс адамның көзіне жаман әсер етпеу керек. ... көп ... ... істеуіне есептелінуі тиіс.
Ақпараттарды еңгізу ыңғайлылығы. Егер көп көлемде ақпараттарды енгізу
керек болса, деректер тез жәңе оңай ... ... ENTER ... TAB
тетіктері арқылы бағдарлама ішінде жүргізілуі тиіс, TAB пернесі ... ... өту ... ENTER ... функцияларды атқарады,
бірақ тетікті басу қызметін де атқару керек.
2 АРНАЙЫ БӨЛІМ
1. Акпараттық базаның ... ... ... ... ... ... ... негізгі өрістері мен өрістерінің типтері келесідей болады:
Кесте 1.1 – Мамандық деректері
|№ |Өрістің аты ... ... ... ... |
| | | | ... | |
|1 |2 |3 |4 |5 |6 |
|1 ... коды ... | |* ... |
|2 ... аты ... |50 | | |
|3 ... толық аты ... |100 | | ... 1.2 – Топ ... ... аты ... |Өлшемі |Кілтті|Енгізу маскасы |
| | | | ... | |
|1 |2 |3 |4 |5 |6 |
|1 ... коды ... | |* ... |
|2 ... аты ... |50 | ... |Түскен жылы ... | | |;_ |
| | | | | ... ... 1.3 – ... ... ... аты ... |Өлшемі |Кілтті|Енгізу маскасы |
| | | | ... | |
|1 |2 |3 |4 |5 |6 |
|1 ... аты ... |50 |* ... ... тегі ... |50 | |_ |
|3 ... аты, |Мәтіндік |50 | ... ... ... ... | |* |;_ |
|3 ... тегі ... ... |50 | | |
|4 |аты ... ... ... |50 | ... ... түрі ... |50 | |;_ |
|3 ... ... |50 | | |
|4 ... күні ... | | | |
|5 ... ... ... | | | |
|6 ... қысқаша аты |Мәтіндік |50 | | ... 1.11 – ... ... ... ... аты ... ... |Кілтті|Енгізу маскасы |
| | | | ... | |
|1 |2 |3 |4 |5 |6 |
|1 ... аты ... |50 |* | |
|2 ... ... |Сандық | | | |
|3 ... тегі ... |50 | |>LL ... ... ... ... ... жаңа оқушыны енгізу формасы
шығады, тізіменен тобты таңдағаннан кейін, ... ... ... ... ... топ жоқ болса, оны «Жаңа топты қосу»(Добавить
новую группу) ... ... Егер ... ... ... ... енгізілмеген жағдайда, соған сәйкес хабарлама
шығады.Жаңа оқытушыға пәнді қосу үшін ... ... ... ... ... ... қосу (Добавить предемет)
таңдап аласыз.
Сурет 3.6 – Оқытушыға пәнді қосу формасы.
– Жаңа пән ... ... қосу үшін ... пән ... ... ... ... аласыз. Алдыңызда жаңа пән енгізу формасы
шығады. Егер керекті ... ... ... ... ... ... ... хабарлама шығады
3. Негізгі операциялар негізгі мәзірдегі «Операциялар»(Операции) ... ... ... шығару үшін «Оқушыны оқудан шығару» таңдап ... ... ... ... ... атың ... ... тізімде сол топта оқитын оқушылардың тегілері пайда болады,
оны таңдап алып ... ... ... ... ... ... ... Егер керекті деректер
дұрыс енгізілген немесе ... ... ... ... ... 3.7 – Оқушыны оқудан шығару формасы.
– Топқа керекті тапсырыстарды толтыру үшін ... ... ... ... ... для ... аласыз. Алдыңызда форма шығады, оны толтыру үшін тізімнен
топтың атын таңдайсыз, келесі тізімнен тапсырудың түрін, семестрын,
тапсырылу ... ... аты, және ... ... ... Егер
топтардың ішінде керек топ болмаса енемес пәндердің ... ... ... ... ... болады.
Сурет 3.8 – Топ үшін пәндерді тапсырудың формасы.
... ... үшін ... ... таңдап аласыз. Алдыңызда форма шығады, онда ... табу үшін ... ... ... тауып
толтырамыз, мұнда тапсырылған күні мен бағасы енгізіледі. Сақтауды
басасыз.
4. Тапсырыстар негізгі мәзірдегі ... ... ... Мамандықтардың толық тізімін шығару үшін ... ... ... ... ... ... толық тізімін шығару үшін «Толық ақпараттар->Топтар»
(Полные свелдение->Группы) таңдайсыз.
– Жетекшілердің толық ... ... үшін ... ... ... свелдение->Руководители) таңдайсыз.
– Оқытушылардың толық тізімін шығару үшін «Толық ақпараттар-
>Оқытушылар» (Полные ... ... ... ... ... ... үшін ... ақпараттар->Пәндер»
(Полные свелдение->Предметы) таңдайсыз.

Сурет 3.9 – Толық ақпараттар формасы.
... ... ... шығару үшін «Оқушылар->Жалпы
деректер» ... ... ... 3.10 – Оқушылардың жалпы деректер формасы.
– Жатақханада тұратын ... ... ... үшін ... ... (Учащиеся->Живущие в общежитие)
таңдайсыз. Оны екі түрде шығаруға болады бөлім бойынша және ... ... ... ... шығару үшін «Оқушылар->Оралмандар»
(Учащиеся->Оралманы) таңдайсыз. Оны екі ... ... ... бойынша және топ бойынша.
– Дене шынықтыру пәніне қатыспайтын оқушылардың ... ... ... шынықтырудан босатылғандар» (Учащиеся-
>Освобожденные от физкультуры) таңдайсыз. Оны екі ... ... ... ... және топ ... ... отбасында тұратын оқушылардың тізімін шығару ... ... ... Оны ... ... ... ... бойынша және топ бойынша.
– Тапсырмаған оқушылардың тізімін ... үшін ... ... ... Оны ... ... ... бөлім бойынша және топ бойынша.
– Оқудан шығарылған оқушылар туралы мәліметтерді шығару үшін
«Оқушылар->Оқудан ... ... Оны екі ... ... болады бөлім бойынша және топ
бойынша
– Ведомствоны тапсырыс ... ... үшін ... (Сдачи->Полная ведомость) таңдайсыз.
– Топтың тапсырулары туралы деректерді шығару үшін «Тапсырулар
->Топтың тапсырулары» (Сдачи->Ведомость группы) ... ... ... ... ... ... үшін «Тапсырулар
->Оқушының тапсырулары» (Сдачи->Ведомость учащегося) таңдайсыз.
3. Бағдарламашыға нұсқау
Бағдарлама ADO технологиясы көмегімен Borland Delphi ... ... ... ... ... MS Access ... ... оптимизациялау немесе толықтыру кезінде
бағдарламаның ... ... ... ... ... Барлық
процедуралар мен функцияларға түсінік берілген.
Бағдарламаның ... ... ... ... ... ... жұмыс істеу графигі.
2. Оқытушылардың аттестация тапсырулары туралы деректерді енгізу.
3. Оқытушылардың қосымша сабақтарды өткізу графигі
4. Оқушылардың сабаққа ... ... ... ЭКОНОМИКАЛЫҚ БӨЛІМІ
Уақыт өте келе экономикамыз нығайып жатыр, шағын фабриканың
қарапайым экономикасы болсын, ... ... ... іліп ... ... ... өйткені өндіріс ұлғайып, нарық кеңейіп жатыр. Нарықтың
даму өнімділігіне байланысты сәйкес ... ... ... мамандар мен бағдарламалық құрылғыларға қажеттілік
үлкейіп жатыр, өйткені олар экономиканың тұрақты өсуін қамтамасыз ... ... тек қана ... адамға ғана емес басқа
да көптеген пайдаланушылар қолдану үшін мұқиятты түрде ... ... ... ... үшін ... ауыр ... ... етеді. Оларға жоспарлау, есепке алу, бақылау, талдау реттеу сияқты
басқару ... ... ... ... ... ... жабдықтарды қолдану еңбектің жемістілігін он
есе ұлғайта ... ақыл ... ... ... ... ... минимумға түсіре алады.
Жұмыстың автоматизациясы арқылы экономикалық еңбектің тиімділігін
артырудың және барлық ... ... ... ... ең ... ... ... және ресурстарды қолдануды бағалау үшін
экономикалық тиімділік ... ол ... да ... ... немесе
процестің әрекеттердің қорытындысын бағалауды болжамдайды және бұл ... ... ... ... пайдасын сипаттайды.
Тиімділікті бағалау өндіру құралдары мен шығындарды салыстыру жолымен
анықталады. Экономикалық тиімділік – кез ... ... ... байланысты автоматтандырылған ақпаратты өндеудің мақсатылығын
анықтайтын негізгі критериясы болып келеді.
1. Бағдарламалық өнімді ... ... ... ... ... ... құны ... формула арқылы анықталады:
Ө = Мш + Қеа +Шэ + Штқк + Збқ, теңге, ... Мш - ... ... ...... қоры, теңге,
Шэ–құрылғылар тұтынатын ... ... ... ... ... ... құрылғыларды қолданудың шығындары, теңге;
Шбқ–бағдарламалық қамтамасыздандыруға жұмсалатын ... ... ... ... ... ... = ... Кақ+ КТ, ... Қ = А4 ... ... ... ... ... ... саны, дана.: Қ= 170 дана деп аламыз.
Бқ – 1 бет ... ... ... Бқ – 2 ... деп ... "Компания Белый Ветер" деректері бойынша принтердің
ақ-қара катриджіне жұмсалатын шығын,теңге, Кақ = ... деп ...... саны, шт.: бағдарламаның көлеміне байланысты Д = 2
дана деп аламыз;
Бд – 1 дисктің бағасы, Бд = 50 ... деп ... ... (қаламдар, қарындаштар, сызғыш және
т.б.) жұмсалатын шығындар, теңге: КТ =500 ... ... ... ... ... ... саны ... формула
арқылы анықталады :
Қ = К*Н*N + Ш*N, ... К – ... ... ... байланысты жобаның көлемі, дана.:
К = 60 дана деп аламыз;
Н – қағаздағы жобаның нұсқалар саны, ... ... ... және таза ... ... = 2 дана;
N – жасаушылар саны, адам.: N = 1 адам деп аламыз.;
Ш – қарастырылмаған шығындарға ... ... ... Ш = 50 дана деп ... формуласы бойынша жобаны жасауға жұмсалатын қағаз беттерінің
санын есептейміз:
Қ = ... = 170 ... ... ... ... шығындарды есептейміз:
Мш = 170*2+2*50+1200+500= 2140 теңге,
Еңбекақы қоры келесі формула арқылы есептеледі:
Қеа = (ЗПр+ЗПс)*N*М, ... ... ЕАб – ... ... ... , ... – әлеуметтік сақтандыруға бөлінген қаражат, теңге;
М – бағдарламаны жасау ұзақтығы, ай: М = 1,5 деп ... ... ... келесі формула арқылы есептелінеді:
ЕАб = Тжа *Кз*Кпр, ... Тжа ... ... ... тарифтік жалақысы, теңге: Тжа =
19300 ...... ... Кз = 1,1 деп ...... ... Кпр = 1,7 деп аламыз;
(4.5) формуласы ... ... ... еңбекақы шамасын
есептейміз:
ЕАб = ... ... ... ... 20% мөлшерінде бөлінеді:
ЕАс =20*(36091/100)= 7218,2 теңге
(4.4) формуласы бойынша бағдарламашының еңбекақы қорын есептейміз:
Қеа=(36091+7218,2)*1*1,5=64963,8 теңге.
Электр энергиясына жұмсалатын ... ... ... арқылы анықталады:
Шэ=(Эк*Тк+Эп*Тп+Эл*Тж*Сл)*Бэ, ... Эк – ... ... , кВт: ... деректер бойынша Эк
= 0,45 кВт деп аламыз;
Тк – компьютердің жұмыс істеу уақыты, ... ... ... ,кВт: ... ... бойынша Эп =
0,03 кВт деп аламыз;
Тп –принтердің жұмыс істеу уақыты, сағ;
Эл–лампаның қуаты, кВт ; ... ... ... Эл = ... деп ...... пайдалану уақыты, сағ;
Сл –лампалар саны (6 м2-ға 1 лампаның келетінін есепке ... ... Сл – 3 дана деп ... – цена 1 кВт ... ... Бэ = 3 тенге.
Компьютердің жұмыс істеу уақыты келесі формула арқылы есептелінеді:
Тк=8*24*М, ... 8 – ... ... сағатының саны, сағ/күн.;
24 – айына жұмыс күндерінің саны, ... ... ... ... ... ... ... есептейміз:
Тк=8*24*1,5=288 сағ
Принтердің жұмыс істеу уақыты келесі формула арқылы анықталады:
Тп= ... Тб – бір ... ... ... ... ... мин : Тб= 0,5 мин
деп аламыз,
Тқ – ... ... мин: Тв=0,2 мин деп ... ... ... ... ... істеу уақытын есептейік:
Тп=(170*(0,5+0,2))/50= 2,5 сағ,
Жарықтандырудың сағаттар саны келесі формула арқылы анықталады:
Тж=2*24*М, ... 2 – ... ... ... сағаттар саны, сағ/күн;
24 – айына жұмыс күндерінің саны, күн/ай.
(4.7) формуласы ... ... ... ... уақытын есептейміз:
Тж=2*24*1,5=72 сағ
(4.6) формуласы бойынша электр энергиясына жұмсалатын шығындарды
есептейміз:
Шэ=(0,45*288+0,03*2,5+0,1*72*3)*3=
454 теңге.
Бағдарламаны жасау үшін ... ... ... ... ... ... мен ... 4.1 кестеде келтірілген.
|Жабдықтың аты |Техникалық сипаттамалар ... |
| | ... |
|1 |2 |3 ... |HP ... |82900 |
| ... |
| ... | ... |Canon PIXMA ip1800, A4, ... 20/16 |6500 |
| |ppm,USB | ... 4.1 – Бағдарламаны жасау кезіндегі ... ... ... құрамы.
Техникалық құралдар кешені тек қана бір бағдарлама үшін қолданылмай,
басқа да ... ... ... ... ... ... формула арқылы есептелінеді:
Штқк = (Бк+Бп)*Ка*(М/12), теңге ... Бк – ... ... ...... бағасы, теңге;
Ка - жылдық амортизация коэффициенті: Ка = 0,2 деп ...... ... в ... ... ... ... техникалық құралдар кешеніне жұмсалатын
шығындарды есептейміз:
Штқк= ... ... ... үшін ... ... ... керек.
Құрамы 4.2 кестеде көрсетілген.
|Бағдарламалық ... ... ... ... |программного продукта |продукта, тенге ... | | |
|1 |2 |3 ... ... |MS Windows XP |21490 ... ... SP2b | ... |Russian | ... ... |2 |3 ... бағдарламалық |MS Office Basic 2007 |32990 ... | | |
| |Borland Delphi 7.0 |6000 |
| |Abbyy ... 7.0 |4900 ... | |65380 ... ... жасау кезінде ... ... ... ... қамтамасыздандыру тек қана бір бағдарлама ... ... да ... ... бағдарламалық
қамтамасыздандыруды қолдану шығындары келесі формула арқылы есептелінеді:
, теңге, ... Шбқ – ... ... ... ... ... – бағдарламалық қамтамасыздандыруды қолданудың мерзімі
Мқ=60 ай деп ... ... ... ... ... ... есептейік:
Шбқ=(65380*1,5)/60=1634,5 теңге,
(4.1) формуласы бойынша бағдарламаның өзіндік құнын есептейміз:
Ө=2140+64963,8 +494+2235+1634,5=71427,3 тенге.
Бағдарламаның өзіндік құнының ... 4.3 ... ... ... ... шығындардың элементтері |Затраты, тенге |
|Материалдық шығындар |2140 ... ... ... қоры |64963,8 ... ... |494 ... ... ... ... |2235 ... ... қолдану |1634,5 ... |71365,3 ... 4.3 – ... өзіндік құның есептеу нәтижесі
Бағдарламаның бағасы келесі формула арқылы есептелінеді:
Б=(Ө+П)*НДС, теңге, ... П – ... ... ... салығын еспейтін коэффициент: НДС ... деп ... ... ... ... 30% ... анықталады:
П=71427,3*0,3=21428,2 теңге.
(4.12) формуласы бойынша бағдарламаның бағасын есептейміз:
Б=(71427,3 ... ... ... ... жасауға жұмсалатын шығындарды есептеу
кезінде, мен 104927 теңгеге тең сомасын алдым. Берілген бағдарламалық
өнімнің ... ... ... ... оны ... ... қиыншылықтар
пайда болмайтынына сенемін.
5 ТЕХНИКА ҚАУІПСІЗДІГІ ЖӘНЕ ӨРТ ҚАУІПСІЗДІГ БОЙЫНША ШАРАЛАР
5.1 Бөлімдегі еңбекті қорғау
Берілген бағдарламалық ... ... ... ... жұмыс істеу үшін қолданылады.
Бағдарламамен жұмыс істейтін кабинеттің іші ақшыл жасыл ... ... ол ... ... ... сонымен бірге оны жайлы
қылдырып, адамды жалықтырмайды.Жұмыс ықластылықты талап ететіндіктен ... ... IV-ге ... ... ... ... болады:
3 м
5,5 м
Сурет 13 – Жұмыс ... ...... 2 – ... ... 3 – пернетақта, 4 – монитор, 5 –шкаф, 6
– қағаз столы, 7 – ажыратқыш, 8 – өрт сөндіргіш, 9- кондиционер.
Мұнда ... ені 3 м, ... 5,5 м ... көрініп тұр. Ал бөлменнің
биіктігі 3 м.
Берілген бөлмеде қауіпті өңдірістік факторлардың көзі болып табылатын
электр құралдары қолданылатындықтан,барлық электр сымдары пласмассалық
корпусқа бекітілуі ... ... ... ... ... ... ... сымдардын зақымдануы ойда жоқ жағдайға әкелуі мүмкін.
Сорлы жағдай немесе басқа да зақымдану кезінде дәрігерлік қызмет көрсету
бұл мекеменің ... ... ... ... ... ... ... басқа оған зиянды
факторлар әсер етеді, мысалы монитордан сәулелену таралады және компьютер
шу шығарады, осынының бәрі адамға өзінің теріс ... ... ... ... тогы адамға өте қауіпті болып келеді, өйткені 0,4-0,5 мА
ауыспалы токтың әсерінен адамның ... ... ... ... 90-100 мА ... ... жүректің тоқталуына, тұрақты тогынан
демалудың тоқталуына әкеліп соқтырады.
Жұмысшыларды электр тогынан зақымданудан ... үшін ... ... ... электр өткізгіштерді дәл орындау, изоляция
өткізу, және қауіпсіздік технмкасының барлық ережелерін сақтау ... ... ... болу үшін ... ... ... ... болуы тиіс. Өйткені қорғанбалы жерге қосылу кезінде өзектерден,
пластиналардан, болаттан жасалынған шыбықтардан жасалынған жерге
қосылғыштардың салыстырмалы кедергісі адам денесінің кедергісінен аз ... яғни ... ... байланысты кернеудің өзгеруі кезінде
электр тогы жерге ұмтылады.
Электр құрылғыларды қолданатын негізінен ЭЕМ операторларына арналған
кауіпсіздік техникасы.
Жұмысшы ... ... ... ... ол ... тиіс:
– электр тогының қауіптілігі туралы нақты ойы болуы тиіс;
– кернеудің қауіптілігі және қауіпті ток күші туралы ойы болуы
тиіс;
... ... ... ... ... ... ... және қосымша қорғау құрылғыларының негізгі функцияларын
білуі тиіс;
– олданылатын құрылғыларды қолдану тәртібі жайлы мағлұматы болуы
тиіс;
... ... ... тиіс.
Жұмыс істеу алдында қолданушы келесілерді орындауы тиіс:
– жұмыс ... ... ... барлық іске қосылуларды қарап шығып, оларда ешқандай ақаулардың
жоқ екенін көз ... ... ... ... қауіпсіз екенін көз жеткізу;
– электр қондырғылардың дұрыс ... көз ... ... ... бар ... ... істеу кезінде қолданушы келесілерді орындауы тиіс:
– электр жабдықтарды қолданудың ережелерін орындау;
... ... ... ... ... ... тәртібін дұрыс орнату, яғни кей уақытта көзге,
мойынға, аяққа және т.б. жаттығуларды жасау;
... ... ... ... ... ... ... арасындағы қашықтық 600-700 мм, тым болмаса 500
мм-ден ... ... ... күн ... ... ... өткізу.
Электр құрылғыларды қолдану кезінде пайдаланушы келесілерді орындауы
тиіс:
– жұмыс столын 680-800 мм шамасында ретке келтіру, бұл мүмкіндік
болмаған жағдайда ... ... ... ... ... 725 мм
қылдыру;
– аяқ үшін кеңістікті қарастыру, оның биіктігі 600 мм -ден, ені
500 мм –ден, тізеге ... ... 450 мм -ден, ... ... ... 650мм -ден кем ... ... орындықтың бетінің ені мен тереңдігі 400 мм -ден кем ... ... ... дейінгі биіктікті 400-550 мм шамасында
орнықтыру;
– стол бетінің шетінен алғанда пернетақтаның орналасу қашықтығы
100-300 мм болуы тиіс.
Келесі жағдайлар ... ... ... ... тиым ... ... ... ақаулары байқалса,
– арнайы қорғаныс құралдарының болмауы: жерге қосылу, өшіру.
5.3 Өнеркәсіптік санитария
Жұмыс орындағы микроклимат жұмысшының жұмыс істеу қабілетіне ... ... ... ... ... болуы тиіс: ауаның
салыстырмалы ылғалдылығы 40-60%, ауаның қозғалыс ... 0,1 ... ... ... ... ... да әсер ... Ауыспалы және суық
жыл кезеңінде үйлесімді температура – 21-22 °С, ал жылы жыл ... ... – 22-24 °С ... ... ... ... үшін суық жыл кезеңінде орталық жылытуды
пайдалану, ал жылы жыл кезеңінде аэрацияны, яғни ... ... ... табиғи ауаны жаңартуды орнату керек.
Нәтижелі жұмыс үшін дұрыс жұмыс бөлмесін дұрыс жарықтандыру керек.
Шамамен табиғи мен жасанды жарықтандыруды есептейік.
I ... ... ... ені – 3 ... ... – 5,5 ... - ... ауданы, м2
=3*5,5=16,5 м2
, ... - ... ... ... м2;
1/6 –көру жұмысының IV дәрежесіне сәйкес қатынас.
м2
II Жасанды жарықтандыруды есептеу.
Бөлмедегі ортақ біркелкі жасанды жарықтандыруды есептеу үшін жарық
ағыны ... ... ... ... көзі ... люминесцентті лампаларды аламыз.
2) Шырақтардың орналасуын тікбұрышты деп аламыз.
3) Лампалар люминесцентті болғандықтан, қатынасты с=1,8 деп аламыз.
Іліну биіктігін келесі ... ... ... - бөлменің биіктігі, м;
- төбеден шыраққа дейінгі қашықтық, м;
- еденнен ... ... ... ... ... ... қашықтықты анықтайық:
(5.4)
м
4) Бөлме көрсеткішін анықтайық:
(5.5)
мұндағы - бөлменің ені, м;
- бөлменің ұзындығы, м;
5) Жарық ағынын пайдалану коэффиициентін ... ... ... ... Қор ... k=1,3 және ... бір ... емес
коэффициентін z=1,1 деп аламыз.
7) Көру жұмысына байланысты Лк, Лк, Лк. деп аламыз.
8) ... ... ... ... анықтайық:
(5.6)
(5.5) формуласы бойынша шырақтың жарық ағынын анықтайық:
Лм
9) Лампаны таңдайық:
ЛТБ 80 лампасы: қуаты 80 Вт, кернеуі 220 В, жарық ағыны 3840 ... ... ... ... - ... ... ... Жергілікті жарықтандыруды анықтайық;
(5.8)
Лк
12) Жерглікті жарықтандырудың жарық ағынын анықтайық:
(5.9)
мұндағы - ... ... ... м2
Лм.
5.3 Өрт қауіпсіздіг бойынша қорғау
Өртке қауіптілік категорясына байланысты бөлме Д категориясына жатады.
Өрттің ең қауіпті факторлары келесілер:
– қысқаша тұйықталудың ұшқыны ... ... ашық ... айналадағы заттар үшін ауаның температурасының көтерілуі,
– адамның тыныс алу жүйесі үшін уытандыратын жанудың ... ... ... ауасындағы оттегінің шапшаң төмендеуі;
– Зданияның, қондырғылардың салынуының бүлінуі немее ... ... ... себептері:
– Сыпырынды жәшікке сөнбеген темекі тұқылығын тастау;
– изоляциясы бүлінген ток өткізетін өткізгіштердің бұралынуы,
үйкелінуі;
– ток өткізетін ... ... ... ... тұйықталу, кернеудің тиеуі.
Қазіргі замадағы ДК –дің баспа платасының әрбір бірлік ... ... ... ... өте ... ... келеді. Әр түрлі коммуникациялық кабельдердің қосатын сымдар бір-
біріне жақын ... ... Олар ... өтетін электр тогының
жолы(Джоуля-Ленца заңына сәйкес) өте көп жылыны бөледі, ол бөлек сапасыз
бөлімдердің немесе ... ... ... ... –ге ... әкелуі мүмкін. Бұл жағдайда қосатын сымдардың изоляциясы еруі
мүмкін, кейін сымдардың жалаңаш болып, ұшқындармен бірге кысқаша тұйықталу
өтеді, ол ... ... ... ... ... ... мол ... құтқару үшін әр түрлі ауа жаңарту және
кондиционирлеу жүйелері көмектеседі. Бөлмедегі жұмыс істейтін ауа жаңарту
жүйелері жағымды жақпен қоса ... да ... бар. Өрт ... ... ... жүйесі өрттің тек қана пайда болған жерінен басқа да жерлерге
таралуына шапшаң көмектеседі.
Сондықтан ДК бар ... ... ... қарсы қауіпсіздік
шараларынан басқа қосымша шаралар да қарастырылған.Ақпаратты
тасмалдаушыларды сақтау үшін(олар оңай өрттенеді) өрттенбейтін шкафтарды
қолдану керек. Жұмыс орының ... ... және ... ұйып
тастамау керек, жәнебөлмеде өрт сөндіргіш болуы тиіс..
Өзінің және басқа адамдардың қауіпсіздігін бұзбау үшін ДК –мен жұмыс
істейтін адам өртке қарсы сақтандыру ... ... ... оның таралын шектеу, өрттелінген бөлмеден шығудың ережелерін мен
шараларын білуі тиіс.
ҚОРЫТЫНДЫ
Берілген ... ... ... ... ... жұмыс орны» базасы жасалынған. Мамандықтар, топтар,
жетекшілер, оқушылар, оқытушылар, пәндер туралы ... және ... ... тапсырыстар мен сұраныстар құрылды.
Бағдарламада автоматтандыратын құрылғылар қарастырылған ... бар. ... ... ... тез ... көмектеседі.
Дипломдық жобаны жасау кезінде реляциялық деректер базасының құрылымы
жайында, Delphi қосымшаларын жасау ортасын қолдануы туралы көрінісі алынды.
Қойылған талаптар ... ... ... ... ... ... // кестенің бірінші жазбасынан көшу
While not DataModule2.PolzavTable.Eof do // ... ... ... ... // егер ... аты ... енгізіліп, кілтті сөзі
дұрыс енгілбесе
Showmessage('Вы не правильно ввели пароль!');
Edit2.Text:='';
DataModule2.PolzavTable.next;
end
else ... ... // егер ... аты ... ... , кілтті сөз
дұрыс енгізілсе
Showmessage('Вы не ... ... ... ... then
begin // егер пайдаланушының аты дұрыс енгізілмей , кілтті ... ... не ... ... ... и ... ... көру
Form1.Close;
DataModule2.PolzavTable.next; // келесі жазбаға көшу
end;
end;
end;
Бет басы
procedure TForm32.N1Click(Sender: TObject);
begin
Form3.showmodal ; // негізгі мәзірді көру
end;
procedure TForm32.N3Click(Sender: TObject);
begin
Form32.Close;
end;
procedure ... ... ... TObject);
begin
Close;
end;
Негізгі мәзір
procedure TForm3.N4Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm3.N7Click(Sender: TObject);
begin
Form5.showmodal;
end;
procedure TForm3.N5Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm3.N6Click(Sender: TObject);
begin
Form10.ShowModal;
end;
procedure TForm3.N11Click(Sender: TObject);
begin
form7.ShowModal;
end;
procedure TForm3.N19Click(Sender: TObject);
begin
Form21.ShowModal;
end;
procedure TForm3.N21Click(Sender: TObject);
begin
Form12.ShowModal;
end;
procedure ... ... ... ... ... TObject);
begin
Form16.ShowModal;
end;
procedure TForm3.N23Click(Sender: TObject);
begin
Form17.ShowModal;
end;
procedure TForm3.N24Click(Sender: TObject);
begin
Form18.ShowModal;
end;
procedure TForm3.N25Click(Sender: TObject);
begin
Form19.ShowModal;
end;
procedure TForm3.N26Click(Sender: TObject);
begin
Form20.ShowModal;
end;
procedure TForm3.N27Click(Sender: TObject);
begin
Form9.ShowModal;
end;
procedure TForm3.N30Click(Sender: TObject);
begin
Form22.ShowModal;
end;
procedure ... ... ... ... ... ... ... TObject);
begin
Form26.ShowModal;
end;
procedure TForm3.N36Click(Sender: TObject);
begin
Form14.ShowModal;
end;
procedure TForm3.N37Click(Sender: TObject);
begin
Form28.ShowModal;
end;
procedure TForm3.N28Click(Sender: TObject);
begin
Form27.ShowModal;
end;
procedure TForm3.N38Click(Sender: ... ... ... ... ... ... сдачи';
Sheet.Cells[2,6]:='Семестр';
Sheet.Cells[2,7]:='Педмет';
Sheet.Cells[2,8]:='Фамилия преподавателя';
Sheet.Cells[2,9]:='Имя преподавателя';
Sheet.Cells[2,10]:='Отчество преподавателя';
Sheet.Cells[2,11]:='Дата сдачи';
Sheet.Cells[2,12]:='Оценка';
index:=3;
nom:=1;
dataModule2.StudTable.First;
While not dataModule2.StudTable.Eof do
begin
k:=0;
dataModule2.PolVedQuery.First;
While Not dataModule2.PolVedQuery.Eof do
begin
if
dataModule2.StudTableNom_stud.Value=dataModule2.PolVedQueryNom_stud.Value
then
begin
Sheet.Cells[index,1]:=nom;
Sheet.Cells[index,2]:=dataModule2.PolVedQuery.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=dataModule2.PolVedQuery.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=dataModule2.PolVedQuery.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=dataModule2.PolVedQuery.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=dataModule2.PolVedQuery.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=dataModule2.PolVedQuery.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=dataModule2.PolVedQuery.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=dataModule2.PolVedQuery.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=dataModule2.PolVedQuery.Fields.Fields[9].AsString;
Sheet.Cells[index,11]:=dataModule2.PolVedQuery.Fields.Fields[10].AsString;
Sheet.Cells[index,12]:=dataModule2.PolVedQuery.Fields.Fields[11].AsString;
k:=k+1;
if k>1 then
begin
dataModule2.PolVedQuery.next;
index:=index+k-1;
Sheet.Cells[index,5]:=dataModule2.PolVedQuery.Fields.Fields[4].AsString
;
Sheet.Cells[index,6]:=dataModule2.PolVedQuery.Fields.Fields[5].AsString
;
Sheet.Cells[index,7]:=dataModule2.PolVedQuery.Fields.Fields[6].AsString
;
Sheet.Cells[index,8]:=dataModule2.PolVedQuery.Fields.Fields[7].AsString
;
Sheet.Cells[index,9]:=dataModule2.PolVedQuery.Fields.Fields[8].AsString
;
Sheet.Cells[index,10]:=dataModule2.PolVedQuery.Fields.Fields[9].AsStrin
g;
Sheet.Cells[index,11]:=dataModule2.PolVedQuery.Fields.Fields[10].AsStri
ng;
Sheet.Cells[index,12]:=dataModule2.PolVedQuery.Fields.Fields[11].AsStri
ng;
end;
end;
dataModule2.PolVedQuery.Next;
end;
k:=0;
Inc(index);
Inc(nom);
dataModule2.StudTable.Next;
end;
end;
procedure TForm3.N40Click(Sender: TObject);
begin
Form30.ShowModal;
end;
procedure TForm3.N42Click(Sender: ... ... ... ... ... ... ... TForm3.N8Click(Sender: TObject);
begin
Form14.ShowModal;
end;
procedure TForm3.N3Click(Sender: TObject);
begin
Form28.ShowModal;
end;
procedure TForm3.N17Click(Sender: TObject);
begin
form8.ShowModal;
end;
procedure TForm3.N18Click(Sender: TObject);
begin
Form12.ShowModal;
end;
Мамандық туралы ... ... ... ... ... ... TForm4.Button2Click(Sender: TObject);
begin
ADoQuery1.Delete;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
AdOquery1.Edit;
end;
procedure TForm4.Edit1Change(Sender: TObject);
var
s:string;
begin
if trim(edit1.Text)='' then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('SELECT * FROM Spes');
ADOQuery1.SQL.Append('order by Kod_spes');
ADOQuery1.Open;
exit;
end;
s:='Where ';
s:=s+'(Kod_spes like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Naz_spes like '+quotedstr('%'+edit1.text+'%')+') ... like ... ... ... then ... * FROM ... trim(edit1.Text)'' then
adoquery1.SQL.Append(s);
ADOQuery1.SQL.Append('order by Kod_spes');
ADOQuery1.Open;
end;
Топ пен жетекші туралы деректерді қарастыру(өзгерту,жою,іздеу)
procedure TForm6.FormCreate(Sender: TObject);
begin
ADOTable1.Active:=true;
ADOQuery1.Active:=true;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
ADOTable1.delete;
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
ADOTable1.Edit;
end;
procedure ... ... ... TObject);
var
s:string;
begin
if trim(edit1.Text)='' then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select Grup.*,
Ruk.Fam,Ruk.Im,Ruk.Otch,Ruk.Adres,Ruk.Tel');
adoquery1.SQL.Append('From Grup,Ruk');
adoquery1.SQL.Append('Where (Grup.Naz_grup=Ruk.Naz_grup)');
ADOQuery1.SQL.Append('order by Grup.Naz_grup');
ADOQuery1.Open;
exit;
end;
s:='Where';
s:=s+'(Kod_spes like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Grup.Naz_grup like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(God_post like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Kol_uch like ... ... like ... or';
s:=s+'(Im like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Otch like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Adres like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Tel like '+quotedstr('%'+edit1.text+'%')+') or';
if copy(s,length(s)-1,2)='or' then ... ... From ... trim(edit1.Text)'' then
adoquery1.SQL.Append(s);
ADOQuery1.SQL.Append('and(Grup.Naz_grup=Ruk.Naz_grup)order by
Grup.Naz_grup');
ADOQuery1.Open;
end;
Оқушылар туралы деректерді қарастыру(өзгерту, жою,іздеу)
procedure TForm7.FormCreate(Sender: TObject);
begin
ADOTable1.Active:=true;
ADOQuery1.Active:=true;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
AdoQuery1.Delete;
end;
procedure TForm7.Button3Click(Sender: ... ... ... ... ... ... ... Stud');
adoquery1.SQL.Append('Where (Otchislit=false)');
ADOQuery1.SQL.Append('order by Fam;');
ADOQuery1.Open;
exit;
end;
s:='Where';
s:=s+'(Nom_stud like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Fam like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Im like '+quotedstr('%'+edit1.text+'%')+') ... like ... ... like ... ... like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Adres like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Tel like '+quotedstr('%'+edit1.text+'%')+') or';
if ... then ... ... ... ... ... by Fam;');
ADOQuery1.Open;
end;
procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
if speedbutton1.Caption =#13+':'+#13+'>'+#13+':'+#13 then
begin
form7.Width:=1010;
speedbutton1.Caption:=#13+':'+#13+''+#13+':'+#13;
end;
end;
procedure TForm7.RadioButton1Click(Sender: TObject);
begin
if ... ... ... by ... ... ... ... then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select
Stud.Nom_stud,Fam,Im,Otch,Data_rozh,Nasion,Adres,Tel,Naz_grup,Dop_dan.FIO_ma
t,Dop_dan.FIO_ots,Dop_dan.Mes_rab_m,Dop_dan.Mes_rab_o,Dop_dan.Otk_prieh');
adoquery1.SQL.Append('From Stud,Dop_dan');
adoquery1.SQL.Append('Where
(Otchislit=false)and(Dop_dan.Nom_stud=Stud.Nom_stud)and
(Dop_dan.Siroty=true)');
ADOQuery1.SQL.Append('order by Fam');
ADOQuery1.Open;
exit;
end;
end;
procedure TForm7.RadioButton3Click(Sender: TObject);
begin
if RadioButton3.Checked=true then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select
Stud.Nom_stud,Fam,Im,Otch,Data_rozh,Nasion,Adres,Tel,Naz_grup,Dop_dan.FIO_ma
t,Dop_dan.FIO_ots,Dop_dan.Mes_rab_m,Dop_dan.Mes_rab_o,Dop_dan.Otk_prieh');
adoquery1.SQL.Append('From Stud,Dop_dan');
adoquery1.SQL.Append('Where
(Otchislit=false)and(Dop_dan.Nom_stud=Stud.Nom_stud)and
(Dop_dan.Oral=true)');
ADOQuery1.SQL.Append('order by Fam');
ADOQuery1.Open;
exit;
end;
end;
procedure TForm7.RadioButton4Click(Sender: TObject);
begin
if RadioButton4.Checked=true then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select
Stud.Nom_stud,Fam,Im,Otch,Data_rozh,Nasion,Adres,Tel,Naz_grup,Dop_dan.FIO_ma
t,Dop_dan.FIO_ots,Dop_dan.Mes_rab_m,Dop_dan.Mes_rab_o,Dop_dan.Otk_prieh');
adoquery1.SQL.Append('From Stud,Dop_dan');
adoquery1.SQL.Append('Where
(Otchislit=false)and(Dop_dan.Nom_stud=Stud.Nom_stud)and
(Dop_dan.Mnogod=true)');
ADOQuery1.SQL.Append('order by ... ... ... ... then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select
Stud.Nom_stud,Fam,Im,Otch,Data_rozh,Nasion,Adres,Tel,Naz_grup');
adoquery1.SQL.Append('From Stud,Dop_dan');
adoquery1.SQL.Append('Where
(Otchislit=false)and(Dop_dan.Nom_stud=Stud.Nom_stud)and
(Dop_dan.Opek=true)');
ADOQuery1.SQL.Append('order by Fam');
ADOQuery1.Open;
exit;
end;
end;
procedure TForm7.RadioButton6Click(Sender: TObject);
begin
if RadioButton6.Checked=true then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select
Stud.Nom_stud,Fam,Im,Otch,Data_rozh,Nasion,Adres,Tel,Naz_grup,Dop_dan.FIO_ma
t,Dop_dan.FIO_ots,Dop_dan.Mes_rab_m,Dop_dan.Mes_rab_o,Dop_dan.Otk_prieh');
adoquery1.SQL.Append('From Stud,Dop_dan');
adoquery1.SQL.Append('Where
(Otchislit=false)and(Dop_dan.Nom_stud=Stud.Nom_stud)and
(Dop_dan.Osvob_ot_fizk=true)and (Dop_dan.Vhod_med_grup=true)');
ADOQuery1.SQL.Append('order by Fam');
ADOQuery1.Open;
exit;
end;
end;
procedure TForm7.RadioButton7Click(Sender: TObject);
begin
if RadioButton6.Checked=true then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select
Nom_stud,Fam,Im,Otch,Data_rozh,Nasion,Adres,Tel,Naz_grup');
adoquery1.SQL.Append('From Stud');
adoquery1.SQL.Append('Where ... by ... ... ... ... ... TForm22.FormCreate(Sender: TObject);
begin
AdoTable1.Active:=true;
AdoQuery1.Active:=true;
end;
procedure TForm22.Button3Click(Sender: TObject);
begin
Adoquery1.Edit;
end;
procedure TForm22.Edit1Change(Sender: TObject);
var
s:string;
begin
if trim(edit1.Text)='' then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select *');
adoquery1.SQL.Append('From Prep');
ADOQuery1.SQL.Append('order by ... like ... ... like ... ... like ... ... like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Naz_grup like '+quotedstr('%'+edit1.text+'%')+') or';
if copy(s,length(s)-1,2)='or' then s:=copy(s,0,length(s)-2);
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select *');
adoquery1.SQL.Append('From Prep');
if trim(edit1.Text)'' then
adoquery1.SQL.Append(s);
ADOQuery1.SQL.Append('order by Fam_prep;');
ADOQuery1.Open;
end;
Пәндер туралы деректерді ... ... ... TObject);
begin
Form23.Close;
end;
procedure TForm23.FormCreate(Sender: TObject);
begin
DataModule2.PredTable.Active:=true;
end;
procedure TForm23.Button2Click(Sender: TObject);
begin
Adoquery1.Delete;
end;
procedure TForm23.Button3Click(Sender: TObject);
begin
Adoquery1.Edit;
end;
procedure TForm23.Edit1Change(Sender: ... ... ... ... ... by ... like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Sokr_pred like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Naz_pred like '+quotedstr('%'+edit1.text+'%')+') or';
if copy(s,length(s)-1,2)='or' then ... ... ... ... ... by Sokr_pred;');
ADOQuery1.Open;
end;
procedure TForm13.FormCreate(Sender: TObject);
begin
ADOTable1.Active:=true;
ADOTable2.Active:=true;
ADOTable3.Active:=true;
ADOQuery1.Active:=true;
end;
Оқушылардың тапсырулары туралы деректерді қарастыру(өзгерту, жою,іздеу)
procedure TForm13.Edit1Change(Sender: TObject);
var
s:string;
begin
if trim(edit1.Text)='' then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('Select
Nom_stud,Fam,Im,Otch,Data_rozh,Nasion,Adres,Tel,Naz_grup');
adoquery1.SQL.Append('From Stud');
adoquery1.SQL.Append('Where (Otchislit=false)');
ADOQuery1.SQL.Append('order by ... like ... ... like ... ... like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Otch like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Data_rozh like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Nasion like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Adres like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Tel like '+quotedstr('%'+edit1.text+'%')+') or';
if ... then ... ... ... then
adoquery1.SQL.Append(s);
ADOQuery1.SQL.Append('and (Otchislit=false)order by Fam;');
ADOQuery1.Open;
end;
procedure TForm13.Button2Click(Sender: TObject);
begin
AdoTable1.Delete;
end;
procedure TForm13.Button3Click(Sender: TObject);
begin
AdoTable1.Edit
end;
procedure TForm13.BitBtn1Click(Sender: TObject);
begin
close;
end;
Тапсырмаған ... ... ... TObject);
begin
Adoquery1.Active:=true;
AdoTable1.Active:=true;
AdoTable2.Active:=true;
end;
procedure TForm29.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.Active:=True;
end;
procedure TForm29.Edit1Change(Sender: TObject);
var
s:string;
begin
if trim(edit1.Text)='' then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Append('SSelect Stud.Nom_stud,Stud.Fam,Stud.Im,Stud.Otch,
Sdacha.*');
adoquery1.SQL.Append('From Stud,Sdacha');
adoquery1.SQL.Append('Where((Stud.Otchislit=False)
and(Stud.Nom_stud=Sdacha.Nom_stud)) and ((3>Sdacha.Oscenka))');
ADOQuery1.SQL.Append('order by Stud.Fam');
ADOQuery1.Open;
exit;
end;
s:='Where';
s:=s+'(Stud.Nom_stud like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Stud.Fam like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Stud.Im like ... ... like ... ... like ... ... like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Sdacha.Data like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Sdacha.Oscenka like '+quotedstr('%'+edit1.text+'%')+') or';
s:=s+'(Stud.Naz_grup like ... ... ... then ... ... ... trim(edit1.Text)'' then
adoquery1.SQL.Append(s);
ADOQuery1.SQL.Append('and((Stud.Otchislit=False)
and(Stud.Nom_stud=Sdacha.Nom_stud)) and ((3>Sdacha.Oscenka))');
ADOQuery1.SQL.Append('order by Stud.Fam');
ADOQuery1.Open;
end;
Жаңа мамандық туралы деректерді қосу
procedure TForm5.Button1Click(Sender: TObject);
begin
DataModule2.SpesTable.Active:=true;
DataModule2.SpesTable.Last;
if (MasKedit1.Text='') then
MessageDlg('Вы не ввели код ... ... ... в
базу, заполните поле "Код специальности"',mtInformation,mbYesNoCancel,0)
else
if (edit1.Text='') then
MessageDlg('Вы не ввели название специальность'+#13+'Для ввода
информации в базу, заполните поле "Найменование
специальности"',mtInformation,mbYesNoCancel,0)
else
begin
DataModule2.SpesTable.InsertRecord([MaskEdit1.Text,edit1.Text,edit2.Text]);
ShowMessage('Записи успешно добавленны');
MaskEdit1.Text:='';
Edit1.Text:='';
Edit2.Text:='';
DataModule2.SpesTable.Active:=false;
end;
end;
procedure ... ... ... ... топ пен ... ... ... қосу
procedure TForm14.Button2Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm14.FormCreate(Sender: TObject);
begin
DataModule2.SpesTable.Refresh;
DataModule2.GrupTable.Active:=true;
DataModule2.SpesTable.Active:=true;
Combobox1.Text:='';
Edit1.Text:='';
Edit2.Text:='';
Maskedit1.Text:='';
Maskedit2.Text:='';
Edit3.Text:='';
MaskEdit3.Text:='';
MaskEdit4.Text:='';
Edit4.Text:='';
Edit5.Text:='';
DataModule2.SpesTable.First;
While Not(DataModule2.SpesTable.Eof)do
begin
Combobox1.Items.Add(DataModule2.SpesTableNaz_spes.Value);
DataModule2.SpesTable.Next;
end;
DataModule2.GrupTable.Active:=false;
DataModule2.SpesTable.Active:=false;
end;
procedure TForm14.Button1Click(Sender: TObject);
begin
DataModule2.GrupTable.Last;
DataModule2.RukTable.Last;
if (MasKedit1.Text='') then
ShoWmessage('Вы не правильно ввели группу!')
else
if (MasKedit2.Text='') then
ShoWmessage('Вы не ... ... год ... ... ... не ... ... учащихся!')
else
if (MasKedit1.Text='') then
ShoWmessage('Вы не правильно ввели фамилию руководителя!')
else
if (MasKedit2.Text='') then
ShoWmessage('Вы не правильно ввели имя руководителя!')
else
begin
DataModule2.GrupTable.InsertRecord([Edit1.Text,MaskEdit1.Text,MaskEdit2.Text
,edit2.Text]);
DataModule2.RukTable.InsertRecord([Maskedit1.Text,MaskEdit3.Text,MaskEdit4.T
ext,Edit3.Text,edit4.Text,edit5.Text]);
ShowMessage('Записи успешно добавленны');
DataModule2.GrupTable.Refresh;
Combobox1.text;
MaskEdit1.Text:='';
MaskEdit2.Text:='';
Edit1.Text:='';
Edit2.Text:='';
Combobox1.text;
Edit3.Text:='';
MaskEdit3.Text:='';
MaskEdit4.Text:='';
Edit4.Text:='';
Edit5.Text:='';
end;
end;
procedure TForm14.ComboBox1Change(Sender: TObject);
begin
Button1.Visible:=True;
DataModule2.GrupTable.Active:=true;
DataModule2.SpesTable.Active:=true;
DataModule2.SpesTable.First;
While not ... ... ... ... ... TForm14.BitBtn1Click(Sender: TObject);
begin
form14.Close;
end;
Жаңа оқушы туралы деректерді қосу
procedure TForm16.BitBtn1Click(Sender: TObject);
begin
Form16.Close;
end;
procedure TForm16.FormCreate(Sender: TObject);
begin
Form16.Refresh;
DataModule2.GrupTable.Active:=true;
DataModule2.StudTable.Active:=true;
DataModule2.Dop_danTable.Active:=true;
DataModule2.SdachaTable.Active:=true;
DataModule2.StudTable.Last;
nomu:=DataModule2.StudTableNom_stud.Value+1;
Edit11.Text:=inttostr(nomu);
DataModule2.GrupTable.First;
While Not(DataModule2.GrupTable.Eof)do
begin
Combobox1.Items.Add(DataModule2.GrupTableNaz_grup.Value);
DataModule2.GrupTable.Next;
end;
end;
procedure TForm16.Button2Click(Sender: ... ... ... ... ... ... then
ShoWmessage('Вы не правильно ввели фамилию учащегося!')
else
if (MasKedit2.Text='') then
ShoWmessage('Вы не правильно ввели имя учащеогся!')
else
if (MasKedit4.Text='') then
ShoWmessage('Вы не ... ... дату ... учащеогся!')
else
begin
DataModule2.StudTable.AppendRecord([Combobox1.Text,Edit11.Text,MaskEdit1.tex
t,MaskEdit2.text,Edit10.text,MaskEdit4.text,Edit1.text,Edit2.text,Edit3.text
]);
DataModule2.Dop_danTable.AppendRecord([Edit11.text,Combobox2.text,Checkbox2.
Checked,Checkbox3.Checked,Edit4.Text,Edit5.Text,Edit6.Text,Edit7.Text,Edit8.
Text,CheckBox4.Checked,Checkbox5.Checked,Checkbox6.Checked,Checkbox7.Checked
,Checkbox8.Checked,Edit9.text]);
ShowMessage('Записи успешно добавленны');
nomu:=nomu+1;
Os:=0;
s:='';
DataModule2.Neob_sdachaTable.First;
While not(DataModule2.Neob_sdachaTable.Eof)do
begin
if combobox1.Text=DataModule2.Neob_sdachaTableNaz_grup.Value then
begin
DataModule2.PredTable.First;
While not(DataModule2.PredTable.Eof) do
begin
if
DataModule2.PredTableSokr_pred.Value=DataModule2.Neob_sdachaTableSokr_pred.V
alue ... ... ... ... ... ... деректерді қосу
procedure TForm24.FormCreate(Sender: TObject);
begin
DataModule2.PrepTable.Active:=true;
DataModule2.PredTable.Active:=true;
nompp:=DataModule2.PrepTableNom_prep.Value+1;
Edit1.Text:=inttostr(nompp);
DataModule2.PredTable.First;
While Not(DataModule2.PredTable.Eof)do
begin
Combobox1.Items.Add(DataModule2.PredTableSokr_pred.Value);
DataModule2.PredTable.Next;
end;
end;
procedure TForm24.BitBtn1Click(Sender: TObject);
begin
DataModule2.PredTable.First;
While Not(DataModule2.PredTable.Eof)do
begin
if Combobox1.Text=DataModule2.PredTableSokr_pred.Value then
nompd:=DataModule2.PredTableNom_pred.Value;
DataModule2.PredTable.Next;
end;
if (MasKedit1.Text='') then
ShoWmessage('Вы не правильно ввели фамилию учащегося!')
else
if (MasKedit2.Text='') then
ShoWmessage('Вы не ... ... имя ... ... ... TForm24.ComboBox1Change(Sender: TObject);
begin
BitBtn1.Visible:=true;
end;
procedure TForm24.BitBtn2Click(Sender: TObject);
begin
Form24.Close
end;
Оқытушыға пәнді қосу
procedure TForm26.FormCreate(Sender: TObject);
begin
DataModule2.PrepTable.Active:=true;
DataModule2.Pred1Table.Active:=true;
DataModule2.PredTable.Active:=true;
Edit1.Text:='';
Combobox1.Enabled:=true;
Combobox2.Enabled:=False;
Combobox3.Enabled:=False;
DataModule2.PrepTable.First;
While Not(DataModule2.PrepTable.Eof)do
begin
Combobox1.Items.Add(DataModule2.PrepTableFam_prep.Value);
DataModule2.PrepTable.Next;
end;
DataModule2.PrepTable.First;
While ... ... ... ... ... RadioButton1.Checked=True
then
begin
Combobox2.Text:='';
Combobox3.Text:='';
Combobox1.Enabled:=true;
Combobox1.SetFocus;
Combobox1.Color:=clWindow;
Combobox2.Enabled:=false;
Combobox2.Color:=clBtnFace;
Combobox3.Enabled:=false;
Combobox3.Color:=clBtnFace;
end
else
begin
Combobox1.Text:='';
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
end;
end;
procedure TForm26.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=True
then
begin
Combobox1.Text:='';
Combobox3.Text:='';
Combobox2.Enabled:=true;
Combobox2.SetFocus;
Combobox2.Color:=clWindow;
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
Combobox3.Enabled:=false;
Combobox3.Color:=clBtnFace;
end
else
begin
Combobox2.Text:='';
Combobox2.Enabled:=false;
Combobox2.Color:=clBtnFace;
end;
end;
procedure TForm26.RadioButton3Click(Sender: TObject);
begin
if RadioButton3.Checked=True
then
begin
Combobox1.Text:='';
Combobox2.Text:='';
Combobox3.Enabled:=true;
Combobox3.SetFocus;
Combobox3.Color:=clWindow;
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
Combobox2.Enabled:=false;
Combobox2.Color:=clBtnFace;
end
else
begin
Combobox3.Text:='';
Combobox3.Enabled:=false;
Combobox3.Color:=clBtnFace;
end;
end;
procedure TForm26.ComboBox1Change(Sender: TObject);
begin
DataModule2.PrepTable.First;
While not DataModule2.PrepTable.Eof do
begin
if Combobox1.text=DataModule2.PrepTableFam_prep.Value then
begin
Edit1.Text:=intTostr(DataModule2.PrepTableNom_prep.Value);
Label3.Caption:='Имя';
Edit2.Text:=DataModule2.PrepTableIm_prep.Value;
Combobox4.Visible:=true;
end;
DataModule2.PrepTable.Next;
end;
end;
procedure TForm26.ComboBox2Change(Sender: TObject);
begin
DataModule2.PrepTable.First;
While not DataModule2.PrepTable.Eof do
begin
if ... ... ... ... not ... ... ... then
begin
Edit1.Text:=intTostr(DataModule2.PrepTableNom_prep.Value);
Label3.Caption:='Имя';
Edit2.Text:=DataModule2.PrepTableIm_prep.Value;
Combobox4.Visible:=true;
end;
DataModule2.PrepTable.Next;
end;
end;
procedure TForm26.ComboBox4Change(Sender: TObject);
begin
BitBtn1.Visible:=true;
end;
procedure TForm26.BitBtn2Click(Sender: TObject);
begin
Form26.Close;
end;
procedure TForm26.BitBtn1Click(Sender: TObject);
begin
DataModule2.PredTable.First;
While ... ... ... DataModule2.PredTableNom_pred.Value;
DataModule2.PredTable.Next;
end;
DataModule2.Pred1Table.AppendRecord([Edit1.text,inttostr(nompd),Combobox4.Te
xt]);
ShowMessage('Записи успешно добавленны');
end;
procedure TForm25.FormCreate(Sender: TObject);
begin
DataModule2.PredTable.Active:=true;
DataModule2.PredTable.Last;
nompd:=DataModule2.PredTableNom_pred.Value+1;
Edit1.Text:=inttostr(nompd);
end;
Пән туралы деректерді қосу
procedure TForm25.BitBtn1Click(Sender: TObject);
begin
if (MasKedit1.Text='') then
ShoWmessage('Вы не ... ... ... ... ... ... не ... полное название предмета!')
else
begin
DataModule2.PredTable.AppendRecord([Edit1.Text,MaskEdit2.text,MaskEdit1.text
]);
ShowMessage('Записи успешно добавленны');
nompd:=nompd+1;
Edit1.Text:=inttostr(nompd);
Maskedit1.Text:='';
Maskedit2.Text:='';
end;
end;
procedure TForm25.BitBtn2Click(Sender: TObject);
begin
Form25.Close;
end;
Оқушыны оқудан ... ... ... not(DataModule2.StudTable.Eof) do
begin
If Combobox2.Text=DataModule2.StudTableFam.Value then
begin
DataModule2.StudTable.Edit;
DataModule2.StudTable.FieldByName('Otchislit').AsBoolean:=true;
DataModule2.StudTable.FieldByName('Nom_prik').AsString:=Edit3.Text;
DataModule2.StudTable.FieldValues['Data_prik']:=strtodate(Edit4.Text);
DataModule2.StudTable.Post;
end;
DataModule2.StudTable.Next;
end;
Combobox1.Items.Clear;
Combobox2.Items.Clear;
Combobox1.Text:='';
Edit1.Text:='';
Combobox2.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Checkbox1.Checked:=false;
end;
procedure TForm9.FormCreate(Sender: TObject);
begin
Combobox1.Text:='';
Edit1.Text:='';
Combobox2.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Combobox2.Enabled:=false;
Checkbox1.Checked:=false;
DataModule2.GrupTable.Active:=true;
DataModule2.StudTable.Active:=true;
DataModule2.Otchis_studTable.Active:=true;
DataModule2.GrupTable.First;
While Not(DataModule2.GrupTable.Eof)do
begin
Combobox1.Items.Add(DataModule2.GrupTableNaz_grup.Value);
DataModule2.GrupTable.Next;
end;
end;
procedure TForm9.ComboBox1Change(Sender: TObject);
begin
Combobox2.Enabled:=true;
Combobox2.Items.Clear;
AdoQuery1.Active:=true;
AdoQuery1.First;
While Not(AdoQuery1.Eof)do
begin
If Combobox1.Text=AdoQuery1Naz_grup.Value then
Combobox2.Items.Add(AdoQuery1Fam.Value);
AdoQuery1.Next;
end;
end;
procedure ... ... not ... ... ... ... DataModule2.StudTableIm.AsString;
Edit2.Text:= DataModule2.StudTableOtch.AsString;
end;
DataModule2.StudTable.Next;
end;
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
Form9.Close;
end;
Топ үшін керекті тапсырулар
procedure ... ... ... ... TForm28.ComboBox1Change(Sender: TObject);
begin
Combobox2.Visible:=true;
end;
procedure TForm28.ComboBox2Change(Sender: TObject);
begin
Combobox3.Visible:=true;
end;
procedure TForm28.ComboBox3Change(Sender: TObject);
begin
DateTimePicker1.Visible:=true;
end;
procedure TForm28.ComboBox4Change(Sender: TObject);
begin
DataModule2.PredTable.First;
While Not(DataModule2.PredTable.Eof)do
begin
if ... ... ... ... ... ... ... then
Combobox5.Items.Add(DataModule2.PrepTableFam_prep.Value);
DataModule2.PrepTable.Next;
end;
DataModule2.Pred1Table.Next;
Combobox5.Visible:=true;
end;
procedure TForm28.BitBtn3Click(Sender: TObject);
begin
data:='';
DataModule2.Neob_sdachaTable.AppendRecord([Combobox1.Text,Combobox2.Text,Com
bobox3.Text,DateTimePicker1.Date,intTostr(nompp),Combobox4.Text]);
DataModule2.StudTable.First;
While not DataModule2.StudTable.Eof do
begin
if Combobox1.Text=DataModule2.StudTableNaz_grup.Value then
begin
os:=0;
nomst:=DataModule2.StudTableNom_stud.Value;
DataModule2.SdachaTable.AppendRecord([inttostr(nomst),Combobox2.Text,Combobo
x3.Text,data,inttostr(nompp),inttostr(nompd),inttostr(os)]);
end;
DataModule2.StudTable.Next;
end;
ShowMessage('Записи успешно ... ... ... ... ... ... TObject);
begin
Form14.ShowModal;
end;
procedure TForm28.BitBtn2Click(Sender: TObject);
begin
Form25.ShowModal;
end;
procedure TForm28.ComboBox5Change(Sender: TObject);
begin
DataModule2.PrepTable.First;
While Not(DataModule2.PrepTable.Eof)do
begin
if Combobox5.Text=DataModule2.PrepTableFam_prep.Value then
nompp:=DataModule2.PrepTableNom_prep.Value;
DataModule2.PrepTable.Next;
end;
BitBtn3.Visible:=true;
end;
Ведомстьтің толтырылуы
procedure TForm27.FormCreate(Sender: TObject);
begin
Combobox1.Text:='';
Combobox1.Items.Clear;
DataModule2.PredTable.Active:=true;
DataModule2.StudTable.Active:=true;
DataModule2.SdachaTable.Active:=true;
DataModule2.Neob_sdachaTable.Active:=true;
AdoQuery1.Active:=true;
Adotable1.Active:=true;
Adotable2.Active:=true;
Adotable3.Active:=true;
DataSource2.DataSet:=ADOTable1;
DataModule2.PredTable.First;
While Not(DataModule2.PredTable.Eof)do
begin
Combobox1.Items.Add(DataModule2.PredTableSokr_pred.Value);
DataModule2.PredTable.Next;
end;
end;
procedure TForm27.ComboBox1Change(Sender: TObject);
begin
DataModule2.PredTable.First;
While Not(DataModule2.PredTable.Eof)do
begin
if Combobox1.Text=DataModule2.PredTableSokr_pred.Value then
nompd:=DataModule2.PredTableNom_pred.Value;
DataModule2.PredTable.Next;
end;
end;
procedure TForm27.BitBtn2Click(Sender: TObject);
begin
Form27.Close;
end;
procedure TForm27.Button1Click(Sender: ... ... ... not ... do
begin
Combobox1.Items.Add(DataModule2.GrupTableNaz_grup.Value);
DataModule2.GrupTable.Next;
end;
end;
procedure TForm11.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TForm11.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=True
then
begin
Combobox1.Enabled:=true;
Combobox1.SetFocus;
Combobox1.Color:=clWindow;
DataSource1.DataSet:=ADOQuery2;
end
else
begin
Combobox1.Text:='';
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
end;
end;
Оқушылардың толық тізімін шығару
procedure TForm11.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked=True
then
begin
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
Combobox1.Text:='';
DataSource1.DataSet:=ADOQuery1;
end;
end;
procedure ... ... ... ... ... отделения';
Sheet.Cells[2,1]:='н/п';
Sheet.Cells[2,2]:='Фамилия учащегося';
Sheet.Cells[2,3]:='Имя учащегося';
Sheet.Cells[2,4]:='Отчество учащегося';
Sheet.Cells[2,5]:='Дата рождения';
Sheet.Cells[2,6]:='Национальность';
Sheet.Cells[2,7]:='Адрес';
Sheet.Cells[2,8]:='Телефон';
Sheet.Cells[2,9]:='Название группы';
index:=3;
nom:=1;
AdoQuery1.First;
for i:=0 to ADOquery1.RecordCount-1 do
begin
Sheet.Cells[index,1]:=nom;
Sheet.Cells[index,2]:=ADOquery1.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADOquery1.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=ADOquery1.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=ADOquery1.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOquery1.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=ADOquery1.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=ADOquery1.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=ADOquery1.Fields.Fields[8].AsString;
Inc(nom);
Inc(index);
ADOquery1.Next;
end;
end
else
if RadioButton2.Checked=True
then
begin
ADOQuery2.Active:=false;
ADOQuery2.Parameters.ParamByName('Naz').Value:=Combobox1.Text;
ADOQuery2.Active:=True;
Sheet:=XLApp.Workbooks[1].WorkSheets['Учащиеся'];
Sheet.Cells[1,2]:='Список учащихся группы'+combobox1.text;
Sheet.Cells[2,1]:='н/п';
Sheet.Cells[2,2]:='Фамилия учащегося';
Sheet.Cells[2,3]:='Имя учащегося';
Sheet.Cells[2,4]:='Отчество учащегося';
Sheet.Cells[2,5]:='Дата рождения';
Sheet.Cells[2,6]:='Национальность';
Sheet.Cells[2,7]:='Адрес';
Sheet.Cells[2,8]:='Телефон';
Sheet.Cells[2,9]:='Название группы';
index:=3;
nom:=1;
AdoQuery2.First;
for i:=0 to ... ... ... ... ... ... TForm17.FormCreate(Sender: TObject);
begin
DataModule2.StudTable.Active:=true;
DataModule2.Dop_danTable.Active:=true;
DataModule2.RukTable.Active:=true;
DataModule2.SpesTable.Active:=true;
DataModule2.GrupTable.Active:=true;
DataSource1.DataSet:=AdoQuery1;
RadioButton1.Checked:=True;
Combobox1.Enabled:=False;
DataModule2.GrupTable.First;
While not DataModule2.GrupTable.Eof do
begin
Combobox1.Items.Add(DataModule2.GrupTableNaz_grup.Value);
DataModule2.GrupTable.Next;
end;
end;
procedure TForm17.Button1Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('Naz').Value:=Combobox1.Text;
ADOQuery1.Active:=True;
ADOQuery2.Active:=True;
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Учащиеся';
Colum:=XLApp.Workbooks[1].WorkSheets['Учащиеся'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=50;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Учащиеся'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
if RadioButton1.Checked=True
then
begin
Sheet:=XLApp.Workbooks[1].WorkSheets['Учащиеся'];
Sheet.Cells[1,2]:='Список учащихся живущих в общежитие гуманитарно-
технического отделения';
Sheet.Cells[2,1]:='н/п';
Sheet.Cells[2,2]:='Название ... ... ... ... ... ... матери';
Sheet.Cells[2,9]:='Место работы отца';
Sheet.Cells[2,10]:='Место работы матери';
Sheet.Cells[2,11]:='Откуда приехал';
index:=3;
nom:=1;
AdoQuery2.First;
for i:=0 to ADOquery2.RecordCount-1 do
begin
Sheet.Cells[index,1]:=nom;
Sheet.Cells[index,2]:=ADOquery2.Fields.Fields[0].AsString;
Sheet.Cells[index,3]:=ADOquery2.Fields.Fields[1].AsString;
Sheet.Cells[index,4]:=ADOquery2.Fields.Fields[2].AsString;
Sheet.Cells[index,5]:=ADOquery2.Fields.Fields[3].AsString;
Sheet.Cells[index,6]:=ADOquery2.Fields.Fields[4].AsString;
Sheet.Cells[index,7]:=ADOquery2.Fields.Fields[7].AsString;
Sheet.Cells[index,8]:=ADOquery2.Fields.Fields[8].AsString;
Sheet.Cells[index,9]:=ADOquery2.Fields.Fields[9].AsString;
Sheet.Cells[index,10]:=ADOquery2.Fields.Fields[10].AsString;
Sheet.Cells[index,11]:=ADOquery2.Fields.Fields[11].AsString;
Inc(index);
Inc(nom);
ADOquery2.Next;
end;
end
else
if RadioButton2.Checked=True
then
begin
Sheet:=XLApp.Workbooks[1].WorkSheets['Учащиеся'];
Sheet.Cells[1,2]:='Список учащихся живущих в ... ... ... ... ... ... ... матери';
Sheet.Cells[2,8]:='Место работы отца';
Sheet.Cells[2,9]:='Место работы матери';
Sheet.Cells[2,10]:='Откуда приехал';
index:=3;
AdoQuery1.First;
for i:=0 to ADOquery1.RecordCount-1 do
begin
Sheet.Cells[index,2]:=ADOquery1.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADOquery1.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=ADOquery1.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=ADOquery1.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOquery1.Fields.Fields[7].AsString;
Sheet.Cells[index,7]:=ADOquery1.Fields.Fields[8].AsString;
Sheet.Cells[index,8]:=ADOquery1.Fields.Fields[9].AsString;
Sheet.Cells[index,9]:=ADOquery1.Fields.Fields[10].AsString;
Sheet.Cells[index,10]:=ADOquery1.Fields.Fields[11].AsString;
Inc(index);
ADOquery1.Next;
end;
end;
end;
procedure TForm17.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=True
then
begin
Combobox1.Enabled:=true;
Combobox1.SetFocus;
Combobox1.Color:=clWindow;
DataSource1.DataSet:=ADOQuery1;
end
else
begin
Combobox1.Text:='';
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
end;
end;
procedure TForm17.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked=True
then
begin
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
Combobox1.Text:='';
DataSource1.DataSet:=ADOQuery2;
end;
end;
procedure TForm17.BitBtn1Click(Sender: TObject);
begin
Form17.Close;
end;
Денешынықтырудан ... ... ... ... ... ... not ... do
begin
Combobox1.Items.Add(DataModule2.GrupTableNaz_grup.Value);
DataModule2.GrupTable.Next;
end;
end;
procedure TForm19.BitBtn1Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('Naz').Value:=Combobox1.Text;
ADOQuery1.Active:=True;
ADOQuery2.Active:=True;
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Учащиеся';
Colum:=XLApp.Workbooks[1].WorkSheets['Учащиеся'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum.Columns[10].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Учащиеся'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
if RadioButton1.Checked=True
then
begin
Sheet:=XLApp.Workbooks[1].WorkSheets['Учащиеся'];
Sheet.Cells[1,2]:='Список опекаемых учащихся гуманитарно-технического
отделения';
Sheet.Cells[2,2]:='Название группы';
Sheet.Cells[2,3]:='Фамилия учащегося';
Sheet.Cells[2,4]:='Имя учащегося';
Sheet.Cells[2,5]:='Отчество учащегося';
Sheet.Cells[2,6]:='Дата рождения';
Sheet.Cells[2,7]:='Национальность';
Sheet.Cells[2,8]:='Адрес';
Sheet.Cells[2,9]:='Телефон';
Sheet.Cells[2,10]:='Диагноз';
index:=3;
AdoQuery2.First;
for i:=0 to ... ... ... ... учащихся Группы '+Combobox1.Text;
Sheet.Cells[2,2]:='Фамилия учащегося';
Sheet.Cells[2,3]:='Имя учащегося';
Sheet.Cells[2,4]:='Отчество учащегося';
Sheet.Cells[2,5]:='Дата рождения';
Sheet.Cells[2,6]:='Национальность';
Sheet.Cells[2,7]:='Адрес';
Sheet.Cells[2,8]:='Телефон';
Sheet.Cells[2,9]:='Диагноз';
index:=3;
AdoQuery1.First;
for i:=0 to ADOquery1.RecordCount-1 do
begin
Sheet.Cells[index,2]:=ADOquery1.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADOquery1.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=ADOquery1.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=ADOquery1.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOquery1.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=ADOquery1.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=ADOquery1.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=ADOquery2.Fields.Fields[8].AsString;
Inc(index);
ADOquery1.Next;
end;
end;
end;
procedure TForm19.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked=True
then
begin
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
Combobox1.Text:='';
DataSource1.DataSet:=ADOQuery2;
end;
end;
procedure ... ... ... TForm19.BitBtn2Click(Sender: TObject);
begin
Form19.Close;
end;
Көпбалалы отбасында тұратын оқушылардың тізімін шығару
procedure TForm20.FormCreate(Sender: TObject);
begin
DataModule2.StudTable.Active:=true;
DataModule2.Dop_danTable.Active:=true;
DataModule2.RukTable.Active:=true;
DataModule2.SpesTable.Active:=true;
DataModule2.GrupTable.Active:=true;
DataSource1.DataSet:=AdoQuery1;
RadioButton1.Checked:=True;
Combobox1.Enabled:=False;
DataModule2.GrupTable.First;
While not DataModule2.GrupTable.Eof do
begin
Combobox1.Items.Add(DataModule2.GrupTableNaz_grup.Value);
DataModule2.GrupTable.Next;
end;
end;
procedure TForm20.BitBtn1Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('Naz').Value:=Combobox1.Text;
ADOQuery1.Active:=True;
ADOQuery2.Active:=True;
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Учащиеся';
Colum:=XLApp.Workbooks[1].WorkSheets['Учащиеся'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=50;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum.Columns[10].ColumnWidth:=20;
Colum.Columns[11].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Учащиеся'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
if RadioButton1.Checked=True
then
begin
Sheet:=XLApp.Workbooks[1].WorkSheets['Учащиеся'];
Sheet.Cells[1,2]:='Список ... ... ... ... ... ... учащегося';
Sheet.Cells[2,6]:='Дата рождения';
Sheet.Cells[2,7]:='ФИО отца';
Sheet.Cells[2,8]:='Фио матери';
Sheet.Cells[2,9]:='Место работы отца';
Sheet.Cells[2,10]:='Место работы матери';
Sheet.Cells[2,11]:='Откуда приехал';
index:=3;
AdoQuery2.First;
for i:=0 to ADOquery2.RecordCount-1 do
begin
Sheet.Cells[index,2]:=ADOquery2.Fields.Fields[0].AsString;
Sheet.Cells[index,3]:=ADOquery2.Fields.Fields[1].AsString;
Sheet.Cells[index,4]:=ADOquery2.Fields.Fields[2].AsString;
Sheet.Cells[index,5]:=ADOquery2.Fields.Fields[3].AsString;
Sheet.Cells[index,6]:=ADOquery2.Fields.Fields[4].AsString;
Sheet.Cells[index,7]:=ADOquery2.Fields.Fields[7].AsString;
Sheet.Cells[index,8]:=ADOquery2.Fields.Fields[8].AsString;
Sheet.Cells[index,9]:=ADOquery2.Fields.Fields[9].AsString;
Sheet.Cells[index,10]:=ADOquery2.Fields.Fields[10].AsString;
Sheet.Cells[index,11]:=ADOquery2.Fields.Fields[11].AsString;
Inc(index);
ADOquery2.Next;
end;
end
else
if RadioButton2.Checked=True
then
begin
Sheet:=XLApp.Workbooks[1].WorkSheets['Учащиеся'];
Sheet.Cells[1,2]:='Список многодетных учащихся группы ... ... ... ... рождения';
Sheet.Cells[2,6]:='ФИО отца';
Sheet.Cells[2,7]:='Фио матери';
Sheet.Cells[2,8]:='Место работы отца';
Sheet.Cells[2,9]:='Место работы матери';
Sheet.Cells[2,10]:='Откуда приехал';
index:=3;
AdoQuery1.First;
for i:=0 to ADOquery1.RecordCount-1 do
begin
Sheet.Cells[index,2]:=ADOquery1.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADOquery1.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=ADOquery1.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=ADOquery1.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOquery1.Fields.Fields[7].AsString;
Sheet.Cells[index,7]:=ADOquery1.Fields.Fields[8].AsString;
Sheet.Cells[index,8]:=ADOquery1.Fields.Fields[9].AsString;
Sheet.Cells[index,9]:=ADOquery1.Fields.Fields[10].AsString;
Sheet.Cells[index,10]:=ADOquery1.Fields.Fields[11].AsString;
Inc(index);
ADOquery1.Next;
end;
end;
end;
procedure TForm20.RadioButton1Click(Sender: ... ... ... ... RadioButton2.Checked=True
then
begin
Combobox1.Enabled:=true;
Combobox1.SetFocus;
Combobox1.Color:=clWindow;
DataSource1.DataSet:=ADOQuery1;
end
else
begin
Combobox1.Text:='';
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
end;
end;
procedure TForm20.BitBtn2Click(Sender: TObject);
begin
Form20.Close;
end;
Тапсырмаған оқушылардың тізімін шығару
procedure TForm8.FormCreate(Sender: TObject);
begin
AdoQuery1.Active:=true;
AdoQuery2.Active:=true;
end;
procedure TForm8.Button1Click(Sender: TObject);
begin
fORM8.Close;
end;
procedure TForm8.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked=True
then
begin
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
Combobox1.Text:='';
DataSource1.DataSet:=ADOQuery2;
end;
end;
procedure TForm8.RadioButton2Click(Sender: TObject);
begin
if ... ... ... ... ... отделения';
Sheet.Cells[2,1]:='н/п';
Sheet.Cells[2,2]:='Фамилия';
Sheet.Cells[2,3]:='Имя';
Sheet.Cells[2,4]:='Отчество';
Sheet.Cells[2,5]:='Вид сдачи';
Sheet.Cells[2,6]:='Семестр';
Sheet.Cells[2,7]:='Педмет';
Sheet.Cells[2,8]:='Фамилия преподавателя';
Sheet.Cells[2,9]:='Имя преподавателя';
Sheet.Cells[2,10]:='Отчество преподавателя';
Sheet.Cells[2,11]:='Дата сдачи';
Sheet.Cells[2,12]:='Оценка';
index:=3;
nom:=1;
dataModule2.StudTable.First;
While not dataModule2.StudTable.Eof do
begin
k:=0;
Adoquery1.First;
While Not Adoquery1.Eof ... ... ... k>2 ... (RadioButton2.Checked=True)
then
begin
ADOQuery2.Active:=false;
ADOQuery2.Parameters.ParamByName('Naz').Value:=Combobox1.Text;
ADOQuery2.Active:=True;
Sheet:=XLApp.Workbooks[1].WorkSheets['Задолженники'];
Sheet.Cells[1,2]:='Список задолженников группы '+Combobox1.Text;
Sheet.Cells[2,1]:='н/п';
Sheet.Cells[2,2]:='Фамилия';
Sheet.Cells[2,3]:='Имя';
Sheet.Cells[2,4]:='Отчество';
Sheet.Cells[2,5]:='Вид сдачи';
Sheet.Cells[2,6]:='Семестр';
Sheet.Cells[2,7]:='Педмет';
Sheet.Cells[2,8]:='Фамилия преподавателя';
Sheet.Cells[2,9]:='Имя преподавателя';
Sheet.Cells[2,10]:='Отчество ... ... not ... ... Not Adoquery2.Eof do
begin
if dataModule2.StudTableNom_stud.Value= ADOQuery2Nom_stud.Value then
begin
Sheet.Cells[index,1]:=nom;
Sheet.Cells[index,2]:=Adoquery2.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=Adoquery2.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=Adoquery2.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=Adoquery2.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=Adoquery2.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=Adoquery2.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=Adoquery2.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=Adoquery2.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=Adoquery2.Fields.Fields[9].AsString;
Sheet.Cells[index,11]:=Adoquery2.Fields.Fields[10].AsString;
Sheet.Cells[index,12]:=Adoquery2.Fields.Fields[11].AsString;
k:=k+1;
if k>2 then
begin
Adoquery2.next;
index:=index+k-1;
Sheet.Cells[index,5]:=Adoquery2.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=Adoquery2.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=Adoquery2.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=Adoquery2.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=Adoquery2.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=Adoquery2.Fields.Fields[9].AsString;
Sheet.Cells[index,11]:=Adoquery2.Fields.Fields[10].AsString;
Sheet.Cells[index,12]:=Adoquery2.Fields.Fields[11].AsString;
end;
end;
Adoquery2.Next;
end;
k:=0;
Inc(index);
Inc(nom);
dataModule2.StudTable.Next;
end;
end;
end;
Оқудан шығарылған оқушылардың тізімін ... ... ... not ... ... ... TObject);
begin
if RadioButton1.Checked=True
then
begin
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
Combobox1.Text:='';
DataSource1.DataSet:=ADOQuery2;
end;
end;
procedure TForm21.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=True
then
begin
Combobox1.Enabled:=true;
Combobox1.SetFocus;
Combobox1.Color:=clWindow;
DataSource1.DataSet:=ADOQuery1;
end
else
begin
Combobox1.Text:='';
Combobox1.Enabled:=false;
Combobox1.Color:=clBtnFace;
end;
end;
procedure TForm21.BitBtn1Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('Naz').Value:=Combobox1.Text;
ADOQuery1.Active:=True;
ADOQuery2.Active:=True;
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Учащиеся';
Colum:=XLApp.Workbooks[1].WorkSheets['Учащиеся'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum.Columns[10].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Учащиеся'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
if RadioButton1.Checked=True
then
begin
Sheet:=XLApp.Workbooks[1].WorkSheets['Учащиеся'];
Sheet.Cells[1,2]:='Список отчисленных учащихся гуманитарно-технического
отделения';
Sheet.Cells[2,2]:='Название группы';
Sheet.Cells[2,3]:='Фамилия учащегося';
Sheet.Cells[2,4]:='Имя учащегося';
Sheet.Cells[2,5]:='Отчество учащегося';
Sheet.Cells[2,6]:='Дата рождения';
Sheet.Cells[2,7]:='Национальность';
Sheet.Cells[2,8]:='Адрес';
Sheet.Cells[2,9]:='Телефон';
index:=3;
AdoQuery2.First;
for i:=0 to ... ... ... ... ... ... '+Combobox1.Text;
Sheet.Cells[2,2]:='Фамилия учащегося';
Sheet.Cells[2,3]:='Имя учащегося';
Sheet.Cells[2,4]:='Отчество учащегося';
Sheet.Cells[2,5]:='Дата рождения';
Sheet.Cells[2,6]:='Национальность';
Sheet.Cells[2,7]:='Адрес';
Sheet.Cells[2,8]:='Телефон';
index:=3;
AdoQuery1.First;
for i:=0 to ADOquery1.RecordCount-1 do
begin
Sheet.Cells[index,2]:=ADOquery1.Fields.Fields[0].AsString;
Sheet.Cells[index,3]:=ADOquery1.Fields.Fields[1].AsString;
Sheet.Cells[index,4]:=ADOquery1.Fields.Fields[2].AsString;
Sheet.Cells[index,5]:=ADOquery1.Fields.Fields[3].AsString;
Sheet.Cells[index,6]:=ADOquery1.Fields.Fields[4].AsString;
Sheet.Cells[index,7]:=ADOquery1.Fields.Fields[5].AsString;
Sheet.Cells[index,8]:=ADOquery1.Fields.Fields[6].AsString;
Inc(index);
ADOquery1.Next;
end;
end;
end;
procedure TForm21.BitBtn2Click(Sender: TObject);
begin
Form21.Close;
end;
Толық тапсырулар
procedure TForm3.excelIttemclick(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,nom,k:Integer;
begin
dataModule2.PolVedQuery.Active:=true;
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Ведомость';
Colum:=XLApp.Workbooks[1].WorkSheets['Ведомость'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum.Columns[10].ColumnWidth:=20;
Colum.Columns[11].ColumnWidth:=20;
Colum.Columns[12].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Ведомость'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Ведомость'];
Sheet.Cells[1,2]:='Полная ... ... ... ... преподавателя';
Sheet.Cells[2,9]:='Имя преподавателя';
Sheet.Cells[2,10]:='Отчество преподавателя';
Sheet.Cells[2,11]:='Дата сдачи';
Sheet.Cells[2,12]:='Оценка';
index:=3;
nom:=1;
dataModule2.StudTable.First;
While not dataModule2.StudTable.Eof do
begin
k:=0;
dataModule2.PolVedQuery.First;
While Not dataModule2.PolVedQuery.Eof do
begin
if
dataModule2.StudTableNom_stud.Value=dataModule2.PolVedQueryNom_stud.Value
then
begin
Sheet.Cells[index,1]:=nom;
Sheet.Cells[index,2]:=dataModule2.PolVedQuery.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=dataModule2.PolVedQuery.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=dataModule2.PolVedQuery.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=dataModule2.PolVedQuery.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=dataModule2.PolVedQuery.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=dataModule2.PolVedQuery.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=dataModule2.PolVedQuery.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=dataModule2.PolVedQuery.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=dataModule2.PolVedQuery.Fields.Fields[9].AsString;
Sheet.Cells[index,11]:=dataModule2.PolVedQuery.Fields.Fields[10].AsString;
Sheet.Cells[index,12]:=dataModule2.PolVedQuery.Fields.Fields[11].AsString;
k:=k+1;
if k>1 then
begin
dataModule2.PolVedQuery.next;
index:=index+k-1;
Sheet.Cells[index,5]:=dataModule2.PolVedQuery.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=dataModule2.PolVedQuery.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=dataModule2.PolVedQuery.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=dataModule2.PolVedQuery.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=dataModule2.PolVedQuery.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=dataModule2.PolVedQuery.Fields.Fields[9].AsString;
Sheet.Cells[index,11]:=dataModule2.PolVedQuery.Fields.Fields[10].AsString;
Sheet.Cells[index,12]:=dataModule2.PolVedQuery.Fields.Fields[11].AsString;
end;
end;
dataModule2.PolVedQuery.Next;
end;
k:=0;
Inc(index);
Inc(nom);
dataModule2.StudTable.Next;
end;
end;
Топтағы оқушылардың ... ... ... ... do
begin
Combobox1.Items.Add(DataModule2.GrupTableNaz_grup.Value);
DataModule2.GrupTable.Next;
end;
end;
procedure TForm30.Excelitemclick(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,nom,k:Integer;
begin
ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('Naz').Value:=Combobox1.Text;
ADOQuery1.Active:=True;
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Ведомость';
Colum:=XLApp.Workbooks[1].WorkSheets['Ведомость'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum.Columns[10].ColumnWidth:=20;
Colum.Columns[11].ColumnWidth:=20;
Colum.Columns[12].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Ведомость'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Ведомость'];
Sheet.Cells[1,2]:='Ведомость группы '+Combobox1.Text;
Sheet.Cells[2,1]:='н/п';
Sheet.Cells[2,2]:='Фамилия';
Sheet.Cells[2,3]:='Имя';
Sheet.Cells[2,4]:='Отчество';
Sheet.Cells[2,5]:='Вид сдачи';
Sheet.Cells[2,6]:='Семестр';
Sheet.Cells[2,7]:='Педмет';
Sheet.Cells[2,8]:='Фамилия преподавателя';
Sheet.Cells[2,9]:='Имя преподавателя';
Sheet.Cells[2,10]:='Отчество преподавателя';
Sheet.Cells[2,11]:='Дата сдачи';
Sheet.Cells[2,12]:='Оценка';
index:=3;
nom:=1;
dataModule2.StudTable.First;
While not dataModule2.StudTable.Eof do
begin
k:=0;
ADOQuery1.First;
While Not ... ... ... then
begin
Sheet.Cells[index,1]:=nom;
Sheet.Cells[index,2]:=ADOQuery1.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADOQuery1.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=ADOQuery1.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=ADOQuery1.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOQuery1.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=ADOQuery1.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=ADOQuery1.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=ADOQuery1.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=ADOQuery1.Fields.Fields[9].AsString;
Sheet.Cells[index,11]:=ADOQuery1.Fields.Fields[10].AsString;
Sheet.Cells[index,12]:=ADOQuery1.Fields.Fields[11].AsString;
k:=k+1;
if k>1 then
begin
ADOQuery1.next;
index:=index+k-1;
Sheet.Cells[index,5]:=ADOQuery1.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOQuery1.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=ADOQuery1.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=ADOQuery1.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=ADOQuery1.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=ADOQuery1.Fields.Fields[9].AsString;
Sheet.Cells[index,11]:=ADOQuery1.Fields.Fields[10].AsString;
Sheet.Cells[index,12]:=ADOQuery1.Fields.Fields[11].AsString;
end;
end;
ADOQuery1.Next;
end;
k:=0;
Inc(index);
Inc(nom);
dataModule2.StudTable.Next;
end;
end;
Оқушының тапсырулары
procedure TForm31.FormCreate(Sender: TObject);
begin
AdoQuery1.Active:=true;
DataModule2.StudTable.First;
While not DataModule2.StudTable.Eof do
begin
if DataModule2.StudTableOtchislit.Value=false then
Combobox1.Items.Add(DataModule2.StudTableFam.Value);
DataModule2.StudTable.Next;
end;
end;
procedure TForm31.BitBtn1Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,nom,k:Integer;
begin
ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('Stud').Value:=nomst;
ADOQuery1.Active:=True;
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Ведомость';
Colum:=XLApp.Workbooks[1].WorkSheets['Ведомость'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum.Columns[10].ColumnWidth:=20;
Colum.Columns[11].ColumnWidth:=20;
Colum.Columns[12].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Ведомость'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Ведомость'];
Sheet.Cells[1,2]:='Успеваемость учащегося '+Combobox1.Text;
Sheet.Cells[2,1]:='н/п';
Sheet.Cells[2,2]:='Фамилия';
Sheet.Cells[2,3]:='Имя';
Sheet.Cells[2,4]:='Отчество';
Sheet.Cells[2,5]:='Вид сдачи';
Sheet.Cells[2,6]:='Семестр';
Sheet.Cells[2,7]:='Педмет';
Sheet.Cells[2,8]:='Фамилия преподавателя';
Sheet.Cells[2,9]:='Имя ... ... ... Not Adoquery1.Eof do
begin
if nomst= ADOQuery1Nom_stud.Value then
begin
Sheet.Cells[index,1]:=nom;
Sheet.Cells[index,2]:=Adoquery1.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=Adoquery1.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=Adoquery1.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=Adoquery1.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=Adoquery1.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=Adoquery1.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=Adoquery1.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=Adoquery1.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=Adoquery1.Fields.Fields[9].AsString;
Sheet.Cells[index,11]:=Adoquery1.Fields.Fields[10].AsString;
Sheet.Cells[index,12]:=Adoquery1.Fields.Fields[11].AsString;
k:=k+1;
if k>1 then
begin
Adoquery1.next;
index:=index+k-1;
Sheet.Cells[index,5]:=Adoquery1.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=Adoquery1.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=Adoquery1.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=Adoquery1.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=Adoquery1.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=Adoquery1.Fields.Fields[9].AsString;
Sheet.Cells[index,11]:=Adoquery1.Fields.Fields[10].AsString;
Sheet.Cells[index,12]:=Adoquery1.Fields.Fields[11].AsString;
end;
end;
Adoquery1.Next;
Inc(index);
Inc(nom);
end;
end;
procedure ... ... not ... ... ... ... топтардың, жетекшілердің, оқытушылардың,пәндердің
тізімдерін шығару
procedure TForm10.FormCreate(Sender: TObject);
begin
DataModule2.SpesTable.Active:=true;
DataModule2.GrupTable.Active:=true;
DataModule2.RukTable.Active:=true;
AdoQuery1.Active:=true;
end;
procedure TForm10.Excelitemclick(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
If RadioButton1.Checked=true then
begin
XLApp.Workbooks[1].WorkSheets[1].Name:='Специальности';
Colum:=XLApp.Workbooks[1].WorkSheets['Специальности'].Columns;
Colum.Columns[1].ColumnWidth:=40;
Colum.Columns[2].ColumnWidth:=40;
Colum.Columns[3].ColumnWidth:=40;
Colum:=XLApp.Workbooks[1].WorkSheets['Специальности'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Специальности'];
Sheet.Cells[1,2]:='Список специальностей Гуманитарно-технического
отделения';
Sheet.Cells[2,1]:='Код специальности';
Sheet.Cells[2,2]:='Название специальности';
Sheet.Cells[2,3]:='Полное ... ... i:=0 to ... ... else If ... ... ... Гуманитарно-технического отделения';
Sheet.Cells[2,1]:='Код специальности';
Sheet.Cells[2,2]:='Название группы';
Sheet.Cells[2,3]:='Год поступления';
Sheet.Cells[2,4]:='Количество учащихся';
index:=4;
DataModule2.GrupTable.First;
for i:=0 to DataModule2.GrupTable.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule2.GrupTable.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=DataModule2.GrupTable.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=DataModule2.GrupTable.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=DataModule2.GrupTable.Fields.Fields[3].AsString;
Inc(index);
DataModule2.GrupTable.Next;
end;
end
else If RadioButton3.Checked=true then
begin
XLApp.Workbooks[1].WorkSheets[1].Name:='Руководители';
Colum:=XLApp.Workbooks[1].WorkSheets['Руководители'].Columns;
Colum.Columns[1].ColumnWidth:=40;
Colum.Columns[2].ColumnWidth:=40;
Colum.Columns[3].ColumnWidth:=40;
Colum.Columns[4].ColumnWidth:=40;
Colum.Columns[5].ColumnWidth:=40;
Colum.Columns[6].ColumnWidth:=40;
Colum:=XLApp.Workbooks[1].WorkSheets['Руководители'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Руководители'];
Sheet.Cells[1,2]:='Список ... ... ... i:=0 to ... ... RadioButton3.Checked=true then
begin
XLApp.Workbooks[1].WorkSheets[1].Name:='Руководители';
Colum:=XLApp.Workbooks[1].WorkSheets['Руководители'].Columns;
Colum.Columns[1].ColumnWidth:=40;
Colum.Columns[2].ColumnWidth:=40;
Colum.Columns[3].ColumnWidth:=40;
Colum.Columns[4].ColumnWidth:=40;
Colum.Columns[5].ColumnWidth:=40;
Colum.Columns[6].ColumnWidth:=40;
Colum:=XLApp.Workbooks[1].WorkSheets['Руководители'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Руководители'];
Sheet.Cells[1,2]:='Список руководителей';
Sheet.Cells[1,3]:='Гуманитарно-технического отделения';
Sheet.Cells[2,1]:='Название группы';
Sheet.Cells[2,2]:='н/п';
Sheet.Cells[2,3]:='Фамилия';
Sheet.Cells[2,4]:='Имя';
Sheet.Cells[2,5]:='Отчество';
Sheet.Cells[2,6]:='Адрес';
Sheet.Cells[2,7]:='Телефон';
index:=3;
nom:=1;
DataModule2.RukTable.First;
for i:=0 to DataModule2.RukTable.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule2.RukTable.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=nom;
Sheet.Cells[index,3]:=DataModule2.RukTable.Fields.Fields[1].AsString;
Sheet.Cells[index,4]:=DataModule2.RukTable.Fields.Fields[2].AsString;
Sheet.Cells[index,5]:=DataModule2.RukTable.Fields.Fields[3].AsString;
Sheet.Cells[index,6]:=DataModule2.RukTable.Fields.Fields[4].AsString;
Sheet.Cells[index,7]:=DataModule2.RukTable.Fields.Fields[5].AsString;
Inc(index);
Inc(nom);
DataModule2.RukTable.Next;
end;
end
else
If RadioButton4.Checked=true then
begin
XLApp.Workbooks[1].WorkSheets[1].Name:='Преподаватели';
Colum:=XLApp.Workbooks[1].WorkSheets['Преподаватели'].Columns;
Colum.Columns[1].ColumnWidth:=40;
Colum.Columns[2].ColumnWidth:=40;
Colum.Columns[3].ColumnWidth:=40;
Colum.Columns[4].ColumnWidth:=40;
Colum.Columns[5].ColumnWidth:=40;
Colum.Columns[6].ColumnWidth:=40;
Colum:=XLApp.Workbooks[1].WorkSheets['Преподаватели'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Преподаватели'];
Sheet.Cells[1,2]:='Список преподавателей Гуманитарно-технического
отделения';
Sheet.Cells[2,2]:='н/п';
Sheet.Cells[2,3]:='Фамилия';
Sheet.Cells[2,4]:='Имя';
Sheet.Cells[2,5]:='Отчество';
Sheet.Cells[2,6]:='Группы';
Sheet.Cells[2,7]:='Предмет';
index:=3;
nom:=1;
AdoQuery1.First;
for i:=0 to AdoQuery1.RecordCount-1 ... ... ... ... ... отделения';
Sheet.Cells[2,2]:='н/п';
Sheet.Cells[2,3]:='Предмет';
Sheet.Cells[2,4]:='Полное имя предмета';
index:=3;
nom:=1;
DataModule2.PredTable.First;
for i:=0 to DataModule2.PredTable.RecordCount-1 do
begin
Sheet.Cells[index,3]:=DataModule2.PredTable.Fields.Fields[1].AsString;
Sheet.Cells[index,4]:=DataModule2.PredTable.Fields.Fields[2].AsString;
Inc(index);
Inc(nom);
DataModule2.PredTable.Next;
end;
end;
end;
ҚОСЫМША Ә
ҚОСЫМША Б
| |Список учащихся ... ЭБА | | | | |
| |2007-1 | | | | ... ... ... |
|2 ... Н. Б. ... ... в Delphi 7.» - |
| ... 2004. – 608 с.; |
|3 |С.В. ... ... на Delphi 6.0», Харьков: |
| ... |
|4 ... П.Г, ... Е.П. ... в Delphi 7.0» |
| |СПБ БХВ ... ... |
|5 |И. ... Н. ... ... в Access 2002 |
|6 ... Д.В., ... А.В. «Базы данных». Москва, 2002г. |
|7 |С. ... Turbo Pascal ... |
|8 ... А.И. «База данных в среде Delphi 5», Электронная |
| ... |
|9 |Д.Б. ... И.Ю. ... ... в среде Turbo |
| |Pascal ... ... және ... ... ... ... / ... туралы
Оқушы туралы деректер
Пән туралы деректер
Оқытушытуралы деректер
Негізгі деректер
Оқытушытуралы деректер
Мамандық туралы деректер
Топ /жетекші т ... ... ... ... ... ... деректер
Оқушыны оқудан шығару
Ведо-мостьті толтыру
Тапсырыс
Мамандық туралы деректер
Топ туралы деректер
Жетекші туралы ... ... ... ... ... ... босатылған
Көпбалалы отбасы
Оқудан шығарыл-ған
Оқушылар туралы
Тапсырымстуралы
Толық тапсыру-лар
Топтың тапсырулары
Оқушының тапсырулары
Бет басы
Автор жайлы
Пайдала-нушы үшін нұсқау
Тапсырма-ған
Жалпы деректер
Жетекші туралы деректер
Оқытушытуралы деректер
Мамандық туралы деректер
5
1
3
4
2
5
5
1
6
9
8
7

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









Ұқсас жұмыстар
Тақырыб Бет саны
Австрия еліне экономикалық географиялық сипаттама22 бет
«Офис -тіpкеуші» акпараттық жүйесін құру40 бет
Бүкіл әлемнің және Қазақстанның ірі газ кен орындары5 бет
Жазықтықтағы нүктелердің геометриялық орыны44 бет
Маңғыстау мұнай-газ кенорындары: сипаттамасы және карта құрастыру34 бет
"Қабылдау бөлімі" бағдарламасы63 бет
60-80 жылдардағы ортасындағы Қазақстандағы нақты социализм12 бет
8-сыныпта «жылу құбылысы» бөлімін оқытуда компьютерлік технологияны қолдану36 бет
Access ортасындағы деректер базасы8 бет
Borland Delphi ортасында электронды оқулық жасау45 бет


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


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

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

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

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

Email: info@stud.kz

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

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