Құрылғылар терезесі

Мазмұны
Кіріспе 3
1 Есептің қойылуы 5
1.1 Есептің қалыптастырылуы 5
1.2 Кіріс және шығыс құжаттарының сипаттамасы 5
1.3 Бағдарламаның интерфейс талаптары 7
2 Жобалау бөлімі 10
2.1 Ақпарат базасының сипатттамасы 10
2.2 Алгоритмнің сипаттамасы 11
2.3 Қолданушы интерфейсінің ұйымдастырылуы 13
3 Дипломдық жобаны орындаудың аспаптық құралдары 14
3.1 Қолданылған операциялық жүйенің қысқаша мінездемесі 14
3.2 Программалық тілдің қысқаша мінездемесі 20
4 Эксплуатация 29
4.1 Аппараттық жабдықтарға қойылатын талаптар 29
4.2 Қолданушыға нұсқау 29
4.3 Бағдарламашыға нұсқау 33
5 Экономикалық бөлім 35
5.1 Бағдарламалық өнімді өндірудегі еңбек сыйымдылығының есебі 36
5.2 Еңбек ақысының шығыны мен бағдарламалық өнімді өндіруге
5.3 Құрылғы бағасының есебі 45
5.4 Эксплуатациялық шығынның есебі 47
5.5 Бағдарламалық өнімді өңдеуге шығын сметасын құрастыру 51
5.6 Бағдарламалық өнімнің сату бағасын есептеу 55
5.7 Есесін қайтару мерзімінің есебі 58
5.8 Техника – экономикалық көрсеткішінің есебі 59
6 Қауіпсіздік техникасы және еңбек қорғау шарасы 63
Қорытынды 71
Қолданылған әдебиеттер тізімі 72
Қосымша А CD-R диск мазмұны 74
Қосымша Б Программаның мәтіні 75
Кіріспе
Менің дипломдық жобамның тақырыбы «Avia Standart.kz» ЖШС-ның техникалық
Қазіргі автоматтандырылған жүйелер заманында осы сияқты бағдарламалар үлкен
Берілген бағдарламалық өнімнің мақсаты – ғимарат ішіндегі жөндеуге
Жоба техникалық бөлім жұмыскерлеріне ақпаратты жинау, сақтау және
Өзінің негізі ретінде бағдарлама құрылғылар туралы ақпаратты санауға
Бұл дипломдық жобалаудың тақырыбын «Техникалық бөлім» деп алуымның
Барлық ақпараттар кесте түрінде көрсетілген. Сол себепті жұмыскерлер
Осы жоғарыда айтылып кеткен мәселелерге сүйене отырып берілген
Бағдарламаны жасаған кезде назар аударатын басты мәселе –
ақ және сұр түсті экран;
қара түсті символдар шрифті.
Дипломдық жобалау алты бөлімдерден құралған:
1) есептің қойылуы бөлімі. Бұл бөлім үш бөлімшеден
2) жобалау бөлімі. Мұнда ақпарат базасының сипатттамасы, алгоритмнің
3) дипломдық жобаны орындаудың аспаптық құралдары. Бұл бөлім
4) эксплуатация бөлімі. Эксплуатация бөлімі үш бөлімшелерден құралған:
5) экономикалық бөлім. Бұл осы дипломдық жобадағы ең
6) қауіпсіз техникасы және еңбек қорғау шарасы бөлімі.
Қорытынды бөлімінде жасалған жұмыс нәтижесі бойынша қысқаша айтылып
1 Есептің қойылуы
Есептің қалыптастырылуы
Дипломдық бағдарламалық өнімнің мақсаты «Техникалық бөлім» мәлімет базасын
Дипломдық жұмыстың тақырыбы «Avia Standart.kz» ЖШС-ның техникалық бөлім
Практика өткен кәсіпорын – «Avia Standart.kz» ЖШС. Мекеме
Кәсіпорынның міндеттемелері:
компьютерлер арасында желілерді орнату;
қалалық әкімшіліктің сайтын жетілдіру;
клиент-сервер структурасын жетілдіру;
компьютерлерді жөндеу;
кеңсе құжаттарын дайындау.
Осыдан басқа техникалық бөлімі орталықтағы жұмыскерлер кең қолданбалы
1.2 Кіріс және шығыс құжаттарының сипаттамасы
Қарастырылып отырған «Техникалық бөлім» бағдарламасында кіріс мәліметтері ретінде
Кесте 1.1 – Кіріс құжаттары
Кестенің аты Жолдың аты Сипаттамасы Типі Көлемі, байт
Name_OTDEL ID Нөмірі Санауыш Бүтін
Name Бөлімнің аты Мәтіндік 20
OPERATORI ID Нөмірі Санауыш Бүтін
Surname Тегі Мәтіндік 25
Name Аты Мәтіндік 10
Ot Әкесінің аты Мәтіндік 15
Fio Тегі Мәтіндік 25
Dostup Кіру рұқсат Мәтіндік 15
Parol Пароль Сандық 25
Osnovnaya ID Нөмірі Санауыш Бүтін
Otdel Бөлімнің аты Мәтіндік 30
Кесте 1.1 - соңы
Device Құрылғы Мәтіндік 10
Nomer Тіркеу нөмірі Сандық 9
Prichina Сыну себебі Мәтіндік 15
Vid Жөндеу түрі Мәтіндік 15
Ispol Жөндеуші Мәтіндік 25
Postup Кіру рұқсат Мәтіндік 15
Vidach Тапсыру Күн/мерзім 10
Id_glav Басты нөмірі Санауыш Бүтін
Kabinet Кабинеті Сандық 5
Otdel Id Нөмірі Санауыш Бүтін
Id_otdel Бөлімнің нөмірі Санауыш Бүтін
Tel Ішкі телефоны Сандық 4
Etazh Қабаты Сандық 2
Kabinet Кабинет нөмірі Сандық 5
Ustr Id Нөмірі Санауыш Бүтін
Name Құрылғының аты Мәтіндік 15
Vid Id Нөмірі Санауыш Бүтін
name Жөндеу түрі Мәтіндік 15
Ал бағдарламаның шығыс мәліметтеріне іздеу, есеп беру
Сурет 1.1 – Есеп беру
1.3 Бағдарламаның интерфейс талаптары
Берілген дипломдық жобаның интерфейсі қолданушы интерфейсінің реализация принципіне
Бағдарлама берілгендер мен командаларды әртүрлі тәсіл арқылы (пернелер
Қолданушы интерфейсін құрудың көпдеңгейлі ұйымы досшыл құрастырылған. Досшыл
қолданушыға түсінікті терминдерді, белгілерді және суреттерді қолдану;
жүйелік анықтаманың бар болуы;
қолданушының қателіктеріне сыпайы қарау;
интерфейсті қолданушыға қарап жасау керек (білім деңгейіне байланысты).
Интерфейс шешімдері үш этапқа бөлінеді:
физикалық. Есептеуіш жүйелерінің техникалық құрылғыларымен ассоциялайды (перне тақтада
синтаксистік. Қосымша мен қолданушы арасындағы сұқпаттың шегінен ақпаратты
семантикалық. Қолданушы интерфейсінің элементтерінің мағынасымен байланысты.
Қолданушы интерфейсінің жалпы талаптарына:
унификациялау;
досшыл;
нақты үнсіз жағдайда параметрлерді анықтайды. Мәтін орнына пиктограмманы
баптау құрылғыларының көмегімен берілетін иілгіштік;
сұхбатты құрылғыларға бөлу, яғни қолданушы интерфейстерінің компоненттерін қиындық
қолданушының қателіктерін табу және оларды өзгерту мүмкіндігі, яғни
Қолданушы интерфейсінің концептуалдық проекциялау негізгі есептеулердің шешімдерін құрайды:
терезелердің құрылымын және атрибуттарын анықтау;
ақпараттардытағайындаудың сызбасын өңдеу;
оқу материалдарының навигациялығын беретін қолданушы интерфейсінің құрылғыларын анықтау;
сұхбат сызбасын өңдеу;
қолданушы интерфейсінің басқару элементтерінің жиынтығын анықтау;
қолданушы интерфейсінің баптау параметрлерін белгілеу.
Терезелердің негізгі атрибуттарына:
басты көлемдер мен орналастырылуы (терезені шақырған кездегі жоғарғы
терезе көрсетудегі стандарттық манипуляциялау операцияларын көрсету (манипуляциялау, максимизациялау,
басқа терезелерге қарағандағы терезелердің көрсетуін реттеу;
көлемдердің өзгерту шегі;
әшекейлендіру стильі (рамка түрі, фон түсі, атаудың бар
Нақты мәселеге қарамастан өндірушінің квалификациясы қорғалатын кейбір формальдық
терминологиялық орта және интерфейс. Белгілі бір диалог шығатын
пернелер тақтасын қолдану. Қандай да бір пернені басқан
қозғалыс реті. Алгоритм ағашымен “жоғарыдан төмен” қарай қозғалғанда
көмек көрсету мен жарнаманың түрлері. Программаны іске қосқанда
кірістірілген және шығарылған құжаттардың бейнесі. Енгізу мен жөндеуге
құжаттардың құрылғылары. Программа ішкі құжаттарда комментария, көмек құрылғысы,
Қосымшаның басты терезесі бастапқы болып табылады. Әрине ол
Ұрпақтық терезелер бастапқы терезенің бірінші координатына (оның жұмыс
Сурет 1.2 – Терезелердің түрлері
Ағымдық терезелер экранның кез – келген жеріне орналаса
Режимдік емес немесе ұрпақтық терезелер сұхбаттың параллелді бұтақтарын
2 Жобалау бөлімі
2.1 Ақпарат базасының сипаттамасы
«Техникалық бөлім» программасы Delphi программалау ортасында жасалған. Жөндеуге
Сурет 2.1 – Мәліметтер сызбасы
Көрсетілген кестелер туралы анықтаманы кесте 2.2-ден қарауға болады.
Кесте 2.2 – Мәліметтер кестесі
Кестенің аты Жолдың аты Сипаттамасы
Name_OTDEL ID Нөмірі
Name Бөлімнің аты
OPERATORI ID Нөмірі
Surname Тегі
Name Аты
Ot Әкесінің аты
Fio Тегі
Dostup Кіру рұқсат
Parol Пароль
Osnovnaya ID Нөмірі
Otdel Бөлімнің аты
Device Құрылғы
Nomer Тіркеу нөмірі
Prichina Сыну себебі
Vid Жөндеу түрі
Ispol Жөндеуші
Postup Кіру рұқсат
Vidach Тапсыру
Кесте 2.2 - соңы
Кестенің аты Жолдың аты Сипаттамасы
Osnovnaya Id_glav Басты нөмірі
Kabinet Кабинеті
Otdel Id Нөмірі
Id_otdel Бөлімнің нөмірі
Tel Ішкі телефоны
Etazh Қабаты
Kabinet Кабинет нөмірі
Ustr Id Нөмірі
Name Құрылғының аты
Vid Id Нөмірі
name Жөндеу түрі
2.2 Алгоритмнің сипаттамасы
Формалар арасындағы ақпараттық байланыс құрылымы сурет 2.3-де сәйкес
Сурет 2.3 – Формалар арасындағы ақпараттық байланыс құрылымы.
Бағдарламалық өнімнің сызба – нұсқасы сурет 2.4-те
Сурет 2.4 – Сызба - нұсқасы
Модульдердің анықтамасы кесте 2.5-де сәйкес келтірілген.
Кесте 2.5 – Модульдер анықтамасы
Модуль Анықтама
UDM1 Қолданылатын модульдер контейнері
UnitADDOTD Жаңа бөлімді қосу модулі
UnitADDOT2 Жаңа кабинетті қосу модулі
UnitAddpar Жұмыс орындаушыны қосу модулі
UnitAddust Құрылғыны қосу модулі
UnitAddvid Жұмыс тиін таңдау модулі
UnitDOSTUP Программаға кіру рұқсат терезесі
UnitGL Бас мәзір терезесінің модулі
UnitOPER Жаңа қолданушыны қосу модулі
UnitOTCHET Есеп беру модулі
UnitUST Құрылғы түрлерінің модулі
UnitVID Құрылғыны жөндеу тұрлерінің модулі
UnitVIDACH Құрылғыны қайтару модулі
2.3 Қолданушы интерфейсінің ұйымдастырылуы
Қазіргі уақытта кез келген специализацияланған функционалдық бағдарламалық өнімнің
Бұл бағдарламалық өнімнің басты мақсаты мәліметтерді еңгізу процессі,
Берілген бағдарламалық өнімнің ең басты мақсаты берілгендерді енгізу
Егер біз бағдарламада ашық көк, қызыл, көгілдір немесе
Берілген программалық өніммен жұмысты бастау үшін бағдарламаны жіберу
Осы бағдарламалық өнімнің сыртқы терезесінің түрі қатал классикалық
Мәтін қаріпінің ең оптимальді және қолданушыға ыңғайлы жақтары:
стиль, Times New Roman;
орта көлемді қаріп;
түс, қара;
түрі, қарапайым.
Терезелер минимум компоненттерден тұрады. Мұнда ешбір артық нәрсесіз,
Сонымен берілген дипломдық жобаның бағдарламасында стандартқа сай түстер,
Мәлімет базасына жаңа жазбаны қосу үшін алдымен бөлімді,
3 Дипломдық жобаны орындаудың аспаптық құралдары
3.1 Қолданылған операциялық жүйенің қысқаша мінездемесі
Бұрынғы компьютерде кең тараған MS (PC) – DOS
Осыдан барып, адам мен операциялық жүйе арасындағы байланысты
Тек 80 – ші жылдардың ортасында MS (PC)
80386 сериялы микропроцессорлардың пайда болуымен қатар іске қосыла
Microsoft корпорациясының операциялық жүйе даярлау жолындағы келесі есеулі
Сөйтіп Windows операциялық жүйесі Microsoft компаниясымен жасалған
Windows операциялық жүйесі келесі режимдерде жұмыс істеуі тиіс:
стандарттық режим;
кеңейтілген режим.
Егер компьютерде Windows операциялық жүйесі орнатылған болса, Windows
Қазіргі операциялық жүйелердің адамға беретін жеңілдіктері MS –
Кез – келген операциялық жүйе сияқты Windows мынадай
компьютердің барлық ақпараттық құрал – жабдықтарын басқару;
файлдық жүйемен жұмыс істеуді қамтамасыз ету;
қолданбалы программаларды іске қосу. Бұған қоса Windows жүйесі;
бір уақытта бірнеше программалардың жұмыс істеуі;
әртүрлі программалар арасында мәліметтер алмасу;
масштабталатын қаріптерді қолдану;
мультимедия мүмкіндіктерін пайдалану;
бірыңғай анықтамалық жүйе жұмысын қолдануды қамтамасыз ету.
Терезе Windows жүйесіндегі ең негізгі ұғым болып саналады.
Терезе – экранның төртбұрышты қоршаулы аумағы, онда әртүрлі
толық экранды терезе, яғни терезе экранды толығымен алып
қалыпты күйдегі терезе, яғни терезе экранның белгілі бір
белгіше (пиктограмма) түрінде, яғни терезе кішірейтіліп белгішеге айналып
Жұмыс столы – екінші негізгі ұғым.
Жұмыс столы ұғымы қазіргі барлық операциялық жүйелер интерфейсінің
Windows ортасында жұмыс столының рөлін дисплей экраны атқарады.
Белгіше (Icon) – бұл экран бетіндегі қысқаша жазуы
қосымша (қолданбалы) программалар белгішесі;
белгілі бір топтар белгішесі;
функциялар белгішесі.
Жарлық (shortcut) – бұл белгілі бір объектімен тікелей
Бума (folder) экранда каталогтарды және программалық топтарды белгілеу
Windows ортасында пернелер тақтасының көмегімен жұмыс істеуге болады,
Тышқан тетігінің екі немесе үш батырмасы болады. Жұмыс
Тышқан тетігімен орындалатын операциялар:
экран бетімен курсордың қозғалуы;
шерту (click);
екі рет шерту (double – click);
тасымалдау (drag & drop).
Windows жүйесінің негізгі технологиялық принциптері:
1) “point – and – click” (көрсету және
программа немесе құжат терезесінің аумағын кішірейту, үлкейту және
көлденең орналасқан мәзір пунктерін таңдау;
экранға шығатын мәзір командаларын таңдау;
аспаптар тақтасы командаларын таңдау;
мәліметтері бар тізімнің бір жолын белгілеу;
командалық батырманы басу, таңдау;
ауыстырып қосқыштың мәнін өзгерту;
мәтіндік ақпаратты енгізу кезінде курсордың орналасуын өзгерту;
мәтін енгізілетін өріс жолдарының бірін таңдап, оған мәлімет
“select” (ерекшелеу, белгілеу) принципі. Программалар терезесінде құжатпен жұмыс
фрагментті көшіру, тасымалдау, жою, олардың қаріптерін, мөлшерін
3) “drag - & - drop ” принципі
үлкейтілмеген терезелер мен белгішелердің орнын ауыстыру;
графикалық редактордың жұмыс аумағындағы суреттің белгіленген фрагментін жаңа
word редакторында мәтіндік ақпараттың белгіленген фрагментін басқа жерге
суреттер мен кестелердің орнын ауыстыру немесе көшірмелерін алу;
мәтін беттеріндегі абзацтың жаңа жолын және оның оң
дайын белгішелер жиынынан әрбір адам өзі қолданатын құрал
4) WYSIWYG принципі (не көрсеңіз, соны аласыз). Экранда
5) OLE технологиясы – объектілерді байланыстыра отырып кірістіру
6) DDE технологиясы – объектілерді динамикалық түрде байланыстыру.
Windows – тің алдыңғы версияларына қарағанда Windows XP
Windows XP-да өзіне топтау мен құжаттарды іздеудің жаңа
Windows XP-да Windows 9x операциялық жүйесінің ортасында қолдануға
Windows XP – да компьютер құрылғыларын орнату мен
Windows XP – бұл Microsoft компаниясымен шығарылған жаңа
– сәйкестілік (Compatibility). Бұл жүйеде Windows отбасының операциялық
– орын ауыстыру (Portability). Жүйе Inter және
– масштабтық (Scalability). Windows XP - да SMP
– қауыпсіздік жүйесі (Security). Қолданушы деңгейінде NT қауыпсіздік
– тұрақтылық пен орындалма орнықтылық (Realibility and robustness).
– локализациялау (Localization). Бұл жүйе көптеген дүниежүзілік елдер
XP версияның екі түрі болады - Windows XP
Microsoft фирмасының айтуынша XP инсталяциясы үшін 233 мегаГц
3.2 Программалық тілдің қысқаша мінездемесі
Программалау жүйесі – ол басқа программаларды құруға және
Delphi – ол тез өңдеу ортасы, онда программалау
Delphi – ол программалау тілі ретінде Delphi тілі
Форма деп Windows терезесінің қасиеттерімен ие болатын және
Delphi-дегі Дизайн Формасының жеңілдігі соншалықты тіпті интерфейсті құрудің
Формадағы компоненттер көрініп тұруы да мүмкін. Олар қолданушымен
Палитра Компоненттерімен қолдану үшін кез келген объектіге тышқанмен
Палитра Компонеттері объекттер тобының беттерінен құралған. Палитра үстінде
Проект – бұл Delphi программасы құрылған файлдар жиынтығы.
Визуалдық компонентерінің кітапханасы. Delphi өңдеген кездегі қолданылған комнонеттер
Бұл Visual Component Library (VCL). VCL-да стандартты басқару
VCL-те арнайы объект бар. Ол Windows-тың графикалық
Delphi-дің басты қасиеті – қосымшаларды құруда визуалдық компоненттерді
Объекттер кластары иерархия ретінде құрастырылған. Ол абстракты және
Қазіргі уақытта программисттер Delphi пакетінің – Borland Delphi
Программаның құрамына әр түрлі утилиттер кіреді, олар мәлімет
Формадағы компоненттер көрініп тұруы да мүмкін. Олар қолданушымен
Палитра Компоненттерімен қолдану үшін кез келген объектіге тышқанмен
Палитра Компонеттері объекттер тобының беттерінен құралған. Палитра үстінде
Проект – бұл Delphi программасы құрылған файлдар жиынтығы.
Визуалдық компонентерінің кітапханасы. Delphi өңдеген кездегі қолданылған комнонеттер
Delphi 7 программалау тілі Windows 98-ден бастап Windows
Delphi 7 тілінің жетістіктері:
- конструкцияда анықтылығы мен қарапайымдылығы;
- иілгіштігі және сенімділігі;
- қазіргі ДК-да жеңілдіріліп таралуы;
- программалау компиляциясында және дұрыс орындалуында жеткілікті толық
- мәліметтер типінің стандарттық түрлерінің бар болуы;
Delphi – ол көптеген маңызды технологиялар комбинациясы:
- жоғары өнімді машиналық код компиляторы;
- объектті-бағытталған компоненттік модель;
- программалық прототиптерінен жасалынған қосымша;
- мәлімет базасын құруға құралдарды масштабтау.
Delphi-ға негізделіген компилятор жоғары өнімділікті қамтамасыздандырады.
Бұл компилятор қазіргі кезде әлемдегі ең тез компилятор
Одан басқа Delphi-да компилятор тура өзінің машиналық
Объектті-бағытталған модельді программалардың компоненттері кодты максималды қолдануында. Ол
Windows ортасында қолданбалы интерфейс өндіру жеткілікті қиынға соқтыратын.
- бірнеше рет қайталанатын қасиеттерді қайта-қайта сипаттамай бірақ
- объектілер кітапханасын құру мүмкіндігі;
- бағдарлама өзгертулердің жеңіл еңгізуі;
- касиеттердің жақсы локализациялауы бағдарламаның құрылымымен танысуға ыңғайлы,
- бағдарламаның әртүрлі объектілеріне кірудің бірнеше мүмкіндіктерінің болуы.
ОБП (объекті бағытталған программалау) үш негізгі қасиеті бар:
ОБП ережелері бойынша объектілердің жолдарына тікелей қатынасу беріктілігі
Мұрагерлік объектілердің иерархиясын құру мүмкіндігін бере алады. Қарапайымнан
Бұндай иерархияның мысалы ретінде дисплей экранының нүктесін қарастыруға
Объектті-бағытталған модельді программалардың компоненттері кодты максималды қолдануында. Ол
Windows ортасында қолданбалы интерфейс өндіру жеткілікті қиынға соқтыратын.
Әртүрлі туыстас объектілерге бір классты әрекеттер беруге болатынын
Әрбір белгілі объектінің өзінің бағдарламасы болады. Ол бұл
Қосымшаның өңделуі Delphi 7.0 орындалады. Бұл мәліметтер базаларымен
Delphi ортасы жылдам өңделетін қосымшаларға арналған визуалды аспаптардың
VCL – визуалды компоненттердің кітапханасы өзіне қолданбалы интерфейстің
Windows ортасында қолданбалы интерфейс өндіру жеткілікті қиынға соқтыратын.
Delphi структуралық объектті-бағытталған тілді (Object Pascal) қолданады, ол
Delphi алдыңғы қатарлы программалық концепциаларды, оған қоса инкапсуляцияны,
Кросс – платформалық қосымшалар Delphi 6.0 кросс-платформалық қосымшаларды
Windows және Linux. Бірақ CLX-тің мүмкіндіктері өз VCL-ге
Жасалынған variant типтері операцияның жүктелуіне мүмкіндік береді. Өзіндік
Интернационалды және Локалды қосымшалар. Интернационалды және Локалды қосымшалар
Бұрынғы Delphi 5.0-те ол тіліне тәуелді және
Бірақ Delphi 6.0-да бұл әдіс одан әрі
Мәзір және аспаптар тақтасының жаңа құру мүмкіндіктері. Delphi
Енгізілген компоненттер қолданушы мәзірін және аспаптар тақтасын икемдеу
Delphi структуралық объектті-бағытталған тілді (Object Pascal) қолданады, ол
Delphi алдыңғы қатарлы программалық концепциаларды, оған қоса инкапсуляцияны,
VCL кітапханасы. Компоненттер жинағында 8 жаңа бет пайда
Кітапханаға енгізу және әр түрлі ақпаратты өзгерту жаңа
Біраз өзгертулер компоненттер мен кластарда жасалды. Delphi-мен күнде
- Tcontrol класына HelpKeyword және HelpType жаңа қасиеттері
- TControl класына жаңа ClientToParent әдісі енгізілген, осы
- Tstrings класына DelimitedText, Delimiter және QuoteChar қасиеттері
- TLabel таңбасында (дәлірек айтқанда TCustomLabel) OnMouseEnter және
- Tcolor типіне мына түстер қосылған:
а) clGradientActiveCaption (Windows 98\2000);
б) clGradientInactiveCaption (Windows 98\2000);
в) clDefault – компонент түсі;
- TcheckListBox-қа Header, HeaderBackgroundColor, HeaderColor қосылған қасиеттер, олар
- TcustomListBox-қа және оның кластарының мұрагері (TListBox, TCheckListBox)
- TcustomAction класына және оның мәзір бөлімдерінің класына
- файлдарды ашу және сақтау диалогтарына OptionsEx қасиеті
- Align қасиетінде жаңа мүмкіндік alCustom мағынасы пайда
- OnMouseWheel, OnMouseWheelUp және OnMouseWheelDown оқиғалары TwinControl класынан
Жалпы алғанда VCL-дің кластарының және компоненттерінің саны тез
Мәлімет базаларына қатынасу. Delphi 6.0-да мәлімет базаларына жаңа
Delphi ортасы жылдам өңделетін қосымшаларға арналған визуалды аспаптардың
VCL – визуалды компоненттердің кітапханасы өзіне қолданбалы интерфейстің
Delphi структуралық объектті-бағытталған тілді (Object Pascal) қолданады, ол
Delphi алдыңғы қатарлы программалық концепциаларды, оған қоса инкапсуляцияны,
Кросс – платформалық қосымшалар Delphi 6.0 кросс-платформалық қосымшаларды
Windows және Linux. Бірақ CLX-тің мүмкіндіктері өз VCL-ге
Жасалынған variant типтері операцияның жүктелуіне мүмкіндік береді. Өзіндік
Интернационалды және Локалды қосымшалар. Интернационалды және Локалды қосымшалар
Бұрынғы Delphi 5.0-те ол тіліне тәуелді және қолданушы
Бірақ Delphi 6.0-да бұл әдіс одан әрі жалғасты.
Мәзір және аспаптар тақтасының жаңа құру мүмкіндіктері. Delphi
Енгізілген компоненттер қолданушы мәзірін және аспаптар тақтасын икемдеу
Dbexpress қолданғанда өзіміздің қосымшамызда DLL тиісті драйверімен ұсынуымызға
Клиенттік қосымша құрылу мүмкіндіктері жаңа компоненттердің пайда болуының
Delphi – визуалдық программалар ең сонғы шынына ие
Delphi – қосымшаны құруға арналған жоғарыкөрсеткішті құрылғы. Delphi
Объекті бағытталған программалаудың мақсаты мәліметтер мен құрылғыларды инкапсуляциялауында.
Мәлімет базаларымен байланысқан кітапхананың барлық беттері ұйымдастырылды. Барлық
XML қолдауы. Delphi 6.0-дің маңызды қолдауы – XML
Мастер XML Data Binding New Items бетінде құрылған.
Жасалынған variant типтері операцияның жүктелуіне мүмкіндік береді. Өзіндік
Интернационалды және Локалды қосымшалар. Интернационалды және Локалды қосымшалар
Бұрынғы Delphi 5.0-те ол тіліне тәуелді және қолданушы
XML құжаттары мәлімет базасымен қолданылады. XML мәліметтің қолдауы
Delphi мәліметтер базасымен және құруын жеңіл басқарады. Көптеген
Delphi – визуалдық программалар ең сонғы шынына ие
Delphi – қосымшаны құруға арналған жоғары көрсеткішті құрылғы.
Объекті бағытталған программалаудың мақсаты мәліметтер мен құрылғыларды инкапсуляциялауында.
Delphi визуалдық программалық ортасы – Pascal тілінің графикалық
Жаңа мүмкіндіктер Web серверін өңдегенде пайда болды. Бұрынғы
4 Эксплуатация
4.1 Аппараттық жабдықтарға қойылатын талаптар
Берілген бағдарламалық өнім ДК-де өңделген және тестіленген. Бағдарламамен
- Windows операциялық жүйесі;
видео карта (64мб,128bit);
- жедел жад 32 Мб;
- процессор 166 Mmx;
- жүйелік блок;
- пернетақта;
- монитор;
- тышқан;
- баспа;
- CD-ROM бағдарламаны орнату үшін;
- MS Excel есеп беру үшін.
Берілген дипломдық жоба бағдарламасына осы айтылып кеткен талаптар
4.2 Қолданушыға нұсқау
Берілген дипломдық жоба бағдарламасының басты мақсаты – жөндеуге
Берілген бағдарламалық өніммен жұмыс жасау үшін осы бағдарламаны
Сурет 4.1 – Бағдарламаның жіберілу файлы
Бағдарламамен дұрыс жұмыс жасау үшін 4.2 бөлімдегі барлық
Бағдарламаны жібергеннен кейін алдарынызда бағдарламаның программаға кіру рұқсат
Сурет 4.2 - Программаға кіру рұқсат терезесі
Алдыңызда программаның бас мәзір терезесі шығады. Осында үш
Жаңа бөлімді қосқанда сурет 4.3-да көрсетілген терезе шығады.
Сурет 4.3 – Жаңа бөлімді қосу терезесі
Жаңа кабинетті қосқанда алдыңызда сурет 4.4 көрсетілген терезе
Сурет 4.4 – Жаңа кабинет қосу терезесі
Жаңа жазбаны мәлімет базасына еңгізу үшін сурет 4.5
Сурет 4.5 – Жаңа жазбаны еңгізу
Құрылғылар тізімін сурет 4.6 көрсетілгентерезеде өңдейді.
Сурет 4.6 – Құрылғылар терезесі
Құрылғыны жөндегенде қолданылатын операциялар тізімін сурет 4.7 қарауға
Сурет 4.7 – Құрылғыны жөңдеу түрі
Есеп бергенде «Отчет» батырмасын басу керек. Кейін сурет
Сурет 4.8 – Есеп беру терезесі
«Операторы» батырмасын басқанда сурет 4.9 көрсетілген қолданушылар тізімін
Сурет 4.9 – Қолданушылар терезесі
Жаңа қолданушыны еңгізгенде сурет 4.10-де көрсетілген терезе шығады.
Сурет 4.10 – Жаңа қолданушыны еңгізу
Егерде қолданушыға көмек керек болса, ол «Помощь» батырмасы
Сурет 4.11 – Көмек терезесі
4.3 Бағдарламашыға нұсқау
Дипломдық жобаның тақырыбы “Техникалық бөлім” деп аталады. Бұл
“Техникалық бөлім” бағдарламасы келесі файлдардан тұрады:
*.pas – жобаның барлық терезелерінің құрастырылуы осы файлдарда
*.ddp - әрбір формаға бір файлдан келетін формалардың
*.dof – формада басқару элементтерінің қасиеттеріне арналған берілгендерден
Берілген бағдарламалық өніммен жұмыс жасау үшін осы бағдарламаны
Кесте 4.1- де жұмыс барысында пайда болатын сұғбаттаушы
Кесте 4.1 – бағдарламашыға хабарлама
Хабарлама Сипаттамасы Қолданылатын іс-әрекет
Необходимо выбрать пользователя Операторды таңдау керек ОК батырмасын
Необходимо выбрать уровень доступа Рұқсат деңгеін таңдау ОК
Пустое поля "пароль" Пароль еңгізілмеген ОК батырмасын басу
Доступ запрещен Кіруге рұқсат жоқ ОК батырмасын басу
Запись уже существует Еңгізілген жазба мәлімет базасында бар
Ошибка транзакции Транзакцияның қателігі ОК батырмасын басу
Удалить запись? Ағымды жазбаны жою Yes – жою,
Записей нет для удаления Жоюға келетін жазбалар жоқ
Необходимо произвести поиск для отчета Есеп үшін ізденіс
Записей нет для отчета Есеп үшін жазбалар жоқ
Короткий номер телефона Телефонның нөмірі өте қысқа ОК
Дубликат записей Еңгізілген жазба мәлімет базасында бар ОК
Актуальность даты неверны Еңгізілген күн/мерзім қате ОК батырмасын
5 Экономикалық бөлім
Қазіргі заманғы нарық шарттарына сәйкес біз ақшамен
Бағдарламалық өнім шығару кезінде осы бағдарламалық өнім нарыққа
5.1 Бағдарламалық өнімді өндірудегі еңбек сыйымдылығының есебі
Негізгі шығындар – ол еңбек төлеуге жұмсалатын шығындар.
Өнеркәсіпте еңбек өнімділігін өлшеу үшін екі көрсеткіш қолданылады.
Еңбек сыйымдылығы – белгілі бір өнімге немесе жұмысқа
Жұмыстың еңбек сыйымдылығы – ол нағыз еңбек өнімділігінің
Бағдарламалық өнімнің еңбек сыйымдылығы Боэм 5.1 формуласы бойынша
=А*(Мөлшер)В*Ме (айлық-адам),
мұндағы А – масштабты коэффициент, 2,5-ке тең;
Мөлшер – бағдарламалық өнімнің мыңдықпен алынған жолдар
В – жоба мөлшерінен шығынның айрылған тәуелділігін көрсететін
Ме – шығынның жеті факторларының әсер етуін көрсететін
Ол келесі 5.2 формула бойынша есептеледі
Ме= ,
мұндағы ЕМi – мағыналары кесте 5.1 -де келтірілген
Кесте 5.1 – Факторлардың бағасы мен сандық мағынасы
Шығын факторларының атауы Көрсетілуі Факторлардың бағасы Сан. мағ.
Персонал мүмкіндіктері
ЕМ1
Номиналды
1
Өнімнің сенімділігі мен күрделілігі
Қалыпты сенімділік
Басқару операциялары – негізінен қарапайым ішке салыну
Есертеу операциялары – қарапайым мағыналарды есептеу
Құралдармен жүргізілетін операциялар – енгізіу-шығару құрылғысының мінездемесін білу
Берілгендерді басқару операциялары
Интерфейсті басқару операциялары – 1,15
0,75
0,75
0,75
0,75
Қажетті қайтадан қолдану ЕМ3 Жоба деңгейіндегі номиналдысы 1
Платформа ауырлығы ЕМ4 50 % - дан кем
Персонал ептілігі ЕМ5 Номиналды 1
Қызмет көрсету қорлары ЕМ6 Өмірлік циклдың базалық утилиталары,
График ЕМ7 Номиналды, 100 % 1
Еңбек сиымдылығын есептеу алдында Ме есептеп алу керек
,
,
(айлық-адам).
Кесте 5.2-де келтірілгендей есептелген шығын өңдеу кезеңі бойынша
Кесте 5.2 – Бағдарламаны өңдеу процесіндегі шығындарды орналастыру
БҚ-ды өңдеу кезеңдері Шығындарды орналастыру, % Шығындарды
Анализ және жобалау 40 % 1,56
Кодтау, тестілеу, жөндеу 60 % 2,34
Барлығы 100 % 3,9
Кесте 5.2-де келтірілген есептеу бойынша еңбек сыйымдылығы анализ
5.2 Еңбек ақысының шығыны мен бағдарламалық өнімді өндіруге
Бағдарламалық өнімді өңдеу үшін еңбек төлеу фондын есептегенде
- басқарушылар – басқа жұмысшылардың әрекеттерін координаттау;
- маман иелері - мамандық білімді қажет ететін
- қызметкерлер - мамандық білімді қажет етпейтін тек
- жұмыскерлер – жеке меншікке табыс әкелетін өніммен
- кіші қызмет атқаратын мүшелер – өндірістік орындарды
Бағдарламалық өнімді өңдеу үшін келесі тұжырымдар керек:
- анализ және жобалау кезеңіндегі квалификацияға деген талаптар:
- кодтау, тестілеу және жөндеу кезеңіндегі квалификацияға деген
Минималды еңбек ақы – 10105 теңге (МЕА).
Минималды еңбек ақы – ол мемлекетпен белгіленген еңбек
Еңбек төлеуді өлшеу тәсілі бойынша еңбек төлеудің екі
- уақыт бойынша;
- келісім бойынша.
Уақыт бойынша еңбек ақының мөлшері жұмыс істелген уақыт
Қосымша еңбек ақы – ол жұмыс істелмеген уақыттың
Берілген жұмыс түрінде еңбек төлеудің уақыт бойынша формасы
Еңбекақы бұл – жұмыскерлерге оның еңбегі үшін сапасына,
Қажетті өнімнің әлеуметтік дәрежесі. Қажетті өнімнің бір бөлігі
Жалақыны дифференциялау және оның принциптері. Еңбек ақы деңгейі
Екінші принцип, еңбек жағдайына қарай жіктеу. Еңбек жағдайы
Үшінші принцип, еліміздің дамуын байқататын экономиканың ең қажетті
Төртінші принцип, экономикалық аудан мен аймақтың табиғи-климаттық жағдайының
Қазақстан Республикасы 1996 жылғы 9-шы қаңтардағы “Қазақстан Республикасы
Бесінші принцип, жұмыскерлер өзі еңбек ететін жердегі және
Жалақыны ұйымдастырудың негізгі принйиптері тарифтік жүйеде бейнеленген. Еңбек
Кәсіпорын шаруашылық қызметін жасаудың процесінде қызметкерлерді жұмысқа
Жұмыс беруші жұмысқа қабылдаған кезде (заңды немесе жеке
Жеке еңбек келісімшарты–жұмыс беруші мен еңбеккерлер арасындағы жазбаша
Әдетте, жалақысының деңгейін жұмыс беруші белгілейді және ол
Жеке еңбек келісім–шарты бойынша тараптардың жауапкершілігі, міндеті, құқықтары
Жеке еңбек келісім–шартында мыналар қарастырылады:
- белгісіз мерзімге;
- белгілі мерзімге;
- белгілі бір жұмыс орнына, белгілі уақытқа;
- еңбеккерлер жоқ болған жағдайда оның жұмысын уақытша
Занда келісім–шарттың максимальды және тинимальды мерзімі белгіленбеуі мүмкін.
Жеке еңбек келісім-шартын жасау үшін жұмыс беруші жұмыскерден
Жұмысқа жаңадан қабылданғандарды «Жұмысқа қабылдау туралы бұйрықпен (өкімімен)»
Жобасы қажетті жағдайларда келіссөз жүргізуге жолдама және жұмыс
Барлық категориядағы қызметкерлерге, оның ішінде жоғары және арнаулы
Жұмысқа қабылдануы, басқа бір тұрақты жұмысқа ауысуы және
Еңбек кітапшасы не жұмыс берушіде, не қызметкерлердің өзінде
Жеке еңбек келісім–шартына және демалыстар кестелеріне сәйкес қызметкерлерге
Жеке еңбек келісім–шартынан басқа жұмыс беруші қызметкерлермен азаматтық–құқықтық
Сонымен қоса, жұмыс берушімен еңбеккерлердің арасындағы қатынастар ұжымдық
- тегін арнайы киімдер алатын жұмыстар мен мамандықтардың
- еңбеккерлер үшін қосымша жеңілдік және копенсация құқын
- жұмыс уақытының жиынтық (жалпы) есебін жүргізетін өндірістер,
Қызметкерді бір цкхтан (бөлімнен, учаскіден) екіншісіне ауыстырғанда «Басқа
Қызметкерлерді жұмыстан шығарғанда «Еңбек шартының тоқтатылуы туралы бұйрық
Жұмысшылар мен қызметшілердің жұмыс уақытының белгіленген кестесін сақтап
Жұмыс уақыты есебінің табельдері деректерді автоматты түрде өңдеу
Жалақы – бұл еңбек үшін төлем, оны еңбек
Еңбек тиімділігін арттырудың әртүрлі ынталандыру жолдары бар, атап
Бұл жағдайда жұмысберушінің белгіленген жалақысының деңгей заңда белгілеген
Мерзімді еңбек ақысы деп, нақты істеген уақыты үшін
Жай мерзімділік жүйесінің кезінде өзіне берілген (иеленген) тарифтік
Тариф мөлшерлерлемесін және бюжет сферасындағы еңбеккерлердің қызмет иесінің
Жұмыс мамандығы негізінен біріншіден сегізінші разрядқа дейін жіктеледі,
Тарифтік мөлшерлемесін және әртүрлі машықтық–мамандандырылған топтарындағы қызмет иесінің
Ал мамандандырылған анықтама қызметкерлердің жұмысының күрделілігін, мамандығының деңгейі
Кесімді еңбекақы тұлеген кезде алдын–ала белгіленіп қойған деңгейде
- кесімді-прогрессивті (үдемелі) еңбек ақы төлемі. Еңбек
- жанама кесімді еңбекақы төлемі.Мұнда қосалқы және басқа
Берілген жобаның негізгі мамандары бойынша еңбек төлеудің шығынын
Кесте 5.3 – Еңбек төлеу фондының есебі
Көрсеткіштер Пайда болуы Міндеттеме атауы Барлығы
Аналитик Программист
Бір айлық-адам жұмыскердің еңбек сыйымдылығы 5.1.1 Кесте, 3графа
Тарифті коэффицент ҚР БТКА 2,5 1,7 -
Оклад 2жол*МЕА 25262,5 17178,5 -
Персонал саны 5.1.1 Кесте, 3графа 2 2 4
Негізгі еңбек ақы, мың.тг. 1жол*3жол*4жол 78819 80395,38 159214,38
Қосымша еңбек ақы 5жол *0,1 7881,9 8039,53 15921,43
Еңбек ақының барлығы 5жол+6жол 86700,9 88434,91 175135,81
Премиалық төлемдер 7жол*0,2 17340,18 17686,98 35027,16
Еңбек төлеу фонды, теңге 7жол+8жол 104041,08 106303,89 210344,97
Кесте 5.3-те келтірілген есептеу бойынша еңбек төлеу фонды
Орташа еңбек ақыны келесі 5.4 формула бойынша есептейік
,
мұндағы – жалпы еңбек төлеу
- жалпы еңбек сыйымдылығы;
– орташа еңбек ақы.
.
5.3 Құрылғылар бағасының есебі
Бағдарламалық өнімді жөндеу мен тестілеуді өңдеу үшін негізгі
Жедел жад. Жүйелік жад көбінесе жедел жад немесе
Монитордың мөлшері диогонал бойынша кинескоп құбырларының қарама-қарсы бұрыштардың
Стандартты мөлшері 14”, 15”, 17”, 19” 20”, 21”.
Жүйелік блок- ішінде компьютердің ең маңызды компоненттері орналасқан
- компьютердің жұмысын басқаратын электрондық (схема микропроцессор, оперативті
- компьютердің электрондық схемасына берілетін кернеуі аз тұрақты
Жүйелік блоктын ішіндегі құрылғы ішкі құрылғы, ал оған
Негізгі қорлар – ол өзінің нағыз формасын сақтай
- мекеме;
- тасымалдау құралдары;
- көлік және құрылғы;
- құрал – жабдықтар.
Материалдық емес активтер – ол бір жылдан асатын
Кесте 5.4 – Құрылым, материалдық емес активтерді алуға
Атауы Саны, шт Бірлік бағасы,тг Сатып алынған
Celeron 2000 VMB Chaintech CT-9LIF7 i845GV\DDR256Mb (PC2700)\HDD40Gb\vidio\SB\CD-ROM\AC KME
65000
65000
6500
71500
17 '' Samsung 7535 1280x1024 мониторы 1 30000
WINDOWS XP Professional RUS OEM операциялық жүйесі 1
Delphi 7.0 жүктеу дискісі 1 6800 6800 680
Барлығы - - 128800 12880 141680
Кесте 5.4-те келтірілген есептеу бойынша құрылымның бастапқы бағасы
5.4 Эксплуатациалық шығынның есебі
Эксплуатациялық шығындардың құрамына мыналар кіреді:
- амортизациялық шығындар;
- электр энергиясының шығыны;
- құрылым эксплуатациясы мен қамтамасыз етуінің басқа да
Амортизация латынның “өтеу” деген сөзінен шыққан, тозудың құндық
Одан басқа, мына төмендегі негізгі құралдар бойынша амортизация
Амортизациялық аударымдар өндіріс шығындарында кіріктіріледі және өнім өткізуден
Амортизация нормасы – ол жылдық сомадағы амортизацияның
Амортизация – ол ескірудің экономикалық негізі, оның ақшалай
Амортизация нормасы Қазақстан Республикасының салықтық кодексінде анықталған құрылымның
Берілген жұмыста амортизация нормасы Қазақстан Республикасының салықтық кодексіне
Компьтерлік құрылым үшін амортизация нормасы жылына 30%-ды, ал
Электроэнергияның шығыны дегеніміз ол бағдарламалық өнімді компьютерге жүктеп
Басқа шығындарға және экплуатациялық құралдарға ремонт шығынының ақысын
Амортизациялық шығындардың жылдық мөлшерін келесі 5.5 формула бойынша
,
мұндағы - құрылымның бастапқы бағасы;
- амортизацияның жылдық нормасы.
,
,
,
.
Берілген бағдарламалық өнімнің өзіндік құнына жататын амортизациялық шығынның
,
мұндағы - құрылымның сағат бойынша
- айлық-адамдағы кодтау кезеңінің еңбек сыйымдылығы;
- құрылымның бірлік саны.
Құрылымның жылдық жұмыс уақытының фонды келесі 5.7 формула
,
мұндағы - календарлы уақыт фонды
- мерекелі күндердің саны (10 күнге тең деп
- демалыс күндерінің саны (104 күнге тең деп
- жұмыс күнінің сағаты (8 сағат);
- смена саны (1 смена алынады);
- құрылымның ремонт пен эксплуатациялық қызмет етуіне тоқтап
.
Берілген бағдарламалық өнімді құрастырған кездегі құрылымның нақтылық жұмыс
Берілген бағдарламалық өнімнің өзіндік құнына жататын амортизациялық шығынды
,
(5.9)
,
Электр энергиясының шығындарын келесі 5.10 формула бойынша есептейді
,
мұндағы - ваттпен өлшенетін бір
- құрылымның саны;
- электр энергиясының бағасы (5,25 тенге).
,
.
Құрылымды қамтамасыз ету мен эксплуатациялаудың басқа да шығындары
(5.12)
Эксплуатациялық шығындардың жалпы сомасын келесі 5.13 формула бойынша
,
.
Жоғарыда келтірілген есептеу бойынша эксплуатациалық шығындардың жалпы сомасы
5.5 Бағдарламалық өнімді өңдеуге шығын сметасын құрастыру
Кәсіпорынның іс - әрекетіндегі басты көрсеткіштері бұл өнімнің
Өзіндік құн – бұл өнеркәсіптің өнімге және бұл
Өзіндік құнының түрлері:
- цехтік цехтың өніміне кеткен шығыны;
- өндірістік өндірістің өнімге кеткен шығындары;
- толық бұл өндірістің өнімді дайындау, сату, сонымен
Өзіндік құнының экономикалық мазмұны жұмсалған шығындардың орнын толтыру
Осы арада кәсіпорын өзіндік құнының маңызды элементтері: амортизация,
- әлеуметтік салық статьясы жөнінен шығындарды есептеу. Әлеуметтік
- өнімді дайындау шығындары статьясы бойынша есептеу. Төлемақы
- барлық және административтік шығындар статьясы бойынша шығындарды
- реализацияға кеткен шығындар статьясы бойынша шығындарды есептеу.
Сонымен қатар кәсіпорын бір уақытта басқа да шығындарды
Өзіндік құнының мазмұның орындалу функциясы мен аңықталады:
- өзіндік құн өнім құнының кең бөлігі болып
- өзіндік құн көтерме сауда бағасын қалыптастырудың негізгі
- өзіндік құнының негізінде кейбір бұйымдар пайдалылығын, яғни
Калькуляциялауды жасау мерзімі алдын – ала және кейінгі
Алдын – ала жасалатын калькуляция өнімді шығарғанға дейін
Оған жоспарлы, сметалық және нормативтік калькуляция жатады.
Жоспарлы калькуляция - өнімге және бұйым бірлігіне мүмкін
Сметалық калькуляция – бұл жоспарлы калькуляцияның бір түрі,
Шамаланған калькуляция – нақты шығындар және 9 айдың
Өндірістік технологиялық және ұйымдастыру ерекшеліктеріне байланысты өнімдік өзіндік
- өндіріс типі;
- өндірістің күрделілігі;
- шығарылатын номенклатурасы мен сипаты;
- өндіріс циклінің ұзақтығы;
- аяқталмаған өндірістің қолда бары, құрамы және көлемі.
Шығын сметасы – ол өнімді өндіруге жұмсалатын өнеркәсіп
Статьяға канцелярлық тауарлардың шығыны – бағдарламалық өнімді жазатын
Кесте 5.5 – Сатып алынатын және канцелярлық тауарлардың
Атауы Біреуінің бағасы, тг. Саны, шт. Сома, тг.
Диск 50 1 50
Баспадан шығару 10 6 60
Барлығы - - 110
- «әлеуметтік салық» статьясы бойынша шығын есебі. Әлеуметтік
Әлеум.салық= ,
Әлеум.салық=15*1165*3,73*0,2+(53933,71 - 15*1165)*3,73*0,15=
= 37874,38 тенге.
- «өндірісті дайындау шығыны» статьясы бойынша шығын есебі.
,
.
- «жалпы және әкімшілік шығындар» статьясы бойынша шығын
,
.
- «реализация шығыны» статьясы бойынша шығын есебі. Жарнама,
,
.
Шығын статьяларының есептік нәтижесі кесте 5.6-ға сәйкес келтірілген.
Кесте 5.6 – Бағдарламалық өнімді өңдеуге жұмсалған шығын
Атауы Пайда болуы Сома, тг.
Материалдық шығындар 5.5.1 Кесте 110
Еңбек ақы 5.2.1 Кесте, Барлығы 53934,6
Әлеуметтік салық Есептеу 37874,38
Өндірісті дайындау шығыны Есептеу 10058,63
Эксплуатациялық шығындар Есептеу 7109,77
Жалпы және әкімшілік шығындар Есептеу 120703,65
Өндірістік өзіндік құн 1жол+2жол+3жол+4жол+5жол+6жол 229790,14
Реализация шығыны Есептеу 24140,3
Толық өзіндік құн 7жол+8жол 253930,44
Кесте 5.6-да келтірілген есептеу бойынша бағдарламалық өнімнің жалпы
5.6 Бағдарламалық өнімнің сату бағасын есептеу
Баға – ол ақша санын көрсететін және де
Баға - жұртқа мәлім, тауар құнының ақшалай көрінісі.
Алайда бағаның іс-қимылы қорлардың тікелей жасалуын тудырмайды, ол
Қаржы көмегімен шаруашылық жоспарларымен және үйлесімдерімен белгіленген құн
Баға амортизациялық аударымдардың көлемін анықтауда ерекше роль атқарады.
Әсіресе инфляция жағдайында Қазақстанда баға күшті өсті және
Баға еңбек ақы төлеумен тығыз байланысты. Материалдық өндіріс
Сырттай қарағанда еңбекке ақы төлеу қорын анықтауға баға
Баға – ол сатшуның тауарды белгілі бір ақша
Мекеменің есептелу бағасы – ол толық өзіндік құнының
Рентабельдік деңгейі – ол пайданың мекемеде есептелген бағасының
Жанама салықтардың ішіндегі ең маңыздысы 1992 жылы енгізілген
Демек, бұл салықтың ерекшелігі – оның салық салынатын
Салық және бюджетке төленетін басқа да міндетті төлемдер
Салық салынатын импорт бойынша ҚҚС мөлшерлемесі салық импорт
Табыс салығы бюджет түсімдерінде едәуір орын алады (23,2%).табыс
Салық салынатын табыс жылдық жиынтық табыс пен Салық
Салық салу объектілері бар жеке тұлғалар жеке табыс
Табыс салығының мөлшерлемесі 30 пайыз болып белгіленген.
Негізгі өндіріс құралы жер болып табылатын салық төлеушінің
Төлем көзінен салық салынатын табыстар – дивидендтер, депозиттер
Кәсіпорынның есептік бағасы келесі 5.18 формула бойынша есептеледі
,
Ал кіріс келесі 5.19 формула бойынша есептеледі
,
мұндағы - толық өзіндік құн;
- кіріс;
- рентабель деңгейі, 19%-ға тең.
Бағдарламаны сату бағасы келесі 5.20 формула бойынша есептеледі
.
мұндағы ҚҚС – бюджетке төленетін қосымша бағаның салық
ҚҚС= ,
мұндағы Мат.затр – Кесте 5.5-те есептелген материалдық шығындар.
ҚҚС=
Жүргізілген есептеуге сәйкес бағдарламалық өнімнің сату бағасы 347487,3
5.7 Есесін қайтару мерзімінің есебі
Егер бағдарламалық өнім кәсіпорында реализациялануға ұсынылса, онда бағдарламалақ
Есесін қайтару мерзімі келесі 5.22 формула бойынша есептеледі
,
мұндағы - есесін қайтару мерзімі;
-реализацияға кететін шығындардың санамағандағы бағдарламалақ
-бағдарламалақ өнімді кірістіру нәтижесіндегі жылдық
Жұмыс уақытын үнемдеу арқасында жылдық экономикалық эффекті келесі
,
мұндағы - бағдарламалық өнімді іске қосқанға
жұмыскердің жұмыс уақытының айлық қоры, сағатпен
,
.
Осы есептеулер бойынша есесін қайтару мерзімі 1,9 айға
5.8 Техника – экономикалық көрсеткішінің есебі
Қазақстан Республикасында аралас әлеуметтік бағытталған нарықтық экономика жағдайында
Ұжымдық пен жеке кәсіпорындағы пайда меншіккерге жатады. Өзінің
Таза табыс ұғымы жалпы табыс және материал ресурстардың
Кәсіпорын шығындары өнімнің құны түрінде болып келеді. Өзіндік
Таза табыс кәсіпорынның алған табысының бір бөлігі ғана
КТС бюджет түсімдеріне едәуір орын алады. Бұл салықты
Өнімнің рентабелділігі - коммерциялық шаруашылық есепке көшкен мемлекеттік
Өнім рентабельдығы – ол өнім реализациясы мен оның
Өнім рентабельдігі келесі 5.24 формула бойынша есептеледі
,
мұндағы ТК – таза кіріс, келесі 5.25
,
мұндағы – корпоративтік табыс салығы;
- толық өзіндік құн;
- өндірісті есептеу бағасы. КТС келесі
,
Қорқайтару – ол негізгі өндірістік қорының теңгедей есебіндегі
,
мұндағы - өнімді реализациялаудың жылдық
- негізгі қорлардың жылдық бағасы.
,
,
,
,
мұндағы - негізгі қорлардың жылдық бағасы,
Еңбек өнімділігі – адамның өндірістік қоғамдағы жұмысының өнімділігі;
Еңбек өнімділігі натуралды және ақшалай өлшемде септелуі мүмкін.
Натуралды өлшемдегі еңбек өнімділігі келесі формула бойынша есептеледі
.
Мөлшер – бағдарламалық өнімнің мөлшері.
Ақшалай өлшемдегі еңбек өнімділігі келесі формула бойынша есептеледі
,
Мұндағы - негізгі мамандардың саны.
.
Фондты қамтамасыздандыру – негізгі өндірістік фондтың көрсеткіші, келесі
,
.
Барлық техника-экономикалық көрсеткіштер кесте 5.7-ге сәйкес келтірілген.
Кесте 5.7 – Бағдарламалық өнімнің негізгі техника-экономикалық көрсеткіштері
Көрсеткіш атауы Мағынасы
Бағдарламалық өнімнің сату бағасы, тн. 347487,3
Өнімді реализациялаудағы ҚБС-сыз табыс, тн. 972551,52
Бағдарламалық өнімнің толық өзіндік құны, тн. 253925,7
Бағдарламалық өнімді реализациялаудағы таза кіріс 35782,71
Өнімнің рентабельдігі, 14
Негізгі мамандардың саны, адам. 4
Натуралды өлшемдегі еңбек өнімділігі, жылдық жол, тн. 5,46
Ақшалай өлшемдегі еңбек өнімділігі, жылдық бір адам, тн.
Негізгі қорлардың бағасы 141680
Қорқайтару, тн. жылына. 5,88
Фондты қамтамасыздандыру, тн. бір адамға. 36520
6 Қауіпсіздік техникасы және еңбек қорғау шарасы
Есептеуіш орталығының инженерлері, ЭЕМ операторлары, программистері мен басқа
Бөлмедегі оператор жұмыс орнының орналасуы:
Жұмыс уақыты кезінде ЭЕМ операторы қысқа уақытта дұрыс
ДК-де қолданушы жұмыс істегенде ақыл-оймен эмоционалдық, көру және
- компьютер тұрған мекеме немесе кобинет жарық, құрғақ,
- компьютердің конструкциясы иондалған және иондалған емес сеуле-лерінен
- радиаторлар және жылу құбырлары, су құбырлы жүйесі
- дербес компьютерде жұмыс істегенде электрожабдықтау корпусына жақындамау
- электротізбектелген жол сілтеушінінің тармақталып қосылуына тиым салынған.
Жұмысты бастау алдындағы қауіпсіздік талабы:
әр күндерде компьютермен жұмыс істеу алдында белгілі орынды
- жұмыс алдында электр питаниясының сымдарының сөндірілгеніне көз
корпустар мен сымдардың эксплуатациясына тиым салынады және де
электропитаниясының сымдары столдың үстіне немесе столдың астынан ілініп
компьютер тұрған кабинетте ең қолайлы температура, ол 21°С
ДК-де қолданушы жұмыс істегенде ақыл-оймен эмоционалдық, көру және
Жұмыс үстелінің минималдық жарығы 300-500 лк. Жарық шамдары
Персоналды компьютермен жұмыс жасағанда Мемлекеттік Инспекцияның еңбек қауіпсіздігі
дербес компьютерде кернеуі 220 (120) В, жиілігі 50
жұмыс кезінде монитор экранынан көзге дейін оңтайлы қашықтықты
оқытушының рұқсатынсыз есептеуіш техникасын қосуға, сөндіру, қозғау және
қосылған компьютердің пернелер тақтасында тек қана таза қолмен
есептеуіш техникасы құралдарында дымқыл киімде немесе су қолмен
келуші адамдар кіргенде оқушыларға орнынан тұру қажет емес.
- жұмыс уақытындағы қауыпсіздік үшін уақытында профилактикалық байқау
- бөлмеде аварийный автомат немесе тоқтың жалпы сөндіріп
- дисплейдің рентгендік шағылысы экраннан 5 см-дей қашықтықта
- жылына бір рет қолданылмаған рентгендік шағылысты, жұмыс
- бөлменің іші жарық, құрғақ және жылы болғаны
- жылуды қамтамасыз ететін су құбыры жүйесінің радиаторы
ДК-ді эксплуатациялау кезінде келесі қағидалар мен ережелер орындалуы
- желіге кернеу берілген жағдайда электрикалық тоқтың кабельдерін
- дербес компьютерде-ді қосылған түрде қараусыз тастамау керек;
- дербес компьютерде жаңбыр жауып, күн шатырлаған кезде
- жұмыс соңында ДК-ді желіден алып тастау керек;
- құрылғылар жылу приборларынан 1 м-дей қашықтықта болуы
- жұмыс орындары өзара 1,5 м-дей қашықтықта болуы
- құрылғыларға күн шағылысының тура сәулелері түспеу керекжихаддар
Компьютермен жұмыс істеген кездегі қауыпсіздік:
- есептеуіш техникасының конструкциясы ионизацияланған және иониза-цияланбаған сәуле
- дербес компьютер орналасқан бөлім жарық, құрғақ және
- берік жерлеу құрылғысы қажет. Жерлеу құрылғысына адамның
- жылына бір рет қаранылған рентген сәулесін, жұмыс
Жұмысты орындау алдындығы қауыпсіздік шаралары:
- әр күн сайын жұмысты орындау алдында бөлмеде
- жұмыс алдында, қоректену қоры сөндіру тұрған кезде,
Есептеуіш орталағанаң инженерлері, ЭЕМ операторлары, программистері мен басқа
Бөлмедегі оператор жұмыс орнының орналасуы:
Жұмыс уақыты кезінде ЭЕМ операторы қысқа уақытта дұрыс
Компьютерлер орналасқан бөлмеде ереже бойынша бір жақтық қырлы
ДК-де қолданушы жұмыс істегенде ақыл-оймен эмоционалдық, көру және
Жұмыс үстелінің минималдық жарығы 300-500 лк. Жарық шамдары
ЕТ құрылғыларын эксплуатациялауға жол берілмейді. Себебі олардың корпустарының
- қоректену сымдары столда ілініп тұрмау керек, себебі
- әр күн сайын ДК жұмыс істегеннен кейін
Компьютермен жұмыс істеген кездегі қауыпсіздік:
- есептеуіш техникасының конструкциясы ионизацияланған және иониза-цияланбаған сәуле
- дербес компьютер орналасқан бөлім жарық, құрғақ және
- берік жерлеу құрылғысы қажет. Жерлеу құрылғысына адамның
- жылына бір рет қаранылған рентген сәулесін, жұмыс
Жұмыс кезіндегі қауыпсіздік шаралары:
- жұмыс кезінде, қоректенудің қосылған кезде, қосылған сымдардың
- есептеу техника құрылғылардан уақытында профилдактикалық қарап шығу
- есептеу техника құрылғыларын жөндеу жұмыстарын жүргізген кезде
Жұмыс үстелінің минималдық жарығы 300-500 лк. Жарық шамдары
- персоналды компьютермен жұмыс жасағанда Мемлекеттік Инспекцияның еңбек
ДК мен жұмыс істеген кездегі өрт қауіпсіздігі:
- егер таныссыз дыбыс естілсе, аппаратура өздігінен сөніп
- өрт кезінде электроқоректенуді сөндіру керек. Өрт сөндіру
- электротокпен соққан кезде ток көзін өшіру керек.
Жұмыс аяқталғандағы қауіпсіздік шаралары:
- жұмысты орындап болғаннан кейін қолданушы ЕТ құрылғыларының
- компьютердегі жұмыс әрқашанда көп назар аударуды талап
- аппаратуралық блоктарды қосудың тізімін ауыстыруға болмайды;
- аппаратураның үстіне қажетсіз заттарды қоюға болмайды;
- компьютер мен жұмысты су қолмен, дымқыл киіммен
Жұмыс уақытындағы қауыпсіздік талаптары. Жұмыс уақытындағы қауыпсіздік үшін
ДК-де жұмыс істеген кезде орындау қажет:
- есептеу техникасының құралдарымен, байланыс сымдарымен, элекро-орнату бұйымдарымен
- аппараттың өздігінен сөнуінен пайда болған ерекше дыбыс
- өрт болған жағдайда кабинеттің электропитаниясын сөндіру қажет,
- ток соққан уақытта тез арада ток көзін
- жапа шеккен адамның тынысы тарылып жүрек соғу
- адамның терісі күйген жағдайда оған стерильденген
Жұмысты аяқтау кезіндегі қауіпсіздік талаптары
Жұмыс аяқталған соң қолданушы есептеу техникасының құралдарының өшірілгеніне
Еңбек қорғау.
1990 жылы 8 ақпанда шыққан еңбек қорғау инструкциясына
- есептелу техникасының инструкциясы иондалған сәулелерден сенімді қорғауды
- кабинеттің іші жарық, жылы болу керек. Едендері
- радиаторлар мен жылу құбырларының жүйесі диэлектрикалық шектермен
- электрожабдықтау корпусына жанасу мүмкін болғандықтан оған қауіпсіз
- аппараттың өздігінен сөнуінен пайда болған ерекше дыбыс
- өрт болған жағдайда кабинеттің электропитаниясын сөндіру қажет,
- ток соққан уақытта тез арада ток көзін
- жапа шеккен адамның тынысы тарылып жүрек соғу
- адамның терісі күйген жағдайда оған стерильденген
ДК изоляция шарттары бұзылмағандығы жөнінде және корпустардың беріктігіне,
Адам әрқашан да қоршаған ортамен жылы қарым қатынаста
Еңбекті қорғау кәсіпорынмен, мекемелермен, кооперативтермен, фермерлік (шаруалармен) шаруашылықпен
Қазақстан Республикасының еңбекті қорғау бойынша заң шығарушы қазіргі
Дербес компьютермен жұмыс зерделі, эмоционалды, көрмелі және әрдайым
- компьютер орналастырылған жері жарық, құрғақ, жылы болуы
- компьютердің конструкциясы ионизациялау және ионизацияланбаған сәулелерден сенімді
- радиаторлар мен жылулық суөткізушілік жүйенің трубопроводтары диэлектрикалық
ДК-мен жұмыс істегенде кернеу бойынша болатын электрожабдықталған корпустарға
Бірнеше жерленген өткізгіштерді тура қосуға тыйым салынады. Жылына
Жұмыс істеу бастаудан алдымен қауіпсіздіктің талаптары.
Күн сайын ДК-мен жұмыс істеуін бастау бұрын жұмыс
Жұмыс істеуден бастау бұрын, қоректену көзі сөндірілген кезде,
ЕТ құрылғыларда корпус пен сымдардың изоляциясы бұзылғандығы болса,
Электроқоректену сымдары үстелден ілінулі немесе үстелдің астында ілнулі
ЕТ кабинетіндегі температураның оптималды параметрі 19-21°С, 18-22°С мүмкін.
Жұмыс істеу кезіндегі қауіпсіздік талаптар. Есептеу техника құрылғыларды
Есептеу техниканы жөндеу кезінде екі адамнан кем болмауы
Өрт қауіпсіздігі бойынша нұсқаулар.
Есептеу техника құрылғылармен, байланыстыратын сымдардың, электро қондырғы бұйымдардың
Күдікті дыбыс пайда болса, аппаратты өз бетімен сөндіру
Өрт пайда болған кезде кабинеттің электроқоректегішін сөндіру керек,
Электротокпен зақымданған кезде ток көзін тез сөндіру керек.
Тері зақымдалған кезде стерилденген таңғышты салып зақымданған адамды
Жұмыс аяқтау қауіпсіздігінің талаптары.
Жұмысты аяқтаған кезде, қоданушы есептеу техниканың құрылғылары сөндірулі
Содан кейін ғана оларды чехолдармен жауып, жұмыс орнын
Қоршаған ортаны қорғау әркімнің міндеті. Әсіресе оған мысал
Қорытынды
Қарастырылып отырған “Техникалық бөлім” бағдарламасы Delphi программалау ортасында
Delphi – ол тез өңдеу ортасы, онда программалау
Берілген бағдарламалық өнімнің мақсаты – жөндеуге әкелген құрылғылар
Бағдарламаның артықшылықтары:
құрылғылар туралы мәлімет қарапайым түсінікті кесте түрінде сақталып,
бағдарламаның қарапайым және түсінікті интерфейсінің жеңілдігі қолданушыға арнайы
машинаның жүйелік ресурстарына деген сұранысының онша жоғары еместігі;
бағдарламаға қандай да бір өзгертулер мен толықтыруларды енгізсе
редакциялау, қосу және жою мүмкіндіктері.
Осы бағдарламалық өнімнің тақырыбы бірнеше себептерге байланысты тандап
Және де осы жасалған жұмыс нәтижесі бойынша дипломдық
Осы дипломдық жобаның бағдарламасын құрастыруда мен ақпараттық технология
Берілген тақырыпты таңдауымның да бірнеше себептері бар. Бірақ
Windows операциялық жүйесі мен мәліметтер базасымен жұмыс жасайтын
Ал мен осы жасалған жұмыс нәтижесі бойынша өзімнің
Қолданылған әдебиеттер тізімі
Аппак М. А. Автоматизированные рабочие места на основе
Алтухов Е. Б. Основы информатики и вычислительной техники
Ахметов К. Windows 98 не для всех /
Балапанов Е. К., Бурибаев Б., Даулеткулов А. Б.
Брябрин В. М. Программное обеспечение персональных ЭВМ /
Бойко В. В. Проектирование баз данных информационных систем
Васманов В. В. Автоматизированные системы оперативного управления /
Горфинкеля В. Я. Предпринимательство: учебник для вузов /
Грузинов В. П. Экономика предприятия / Грузинов В.
Джордейн Р. Справочник программиста персональных компьютеров типа IBM
Дейт Дж. Введение в системы баз данных /
Диго С. М. Проектирование и использования баз даных
Дейт К. Мәліметтер базасының жүйесіне кіріспе / Дейт
Дейтел Г. Введение в операционные системы / Т1.
Зайцев В. А., Экономика промышленного предприятия. Практикум, 2003.
Когаловский М. Р. Технология баз данных на персональных
Крайзмер Л. П., Кулик Б. А. Персональный компьютер
Масанова Ж. К., Манулов Қ. Қ. Алматы: «Бастау»
Морозов Л. Л. Охрана труда – М. :
Мартин Дж. Организация баз данных в вычислительных системах
Михалев С. Б. АСУ на промышленном предприятии /
Модин А. А. Справочник разработчика АСУ / Модин
Микроэкономика. Экономика фирмы. Чечевицына Л. Н. Ростов-на-Дону: «Феникс»,
Наумов А. Н. Система управления базами данных и
Орлов С. А. «Технологии разработки программного обеспечения», СПб:
Овчаров Л. А. Автоматизированные банки данных / Овчаров
Петрова А. В. Вычислительная техника и программирование: Учебник
Пелих А. С., «Бизнес – план», М. :
Петрова А. В. Вычислительная техника и программирование: учебник
Райзберг Б. А. Курс экономики третье издание /
Сост В. В. Охрана труда: Сборник официальных материалов.
Симонович С. В. Информатика. Базовый курс. Учебник для
Сафронова Н. А. Экономика предприятия – М. :
Сибаров Ю. Г. Охрана труда в вычислительных центрах
Ульман Дж. Основы систем баз данных / Ульман
Фигурнов В. Э. IBM PC для пользователя. 7-е
Фигурнов В. Э. IBM PC для пользователя: краткий
Шепеленко В. И. Экономика организации и планирование производства
Языки и основы программирования. часть-1: учебное пособие
Қосымша А
(міндетті түрде)
CD-R дисктің мазмұны
Технический отдел – «Техникалық бөлім» программасы. Бағдарлама автоматты
Диплом.doc - MS Word стандартты мәтіндік редакторында жасалған
Қосымша Б
(міндетті түрде)
Бағдарламаның мәтіні
unit Glav;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, GridsEh, DBGridEh, sHintManager, sSkinProvider, sSkinManager,
ComCtrls, sStatusBar, ExtCtrls, sPanel, StdCtrls, Buttons, sBitBtn,
sLabel, ToolWin, sToolBar, ImgList, Menus, sEdit, sComboBox, Mask,
ToolEdit, sCheckBox, Comobj, DBCtrls;
type
TFormgl = class(TForm)
StatusBar1: TsStatusBar;
sPanel4: TsPanel;
sLabel1: TsLabel;
sToolBar1: TsToolBar;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton2: TToolButton;
ToolButton8: TToolButton;
ToolButton1: TToolButton;
ImageList1: TImageList;
ToolButton3: TToolButton;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
N4: TMenuItem;
sLabel2: TsLabel;
ComboBox1: TsComboBox;
sLabel6: TsLabel;
ComboBox4: TsComboBox;
sLabel7: TsLabel;
DateEdit1: TDateEdit;
sBitBtn3: TsBitBtn;
sBitBtn5: TsBitBtn;
ToolButton9: TToolButton;
sPanel1: TsPanel;
sBitBtn6: TsBitBtn;
sBitBtn8: TsBitBtn;
sPanel3: TsPanel;
DBGridEh2: TDBGridEh;
DBGridEh1: TDBGridEh;
sPanel2: TsPanel;
DBGridEh3: TDBGridEh;
sLabel9: TsLabel;
sBitBtn1: TsBitBtn;
sBitBtn2: TsBitBtn;
sBitBtn4: TsBitBtn;
Timer1: TTimer;
PopupMenu2: TPopupMenu;
dasdasdas1: TMenuItem;
N1: TMenuItem;
N3: TMenuItem;
sBitBtn7: TsBitBtn;
sCheckBox1: TsCheckBox;
DBText1: TDBText;
Label1: TLabel;
sEdit1: TsEdit;
sLabel3: TsLabel;
sCheckBox2: TsCheckBox;
procedure FormCreate(Sender: TObject);
procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
procedure FormShow(Sender: TObject);
procedure sBitBtn4Click(Sender: TObject);
procedure sBitBtn1Click(Sender: TObject);
procedure sBitBtn8Click(Sender: TObject);
procedure sBitBtn6Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure sBitBtn5Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure DBGridEh3CellClick(Column: TColumnEh);
procedure DBGridEh3DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
procedure DBGridEh2DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
procedure ToolButton6Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure dasdasdas1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure sBitBtn2Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure sBitBtn3Click(Sender: TObject);
procedure sBitBtn7Click(Sender: TObject);
procedure sEdit1KeyPress(Sender: TObject; var Key: Char);
procedure ToolButton8Click(Sender: TObject);
private
{ Private declarations }
Procedure WMSysCommand(var message: TWMSysCommand); message WM_SysCommand;
Procedure sql_OTDEL;
Procedure sql_OTDEL_NAME;
procedure WMGetSysCommand(var message : TMessage) ;
Procedure SQL_REF;
Procedure sql_OSN;
public
{ Public declarations }
end;
var
Formgl: TFormgl;
Path_exe:string;
add_intt:byte;
opr:byte;
implementation
Uses UDM1, UniADDOTD, UnitADDOT2, UnitUST, UnitVID, UnitOPER, UnitDOSTUP,
, UnitVIDACH, UnitOTCHET, ShellApi;
{$R *.dfm}
//МИНИМИЗАЦИЯ НЕ ГЛАВНОГО ОКНА
Procedure TFormgl.WMSysCommand(var message: TWMSysCommand);
begin
If message.CmdType = SC_MINIMIZE then Application.Minimize
Else Inherited;
End;
//кОДИРУЕМ КНОПКУ ЗАКРЫТИЯ ФОРМЫ
procedure TFormgl.WMGetSysCommand(var message : TMessage) ;
begin
if (message.wParam = SC_CLOSE) then
ToolButton1.Click
else
inherited;
end;
Procedure TFormgl.SQL_REF;
begin
Combobox4.Clear;
DM1.ADOQOP1.Close;
DM1.ADOQOP1.SQL.Clear;
DM1.ADOQOP1.SQL.Add('SELECT * FROM OPERATORI ORDER BY SURNAME ASC');
DM1.ADOQOP1.Open;
IF DM1.ADOQOP1.FieldValues['fio']NULL then
begin
DM1.ADOQOP1.First;
while not DM1.ADOQOP1.Eof do
begin
Combobox4.Items.Add(DM1.ADOQOP1.FieldValues['fio']);
DM1.ADOQOP1.Next;
end;
end;
Combobox1.Clear;
DM1.ADOQOP1.Close;
DM1.ADOQOP1.SQL.Clear;
DM1.ADOQOP1.SQL.Add('SELECT * FROM NAME_OTDEL ORDER BY NAME ASC');
DM1.ADOQOP1.Open;
IF DM1.ADOQOP1.FieldValues['Name']NULL then
begin
DM1.ADOQOP1.First;
while not DM1.ADOQOP1.Eof do
begin
Combobox1.Items.Add(DM1.ADOQOP1.FieldValues['NAME']);
DM1.ADOQOP1.Next;
end;
end;
end;
Procedure TFormgl.sql_OSN;
var
a:integer;
begin
IF DM1.ADOQOTDEL.RecordCount0 THEN
begin
DM1.ADOQOTDEL.RecNo;
a:=DM1.ADOQOTDEL.FieldValues['ID'];
end
else
a:=0;
DM1.ADOQGLAV.Close;
DM1.ADOQGLAV.SQL.Clear;
DM1.ADOQGLAV.SQL.Add('SELECT * FROM OSNOVNAY WHERE ID_GLAV=:ID_GLAV ORDER BY
DM1.ADOQGLAV.Parameters.ParamByName('ID_GLAV').Value:=a;
DM1.ADOQGLAV.Open;
end;
Procedure TFormgl.sql_OTDEL;
var
a:integer;
begin
IF DM1.ADOQOTDEL_NAME.RecordCount0 THEN
BEGIN
DM1.ADOQOTDEL_NAME.RecNo;
DM1.ADOQOTDEL.Close;
DM1.ADOQOTDEL.SQL.Clear;
DM1.ADOQOTDEL.SQL.Add('SELECT * FROM OTDEL WHERE ID_OTDEL=:ID_OTDEL ORDER BY
DM1.ADOQOTDEL.Parameters.ParamByName('ID_OTDEL').Value:=DM1.ADOQOTDEL_NAME.FieldValues['ID'];
DM1.ADOQOTDEL.Open;
END;
end;
Procedure TFormgl.sql_OTDEL_NAME;
begin
DM1.ADOQOTDEL_NAME.Close;
DM1.ADOQOTDEL_NAME.SQL.Clear;
DM1.ADOQOTDEL_NAME.SQL.Add('SELECT * FROM NAME_OTDEL ORDER BY NAME ASC');
DM1.ADOQOTDEL_NAME.Open;
end;
procedure TFormgl.FormCreate(Sender: TObject);
begin
Path_exe:=ExtractFileDir(Application.ExeName);
opr:=0;
end;
procedure TFormgl.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
const
SelectedColor=clBlack;
begin
DBGridEh1.Columns[0];
if (gdFocused in State) then
begin
DBGridEh1.Canvas.Brush.Color:=SelectedColor;
DBGridEh1.Canvas.Font.Color:=clWhite;
DBGridEh1.Canvas.Font.Style:=[fsBold];
DBGridEh1.Canvas.FillRect(Rect);
DBGridEh1.DefaultDrawDataCell(Rect,Column.Field,State);
sql_OTDEL;
sql_osn;
if DM1.ADOQOTDEL_NAME.RecordCount0 then
begin
DBText1.DataSource:=DM1.DataSourceOTDEL_NAME;
DBText1.DataField:='NAME';
end;
end;
if (state = [gdSelected]) then
with TDBGridEh(Sender), Canvas do
begin
Brush.Color := SelectedColor;
Canvas.Font.Color:=clWhite;
Canvas.Font.Style:=[fsBold];
FillRect(Rect);
DBGridEh1.DefaultDrawDataCell(Rect,Column.Field,State);
end;
end;
procedure TFormgl.FormShow(Sender: TObject);
begin
sql_OTDEL_NAME;
sql_OTDEL;
DateEdit1.Date:=Date;
sEdit1.Clear;
SQL_REF;
SQl_osn;
end;
procedure TFormgl.sBitBtn4Click(Sender: TObject);
begin
sql_OTDEL;
sql_osn;
end;
procedure TFormgl.sBitBtn1Click(Sender: TObject);
begin
FormOTDEL.ShowModal;
end;
procedure TFormgl.sBitBtn8Click(Sender: TObject);
begin
sql_OTDEL_NAME;
sql_OTDEL;
sql_osn;
end;
procedure TFormgl.sBitBtn6Click(Sender: TObject);
begin
FormADD_OTD2.ShowModal;
end;
procedure TFormgl.FormActivate(Sender: TObject);
begin
ActivateKeyboardLayout(LoadKeyboardLayout('00000419', 0), 0);
end;
procedure TFormgl.N2Click(Sender: TObject);
begin
FormUST.ShowModal;
end;
procedure TFormgl.N4Click(Sender: TObject);
begin
FormVID.ShowModal;
end;
procedure TFormgl.sBitBtn5Click(Sender: TObject);
begin
DateEdit1.Date:=Date;
sEdit1.Clear;
SQL_REF;
SQL_OSN;
opr:=0;
sCheckbox1.Checked:=False;
sCheckbox2.Checked:=False;
end;
procedure TFormgl.ToolButton3Click(Sender: TObject);
begin
if Statusbar1.Panels[4].Text='Администратор' then
FormOPER.ShowModal
else Messagedlg('Доступ запрещен',mtwarning,[mbok],0);
end;
procedure TFormgl.ToolButton1Click(Sender: TObject);
begin
Close;
end;
procedure TFormgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FormDOSTUP.Visible:=True;
Formgl.Visible:=False;
end;
procedure TFormgl.Timer1Timer(Sender: TObject);
begin
Statusbar1.Panels[1].Text:=Datetostr(Date);
Statusbar1.Panels[3].Text:=Timetostr(Time);
end;
procedure TFormgl.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#8 then else key:=#0;
end;
procedure TFormgl.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#8 then else key:=#0;
end;
procedure TFormgl.ComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#8 then else key:=#0;
end;
procedure TFormgl.ToolButton4Click(Sender: TObject);
begin
add_intt:=1;
FormAddGl.ShowModal;
end;
procedure TFormgl.ToolButton5Click(Sender: TObject);
begin
if DM1.ADOQGLAV.RecordCount0 then
begin
add_intt:=2;
FormAddGl.ShowModal;
end;
end;
procedure TFormgl.DBGridEh3CellClick(Column: TColumnEh);
begin
sql_OSN;
end;
procedure TFormgl.DBGridEh3DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
const
SelectedColor=clBlack;
begin
DBGridEh3.Columns[0];
if (gdFocused in State) then
begin
DBGridEh3.Canvas.Brush.Color:=SelectedColor;
DBGridEh3.Canvas.Font.Color:=clWhite;
DBGridEh3.Canvas.Font.Style:=[fsBold];
DBGridEh3.Canvas.FillRect(Rect);
DBGridEh3.DefaultDrawDataCell(Rect,Column.Field,State);
sql_OSN;
end;
if (state = [gdSelected]) then
with TDBGridEh(Sender), Canvas do
begin
Brush.Color := SelectedColor;
Canvas.Font.Color:=clWhite;
Canvas.Font.Style:=[fsBold];
FillRect(Rect);
DBGridEh3.DefaultDrawDataCell(Rect,Column.Field,State);
end;
end;
procedure TFormgl.DBGridEh2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
const
SelectedColor=clBlack;
begin
DBGridEh2.Columns[0];
if (gdFocused in State) then
begin
DBGridEh2.Canvas.Brush.Color:=SelectedColor;
DBGridEh2.Canvas.Font.Color:=clWhite;
DBGridEh2.Canvas.Font.Style:=[fsBold];
DBGridEh2.Canvas.FillRect(Rect);
DBGridEh2.DefaultDrawDataCell(Rect,Column.Field,State);
end;
if (state = [gdSelected]) then
with TDBGridEh(Sender), Canvas do
begin
Brush.Color := SelectedColor;
Canvas.Font.Color:=clWhite;
Canvas.Font.Style:=[fsBold];
FillRect(Rect);
DBGridEh2.DefaultDrawDataCell(Rect,Column.Field,State);
end;
end;
procedure TFormgl.ToolButton6Click(Sender: TObject);
begin
if Statusbar1.Panels[4].Text='Администратор' then
begin
if DM1.ADOQGLAV.RecordCount0 then
begin
if Messagedlg('Удалить запись?',mtinformation,[mbyes,mbno],0)=mryes then
begin
DM1.ADOQGLAV.RecNo;
DM1.ADOQGLAV.Delete;
end;
end;
end;
end;
procedure TFormgl.N3Click(Sender: TObject);
begin
if DM1.ADOQGLAV.RecordCount0 then
FormVIDACH.ShowModal;
end;
procedure TFormgl.dasdasdas1Click(Sender: TObject);
begin
ToolButton5Click(sender);
end;
procedure TFormgl.N1Click(Sender: TObject);
begin
ToolButton6Click(sender);
end;
procedure TFormgl.ToolButton7Click(Sender: TObject);
begin
sql_OTDEL_NAME;
sql_OTDEL;
sql_osn;
end;
procedure TFormgl.sBitBtn2Click(Sender: TObject);
var
ind:integer;
begin
if Statusbar1.Panels[4].Text='Администратор' then
begin
if Messagedlg('Удалить запись?', mtinformation,[mbyes,mbno],0)=mryes then
begin
if Messagedlg('Вы действительно хотите удалить запись', mtinformation,[mbyes,mbno],0)=mryes then
begin
if DM1.ADOQOTDEL.RecordCount0 then
begin
DM1.ADOQOTDEL.RecNo;
if DM1.ADOQGLAV.RecordCount0 then
begin
DM1.ADOQGLAV.First;
for ind:=1 to DM1.ADOQGLAV.RecordCount do
DM1.ADOQGLAV.Delete;
end;
DM1.ADOQOTDEL.Delete;
end
else
begin
Messagedlg('Записей нет для удаления.',mtwarning,[mbok],0);
exit;
end;
end;
end;
end;
end;
procedure TFormgl.ToolButton9Click(Sender: TObject);
begin
formotchet.ShowModal;
end;
procedure TFormgl.sBitBtn3Click(Sender: TObject);
begin
DM1.ADOQGLAV.Close;
DM1.ADOQGLAV.SQL.Clear;
DM1.ADOQGLAV.SQL.Add('SELECT * FROM OSNOVNAY WHERE OTDEL like :OTDEL
DM1.ADOQGLAV.SQL.Add(' ispol like :ispol ');
if sCheckbox1.Checked then DM1.ADOQGLAV.SQL.Add('and POSTUP=:POSTUP');
if sEdit1.Text'' then if sCheckbox2.Checked then DM1.ADOQGLAV.SQL.Add('and NOMER=:NOMER');
DM1.ADOQGLAV.SQL.Add('ORDER BY OTDEL ASC');
DM1.ADOQGLAV.Parameters.ParamByName('OTDEL').Value:='%'+Combobox1.Text+'%';
DM1.ADOQGLAV.Parameters.ParamByName('ispol').Value:='%'+Combobox4.Text+'%';
if sCheckbox1.Checked then DM1.ADOQGLAV.Parameters.ParamByName('POSTUP').Value:=DateEdit1.Date;
if sEdit1.Text'' then if sCheckbox2.Checked then DM1.ADOQGLAV.Parameters.ParamByName('NOMER').Value:=sEdit1.Text;
DM1.ADOQGLAV.Open;
opr:=1;
DM1.ADOQGLAV2.Close;
DM1.ADOQGLAV2.SQL.Clear;
DM1.ADOQGLAV2.SQL.Add('SELECT * FROM OSNOVNAY WHERE OTDEL like :OTDEL
DM1.ADOQGLAV2.SQL.Add(' ispol like :ispol ');
if sCheckbox1.Checked then DM1.ADOQGLAV2.SQL.Add('and POSTUP=:POSTUP');
if sEdit1.Text'' then if sCheckbox2.Checked then DM1.ADOQGLAV2.SQL.Add('and NOMER=:NOMER');
DM1.ADOQGLAV2.SQL.Add('ORDER BY OTDEL ASC');
DM1.ADOQGLAV2.Parameters.ParamByName('OTDEL').Value:='%'+Combobox1.Text+'%';
DM1.ADOQGLAV2.Parameters.ParamByName('ispol').Value:='%'+Combobox4.Text+'%';
if sCheckbox1.Checked then DM1.ADOQGLAV2.Parameters.ParamByName('POSTUP').Value:=DateEdit1.Date;
if sEdit1.Text'' then if sCheckbox2.Checked then DM1.ADOQGLAV2.Parameters.ParamByName('NOMER').Value:=sEdit1.Text;
DM1.ADOQGLAV2.Open;
end;
procedure TFormgl.sBitBtn7Click(Sender: TObject);
var
x:string;
p,i,t,n:integer;
XLApp:Variant;
begin
if opr=0 then
begin
Messagedlg('Необходимо произвести поиск для отчета.',mtwarning,[mbok],0);
exit;
end;
if opr=1 then
begin
if DM1.ADOQGlav2.RecordCount=0 then
begin
Messagedlg('Записей нет для отчета.',mtwarning,[mbok],0);
exit;
end;
if DM1.ADOQGlav2.RecordCount0 then
begin
// Выбор Excel
XLApp:=CreateOleObject('Excel.Application');
XLApp.DisplayAlerts:=false;
XLApp.Workbooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth:=4.71;
XLApp.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth:=22.71;
XLApp.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth:=8.57;
XLApp.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth:=8.57;
XLApp.WorkBooks[1].WorkSheets[1].Columns[5].ColumnWidth:=8.57;
XLApp.WorkBooks[1].WorkSheets[1].Columns[6].ColumnWidth:=19.86;
XLApp.WorkBooks[1].WorkSheets[1].Columns[7].ColumnWidth:=6.86;
XLApp.WorkBooks[1].WorkSheets[1].Columns[8].ColumnWidth:=22;
XLApp.Workbooks[1].WorkSheets[1].Name:='ОТЧЕТ ПОСЛЕ ПОИСКА';
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold:=True;
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].Font.Color:=clBlack;
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].Font.Size:=9;
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].Font.Name := 'Times New Roman';
XLApp.WorkBooks[1].WorkSheets[1].Cells[1,2]:=' ПЕРЕЧЕНЬ УСТРОЙСТВ НА РЕМОНТЕ ИЛИ ПОСЛЕ РЕМОНТА
+#10+' НАХОДЯЩЕЙСЯ В ТЕХНИЧЕСКОМ ОТДЕЛЕ';
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].VerticalAlignment:=2;
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].HorizontalAlignment:=3;
XLApp.WorkBooks[1].WorkSheets[1].Range['A1:H3'].Merge;
XLApp.WorkBooks[1].WorkSheets[1].Cells[1,2].HorizontalAlignment:=3;
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].Font.Color:= clBlack;
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].Font.Name:='Times New Roman';
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].Font.Size:=9;
XLApp.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold:=True;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4,1]:='№';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4,2]:='Отдел';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4,3]:='Кабинет';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4,4]:='Дт пост.';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4,5]:='Дт выд.';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4,6]:='Устройство';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4,7]:='Номер';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4,8]:='Исполнитель';
XLApp.WorkBooks[1].WorkSheets[1].Rows[4].Font.Bold:=True;
XLApp.WorkBooks[1].WorkSheets[1].Rows[4].Font.Color:=clBlack;
XLApp.WorkBooks[1].WorkSheets[1].Rows[4].Font.Size:=9;
XLApp.WorkBooks[1].WorkSheets[1].Rows[4].Font.Name:='Times New Roman';
XLApp.WorkBooks[1].WorkSheets[1].Rows[4].HorizontalAlignment:=3;
// присвоение ячейке значения
for P:=0 to 7 do
XLApp.WorkBooks[1].WorkSheets[1].Cells[4,p+1].HorizontalAlignment:=3;
DM1.ADOQGlav2.First;
i:=1;
for p:=1 to DM1.ADOQGlav2.RecordCount do
begin
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,1]:=inttostr(i);
if DM1.ADOQGlav2.FieldValues['otdel']null then
x:=DM1.ADOQGlav2.FieldValues['otdel'] else x:='';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,2].HorizontalAlignment:=2;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,2]:=X;
if DM1.ADOQGlav2.FieldValues['KABINET']null then
x:=DM1.ADOQGlav2.FieldValues['KABINET'] else x:='';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,3].HorizontalAlignment:=3;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,3]:=X;
if DM1.ADOQGlav2.FieldValues['POSTUP']null then
x:=DM1.ADOQGlav2.FieldValues['POSTUP'] else x:='';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,4].HorizontalAlignment:=3;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,4]:=X;
if DM1.ADOQGlav2.FieldValues['VIDACH']null then
x:=DM1.ADOQGlav2.FieldValues['VIDACH'] else x:='';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,5].HorizontalAlignment:=3;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,5]:=X;
if DM1.ADOQGlav2.FieldValues['DEVICE']null then
x:=DM1.ADOQGlav2.FieldValues['DEVICE'] else x:='';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,6].HorizontalAlignment:=2;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,6]:=X;
if DM1.ADOQGlav2.FieldValues['NOMER']null then
x:=DM1.ADOQGlav2.FieldValues['NOMER'] else x:='';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,7].HorizontalAlignment:=3;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,7]:=X;
if DM1.ADOQGlav2.FieldValues['ISPOL']null then
x:=DM1.ADOQGlav2.FieldValues['ISPOL'] else x:='';
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,8].HorizontalAlignment:=2;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+p,8]:=X;
XLApp.WorkBooks[1].WorkSheets[1].Rows[4+p].Font.Size:=9;
XLApp.WorkBooks[1].WorkSheets[1].Rows[4+p].Font.Name:='Times New Roman';
i:=i+1;
DM1.ADOQGlav2.Next;
end;
p:=DM1.ADOQGlav2.RecordCount;
for t:=1 to p+4 do
begin
n:=0;
XLApp.WorkBooks[1].WorkSheets[1].Range
['A' + IntToStr(t) + ':' + chr(ord('H')+n) +
.Borders.LineStyle:=1;
XLApp.WorkBooks[1].WorkSheets[1].Range
['A' + IntToStr(t) + ':' + chr(ord('H')+n) +
.Borders.Weight:=2;
end;
XLApp.Visible:=true;
end;
end;
end;
procedure TFormgl.sEdit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9':;
#8:;
else key:=#0;
end;
end;
procedure TFormgl.ToolButton8Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'help.chm', nil, nil, SW_SHOW);
end;
end.
5
Терезелер
Бастапқы
Екілік
Ұрпақтық
Ағымдық
Режимдік
Модалды
UnitDostup
UDM1
Glav
UnitADDT2
UniADDTD
UnitGl
UnitUst
UnitVid
UnitOtchet
UnitVidach
UnitVid
UnitAddVid
UnitAddPar
UnitAddUst
Басы
DM1.ADOQOTDEL_NAME.Close;
DM1.ADOQOTDEL_NAME.SQL.Clear;
DM1.ADOQOTDEL_NAME.SQL.Add('SELECT * FROM NAME_OTDEL ORDER BY NAME ASC');
DM1.ADOQOTDEL_NAME.Open;
DM1.ADOQOTDEL_NAME.RecNo;
DM1.ADOQOTDEL.Close;
DM1.ADOQOTDEL.SQL.Clear;
DM1.ADOQOTDEL.SQL.Add('SELECT * FROM OTDEL WHERE ID_OTDEL=:ID_OTDEL ORDER BY
DM1.ADOQOTDEL.Parameters.ParamByName('ID_OTDEL').Value:=DM1.ADOQOTDEL_NAME.FieldValues['ID'];
DM1.ADOQOTDEL.Open;
DateEdit1.Date:=Date
Combobox4.Clear;
DM1.ADOQOP1.Close;
DM1.ADOQOP1.SQL.Clear;
DM1.ADOQOP1.SQL.Add('SELECT * FROM OPERATORI ORDER BY SURNAME ASC');
DM1.ADOQOP1.Open;
IF DM1.ADOQOP1.FieldValues['fio']NULL then
begin
DM1.ADOQOP1.First;
while not DM1.ADOQOP1.Eof do
begin
Combobox4.Items.Add(DM1.ADOQOP1.FieldValues['fio']);
DM1.ADOQOP1.Next;
end;
end;
Combobox1.Clear;
DM1.ADOQOP1.Close;
DM1.ADOQOP1.SQL.Clear;
DM1.ADOQOP1.SQL.Add('SELECT * FROM NAME_OTDEL ORDER BY NAME ASC');
DM1.ADOQOP1.Open;
IF DM1.ADOQOP1.FieldValues['Name']NULL then
begin
DM1.ADOQOP1.First;
while not DM1.ADOQOP1.Eof do
begin
Combobox1.Items.Add(DM1.ADOQOP1.FieldValues['NAME']);
DM1.ADOQOP1.Next;
end;
IF DM1.ADOQOTDEL.RecordCount0 THEN
begin
DM1.ADOQOTDEL.RecNo;
a:=DM1.ADOQOTDEL.FieldValues['ID'];
end
else
a:=0;
DM1.ADOQGLAV.Close;
DM1.ADOQGLAV.SQL.Clear;
DM1.ADOQGLAV.SQL.Add('SELECT * FROM OSNOVNAY WHERE ID_GLAV=:ID_GLAV ORDER BY
DM1.ADOQGLAV.Parameters.ParamByName('ID_GLAV').Value:=a;
DM1.ADOQGLAV.Open;
end;
Соңы