Delphi ортасының компоненттері

 Жоспар
1-БӨЛІМ. Кіріспе ................................................................................. 3
2-БӨЛІМ. ҚАЛАЛЫҚ ОРТАЛЫҚ АУРУХАНАНЫ АВТОМАТТАНДЫРЫЛҒАН ЖҰМЫС ОРНЫ
2.1 Автоматтандырылған жұмыс орны................................................. 4
3-БӨЛІМ. Бағдарламалау ортасына сипаттама
3.1. Объектілі – бағдарлы бағдарламалау негізі.................................. 11
3.2. Delphi бағдарламалау ортасы..........................................................12
3.3. Проект. Форма. Қасиеттер. Объект инспекторы терезесі ..................13
3.4. Оқиғалар. Программалык код терезесі........................................15
3.5. Delphi ортасының компоненттері...................................................17
3.6. Проект құрылымы............................................................................20
3.7. InputBox функциясы. ShowMessage процедурасы.
Типті түрлендіру функциялары......................................................22
3.8. Delphi-де мәліметтер базасын құру................................................23
3.9. Менюді ұйымдастыру. Негізгі және контекстік меню.................33
4-БӨЛІМ. Техника қауіпсіздігі
4.1 Электр қауіпсіздігі .........................................................................35
4.2 Өрт қауіпсіздігі ...............................................................................36
4.3 Шу деңгейлеріне және дірілдеуге талаптар.................................37
4.4 Шаң және зиянды химиялық заттар..............................................37
4.5 Микроклимат...................................................................................38
4.6 Желдету ...........................................................................................39
4.7 Информацияны көрсету жүйелеріне эргономикалық талаптар..39
4.8 Оператордың жұмыс орнын ұйымдастыру..................................40
4.9 Жұмыс орынының эргономикалық талаптары ............................41
4.10 Жұмыс орынның жарық болуы ...................................................42
5-БӨЛІМ. Жобаның қойылымы...........................................................44
5.1 Есептің блок-схемасы....................................................................45
5.2 Формаларға сипаттама ..................................................................46
5.3 Бағдарламашы инструкциясы .......................................................50
5.4 Қолданушы инструкциясы ............................................................50
6-БӨЛІМ. Қортынды..... .........................................................................51
7-БӨЛІМ. Қолданылған әдебиеттер.....................................................52
8-БӨЛІМ Қосымша..................................................................................53
Кіріспе
Қазақстан – 2030 бағдарламасына сәйкес қоғамның барлық салаларында ақпараттандыру
Оқу жүйесін басқаруда ақпаратты жергілікті өңдеу қарастырылады. Басқаруды іске
Икемділік принципі қандай да бір модуль арқылы құрылатын жүйе
Орнықтылық принципі автоматтандырылған жұмыс орынының жүйесі мүмкін болатын ішкі
2. Қалалық орталық ауруханасының автоматтандырылған жұмыс орны
2.1 Автоматтандырылған жұмыс орны
Автоматтандырылған жұмыс орынының қалып күйін және даму көрінісін дербес
Қазіргі уақытта әр түрлі мамандық саласында ойлауды және еңбекті
Оқу жүйесінде қызмет етушілердің және басқару қызметінің автоматтандырылған жұмыс
Автоматтандырылған жұмыс орынының техникалық негізі болатын, дербес компьютердің жалпы
3
7
1-сурет. Дербес компьютердің жалпы схемасы
1 – процессор; 2 – негізгі жады; 3 –
Бағдарламалық қамтамасыздандыруды іске асырғанда, бағдарлама мен техника арасында карама-қайшылықтарды
Тәжірбиелерді, ғылыми ізденістерді талдау нәтижесінде автоматтан-дырылған жұмыс орынына қойылатын
Яғни,
Маманның ақпараттық және оның есептеушілік сұранысын жаңаша
Қолданушының сұранысына аз уақытта жауап беру;
-Автоматтандырылған жұмыс орынының жұмыс істеу тәсілдерін үйренудің қарапайымдылығы және
-Қолданушының тез үйрену мүмкіншілігі;
-Колданушыға қарағанда төзімділігі;
-Компьютер желісінің құрамында жұмыс істеу мүмкіншілігі.
Автоматтандырылған жұмыс орынының (АЖО) жалпы схемасын қарастырайық.
2-сурет. Автоматтандырылған жұмыс орынының схемасы
Жалпы бағдарламалық қамтамасыздандыру (БҚ) компьютер жұмысын басқаруды, жаңа бағдарламаларды
Автоматтандырылған жұмыс орынының мамандық бағдары бағдарламалық қамтамасыздандырудың функционалды бөлігімен
Қолданушы компьютерде өзін-өзі керекті және пайдалы нақты жұмыс істеп
Сұхбатты ұйымдастыру тұрғысынан қарастырайық. Қолданушы мен машина арасындағы сұхбатты
-Жүйелер командалык, тіл;
"Адам объектілер әлемінде";
"Мәзір" түріндегі сұхбат.
Командалық тілді қолданбалы жүйеде қолдану, бұл командалар түсініктемесін компьютер
"Адам объектілер әлемінде" командалар болмайды және жұмыс кезінде курсорды
Казіргі уақыта қолданушының интерфейісі кең ауқымды тарала бастады, осының
Енді автоматтандырылған жұмыс орынын жасаудың екі түрін қарастырамыз. Бірінші,
Қолданудың нақты шарттарына функционалды бағдарламалық қамтамасыздандыру қалай қалыптасатынын қарастырайық.
Ең бірінші, техникалық қызметшілердің еңбегін автоматтандыру үшін бағдарламалық әдістер
Әртүрлі құжаттар үшін керекті ақпаратты табу үшін, мамандарға үлкен
МББЖ үлкен көлемді ақпаратты сақтауға мүмкіндік береді, ең бастысы
Көптеген жағдайда ақпараттар кестелік құжаттар түрінде беріледі. Сондықтан, көптеген
Үлкен форматты электронды кестелер ұқсас құжаттар жасауға көмектеседі. Олар
Ұжымдағы болатын іс-әрекеттерді басқару және координациялауға арналған жұмыс орындарын
Мекемелік қызметте бастықтардың 95% уақытын және мамандардың 53% уақытын
Қазіргі уакытта текстік, кестелік, графикалық редакторлардың мүмкіндіктері бар интегралды
Ақпаратты сақтау үшін, көбінесе барлық мәліметтер типін бір бүтін
Қазір ақпараттың басқа екі түрі қарқынды дамып келеді: дыбыстық
Қазіргі кезде функционалды программалық қамсыздандыру түрі түрлі кәсіптік жұмысшылардың
Қазірде кәсіби қызметке автоматтандырылған жұмыс орынын жасау тенденциясы қарастырылуда.
Ол мынандай түрде көрсетіледі:
-Шешілетін есепті тіркеу;
-Басқа қызметкерлермен байланыстыру;
-Кәсіби әдет және бейімдлікті тіркеу;
-Тек қана функционалдық бағдарламалық қамтамасыздандыру ғана емес және де
Мамандарды мұндай автоматтандырылған жұмыс орынымен жабдықтау мекеме жұмыстарының еңбек
Бағдарламалық жабдықтар пакетін жасау, жасалған уақытты және кезеңдерін анықтайтын
оқу жүйесін басқаруды автоматтандырудың әдістерін зерттеу ізденістер нәтижелерінің бірі
Мақалада аталып отырған принциптермен талаптарға сай оку жүйесін басқаруда
-Оқу жүйесін автоматтандыруды берілген техникалық тапсырмаға сәйкестендіру;
-Қолданушы мен дербес компьютер сұхбатын, кадрлардың жеке түрлерін сипаттайтын
-Компьютерлік бағдарламада бір кадрдан екінші кадрға өтуді графикалық түрде
-Бағдарламалау процестерін іске асырудың негізгі талаптарын анықтау;
-Жасалынған бағдарламалық жабдықтарды басқа жүйеде және басқа жабдықтармен комплексті
ІІI-БӨЛІМ. БАҒДАРЛАМАЛАУ ОРТАСЫНА СИПАТТАМА
3.1. Объектілі – бағдарлы бағдарламалау негізі
Жоғары деңгейлі программалау процедуралық, логикалық және объектілі – бағдарлы
ОББ тілінде бағдарламаның жұмысы оқиғалар тізбегінен және әртүрлі объектілердің
Delphi–дің бірінші нұсқасы 1994 жылы жарыққа шығып, кейінгі жылдары
Delphi-дің негізгі ерекшелігі – онда қосымша құруда компоненттік және
Delphi-де бағдарлама дайындауға, бағдарлама мәзірін құруға, анимация, мультимедиа процестерін
3.2. Delphi бағдарламалау ортасы
Жалпы Delphi бағдарламасын Windows арқылы іске қосу үшін келесі
1-сурет. Delphi ортасының жалпы терезесі.
Delpli-дің негізгі терезесінің құрамына негізгі мәзір, аспаптар панелі және
Ортада бағдарлама құруға арналған модуль терезесі (бағдарламалық код терезесі)
3.3. Проект. Форма. Қасиеттер. Объект инспекторы терезесі
Delphi-де дайындалатын бағдарлама проект (жоба) деп аталады. Форма –
Форманың және формаға енгізілетін компоненттердің әртүрлі қасиеттері бар. Қасиет
Бағдарлама құру – форманы не онда орнатылған компоненттің кейбір
Форманың кейбір қасиеттері:
Name (Атау) – формаға берілген атау. Ол Delphi объектілерінің
Font (Шрифт) – формаға шығарылатын мәтін шрифтінің қасиеті. Оны
Caption (Тақырып) – форма терезесінің тақырыбына енгізілетін мәтін. Алғашқы
Color (Түс) – форманың түсін орнату қасиеті. Ол таңдалған
Width (Ені), Height (Биіктігі) – пиксель өлшем бірлігімен берілген
Экранда қасиеттер терезесі көрінбесе, оны шығару үшін View –
3.4. Оқиғалар. Программалык код терезесі
Delphi-де бағдарламалар әртүрлі оқиғалар арқылы басқарылады. Оқиға – бағдарламаның
Delphi-де әр оқиғаға атау беріліп қойылған. Мысалы, компоненттер
Әр объектіге байланысты окиғалар көп. Мысалы, формаға байланысты оқиғалар
Delphi ортасында жиі кездесетін оқиғалар:
OnClick – тышқанды бір рет басу;
OnKeyDown – перне тақта батырмасын басу; OnCreate –
Проект екі бөлімнен тұрады: автоматты түрде project1 атауы берілген
Төмендегі суретте форманы екі рет шерткен кезде код терезесіне
3-сурет. Бағдарламалық код терезесі.
Процедура дайындамасының жазылу түрі:
Procedure (Sender:TObject);

