TOPREFERAT.COM.KZ - Қазақша рефераттар

МАЗМҰНЫ

КІРІСПЕ............................. 3

1. АВТОМАТТАНДЫРЫЛҒАН ЖҰМЫС ОРНЫНЫҢ ДАМУЫ ЖӘНЕ ҚОЙЫЛЫМЫ................................ 5

1.1 Дербес ЭЕМ негізінде АЖО-ның қалпы және даму перспективалары.. 5

1.2 Жұмыс орнын автоматтандыру принциптері мен оған қойылатын талаптар.............................. 10

2. МҚС (АЗС) ЖҰМЫСЫН БАСҚАРУДА МӘЛІМЕТТЕРДІ ТАЛДАУ ЖӘНЕ ШЕШІМ ҚАБЫЛДАУ ҮШІН РЕСУРСТАРДЫ ЕСЕПКЕ АЛУДЫ АВТОМАТТАНДЫРУ БАҒДАРЛАМАСЫН СИПАТТАУ................. 12

2.1 Жалпы бағдарлама туралы......................... 12

3. БАҒДАРЛАМАЛЫҚ ӨНІМДІ ҚҰРУҒА ҚОЛДАНЫЛҒАН ИНСТРУМЕНТАЛЬДЫ ҚҰРЫЛЫМДАР...................... 16

3.1 Мәліметтер қоры (МҚ) туралы түсінік................. 16

3.2 МҚ Архитектурасы......................... 17

3.3 МҚ кестесі........................... 18

3.4 Delphi – де қолданылатын мәліметтер қорының түрлері............ 19

3.5 Delphi-де мәліметтер қорымен байланысты ұйымдастыру......... 21

3.6 TQuery компонентімен жұмыс................... 23

3.7 TDBGrid компонентін қолдану.................. 28

4. ЖОБАНЫҢ ЭКОНОМИКАЛЫҚ БӨЛIМІ................. 34

4.1 Өндiру мен енгізу шығындарын есептеу……………………………….. 34

4.1.1 Алгоритмді жасауға кеткен шығын……………………………….. 34

4.1.2 Программаны жазуға және жасауға кеткен шығынды есептеу…. 34

4.1.3 Программаны енгізуге кеткен шығынды есептеу……………….. 36

4.1.4 Техникалық құралдар кешеніне кеткен шығындарды есептеу….. 37

5. ЕҢБЕКТI ҚОРҒАУ.................... 38

5.1 Негiзгi қауiп – қатер мен зияндылықтарды талдау.......... 38

5.2 Жұмыстардың қауiпсiздiгi бойынша техникалық шаралар........ 39

5.2.1 Негiзгi қауiптiлiктердi сұраптау................... 39

5.2.2 Қорғау жерқосуды есептеу………………………………………… 40

5.2.3 Өндiрiстiк санитария………………………………………………. 40

5.2.4 Жарықтықталуды есептеу…………………………………………. 41

ҚОРЫТЫНДЫ…………………………………………………………………... 42

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ…………………………………….. 43

ҚОСЫМША 1…………………………………………………………………… 44

ҚОСЫМША 2…………………………………………………………………… 46

ҚОСЫМША 3…………………………………………………………………… 47

Жұмыс түрі: Курстық жұмыс
Жұмыс көлемі: 52 бет
Пәні: Соңғы қосылған курстық жұмыстар

-----------------------------------------------------------------------------------

КУРСТЫҚ ЖҰМЫСТЫҢ ҚЫСҚАРТЫЛҒАН МӘТІНІ
МАЗМҰНЫ

КІРІСПЕ............................. 3

1. АВТОМАТТАНДЫРЫЛҒАН ЖҰМЫС ОРНЫНЫҢ ДАМУЫ ЖӘНЕ ҚОЙЫЛЫМЫ................................ 5

1.1 Дербес ЭЕМ негізінде АЖО-ның қалпы және даму перспективалары..
1.2 Жұмыс орнын автоматтандыру принциптері мен оған қойылатын талаптар..............................
2. МҚС (АЗС) ЖҰМЫСЫН БАСҚАРУДА МӘЛІМЕТТЕРДІ ТАЛДАУ ЖӘНЕ ШЕШІМ
2.1 Жалпы бағдарлама туралы......................... 12

3. БАҒДАРЛАМАЛЫҚ ӨНІМДІ ҚҰРУҒА ҚОЛДАНЫЛҒАН ИНСТРУМЕНТАЛЬДЫ ҚҰРЫЛЫМДАР...................... 16

3.1 Мәліметтер қоры (МҚ) туралы түсінік................. 16

3.2 МҚ Архитектурасы......................... 17

3.3 МҚ кестесі........................... 18

3.4 Delphi – де қолданылатын мәліметтер қорының түрлері............ 19

3.5 Delphi-де мәліметтер қорымен байланысты ұйымдастыру......... 21

3.6 TQuery компонентімен жұмыс................... 23

3.7 TDBGrid компонентін қолдану.................. 28

4. ЖОБАНЫҢ ЭКОНОМИКАЛЫҚ БӨЛIМІ................. 34

4.1 Өндiру мен енгізу шығындарын есептеу……………………………….. 34

4.1.1 Алгоритмді жасауға кеткен шығын……………………………….. 34

4.1.2 Программаны жазуға және жасауға кеткен шығынды есептеу…. 34

4.1.3 Программаны енгізуге кеткен шығынды есептеу……………….. 36

4.1.4 Техникалық құралдар кешеніне кеткен шығындарды есептеу….. 37

5. ЕҢБЕКТI ҚОРҒАУ.................... 38

5.1 Негiзгi қауiп – қатер мен зияндылықтарды талдау.......... 38

5.2 Жұмыстардың қауiпсiздiгi бойынша техникалық шаралар........ 39

5.2.1 Негiзгi қауiптiлiктердi сұраптау................... 39

5.2.2 Қорғау жерқосуды есептеу………………………………………… 40

5.2.3 Өндiрiстiк санитария………………………………………………. 40

5.2.4 Жарықтықталуды есептеу…………………………………………. 41

