Май ауданы бойынша көші-қон халықтарының статистикалық мәліметтерінің бағдарламасын құрастыру

Мазмұны

Кіріспе 5
1 Есептің қойылуы 7
1.1 Есептің қалыптастырылуы 7
1.2 Кіріс және шығыс құжаттарының сипаттамасы 8
1.3 Бағдарламаның интерфейс талаптары 9
2 Жобалау бөлімі 14
2.1 Ақпарат базасының сипатттамасы 14
2.2 Алгоритмнің сипаттамасы 17
2.3 Қолданушы интерфейсін ұйымдастыру 22
3 Дипломдық жобаны орындаудың аспаптық құралдары 23
3.1 Қолданылған операциялық жүйенің қысқаша мінездемесі 23
3.2 Программалау тілінің қысқаша мінездемесі 27
4 Эксплуатация 35
4.1 Аппаратық жабдықтарға қойылатын талаптар 35
4.2 Қолданушыға нұсқаулар 36
4.3 Программистке нұсқаулар 41
5 Қауіпсіздік техникасы және еңбек қорғау шарасы 44
Қорытынды 50
Қолданылған әдебиеттер тізімі 51
Қосымша А Дисктің мазмұны 53
Қосымша Б Бағдарламаның мәтіні 55
        
        Мазмұны