begin

end;
мұндағы Sender – құрылатын процедураның қай класқа тиістілігін анықтайтын
Терезенің сол бөлігіндегі – браузер терезесі. Онда код терезесінде
3.5. Delphi ортасының компоненттері
Delphi ортасының компоненттері бағдарлама орындалғандағы көріністің пішімін анықтайтын бөлек
Delphi ортасының құрамына бірнеше компоненттер кіреді. Соларды кейбір маңыздыларын
4-сурет. STANDARD парағы.
STANDARD парағының кұрамына келесі компоненттер кіреді:
Frame – жиектері бар форма тәрізді аумақ, басқа компоненттердің
MainMenu – бағдарламаның негізгі меню жүесі. Компонент арқылы күрделі
PopupMenu – көмекші меню. Әдетте бұл меню тышқаннаң оң
Label – белгі. Компонентке шағын жазуды орналастыру мақсатында қолданылады.
Edit – енгізу қатары. Бір мәтіндік жолды енгізуге және
Memo – көпжолдық мәтін редакторы. Енгізу және шығару амалдарын
Button – нұсқаулық батырма. OnClick оқиғасын өңдеуші үзінді кейбір
CheckBox – тәуелсіз ауыстырғыш. Бағдарламаның орындалу бары-сында тышқанды басқанда
RadioButton – тәуелді ауыстырғыш. Әдетте ол осындай тағы да
ListBox – таңдау тізімі. Опциялар варианттарының тізімін ұсынады және
ComboBox – қиыстырылған таңдау тізімі. Таңдау тізімінен және мәтін
ScrollBar – басқару белдеулері. Windows – терезелері сияқты тік
GroupBox – элементтер тобы. Бір мағыналық компоненттерді біріктіру.
RadioGroup – тәуелді ауыстырғыштар тобы. Бір-бірімен байланысқан бірнеше ауыстырғыштармен
Panel – тақташа. Бірнеше компоненттерді біріктіру үшін қолданылады. Ішкі
ActionList – әрекеттер тізімі. Пайдаланушының біртектес элементтер тобындағы басқару
Additional парағы. Additional парағының құрамына сұхбаттасу терезелерін орнату үшін
5-сурет. Additional парағы.
BitBtn – бетінде суреті және жазуы бар нұсқаулық батырма.
SpeedButton – Пиктограммалық батырма. Әдетте негізгі менюдің опцияларына қол
StringGrid – жолдар кестесі. Осы компонент мәтіндік мәліметті кесте
Image – сурет. Осы компоненттің көмегімен суреттерді, пиктограм-малар мен
Shape – фигура. Осы компоненттің көмегімен әр түрлі фигураларды
Bevel – жиектеу. Бір аумағын үш өлшемді жиекпен немесе
ScrollBox – қарап шығу белдеулерімен қамтылған тақташа. Егер тақташадағы
CheckListBox – ұсынылған тізімнен бірнеше опцияларды таңдауға мүмкіндік туғызады
StaticText – статистикалық мәтін, Label-ден айырмашылығы - өзіндік Windows
ControlBar – басқару белдеулері. Drag$Dock технологиясындағы компо-ненттерді “айлақтату” жабдығы-контейнері.
Chart – диаграмма. Берілгендерді графикалық көрінісін шығаратын арнайы тақташаларды
Dialogs парағы. Dialogs парағында Windows ортасының стандартты сұхбаттасу элементтерін
6-сурет. Dialogs парағы.
Мысалы,
if OpenDialogl.Execute then Imagel.Picture.LoadFromFile(OpenDialogl. FileName);
Windows-тің сұхбаттасу терезелерінің Dialogs парағында пайда болуларының реті:
OpenDialog – сұхбаттасуды тандау;
SaveDialog – файлды сақтау;
FontDialog – қәріпін орнату;
ColorDialog – түсті тандау;
PrintDialog – баспаға шығару;
PrinterSetupDialog – принтерді орнату;
FinDialog – жолды іздеу;
ReplaceDialog – іздеу және алмастыру.
3.6. Проект құрылымы
Delphi тіліндегі бағдарламаның құрамына .dpr проект файлы және .pas
Рrogram Project1;
Uses
Forms
Unit1 in 'Unit1.pas' {fm Example},
{$R *.res}
Begin
Application.Initialize;
Application.CreateForm (Tfm Example, fm Example);
Application.Run;
end.
Оны іске қосу үшін горизонтальді меню жолында Project →View
{$R * RES} – ол бағдарламаны, ресурстар файылын қоса
Рrogram сөзі және кейін анықталған бағдарламаның атауы – бағдарламаның
Uses (пайдалану) сөзімен басталған сөйлем бағдарламаны осы сөзбен анықтайтын
Forms және бағдарламашы өзі құратырған 'Unit1.pas' файылындағы Unit1модульдерін біріктіре
Application.Initializе әдісі шақырылғанда компилятордың құрастырған коды процессорда Delphi
CreateForm (Tfm Example, fm Example) әдісі негізгі терезені құрастырып,
Ал Run әдісі берілгендермен оларды өңдеу туралы Windows-тан келген
Close батырмасы басылғанда, бағдарламаға Windows-та жұмысты тоқтату және жүйелі
Проектінің коды Delphi ортасымен құрастырылады және көптеген жағдайда бұл
3.7. InputBox функциясы. ShowMessage процедурасы. Типті түрлендіру функциялары
Delphi – де айнымалы мәнін енгізу үшін меншіктеу командасын,
Меншіктеу командасының программада жазылуы әдеттегідей, мысалы х:=4.7; Енгізу терезесі
:= I
мұндағы а й н ы м а л ы
тақырып – енгізу терезесінің тақырыбы ретінде жазылатын мәтін;
түсініктеме – енгізу терезесінің ішінде жазылатын түсініктеме мәтін;
мән – функция терезесі көрінген кезде оның енгізу өрісінде
x:= InputBox(‘Аргумент мәні’, ‘х=’, ‘’);
Стандартты типті түрлендіру функциялары:
Функция Орындайтын іс - әрекеттер
StrToFloat(x) - Жолдық типті х айнымалысын нақты санға түрлендіру;
FloatToStr(x) - х нақты санын жолдық типті етіп түрлендіру;
FloatToStrF(x,f,s,o) - х нақты санын форматты жолдық типке түрлендіру;
StrToInt(x) - Жолдық типті х айнымалысын бүтін санға түрлендіру;
IntToStr(x) - х бүтін санын жолдық типті етіп түрлендіру.
Delphi – де нәтижені ShowMessage процедурасының терезесіне шығаруға болады.
Мұндағы, s – жолдық типті өрнек. Егер ол сандық
Мысалы, s нақты типті сан болса, оны шығару терезесінде
ShowMessage(FloatToStr (s)); не ShowMessage(FloatToStrF(x, ffFixed, 7,3));
Жүйе соңғы операторды оқып шығып, жеті цифрдан тұратын нақты
3.8. Delphi-де мәліметтер базасын құру
Әр кесте жеке файлда физикалық сақталады. Бірақ ұқсас мәліметтер
Сондықтан мәліметтер базасында басқа кестеден барлық мәліметтер базасының қойылуы
Мәліметтер базасы – бұл информация орналасатын файл (кесте) жиынтығы.
Каталог құру;
Псевдоним құру;
Кесте құру.
Мәліметтер базасының псевдонимі – мәліметтер базасымен жұмыста программаны
Бүгінгі күнгі мәліметтер базасы.
Мәліметтер базасы бұл ақпараттарды сақтау үшін арналған ұйымдастырылған құрылым.
Егер, мысалы, ірі банктің мәліметтер базасын қарастыратын болсақ, бұл
Мәліметтер базасы түсінігімен мәліметтер базасын басқару жүйесі түсінігі тығыз
Әлемде көптеген мәліметтер базасын басқару жүйелері бар. Олардың әр
Мәліметтер базасының кең түрде қолданылуының алғы шарттары.
МБ-ның айқын басымдылықтары мен объективті алғы шарттары оның кең
нақты өмірдің объектілері өзара күрделі қарым-қатынаста болады. Бұның бәрі
әртүрлі пайдаланушылардың ақпараттық қажеттіліктері өзара қиылысады, ал бұл бір
ақпараттық қорды құру мен жүргізу функциялары мен қажетті мәліметтерді
техникалық және программалық қамтамасыз етудің дамуының қазіргі заманғы деңгейі,
Пайдаланушылар категориялары.
Мәліметтер базасымен оның құру мен функционалдау процесінде әр түрлі
Пайдаланушылардың негізгі категориясы болып түпкілікті пайдаланушылар, яғни, олардың қажеттіліктері
Мәліметтер базасын функционалдау мәліметтер базасын құруды, функционалдауды және дамытуды
Мәліметтер базасы әкімшілігінің функциялары.
Мәліметтер базасының администраторларының тобының құрамында олардың атқаратын функцияларына байланысты
Мәліметтер базасының әкімшілігінің құрамында жүйелік аналитиктер, мәліметтер базасына қатысы
Мәліметтер базасының администраторлары жан-жақты функциялардың үлкен шеңберін орындайды. Әрі
Пәндік облыс анализі: пәндік облысты жазбаша суреттеу, толықтылықты шектеуді
Мәліметтер базасының құрылымын жобалау: мәліметтер базасының файлдарының құрамы мен
Мәліметтер базасы мен МБ-н өңдеу шараларының құрылымын жазбаша суреттеу
Мәліметтер базасын алғашқы жүктеу мен жүргізу: мәліметтер базасын алғашқы
Мәліметтерді қорғау.
Жүйеге пароль арқылы кіруді қамтамасыз ету: пайдаланушыларды тіркеу, парольдарды
Нақты мәліметтерді қорғауды қамтамасыз ету: пайдаланушылар топтарының және жеке
Мәліметтерді қорғау жабдықтарын тестілеу.
Ақпаратқа енудің қарастырылмаған жолдарын анықтау/тіркеу.
5.5.Мәліметтерді қорғауды бұзудың пайда болған жағдайларын
МБ-н қайта қалыптастыруды қамтамасыз ету: МБ-н қайта қалыптастырудың программалық-технолгиялық
МБ-на пайдаланушылардың жолдауның анализі: пайдаланушылардың МБ-на жолдауының статистикасын жинау,
МБ-ның жұмыс жасау тиімділігінің анализі мен жүйенің дамуы: жүйенің
пайдаланушылармен жұмыс жасау: пәндік облыстағы өзгерістер туралы ақпарат жинау,
Жүйелік программалық жабдықтарды дайындау және қолдау: МББЖ және ҚПП
Ұйымдастырушылық-әдістемелік жұмыс: МБ-н жобалау әдістемесін таңдау немесе құру, жүйенің
Әдебиеттерде жиі-жиі пайдаланушылардың тәуелсіз категориясы ретінде қолданбалы программистерді бөліп
Мәліметтер базасы администраторының байланыстары.
МБ-ң администраторы өз қызметінің барысында мәліметтер базасының басқа пайдаланушыларымен,
Ең алдымен егер мәліметтер базасы қандай да бір кәсіпорынды
Мәліметтер базасы пәндік облыстың динамикалық ақпараттық көрінісі болып табылатындықтан
Ұйым басшылығы мен МБ-ның администраторы МБ-н құрудың негізгі
МБА-ның МБ-ның бүкіл өмірлік циклінің кезеңдеріндегі өте тығыз байланыс
Соңғы уақыттарда мәліметтер базасының түпкілікті пайдаланушылары мен администраторлары арасында
Егер мәліметтер базасы қандай-да бір оны қосушы автоматтандырылған ақпараттық
МБ-ның администраторлары оған қатысты мамандардың сыртқы топтарымен де және
МБ-сын мамандандырылған жобалық ұжымдармен бүтіндей немесе МБ жобалаудың өзіндік
Мәліметтер базасының кестелерін әзірлеу – алдымен Database Desktop қосымшасын
кесте форматын (типін) таңдау;
кесте құрылымын беру.
Алдымен Create Table терезесінде жаңа кесте форматы таңдалады. Содан
Алаңның сипатталуы;
Кілтті беру;
Индекс беру;
Алаң мәніне шектеулерді анықтау;
Бүтінділік сілтемесіне шаттарды анықтау.
Пароль беру;
Тілдің драйверін беру;
Мәліметтерді таңдауға кестелерді беру.
Мұнда бірінші міндетті болып қимыл, яғни кем дегенде бір
Кестелердің сипатталуы.
Create Paradox Table терезесінің негізгі – алаң тізімі болып
Аты – Field Name бағаны;
Типі – Type бағаны;
Өлшемі – Size бағаны.
Алаң өлшемін әр қашан таңдаудың қажеті жоқ. Сондай-ақ Table
Secondary Indexes – индекстер;
Validity Cheeks – алаңдарға дұрыс мәндерді енгізуді тексеру (келісім
Referential Integrity – бүтінділікке сілтеме;
Password – парольдер;
Table Language –кесте тілі (тіл драйвері);
Table Lookup – кесте таңдауы;
Dependent Tables – бағынышты кестелер.
3.9. Менюді ұйымдастыру. Негізгі және контекстік меню.
TMainMenu класс компоненттері формаларының негізгі менюін анықтайды. Формаға осы
TPopupMenu бұл класс компоненттері контекстік менюді әзірлеуге тағайындалған және
Қасиеттері:
Property Bitmap: TBitmap – опциямен байланысты бейнеге сілтемені кірістіреді.
Property Break: TMenuBreak – көп болғанда ішкі менюді жазуға
Property Checked: Boolean – егерде ақиқат болса, онда опция
Property Command: Word – қосымшаларды әзірлеу барысында қолданылады.
Property Count: Integer – ішкі менюдегі осы элементпен байланысты
Property Default: Boolean – берілген ішкі меню опциясы ерекше
Property group Index: Byte – тәуелді опциялар үшін топтық
Property Items (Index: Integer): TMenuItem – ішкі менюдің кез-келген
Property Menu Index – ата-аналық опциядағы Items тізіміндегі опция
Property Radio Item: Boolean – берілген опция group Index
Property Shortcut: TShortcut – берілген опцияны қос перне арқылы
Main Menu:
Көшірме – Memo1.CopyToClipboard;
Қиюға – Memo1.CutToClipboard;
Қою – Memo1.PosteformClipboard;
Шығу – Close;
4-БӨЛІМ. ТЕХНИКА ҚАУІПСІЗДІГІ
Күрделі автоматтандырылған басқару жүйелерін әзірлеу барысында жиі жүйелік бағдарламалау
4.1 Электр қауіпсіздігі
Электр қауіпсіздік ретінде, адамдарды электр тоғының, электр доғаның және
Адам бойымен өтетін тоқ күшінің мәні осы кездегі адамның
Әзірленген бағдарламаның іске асырылуы ПЭЕМ-да өтіледі. Тоқ күштенуінің көзі
Электр тоғымен тигізуді ескерту талаптарына сәйкес қажет:
жұмыстарды өңдіру ережелерін және техникалық іске асыру ережелерін нақты
оператордың, қауіпті тоқ күшенуіде жұмыс істейтіндердің, жабдықтар бөлігіне, үлкен
электр тоғымен тиісуден қорғайтын, берік жаппай немесе көп
арнайы электрондық - есептеуіш машинаға электр коректенуін арнайы шаңышқы
желіден алатын тоқ күшенуіне сеніп, тоқ бойынша жүктемесінен қорғау;
операторға оңай тұрған металл бөлімдерін жерге қосатын қысымдарына қосу,
жерге қосатын қорғау жол бастаушының өшіргіштерінің және сақтандырғыштарының жоқ
4.2 Өрт қауіпсіздігі
Өрт қауіпсіздігі деп өрттен адамдарды және жеке мүліктерді қорғауға
Электр желісі бар бөлмелердің өрт қауіпсіздігі ГОСТ 12.1.033-81, ГОСТ
Дисплейлер конструкцияларында көшпелік кедергіні азайтатын, яғни ЭЕМ-нің да қызыун
Объектінің өрт қауіпсіздігі қамтамасыздандырылады:
өртті алдын алу жүйесімен;
өртке қарсы қорғау жүйесімен;
ұйымдастырушылық-техникалық шаралармен.
Өртті бөлмеде алдын алу жанатын материалдардың минималды санымен, олардың
Ұйымдастырушылық-техникалық шаралар, қызметкерлерді өрт қауіпсіздігінің ережелеріне оқытуды ұйымдастыруды кірістіреді.
4.3 Шу деңгейлеріне және дірілдеуге талаптар
Операторға бөгеттердің тигізетін ықпалы туралы және оның бөгеттерге тұрақтылығының
Компаниялардың жұмыс бөлмелерінде акустикалық шулардың негізгі көзі ДЭЕМ-дың шуы
Ыңғайлы емес шудың ықпалын жою немесе азайту үшін жұмыс
Тұрақты шу мінездемелері – дыбыстық давления дәрежесі децибелада
Дб дәрежесі 63 152 250 500 1000 2000 4000
Гц, жиілігі 71 61 54 49 45 42 40
1.1 Кесте. Октавты сызықтардағы дыбыс давлениясының дәрежесі.
Мимен жұмыс істеу барысында рұқсат етілетін шу дәрежесі -
4.4 Шаң және зиянды химиялық заттар
Бөлмелердің ауасы металлдарды, пластмасстарды, ағаштарды және т.б. материалдарды өңдеген
көміртек тотығы (3) – иісті газ (ПДК – 20
күкіртті сутегі (ПДК – 10 мг/м3);
аммиак (ПДК – 20 мг/м3);
автокөлктерден шығатын газдар және басқалар.
Шанмен және ластанумен күресу үшін бөлмеде дымқыл жинау орындалуы
4.5 Микроклимат
Еңбек қауіпсіздігінің және өңімділігінің негізгі факторы өнеркәсіптік микроклимат болып
Микроклимат параметрлері Параметрлер мәндері
Қыста Жазда
1. Температура, °C 22-24 23-25
2. Әуедегі көпшіліктердің жылдамдығы, м/с 0.1 0.1-0.2
3. Салыстырмалы ылғалдылық, % 40-60 40-60
Кесте 1.2. Өнеркәсіптік бөлмедегі микроклимат парамерлеріне талаптар
Зерттеулер ауаның жоғарғы температурасы жоғарғы ылғалдылықпен қоса оператордың жұмыс
Мұндай жағдайларда сенсомоторлық реакция уақыттары үлкейеді, қозғалыстардың үйлестігі бұзылады,
Жоғарғы температура адамның психологиялық функцияларына теріс әсер тигізеді. Сақталатын
40 – 60% шекарасындағы салыстырмалы ылғалдылықтың адам күйіне әсері
Жұмыс бөлмелерінде қажетті температураны және ылғалдылықты ұстау үшін, тұрақты
Жүйені іске қосатын бөлмелерде микроклиматқа қойылатын талаптар толығымен орындалады.
4.6 Желдету
Бөлмелерде ауаның дұрыс, гигиеналық талаптарына сай келетін құрамын ұстау
4.7 Информацияны көрсету жүйелеріне эргономикалық талаптар
Эргономикалық талаптар көру информацияның жарықтық, уақыттық және кеңістіктік мінездемелердің
Жарықтық режимнің бағасы жарық деңгейін нормалауды, көру информацияның көрсеткіштерін
Оператордың көру алаңына кіретін жарықтардың максималды қайта-қайта өзгеруі 1:100-ден
Экранның жарығы төмен, ал жарықтандырумен жасалатын жарық жоғары болған
Информацияны бейнелеу құралдары келесі техникалық талаптарға жауап берулері қажет:
экранның жарық свечениясы 100 Кд/м2 кем емес;
түрлі-түсті монитор үшін растра нүктенің минималды өлшемі
бейне контрастілігі 0.8 кем емес;
текстік режимдегі бейне регенерациясының тазалығы 72 Гц кем
бір жолдағы растра нүктелерінің саны 640 кем емес;
экранның антибликтік қабықшасының болуы;
размер экрана не менее 31 см по диагонали;
экран бетіндегі символдар биіктігі 3.8 мм-ден кем емес;
оператор көзіненен экранға дейінгі арақашықтық 40-80 см;
монитор, оны 130-200 мм шекарасында горизонталді және вертикалды
4.8 Оператордың жұмыс орнын ұйымдастыру
Оператордың комфортностты жұмысына оператордың жұмыс орынының ұйымдастырылуы, информацияны бейнелеу
ЭЕМ операторының комфортты жағдайын қамтамасыз ететінің негізгісі- ол оның
Оператордың монитор экраны алдында көп уақыт жұмыс істеген кезде
Оператордың жұмыс орны стандарттар талаптарына және еңбек қорғау
Жұмыс столының элементтерін келісіп орналастырғанда мыналар ескеріледі:
адамның-оператордың жұмыс күйі;
барлық қажет қимылдарды қамтамасыз ететін, оператордың орналасу кеңістігі,
оператор және құралдар арасындағы физикалық, көру және есту байланыстары;
жұмыс орынының шекарасының кеңістігінен артық қашықтықтағы кеңістікті көру;
оператормен қолданылатын материалдарды және құжаттарды орналастыру, жазылымдарын жүргізуге мүмкіндіктің
Құралдардың конструктивті және сыртқы бейнеленуі минималды шаршауға жағдай жасайды.
4.9Жұмыс орынының эргономикалық талаптары
Жұмыс орынның конструкциясы және оның барлық элементтерінің өзара дұрыс
Жұмыс орынның берілген конструкциясы еңбек операцияларын мотрлық алаң қызметінің
Информацияны бейнелеу құралдарының орналасуы, берілген жағдайда бұл ЭЕМ дисплейі
Сур. 2.1. Адам денесіне мониторлық алаңның жетуі
Сур. 2.2. Жету зонасы және мониторлық алаңның оптималды зонасы
Көзге болатын жүктемені азайту үшін, дисплей эргономика көзқарасына байланысты
Лабораториялардағы жұмыс орындар терезелерге перпендикулярно орналасуы керек, бұл экранның
4.10 Жұмыс орынның жарық болуы
Жұмыс орынның жобалау кезінде жасанды және табиғи жарықтандыру мәселесі
жарық көзін және жарықтандыру жүйесін дұрыс таңдау;
жұмыс беттердің жарықтандыруының қажетті деңгейін әзірлеу;
соқырлататын жарықтың әрекетін шектеу;
тұрақты жарықтандыруды қамтамасыз ету;
жарық тасқынының уақыт мерзіміндегі тербелістерін шектеу немесе болмауын жасау.
Жұмыс орнындағы жарықтандыру гигиеналық нормаларға сәйкес еңбектің көздік шарттарына
Электронды-сәулелік трубканы пайдалану шартына сыртқы жарықтандыру және байқау арақашықтығы
төмен (10 – 50 лк);
орташа (500 – 1000 лк);
жоғары (более 10000 лк).
Егер жарықтандыру 30000 лк артық болса, онда оны азайту
5-БӨЛІМ. ЖОБАНЫҢ ҚОЙЫЛЫМЫ
Жобаның қойылымы: Кез-келген оқу орнының қызметкерлерін, Студенттерін
Жобаның аты – Директордың жұмыс орны
Программа аты –Arm.
Программалау жүйесі – Borland Delphi 7.0.
Компьютер – ІВМ РС АТ/286 және жоғары.
Кірістірілетін мәліметтер:
а) жұмысшылар, студенттер туралы толык акпарат;
Шығарылатын мәліметтер:
а) Жұмысшылар,студенттер туралы жалпы акқпараттар;
Қателіктер:
а) енгізілетін күндер саны бүтін сан болу керек;
5.1 ЕСЕПТІҢ БЛОК-СХЕМАСЫ
5.2 ФОРМАЛАРҒА СИПАТТАМА
Жалпы бағдарламада тоғыз форма құрылған. Олардың әр қайсысын жеке
Бірінші форма – титульдық бет;
Екінші форма – Бағдарламаға кіру. Пароль енгізу.
Үшінші форма – басты терезе
Төртінші форма – терезені ашу.
Бесінші форма- редакторлеу
.
Жетінші форма - мұрағат
Сегізінші форма – сөздік
5.3 БАҒДАРЛАМАШЫ ИНСТРУКЦИЯСЫ
Программаны жасау барысында ІВМ фирмасының Pentium процессорлы компьютері қолданылады.
ІВМ РС Компьютері
Процессордың тактілік тазалығы 400 МГц және одан да жоғары
Оперативтік жады 64 МБ-тан жоғары
Бейне карта жадысы 32 МБ-тан жоғары
Монитор 15’’, ал экранның кеңейтілуі 800*600
Тышқан манипуляторы PS/2
Пернетақта 101/102 немесе Microsoft Natural
Қағазды басып шығару үшін – принтер CANON LBP2900
Қолданбалы бағдарлама – Borland Delphi 6.0 бағдарламасы
5.4 ҚОЛДАНУШЫ ИНСТРУКЦИЯСЫ
Бағдарламамен жұмыс істемес бұрын ең алдымен қолымызға дискта алып,
Қорытынды
Дипломдық жұмыстың негізгі мақсаты болып оқу орнындағы жұмысшылардың күнделікті
Осы мәліметтер қорын жетілдіру жұмысында мәліметтер қорымен жұмыс жүргізуге
DELPHI программалау ортасын қолданып колледж мүдіріне бағытталып жасалынған программа,
ҚОСЫМША
program ARM;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6},
Unit7 in 'Unit7.pas' {Form7},
Unit8 in 'Unit8.pas' {Form8},
Unit9 in 'Unit9.pas' {Form9},
Unit10 in 'Unit10.pas' {Form10},
Unit11 in 'Unit11.pas' {DataModule11: TDataModule},
Unit12 in 'Unit12.pas' {Form12};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TDataModule11, DataModule11);
Application.CreateForm(TForm12, Form12);
Application.Run;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls;
type
TForm9 = class(TForm)
QuickRep1: TQuickRep;
DetailBand1: TQRBand;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRShape1: TQRShape;
QRLabel8: TQRLabel;
QRShape2: TQRShape;
QRLabel9: TQRLabel;
QRShape3: TQRShape;
QRLabel10: TQRLabel;
QRShape5: TQRShape;
QRLabel11: TQRLabel;
QRShape4: TQRShape;
QRLabel12: TQRLabel;
QRShape6: TQRShape;
QRLabel13: TQRLabel;
QRShape7: TQRShape;
QRLabel14: TQRLabel;
QRShape8: TQRShape;
QRLabel15: TQRLabel;
QRShape9: TQRShape;
QRLabel16: TQRLabel;
QRShape10: TQRShape;
QRLabel17: TQRLabel;
QRShape11: TQRShape;
QRLabel18: TQRLabel;
QRShape12: TQRShape;
QRLabel19: TQRLabel;
QRShape13: TQRShape;
QRLabel20: TQRLabel;
QRShape14: TQRShape;
QRLabel21: TQRLabel;
QRShape15: TQRShape;
QRLabel22: TQRLabel;
QRShape16: TQRShape;
QRLabel23: TQRLabel;
QRShape17: TQRShape;
QRLabel24: TQRLabel;
QRShape18: TQRShape;
QRLabel25: TQRLabel;
QRShape19: TQRShape;
QRLabel26: TQRLabel;
QRShape20: TQRShape;
QRLabel27: TQRLabel;
QRShape21: TQRShape;
QRLabel28: TQRLabel;
QRShape22: TQRShape;
QRLabel29: TQRLabel;
QRShape23: TQRShape;
QRLabel30: TQRLabel;
QRShape24: TQRShape;
QRSysData1: TQRSysData;
QRLabel31: TQRLabel;
QRShape25: TQRShape;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRLabel34: TQRLabel;
QRLabel35: TQRLabel;
QRLabel36: TQRLabel;
QRLabel37: TQRLabel;
QRLabel38: TQRLabel;
QRLabel39: TQRLabel;
QRLabel40: TQRLabel;
QRLabel41: TQRLabel;
QRLabel42: TQRLabel;
QRLabel43: TQRLabel;
QRLabel44: TQRLabel;
QRLabel45: TQRLabel;
QRLabel46: TQRLabel;
QRLabel47: TQRLabel;
QRLabel48: TQRLabel;
QRLabel49: TQRLabel;
QRLabel50: TQRLabel;
QRLabel51: TQRLabel;
QRLabel52: TQRLabel;
QRLabel53: TQRLabel;
QRLabel54: TQRLabel;
QRLabel55: TQRLabel;
QRLabel56: TQRLabel;
QRLabel57: TQRLabel;
QRLabel58: TQRLabel;
QRLabel59: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses unit3;
{$R *.dfm}
function GetExePath:string;
begin
Result:=ExtractFilePath(paramstr(0));
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm8 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Memo1: TMemo;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *.dfm}
function GetExePath:string;
begin
Result:=ExtractFilePath(paramstr(0));
end;
procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
if edit1.Text=memo1.Lines.Text then begin
label2.Visible:=true;
edit2.Visible:=true;
end
else showmessage('Пароль кате!');
end;
end;
procedure TForm8.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile(getexepath+'\password.txt');
end;
procedure TForm8.Edit2Change(Sender: TObject);
begin
speedbutton1.Enabled:=true;
end;
procedure TForm8.SpeedButton1Click(Sender: TObject);
begin
memo1.Lines.Text:='';
memo1.Lines.Text:=edit2.Text;
memo1.Lines.SaveToFile(getexepath+'\password.txt');
close;
end;
procedure TForm8.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure TForm8.SpeedButton3Click(Sender: TObject);
begin
close;
end;
end. unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, Buttons, ExtCtrls;
type
TForm7 = class(TForm)
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit3;
{$R *.dfm}
function GetExePath:string;
begin
Result:=ExtractFilePath(paramstr(0));
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getexepath+'\db\Отдел кадров.mdb;Persist Security Info=False';
adotable1.TableName:='Архив';
adotable1.Active:=true;
end;
procedure TForm7.SpeedButton1Click(Sender: TObject);
var s:olevariant;
i,j:integer;
begin
if Application.MessageBox(PChar('Сіз шыныменен де кайтаргыныз келеді ме? '), 'Назар
form3.ADOTable1.Append;
for i:=1 to adotable1.FieldCount-1 do
form3.DBGrid1.Fields[i].Value:=dbgrid1.SelectedField.DataSet.Fields.Fields[i].CurValue;
form3.ADOTable1.Post;
datasource1.DataSet.Delete;
end;
end;
procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
adotable1.Delete;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls;
type
TForm6 = class(TForm)
Image1: TImage;
Label1: TLabel;
ComboBox1: TComboBox;
Label2: TLabel;
Edit1: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses unit3;
{$R *.dfm}
procedure TForm6.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure TForm6.ComboBox1Change(Sender: TObject);
begin
Label2.Caption:=combobox1.Items.Strings[combobox1.itemindex];
label2.Visible:=true;
edit1.Visible:=true;
end;
procedure TForm6.SpeedButton1Click(Sender: TObject);
var v,d:string;
begin
form3.ADOTable1.Filtered:=true;
close;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, DB, ADODB, StdCtrls, DBCtrls, Mask, ComCtrls;
type
TForm5 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Label1: TLabel;
DBText1: TDBText;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
DBEdit33: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
DBComboBox4: TDBComboBox;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBComboBox6: TDBComboBox;
DBComboBox5: TDBComboBox;
DBComboBox7: TDBComboBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label22: TLabel;
Label21: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label20: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
procedure FormCreate(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
function GetExePath:string;
begin
Result:=ExtractFilePath(paramstr(0));
end;
procedure TForm5.FormCreate(Sender: TObject);
begin
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getexepath+'\db\Отдел кадров.mdb;Persist Security Info=False';
adotable1.TableName:='Отел кадров';
adotable1.Active:=true;
dbcombobox6.Items.LoadFromFile(getexepath+'\Образование.txt');
dbcombobox7.Items.LoadFromFile(getexepath+'\Должность.txt');
dbcombobox4.Items.LoadFromFile(getexepath+'\Семейное положение.txt');
dbcombobox2.Items.LoadFromFile(getexepath+'\Национальность.txt');
dbcombobox5.Items.LoadFromFile(getexepath+'\Подразделение.txt');
dbcombobox1.Items.LoadFromFile(getexepath+'\Пол.txt');
dbcombobox3.Items.LoadFromFile(getexepath+'\Кем выдано.txt');
end;
procedure TForm5.SpeedButton3Click(Sender: TObject);
begin
close;
end;
procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
if adotable1.Modified=true then
adotable1.Post;
close;
end;
procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
adotable1.Cancel;
close;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls, Buttons, DBCtrls, DB, ADODB, Mask;
type
TForm4 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Timer1: TTimer;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
DBEdit33: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
DBComboBox4: TDBComboBox;
DBComboBox5: TDBComboBox;
DBComboBox6: TDBComboBox;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
DBText1: TDBText;
DBComboBox7: TDBComboBox;
procedure Timer1Timer(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
function GetExePath:string;
begin
Result:=ExtractFilePath(paramstr(0));
end;
procedure TForm4.Timer1Timer(Sender: TObject);
begin
if label20.Visible=true then label20.Visible:=false
else label20.Visible:=true;
end;
procedure TForm4.SpeedButton3Click(Sender: TObject);
begin
close;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getexepath+'\db\Отдел кадров.mdb;Persist Security Info=False';
adotable1.TableName:='Отел кадров';
adotable1.Active:=true;
dbcombobox6.Items.LoadFromFile(getexepath+'\Образование.txt');
dbcombobox7.Items.LoadFromFile(getexepath+'\Должность.txt');
dbcombobox4.Items.LoadFromFile(getexepath+'\Семейное положение.txt');
dbcombobox2.Items.LoadFromFile(getexepath+'\Национальность.txt');
dbcombobox5.Items.LoadFromFile(getexepath+'\Подразделение.txt');
dbcombobox1.Items.LoadFromFile(getexepath+'\Пол.txt');
dbcombobox3.Items.LoadFromFile(getexepath+'\Кем выдано.txt');
end;
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
if adotable1.Modified then
adotable1.Post;
close;
end;
procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
adotable1.Cancel;
close;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Menus, Buttons, Grids, DBGrids, StdCtrls, DB,
ADODB, OleServer, Excel2000;
type
TForm3 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N301: TMenuItem;
N30451: TMenuItem;
N45601: TMenuItem;
N601: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
Image1: TImage;
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Label1: TLabel;
Timer1: TTimer;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ExcelApplication1: TExcelApplication;
procedure FormResize(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N301Click(Sender: TObject);
procedure ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
procedure N30451Click(Sender: TObject);
procedure N45601Click(Sender: TObject);
procedure N601Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N19Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
l,i:integer;
implementation
uses unit1,unit4,unit5,unit6,unit7,unit8,unit9,unit10,unit12;
{$R *.dfm}
function GetExePath:string;
begin
Result:=ExtractFilePath(paramstr(0));
end;
procedure TForm3.FormResize(Sender: TObject);
begin
bitbtn5.Left:=form3.Width-20-bitbtn5.Width;
end;
procedure TForm3.N10Click(Sender: TObject);
begin
close;
form1.Show;
end;
procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
form1.Show;
end;
procedure TForm3.N8Click(Sender: TObject);
begin
dbgrid1.Show;
end;
procedure TForm3.N9Click(Sender: TObject);
begin
dbgrid1.Hide;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
l:=l+1;
case l of
1:label1.Show;
7:timer1.Enabled:=false;
end;
end;
procedure TForm3.FormActivate(Sender: TObject);
begin
timer1.Enabled:=true;
end;
procedure TForm3.FormCreate(Sender: TObject);
var v:integer;
begin
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getexepath+'\db\Отдел кадров.mdb;Persist Security Info=False';
adotable1.TableName:='Отел кадров';
adotable1.Active:=true;
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
form4.Show;
form4.adotable1.Append;
end;
procedure TForm3.N2Click(Sender: TObject);
begin
form4.Show;
form4.adotable1.Append;
end;
procedure TForm3.BitBtn4Click(Sender: TObject);
begin
adotable1.Filtered:=false;
adotable1.Close;
adotable1.Active:=false;
adoconnection1.Close;
adoconnection1.ConnectionString:='';
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getexepath+'\db\Отдел кадров.mdb;Persist Security Info=False';
adotable1.Active:=true;
adoconnection1.Open;
adotable1.Open;
datasource1.DataSet.Close;
datasource1.DataSet.Open;
datasource1.DataSet.Refresh;
dbgrid1.Refresh;
end;
procedure TForm3.N11Click(Sender: TObject);
begin
if form5.DataSource1.DataSet.FindField(dbgrid1.SelectedField.FieldName).AsStringdbgrid1.SelectedField.AsString then
repeat
form5.DataSource1.DataSet.Next;
until form5.DataSource1.DataSet.FindField(dbgrid1.SelectedField.FieldName).AsString=dbgrid1.SelectedField.AsString;
form5.Show;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
if form5.DataSource1.DataSet.FindField(dbgrid1.SelectedField.FieldName).AsStringdbgrid1.SelectedField.AsString then
repeat
form5.DataSource1.DataSet.Next;
until form5.DataSource1.DataSet.FindField(dbgrid1.SelectedField.FieldName).AsString=dbgrid1.SelectedField.AsString;
form5.Show;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
form6.Show;
end;
procedure TForm3.N14Click(Sender: TObject);
begin
form6.Show;
end;
procedure TForm3.N5Click(Sender: TObject);
begin
form7.Show;
end;
procedure TForm3.N13Click(Sender: TObject);
var s:olevariant;
i,j:integer;
begin
if Application.MessageBox(PChar('Сіз шыныменен де жойгыныз келеді ме? '), 'Назар
form7.ADOTable1.Append;
for i:=1 to adotable1.FieldCount-1 do
form7.DBGrid1.Fields[i].Value:=dbgrid1.SelectedField.DataSet.Fields.Fields[i].CurValue;
form7.ADOTable1.Post;
adotable1.Delete;
end;
end;
procedure TForm3.N17Click(Sender: TObject);
begin
form8.show;
end;
procedure TForm3.N15Click(Sender: TObject);
begin
form9.QRLabel36.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Фамилия').AsString;
form9.QRLabel37.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Имя').AsString;
form9.QRLabel38.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Отчество').AsString;
form9.QRLabel39.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Место рождения').AsString;
form9.QRLabel40.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Национальность').AsString;
form9.QRLabel49.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('№ удостоверения').AsString;
form9.QRLabel51.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Күні выдычи').AsString;
form9.QRLabel50.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Кем выдано').AsString;
form9.QRLabel42.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Домашний телефон').AsString;
form9.QRLabel43.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Сотовый').AsString;
form9.QRLabel54.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Адрес проживания').AsString;
form9.QRLabel55.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Адрес прописки').AsString;
form9.QRLabel48.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Семейное положение').AsString;
form9.QRLabel32.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('№ документа').AsString;
form9.QRLabel34.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Табельный номер').AsString;
form9.QRLabel35.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Алфавит').AsString;
form9.QRLabel33.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Пол').AsString;
form9.QRLabel41.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Образование').AsString;
form9.QRLabel45.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Специальность по диплому').AsString;
form9.QRLabel55.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Диплом №').AsString;
form9.QRLabel57.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Күні выдачи диплома').AsString;
form9.QRLabel39.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Место рождения').AsString;
form9.QRLabel47.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Стаж работы').AsString;
form9.QRLabel46.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Должность').AsString;
form9.QRLabel52.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('СИК').AsString;
form9.QRLabel53.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('РНН').AsString;
form9.QRLabel59.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Пенсионный фонд').AsString;
form9.QRLabel58.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Ученое звание, квалификация').AsString;
form9.QRLabel56.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Адрес прописки').AsString;
form9.QRLabel44.Caption:=dbgrid1.SelectedField.DataSet.FieldByName('Гражданство').AsString;
form9.QuickRep1.PreviewModal;
end;
procedure TForm3.N18Click(Sender: TObject);
begin
form10.show;
end;
procedure TForm3.N20Click(Sender: TObject);
begin
adotable1.IndexFieldNames:='Алфавит';
end;
procedure TForm3.N23Click(Sender: TObject);
begin
adotable1.Filtered:=true;
AdoTable1.Filter:='Образование=''среднее''';
end;
procedure TForm3.N24Click(Sender: TObject);
begin
adotable1.Filtered:=true;
AdoTable1.Filter:='Образование=''среднее специальное''';
end;
procedure TForm3.N25Click(Sender: TObject);
begin
adotable1.Filtered:=true;
AdoTable1.Filter:='Образование=''неполное высшеее''';
end;
procedure TForm3.N26Click(Sender: TObject);
begin
adotable1.Filtered:=true;
AdoTable1.Filter:='Образование=''высшее''';
end;
procedure TForm3.N301Click(Sender: TObject);
begin
i:=1;
adotable1.Filtered:=false;
adotable1.Filtered:=true;
end;
procedure TForm3.ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=((i=1) and (adotable1.FieldByName('Год рождения').Value>(1975)))
or ((i=2) and (adotable1.FieldByName('Год рождения').Value(1960)))
or ((i=3)and (adotable1.FieldByName('Год рождения').Value(1945))
or ((i=4) and (adotable1.FieldByName('Год рождения').Value