ҚОРЫТЫНДЫ…………………………………………………………………... 42

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ…………………………………….. 43

ҚОСЫМША 1…………………………………………………………………… 44

ҚОСЫМША 2…………………………………………………………………… 46

ҚОСЫМША 3…………………………………………………………………… 47

КІРІСПЕ

Қазіргі уақытта қоғамдық өмірде ақпараттың таралу қарқыны өте жылдам
Ақпаратты басқару компьютерлерді қолданудың негізгі саласы болып табылады және
Мәліметтер қоры - қоғамның қандай да бір саласындағы немесе
Қазіргі қоғамның талаптарына сәйкес жаңа техналогиялардың даму барысында жұмыс
Дипломдық жоба Delphi обьектілі бағытталған тілінде жазылған және мәліметтер
Дипломдық жұмыс тақырыбының қойылымы:

МҚС (АЗС) жұмысын басқаруда мәліметтерді талдау және шешім қабылдау
Мақсаты мен міндеті:

МҚС кассирінің автоматтандырылған орнын жобалау;

МҚС жұмысындағы жаппай қызмет көрсету моделін жобалау және тиімді
Дипломдық жобаның құрылымы:

Жұмыс негізінен үш тараудан тұрады:

1-тарауда Дербес ЭЕМ негізінде автоматтандырылған жұмыс орнының дамуы және
2-тарауда Бағдарлама және онымен қалай жұмыс істеу жөнінде қолданушыға
3-тарауда бағдарламалық өнімді құруға қолданылған инструментальды құрылғылар: мәліметтер қорын
1. АВТОМАТТАНДЫРЫЛҒАН ЖҰМЫС ОРНЫНЫҢ ДАМУЫ ЖӘНЕ ҚОЙЫЛЫМЫ

1.1. Дербес ЭЕМ негізінде АЖО-ның қалпы және даму перспективалары

Электрониканың дамуы есептеуіш машиналардың жаңа класының Дербес ЭЕМ-нің
Мұндай облыстарға Дербес ЭЕМ қолданылатын ұжымдық тұрмыста жатады

1.1-сурет - Дербес ЭЕМ-нің жалпы схемасы:

1-микропроцессор, 2-негізгі жады, 3-сыртқы жады, 4-дисплей, 5-клавиатура, 6-басып шығару
ЭЕМ-нің қолданылуы:

мамандардың информацияны өңдеумен байланысты еңбек сапасын өсіруге шынымен мүмкіндік
экономикалық қызметтердің жұмысшыларының АЖО-ның негізгі құраушы элементтерін, басқару тұрмысын
Дербес ЭЕМ-нің негізгі құрылғысы программа құрамындағы әртүрлі операциялардың орындалуын
Дербес ЭЕМ-нің жұмыс істеу шапшаңдығы сонымен қатар жұмыс істейтін
а) иілгіш дисктегі жинағыштар (флоппи дисктегі) дискеталар салыстырмалы түрде
б) Қатты дискідегі жинағыштар (винчестер) олар иілгіш дискілер секілді
в) Лазерлік дисктегі жинағыштар да осы уақытта жақсы таралып
(CD-ROM) өзінің кемшіліктеріне байланысты CD-ROM информацияны сақтау орнының үлкендігіне
г) Қазіргі кезде көп қолданыс таппаған басқа да көптеген
Дисплей информацияны қарауға арналған негізгі құрылғы. Ол экранның өлшемімен
Клавиатура (пернетақта) информацияны енгізуге арналған негізгі құрылғы. Сонымен бірге
Дербес ЭЕМ-нің барлық құрылғылары жүйелік магистраль арқылы қатынас жасай
АЖО келесі сұрақтарға жауап беру керек:

Маманның информациялық есептік сұраныстарын қанағаттандырады.

Жауаптың минимальды уақытты ал сұраныстар қолданушынікі.

Қолданушы дайындау деңгейіне және оның профессионалды сұрауларына бейімделу.

АЖО-да жұмысты тез қабылдау, көмек берудің қарапайымдылығы және сенімділігі.

Қолданушыға шыдамдылықпен қарау.

Қолданушыны тез оқытып-үйрету мүмкіндігі.

Есептеуіш желінің құрамындағы жұмыстың мүмкіндігі. АЖО-ның жалпыланған схемасы 1.2-суретте
Жалпы программалық қамсыздандыру (ПҚ) есептеуіш техниканың функционерленуін және жаңа
Диалогты жүйелерді талдау осы диалогты ұйымдастырушыларының көзқарасы бойынша оларды
Командалық тілі бар жүйелер.

"Адам объектілер әлемінде".

"Меню" формасындағы диалог.

Қолданбалы желілерді командалық тілді қолдану мини және микро ЭЕМ
"Меню" негізгі менюіндегі форманы диалогы қолданушыға көптеген альтернативті әрекеттерді
Енді АЖО-ны өңдеу үшін қолданылатын 2 подходты қарастырайық.

1) функционалдық қарапайым функциялардың автоматтандырылуы:

Функционалдық ПҚ-ны нақты қолдану шарттарына қалай бейімделетіндігін қарастырайық,сол сияқты
Ең бірінші болып техникалық жеке тұлға еңбегін автоматтандыру үшін
Мамандарға әр түрлі құжаттарды дайындауға мәліметтерді табу үшін үлкен
Мамандардың көпшілігі сонымен бірге әртүрлі таблицалармен жұмыс жасайды, өйткені
Көптеген мекемелерде ұйымдардың тұрмысын координациялау және бақылау үшін арналған
Мекемелік тұрмыста үлкен орынды мәліметтердің оперативті алмасуы алады, ол
Қазіргі уақытта тексттік редакторлар, кестелер, графиктік редакторларды өзіне сыйдыратын
МҚБЖ көбінесе информацияны сақтау үшін қолданылады және олар осы
шешілетін мәселелер есебі.

басқа жұмысшылармен өзара іс-әрекет.

профессионалды әдеттер мен бағыттарды есептеу.