| |Кіріспе |5 |
|1 ... ... |7 ... |Есептің қалыптастырылуы |7 ... ... және ... ... ... |8 ... ... интерфейс талаптары |9 |
|2 ... ... |14 ... ... базасының сипатттамасы |14 ... ... ... |17 ... ... ... ... |22 |
|3 ... ... ... ... ... |23 ... ... ... жүйенің қысқаша мінездемесі |23 ... ... ... ... ... |27 |
|4 ... |35 ... ... ... ... ... |35 ... |Қолданушыға нұсқаулар |36 ... ... ... |41 |
|5 ... ... және ... қорғау шарасы |44 |
| ... |50 |
| ... ... ... |51 |
| ... А ... мазмұны |53 |
| ... Б ... ... |55 ... ... ... ... жаңа тәуелсіз мемлекеттер құрылғаннан
кейін осы мемлекеттердегі экономикалық және ... ... ... ... жаңа ... туындады. Қазақстан
Республикасының тәуелсіздік алуының және оны ... ... ... ... ... жаңа ... және саяси жағдалар
бүкіл елдегі және оның аймақтарындағы ... ... түрі ... ... ... ... ... Ұзақ мерзім бойы Қазақстан
халықаралық миграциясы эпизодтық ... ... және жеке ... және ... ... ... ... жабық ел болды. Ол
негізінен, социалистік және дамушы елдердегі өндірістік ... ... да ... құрылысына жоғары білікті жұмысшылардың іссапарлары
түрінде жүзеге асты.
Жүргізіліп отырған елдің «ашық ... ... ... ... либералдануы халықтың Қазақстаннан басқа елдерге ... ... ... ... өзі ... ... азайтты. Қазақстан
үшін жоғары білікті ... ... ... ... ... ауысып кетуі көкейкесті мәселеге айналып отыр.
Сонымен қатар Қазақстанға шетелдерден халықтың көп көлемде ... ... ... ... Бұл ... шекаралардың ашық болуына, республиканың
геосаяси орналасуына, ұлтаралық қатынастардың тұрақтылығына, сондай-ақ көші-
қон жөніндегі заңдардың жетіліспегендігіне, әрі ... ... ... тәжірибесінің жеткіліксіздігіне байланысты туындап отыр.
Мемлекеттің саяси тұрақтылығы, оның нарықтық ... ... ... алуы Қазақстанды шетел капиталы мен жұмысшы күші үшін тартымды етіп
отыр. Мұның өзі Қазақстандағы халық санының ... әсер ... ... ... ... жаңа мәселелер туындауда.
Экономикалық реформалардың тереңдей түскен кезінде елдің демографиялық
жағдайында ... ... ... ... ... және Қазақстан
Республикасының аймақтарындағы көші-қон ... ... түрі ... маңызды түзетулер енгізілуде, республиканың еңбек ... ... ... ... ... миграциялық жылжымалылығының
қарқындылығы да сөзсіз өсіп келеді.
Жан-жақты әлеуметтік-экономикалық, аймақтық ... өмір ... ... ... оның ... және ... ... жоғары
қарқынына қол жеткізу мәселелері маңызды болып табылады. Дамудың объективті
факторларынан туындаған Қазақстанның аймақтарының дамуының ... ... ... ... ... ... етіп ... үдерісі» түсінігі адам ресурстары өндірісі, үлестірілуі,
алмасулары және тұтынулары ... ... ... ... негізгі белгілерінің кең ауқымын қамтиды.
Қазақстан Республикасы үшін экономикалық дамудың қазіргі жағдайларында
болашақ дамудың: көші-қонның теріс ықпалы үнемі өсіп ... ... ... ... ... ... ... жалпы дамуға жағымсыз
әсерін тигізе алмайтын қуатты жаңа ... ... ... кең ... Оның ... мұндай таңдау — республика халқының саны ... ... ... ... ... дейін азаятындай дәрежеге
дейін төмендеуі мүмкін.
Сонымен қатар, ... ... ... жоғары қарқынмен
өзгерулері жағдайында ... ... ... бірқатар елдердің түпкілікті
емес халықтың саны ... ... ... ... ... шындыққа айналып
келе жатқанын байқауға болады. Соған орай көші-қон үдерістеріне байланысты
мәселелерді жүйелі тұғырнамалық талдап-зерделеудің ... ... ... дипломдық жобасыны негізгі мақсаты бұл қазіргі замандағы
Май ауданының ... ... ... ... және ... ... болып келеді.
Жобаны құрастыру үшін келесі жұмыс істелінді:
- Май ауданы бойынша көшіп-қонудың статистикалық ... ... ... ... ... ... мен толтыру және өзгертулерді
енгізу үшін осы базамен жұмыс істейтін бағдарлама құрастырылды.
Бағдарламалық өнім Delphi 7.0. ... ... ... ... Май ... ... ... миграциялық мәліметтер
қолданылады және осы бағдарлама мынадай жұмыстарды ... ... бұл ... ... ... ... және деректерді жою және де
дерректерді фильтрациялауға болады.
Дипломдық жобалау алты бөлімдерден құралған:
Есептің қойылуы ... ... ... ... ... ... құралдары, эксплуатация бөлімі, экономикалық бөлім, ... және ... ... ... ... Қорытынды бөлімінде жасалған
жұмыс нәтижесі бойынша қысқаша айтылып өтіледі және де осы ... ... ... мен ... ... мен ... ... жазылады.
1 Есептің қойылуы
1.1 Есептің қалыптастырылуы
Май ауданы бойынша көші-қон халықтарының статистикалық мәліметтерінің
бағдарламасын өндеу. ... ... ... ... жаңа ... ... оған тағы ... енгізуге, көшіп-
қонған адамдардың тізімін көруге, оларды фильтрация жасау және ... ... ... Жаңа жазбаны құрған кезде келуші немесі кетуші
мәлімет базасына аты-тегі, әкесінің аты, ... ... ... ... ... және ... ... күні мен берген органның аты, балалар болса
балалар саны және ... ... ... күні, келуші немесе
кетушінің туған жері мен ... ... жері және де кету ... келу ... ... мәліметтер енгізілу керек.
Қолданушының дұрыс жұмыс істемеуіне және мәліметтерді дұрыс енгізе
алмауына қарамастан оны керекті ... ... ... ... ... бағдарлама болуы керек.
Біріншіден белгілі бір ... ... ... ... осы іс - әрекетті қайтадан анықтап сұрауы тиіс.
Екіншіден деректер базасы тұрақты болуы тиіс (индекстің дұрыс болмауы,
қандай да бір ... ... ... ... ... ... барлық функциялар мұғаліммен немесе тапсырыс ... ... ... ... Delphi 7.0 ... аумағында жасалану керек.
Delphi, бүгінгі таңда мәліметтер базасында қосымшаларды құрудан ең көп
таралған құрал болып саналады. Жүйенің ерте ... ... көп ... ... ... ... ... тобымен
қамтамасыздандырылған. Сонымен қатар, экранда кескінделген терезелерді
құрастыру үшін ... ... ... көп мөлшері
жеткізіледі.
Бағдарламамен табысты жұмыс ... ... ... ... ... істеуге бейімделген болуы керек.
Мәліметтер базасы барлық керекті мәліметтерді сақтайды. Мысалы іздеу
нәтижесін ... ... кету ... келу ... көру және табу ... болу керек және осы мәліметтерді қарап шығуа бағдарлама бейімделген
болу керек
Дипломдық жобада бағдарламма келесі функцияларды іске асыратын ... Май ... ... ... ... ... ... мен
құрастыру, керекті деректерді фильтрациялау процесін өндіру, қолданушымен
мәлімет базаға енгізілетін деректерді сақтау, енгізілген деректерді ... ... ... Кіріс және шығыс құжаттарының сипаттамасы
Май ауданы бойынша көшіп-қонушылардың мәліметтері келу парақтар мен
кету парақтар құжаттар қолданылды: келуші ... ... ... ... аты, ... ... жынысы, ұлты, куәлік номері және куәліктін берілу
күні мен берген органның аты, балалар ... ... саны және ... ... күні, келуші немесе кетушінің туған жері мен ... жері және де кету ... келу ... ... ... кірістірілген құжаттар 1.1 кестеде
көрсетілген.
1.1 Кесте – Кіріс құжаттары
|Кіріс құжаттары ... ... түрі ... |Fam ... ... |Im ... ... аты |Otech ... ... жылы |GodR ... ... |Pol ... ... ... |мәтіндік ... ... |№Udos ... ... ... күні |GodVidUd ... ... ... ... аты ... ... ... күні ... ... ... саны |KolDeti ... ... жері мемлекет |MesRozhGos ... ... |Oblost ... ... |Raion ... ... |Selo ... ... |Uliza ... |
|Үй |Dom ... ... |Kvart ... ... ... ... ... |MesRigistrGos |мәтіндік ... ... | | ... тіркелу мекен жайы, |MesPoslRigistrGos |мәтіндік ... ... ... | | ... ... ... ... ... ... жайы ... |мәтіндік ... ... ... ... ... жатқызуға
болады: деретерді көру, фильтрациялау. ... ... жылы ... ... 1.1 ... көрсетілген.
1.1 Сурет – Туған жылы бойынша фильрациялау нәтижесінің көріндісі
Енгізу құжаттары мәлімет базасын толтыру үшін қажет. Delphi аспаптар
құралдары құжаттармен ... ... жою және жаңа ... қосу ... ... ... ... немесе кетуші адамның аты-тегі, әкесінің
аты, туған жылы, жынысы, ұлты, куәлік номері және ... ... күні ... ... аты, ... ... балалар саны және миграция полициясында
тіркелу ... ... ... ... ... жері мен ... тіркелу жері
және де кету немесе келу мекен жайы мәліметтер көріндісі.
1.3 Бағдарламаның интерфейс талаптары
Бағдарламаның интерфейсі қарапайым және ... ... ... ... ыңғайлы түрде оқу, түсінікті болуы керек.
Берілген дипломдық жобаның ... ... ... ... сәйкес орындалуы шарт.
Бағдарламаның интерфейсі – қолданушының ... ... ең ... ... ... ... ... болған жөн. Себебі,
қолданушының бағдарламамен жұмыс істеу немесе істемеуі ... ... Delphi ... ... ... ... сай ... тиіс. Бағдарламада қолданылатын
түстердің түсі көзді ауыртпайтындай болуы керек, және де ... бір ... ... ... ... ... көк, сұр, қоңыр тағы да басқа түстер
көзді ауыртпайды. Ал ашық көк, ... ашық ... тағы да ... ... ... және де ... ... жөн. Тек қана қызыл түсті бағдарламада
қажетті бір хабарлануды немесе тыйым салуды шығарған кезде ... ... үшін ... қолайлы. Тіпті Delphi бағдарламалау ортасының өзінде
де бағдарламаның қатесі болса, ол қызыл түспен ... ... ... ... мен ... ... ... терезесінде де достастық
интерфейсі сақталуы керек. Сол сияқты берілген ... ... сай ... ... Оның ... ... ... түс қолданылады. Одан басқа қолданушы мен компьютер арасындағы сұхбат
терезесінде де достастық интерфейсі сақталады.
Ұйымдастырылған интерфейстен ... ... ... көзге
түсетін элемент – фон ... Фон түсі ... ... ... ... кері әсер ... ... көңілін көтеретін
болу керек. Фон түсі табиғаттың «тыныштандыратын» түстерімен боялуы тиіс.
Демек, бағдарлама интерфейсі ... ... сай болу ... бағдарлама жұмысының ... ... ... үш түстен тұрады: сұр, қара және көк. Көк пен сұр – ... ал қара – ... ... Көк пен сұр ... ... қара түсі ... де, ... мәтінін бірден оңай-ақ оқи аласыз.
Фон түсінен басқа қолданушылық ... ... ... ... ... ... түсіндіретін коментариялар болуы тиіс,
сондықтан бағдарламада осы талап жүзеге асырылды, керекті ... ... ... ... ...... нарықтағы сұранысын
көтеру үшін үлкен рөл ... ... ... ... ... ... ... – ол қолданушының дербес компьютермен қанынасу ... ... ... және бағдарлама арасында қатынасы
болып келеді. ... ... ... ... ... үшін қызмет етеді.
Қолданушы интерфейсін құрудың көпдеңгейлі ұйымы досшыл құрастырылған.
Досшыл интерфейс ... ... ... қасиеттер жиынтығы деген
ұғымды білдіреді. Ол ... ... ... ... ... ... Бұл қасиеттерінің кейбіреулерін атап шығайық:
- қолданушыға түсінікті терминдерді, белгілерді және суреттерді қолдану;
- жүйелік анықтаманың бар болуы;
- қолданушының қателіктеріне ... ... ... қолданушыға қарап жасауға керек ... ... ... ... жалпы талаптарына:
- унификациялау;
- досшыл;
- нақты үнсіз жағдайда параметрлерді анықтайды. Мәтін ... ... ... жедел енгізу әдісінің
көмегінен тұрады;
- баптау құрылғыларының көмегімен берілетін иілгіштік;
- сұхбатты ... ... яғни ... интерфейстерінің
компоненттерін қиындық деңгейлеріне бөлу;
- қолданушының қателіктерін табу және оларды ... ... ... әрекеттерді алып тастау мүмкіндігі.
Ағымдық терезелер экранның кез – келген жеріне орналаса алады да, ... ... ... орын ... ... ... түрде ақырғы
терезенің орын ауыстыруы, егер ... ... ... ... ғана одан ... ... ағымдық терезелердің жағдайына
әсер етпейді.
Берілген бағдарлама бөлімдері арнайы ... ... ... ... қолданылуы керек, керекті функцияларды тез және ... ... ... жобаның интерфейсі қолданушы интерфейсінің
реализация принципіне сәйкес ... ... ... мен ... әртүрлі тәсіл арқылы (пернелер
тақтасы, тышқан, басқа да құрылғылар) енгізу мен қосымша функцияларға деген
көпнұсқаулық (“ыстық пернелер”, мәзір...) мүмкіндігін беру ... ... ... терезеден терезеге, режимнен режимге қосылу ... ... ... Яғни ... ... интерфейсте қолданушының сана
сезіміне кері әсерін тигізетін элементтердің болмағаны жөн. Онымен қоса ол
келесі жағдайларды дұрыс ... ... ... аппараттық (бағдарламалық)
платформаға ауысқанда қолданушы интерфейсі мен ... ... ... ... ... интерфейсін құрудың көпдеңгейлі ұйымы досшыл құрастырылған.
Досшыл интерфейс ... ... ... қасиеттер жиынтығы деген
ұғымды білдіреді. Ол ... ... ... ... ... береді. Бұл қасиеттерінің кейбіреулерін атап шығайық:
қолданушыға түсінікті ... ... және ... ... анықтаманың бар болуы;
қолданушының қателіктеріне сыпайы қарау;
интерфейсті қолданушыға қарап жасау ... ... ... ... шешімдері үш кезеңіне бөлінеді:
- физикалық есептеуіш жүйелерінің ... ... ... ... ... орналастырылуы, тышқанның
функциялары, дисплейдің графикалық және түстер сұранысы);
- ... ... мен ... ... ... шегінен
ақпаратты көрсетуді реттеу;
- семантикалық. Қолданушы интерфейсінің элементтерінің ... ... ... талаптарына:
- унификациялау;
- досшыл;
- нақты үнсіз жағдайда параметрлерді ... ... ... реализациялауға, командаларды жедел ... ... ... ... ... көмегімен берілетін иілгіштік;
- сұхбатты құрылғыларға бөлу, яғни ... ... ... ... ... ... қателіктерін табу және оларды өзгерту мүмкіндігі,
яғни қате әрекеттерді алып тастау мүмкіндігі.
Қолданушы ... ... ... ... ... ... терезелердің құрылымын және атрибуттарын анықтау;
- ақпараттардытағайындаудың сызбасын өңдеу;
- оқу материалдарының навигациялығын беретін қолданушы интерфейсінің
құрылғыларын ... ... ... ... ... интерфейсінің басқару элементтерінің жиынтығын анықтау;
- қолданушы интерфейсінің баптау параметрлерін белгілеу;
Терезелердің негізгі атрибуттарына:
- ... ... мен ... ... ... ... сол жақ бұрыштың өлшемі);
- терезе көрсетудегі стандарттық манипуляциялау операцияларын көрсету
(манипуляциялау, максимизациялау, қайта құру, ... ... ... ... ... ... ... реттеу;
- көлемдердің өзгерту шегі;
- әшекейлендіру стильі (рамка түрі, фон түсі, атаудың бар ... ... ... және т.б. );
- ... ... жол;
- терезенің жұмыс аумағында орналасқан тышқан курсорының ... ... ... ... ... ... өндірушінің квалификациясы қорғалатын кейбір
формальдық талаптарды айта кетуге болады:
1) терминологиялық орта және интерфейс. Белгілі бір диалог ... ... ... ... қолданылуы тиіс, және де
оған түсініксіз ... ... ... керек
(, т.б.). Диалогта қолданылатын сөздер сыпайы
түрде жазылып, ДҚБЖ-ның ... ... ... ... ... шығармауға тырысу керек. Және де бағдарламада
қолданылатын терезелердің түсі стандартқа сай ... ... ... ... ... ... да бір ... басқан кезде
(әсіресе функционалдық) алдын–ала қарастырылған іс–қимылдар
шақырылуы тиіс. Осы іс–қимылдардың ... ... ... ... ... F1 – ... Enter – ... енгізудің
соңы; Esc – келіспеу, алгоритмнің бұдан бұрынғы бұтағына қайтып
оралу (экран формасын қалпына келтіру арқылы); Tab – ... ... т.б. ... Sift+Tab – ... ... ... ... т.б.
3) қозғалыс реті. Алгоритм ағашымен “жоғарыдан төмен” қарай
қозғалғанда барлық өтілген ... аты ... ... ... ... арқылы ғана бұдан бұрынғы деңгейге қайтып
оралуға болады (мєзір бөлімі мен ... ... ... ... көрсету мен жарнаманың түрлері. Бағдарламаны іске қосқанда
осы бағдарламаның мәні мен мүмкіндігін көрсететін жарнамалық бет
пен автордың мәліметтері шығады. ... ... ... уақыттағы барлық белсенді пернелер көмек көрсету ... ... Кез – ... ... F1 пернесін басқан кезде
контекстік – бағынышты (оқиғаға бағынышты) көмек ... ... ... ... және ... ... бейнесі. Енгізу мен
жөндеуге арналған экран формасы қолданушының үйреншікті құжатына
максимум ұқсас болуы керек. Жұмыс нәтижесі тек қана ... ... ... ... ... ... ... пішінінде жөндеу
және баспаға шығару мүмкіндігімен текстік ... да ... ... ... ... ішкі ... комментария,
көмек құрылғысы, мәзір құрылғысы мен диалог түрінде, ал сыртқы
құжаттарда құрамында минимум есептің ... ... ... құрамында жарнаманың элементтері, алгоритмінің жазылуы,
экран пішіні, кірістірілген және шығарылған құжаттардың мысалдары
бар ... ... ... есеп түрінде
қамтамасыздандырылады.
Қарастырылып отырған есепке қолданылатын терезе типтерінің тағайындалу
анықтамасы кіреді және олардың ... ара – ... ... ... ... басқа жағдайда әртүрлі мінездегі ақпаратты ... ... ... ... ... ... ... және де олардың
арасында қандай байланыстар реализацияланатындығын спецификациялау қажет.
2 ... ... ... ... ... ... бойынша көшіп-қонушылардың мәлімет базасына мына мәліметтер
енгізіледі: келуші немесе кетуші ... ... ... аты, туған
жылы, жынысы, ұлты, куәлік номері және куәліктін ... күні мен ... аты, ... болса балалар саны және миграция полициясында тіркелу
күні, келуші немесе кетушінің туған жері мен соңғы ... жері және ... ... келу ... ... жоба Delphi 7.0 ... жазылған және Май ауданы
бойынша көшіп-қонушылардың мәліметі Access ... ... ... осы ... ... базасында сақталынады. Май ауданы
бойынша көшіп-қонушылардың мәліметтер кестелер түрінде ұйыдастылрылған.
Мәліметтер базасы екі ... ... ... ... және ... Әр түр төрт ... құрастырылған. Кестелерде қолданылған
өрістердің аттары мен түрлері 2.1, 2.2 2.3, 2.4 2.5, 2.6 2.7, ... ... ...... жеке ... атауы ... түрі ... ... ... ... ... ... |Аты ... ... ... аты ... |Дата/время ... жылы ... ... ... ... ... ... ... ... кілт ... ... ... ... ... ... күні ... ... |Берген ... аты ... ... ... күні ... ... ... саны ... ...... ... жері ... мәліметтері
|Жол атауы ... түрі ... ... ... ... ... ... ... жері ... ... ... |Облыс ... ... ... ... ... ... ... |мәтіндік ... ... ... |Үй ... |мәтіндік ... ... 2.3 – ... ... ... жайы туралы мәліметтері
|Жол атауы ... түрі ... ... ... ... ... ... |Тіркелу мекен жайы, ... ... ... ... ... ... ... ... ... ... ... ... ... ... |Үй ... ... ... ... ...... келу ... жайы туралы мәліметтері
|Жол атауы ... түрі ... ... ... ... ... ... ... ... жайы ... |мәтіндік ... ... ... ... ... ... ... ... ... ... ... ... |Үй ... ... ... ... ...... жеке ... ... |Деректер түрі ... ... ... ... ... ... |Аты ... ... ... аты ... |Дата/время ... жылы ... ... ... ... |мәтіндік ... ... ... кілт ... ... ... |Дата/время ... ... күні ... ... ... ... ... аты |
|DataRegist |Дата/время ... күні ... ... ... саны ... Кесте – Кетушінің туған жері туралы мәліметтері
|Жол атауы ... түрі ... ... ... ... ... ... |Туған жері ... ... ... ... ... |мәтіндік ... ... ... |Ауыл ... ... ... атауы ... түрі ... ... ... |Көше ... ... |Үй ... ... ... ... ... – Келушінің соңғы тіркелі мекен жайы туралы мәліметтері
|Жол атауы ... түрі ... ... ... ... ... ... ... ... ... жайы, |
| | ... ... ... |
|Oblost ... ... ... ... ... ... ... ... ... ... ... ... ... |Үй ... ... ... ... ... – Кетушінің кету мекен жайы туралы мәліметтері
|Жол атауы ... түрі ... ... ... ... ... |мәтіндік ... ... ... ... ... ... ... |Аудан ... ... ... ... ... ... ... ... |Үй ... ... ... ... базасының кестелер арасындағы байланыстардың үш түрі
анықталады: «бірден-көпке», «бірден-бірге», ... ... ... ... көп ... Ол ... ... мүмкіндік береді. «Бірден-көпке» байланысының екі түрін
анықтайды – бірінші жағдайда үлкен ... ... онда ... кестеде кез
келген жазбалардың балалық кестенің жазбаларына сай болуы ... ... ... емес ... ... ... ... жазбалар балалық кестеде
жазбаларымен байланысы болмауы мүмкін. ... ... ... ... ... Аналық кестенің бір жазбасы балалық кестенің бірнеше
жазбаларына сай болғанда, «бірден-көпке» ... ... ... ... 2.1 сурет және 2.2 суреттерде көруге болады.
2.1 Сурет – Кетушілер туралы кестелер ... ... ...... туралы кестелер арасындағы байланыстар
2.2 Алгоритмнің сипаттамасы
Берілген дипломдық жобаның бағдарламасы Delphi 7.0 ... ... ... жазылған.
Мәліметтер базасы Миграция.mdb файлында орналасқан. Осы файл
Microscoft Access бағдарламасында жасалынған, ... ... ADO ... ... бағдарламамен байланыстырған.
Microscoft Access-те мәлiметтер қорын құрылымын екi режимде ... 2.3 ... ... режимi, онда мәлiметтердi енгiзу, оны шолу және өңдеу үшiн арналған,
сурет 2.3 ... ... онда ... ... және оның құрылымын өзгертуге
болады 2.4 сурет көрсетілген.
Сурет 2.3 – Жаңа кестені жасау ... ... ... ... ... Конструктор
режимiнде кестеде: мәлiметтер типiн өзгертуге, өрiстер атын, кестеге жаңа
өрiстердi қосуға, өрiстердi жоюға ... ... ... ... ... – Жаңа кестені жасау терезесі
Конструктор режимiне ауысу үшiн, Түр, ... ... ... ... ... ... терезесi екi
бөлiктен түрады. Жоғарғы бөлiгiнде мәлiметтер қоры өрiстерiнiң ... ... ... ... ... ал төменгi бөлiгiнде ағымдағы өрiстердiң
барлық параметрлерi көрсетiледi.
Кестелер құрастырғаннан кейін, Миграция.mdb атымен сақталынды. ... ... Delphi 7.0 ... ортасында жасалынды.
Жасалған бағдарлама тоғыз модульдерден тұрады. Модульдердің құрылымдық
схемасы 2.5 суретте көрсетілген.
Сурет 2.5 - Модульдердің құрылымдық схемасы
Бағдарлама тоғыз модульден тұрады, ... unit1 – ... ... ... ... модулі;
– unit2 – бас терезені шығаратын модулі;
– unit3 – ... ... ... қосу ... ... unit4 – ... ... мәліметтер қосу терезесін
шықыратын модулі;
– unit5 – жазбаларды енгізуге және ... ... ... unit6 – ... ... ... ... модулі;
– unit7 – Excel-ге экспортировать терезесін шақырту модулі;
– unit8 – фильтрация жасау ... ... ... aboutbox – ... ... ... ... модульдердің сипаттамасы 2.3 кестеде келтірілген.
2.9 Кесте – Модульдердің сипаттамасы
|Модуль |Процедура ... ... ... | | ... ... ... батырмасы, титулдық |
| | ... жабу және ... ... |
| | ... |
| ... ... жабу ... ... | ... ... ... жасау |
|Unit2 ... ... ... ... |
| | ... |
| ... ... ... ... |
| | ... |
| ... ... ... шақырту |
| ...... ... ... |
| ... |бағдарламадан шығу ... ... |
| | ... |
| ... ... жабу алдында бағдарламадан|
| | ... ... ... ... ... ... |Терезені жабу |
| ... ... шығу ... ... |
| | ... |
| ... |Деректерді енгізі терезесін шақырту|
| ... ... ... ... |
| | ... |
| ... ... өзгертулерді енгізуге |
| | ... ... ... |
| ... ... жою |
| ... ... ... ... |
| | ... |
| ... ... ... шақырту |
| ... ... ... ... |
| | ... ... |
| ... |Фильтерді өшіру командасы |
| ... ... жылы ... фильтрациялау |
| | ... ... |
| ... |Тіркелі күні бойынша фильтрациялау |
| | ... ... |
| ... |«О ... ... ... ... ... ... ... |Процедураның сипаттамасы ... | | ... ... |Терезені жабу |
| ... ... шығу ... ... |
| | ... |
| ... ... ... ... шақырту |
| |TForm4.Dobavlenia1 |Деректерді базаға енгізу ... ... ... ... ... |
| | ... ... шығару |
| ... ... жою |
| ... |Деректереді өзгерті терезесін |
| | ... |
| ... ... ... шақырту |
| ... ... ... ... ... | ... |
| ... |Фильтерді өшіру командасы |
| ... ... жылы ... ... |
| | ... ... |
| ... ... күні ... фильтрациялау |
| | ... ... |
| ... |«О ... ... шақырту |
|Unit5 |TForm5.Button1Click |Dobavlenia1 немесе Dobavlenia |
| | ... ... |
| ... ... ... сақтау |
| ... ... жабу |
| ... ... жабу |
| ... |Тек қана ... жазу ... |
| | ... ... ... |Есептеулер жасау және сол |
| | ... ... ... |
| ... ... жабу және бас терезені |
| | ... |
| ... ... ... ... |
| ... |Терезені жабу |
| ... ... шығу ... сұраныс |
| | ... ... ... |Excel-ге экспорттау |
| ... ... жабу ... ... ... жүктеу |
| ... ... жабу ... Қолданушы интерфейсінің ұйымдастырылуы
Қазіргі уақытта кез келген мамандырылған функционалдық бағдарламалық
өнімнің мақсаты – қолданушының жұмыс процесінің жеңілдігі мен ... ... ... ... көпшілікпен қолданылған
стандартқа сәйкес келуі тиіс. Қолданушы жұмысы процесін реализациялаудың
қарапайымдылығы мен ... – ол ... ... заманымыздағы кез –
келген мамандандырылған функционалдық бағдарламалық өнімнің мақсаты болып
табылады.
Функционалды бағдарламалаудың ... ... ... ... ... ... ... бағдарламалық өнімнің ең басты мақсаты берілгендерді енгізу
процесін жеңілдету мен алынатын ақпараттарды ... мен оны ... ... ... ... бағдарламаларда ашық визуалды эффектілерден
алшақ болған жөн.
Егер біз бағдарламада ашық көк, қызыл, көгілдір немесе тағы да ... ... ... ... ... бұл бағдарламамен жұмыс жасау
мүмкіндігі кемиді де, оның көзі ... ... ... ... түсі ... ... ... дұрыс, өйткені
егер бағдарламада түрлі – түсті түстер ... ... ... ... әрі ... ... ... Мысалы көк, сұр, қоңыр тағы да басқа
түстер көзді ауыртпайды. Тек қана қызыл, ... тағы да ... ... ... бір ... ... ... салуды шығарған кезде
бірден көзге түсу үшін ... ... ... ... бұл ... бір ... сәйкес келгені де дұрыс. Мысалға алсақ, егер біз қарапайым көзді
ауыртпайтын түстерді алып, олар бір – ... ... ... ... әдемі түрде көрінбесе, онда осы жағдайда да бұл бағдарламаға деген
сұраныс төмендейді.
Осы бағдарламалық ... ... ... түрі ... ... жасалған. Интерфейс адамның жүйке жүйесіне, оның ...... де ең ... оның ... жасау қабілетіне де өз әсерін ... ... ... ... ... – сұр және ақ. Ол ... ... оптималды түрде сәйкес келеді.
Берілген бағдарламалақ өнімді құрастыру процесінде бірінші орында
қолданушы қажеттіліктері ... ... ... ... ... қарапайым және ыңғайлы формада ұйымдастырылуы тиіс.
Бұдан басқа қолданушы мен ... ... ... ... ... ... ... берілген дипломдық жобаның бағдарламасында стандартқа сай
түстер, оның барлық бөлімдерінің терезелерінде сұр мен ақ ... ... ... ... да ... мен ... ... сұхбат
терезесінде достастық интерфейсі сақталынды. Бағдарламаның бас терезесі
бірінші бөлімінде, сурет 1.1 көрсетілген.
3 ... ... ... ... ... ... операциялық жүйенің қысқаша мінездемесі
Windows операциялық жүйесі программистерге қолданушы интерфейсін жасау
үшін барлық қажетті құрылғыларды береді, сол себепті қолданушыға әрбір ... ... ... ... интерфейсті жаңадан оқытудың қажеті жоқ,
себебі олардың барлығы бір-біріне ұқсас. Windows ... ... ... бірнеше бағдарламалармен жұмыс істеуге және бір ... ... ... ... береді.
Windows операциялық жүйесі келесі режимдерде жұмыс істеуі тиіс:
- стандарттық режим;
- кеңейтілген режим.
Windows операциялық жүйесін жіберген кезде, өз конфигурациясы жөнінде
win.ini және ... ... ... және де ... ... автоматты түрде жіберіледі. Мысалы пернетақтаның драйвері.
Кез – келген ... жүйе ... Windows ... ... ... ... ... барлық ақпараттық құрал – жабдықтарын басқару;
- файлдық ... ... ... ... ... ... ... іске қосу.
Бұған қоса Windows жүйесі:
- бір уақытта бірнеше бағдарламалардың жұмыс істеуі;
- әртүрлі бағдарламалар арасында мәліметтер алмасу;
- масштабталатын қаріптерді қолдану;
- ... ... ... ... жүйе ... ... ... ету.
Терезе Windows жүйесіндегі ең негізгі ұғым болып ... ... ... ... “терезелер” екені осыны білдіреді.
Терезе – экранның төртбұрышты қоршаулы аумағы, онда ... ... кез – ... ... ... ... және
басқару әрекеті жүргізіледі. Windows терезесінің экранды ... ... ... бір ... ғана қамтуы мүмкін, яғни ... ... мен ... ... ... үш ... ... экранды терезе, яғни терезе экранды толығымен алып тұрады;
- қалыпты күйдегі терезе, яғни ... ... ... бір ... алып ... ... ... түрінде, яғни терезе кішірейтіліп ... ... ...... ... ... ... ұғымы қазіргі барлық операциялық жүйелер интерфейсінің
элементі ... ... ... ... кітаптар, мәліметтер салынған
бумалар, құрал – жабдықтар орналасуы мүмкін.
Windows ортасында жұмыс столының рөлін дисплей экраны атқарады. ... ... ... терезелері, құжаттардың жеке файлдары
белгілер түрінде орналасқан.
Белгіше (Icon) – бұл ... ... ... ... бар ... ... Ол дисплей экранындағы бағдарламаны, терезені, функцияны,
файлды, тағы да басқаларын бейнелеп тұруы мүмкін. Әр ... ... ... ... келеді және ол қажет болғанда ... ... ... ... ... мынадай белгішелер кездеседі:
- қосымша (қолданбалы) бағдарламалар белгішесі;
- белгілі бір топтар белгішесі;
- функциялар белгішесі.
Жарлық (shortcut) – бұл ... бір ... ... ... ... ... ... файл. Мысалы, жарлық арқылы каталогтың, ... ... ... ... тез ... ... каталогта орналасқан
бағдарламаларды іске қосуға, файлды да жылдам ашуға ... және тағы ... ... ... негізгі объектілердің өздері өз
орындарында ... ... ... Ал сол ... ... ... файлында сақталған ақпараттың көсегімен іске асырылады.
Бума (folder) экранда каталогтарды және бағдарламалық топтарды
белгілеу үшін ... ... ... ... ... пен ... ... бір объектілерді орналастыруда қолданылатын контейнер ... ... ... ... ... ... істеуге болады,
бірақ тышқан тетігімен басқарылатын графиктік сілтемені (point) немесе
олардың ... ... ... өте ... Стол ... ... экран бетіндегі тышқан сілтемесінің, яғни курсордың жылжуымен ... ... екі ... үш ... ... ... ... (көбінесе) оның сол жақтағы, ал анда – санда оң жақтағы батырмасы
пайдаланылады. Тышқан тетігінің ортаңғы ... ... бар ... ... тек кейбір бағдарламасымен жұмыс істеуде пайдаланылады.
Тышқан тетігімен орындалатын ... ... ... ... ... шерту (click);
- екі рет шерту (double – click);
- тасымалдау (drag & drop).
Windows жүйесінің негізгі технологиялық ... “point – and – click” ... және ... ... Бұл ... әрекеттерді орныдауға болады:
- бағдарлама немесе құжат терезесінің аумағын кішірейту, үлкейту ... ... ... ... орналасқан мәзір пунктерін таңдау;
- экранға шығатын мәзір ... ... ... ... ... ... ... бар тізімнің бір жолын белгілеу;
- командалық батырманы басу, таңдау;
- ауыстырып қосқыштың мәнін өзгерту;
- мәтіндік ақпаратты енгізу кезінде ... ... ... ... енгізілетін өріс жолдарының бірін таңдап, оған мәлімет енгізу
және көптеген ... ... ... ... белгілеу) принципі. Бағдарламалар терезесінде
құжатпен ... ... ... ... ... мәтін фрагменттерімен,
үзінділермен әртүрлі операциялар орындауға тура ... Ол ... іс - ... ... ... көшіру, тасымалдау, жою, олардың қаріптерін, ... ... ... ... ... түсіріп қараңғылау тағы да
басқалары. Мұндай операциялар екіге ... ... ең ... ... ... ... керек, ал сонан соң нақты команданы орындау;
3) “drag - & - drop ” ... ... және ... ... Windows ... “drag – and – drop” әдісімен келесі
операцияларды ... жиі ... ... ... мен ... ... ауыстыру;
- графикалық редактордың жұмыс ... ... ... жаңа орынға ауыстыру немесе оның көшірмесін алу;
- word редакторында мәтіндік ақпараттың белгіленген фрагментін басқа
жерге ауыстыру немесе оның көшірмесін ... ... мен ... ... ауыстыру немесе көшірмелерін алу;
- мәтін беттеріндегі абзацтың жаңа жолын және оның оң жақ, сол ... ... ... ... және ... ... ... арқылы тағайындау;
- дайын белгішелер жиынынан ... адам өзі ... ... ... ... құрастыру;
4) wysiwyg принципі (не көрсеңіз, соны аласыз). Экранда мәтіндік
құжатты баспаға дайындау кезіндегі символдар ... ... ... ... ... ... ... Бірақ мұнда көңіл аударарлық сәттер
де жоқ емес. Windows жүйесі символдарды ... ... ... нықтап анық етіп көрсетеді, ал ... ... ... ... ... ... да мүмкін;
5) OLE технологиясы – объектілерді байланыстыра отырып кірістіру
(Object Linking and Embedding – OLE). Бұл ... ... ең ... ... болып табылады. Ол бір бағдарлама
өңделген объектіні ... ... ... арасында енгізіп, оны
негізгі, яғни бастапқы бағдарлама құралдарымен ... ... DDE ... – объектілерді динамикалық түрде байланыстыру.
Объектілерді басқа ... не ... ... ... ... ... ең ... түрі, мұнда объектіні бастапқы
бағдарламада түзетсек, ол түзету онымен DDE технологиясы ... ... ... да ... ... ... ... – тің алдыңғы версияларына қарағанда Windows XP ... ең ... ... ... ... сенімділік, Windows 2000 –
нан бірқалыптылық пен басқарушылық, қарапайым және түсінікті ... де Windows 98 – ден Plug & Play ... XP-да ... ... мен ... ... жаңа
мүмкіндіктерін, жаңа сыртқы түр мен қолданушылардың тез қосылу ... тағы да ... ... қолданушылардың жаңа интерфейсі пайда
болады. Windows XP Professional Edition – да Windows NT, Windows ... ... ... эмуляциялау мүмкіндігі бар.
Windows XP-да Windows 9x операциялық жүйесінің ... ... 1000 – ға жуық ... ... мен Windows 2000 – ... ... істейтін кез – келген қосымшаларды біріктіру мүмкіндігі
де қамтамасыз етіледі (вирусқа қарсы бағдарламаларды, ... ... мен ... ... ... ... ... қосымшаларын қоспағанда).
Windows XP – да компьютер құрылғыларын орнату мен баптау процесі
жеңілдетілген. Ол Windows 2000 – да ... Plug & ... ... ... ... және де IEEE 1394 ... PCI
(Peripheral Component Interfase) интерфейсті, сонымен қатар көптеген басқа
да шиналардың стандарттары мен типтерінде осы USB ... Serial ... ... да ... ... ... ... Windows XP –
да DVD – RAM ... ... ... оқу мен UDF 2.01 ... мүмкіндігі бар. Сонымен қатар IMAP (Image Mastering API) интерфейсінің
көмегімен Windows XP қолданушысы бір ... ... ... ... ... (CD – R ... CD – RW) форматтағы компакт – дисктерді
қарапайым тасу әдісі арқылы немесе сәйкес келетін мастерлер ... ... ... Plug and Play ... іске қосу Plug & ... қызмет ету аумағын барлық ... ... ... ... ... ... алып келеді. Нәтижесінде желілік
құрылғыларды тауып алу (желілік ... ... – шлюз және ... ... ... мен ... ... мүмкіндігі пайда
болады.
Windows XP – бұл Microsoft компаниясымен шығарылған жаңа ... Бұл ... жүйе ... ... ... W9X және NT операциялық
жүйені біріктіреді. Ең басында бұл жоба Whistler деп ... ... ... ... ... ... Windows XP – W9X және W2kPro ... ... ... ... – NT Server – дің ... ... ауыстырады.
Бұл көпесепті 32 разрядталған операциялық жүйе. Бұл ... ... ... NT – ның ... ... сәйкестілік (Compatibility). Бұл ... Windows ... ... кәдімгі интерфейсі болады. Бірақ оның ... ... NTFS5, NTFS4, FAT16 және FAT32 ... ... етіледі, сонымен қатар OS/2 және POSIX арқылы ... ... де ... ... NT – ... кезде жүйені әртүрлі жүйелік орталарда жұмыс істеу
мүмкінідігі болу үшін ... ... оны ... Unix және Novell
жүйелерінде жұмыс істеу үшін құрылғылар бар;
– орын ауыстыру (Portability). Жүйе Inter және AMD ... ... ... процессорларымен жұмыс істейді. Inter Hakim жұмыс істеуге
арналған 64 битті Windows XP және Windows NET ... ... ... масштабтық (Scalability). Windows XP - да SMP ... ... Ал Windows NET Advanced Server және ... ... ... ... COW (Cloister of Workstations);
– қауыпсіздік жүйесі (Security). Қолданушы деңгейінде NT қауыпсіздік
жүйесі реализацияланған. Таратылған өңдеу (Distributed Processing). ... ... ... мүмкіндіктерге ие;
– тұрақтылық пен орындалма орнықтылық (Realibility and robustness)
Операциялық жүйе архитектурасы қосымшаны бір ... ... ... және
операциялық жүйеге беретін зиянынан сақтайды. Сол ... ... ... жасалатын арнайы оқиғалардың құрылымдық ... Ол NTFS ... құру ... ... қосады және жадыны басқару
әдістерін жақсарту және қауыпсіздік жүйесінің ... ... ... ... ... Бұл жүйе ... ... елдер
ұлттық тілде жұмыс істей алады. Бұл ISO Unicode ... ... ... ... ... ... ... операциялық жүйені әртүрлі архитектуралық деңгейге жаңа модульдерді
қосу мүмкіндігі туады.
XP версияның екі түрі ... - Windows XP Home және Windows ... ... ... Inter Hafnium 64 ... істелген Windows XP
Professional 64 битті версиясы бар. Содан кейін WindowsNET Server, ... Advanced Server, Windows NET ... Server (x86 және 64-bit ... қайсысына). XP Home W9x операциялық жүйенің орнына, ал XP ... 2000 ... ... ... ... ... айырмашылық
тек XP Home-дағы SMP көмегінің жоқ болуында ғана. Бірақ бұған ... ... ... ... құрылған. Сондықтан 2001 жылы 25 қазанда W9x ... деп ... да ... Windows ... ... ... ... қызметтің және қосымшаның, аса күшті темірдің бар болуы. Егер XP
Professional SMP-ны тек 2 процессорды ... NET Server 4 ... NET Advanced Server 8, ал NET ... 32 ... қамтиды.
Microsoft фирмасының айтуынша XP инсталяциясы үшін 533 ... 128 ... ... ... 1,5 гигаБайт дисктағы бос орын болу
қажет.
3.2 ... ... ... ... жүйесі – ол басқа бағдарламаларды құруға және өңдеуге
арналған бағдарламалау тілдері.
Delphi тілі – типтелген объектті ... тіл. Оның ... ... ... Object Pascal ... – ол бағдарламалау тілі ретінде Delphi тілі қолданылатын жылдам
өңдеу ортасы. Delphi тілі – қатаң ... ... ... ... деп Windows ... қасиеттерімен ие болатын және басқа
компонеттерді өзіне орналастыра ... ... ... Палитра
компонеттері арқылы Дизайн Формасында орналастыру үшін ... ... ... Дизайн Формасының жеңілдігі соншалықты тіпті интерфейсті
құрудің өзі ойынға айналады. Форма Дизайны ... тек бос ... ... ал содан кейін сіз оны палитра компоненттерінен ... ... ... ... көрініп тұруы да мүмкін. Олар қолданушымен
сұқпаттасу үшін арналған. Бұл әртүрлі батырмалар, ... ... ... т.б. ... ... ... ... ресурстарына кіру
үшін арналған.
Палитра Компоненттерімен қолдану үшін кез келген объектіге тышқанмен
шерту қажет. ... ... ... терезесінде пайда болады да ... ... ... ... ... ... ... құралған. Палитра
үстінде қосымшалар жиыны орналасқан. Олар: Standard, Additional, Dialogs
және т.б.
Проект – бұл Delphi ... ... ... ... ... кітапханасы. Delphi өңдеген кездегі
қолданылған комнонеттер қосымшаға ... және ... құру ... ... ... ... құрастырады.
Бұл Visual Component Library (VCL). VCL-да стандартты басқару
элементтері бар. Олар: редакциялау ... ... ... ... ... жолдары, объектілер тізімі. Сонымен қатар кестелік
басқару элементтері, ... ... ... ... ... ... бөлініп палитра компоненттерінде берілген.
VCL-те арнайы объект бар. Ол Windows-тың графикалық ... ... және ... ... салу ... ... басты қасиеті – қосымшаларды ... ... ... ... жаңа ... құру ... ие
болу. Сонымен қатар Delphi-дегі компоненттерді толығымен ауыстыруға ... ... ... ... ... ... құрастырылған. Ол абстракты және
дайын компоненттерден құралған. ... ... ... ... ... өзі ... ... өзі компоненттер мен
объектілерді құрастыра алады.
Қазіргі ... ... Delphi ... – Borland Delphi ... ... Ол әр түрлі бағдарламаларды құруға мүмкіндік береді:
қарапайым бір ... ... ... мәлімет базаларын
бағдарламаларын басқаруға дейін.
Бағдарламаның құрамына әр ... ... ... олар ... жұмысымен қамтамасыз етіледі, XML – құжаттарды, ... ... ... да ... ... ... Осы Delphi 7
версиясының ерекше айырмашылығы, ол NET технологиясының қолдауы.
Формадағы компоненттер көрініп ... да ... Олар ... үшін ... Бұл ... батырмалар, жазбалар, текстік жолдар
және т.б. Көрінбейтің компоненттер компьютердің жүйелік ресурстарына кіру
үшін арналған.
Delphi 7 ... тілі Windows ... ... Windows ... ... ... ... істейді. Ерекше талаптарды компьютер
ресурстарына бұл бағдарламалау тілі ... ... Pentium ... 166 МГц ... ... ... жады – 128 ... немесе одан да
көп.
Delphi 7 тілінің жетістіктері:
- конструкцияда анықтылығы мен қарапайымдылығы;
- иілгіштігі және сенімділігі;
- қазіргі ДК-да ... ... ... ... және ... орындалуында жеткілікті
толық бақылауға алу мүмкіндігі;
- мәліметтер типінің стандарттық түрлерінің бар болуы.
Delphi – ол көптеген маңызды технологиялар ... ... ... ... код ... ... компоненттік модель;
- бағдарламалық прототиптерінен жасалынған қосымша;
- мәлімет базасын құруға құралдарды ... ... ... ... өнімділікті
қамтамасыздандырады.
Бұл компилятор ... ... ... ең тез ... ... оның 486DX33 компьютерінде компиляциалауы жылдамдығы минутына
120 мың жолдан асады. Компилятор орындалған соң біз 10-20 есе ... ... ... ол интерпретатор көмегімен жасалғанмен бірдей.
Одан басқа Delphi-да компилятор тура ... ... ... және де ... ... ... сосын виртуалдық р-
машинасында интерпретациялайтын компиляторлар бар. Ол дайын қосымшаның тез
іске асуына ықпалын тигізеді.
Объектті-бағытталған ... ... ... ... ... Ол өндірушілерге бұрын дайындалған объектілерді тез
қосымша ... ... ... де Delphi ... ... ... жасауға көмектеседі. Олардың, яғни объектілердің типтеріне шек
қойылмаған.
Windows ортасында қолданбалы интерфейс өндіру ... ... ... оқиғалық модель түсінуге және жіберуге қиындатылған
болатын. Бірақ ... дәл осы ... Delphi ... Бұл
бірнеше артықшылығы бар жетістіктерге ие. Жеке жеке обьектілерден құралған
бағдарлама операциялық жүйеде болып ... ... ... ... ... қатар кодтардың біріктігі және өңделген объектілердің
қайта өңдеу мүмкіндігі:
-бірнеше рет ... ... ... ... ... рет
арқылы бағдарлама көлемі кемиді;
- объектілер кітапханасын құру мүмкіндігі;
- ... ... ... ... касиеттердің жақсы локализациялауы бағдарламаның құрылымымен
танысуға ыңғайлы, оны ... және ... ... ... бағдарламаның әртүрлі объектілеріне кірудің бірнеше мүмкіндіктерінің
болуы.
ОБП (объекті бағытталған бағдарламалау) үш ... ... ... мұрагерлік және полимарфизм.
ОБП ережелері бойынша объектілердің ... ... ... ... ету үшін ... емес. Бұл ереже инкапсуляция ... ... ... құру мүмкіндігін бере алады.
Қарапайымнан бастап күрделіге дейін. Бірақ олар ... ... ... Бұл ... аса ... ... ... Сонымен
қатар бұл мәліметтер мен әдістерді ұрпақта сипаттаудың керегі жоқ.
Бұндай иерархияның мысалы ... ... ... нүктесін
қарастыруға болады. Оның ата-бабасы ретінде берілген координаттарды, екі
нүктемен берілген ... ... ... ... кесіндіні
қарастыруға болады.
Объектті-бағытталған модельді бағдарламалардың компоненттері ... ... Ол ... бұрын дайындалған объектілерді тез
қосымша құруға мүмкіндік бередіжәне де Delphi ... ... ... ... көмектеседі. Олардың, яғни объектілердің типтеріне шек
қойылмаған.
Windows ортасында ... ... ... ... ... Windows-та оқиғалық модель түсінуге және жіберуге қиындатылған
болатын. Бірақ программистке дәл осы ... Delphi ... ... ... бар ... ие. Жеке жеке обьектілерден құралған
бағдарлама операциялық ... ... ... ... ... жақсы
бейімделген.
Әртүрлі туыстас объектілерге бір классты әрекеттер беруге болатынын
полиморфизм білдіреді.
Әрбір белгілі объектінің ... ... ... Ол ... тек сол ... ғана ... Сонымен қатар бұл
бағдарламалар бір атты ие бола алады.
Қосымшаның ... Delphi 7.0 ... Бұл ... ... істеуге үлкен мүмкіндік алып отыр. Ол ОДВС және ВДЕ драйверлермен,
локальдік және МББЖ Paradox ... ... ... ... ... Access және ASCII ... істеу мүмкіндігін береді.
Delphi ортасы жылдам өңделетін қосымшаларға ... ... ... өзіне қосады, қолданбалы интерфестің өңделуін және
бірлескен мәлімет базасына қосылуын ...... ... ... ... қолданбалы
интерфейстің құрылуына арналған стандартты объектілерді, мәлімет базасын
басқаратын объектілерді, графикалық объектілерді, мультимедиа ... және ... ... ... DDE және OLE ... ... ... ортасында қолданбалы интерфейс өндіру жеткілікті қиынға
соқтыратын. Windows-та оқиғалық модель ... және ... ... ... ... дәл осы ... Delphi ... бірнеше
артықшылығы бар жетістіктерге ие. Жеке жеке ... ... ... ... ... ... ... реакциялауға жақсы
бейімделген. Сонымен қатар кодтардың біріктігі және өңделген объектілердің
қайта өңдеу ... ... ... тілді (Object Pascal)
қолданады, ол бір ... ... және ... 4GL ... ... біріктірсе, ал басқа жағынан 3GL тілінің ... ... тез ... ... ... ... қосымшаларды шығара
алады және оларға ерекше Windows оқиғаларының бағдарламалауын оқу міндетті
емес.
Delphi алдыңғы қатарлы бағдарламалық ... оған ... ... ... және ... басқаруды
қолдайды.
Кросс – платформалық қосымшалар Delphi 6.0 ... ... ... ... оны Windows ... және де ... ... болады. Мұндай иүмкіндік Delphi 6.0-да іске асыру
үшін кросс – платформалық кітапхана бар. Бұл кітапхананың кластары дәстүрлі
Delphi VCL ... ... ... олар Windows және ... ... ... және Linux. ... CLX-тің мүмкіндіктері өз VCL-ге қарағанда,
ол Windows ерекше аспектілерінің Linux-та болмауына байланысты. ... ... VCL-да жоқ ... ... ... Және де ... өте келе CLX ... бермейді, яғни одан бетер дамиды.
Жасалынған variant типтері операцияның жүктелуіне мүмкіндік береді.
Өзіндік ... variant ... ... ... ... бар және ... ... операцияны енгізу. Бұл мүмкіндік және оның ... Variant Type ... Variant Type ... ... және ... ... ... және Локалды
қосымшалар жүйесінің мүмкіндіктері әлде қайда дами түсті.
Бұрынғы Delphi 5.0-те ол тіліне ... және ... ... ... ... қосымшаларды өндіруге мүмкіндік береді,
олар қолданушыларының әр түрлі тілде қатынасуына ... ... ... және т.б. ... ... ... ... әлем сатып алғысы келетін тамаша бағдарламалық өнімді жасауға
сенімділерді қызықтыратын.
Бірақ Delphi 6.0-да бұл әдіс одан әрі ... Ол ... ... ... туралы хабарламаны орыс тіліне ... ... және т.б. ... ... ... арасындағы
байланысты орысшалауға үлкен мүмкіндік туды.
Мәзір және ... ... жаңа құру ... Delphi ... мәзір басқару және ... ... ... TActionToolBar, TcustomizeDlg компоненттерін құрудың
жаңа әдісі ... Ол Delphi 4.0 және Delphi 5.0 ... ... ... ... ... ие.
Енгізілген компоненттер қолданушы мәзірін және ... ... ... ... осы ... икемділігін
дискте сақтап және оны келесі қосымшамен ... ... ... ... ... жаңа стандарттық іс әрекеттер қосылды (бұрын олар - 26, ал
енді - 60), олар көп ... ... ... ... ... ... ... енді ретке келтіру
құралдарынан және қосымша құрылымынан іске ... ... ең ... ... ... ... ... жинағында 8 жаңа бет пайда болды:
dbExpress, BDE, WebServices, COM+, ... ... ... Admin және ... ... ... ... енгізу және әр түрлі ақпаратты өзгерту жаңа компоненттер
қатары қосылды: TLabeledEdit – ... ... ... ... – жол тізімінен таңдау түрі, TColorBox – түстерді таңдау
тізімі, ...... және ... ... ... ... компоненттер TActionManager, ... ... ... тобы ... TShellListView, TshellChangeNotifier файлдармен жұмысын
жеңілдетеді және ... ... ... жаңа ... мәлімет
базасына, интернетке, қосымшалар серверіне тікелей қатынасу үшін арналған.
Біраз өзгертулер ... мен ... ... ... ... ... бұл өзгертулерді байқамауы мүмкін емес, ... ... ... ... ... және HelpType жаңа ... ... контекстік анықтамаларымен байланысу
мүмкіндіктерін кеңітеді. Осы ... ... ... ... ... класына жаңа ClientToParent әдісі енгізілген, осы әдіс ... ... ... ... ... ... ... Delimiter және QuoteChar қасиеттері
егізілген, ол барлық ... бір ... ... ... береді;
-TLabel таңбасында (дәлірек айтқанда TCustomLabel) OnMouseEnter және
OnMouseLeave оқиғалары енгізілген және бұл ... ... ... ... ... пайда болады, мысалы, тақырыпшаның түсі немесе фоны
курсор өткен ... ... ... мына ... ... ... (Windows ... clGradientInactiveCaption (Windows 98\2000);
в) clDefault – компонент түсі.
TcheckListBox-қа Header, HeaderBackgroundColor, HeaderColor қосылған
қасиеттер, олар жолды-тақырыпшалы ... ... ... ... ... және оның ... ... (TListBox,
TCheckListBox) Style қасиетінде жаңа варианттар қосылған, олар ... ... ... Осы класта AutoComplete қасиеті пайда болды, ол
бірінші символдары бойынша тізімнен ... ... тез ... ... ... және оның ... ... класына TmenuItem
жаңа AutoCheck қасиеті енгізілген, ол ... ... Checked ... бір іс ... ... ... берілген мәзір бөлімінің
таңдалуын ауыстырады. Файлдарды ашу және ... ... ... ... – бұл жинақ, оған Windows-тің және ... ... жаңа ... ... Align қасиетінде жаңа мүмкіндік alCustom
мағынасы пайда ... ... және ... оқиғалары
TwinControl класынан Tcontrol класына көшірілген.
Жалпы алғанда VCL-дің кластарының және компоненттерінің саны тез өсті.
Қазіргі кезде олардың саны мыңнан ... ... ... Delphi 6.0-да ... ... ... енгізілген – dbExpress. Бұл драйверлер бір интерфейс негізінде
SQL серверіне қатынасын ыңғайлатады.
Delphi ... ... ... ... арналған визуалды
аспаптардың тобын ... ... ... интерфестің өңделуін және
бірлескен мәлімет базасына қосылуын қолдайды.
Dbexpress қолданғанда өзіміздің ... DLL ... ... ... және егер керек болса, қосымша файлдарымен.
Клиенттік қосымша құрылу мүмкіндіктері жаңа компоненттердің пайда
болуының арқасында ... ... ... ... және ... жаңа компоненттер клиеттік
мәлімет топтарымен иілгіш қосымшаларды жасуға жол береді.
Delphi мәліметтер базасымен және ... ... ... ... ... ... байланысты. Егер де мәлімет көп немесе өте көп
болса, онда өндіруші ... ... ... қолданылады.
Delphi – визуалдық бағдарламалар ең сонғы ... ие ... ... продукты шығару мақсатында және жүз мың өндірушімен қарапайым
қолданушылар осы прогаммалық ... ... ... ... жеке ... құру ... Delphi ... жетіспеушілігінен обьекті айырылған.
Delphi – қосымшаны құруға арналған жоғарыкөрсеткішті құрылғы. Delphi
ортасындағы жұмыс объекті бағытталған және ... ... ... бағытталған бағдарламалаудың мақсаты ... ... ... Бұл класс деп аталады. Объект ретінде
терезедегі басқару ... ... ... ... ... ... ... болады.
Мәлімет базаларымен байланысқан кітапхананың барлық беттері
ұйымдастырылды. Барлық беттерде жаңа ... ... ... ал ... ... жаңа ... ... иеленді.
XML қолдауы. Delphi 6.0-дің маңызды қолдауы – XML болып табылады. Бұл
XML-дің ... ... ... ... болу ... XML Document Object Model (DOM) кеңінен қолданылады.
Мастер XML Data Binding New Items ... ... Ол XML ... ... ... және ол DOM-ды қолдану үшін қиын кодтауды ... ... жаңа ... пайда болды, ол XML құжаттарын
қосымшаның формасында көрсетеді.
XML құжаттары мәлімет базасымен ... XML ... ... ... ... ... мәлімет топтарына енгізілген.
Delphi 6.0 құрамында жаңа аспап пайда болды - XML Mapper . Бұл ... ... ... уақытында қолданбалы клиенттік ... ... жол ... ... ... ... ... компоненттерінде орындалады.
Интернетке арналған қосымша. Ең біріншіден WebServices кітапханасының
жаңа беттерінің ... ... айта ... олар SOAP (Simple ... ... ... ... клиенттік қосымшаларын құруға
мүмкіндік береді.
Бұл протоколды XML процедураны ... үшін ... және ... ... ... WebServices технологиялары ерекшелігі, ол
сервердің әр ... ... ... және әр ... ... ... ... жол береді.
Програмалаудың автоматизациясы компонентті палитра компоненттерінен
формаға ауыстыру және оның ... ... ... ... ... мүмкіндіктер Web серверін өңдегенде пайда болды. Бұрынғы ISAPI,
NSAPI, CGI, Win CGI ... ... ... Apache ... ... ... WebBroker мүмкіндіктері WebSnap мүмкіндіктерімен
толықтырылды.
Жаңа Мастерлер Web құрылу модульдері WebSnap негізінде ... ... Internet ... тақтасынан алуға болады.
4 Эксплуатация
Дипломдық жобаға қосымша ретінде кіретін ... ... ... ... ... ... бағдарламалық өнімнің басты мақсаты –Май ауданы бойынша
көші-қон статистикалық мәліметтерді жинау, ... және ... ... ... жүктелетін жұмыстарды жеңілдету, анықталған критеийлер бойынша
ақпараттарды ыңғайлы түрде ... ... ... ... ... ... көрсетілген.
4.1 Аппараттық жабдықтарға қойылатын талаптар
Техникалық құралдардың құрамына және параметрлеріне қойылған талаптар.
Дипломдық жобаның дұрыс жұмыс істеуі үшін ... ... ... мен ... ... ... бір бағдарламалық
қамсыздандыру болуы тиіс.
Минималды жүйелік талаптар өзіне келесі берілгендерді ... ... ... D CPU ... 0,99 ... жинақтаушылар: Қатты дисктің (HDD) бос аймағы – 10 Гбайт. Оның
ішіне біз операциялық жүйені және ... ... ... де оның ... мәлімет базаның мөлшеріне байланысты болады.
Лазерлік диск CD – RW ... ... ... CD ... жүйе – Windows XP Professional, ... ... жүйе ... ... және де ол өзін ... ... ... - NVIDIA RIVA TNT2 Model 64/Model 64 Pro, осы көрсеткіште
біз керекті бейне материяларды көре аламыз.
Соларға қоса, келесі қосымша құрылғылар орнатылу ... – Genius, ... ... ... ...... оңай жасау үшін .
Монитор – FLATRON 17”, көзді ауыртпайды.
Принтер (диаграммаларды және ... ... ... ... ... Borland Delphi 7.0 пакетінің бар болуы керек.
Компьютер аппараттық деңгейі мен оның өндіру мүмкіншілктері минималды
аппараттық ... ... ... ... ... ... ... әкеледі.
4.2 Қолданушыға нұсқау
Дипломдық жоба құрамында Май ауданы ... ... ... ... Май ... бойынша көші-қон статистикалық ... ... ... үшін ... қадамдарды орындау керек:
Май ауданы бойынша көші-қон статистикалық мәліметтері ... ... ... ... диск ... «Миграция» бумасын қандайда болсын жерге
компьютерге көшірмесін алу керек,
«Миграция» бумасындағы орналасқан «migracia.exe» ... ... ... ... ... бұл ... жұмыс істеуге болады.
Бағдарлама жүктелген соң келесі бағдарламаның атқара алатын жұмыстары:
Титулдық терезе пайда ... 4.1 ... ... ... ... батырмасын жүктегесін Бас терезе (Главное ... ... ... ... ... - Титулдық терезе
4.2 сурет - Бас терезе
Бас терезеде «Данные -> Прибывшие» команда тізімін орындаймыз, осы команда
орындалғасын ... ... ... ... ... осы ... ... мәліметтер көруге және фильтрация ... және ... ... ... және ... болады (4.3 сурет);
4.3 сурет – Келушілердің мәліметтер көрсету терезесі
Бас терезеде «Данные -> Выбывшие» команда тізімін ... осы ... ... ... людей» терезесі жүктеледі, осы терезеде
кетушілер ... ... ... және ... ... және де
мәліметтерді енгізуге, өңдеуге және жоюға болады (4.4 сурет);
4.4 сурет – Кетушілердің мәліметтер көрсету терезесі
«Данные прибывших ... ... ... ... экспорттауға
болады, ол үшін келесі комндаларды орындау керек: «Отчет->Экспорт в Excel»,
осы команданы орындаған соң ... ... ... осы ... ... ... ... болады (4.5 сурет);
«Данные выбывших людей» терезесінде мәліметтерді ... ... ол үшін ... ... орындау керек: «Отчет->Экспорт в Excel»,
осы команданы орындаған соң «Экспорт» терезесі жүктеледі, осы ... ... ... ... ... (4.6 сурет);
4.5 сурет – Келушілер мәліметтерді экспорттауға таңдау терезесі
4.6 сурет – ... ... ... таңдау терезесі
«Данные прибывших людей» терезесінде тегі немесе туған жылы немесе тіркелу
күні ... ... ... ... ол үшін мына командаларды орындау
керек, «Фильтрация->По фамилии», «Фильтрация->По дате рождения» «Фильтрация-
>По дате регистрации», осы командаларының ... ... соң ... ... ... ... жүктеледі, сол терезеде таңдап алынған
критери бойынша ... ... ... және ... ... сол ... фильтрация жүктеледі (4.7 сурет);
«Данные выбывших людей» терезесінде тегі немесе туған жылы немесе ... ... ... ... ... ол үшін мына командаларды орындау
керек, «Фильтрация->По фамилии», «Фильтрация->По дате рождения» «Фильтрация-
>По дате регистрации», осы командаларының біреуін ... соң ... ... фильтрация терезесі жүктеледі, сол терезеде таңдап алынған
критери бойынша фильтрациялау мәліметін ... және ... ... сол сәтте фильтрация жүктеледі (4.7 сурет);
4.7 сурет - Фильтрациялау мәліметін енгізу терезесі
Бағдарлама туралы мәліметті тек ... ... ... ... ... ... командасы арқылы жүктеуге болады, сурет
4.8 көрсетілген;
4.8 сурет - О программе терезесінің көріндісі
«Данные ... ... ... жаңа ... ... ... об ... человеке» деген терезесі арқылы жүзеге
асырылад, ол үшін мыны коман ... ... ... ... ... соң «Добавить» батырмасын шерткесін мәлімет мәлімет
базасына енгізіледі (4.9 ... ... ... ... жаңа ... ... ... об выбывшем человеке» деген терезесі арқылы жүзеге асырылад, ол ... ... ... орындау керек, «Запись->Добавить», мәліметтер орындалған
соң «Добавить» батырмасын шерткесін мәлімет мәлімет базасына ... ... ... - Жаңа ... ... ... ... сурет - Жаңа кетушілер мәліметтерін енгізу терезесі
4.3 Программистке нұсқау
Май ауданы бойынша көші-қон ... ... ... ... жаңа ... ... немесе қолданылмайтын
мүмкіншіліктерін алып тастауға болады.
Бағдарламаға өзгертулер енгізу үшін компьютерде Borland Delphi 7.0
одан жоғары орнатылған ... ... ... недесең осы бағдарлама Delphi 7.0
бағдарламалау ортасында жазылған.
Май ... ... ... ... ... ... Delphi 7.0 бағдарламалау ортасында ашу үшін келесі қадамдарды
орындау керек:
Компьютерде орнатылған Delphi 7.0 бағдарламалау ортасын ... ... ... ... ... осы команда тізімі Open ... сол ... Май ... ... ... статистикалық
мәліметтері базасының бағдарламасын тоғыз .pas кеңейтілімі бар және ... бар бір ... ... ... ... ... ... сурет - Delphi 7.0 бағдарламалау ортасының жүктелуі
4.12 сурет– Open терезесінің жүктелуі
Открыть батырмасн шеркткен соң Май ... ... ... ... ... ... терезелері ашылады, сол сәттен бастап
бағдарламаға өзгертулер жүргізуге болады.
Егерде ... ... ... ... немесе қасиеттерін
және де кестелер арасындағы байланыстарды өзгерту керек болса онда ... ... ... MS Access ... ... ... болады. Migracia.mdb базасын ... үшін ... ... ... Office бағдарламалар пакетіндегі MS Access бағдарламасын жүктейміз 4.13
суретте көрсетілген;
4.13 сурет - MS Access бағдарламасының жүктелу ... ... Access ... ... Открыть батырмасын шертеміз де, шақыртылған
Открытие файла базы данных терзесі арқылы ... ... ... батырмасын шертеміз (4.14 сурет);
4.14 сурет - Открытие файла базы данных терзесі
migracia.mdb базасы жүктелген ... ... ... ... ... migracia.mdb базасының кестелер тізбегін 4.15 суретте көресетілген.
4.15 сурет - ... ... ... ... ауданы бойынша көші-қон статистикалық мәліметтер ... ... ... ... ... ... ... Project1.dof, Unit1.dfm, Unit1.pas, Unit1.dcu,
Unit1.ddp, Unit2.dfm, Unit2.pas, Unit2.dcu, ... ... ... ... ... ... ... Unit5.dfm, Unit5.pas, Unit5.dcu, Unit5.ddp, ... ... ... ... ... ... Unit8.dfm, Unit8.pas, Unit8.dcu, Unit8.ddp, ... ... ... ... Фото-0128.jpeg,
splash2_base.jpeg.
5 Қауіпсіздік техникасы және еңбек қорғау шарасы
Есептеуіш орталығының инженерлері, ЭЕМ операторлары, ... ... да ... ... факторларының қауіпті және зиянды
әрекеттеріне тап болады.
Бөлмедегі оператор ... ... ... ... ... ЭЕМ операторы қысқа уақытта ... ... ... жиі ... ... ... сәтті еңбек үшін
рационалды қамтамасыз етілген қоршаған орта ... ... ... бөлмеде ереже бойынша бір жақтық қырлы
шағылысуды қолданады. Сонымен ... бұл ... ... ... ... және солтүстік – батыс ориентациясымен күндік инсолляцияны кішірейту
мақсатында жасайды. Машиналы залда дисплеймен жұмыс ... ... ... ... ... орналастырады, және де осы терезелік
проемдар қырыныан орналауы керек. Егер ... ... ... ... ... арнайы экрандайтын құралдар қажет. ... ... ... бапталатын жалюздар немесе металданған пленкаларды
қолданған дұрыс.
Экран, құжаттар мен пернелер ... ... ... ... ... ... ... сәулелердің түсуі 1:10 – нан аспайтындай
түрде орналасуы керек. ... 50 – 100 кд/м ... ... ... ... ... 300 – 500 лк. болуы ... ... ... ... ... болмауы шарт.
Экран дисплейінің тура сәулелік шағылысуын болдырмау ... ... ... ... ... көз ... мен терезелер
орналасқан іргелерге параллелді етіп қояды.
Дисплейді құрылғылар операторларының оптималды шарттарын ... үшін ... ... ... бояу ... ... ... ашықтығы 15кд/м2
- ге дейінгі шағылысуда қызғылт – сары түсті ... ... ...... ... ... ... коэффиценті =0.2 болатын қара –
қоңыр түспен бояйды, ал қалған іргелерді =0.35 ... ... ... ... ... Жасыл түсті экранда оператордың көзі түсетін іргені
=0.4 ... ...... ... ... ... ДЭЕМ – ға ... бөлмеде қорғаныстық
жерленудің шинасы қойылған. ... ... ... ... 50 ... үш ... төрт сымды желіге қосылған. ЭЕМ – ның барлық ... ... ... ... ... ... ... – ге қызмет ететін персонал қауіпсіздік жиілігі 50 Гц 380/220 В ... ... ... ... ... ... ... сымдарынан
болатынын әрдайым есте сақтауы қажет.
ЭЕМ – мен ... ... тек қана ... ... ... ... танысқан және де техника қауіпсіздігі бойынша нұсқаулық өткен
адамдар ғана ... ... ... ... айналысатын адамдар
кернеудің астында қалған адамды босату ... ... дем ... ... ... ... ... бірінші көмек көрсету мен
электр желісіндегі от сөндіру әдістеріне оқытылады.
Техника қауіпсіздігі ... ... ЭЕМ – ... ... ... қадамдар:
- электр сымдарының зақымданған жағдайында ЭЕМ – ны қосуға;
- кернеуі жүріп тұрған жағдайда ... ... ... ... жүріп тұрған жағдайда аппаратураны пайкалауға;
- тоққа әкелетін қақпақ тағы да басқа ... ... ... ... жоқ ... кернеуі 36 В – тан ... ... ... ... өрт ... Статистикалық берілгендер электрондық
құрылғылар өртті сирек тудырады деп көрсетеді, брақ егер ол өртке қауіпті
ортада болса өрттің қиын ... ... Егер ... ... ... бірақ кірленген болса, ол ірі материалды шығындарға әкеп
соғады.
Электрлік зақымданудың себептері:
- қысқа зақымдану;
- сымдардың жүктелуі;
- үлкен кедергі;
- искра ... ... ... ... ... ... ... білу қажет.
Мұнда:
- барлық қызметшілер қауыпсыздық ... ... ... ... екі рет бір рет өту ... ... жасалған электро қыздырғыш құрылғыларын ... ... олар тек ... ... болуы керек;
- өрт кезіндегі әрекеттер тізімі;
- әрбір қызметші кез ... өрт ... ... істейтін іс
әрекеттері;
- мемлекеттік өрт сөндіргіш қызметіне 01 номеріне жылдам ... ... ... өрт жану ... ... және өз аты-жөнін айту
керек);
- күш жеткенше өрт сөндіруге адамдарды эвакуациялауға және материалдық
бағалы заттарды шығаруға күш жұмсау ... өрт ... ... ... ... және ... пайдалана
білу;
– ДК орналасқан бөлім жарық, құрғақ және жылы болу керек. ... ... ... ... ... болу ... Қабырғаларды ДСП-дан, қабат
қағаздан жасауға болмайды;
– берік жерлеу құрылғысы қажет. Жерлеу құрылғысына ... ... бар. ... ... ... ... құрылғысы
жерлеу магистраліне жерлеу проводы ... ... ... ... ... ... қосыла алмайды;
– әр күн сайын жұмысты орындау алдында бөлмеде жинау керек. ... ... ... ... ... қажет.
Қауіпсіздіктің жалпы талаптары.
ДК-де қолданушы жұмыс істегенде ақыл-оймен эмоционалдық, көру және
статистикалық артылумен байланысты сезеді. ... ... ... ... ... инспекциясы келесі талаптарды сақтауды қажет
етеді:
- есептеуіш техникасы кабинетінде абайлап және ұқыпты ... ... ... жоғары күрделі аппаратура – компьютерлер, принтерлер
және басқа техникалық жабдықтар орнатылған. Дисплей қосылған кезде ... ...... ... жұмыс істей бастайды;
- есептеуіш техникасы кабинетінде жұмыс ... ... және ... ... ... ... өту ... Нұсқаулық бойынша сынақ ... ... ... студенттер мен оқушыларға есептеуіш техникасы кабинетінде жұмыс
істеуге рұқсат ... ... ... мекеме немесе кобинет жарық, құрғақ, жылы болу
керек;
- компьютердің конструкциясы ... және ... ... ... қорғайды. Дисплейдегі сәулелену 100 ... 5 ... ... ... және ... әр жағынан электрикалық кернеу 15
кВ/м-ден аспау керек;
- радиаторлар және жылу ... су ... ... ... ... ... ... істегенде электрожабдықтау корпусына жақындамау керек,
онда ... бар ... ... ... ... ... ... тізбегінен металдық бөлшектері қорғайды.
Электротізбектелген құрылғы жол сілтеушінінің магистраліне жалғау керек;
- электротізбектелген жол ... ... ... ... ... және ... техникасын пайдалану ережелерін
орындамау – тәртіпті бұзу болып табылады.
Жұмысты бастау алдындағы қауіпсіздік талаптары.
Жұмысты бастау алдында келесі талаптарды орындау керек:
- ... ... ... ... аяқ ... кірмеу керек;
- әр күндерде компьютермен жұмыс істеу алдында белгілі ... ... ... және видеотерминал корпусын сүрту керек;
- жұмыс алдында электр питаниясының сымдарының сөндірілгеніне көз
жеткізу ... ... мен ... ... тиым салынады және де қосу
питаниясының түзетілмеген индекациясын эксплуатациялауға тиым ... ... ... ... үстіне немесе столдың астынан
ілініп тұрмауы ... және ... ... немесе элекрорезеткелерін,
кабельдерін тигізуге болмайды;
- компьютер тұрған кабинетте ең ... ... ол 21°С ... ауа ... автономды кондиционерлерден жетілдіру қажет;
- жұмыс үстелінің минималдық жарығы 300-500 лк. ... ... ... ... ... Төбе және ... дыбыс өшіруші
материалдармен қаптау қажет;
- көзқарастың сызығы монитор экранының ортасына келу үшін орындықтың
биіктігін реттеу ... ... қосу ... және ... ... ... жоқтығына көз жеткізу керек;
- есептеуіш техникасында тек қана оқытушының нұсқауымен жұмыс бастау
керек.
Жұмыс уақытындағы қауіпсіздік талаптары:
- жұмыс кезінде ... ... ... ... ... ... (60 ... см) сақтау қажет. Ол 50 см – ден кем ... ... ... ... ... ... қосуға, сөндіру, қозғау
және байланыстыру сымдары мен экранды монитордың арт ... ... ... қосылған компьютердің пернелер тақтасында тек қана таза қолмен жұмыс
істеу қажет. Пернелер тақтасынан хабар енгізу кезінде батырмаларды ... оны ... ... ... ... техникасы құралдарында дымқыл киімде немесе су қолмен
жұмыс істеуге болмайды және мониторға ... ... ... кітап,
дәптер, қалам, қарындаш, табақшалар мен тағы да ... ... ... ... ... сүйенуге, тұруға, кабинетте жүруге, жолдастарын
алаңдатуға да тыйым салынады.
- келуші адамдар кіргенде оқушыларға орнынан тұру ... ... ... және ... тыс ... ... ... кабинетінен шығу және
кіру тек қана оқытушының рұқсатымен ғана жүзеге ... ... ... ... үшін ... ... ... қажет және есептеу техникасының құралдарына ремонт жасау ... ... ... ... ... екі ... кем ... керек.
Апат жағдайындағы қауіпсіздік талаптары.
ДК-де жұмыс істеген кезде орындау қажет:
- есептеуіш техникасының құралдарымен, ... ... ... ... дұрыс жұмыс жасамаған кезде электр қуатымен жарақат
алуға болады және аппараттың жанып кетуін тудырады;
- ... ... ... ... ... ... дыбыс кезінде және
жанған иіс шыққан уақытта дереу жұмысты ... ... және ... ... ... ... басу қажет;
- өрт болған жағдайда кабинеттің ... ... ... ... ... ... ... сөндіріп, оқытушыға
хабарлау қажет болған жағдайда өртті сөндіруге көмек көрсету қажет.
- әр ... ОУ – 5, СП – 10 ... ... от ... ... ... керек. Өрт сөндіру құралдарына от сөндіргіш, құм және тығыз мата
жатады;
- тоқ соққан уақытта тез ... тоқ ... ... ... жапа ... ... ... тарылып жүрек соғу тоқтаған уақытта тез
арада жүрекке массаж жасау керек. Жедел жәрдем ... ... ... ... жасау жүрек соғуының қалпына келуіне және тынысалуына ... ... ... ... ... оған ... ... салу
қажет және жапа шегушіні тез арада дәрігерге жіберу қажет. ... ... ... ... ... қажет.
Жұмысты аяқтау кезіндегі қауіпсіздік талаптары.
Жұмыс аяқталған кезде ... ... ... тек қана ... ... ... аяқталады;
- оқытушының нұсқауымен есептеуіш техникасы құралдарын өшіру;
- ... ... көз ... ... орнын тәртіпке келтіру;
- кабинеттен тек қана оқытушының рұқсатымен ғана шығу.
Еңбек қорғау:
1990 жылы 8 ... ... ... қорғау инструкциясына сәйкес ДК-де
жұмыс істегендегі ... ... ... ... ... ... нұсқаулықты оқу;
-«эксплуатация бойынша басшылықта» келтірілген эксплуатацияның жалпы
ережесімен және еңбек қауіпсіздігінің нұсқаулығымен танысу;
- құрылғы мен блоктың қақпағында, іргесінде және ... ... ... ... ... құрылғысы эксплуатациясының ережелерімен танысу;
2) персоналды компьютермен жұмыс жасағанда Мемлекеттік Инспекцияның
еңбек қауіпсіздігі мен ... ... ... ... ... ... ... қажет:
- ДК кернеуі 220 (120) В, жиілігі 50 (60) Гц және ... бір ... ... қосылу керек. Розетканың жерлендіргіш
контакттары бөлменің қорғаушы ... ... ... ... ... керек;
- есептеуіш техникасының нұсқаулығы иондалған сәулелерден сенімді
қорғауды қамтамасыздандыру қажет. ... ... ... 100 ... 5 см ... ... қажет және корпусының әрбір жағындағы
электростатикалық кернеуі 15 кВ/м аспауы қажет;
- бөлмеде ... ... ... ... ... сөндіріп тастауын
қамтамасыз ететін сөндіргіштер орнатылған болуы қажет;
- дисплейдің рентгендік шағылысы экраннан 5 см-дей қашықтықта және ... ... ... 100 ... ал ... ... 15 ... асапауы керек;
- жылына бір рет қолданылмаған рентгендік шағылысты, ... ... ... ... ... ... кедергісінің
үлкендігі мен электр желісі изоляциясының өлшемдерін орындап тұру қажет;
- бөлменің іші жарық, ... және жылы ... жөн. Еден ... ... тік, қатты және де тазалауға тайғақ емес ыңғайлы қабаттан болуы
керек. Бөлмені әрдайым таза түрде ... ... ... ... ... су ... жүйесінің радиаторы мен труба
құбыры диэлектрикалық (ағаш) қоршаулармен жасалады. Қоршауға ДСП плитасы
мен ... ... ... ... ... мен жылу құбырларының жүйесі диэлектрикалық шектермен
жабдықталған болуы ... ... ... ... ... ... оған ... істеу құрылғысын орнату қажет;
- аппараттың өздігінен сөнуінен пайда болған ерекше дыбыс кезінде және
жанған иіс шыққан уақытта ... ... ... және ... ... ... ... басу керек;
- өрт болған жағдайда кабинеттің электропитаниясын сөндіру қажет,
оқушыларды қауіпсіздік ... ... ... және өртті сөндіру керек;
- ток соққан уақытта тез арада ток ... ... ... жапа ... ... ... ... жүрек соғуы тоқтаған уақытта тез
арада жүрекке массаж жасау керек. Жедел ... ... ... ... массаж жасау жүрек соғуының қалпына келуіне әсер етеді және тыныс
алуына да ... ... ... ... күйген жағдайда оған
стерильденген повязканы салу қажет және жапа шегушіні тез ... ... ... ... жерін зеленка немесе марганцовкамен сүрту қажет;
3) ДК мен оның блоктарын жөндеу жұмыстарына тыйым салынады, егер де ... ... ... ... ... эксплуатациялау кезінде келесі қағидалар мен ережелер
орындалуы керек:
- желіге кернеу берілген жағдайда электрикалық ... ... не ... ... ... ДК – ны ... түрде қараусыз тастамау керек;
- ДК – ны жаңбыр жауып, күн шатырлаған кезде қосылған ... ... ... ... Май ауданы бойынша көші-қон халықтарының
статистикалық мәліметтерінің бағдарламасын құрастыру.
Бағдарламалық өнім Delphi 7.0. ... ... ... жоба Май ... ... ... ... мәліметтерін
сақтау және жинау мен өңдеуге арналған.
Осы бағдарламада көшіп-қону статистикалық мәліметтерін фильрациялау,
енгізу, өзгерту және жою ... ... ... ... ... қойылған мақсатына жетілді, онда
дипломдық жобада қолданылған құжат моделдері дұрыс жоспарланылды. Оның
бұдан ... да ... бар. ... жоба ... ... және іздеу пайдаланушыларға орындалу уақытын ... ... ... шешу мен ... ... жету үшін сәйкес
жұмыс толығымен орындалды.
Қолданушы кез-келген керекті мәліметті тез және оңай таба ... ... ... ... онда ешқандай көзді ауыртатын
түстер қолданбаған. ... ... ... ... ... ... жасалынды. Егер қолданушы қате жіберсе онда бағдарлама
қате туралы хабарлайды.
Қазір ақпаратты ЭЕМ файлдарында ... ... ... көрі ... ЭЕМ ... сұраныстарды енгізуге, файлдарды оқуға, ... ... жаңа ... ... және ... ... шешімдерді қабылдай алу мүмкіндігін береді.
Бағдарламаның артықшылықтары:
- мәліметтері қарапайым түсінікті кесте түрінде сақталады, және оған
жаңа жазба қосуға болады;
- бағдарламаның ... және ... ... ... ... ... мен ... оқуды талап етпейді;
- машинаның жүйелік ... ... ... онша ... ... қандай да бір өзгертулер мен толықтыруларды енгізсе де
ол тұрақты және сенімді жұмыс ... ... ... көп орын ... ... ... айтқанда берілген бағдарлама ең басты мақсатпен қойылған
талаптарына сай құрастырылған болатын.
Қолданылған әдебиеттер тізімі
1. Аппак М. А. Автоматизированные рабочие места на ... ... / ... М. А. – М. : ... и ... 1989. – 200 с., ил.
2. Алтухов Е. Б. Основы информатики и вычислительной техники / Алтухов ... – М. : ... 1992. – 303 ... Ахметов К. Windows 98 не для всех / – М. : Компьютер Пресс,
4. Брябрин В. М. ... ... ... ЭВМ / Брябрин В. М.
– М. : Наука, 1989. – 223 с., ил.
5. Бойко В. В. Проектирование баз ... ... ... / ... ... ... В. М. – М. : ... и статистика, 1989. – 350 с.
6. Васманов В. В. Автоматизированные системы ... ... ... В. В. – М. : 1987. – 312 ... ... В. П. Экономика предприятия / Грузинов В. П. – М. : 2002. –
750 ... ... Р. ... ... ... компьютеров типа IBM
PC, XT, AT: Пер. с англ. / Предисл. Гайского Н. В. – М. : Финансы ... 1991. – 385 ... Дейт Дж. ... в системы баз данных / Дейт Дж. – М. : Наука,
1980. – 146 с., ... Диго С. М. ... и ... баз даных / Диго С. М. – М.
: Финансы и статистика 1995. – 265 с., ил.
11. Дейт К. Мәліметтер ... ... ... / Дейт К. М. : ... – 212 ... ... Г. ... в операционные системы / Т1. Т2. / Пер с англ. – М.
: Мир, 1987. – 256 ... ... В. А., ... ... ... ... 2003. ... с.
14. Когаловский М. Р. Технология баз данных на персональных ЭВМ ... М. Р. – М. : ... и ... 1992. – 123 ... Крайзмер Л. П., Кулик Б. А. Персональный компьютер не вашем рабочем
месте / Крайзмер Л. П., ... Б. А. – ... 1991. – 165 с., ... Масанова Ж. К., Манулов Қ. Қ. Алматы: «Бастау» баспханасы, 2004 – 221
б.
17. Морозов Л. Л. Охрана труда – М. : ... 1982. – 224 ... ... Дж. ... баз ... в ... системах / Мартин
Дж. – М. : Мир 1978. – 150 с., ил.
19. Михалев С. Б. АСУ на ... ... / ... С. Б. ... Наука и техника, 1989. – 229 с.
20. Модин А. А. Справочник разработчика АСУ / ... А. А. –М. ... 1978. – 367 ... ... ... фирмы. Чечевицына Л. Н. Ростов-на-Дону:
«Феникс», 2000. – 365 ... ... А. Н. ... ... ... данных и знаний / Наумов А. Н.
Вендров. И – М. : Финансы и статистика, 1991. – 256 с., ... ... С. А. ... разработки программного обеспечения», СПб:
ПИТЕР, 2002. – 458 с.
24. Овчаров Л. А. ... ... ... / ... Л. А.,
Селетков С. Н. – М. : Финансы и статистика, 1982. – 262 ... ... А. В. ... ... и программирование: Учебник для
технических вузов – М. : Высшая школа, 1998. – 479 с.
26. ... А. С., ...... М. : Ось – 89, 2000. – 650 ... ... А. В. ... ... и программирование: учебник для
технических вузов – М. : ... ... 1998. – 479 ... Райзберг Б. А. Курс экономики третье издание / Райзберг Б. А. М. :
2003. – 672 ... Сост В. В. ... ... ... ... материалов. – М. :
Стройиздат, 1984. – 355 с.
30. Симонович С. В. ... ... ... ... для ...... ... 2001. – 11 с.
31. Сафронова Н. А. Экономика предприятия – М. : ... 2000. – 200 ... ... Ю. Г. ... ... в ... ... / Сибаров Ю. Г. –
М. : Наука, 1978. – 105 с.
33. Ульман Дж. ... ... баз ... / ... Дж. – М. : ... ... 1983. – с.
34. Фигурнов В. Э. IBM PC для ... 7-е изд., ... и доп. – ... ... – М, 2002. – 640 ... ... В. Э. IBM PC для пользователя: краткий курс. – М.: ИНФРА– М,
2001. – 480 с.
36. ... В. И. ... ... и ... производства/
Шепеленко В. И. – С – П.: 2001. – 723 ... ... и ... ... ... учебное пособие для
колледжей и ... / ... А. С., ... С. Т., Ворожцова С.
В., Шевченко В. Я., Юсубекова С. О. – Павлодар: РИО ПГУ, 2002. – 136
с.
Қосымша ... ... ... ... ... бумалар жатады:
1 «Миграция»;
2 «Пояснительная записка».
«Миграция» бумасында келесі файлдар бар:
migracia.exe – орындалатын файл, бағдарламаны іске ... ... ... - бағдарламаның негізгі бастапқы файл (1 Кбайт);
Project1.res – ... ... (1 ...... ... (2 Кбайт);
Unit1.dfm – форманың сипаттамасы (4 Кбайт);
Unit1.pas – модулдің объектілі коды (1 Кбайт);
Unit1.dcu – ... ... ... (5 ...... сипаттамасы (202 Кбайт);
Unit2.pas – модулдің объектілі коды (2 Кбайт);
Unit2.dcu – модулдің бастапқы файлы (6 Кбайт);
Unit3.dfm - форманың ... (11 ...... ... коды (11 ...... ... файлы (20 Кбайт);
Unit4.dfm - форманың сипаттамасы (7 Кбайт);
Unit4.pas – модулдің объектілі коды (11 Кбайт);
Unit4.dcu – модулдің ... ... (19 ... - ... сипаттамасы (14 Кбайт);
Unit5.pas – модулдің объектілі коды (9 Кбайт);
Unit5.dcu – модулдің бастапқы файлы (17 Кбайт);
Unit6.dfm - ... ... (6 ...... ... коды (3 ...... бастапқы файлы (8 Кбайт);
Unit7.dfm - форманың сипаттамасы (3 Кбайт);
Unit7.pas – ... ... коды (16 ...... ... ... (25 ... - форманың сипаттамасы (2 Кбайт);
Unit8.pas – модулдің объектілі коды (7 Кбайт);
Unit8.dcu – модулдің ... ... (3 ... - ... ... (125 Кбайт);
Unit9.pas – модулдің объектілі коды (1 ...... ... ... (4 ...... ... файлы (1,67 Мбайт);
Фото-0128.jpeg – сурет файлы (53 Kбайт)
splash2_base.jpeg – ... ... (89 ... ... ... ... ... бар:
1 паяснительная.doc – бағдарламаның түсініктемесі ( 122 Мбайт);
2 интерфейс.cdr – графикалық бөлім ( 264 Мбайт);
3 блок-схема.cdr – графикалық бөлім ( 1524 ... ... ... ... Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: ... ... ... ... ... ... TObject; var ... Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Hide;
form2.Show;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := ... ... ... ... из ... [mbYes, mbNo], 0) = mrYes;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, ... ... ... Menus, XPMan, jpeg, ExtCtrls, StdCtrls;
type
TForm2 = class(TForm)
XPManifest1: TXPManifest;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Image1: ... ... TObject; var ... ... ... ... Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... ... *.dfm}
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Вы хотите выйти из программы?', mtConfirmation, [mbYes,
mbNo], 0) = mrYes then ... ... ... ... ... TForm2.Button3Click(Sender: TObject);
begin
form6.ShowModal;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
aboutbox.ShowModal;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
if MessageDlg('Вы хотите выйти из программы?', mtConfirmation, [mbYes,
mbNo], 0) = mrYes then
Form1.Close;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, ... ... Classes, ... ... Menus, DB, ADODB, Grids, DBGrids, ... Mask, ... = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: ... ... ... ... TDataSource;
N8: TMenuItem;
Exel1: TMenuItem;
ADOTable1Fam: TWideStringField;
ADOTable1Im: TWideStringField;
ADOTable1Otch: TWideStringField;
ADOTable1GodR: TDateTimeField;
ADOTable1Pol: TWideStringField;
ADOTable1Nazional: TWideStringField;
ADOTable1Udos: TWideStringField;
ADOTable1GodVidUd: TDateTimeField;
ADOTable1NaimVidOrg: TWideStringField;
ADOTable1DataRegist: TDateTimeField;
ADOTable1KolDeti: TIntegerField;
ADOTable2DSDesigner: TWideStringField;
ADOTable2MesRozhGos: TWideStringField;
ADOTable2Oblost: ... ... ... TWideStringField;
ADOTable2Dom: TWideStringField;
ADOTable2Kvart: TWideStringField;
ADOTable3DSDesigner: TWideStringField;
ADOTable3MesRigistrGos: TWideStringField;
ADOTable3Oblost: TWideStringField;
ADOTable3Raion: TWideStringField;
ADOTable3Selo: TWideStringField;
ADOTable3Uliza: TWideStringField;
ADOTable3Dom: TWideStringField;
ADOTable3Kvart: TWideStringField;
ADOTable4DSDesigner: TWideStringField;
ADOTable4MesPribitiaGos: TWideStringField;
ADOTable4Oblost: TWideStringField;
ADOTable4Raion: TWideStringField;
ADOTable4Selo: TWideStringField;
ADOTable4Uliza: TWideStringField;
ADOTable4Dom: ... ... ... ... ... ... TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
XPManifest1: TXPManifest;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Dobavlenia;
procedure Red_Dob;
procedure N7Click(Sender: TObject);
procedure ... ... ... ... ... ... ... TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N14Click(Sender: TObject);
//procedure ... TObject; Field: ... Private ... ... Public ... }
end;
var
Form3: TForm3;
indi:integer;
ind,vib:integer;
implementation
uses unit2,unit1,unit5, Unit4,unit7,unit8,unit9;
{$R *.dfm}
procedure TForm3.N2Click(Sender: TObject);
begin
form3.Close;
end;
procedure TForm3.N3Click(Sender: TObject);
begin
if MessageDlg('Вы хотите выйти из программы?', mtConfirmation, ... 0) = mrYes ... ... ... ... данных в базу прибывшых
form3.ADOTable1.Insert;
form3.ADOTable1.FieldValues['Fam']:=form5.edit1.Text;
form3.ADOTable1.FieldValues['Im']:=form5.edit2.Text;
form3.ADOTable1.FieldValues['Otch']:=form5.edit3.Text;
form3.ADOTable1.FieldValues['GodR']:=form5.Maskedit1.Text;
form3.ADOTable1.FieldValues['№Udos']:=form5.edit5.Text;
form3.ADOTable1.FieldValues['GodVidUd']:=form5.Maskedit2.Text;
form3.ADOTable1.FieldValues['NaimVidOrg']:=form5.edit6.Text;
form3.ADOTable1.FieldValues['DataRegist']:=form5.Maskedit3.Text;
form3.ADOTable1.FieldValues['KolDeti']:=form5.SpinEdit1.Value;
if form5.radiogroup1.ItemIndex=0
then form3.ADOTable1.FieldValues['Pol']:='Мужской'
else form3.ADOTable1.FieldValues['Pol']:='Женский';
if form5.combobox1.ItemIndex=3 ... ... ... ... form3.ADOTable1.FieldValues['Nazional']:='Русский\Русская';
if form5.combobox1.ItemIndex=2
then form3.ADOTable1.FieldValues['Nazional']:='Украин\Украинка';
form3.ADOTable1.Post;
form3.ADOTable2.Insert;
form3.ADOTable2.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form3.ADOTable2.FieldValues['MesRozhGos']:=form5.edit7.Text;
form3.ADOTable2.FieldValues['Oblost']:=form5.edit8.Text;
form3.ADOTable2.FieldValues['Raion']:=form5.edit9.Text;
form3.ADOTable2.FieldValues['Selo']:=form5.edit10.Text;
form3.ADOTable2.FieldValues['Uliza']:=form5.edit11.Text;
form3.ADOTable2.FieldValues['Dom']:=form5.edit12.Text;
form3.ADOTable2.FieldValues['Kvart']:=form5.edit13.Text;
form3.ADOTable2.Post;
form3.ADOTable3.Insert;
form3.ADOTable3.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form3.ADOTable3.FieldValues['MesRigistrGos']:=form5.edit14.Text;
form3.ADOTable3.FieldValues['Oblost']:=form5.edit15.Text;
form3.ADOTable3.FieldValues['Raion']:=form5.edit16.Text;
form3.ADOTable3.FieldValues['Selo']:=form5.edit17.Text;
form3.ADOTable3.FieldValues['Uliza']:=form5.edit18.Text;
form3.ADOTable3.FieldValues['Dom']:=form5.edit19.Text;
form3.ADOTable3.FieldValues['Kvart']:=form5.edit20.Text;
form3.ADOTable3.Post;
form3.ADOTable4.Insert;
form3.ADOTable4.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form3.ADOTable4.FieldValues['MesPribitiaGos']:=form5.edit21.Text;
form3.ADOTable4.FieldValues['Oblost']:=form5.edit22.Text;
form3.ADOTable4.FieldValues['Raion']:=form5.edit23.Text;
form3.ADOTable4.FieldValues['Selo']:=form5.edit24.Text;
form3.ADOTable4.FieldValues['Uliza']:=form5.edit25.Text;
form3.ADOTable4.FieldValues['Dom']:=form5.edit26.Text;
form3.ADOTable4.FieldValues['Kvart']:=form5.edit27.Text;
form3.ADOTable4.Post;
end;
procedure Tform3.Red_Dob; //выход данных для редактирования
begin
ind:=form3.ADOTable1.RecNo;
indi:=form3.ADOTable1.RecNo;
form5.Edit1.Text:=form3.ADOTable1.FieldValues['Fam'];
form5.edit2.Text:=form3.ADOTable1.FieldValues['Im'];
form5.edit3.Text:=form3.ADOTable1.FieldValues['Otch'];
form5.Maskedit1.Text:=form3.ADOTable1.FieldValues['GodR'];
form5.edit5.Text:=form3.ADOTable1.FieldValues['№Udos'];
form5.Maskedit2.Text:=form3.ADOTable1.FieldValues['GodVidUd'];
form5.edit6.Text:=form3.ADOTable1.FieldValues['NaimVidOrg'];
form5.Maskedit3.Text:=form3.ADOTable1.FieldValues['DataRegist'];
form5.SpinEdit1.Value:=form3.ADOTable1.FieldValues['KolDeti'];
if form3.ADOTable1.FieldValues['Pol']='Мужской'
then form5.radiogroup1.ItemIndex:=0
else form5.radiogroup1.ItemIndex:=1;
if form3.ADOTable1.FieldValues['Nazional']='Казах\Казашка'
then form5.combobox1.ItemIndex:=0 else
if ... ... ... ... form5.combobox1.ItemIndex:=2 else
if form3.ADOTable1.FieldValues['Nazional']='Другое...'
then form5.combobox1.ItemIndex:=3;
form3.ADOTable1.RecNo:=indi;
form3.ADOTable2.RecNo:=ind;
indi:=form3.ADOTable2.RecNo;
form5.edit7.Text:=form3.ADOTable2.FieldValues['MesRozhGos'];
form5.edit8.Text:=form3.ADOTable2.FieldValues['Oblost'];
form5.edit9.Text:=form3.ADOTable2.FieldValues['Raion'];
form5.edit10.Text:=form3.ADOTable2.FieldValues['Selo'];
form5.edit11.Text:=form3.ADOTable2.FieldValues['Uliza'];
form5.edit12.Text:=form3.ADOTable2.FieldValues['Dom'];
form5.edit13.Text:=form3.ADOTable2.FieldValues['Kvart'];
form3.ADOTable2.RecNo:=indi;
form3.ADOTable3.RecNo:=ind;
indi:=form3.ADOTable3.RecNo;
form5.edit14.Text:=form3.ADOTable3.FieldValues['MesRigistrGos'];
form5.edit15.Text:=form3.ADOTable3.FieldValues['Oblost'];
form5.edit16.Text:=form3.ADOTable3.FieldValues['Raion'];
form5.edit17.Text:=form3.ADOTable3.FieldValues['Selo'];
form5.edit18.Text:=form3.ADOTable3.FieldValues['Uliza'];
form5.edit19.Text:=form3.ADOTable3.FieldValues['Dom'];
form5.edit20.Text:=form3.ADOTable3.FieldValues['Kvart'];
form3.ADOTable3.RecNo:=indi;
form3.ADOTable4.RecNo:=ind;
indi:=form3.ADOTable4.RecNo;
form5.edit21.Text:=form3.ADOTable4.FieldValues['MesPribitiaGos'];
form5.edit22.Text:=form3.ADOTable4.FieldValues['Oblost'];
form5.edit23.Text:=form3.ADOTable4.FieldValues['Raion'];
form5.edit24.Text:=form3.ADOTable4.FieldValues['Selo'];
form5.edit25.Text:=form3.ADOTable4.FieldValues['Uliza'];
form5.edit26.Text:=form3.ADOTable4.FieldValues['Dom'];
form5.edit27.Text:=form3.ADOTable4.FieldValues['Kvart'];
form3.ADOTable4.RecNo:=indi;
end;
procedure TForm3.N7Click(Sender: TObject);
begin
ind:=form3.ADOTable1.RecNo;
form3.ADOTable2.RecNo:=ind;
form3.ADOTable3.RecNo:=ind;
form3.ADOTable4.RecNo:=ind;
if messagedlg('Удалить запись?',mtconfirmation,[mbyes,mbno],0) =mryes then
if messagedlg('Данные будут потеряны!!!',mtconfirmation,[mbyes,mbno],0)=
mryes then
begin form3.ADOTable1.Delete;
form3.ADOTable2.Delete;
form3.ADOTable3.Delete;
form3.ADOTable4.Delete;
end;
end;
procedure TForm3.N6Click(Sender: TObject);
begin
form5.Caption:='Редактирования данных...';
form5.Button1.Visible:=false;
form5.Button2.Visible:=false;
form5.Button3.Visible:=true;
form5.Button4.Visible:=true;
Red_Dob;
form5.ShowModal;
end;
procedure TForm3.Exel1Click(Sender: ... ... ... ... ... TForm3.N11Click(Sender: TObject);
begin
vib:=2 ;
form8.edit1.Visible:=false;
form8.maskedit1.Visible:=true;
form8.GroupBox1.Caption:='Введите дату рождения(дд.мм.гг):';
form8.ShowModal;
end;
procedure TForm3.N12Click(Sender: TObject);
begin
vib:=3 ;
form8.edit1.Visible:=false;
form8.maskedit1.Visible:=true;
form8.GroupBox1.Caption:='Введите дату регистрации(дд.мм.гг):';
form8.ShowModal;
end;
procedure TForm3.N14Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, Menus, DB, ADODB, Grids, DBGrids, ... = ... ... ... ... TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
ADOTable4: TADOTable;
N8: TMenuItem;
Excel1: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: ... ... ... TMenuItem;
N15: TMenuItem;
XPManifest1: TXPManifest;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Dobavlenia1;
procedure ... ... ... ... ... ... ... N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N15Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... Unit2, Unit1, Unit5, ... ... ... TForm4.N2Click(Sender: TObject);
begin
form4.Close;
end;
procedure TForm4.N3Click(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите выйти из программы?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then ... ... ... в базу прибывшых
form4.ADOTable1.Insert;
form4.ADOTable1.FieldValues['Fam']:=form5.edit1.Text;
form4.ADOTable1.FieldValues['Im']:=form5.edit2.Text;
form4.ADOTable1.FieldValues['Otch']:=form5.edit3.Text;
form4.ADOTable1.FieldValues['GodR']:=form5.Maskedit1.Text;
form4.ADOTable1.FieldValues['№Udos']:=form5.edit5.Text;
form4.ADOTable1.FieldValues['GodVidUd']:=form5.Maskedit2.Text;
form4.ADOTable1.FieldValues['NaimVidOrg']:=form5.edit6.Text;
form4.ADOTable1.FieldValues['DataRegist']:=form5.Maskedit3.Text;
form4.ADOTable1.FieldValues['KolDeti']:=form5.SpinEdit1.Value;
if form5.radiogroup1.ItemIndex=0
then form4.ADOTable1.FieldValues['Pol']:='Мужской'
else form4.ADOTable1.FieldValues['Pol']:='Женский';
if form5.combobox1.ItemIndex=3
then form4.ADOTable1.FieldValues['Nazional']:=form5.edit4.Text;
if form5.combobox1.ItemIndex=0
then form4.ADOTable1.FieldValues['Nazional']:='Казах\Казашка';
if form5.combobox1.ItemIndex=1
then form4.ADOTable1.FieldValues['Nazional']:='Русский\Русская';
if form5.combobox1.ItemIndex=2
then form4.ADOTable1.FieldValues['Nazional']:='Украин\Украинка';
form4.ADOTable1.Post;
form4.ADOTable2.Insert;
form4.ADOTable2.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form4.ADOTable2.FieldValues['MesRozhGos']:=form5.edit7.Text;
form4.ADOTable2.FieldValues['Oblost']:=form5.edit8.Text;
form4.ADOTable2.FieldValues['Raion']:=form5.edit9.Text;
form4.ADOTable2.FieldValues['Selo']:=form5.edit10.Text;
form4.ADOTable2.FieldValues['Uliza']:=form5.edit11.Text;
form4.ADOTable2.FieldValues['Dom']:=form5.edit12.Text;
form4.ADOTable2.FieldValues['Kvart']:=form5.edit13.Text;
form4.ADOTable2.Post;
form4.ADOTable3.Insert;
form4.ADOTable3.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form4.ADOTable3.FieldValues['MesPoslRigistrGos']:=form5.edit14.Text;
form4.ADOTable3.FieldValues['Oblost']:=form5.edit15.Text;
form4.ADOTable3.FieldValues['Raion']:=form5.edit16.Text;
form4.ADOTable3.FieldValues['Selo']:=form5.edit17.Text;
form4.ADOTable3.FieldValues['Uliza']:=form5.edit18.Text;
form4.ADOTable3.FieldValues['Dom']:=form5.edit19.Text;
form4.ADOTable3.FieldValues['Kvart']:=form5.edit20.Text;
form4.ADOTable3.Post;
form4.ADOTable4.Insert;
form4.ADOTable4.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form4.ADOTable4.FieldValues['MesUbitiaGos']:=form5.edit21.Text;
form4.ADOTable4.FieldValues['Oblost']:=form5.edit22.Text;
form4.ADOTable4.FieldValues['Raion']:=form5.edit23.Text;
form4.ADOTable4.FieldValues['Selo']:=form5.edit24.Text;
form4.ADOTable4.FieldValues['Uliza']:=form5.edit25.Text;
form4.ADOTable4.FieldValues['Dom']:=form5.edit26.Text;
form4.ADOTable4.FieldValues['Kvart']:=form5.edit27.Text;
form4.ADOTable4.Post;
end;
procedure Tform4.Red_Dob1; //вывод ... для ... ... ... form5.radiogroup1.ItemIndex:=1;
form5.Edit4.Text:='';
if form4.ADOTable1.FieldValues['Nazional']='Казах\Казашка'
then begin form5.combobox1.ItemIndex:=0; form5.Edit4.Text:=''; end else
if form4.ADOTable1.FieldValues['Nazional']='Русский\Русская'
then form5.combobox1.ItemIndex:=1 else
if form4.ADOTable1.FieldValues['Nazional']='Украин\Украинка'
then form5.combobox1.ItemIndex:=2 else
begin
form5.combobox1.ItemIndex:=3;
form5.Edit4.Enabled:=true;
form5.Edit4.Text:=form4.ADOTable1.FieldValues['Nazional']
end;
form4.ADOTable1.RecNo:=indi;
form4.ADOTable2.RecNo:=ind;
indi:=form4.ADOTable2.RecNo;
form5.edit7.Text:=form4.ADOTable2.FieldValues['MesRozhGos'];
form5.edit8.Text:=form4.ADOTable2.FieldValues['Oblost'];
form5.edit9.Text:=form4.ADOTable2.FieldValues['Raion'];
form5.edit10.Text:=form4.ADOTable2.FieldValues['Selo'];
form5.edit11.Text:=form4.ADOTable2.FieldValues['Uliza'];
form5.edit12.Text:=form4.ADOTable2.FieldValues['Dom'];
form5.edit13.Text:=form4.ADOTable2.FieldValues['Kvart'];
form4.ADOTable2.RecNo:=indi;
form4.ADOTable3.RecNo:=ind;
indi:=form4.ADOTable3.RecNo;
form5.edit14.Text:=form4.ADOTable3.FieldValues['MesPoslRigistrGos'];
form5.edit15.Text:=form4.ADOTable3.FieldValues['Oblost'];
form5.edit16.Text:=form4.ADOTable3.FieldValues['Raion'];
form5.edit17.Text:=form4.ADOTable3.FieldValues['Selo'];
form5.edit18.Text:=form4.ADOTable3.FieldValues['Uliza'];
form5.edit19.Text:=form4.ADOTable3.FieldValues['Dom'];
form5.edit20.Text:=form4.ADOTable3.FieldValues['Kvart'];
form4.ADOTable3.RecNo:=indi;
form4.ADOTable4.RecNo:=ind;
indi:=form4.ADOTable4.RecNo;
form5.edit21.Text:=form4.ADOTable4.FieldValues['MesUbitiaGos'];
form5.edit22.Text:=form4.ADOTable4.FieldValues['Oblost'];
form5.edit23.Text:=form4.ADOTable4.FieldValues['Raion'];
form5.edit24.Text:=form4.ADOTable4.FieldValues['Selo'];
form5.edit25.Text:=form4.ADOTable4.FieldValues['Uliza'];
form5.edit26.Text:=form4.ADOTable4.FieldValues['Dom'];
form5.edit27.Text:=form4.ADOTable4.FieldValues['Kvart'];
form4.ADOTable4.RecNo:=indi;
end;
procedure TForm4.N5Click(Sender: TObject);
begin
// Добавления выбывших данных
form5.Button3.Visible:=false;
form5.Button4.Visible:=false;
form5.Button1.Visible:=true;
form5.Button2.Visible:=true;
form5.GroupBox1.Caption:='Данные о ... ... ... ... ... ... регистрации: ';
form5.GroupBox4.Caption:='Место убытия: ';
form5.Label32.Caption:='В месте с ним (ней) ... ... ... до ... : ... ... ... messagedlg('Удалить запись?',mtconfirmation,[mbyes,mbno],0) =mryes then
if messagedlg('Данные будут потеряны!!!',mtconfirmation,[mbyes,mbno],0)=
mryes then
begin form4.ADOTable1.Delete;
form4.ADOTable2.Delete;
form4.ADOTable3.Delete;
form4.ADOTable4.Delete;
end;
end;
procedure TForm4.N6Click(Sender: TObject);
begin
form5.Caption:='Редактирования данных...';
form5.Button1.Visible:=false;
form5.Button2.Visible:=false;
form5.Button3.Visible:=true;
form5.Button4.Visible:=true;
form5.GroupBox1.Caption:='Данные о выбывшем человеке:';
form5.GroupBox2.Caption:='Место рождения выбывшего ... ... ... ... ... ... ... с ним (ней) выбыло колличество детей до 16
лет : ';
Red_Dob1;
form5.ShowModal;
end;
procedure TForm4.Excel1Click(Sender: TObject);
begin
form7.CheckBox4.Caption:='Данные о месте ... ... ... ... ... ... дату ... TForm4.N12Click(Sender: TObject);
begin
vib:=3 ;
form8.edit1.Visible:=false;
form8.maskedit1.Visible:=true;
form8.GroupBox1.Caption:='Введите дату регистрации(дд.мм.гг):';
form8.ShowModal;
end;
procedure TForm4.N13Click(Sender: TObject);
begin
form4.ADOTable1.Filtered:=false;
end;
procedure TForm4.N15Click(Sender: TObject);
begin
aboutbox.ShowModal;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, ... ... ... ... Mask, Spin, XPMan, ... = class(TForm)
Button1: TButton;
Button2: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
MaskEdit1: TMaskEdit;
RadioGroup1: ... ... ... TEdit;
MaskEdit2: TMaskEdit;
Edit6: TEdit;
MaskEdit3: TMaskEdit;
Button3: TButton;
Button4: TButton;
Label10: TLabel;
GroupBox2: TGroupBox;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Edit7: ... ... ... ... TEdit;
Edit12: TEdit;
Edit13: TEdit;
GroupBox3: TGroupBox;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Edit14: TEdit;
Edit15: ... ... ... ... ... ... TGroupBox;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: ... ... ... ... ... ... TXPManifest;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Edit5KeyPress(Sender: TObject; var Key: ... ... TObject; var Key: ... Private ... ... Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit3, Unit2, Unit4, Unit1;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
if vibor=1 then ... vibor=2 then ... ... ... vibor=1 ... ... ... form5.radiogroup1.ItemIndex=0
then form3.ADOTable1.FieldValues['Pol']:='Мужской'
else form3.ADOTable1.FieldValues['Pol']:='Женский';
if form5.combobox1.ItemIndex=3 then
form3.ADOTable1.FieldValues['Nazional']:=
form5.edit4.Text;
if form5.combobox1.ItemIndex=0
then form3.ADOTable1.FieldValues['Nazional']:='Казах\Казашка';
if form5.combobox1.ItemIndex=1
then form3.ADOTable1.FieldValues['Nazional']:='Русский\Русская';
if form5.combobox1.ItemIndex=2
then form3.ADOTable1.FieldValues['Nazional']:='Украин\Украинка';
form3.ADOTable1.Post;
form3.ADOTable2.Edit;
form3.ADOTable2.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form3.ADOTable2.FieldValues['MesRozhGos']:=form5.edit7.Text;
form3.ADOTable2.FieldValues['Oblost']:=form5.edit8.Text;
form3.ADOTable2.FieldValues['Raion']:=form5.edit9.Text;
form3.ADOTable2.FieldValues['Selo']:=form5.edit10.Text;
form3.ADOTable2.FieldValues['Uliza']:=form5.edit11.Text;
form3.ADOTable2.FieldValues['Dom']:=form5.edit12.Text;
form3.ADOTable2.FieldValues['Kvart']:=form5.edit13.Text;
form3.ADOTable2.Post;
form3.ADOTable3.Edit;
form3.ADOTable3.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form3.ADOTable3.FieldValues['MesRigistrGos']:=form5.edit14.Text;
form3.ADOTable3.FieldValues['Oblost']:=form5.edit15.Text;
form3.ADOTable3.FieldValues['Raion']:=form5.edit16.Text;
form3.ADOTable3.FieldValues['Selo']:=form5.edit17.Text;
form3.ADOTable3.FieldValues['Uliza']:=form5.edit18.Text;
form3.ADOTable3.FieldValues['Dom']:=form5.edit19.Text;
form3.ADOTable3.FieldValues['Kvart']:=form5.edit20.Text;
form3.ADOTable3.Post;
form3.ADOTable4.Edit;
form3.ADOTable4.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form3.ADOTable4.FieldValues['MesPribitiaGos']:=form5.edit21.Text;
form3.ADOTable4.FieldValues['Oblost']:=form5.edit22.Text;
form3.ADOTable4.FieldValues['Raion']:=form5.edit23.Text;
form3.ADOTable4.FieldValues['Selo']:=form5.edit24.Text;
form3.ADOTable4.FieldValues['Uliza']:=form5.edit25.Text;
form3.ADOTable4.FieldValues['Dom']:=form5.edit26.Text;
form3.ADOTable4.FieldValues['Kvart']:=form5.edit27.Text;
form3.ADOTable4.Post;
form3.ADOTable1.Active:=false;
form3.ADOTable1.Active:=true;
form5.Close;
end;
if vibor=2 ... ... ... ... form5.radiogroup1.ItemIndex=0
then form4.ADOTable1.FieldValues['Pol']:='Мужской'
else form4.ADOTable1.FieldValues['Pol']:='Женский';
if form5.combobox1.ItemIndex=3 then
form4.ADOTable1.FieldValues['Nazional']:=
form5.edit4.Text;
if form5.combobox1.ItemIndex=0
then form4.ADOTable1.FieldValues['Nazional']:='Казах\Казашка';
if form5.combobox1.ItemIndex=1
then form4.ADOTable1.FieldValues['Nazional']:='Русский\Русская';
if form5.combobox1.ItemIndex=2
then form4.ADOTable1.FieldValues['Nazional']:='Украин\Украинка';
form4.ADOTable1.Post;
form4.ADOTable2.Edit;
form4.ADOTable2.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form4.ADOTable2.FieldValues['MesRozhGos']:=form5.edit7.Text;
form4.ADOTable2.FieldValues['Oblost']:=form5.edit8.Text;
form4.ADOTable2.FieldValues['Raion']:=form5.edit9.Text;
form4.ADOTable2.FieldValues['Selo']:=form5.edit10.Text;
form4.ADOTable2.FieldValues['Uliza']:=form5.edit11.Text;
form4.ADOTable2.FieldValues['Dom']:=form5.edit12.Text;
form4.ADOTable2.FieldValues['Kvart']:=form5.edit13.Text;
form4.ADOTable2.Post;
form4.ADOTable3.Edit;
form4.ADOTable3.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form4.ADOTable3.FieldValues['MesPoslRigistrGos']:=form5.edit14.Text;
form4.ADOTable3.FieldValues['Oblost']:=form5.edit15.Text;
form4.ADOTable3.FieldValues['Raion']:=form5.edit16.Text;
form4.ADOTable3.FieldValues['Selo']:=form5.edit17.Text;
form4.ADOTable3.FieldValues['Uliza']:=form5.edit18.Text;
form4.ADOTable3.FieldValues['Dom']:=form5.edit19.Text;
form4.ADOTable3.FieldValues['Kvart']:=form5.edit20.Text;
form4.ADOTable3.Post;
form4.ADOTable4.Edit;
form4.ADOTable4.FieldValues['№']:=form3.ADOTable1.FieldValues['№Udos'];
form4.ADOTable4.FieldValues['MesUbitiaGos']:=form5.edit21.Text;
form4.ADOTable4.FieldValues['Oblost']:=form5.edit22.Text;
form4.ADOTable4.FieldValues['Raion']:=form5.edit23.Text;
form4.ADOTable4.FieldValues['Selo']:=form5.edit24.Text;
form4.ADOTable4.FieldValues['Uliza']:=form5.edit25.Text;
form4.ADOTable4.FieldValues['Dom']:=form5.edit26.Text;
form4.ADOTable4.FieldValues['Kvart']:=form5.edit27.Text;
form4.ADOTable4.Post;
form4.ADOTable1.Active:=false;
form4.ADOTable1.Active:=true;
form5.Close;
end;
end;
procedure TForm5.Button4Click(Sender: TObject);
begin
form5.Close;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
form5.Close
end;
procedure TForm5.ComboBox1Change(Sender: TObject);
begin
if combobox1.ItemIndex=3 then begin
edit4.Enabled:=true;
end;
end;
procedure ... TObject; var Key: ... key ... ... ... TObject; var Key: ... key ... key:=#0;
end;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Spin, TeEngine, Series, ExtCtrls, TeeProcs, Chart,
DbChart, Menus;
type
TForm6 = ... ... ... ... ... ... TBarSeries;
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
PrintDialog1: TPrintDialog;
MainMenu1: ... ... ... ... ... Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... unit3,unit4,unit2, Unit1;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
Var i,j,l,k,g,m,m1,mm,mm1:integer;
begin
//dbchart1.Title.Text.Clear;
dbchart1.Series[0].Clear;
//dbchart2.Title.Text.Clear;
dbchart2.Series[0].Clear;
l:=0; m:=0;m1:=0;
for i:=1 to form3.adotable1.RecordCount do
begin
form3.ADOTable1.RecNo:=i;
l:=l+form3.adotable1.FieldValues['KolDeti'] ;
if form3.adotable1.FieldValues['Pol']='Мужской' then m:=m+1
else m1:=m1+1;
end;
k:=0;mm:=0;mm1:=0;
for j:=1 to form4.adotable1.RecordCount ... ;
if ... then ... mm1:=m1+1;
end;
if checkbox1.Checked=true then
dbchart1.Series[0].Add(form3.adotable1.RecordCount+l,'Общее кол.
прибывших',clred);
if checkbox2.Checked=true then dbchart1.Series[0].Add(m,'кол.
мужчин',clBlue);
if checkbox3.Checked=true then ... ... then ... ... ... ... ... then dbchart2.Series[0].Add(mm,'кол.
мужчин',clBlue);
if checkbox7.Checked=true then dbchart2.Series[0].Add(mm1,'кол.
женшин',clLime);
if checkbox8.Checked=true then dbchart2.Series[0].Add(k,'кол.
детей',clgreen);
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
form6.Close;
form2.Show;
end;
procedure TForm6.N4Click(Sender: TObject);
begin
dbChart1.Print; dbChart2.Print;
end;
procedure TForm6.N2Click(Sender: ... ... ... ... ... ... из ... mtConfirmation, [mbYes,
mbNo], 0) = mrYes then form1.Close;
end;
end.
unit ... ... ... ... Classes, ... ... StdCtrls,ComObj,unit3;
type
TForm7 = class(TForm)
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations ... ... ... ... TForm7.Button1Click(Sender: TObject);
var XLApp,Sheet,Colum:Variant;
index,i,rt:Integer;
begin
try
if vibor=1 then begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=False;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Список прибывших людей';
Sleep(500);
Colum:=XLApp.Workbooks[1].WorkSheets['Список прибывших людей'].Columns;
Sheet:=XLApp.Workbooks[1].WorkSheets['Список прибывших людей'];
Sheet.Cells[2,1]:='Фамилия';
Sheet.Cells[2,2]:='Имя';
Sheet.Cells[2,3]:='Отчество';
Sheet.Cells[2,4]:='Дата рождения';
Sheet.Cells[2,5]:='Пол';
Sheet.Cells[2,6]:='Национальность';
Sheet.Cells[2,7]:='№ удостоверения личности';
Sheet.Cells[2,8]:='Дата выдачи удостоверения';
Sheet.Cells[2,9]:='Наименование выдавшего ... ... ... в Миг.полиций';
For i:=1 to 11 do begin
Sheet.Cells[2,i].Borders.LineStyle := 1;
Sheet.Cells[2,i].Borders.Weight := ... := ... index:=0 to ... do begin
form3.ADOTable1.RecNo:=index+1;
Sheet.Cells[index+3,1]:=form3.ADOTable1.Fields.Fields[0].AsString;
Sheet.Cells[index+3,2]:=form3.ADOTable1.Fields.Fields[1].AsString;
Sheet.Cells[index+3,3]:=form3.ADOTable1.Fields.Fields[2].AsString;
Sheet.Cells[index+3,4]:=form3.ADOTable1.Fields.Fields[3].AsString;
Sheet.Cells[index+3,5]:=form3.ADOTable1.Fields.Fields[4].AsString;
Sheet.Cells[index+3,6]:=form3.ADOTable1.Fields.Fields[5].AsString;
Sheet.Cells[index+3,7]:=form3.ADOTable1.Fields.Fields[6].AsString;
Sheet.Cells[index+3,8]:=form3.ADOTable1.Fields.Fields[7].AsString;
Sheet.Cells[index+3,9]:=form3.ADOTable1.Fields.Fields[8].AsString;
Sheet.Cells[index+3,10]:=form3.ADOTable1.Fields.Fields[10].AsString;
Sheet.Cells[index+3,11]:=form3.ADOTable1.Fields.Fields[9].AsString;
For i:=1 to 11 do begin
Sheet.Cells[index+3,i].Borders.LineStyle := 3;
Sheet.Cells[index+3,i].Borders.Weight := 2;
Sheet.Cells[index+3,i].Borders[4].ColorIndex := 1;
Sheet.Columns.Item[i].Autofit;
end;
end;
form3.ADOTable1.Next;
rt:=0;
if (checkbox2.Checked= true)and(checkbox3.Checked= true)
and(checkbox4.Checked= true)
then rt:=0
else if ... ... ... rt:=7 else if ... true)
then rt:=14 else if (checkbox2.Checked= true)and(checkbox3.Checked= true)
and(checkbox2.Checked=false)
then rt:=0 else if ... ... ... true)
then rt:=7;
if checkbox2.Checked= true then
begin
Sheet.Cells[1,12]:='Место рождения';
Sheet.Cells[2,12]:='Государство';
Sheet.Cells[2,13]:='Облость';
Sheet.Cells[2,14]:='Район';
Sheet.Cells[2,15]:='Село';
Sheet.Cells[2,16]:='Улица';
Sheet.Cells[2,17]:='Дом';
Sheet.Cells[2,18]:='Квартира';
For i:=12 to 18 do ... := ... := ... := ... index:=0 to ... do begin
form3.ADOTable2.RecNo:=index+1;
Sheet.Cells[index+3,12]:=form3.ADOTable2.Fields.Fields[1].AsString;
Sheet.Cells[index+3,13]:=form3.ADOTable2.Fields.Fields[2].AsString;
Sheet.Cells[index+3,14]:=form3.ADOTable2.Fields.Fields[3].AsString;
Sheet.Cells[index+3,15]:=form3.ADOTable2.Fields.Fields[4].AsString;
Sheet.Cells[index+3,16]:=form3.ADOTable2.Fields.Fields[5].AsString;
Sheet.Cells[index+3,17]:=form3.ADOTable2.Fields.Fields[6].AsString;
Sheet.Cells[index+3,18]:=form3.ADOTable2.Fields.Fields[7].AsString;
For i:=12 to 18 do begin
Sheet.Cells[index+3,i].Borders.LineStyle := 3;
Sheet.Cells[index+3,i].Borders.Weight := 2;
Sheet.Cells[index+3,i].Borders[4].ColorIndex := 1;
Sheet.Columns.Item[i].Autofit;
end;
end;
form3.ADOTable2.Next;
end;
if checkbox3.Checked= true then
begin
Sheet.Cells[1,19-rt]:='место последней';
Sheet.Cells[1,20-rt]:='регистраций';
Sheet.Cells[2,19-rt]:='Государство';
Sheet.Cells[2,20-rt]:='Облость';
Sheet.Cells[2,21-rt]:='Район';
Sheet.Cells[2,22-rt]:='Село';
Sheet.Cells[2,23-rt]:='Улица';
Sheet.Cells[2,24-rt]:='Дом';
Sheet.Cells[2,25-rt]:='Квартира';
For i:=19-rt to 25-rt do ... := ... := ... := ... index:=0 to ... do ... i:=19-rt to 25-rt do begin
Sheet.Cells[index+3,i].Borders.LineStyle := 3;
Sheet.Cells[index+3,i].Borders.Weight := 2;
Sheet.Cells[index+3,i].Borders[4].ColorIndex := 1;
Sheet.Columns.Item[i].Autofit;
end;
end;
form3.ADOTable3.Next;
end;
if checkbox4.Checked= true ... ... i:=26-rt to 32-rt do ... := 1;
Sheet.Cells[2,i].Borders.Weight := 3;
Sheet.Cells[2,i].Borders[4].ColorIndex := 1;
Sheet.Columns.Item[i].Autofit;
end;
form3.ADOTable4.First;
For index:=0 to form3.ADOTable4.RecordCount-1 do ... i:=26-rt to 32-rt do ... := ... := ... := 1;
Sheet.Columns.Item[i].Autofit;
end;
end;
form3.ADOTable4.Next;
end;
end else ////
if vibor=2 then
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=False;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Список выбывших людей';
Sleep(500);
Colum:=XLApp.Workbooks[1].WorkSheets['Список выбывших людей'].Columns;
Sheet:=XLApp.Workbooks[1].WorkSheets['Список выбывших людей'];
Sheet.Cells[2,1]:='Фамилия';
Sheet.Cells[2,2]:='Имя';
Sheet.Cells[2,3]:='Отчество';
Sheet.Cells[2,4]:='Дата рождения';
Sheet.Cells[2,5]:='Пол';
Sheet.Cells[2,6]:='Национальность';
Sheet.Cells[2,7]:='№ удостоверения личности';
Sheet.Cells[2,8]:='Дата выдачи удостоверения';
Sheet.Cells[2,9]:='Наименование выдавшего ... ... ... в ... i:=1 to 11 do ... := ... := 3;
Sheet.Cells[2,i].Borders[4].ColorIndex := 1;
Sheet.Columns.Item[i].Autofit;
end;
form4.ADOTable1.First;
For index:=0 to form4.ADOTable1.RecordCount-1 do begin
form4.ADOTable1.RecNo:=index+1;
Sheet.Cells[index+3,1]:=form4.ADOTable1.Fields.Fields[0].AsString;
Sheet.Cells[index+3,2]:=form4.ADOTable1.Fields.Fields[1].AsString;
Sheet.Cells[index+3,3]:=form4.ADOTable1.Fields.Fields[2].AsString;
Sheet.Cells[index+3,4]:=form4.ADOTable1.Fields.Fields[3].AsString;
Sheet.Cells[index+3,5]:=form4.ADOTable1.Fields.Fields[4].AsString;
Sheet.Cells[index+3,6]:=form4.ADOTable1.Fields.Fields[5].AsString;
Sheet.Cells[index+3,7]:=form4.ADOTable1.Fields.Fields[6].AsString;
Sheet.Cells[index+3,8]:=form4.ADOTable1.Fields.Fields[7].AsString;
Sheet.Cells[index+3,9]:=form4.ADOTable1.Fields.Fields[8].AsString;
Sheet.Cells[index+3,10]:=form4.ADOTable1.Fields.Fields[10].AsString;
Sheet.Cells[index+3,11]:=form4.ADOTable1.Fields.Fields[9].AsString;
For i:=1 to 11 do begin
Sheet.Cells[index+3,i].Borders.LineStyle := 3;
Sheet.Cells[index+3,i].Borders.Weight := 2;
Sheet.Cells[index+3,i].Borders[4].ColorIndex := ... ... ... ... ... rt:=0
else if (checkbox2.Checked=false)and(checkbox3.Checked= true)
and(checkbox4.Checked= true)
then rt:=7 else if (checkbox2.Checked=false)and(checkbox3.Checked=false)
and(checkbox2.Checked= true)
then rt:=14 else if ... ... ... rt:=0 else if ... ... false)
and(checkbox2.Checked= true)
then rt:=7;
if checkbox2.Checked= true then
begin
Sheet.Cells[1,12]:='Место рождения';
Sheet.Cells[2,12]:='Государство';
Sheet.Cells[2,13]:='Облость';
Sheet.Cells[2,14]:='Район';
Sheet.Cells[2,15]:='Село';
Sheet.Cells[2,16]:='Улица';
Sheet.Cells[2,17]:='Дом';
Sheet.Cells[2,18]:='Квартира';
For i:=12 to 18 do ... := ... := ... := ... index:=0 to ... do begin
form4.ADOTable2.RecNo:=index+1;
Sheet.Cells[index+3,12]:=form4.ADOTable2.Fields.Fields[1].AsString;
Sheet.Cells[index+3,13]:=form4.ADOTable2.Fields.Fields[2].AsString;
Sheet.Cells[index+3,14]:=form4.ADOTable2.Fields.Fields[3].AsString;
Sheet.Cells[index+3,15]:=form4.ADOTable2.Fields.Fields[4].AsString;
Sheet.Cells[index+3,16]:=form4.ADOTable2.Fields.Fields[5].AsString;
Sheet.Cells[index+3,17]:=form4.ADOTable2.Fields.Fields[6].AsString;
Sheet.Cells[index+3,18]:=form4.ADOTable2.Fields.Fields[7].AsString;
For i:=12 to 18 do begin
Sheet.Cells[index+3,i].Borders.LineStyle := 3;
Sheet.Cells[index+3,i].Borders.Weight := 2;
Sheet.Cells[index+3,i].Borders[4].ColorIndex := 1;
Sheet.Columns.Item[i].Autofit;
end;
end;
form4.ADOTable2.Next;
end;
if checkbox3.Checked= true then
begin
Sheet.Cells[1,19-rt]:='место последней';
Sheet.Cells[1,20-rt]:='регистраций';
Sheet.Cells[2,19-rt]:='Государство';
Sheet.Cells[2,20-rt]:='Облость';
Sheet.Cells[2,21-rt]:='Район';
Sheet.Cells[2,22-rt]:='Село';
Sheet.Cells[2,23-rt]:='Улица';
Sheet.Cells[2,24-rt]:='Дом';
Sheet.Cells[2,25-rt]:='Квартира';
For i:=19-rt to 25-rt do ... := ... := ... := ... index:=0 to ... do ... i:=19-rt to 25-rt do begin
Sheet.Cells[index+3,i].Borders.LineStyle := 3;
Sheet.Cells[index+3,i].Borders.Weight := 2;
Sheet.Cells[index+3,i].Borders[4].ColorIndex := 1;
Sheet.Columns.Item[i].Autofit;
end;
end;
form4.ADOTable3.Next;
//
if checkbox4.Checked= true ... ... i:=26-rt to 32-rt do ... := ... := ... := ... index:=0 to ... do begin
form4.ADOTable4.RecNo:=index+1;
Sheet.Cells[index+3,26-
rt]:=form4.ADOTable4.Fields.Fields[1].AsString;
Sheet.Cells[index+3,27-
rt]:=form4.ADOTable4.Fields.Fields[2].AsString;
Sheet.Cells[index+3,28-
rt]:=form4.ADOTable4.Fields.Fields[3].AsString;
Sheet.Cells[index+3,29-
rt]:=form4.ADOTable4.Fields.Fields[4].AsString;
Sheet.Cells[index+3,30-
rt]:=form4.ADOTable4.Fields.Fields[5].AsString;
Sheet.Cells[index+3,31-
rt]:=form4.ADOTable4.Fields.Fields[6].AsString;
Sheet.Cells[index+3,32-
rt]:=form4.ADOTable4.Fields.Fields[7].AsString;
For i:=26-rt to 32-rt do begin
Sheet.Cells[index+3,i].Borders.LineStyle := 3;
Sheet.Cells[index+3,i].Borders.Weight := 2;
Sheet.Cells[index+3,i].Borders[4].ColorIndex := ... ... ... ... ... Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Mask;
type
TForm8 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
MaskEdit1: TMaskEdit;
procedure ... ... ... ... ... TObject; var Key: ... Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses unit3, Unit1,unit4,unit2;
{$R *.dfm}
procedure TForm8.Button2Click(Sender: TObject);
begin
form8.MaskEdit1.Text:=' . . ... ... ... vibor=1 then ... vib=1 ... ... vib=2 then
begin
form3.ADOTable1.Filtered:=false;
form3.ADOTable1.Filter:='GodR='''+maskedit1.Text+'''';
form3.ADOTable1.Filtered:=true;
end else
if vib=3 then
begin
form3.ADOTable1.Filtered:=false;
form3.ADOTable1.Filter:='DataRegist='''+maskedit1.Text+'''';
form3.ADOTable1.Filtered:=true;
end ;
end else
if vibor=2 then
begin
if vib=1 then
begin
form4.ADOTable1.Filtered:=false;
form4.ADOTable1.Filter:='Fam='''+edit1.Text+'''';
form4.ADOTable1.Filtered:=true;
end else
if vib=2 then
begin
form4.ADOTable1.Filtered:=false;
form4.ADOTable1.Filter:='GodR='''+maskedit1.Text+'''';
form4.ADOTable1.Filtered:=true;
end else
if vib=3 then
begin
form4.ADOTable1.Filtered:=false;
form4.ADOTable1.Filter:='DataRegist='''+maskedit1.Text+'''';
form4.ADOTable1.Filtered:=true;
end ;
end;
form8.MaskEdit1.Text:=' . . ... ... TObject; var Key: ... key ... ... ... Windows, ... Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, jpeg;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
private
{ Private ... ... Public ... ... ... ...

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 46 бет
Бұл жұмыстың бағасы: 500 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Конфликт және оның шешу жолдары42 бет
Психотерапиядағы арт-терапия45 бет
Мәліметтер14 бет
Статистикалық сынау4 бет
3DS Max3 бет
Excel-де жұмыс істеу. электронды кестелерді әзірлеу5 бет
Norton Commander бағдарламасы5 бет
«Nornot Commander бағдарламасы5 бет
«Қазақстан-2030» стратегиялық бағдарламасының орындалуы51 бет
Жекешелендіру жайлы4 бет


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


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

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

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

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

Email: info@stud.kz

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

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