тек ФПҚ емес, арнайы техникалық құрылғыларда да өңдеу (тышқан,
АЖО-мен мамандарды жабдықтау мекеме жұмысшыларының еңбек сапасын көтеруге, экономикалық
1.2 Жұмыс орнын автоматтандыру принциптері мен оған қойылатын талаптар

Автоматтандырылған жұмыс орнының қызмет көрсетуі деп, компьютерде, ақпаратты өңдеуде
Әр түрлі басқару объектісінде, олардың атқаратын қызметіне сәйкестендірілген, автоматтандырылған
жүйелілік;

икемділік ;

орнықтылық;

тиімділік.

Жүйелілік принципі – құрылымы белгіленген міндетіне сәйкес анықталатын жүйе
Икемділік принципі – қандайда бір модуль арқылы құрылатын жүйе
Орнықтылық принципі – жұмыс орынын автоматтандыру жүйесі мүмкін болатын
Тиімділік принципі – жүйені жасауға және оны пайдалануға кеткен
Жұмыс орынын автоматтандыруға қойылатын талаптар төмендегідей:

мамандардың ақпараттық және есептеу талабын уақытында қанағаттандыру;

автоматтандыру уақытты ұту қажеттілігінен туындайтындықтан қолданушының сұранысына аз уақыт
пайдаланушының дайындалу деңгейіне және оның профессионалдық сұранысына байланысты келтіру(адаптация);

автоматтандырылған жұмыс орынының функцияларын үйренудің қарапайымдылығы, сенімділігі;

пайдаланушыға байланыс бойынша шыдамдылықты қамтамасыз ету;

пайдаланушының тез үйренуінің маңыздылығы;

есептеуіш желі құрамында жұмыс істеуінің маңыздылығы.

2. МҚС (АЗС) ЖҰМЫСЫН БАСҚАРУДА МӘЛІМЕТТЕРДІ ТАЛДАУ ЖӘНЕ ШЕШІМ
2.1 Жалпы бағдарлама туралы

Бағдарламаны іске қосу үшін Project1.exe файлын таңдау қажет. Файлды
2.1 Сурет. Негізгі мәзір

Негізгі мәзір сипаттамасы:

«Автозаправка» мәзірі. МҚС жұмысын басқару және МҚС кассирінің автоматтандырылған
«СМО» мәзірі. МҚС жұмысындағы жаппай қызмет көрсету жүйесі негізінде
«Автор» мәзірі. Программалық өнімнің құрушысы туралы ақпарат;

«Выход» мәзірі. Программадан шығу.

1. «Автозаправка» мәзірі бойынша негізгі мәліметтер қоры. Бұл батырманы
2.2 Сурет. МҚС мәліметтер қоры.

МҚС мәліметер қоры жалпы МҚС жұмысын басқару және ондағы
Колонкалар туралы ақпараттар (2.3 - cурет);

Жанармай түрлері (2.4 - cурет);

Колонкалардағы жанармайлар (2.5 - cурет)

2.3 - cурет - Колонкалар туралы ақпараттар

2.4 - cурет - Жанармай түрлері

2.5 – cурет - МҚС мәліметтері

Сонымен қатар 2.6 және 2.7- cуреттерде жанармайларды, яғни
2.6 – сурет – МҚС ресурстарын қабылдау қызметтері

2.7 – сурет - МҚС ресурстарын сату қызметтері

МҚС автоматтандырылған жүйедегі жаппай қызмет көрсету жүйесі арқылы басқаруда
2.8 – сурет - Жаппай қызмет көрсету арқылы
Ұсынылған жобада құрылған шешімдер толығымен тапсырмаға сай, автоматты түрде
3. БАҒДАРЛАМАЛЫҚ ӨНІМДІ ҚҰРУҒА ҚОЛДАНЫЛҒАН ИНСТРУМЕНТАЛЬДЫ ҚҰРЫЛЫМДАР

3.1 Мәліметтер қоры (МҚ) туралы түсінік.

Күнбе-күн ақпарат көлемі көбейіп отыр. Ал, оларды өңдеу адамның
Қазіргі заманғы ақпараттық жүйелер (АЖ)– мәліметтер банкі болып табылады.
1) Есептеуіш жүйе;

2) Бір немесе бірнеше МҚ;

3) Мәліметтер қорын басқару жүйесі (МҚБЖ);

4) Қолданбалы программалар жиыны.

МҚ - бұл үлкен көлемді өзара байланысқан ақпаратты сақтауға,
МҚБЖ - бұл МҚ құруға, жүргізуге және қолдануға
Дербес МҚБЖ бір компьютерде жұмыс жасайтын локальді МҚ-н
Көпқолданушы МҚБЖ клиент-сервер архитектурасында жұмыс жасайтын ақпараттық жүйе
Қолданбалы программалар, немесе қосымшалар МҚ-нда орналасқан мәліметтерді өңдеуге арналады.
МҚ-ң негізгі нақты бір объект тобы туралы мәлімет
Логикалық модель - бұл мәліметтерді ұйымдастыру түрі. Негізгі
1. Иерархиялық модель - ағаш құрылымды болады. Модель
3.1 Сурет. Бір деңгейлі байланыс.

2. Желілік МҚ граф түрінде ұйымдастырылады. Мұнда басты
3.2 Желілік мәліметтер қоры.

3. Реляциялық МҚ өз атын ағылшын тіліндегі relation (қатынас)
4. Объектілі – бағытталған МҚ желілік және реляциялық моделдердің
3.2 МҚ Архитектурасы

МҚ-ның орналасуы мәліметтерді өңдейтін қосымшаны құруға әсер етеді. Орналасуына
- локальді;

- қашықтағы

болып екіге бөлінеді:

Delphi қосымшасы МҚ-на BDE (Borland Datеbase Engine – Borland
Локальді МҚ қосымша орналасқан компьютерде МҚ-мен жұмыс бір қолданушы
3.3 Сурет. Қосымшалар арасындағы қатынас.

МҚ көпқолданушы режимінде де жұмыс жасауы мүмкін. Ол үшін
Қашықтықтағы МҚ желінің компьютер – серверінде орналасады, ол осы
Ақпараттық жүйе – МҚ сервері мен клиенттен тұрады.
Клиент – бұл қосымша – клиент деп аталады.

Мәліметтер алу үшін МҚ орналасқан қашықтықтағы серверге сұраным жіберіледі:
3.4 Сурет. Қашықтағы сервермен байланыс.

3.3 МҚ кестесі

Реляциялық МҚ өзара байланысқан кестелерден тұрады. Кестелер файлдарда сақталады.
Бір кесте үшін мәліметтерден, индекстер мен кілттерден тұратын бірнеше
Кесте жолдары – жазба, бағаны- өріс деп аталады.
Әрбір өрістің уникалды аты болады. Өрісте тек бір типті
Кілт - бұл кестедегі әрбір жазбаны бір мәнді анықталатын
Индекс – бұл да кілт сияқты кесте өрістері
1) Жазбаларды бірмәнді идентификациялауға;

2) Кілттік өрістерде мәндерді қайталануын болдырмауға;

3) Кестелерді сұрыптауға;

4) Кестеде мәліметтер іздеу жылдамдығын жоғарылатуға;

5) МҚ –ң жеке кестелері арасында байланыс ұйымдастыруға.

Delphi-дің өзінде кестелер форматы жоқ. Бірақ ол локальді кестелердің
3.4 Delphi – де қолданылатын мәліметтер қорының түрлері

Локалдік мәліметтер қорында мәліметтер қоры клиент машинасында, ал файл
Локалдік вариантта мәліметтермен жұмыс істеу бір пайдаланушы режимінде болады.
Файл – сервер мәліметтер қорында мәліметтер желілік файл –
Екеуінде де BDE клиент машинасында болады, және бағдарламамен
Клиент – серверлік мәліметтер қоры.

Клиент – сервер архитектурасында BDE мен мәліметтер қоры арасында
Клиент – серверге реляциялық мәліметтер қоры (бір – бірімен
SQL сервердің қолдануымен транзакцияның қуатты аппараты бір мезгілде бірнеше
Мәліметтер қоры серверінде мәліметтер физикалық тұрғыдан бір үлкен файл
Сервер қосымшасымен біріккен архитектура.

Клиент – сервер архитектурасын дамыту идеясы (ойы) мәліметтер қорын
Клиент – сервер архитектурасы екі звенолы: бірінші звено клиент
Үш звенолы архитектурада қосымша бағдарлама құрылады, онда бұрын клиент
Қосымшасы BDE – мен жабдықталған кез келген желілік машинада
Сондай – ақ мұнда мәліметті орналастырудың файл – сервер
Клиент бағдараламасында мәліметтер қорының мәліметтер бөлігінің көшірмесін білдіретін клиенттік
3.5 Delphi-де мәліметтер қорымен байланысты ұйымдастыру

Delphi-де мәліметтер қорымен жұмыс істеуінің негізі Borland Database Engine
Delphi қосымшасы мәліметтер қорымен байланысар кезде BDE-ге барады да,
BDE псевдоним арқылы көрсетілген мәліметтер қорына сәйкес драйвер
Егер BDE-нің өзінде қажет мәліметтер қорын басқару жүйесінің драйвері
BDE SQL- сұраныстардың стандарт тілін қолдайды, ол Sybase,
Database Desctop программасы. Database Desctop
Мәліметтер қорының жаңа кестесін құруды қарастыру. Database Desctop программасы
3.5 Сурет. Жаңа кестені құру терезесі.

3.6 Сурет. Кесте құрылымын құру терезесі.

Бұл терезенің мынадай мүмкіндіктері бар:

Өрістерді құру және сипаттау;

Кілттік өрістерді беру;

Индекстерді беру;

Өрістер мәніне шектеулер қою;

Параллельдер беру (егер олар қолданылса);

Қолданылатын тілдік драйверді көрсету;

Мәнді таңдау үшін кестені беру.

Реляциялық кестеде ең болмағанда бір өріс болуы керек.Кесте құрылымында
Құрылымы анықталған соң индекстік өріс беріледі. Ол үшін кесте
Индекстік өрісті таңдап, ондағы мәннің қайталанбауын Unique (уникальды)-ге жалауша
Бұл құрылған кестені енді программада қолдануға болады.Оны ашып, ішін
(Файл ( Ашу ( Кесте)

Тікелей жаңа кесте құрылымын құрумен қатар, бар кесте құрылымын
Өріс құрылымы туралы мәліметтерді көшіріп алғаннан бөтен, қосымша информацияны
3.6 TQuery компонентімен жұмыс

TQuery компоненті қасиетінің ерекшелігі реляциялық мәліметтер қорымен жұмыс істеуге
Егер сұраныс BDE көмегімен құрылған қажет мәліметтерді мәліметтер қорынан
SQL-сұранысқа кейбір шектеулер қойғанда TQuery ”тірі” мәліметтер жүйесін құруы
Желілік немесе файл-серверлік мәліметтер қорымен жұмыс кезінде TQuery-дің мәліметтерге
Статикалық сұраныстарды орындау

Статикалық сұраныстар программаның қалыптасу кезінде құрылады (ал Select сұраныстары
Статикалық сұранысты қолмен құрастыру үшін обьекттер инспекторындағы SQL жолындағы
TQuery-ді ашу және жабу.

TQuery кампоненті мәліметтер жиынын қайтара алады(егер кампонент Select операторын
Select сұранысы жағдайында кампонент программа айдауы кезінде Open әдісімен,
Егер SQL-сұранымда Insert, Update немесе Delete операторының біреуі қолданылса,
Select операторымен құрылған мәліметтер жиынын жабу Close әдісімен немесе
Өзгертілетін мәліметтер жиыны.

TQuery кампонентімен қайтарылатын мәліметтер жиыны жазбалары TTable кампоненті жүретін
Request Live кампонентінің қасиеті True мәнін қабылдауы қажет;

Мәліметтер жиыны тек бір ғана физикалық төменгі мәліметтер қорымен(ТМҚ-мен)
Мәліметтер жиыны сұрыпталмайды (яғни сұраныста ORDER BY секциясы болмауы
Мәліметтер жиынында мәндер SUM, CONT, AVG, MIN, MAX агрегатты
Мәліметтер жиыны кэштенбейді (CashedUpDates қасиетінде false мәні болуы қажет);

Sybase SQL Server серверіне кіргенде төменгі мәліметтер қорында(ТМҚ-да) қайталанбайтын
Егер мәліметтер жиынына Post, Delete әдістерімен енгізілген өзгертулер
TQuery кoмпонентінің Request Live қасиеті еленбейді, егер жоғарыда айтылған
Әрине, бұл жағдайда кескінделмеген жазбаларды жаңартпай-ақ қандай да бір
Procedure Tform 1.bbUpdate Click(sender:Tobject);

Begin

……….

try

quUpdate. Exec SQL; // Өзгертілетін мәліметтер;

Application. Create Form(TAlarm , Alaem);

Whith Alarm do

Begin // қалтқы
Show;

SetWindowPos(Handle,hwnd_TopMost,(Scrun. Width-Width) div 2;

(Scrun. Height-Height) div 2, Width,Height, swp-NoActivate);

end;

bb Refresh. Show; // жаңартуға арналған батырманы көрсетеміз.

MessageBup(mb_IconExclemation); // Дыбыс шығарамыз.

Except

ShowMessage(‘Ошибка изменения данных !’)

End

End;

Бірақ бұлардың барлығы күрделі мәліметтер жиынын жабу мен ашуға
Айталық, мысалға, бірден үш кестеден таңдау жүргізілсін: сатып алушыларға
Select

…… /* Movedoc кестесінен таңдалатын өрістер тізімі */,

P. Name /* Сатып алушының аты-жөні бар өріс */,

S. Name /* Қойма аты бар өріс */

Form

Movedoc M,

Partnerlist P,

Scladlist S,

Where

P.code=M. Partnercod

and S. Code=M. Scladcode

Мұның орнына жаңартылатын мәліметтер жиынына:

Select

….. /* Movedoc кестесінен таңдалатын өрістер тізімі */

form

Movedoc

Partnerlist және Scladlist мәліметтерінен тұратын екі қосымша мәліметтер жиынына
Select операторы жалпы жазбаларды Where секциясында сипатталған шарттар көмегімен
3.7 TDBGrid компонентін қолдану

3.1 – кесте - Қасиеттері

Қасиеттері
Type TformBorderStyle=(bsNone bsSingle,bsToolWindow,bsSizeToolWin);

TborderStyle= bsNone...bsSingle;

Property BorderStyle:TborderStyle.

Кампоненттің жақтауларының стилін анықтайды:bsSingle-қалыңдығы 1 пиксель жақтау;bsSizeable-өзгертілетін өлшемді қарапайым
Property Columns:DBGrid Columns; DBGrid Columns типті обьект-бағандардың индексті жиынынан
Property DataSource:TDataSource; Мәліметтер көзі болатын TdataSource типті компонентке сілтемеден
Property Default Drawing:Boolean; Егер True қабылдаса, тор ұяшықтарының ішіндегілер
Property EditorMode:Boolean; Егер True қабылдаса, қолданушы ұяшықты F2 немесе
Property Field Count:Integer; Бағандар санынан тұрады.

Property Fields[Integer:Integer]: Tfield; Мәліметтер жиыны кампоненттерімен байланысқан өрістерге индексте
Property FixedColor:Tcolor; Өрістердің белгіленген түсін анықтайды.

Type TDBGridOption= (DBEditing,dgAlways show Editor,dgTitles,dgIndicator,dgColumnRestze,dgCol lines,dgRowlines,dgTabs,dgConfirmDelete,dgCanselonExit,dgRowSelect,dgAlwas show Selection,dgMultiSelect);

TDBGridOptions=sct of TDBGrideOption;

Property Options:TDBGrideOptions. Компонент әрекетінің түрін анықтайды:dgEditing-мәліметтер жиыны өзгеруіне рұхсат
Property ReadOnly:Boolean; True мәнін қабылдаса,мәліметтерді модификациялауға рұхсат бермейді.

Property SelectedField:Tfield; Ағымдағы бағанмен байланысқан мәліметтер жиынына енуге жол
Property SelectedIndex:Integer; Таңдалған бағандағы индексті Columns қасиетімен анықтайды.

Property TitleFont:Tfont. Бағандар тақырыбының шрифтін анықтайды.

3.2 – кесте - TDBGrid класының әдістері

TDBGrid класының әдістері.

Bunction Add:Tcolumn; Объект-бағанды құрады және қайтарады.

Procedure RebuildColumns; Объект-бағанның ескі анықтамасын жояды және келісілген қасиетті
Procedure RestoreDefaults. Барлық объект-бағандардың келісілген анықтамаларын қалпына келтіреді.

3.3 – кесте – TColumn класының қасиеттері

TColumn класының қасиеттері.

Type TcolumnButtonStyle= (cbAuto,cbsEllipses, cbsNone);

Proterty Buttonstyle:TcolumnButtonstyle; Бағанға тағайындалған батырма типін анықтайды:cbsAuto-төгілмелі тізімнің батырмасынан
Property Color:Tcolor; Баған түсін анықтайды.

Property DispeayName:String; Баған тақырыбынан тұрады.

Property Field:Tfield; Бағанмен байланысқан мәліметтер жиыны өзіне сілтемесі болады.

Property Font:Tfont; Баған шрифтін анықтайды.

Property PickList:TString; Төгілмелі тізім элементтерін анықтайды,егер Buttonstyl қасиетінде cbsAuto
Property ReadOnly:Boolean; Егер True қабылданса,бағандағы мәліметтерді өзгертуге болмайды.

Property Title:TcolumnTitle; Баған тақырыбындағы текстті басқаруға мүмкіндік беретін Aliynment,Caption,Color
Property Visible:Boolean; Егер False қабылдаса,баған торда көрінбейді.

Property Width:Integer; Баған ені пиксельдерден тұрады.

3.4 – кесте - Әдістері:

Әдіс
Procedure DefaultDran

ColumnCell(Const Rect:Trect;

DataCol:Integer:Column: Tcolumn; State:TgridDrawState); Кесте ұяшығының келісім бойынша кескінделуін
Function ValidFieldIndex(FieldIndex: Integer):Boolean; True-ді қайтарады,егер FieldIndex индексті калонкамен мәліметтер
3.5 – кесте - Оқиғалар:

Оқиғалар
Type TDBGrid ClickEvent= procedure(Column:Tcolumn) of object;

Property onCellClick:TDBGrid ClickEvent; Тышқанда ұяшықта басқан кезде пайда болады.

Property OnColEnter:TnotifyEvent; Ұяшықпен енгізу фокусын алу мезетінде пайда болады.

Property OnColExit:TnotifyEvent; Ұяшық енгізу фокусын жоғалтпас бұрын пайда болады.

Type TmovedEvent=procedure (Sender:Tobject;FromIndex,ToIndex:CongInt) of object;

Property OnColumnMoved: TmovedEvent; Бағанда жылжыту кезінде пайда болады:FromIndex-ауысуға дейінгі
Type DrawColumnCellEvent= procedure(Sender:Tobject; constRect:Trect; DataCol:Integer; Column:Tcolumn;

State:TgridDrawState) of object;

Property OnDrawColumnCell:TdrawColumnCellEvent; Ұяшықты кескіндеу қажеттілігі туғанда пайда болады: Rect-кескінде
Property OnEditButtonclick: TnotyfiEvent; Бағандағы батырмаға басу кезінде пайда болады.

Type TDBGridClickEvent= procedure (Column:Tcolumn) of Object;

Property OnTitleClick:TDBGridClickEvent; Тақырыпқа басу кезінде пайда болады.

TDBGrid кампоненті мәліметтер жиынының мазмұнын кестелік форматта көрсету үшін
TDBGrid бағандарының құрамын анықтау үшін бағандар редакторын (Columns Editor)
Мәліметтер жиыны үшін TField кампоненті құрылмаған жағдайда өрістердің тізбектелу
TDBLookup ComboBox компоненті.

TDBLookup компоненті мәндер тізіміндегі бір мәліметтер жиынының өрістеріндегі мәндерді
3.6 – кесте - Компонент қасиеттері:

Қасиеттер
Pb property DataField: String; Мәліметтер жиыны екіншідегі мәндер орналасатын,
Pb property DataSource: TDataSource; Мәліметтер жиыны біреуімен байланысқан TDataSource
Type TDropDownAlign=(daleft,daRight,daCenter);

Pb property DropDownAlign: TDropDownAlign: TDropDownAlign: TDropDownAlign; Редактор терезесіне қатысты
Pb property DropDownRows: Integer; Тізім элементтерінің санын анықтайды.

Pb property DropDownWidth:Integer; Тізімнің енін анықтайды.

Pb property Field:TField; Мән алынатын мәліметтер жиыны 2
Property KeyValue:Variant; Байланыс өрісінің ағымдағы мәнінен тұрады.Егер программа орындалуы
Pb property List FieldIndex:Integer; Инкрементті іздеу кезінде мәні пайдаланылатын
Pb property ListSource:TdataSource; Мәліметтер жиыны екіні анықтайды.

Ro property List Visible:Boolean; Егер тізім ашылып тұрса, Trueмәнін
Pb property ReadOnly:Boolean; Егер True қабылдаса, компонент DataField өрісінің
Ro property Text:String; Компоненттің редактор терезесінде текст болады.

3.7 – кесте - Компонент әдістері:

Әдістер
Procedure CloseUp (Accept:Boolean); Ашық тұрған тізімді жабады.Accept параметірі DataField
Procedure DropDown; Тізімді ашады.

4. ЖОБАНЫҢ ЭКОНОМИКАЛЫҚ БӨЛIМІ

Халық шаруашылығының барлық салаларында ақпараттық технологиялардың жетiстiктерiн қолдану
Бұл бөлiмде автоматтандырлған жүйенің экономикалық тиімділігін қарастырамыз.

4.1 Өндiру мен енгізу шығындарын есептеу

Өңдiру мен енгізу шығындары мына формуламен анықталады:

(4.1)

мұндағы Салг – программаның алгоритмін жасауына кеткен шығын;
4.1.1 Алгоритмді жасауға кеткен шығын

Алгоритмді жасауға кеткен шығын келесідей анықталады:

(4.2)

мұндағы ЗПразраб – жасаушының жалақысы (25 000 теңге);
Зейнетақы қоры: 25000*0,1=2500;

Табыстық салық: (25000-2500)*0,05= 1125;

Төленетін жалақы: 22500-1125=21375.

Осының негізінде әлеуметтік қажеттіліккке шығындар (21%) еске отырып, мынаны
(теңге)

Сөйтіп, алгоритмді жасауға кеткен шығын құрайды:

(теңге)

4.1.2 Программаны жазуға және жасауға кеткен шығынды есептеу

Программаны жазуға және жасауға кеткен шығынды мына формуламен анықтаймыз:

(4.3)

мұндағы Котл – программаны жазуға және жасауға кеткен машиналық
Машиналық уақыттың құны келесі формуламен анықталады:

(4.4)

мұндағы k – бір күндегі ДЭЕМ жұмыс
Машиналық уақыттың бір сағаттағы бағасы келесідей саналады (жұмыс күні
(4.5)

мұндағы А – айдағы ЭЕМ
ЭЕМ амортизациясы былай анықталады:

(4.6)

мұндағы S – ЭЕМ-нің
Амортизация құрайды:

теңге.

Электроэнергияға шығын мына формуламен анықталады:

(4.7)

мұндағы W – ЭЕМ-ге кеткен
Сонда

(теңге).

Күтуге шығындар былай есептеледі:

(4.8)

мұнда Qc – есептеуіш техниканы күтетін инженердің жалақысы (25000
Сонда

(теңге).

Жалдау шығыны былай анықталады:

(4.9)

мұндағы S – жалданған жердің
Сонда

(теңге)

Сөйтіп бір сағат машиналық уақыттың бағасы:

(теңге).

Демек, программаны жасауға кеткен машиналық уақыттың бағасы:

(теңге).

Жалақы қоры:

(4.10)

мұндағы kм – өңдеуге кеткен айлар саны (2 ай);
(теңге).

Сөйтіп:

(теңге).

4.1.3 Программаны енгізуге кеткен шығынды есептеу

Программалық жабдықтауды енгізуге кеткен шығын мына формуламен анықталады:

(4.11)

мұнда Квн – программа енгізу кезіндегі машиналық уақыттың
Машиналық уақыттың бағасы (4.4) формуласымен анықталады, мұндағы
(теңге).

Жалақы қоры былай анықталады:

(4.12)

мұндағы ЗПвн – енгізетін программисттің жалақысы (25 000
(теңге).

Программаны енгізуге кеткен шығын:

(теңге).

4.1.4 Техникалық құралдар кешеніне кеткен шығындарды есептеу

Электрондық оқулық оқыту жүйесі үшін арналаған, яғни оқу орындарында
Сөйтіп, программалық жабдықты жасау және енгізу шығыны (4.1) формула
(теңге)

5. ЕҢБЕКТI ҚОРҒАУ

5.1 Негiзгi қауiп – қатер мен зияндылықтарды талдау

Еңбектi қорғау - қалыпты бiр жүйедегi заңдылықтардың саласы ретiнде
Берiлген дипломдық жоба кернеуi 220В, жиiлiгi 50 Гц, қуаты
Қолданылатын ЭЕМ есептеу орталығы бөлмесiнде орналасқан. Есептеу орталығы бөлмесiнде
Машина залының бөлмесi табиғи және жасанды жарықтандырумен қамтамасыздандырылған. Табиғи
Машина залы ауасының температурасының 25(С, ауаның ылғалдығы 65%, ауаның
Жұмыс орындарында есептеу орталығында (ЕО) шу iшкi көздерден пайда
Машина залы бөлмесiнде шаң деңгейiнiң көтерiлуi мүмкiн.
Машина залындағы қызметкерлер 220В кернеулiктiң астында орналасқан жабдықтармен жұмыс
Машина залы бөлмесiнде жанғыш материалдар қағаз, жиһаз және т.б.
Айта келе осы берiлген дипломдық жобаны жүзеге асыру кезiнде
электр тогымен зақымдану қауiпi;

өрт қауiпi;

қолайсыз микроклимат;

дұрыс емес жарықтану;

шу;

5.2 Жұмыстардың қауiпсiздiгi бойынша техникалық шаралар

5.2.1 Негiзгi қауiптiлiктердi сұраптау

Дербес ЭЕМ - мен жұмыс iстеген кезде пайдаланушыға әртүрлi
Компьютермен жұмыс iстейтiн операторға әсер ететiн фактор – психологиялық
ЭЕМ – мен жұмыс iстеген кезде туатын негiзгi қауiптiлiк
ӨЖЖ сәулелердiң таратқышы ретiнде ЭЕМ – нiң синхроимпульстер генераторы
Электр статикалық өрiстi монитор тудырады. Электр статикалық зарядтар оның
ЭЕМ жұмысқа асырып, пайдалану кезiнде оның қайсыбiр бөлiгi iстен
Машинаның жұмыс iстеу қауiпсiздiгiн жермен қосу арқылы қамтамасыз етедi,
5.2.2 Қорғау жерқосуды есептеу

Жермен қосу құрылғының керек кедергiнiң мәнiн анықтайық. Электр қондырғыларды
Жерге қосылған құрылғысы салынатын климаттық аймақ климаттық белгiлер бойынша
5.2.3 Өндiрiстiк санитария

Бөлменiң ауданы 40 м2. Бөлмедегi құрал – жабдық нұсқаулық
Жыл мерзiмiне тәуелсiз ауаның температурасы салыстырмалы ылғалдық 40 –
Бiр сағатта екi реттен кем емес ауаның ауыстыруы болады.
Ауаның шаңдалуы 0,75 мг/м3 асырылмайды: иметикалық аймақтарда ЭЕМ –
ДЭЕМ орнатылған бөлмелерде жұмыс орындарындағы шу iшкi таратқыштар, техникалық
Рұқсат етiлген шамалардан асатын электромагниттi сәулеленудiң жүйелiк әсерi адамға
Дисплеймен жұмыс iстегенде шаршағанды азайту үшiн ұсынылады:

дисплейдiң экраны көздiң деңгейi бойынша немесе кiшкене төмен жәнеқолданушының
әр 40 – 45 минут сайын үлкен емес үзiлiс
ЭЕМ – мен шұғылдану бiр күнле 4 сағаттан аспау
Және де қызмет ететiн персоналға тiке рентген сәулелерiнен қорғану
Кәсiптiк аурулардың алдын алу мақсатында электромагнит өрiсiнiң энергиясының кернеу
5.2.4 Жарықтықталуды есептеу

Жұмыс орнының жарықтықтауын есетеу кезiнде әртүрлi әдiстер қолданылады, мысалы
Бұл әдiс жалпы бiрқалыпты жарықталуды үлкен қарағғылау заттары жоқ
Эвакуациялық жолдары тұтынудан сақтау үшiн түтiндiк тесiктер, шахталар жасалған.
Жұмыс атқаратын адамдар алдын ала өрт қауiпсiздiгi жайлы хабарланған
ҚОРЫТЫНДЫ

Дипломдық жобаның мақсаты өндірістік мәліметтер қорын, соның ішінде "МҚС
Дипломдық жобаны құру барысында келесідей нәтежиелер алынды:

1) МҚС мәліметтер қоры құрылды. Бұл мәліметтер қоры арқылы
2) Жаппай қызмет көрсету жүйесі арқылы МҚС жұмысын басқаруда
Қойылған мақсаттарға жету үшін келесідей ізденістер жүргізілді:

Жалпы мәліметтер қорының ұйымдастырылуы туралы;

Delphi программалау ортасының компоненттерін, осы ортадағы мәліметтер қорын ұйымдастыру
Бағдарламаның тиімділігі қарапайым қолданушының жұмыс істей алатындығы.

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ

“Автоматизированное рабочее место в системе управления предприятием”, Сборник научных
В.В.Шураков. “Автоматизированное рабочее место для статической обработки данных”, 1990г.

И.Л.Кантарь. “Автоматизированные рабочие места управленческого аппарата”, 1990г.

Баженова И.Ю. Delphi 6. Самоучитель программиста – М.: Кудиц
Архангельский А.Я. Разработка прикладных программ для Windows в Delphi5
Архангельский А.Я. Язык SQL в Delphi 5. –М: Бином,
Бобровский С. Delphi 57 Учебный курс. – СПб.: Питер,и
Кандзюба С.П. Delphi 6. Базы данных приложения: Лекции и
Кенту Марко. Delphi 5 для профессианалов. СПб.: Питер, 2001-944с:ил-/в
А. Я. Архангельский. Программирования в Delphi 6 –
Томас Коннолли, Каролин Бег, Анна Страган. Базы данных: проектирование,
Гофман И.Э., Хомененко А.Д. Delphi 5.-СПб.: БХВ-Санк-Петербург. 2000г.

Фаронов В.В., Шумаков П.В. Delphi 5. Рукаводство разработчика базы
ҚОСЫМША 1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons;

type

TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

WinExec(pchar('Petrol.exe'),0);

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

WinExec(pchar('SMOPetrol.exe'),0);

end;

end.

ҚОСЫМША 2

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

procedure Label1Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Label1Click(Sender: TObject);

begin

form2.Hide;

end;

procedure TForm2.Label2Click(Sender: TObject);

begin

form2.Hide;

end;

procedure TForm2.Label3Click(Sender: TObject);

begin

form2.Hide;

end;

end.

ҚОСЫМША 3

unit frmMain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Menus,ShellAPI, ImgList,

ComCtrls, ToolWin;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Query1: TQuery;

grp: TComboBox;

Label1: TLabel;

Label2: TLabel;

ImageList1: TImageList;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ToolButton7: TToolButton;

ToolButton8: TToolButton;

ToolButton9: TToolButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

N2: TMenuItem;

N10: TMenuItem;

N5: TMenuItem;

N12: TMenuItem;

N11: TMenuItem;

N7: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N3: TMenuItem;

N8: TMenuItem;

procedure grpChange(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

pp:string;

implementation

{$R *.dfm}

uses frmAddGr,frmAddGrGo,frmAddSm,frmEditSm,frmAbout;

procedure TForm1.grpChange(Sender: TObject);

begin

with query1.SQL do

begin

clear;

add('SELECT *');

add('FROM stud');

add('WHERE');

add('(gr='''+grp.Text+''')');

add('ORDER BY NM ASC');

end;

query1.Open;

label2.Caption:=query1.Fields.Fields[2].AsString+' á´ë³ì, '+query1.Fields.Fields[3].AsString+' ãðóïïàñû, êóðñ ñàíû: '+formatfloat('',query1.Fields.Fields[4].AsInteger/2)

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form1.Enabled:=false;

form2.Show;

end;

procedure TForm1.FormShow(Sender: TObject);

var i:integer;

begin

getdir(0,pp);

query1.DatabaseName:=pp+'base';

with query1.SQL do

begin

clear();

add('SELECT DISTINCT Gr');

add('From stud');

end;

query1.Open;

rp.Items.Clear;

for i:=1 to query1.recordcount do

begin

grp.Items.Add(query1.Fields.Fields[0].AsString);

query1.Next;

end;

grp.ItemIndex:=0;

with query1.SQL do

begin

clear;

add('SELECT *');

add('FROM stud');

add('WHERE');

add('(gr='''+grp.Text+''')');

add('ORDER BY NM ASC');

end;

query1.Open;

label2.Caption:=query1.Fields.Fields[2].AsString+' á´ë³ì, '+query1.Fields.Fields[3].AsString+' ãðóïïàñû, êóðñ ñàíû: '+formatfloat('',query1.Fields.Fields[4].AsInteger/2)

end;

procedure TForm1.FormResize(Sender: TObject);

begin

dbgrid1.Width:=form1.Width-40;

dbgrid1.Height:=form1.Height-130;

dbgrid1.Columns[0].Width:=dbgrid1.Width-10;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form4.gr:=query1.Fields.Fields[1].AsString;

form4.fr:=query1.Fields.Fields[2].AsString;

form4.bl:=query1.Fields.Fields[3].AsString;

form4.sm:=query1.Fields.Fields[4].AsString;

form4.bool:=false;

form4.BorderIcons:=[biSystemMenu, biMinimize];

form4.Show;

form1.Enabled:=false;

end;

procedure TForm1.N12Click(Sender: TObject);

var i,n:integer;

begin

if MessageDlg('ѳç '+grp.Text+' ãðóïïàñûí áàçàäàí ´ø³ðìåêø³ñ³ç áå?',mtConfirmation,[mbYes, mbNo], 0)
begin

n:=query1.Fields.Fields[4].AsInteger;

query1.SQL.clear;

query1.SQL.add('Delete From stud Where (Gr='''+grp.Text+''');');

query1.ExecSQL;

for i:=1 to n do

begin

query1.SQL.clear;

query1.SQL.add('Delete From Sm'+inttostr(i)+' Where (Gr='''+grp.Text+''');');

query1.ExecSQL;

end;

form1.FormShow(form1);

end;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form1.Enabled:=false;

form3.gr:=query1.Fields.Fields[1].AsString;

form3.fr:=query1.Fields.Fields[2].AsString;

form3.bl:=query1.Fields.Fields[3].AsString;

form3.sm:=query1.Fields.Fields[4].AsString;

form3.Show;

nd;

procedure TForm1.N6Click(Sender: TObject);

var i,n:Integer;

begin

n:=Query1.FieldValues['Sm'];

for i:=1 to n do

begin

with Query1.SQL do

begin

Clear;

add('Select * From sm'+IntToStr(i)+' Where (gr='''+grp.Text+''');');

end;

Query1.Open;

if Query1.Fields.Fields[3]