Деректер үлгісі

 АҢДАТПА
Дипломдық жобада қарасты рылатын жүйені, қазіргі кезде барлық орта
Тұрғын үйлердің құрылысы қарқынды қадаммен өсіп бара жатқандығына байланысты,
Бұл дипломдық жобада жүйені енгізудің экономикалық тиімділік және еңбек
АННОТАЦИЯ
Разработанная в данном дипломном проекте система, подходит для решения
В связи с стремительным ростом строительства жилых домов. Предоставляется
В данном дипломном проекте рассчитана экономическая эффективность внедрения системы,
ANNOTATION
The system developed in the given degree project, approaches
In connection with prompt growth of building construction. The
In the given degree project economic efficiency of introduction
МАЗМҰНЫ
Тапсырма 2
Мазмұны 7
Кіріспе
1 Талаптарды анықтау 11
1.1 Жобалаудың тағайындалуы 11
1.2 Сенімділікке талаптар
1.2.1 Тиімділік 11
1.2.2 Сенімділік
1.2.3 Сынаулық 12
1.3 Функционалдық сипаттамаларына талаптар 12
1.3.1 Орындалатын функциялардың құрамына талаптар 12
1.3.2 Кіріс мәліметтер ұйымдастыруына талаптар 12
1.3.3 Шығыс мәліметтер ұйымдастыруына талаптар 14
1.4 Пайдалану шарттары 14
1.5 Ақпараттық және программалық сәйкестілік 14
1.6 Бағдарламалық құжаттарға талаптар 14
1.7 Бақылау мен қабылдау тәртібі
1.8 Жетілдірудің этаптары мен кезеңдері 15
2 Дерек қорын жобалау 16
2.1 Заттық аймақтың анализі 16
2.2 Жобалау әдісі 17
2.3 Деректер үлгісі 19
2.3.1 Иерархиялық деректер үлгісі 19
2.3.2 Желілік деректер үлгісі
2.3.3 Реляциялық деректер үлгісі
2.3.4 Қатынастардың қалыптылығы
2.3.5 «Зат- байланыс» диаграммасы
2.4 ДҚ-ның концептуалдық, логикалық және физикалық жобалауы
2.4.1 ДҚ-ның концептуалдық жоба
2.4.2 Деректер қорының логикалық үлгісін жобалау
2.4.3 Деректер қорының физикалық үлгісін жобалау
3 Жобалау 31
3.1 Жобаны құру 31
3.2 Қолдану варианттар диаграммасын құру
3.2.1 Қолдану варианттарды анықтау 32
3.3 Кластар диаграммасын құру
3.4 Тізбек диаграммасын модельдеу
3.5 Кооперативті диаграммалар
3.6 Тізбектік және кооперативті диаграммаларды салыстыру 40
3.7 Қызмет диаграммасы
4 Программалық іске асыруды сипаттау 42
4.1 Операциялық жүйені таңдауды негіздеу 42
4.2 Программалау тілін таңдауды негіздеу 42
4.3 Программа сипаты
4.3.1 Менюда жұмыс істеу
4.3.2 Жаңа деректерді енгізу
4.4 Жүйелік программистке нұсқау 47
4.5 Операторға нұсқау
5 Программалық қолданбаның экономикалық тиімділікті есептеу
5.1 Жалақыға кететін шығынды анықтау
5.1.2 Салықтарды есептеу
5.1.2.1 Әлеуметтік салықты есептеу
5.1.2.2 Табыстан алынатын салықты(подоходный налог) есептеу
5.1.2.3 Пенсиондық алымдар
5.1.3 Материалдарға жұмсалатын шығындар
5.1.4 Ғылыми зерттеу жұмыстарына қажет арнайы аппараттарға кететін шығындар
5.1.5 Басқа шығындар
5.2 Программалық қамтаманы енгізудің тиімділігін есептеу
5.2.1Енгізуге дейін шығынды есептеу 56
5.2.2 Жүйені енгізуден кейін шығынды есептеу 56
5.2.3 Расчет затрат на написание и отладку программы 57
5.2.3 Енгізуден кейін экономикалық шығындарды есептеу
5.2.3.1 Енгізуден кейін шығын экономиясы
5.2.3.2 Жүйенің өтеу мерзімі
5.2.3.3 Жылдық экономикалық эффект
6 Еңбекті қорғау
6.1 Қауіпті және зиянды өңдірістік факторларды талдау
6.2 Қорғаныс шаралары
6.2.1 Өндірістік санитария
6.2.2 Микроклимат
6.2.3 Электромагниттік өрістер
6.3 Өрт қауіпсіздігі
6.3.1 Өрт қауіпсіздігіне нормалар
6.4 Шуылды төмендететін құрылғылар
6.5 Жұмыс орнының жарықталуы
6.5.1 Жұмыс орнының табиғи жарықтануына нормалар
6.5.2 Жұмыс орнының табиғи жарықталуын есептеу 65
6.6 Электр қауіпсіздігі 67
6.6.1 Электр қауіпсіздік техникасы 67
6.7 Жерлеуіш контурының жалпы кедергісін анықтау
6.8 Бөлме-жайды желдетуді есептеу 69
Қорытынды
Пайдаланған әдебиеттер тізімі
Қосымша А
Қосымша Б
Қосымша В 81
Қосымша Г
КІРІСПЕ
Тұрғын үйлерге сұрыныстың өсуіне байланысты, сатып алушыға, сатушыға, пәтерлерді
Программалық-ақпараттық жүйе, клиенттің мәліметтер жиынтығына сүйеніп, серверлік продукт болу
Комплекс жылжымайтын мүлік агенттігікте, мүлікпен жұмыс істейтін агенттерге қолдануға
Енгізілетін мәліметтер алғашқы документтер түрінде берілу керек, оларды жүйеге
Қолданушылар заттық аймақты жақсы білу керек және ОС Windows
Программаны орнатқан кезде комплексті қабылдайды және тестейді. Программаның дұрыс
Бұл программа әр талғамға байланысты сәйкес автоматты түрде сататын,
1 Талаптарды анықтау
1.1 Жобалаудың тағайындалуы
Тұрғын үйлерге сұрыныстың өсуіне байланысты, сатып алушыға, сатушыға, пәтерлерді
іздеу нәтижелерін отчет түрінде көрсету;
пәтерлер туралы архивті құрастыру;
клиенттер туралы архивті құрастыру;
керекті информацияны клиенттке жеткізу;
Пәтерлер туралы архив – пәтерлер туралы барлық мәліметтер (бөлмелер
1.2 Сенімділікке талаптар
1.2.1 Тиімділік
Интерактивті режимде тиімді жұмыс істеу үшін келесі шарттар орындалу
сұранысқа жауап 1-2 секундта қайтарылу керек;
ақпарат енгізуді минимизациялау;
қолданушыға ағымды процесстер мен жұмыстың жасалу қадамдары туралы динамикалық
қолдану процессінде пайда болатын қателер туралы ақпаратпен жұмысты қадағалау.
1.2.2 Сенімділік
Программалық-ақпараттық жүйе, клиенттің мәліметтер жиынтығына сүйеніп, серверлік продукт болу
Клиенттің түсінікті графикалық интерфейс және контексті-тәуелді сыбыр программаларды қолданушыларға,
Комплекс жылжымайтын мүлік агенттігікте, мүлікпен жұмыс істейтін агенттерге қолдануға
Комплекстің тұрақты жұмыс істеуіне қамтамасыз ету үшін:
енгізілген мәліметтерге мүмкін мағына диапазонында тексеріс жасау;
кестелер жиынтығының структурасына өзгеріс жасауға тексеріс жасау керек;
компьютердің жұмысында сбой болғанда, ақпараттың қалпына келуін қамтамасыз ету;
программаның жұмысын қате пайда болған кезде тоқтатпау – қате
1.3.3 Сынаулық
Жүйе әр бір қолдану вариантында сынақтан өту керек. Сонымен
Жүйе жұмыс қабілеттілікке тез тексерілетін, және де арнайы тесттер
1.3 Функционалдық сипаттамаларына талаптар
1.3.1 Орындалатын функциялардың құрамына талаптар
Комплекста бір пәтерлер подсистемасы бар. Ол келесі функцияларды орындайды:
1.3.2 Кіріс мәліметтер ұйымдастыруына талаптар
Енгізілетін мәліметтер алғашқы документтер түрінде берілу керек, оларды жүйеге
а) Пәтерді арендаға беру:
Бөлмелер саны;
Пәтердің қалпы;
Байланыс түрі;
Теледидар;
Бағасы;
Төлеу түрі;
Тұрған көшесі;
Клиенттің аты,
Клиенттің телефоны;
Үй түрі;
б) Пәтерді арендаға алу:
Бөлмелер саны;
Пәтердің қалпы;
Байланыс түрі;
Теледидар;
Бағасы;
Төлеу түрі;
Тұрған көшесі;
Клиенттің аты,
Клиенттің телефоны;
Үй түрі;
в) Пәтерді сату:
Бөлмелер саны
Пәтердің қабаты
Пәтердің жоспарлауы
Пәтердің қалпы
Есіктері
Бағасы
Төлеу түрі
Орналасқан ауданы
Клиенттің аты
Клиенттің телефоны
Үй түрі
Интерьері
г) Пәтерді сатып алу:
Бөлмелер саны
Пәтердің қабаты
Пәтердің жоспарлауы
Пәтердің қалпы
Есіктері
Бағасы
Орналасқан ауданы
Клиенттің аты
Клиенттің телефоны
Үй түрі
1.3.3 Шығыс мәліметтер ұйымдастыруына талаптар
Шығарылатын мәліметтер, алғашқы документтердің электронды версиялары, мәліметтер таблицасы түрінде
1.4 Пайдалану шарттары
Осы программалық өнімнің ойдағыдай пайдалану үшін - Windows
1.5 Ақпараттық және программалық сәйкестілік
Комплекс шарттарға байланысты құрылу керек. Программаның барлық блоктары минимальды
Шығарылатын және аралық файлдар ретінде, басқа прогараммалық өнімдермен қолдануға
1.6 Бағдарламалық құжаттарға талаптар
Қарастырып отырған программалық өнім келесі құжаттармен қоса жіберіледі:
а) техникалық тапсырма;
б) техникалық жоба;
в) программа тексі;
г) программаның баяндауы;
д) қолданушы басшылығы (руководство пользователя).
1.7 Бақылау мен қабылдау тәртібі
Программаны орнатқан кезде комплексті қабылдайды және тестейді. Программаның дұрыс
1.8 Жетілдірудің этаптары мен кезеңдері
Жетілдірудің негізгі этаптары 1.1 кестеде келтірілген
Кесте 1.1- Жетілдірудің этаптары мен кезеңдері
Этаптың мазмұны Жобалық құжат Жетілдіру мерзімі
Талаптардың анықталуы Техникалық тапсырма 05.03.2006ж.
Алгоритмдерді анықтау Техникалық жоба 27.03.2006ж.
Анализ және жобалау Диаграммалар 06.04.2006ж.
Тестілеу, түзету және реализациялау Тестердің нәтижесі, бағдарламаның тексті 27.04.2006ж.
Бағдарламаның бейнелуі Қолданушының нұсқауы 10.05.2006ж.
2 Дерек қорын жобалау
Әр қолданбалы программа шын өмірдің бөлігінің бейнесі болады, сондықтан
деректердің және олардың бейнелеулердің физикалық орналасуы;
деректерді іздеу;
деректер қорын актуальды күйде ұстау;
бұрыс жаңартудан және санкциялданбаған қатынаудан деректерді қорғау;
бір уақытта бірнеше қолданушылардан келетін сұраныстарды қызметтеу;
«Клиент-сервер» архитектурасында ДҚБЖ қолданушылардың сұраныстарын желі арқылы қабылдайды және
2.1 Заттық аймақтың анализі
Оптималдық есеп келесі параметрлермен анықталады:
бөлмелер саны. Бөлмелер қандай да бір пәтерде болады. Бір
пәтердің қабаты. Кез-келген сандар болады. Мысалы: «2/5» немесе «3/9».
планировкасы. Әр пәтердің өзіне сай планировкасы болады. Планировка мәні
күйі. Кез-келген символдық ақпарат. Мысалы: после ремонта, косметический, без
дәретханасы. Кез-келген символдық ақпарат, мысалы «раздельный» немесе «совместный».
байлансы түрі. Байланыс түрінде кез-келген символдық ақпарат болады. Мысалы:
теледидар. Жалға беретін пәтерде теледидар болуы мүмкін, яғни ол
есіктері. Пәтердегі есіктердің түрін туралы ақпарат. Ол да кез-келген
бағасы. Әр пәтердің, сатуға, сатып алуға, жалға беру немесе
төлеу түрі. Төлеу түрін анықтайды.
ауданы. Сатуға, сатып алуға, жалға беруге немесе жалға алынған
көшесі. Пәтердің орналасқан көшесін көрсетеді. Кез-келген символдық ақпарат.
клиенттің аты. Кез-келген символдар жиыннан тұрады.
клиенттің телефоны. Кез-келген сандардан құралады.
желание. Бұл агенттікке келген клиенттің «сату», «сатып алу», «жалға
Бұл дипломдық жоба есептің мәнісі – клиенттің талағмы бойынша
Әр пәтерде бірнеше бөлмелер болады. Пәтердің қабаты, планировкасы, күйі,
Деректер қорын жобалау үшін, алғашынан мәліметтерді сақтауының сенімділігін және
Деректер үлгісі мәліметтердің тәуелсіздігін қамтамасыз ету керек.
2.2 Жобалау әдісі
Әдіс- бұл жетілдірілетін бағдарламалық жүйенің әр түрлі жақтарын анықталған
олар күрделі бағдарламалық жүйелерді құру процесін реттейді;
олардың көмегімен менеджерлер жетілдіру процесс кезінде жылжу дәрежесін және
Әдетте жобалау әдістері үш негізгі топқа бөлінеді:
жоғарыдан төменге жобалау әдісі;
деректер ағымы әдісі;
объектілі- бағытталған жобалау.
Құрылымдық жобалау үшін алгоритмдік декомпозиция тән. Бағдарламалардың көбісі осы
Деректер ағымы әдісінде бағдарламалық жүйе кіру ағымдарын шығу ағымдарына
Объектілі- бағытталған жобалау (object-oriented design, OOD)- бұл әдістің негізінде,
абстрагирлеу;
инкапсуляция;
модульдік;
иерархия.
Абстрагирлеу- жобаланатын объектіні басқа объектілерден өзгешелететін сипаттамаларды белгілеуге мүмкіндік
Инкапсуляция- объектінің құрылымы мен тәртібін анықтайтын элементтерін бір- бірінен
Модульдік- ішкі, бірақ әлсіз өзара байланысқан модульдерге бөлінген жүйенің
Иерархия- абстракцияларды реттеу, яғни оларды дәреже бойынша жатқызу.
Абстракция мен инкапсуляция бірін- бірі толықтырады. Абстракциялау объектінің тәртібін
Жобалаудың бұл элементтерін пайдалану кез келген жобаланатын жүйенің өнімділігін
2.3 Деректер үлгісі
ДҚ-ның құрылымы, оның негізіне салынған деректер үлгісімен анықталады. ДҚ-ның
2.3.1 Иерархиялық деректер үлгісі
Иерархиялық үлгі объектілердің иерархия принципі бойынша құралады, яғни объектінің
Физикалық деңгейде бұл үлгіні жетілдіру үшін тізбекті, индексті- тізбекті,
Физикалық деңгейде деректердің көптілігін талап ететін «көп көпке» реализацияның
Басқа кемшіліктер ретінде келесілерді айтуға болады:
жою операциясына үлкен дұрыстығын талап етеді, өйткені қорытынды сегменттің
тудырған сегментіне қатынау тек қорытынды сегмент арқылы ғана жүреді,
2.3.2 Желілік деректер үлгісі
Желі «қатарынан басты және бағынышты тип» принципі бойынша құралады,
Желілік деректер үлгісі- иерархиядан жалпылаған құрылым. Желінің түйіндері ретінде
Желілік деректер үлгісінің негізгі құрылым жиын болады. Сұлбада анықталған
Жиын- жазбаның әр экземпляры жазба- ие экземпляры мен оған
Желілік үлгінің басты кемшілігі жады құрылымның қиындығында болады. Қолданушы
2.3.3 Реляциялық деректер үлгісі
Мәліметтер типі- бұл ұғым, бағдарламалық тілдердегідей мағынаны береді. Барлық
Домен- бұл қарапайым мәліметтер типті потенциалдық деректер жиынтығы. Домен
Қатынас- бұл арнайы көріністі тақырыптан және денеден тұратын екі
Тақырып- бұл фиксирленген атрибуттар жиыны. Олардың әр қайсысы қандай
Мысалы, home_1кестесінде «Бөлмелер саны», «Клиенттің аты», «Пәтердің қабаты»,
Кесте 2.1- home_1 кестесі
Бөлмелер саны Клиенттің аты Пәтердің қабаты Желание ...
2 Дүйсенбек 3/5 Сатып алу ... 250000 ID_1
2 Xасен 5/5 Сату ... 300000 ID_1
3 Мурал 4/9 Жалға беру ... 15000 ID_2
Қатынастың қуаты- оның кортеждердің саны, ал қатынастың дәрежесі- атрибуттың
Қатынастың дәрежесі- осы қатынас үшін тұрақты шама болады, ал
Жоғарыда келтірілген кестеде қатынастың қуаты- 4, ал қатынастың дәрежесі-
Күнделік жұмыста бұл ұғымдардың орнына, олардың эквиваленттері қолданылады:
қатынас- кесте;
атрибут- баған немесе өріс;
кортеж- жазба немесе жол.
Сонымен қатынастың дәрежесі- бұл кестедегі бағанның саны, ал кардинальдық
Қатынас жиын болғандықтан, ал жиындар классикалық теориясы бойынша, жиын
Кілт келесі талаптарға сай болу керек:
уникальды болу керек;
минимальды болу керек, яғни кілттен кез-келген атрибутты жоюы уникальдығының
Әдеттегідей, кілтте атрибуттың саны қатынастың дәрежесінен кіші, бірақ шеткі
Практикада алғашқы кілт ретінде арнайы сандық атрибут- мәнісі ДҚБЖ
2.3.4 Қатынастардың қалыптылығы
Жоғарыда айтылған, деректерді жаңарту аномалияларды болғызбау үшін, ДҚ үлгісі
Бұл мәселені шешу үшін Кодд қатынастарды қалпына келтіру аппаратын
бірінші қалыпты форма (1NF);
екінші қалыпты форма (2NF);
үшінші қалыпты форма (3NF);
Бойс- Коддың қалыпты формасы;
төртінші қалыпты форма (4NF);
бесінші қалыпты форма (5NF).
Қалыпты формалар функционалдық тәуеділік түсінікте негізделген.
Функционалдық тәуелділік (ФТ)- бір қатынастың А атрибуттың әр мәнге
А атрибутты детерминант деп аталады. Детерминанттар құрама болу мүмкін,
Функционалдық тәуелділіктің 3 түрі бар: толық, бөлшектелген және транзитивті.
Атрибут В А детерминанттың атрибуттар жиын бөліктерінен тәуелсіз болатын
Атрибут В А құрама детерминанттың тек бөліктен тәуелді болса,
Егер А, В және С атрибуттар үшін А-В және
Аномалиялар бөлшектелген және транзитивті функционалдық тәуелділіктерге әкеледі. Сондықтан қатынастарды
Теориялық тұрғыдан қарағанда қалпына келтіру процессі- заттық аймақтың барлық
Әр қалыпты форма алдыңғы қалыпты форманың талаптарына түгелдей қанағаттандырады
1-ші қалыпты форма. Қатынас 1-ші қалыпты формада тек сол
2-ші қалыпты форма. 2-ші қалыпты формаға сәйкес болу үшін,
3-ші қалыпты форма транзитивті тәуелділікті жоюды талап етеді. Практикада
Бойс- Коддтың қалыпты формасы әр детерминант мүмкін (ықтимал) кілт
4-ші қалыпты форма. Қатынаста атрибуттың арасында көп мәндес тәуелділіктер
5-ші қалыпты форма практикада қолданылмайды.
2.3.5 «Зат- байланыс» диаграммасы
Реляциялық үлгі ДҚ-ды жобалау үшін өте қолайсыз. Оның орнына
Зат- бұл кез-келген шын немесе елестетілетін, ол туралы ақпаратты
2.1 суретте «Жила» заты көрсетілген. «Жила» заттың типінің
Сату
Сурет 2.1- Заттың мысалы
Байланыс- бұл 2 немесе одан да көп заттың ассоциациясы.
Жалпы жағдайда байланыстың әр ұшында байланыстың дәрежесі қойылады. Байланыстың
бір-бірге. А заттың әр данасына В заттың 0 немесе
бір- көпке. А заттың данасына В заттың 0, 1
көп- көпке. А ұғымның әр затына В ұғымның бірнеше
Байланыстың дәрежесінен басқа, оның тағы қасиеттері бар, олар өмір
Атрибут (қасиет)- заттың атаулы сипаттамасы. Ол- затты анықтау, идентификациялау,
А 1 1 В
А 1 М В
А М М В
(а) (б)
Сурет 2.2- Байланыстың типтері
Мысалы, «Сату» заттың атрибуттары- бөлмелер саны, клиенттің аты, ауданы
2.4 ДҚ-ның концептуалдық, логикалық және физикалық жобалауы
Келтірілген ДҚ-ны жобалау әдісінде жобалау процессі 3 негізгі фазаларға
ДҚ-ны концептуалдық жобалау- іске асырудың қандай да бір физикалық
ДҚ-ны жобалаудың концептуалдық фазасы іске асырудың кез-келген бөліктен толығымен
ДҚ-ны логикалық жобалау- пайдаланылатын ДҚБЖ мен іске асырудың басқа
ДҚ-ны жобалаудың логикалық фазасы таңдалған ДҚБЖ (мысалы қандай да
ДҚ-ны физикалық жобалау- екілік жадыда орналасатын ДҚ-ның нақтылы іске
ДҚ-ны жобалаудың физикалық фазасы жобалаушының құрылған қорды іске асыру
2.4.1 ДҚ-ның концептуалдық жоба
Транзакцияларға талаптар
пәтерлер туралы ақпараты бар жазбаларын құру және өзгерту;
бөлмелердің саны бойынша іздеу;
ауданы бойынша іздеу;
бағасы бойынша іздеу жасау;
жалға берілетің пәтерлер туралы ақпараты бар жазбаларды құру;
жалға алынатын пәтерлер туралы ақпараты бар жазбаларды құру;
сатуға берілетің пәтерлер туралы ақпараты бар жазбаларды құру;
сатып алуға берілетің пәтерлер туралы ақпараты бар жазбаларды құру;
1-ші қадам. Локальды концептуальды деректер үлгісін құру
Локальды концептульды деректер үлгісін жобалауды бастағанда, алдымен, бар спецификацияларын
заттардың типі;
байланыстардың типі;
атрибуттар;
атрибуттардың домендері;
мүмкін болатын кілттер;
алғашқы кілттер.
қадам. Заттардың типтерін анықтау
Бар спецификацияларға қарап, заттардың негізгі типтерін анықтаудан бастаймыз (кесте
Пәтер-Float;
Бөлмелер саны- Rooms;
Планировкасы- Plan;
Күйі- State;
Байланыс түрі- Phone;
Ауданы- Rayon;
Үй түрі- Home;
Дәретханасы- Toilet;
Қызметкер-Staf;
Клиент-FIO;
Пәтердің қабаты- Floor.
қадам. Байланыстардың типтерін анықтау
Бөлек заттардың арасындағы байланыс типтерді анықтау. Әдетте байланыс етістік
Байланыстың 3 негізгі типі бар, олар «бір бірге» (1:1),
Float Has Rooms байланысы. Спецификацияда бұл байланыс келесі сөйлеммен
Кесте 2.2- Белгіленген спецификацияларындағы байланыстың негізгі типтері
Float (пәтер) Has (құрамында бар болу)
Has (құрамында бар болу) Rooms
Plan
Rooms (бөлме) Has (құрамында бар болу) State
Енді біз Rooms мен State заттарының арасындағы байланыс ретінде
Float
1
Сурет 2.3- Байланыстың мысалы
Басқа байланыстарды да осылай тексереміз.
қадам. Атрибуттарды анықтау және оларды заттар типтерімен байланыстыру
Белгіленген атрибуттар мен олардың сәйкес заттарға жатуы туралы
1.4 қадам. Атрибуттардың домендерін анықтау
Домен деп бір немесе бірнеше атрибуттар үшін мүмкін мәндерінің
Кесте 2.3- Заттардың құрамында болатын атрибуттар
Заттың типі Атрибут
Home_1 Rooms (Бөлмелер саны)
Floor(Пәтердің қабаты)
Plan(Пәтердің жоспарлауы)
State(Пәтердің қалпы)
Toilet(Дәретханасы)
Phone(Байланыс түрі)
TV(Теледидар)
Door(Есіктері)
Price(Бағасы)
Payment(Төлеу түрі)
Кесте 2.3- тің жалғасы
Rayon(Орналасқан ауданы)
Street(Тұрған көшесі)
FIO(Клиенттің аты)
Cl_Phone(Клиенттің телефоны)
Want(Желание)
Staf(Қызметкер аты)
Date(Күні)
Time(Уақыты)
Home(Үй түрі)
Prim(Ескертулері)
2.2 қадам. Қалыптылық ережелердің көмегімен деректер үлгісін тексеру
Бұл этапта құрылған қатынастар жиынын қалыптылық процедурасының барлық талаптарына
қатынастардан қайталанған атрибуттар тобын жоюға мүмкіндік беретін 1- ші
атрибуттың алғашқы кілттен толық емес тәуелділікті жоюға мүмкіндік беретін
атрибуттардың алғашқы кілттен транзитивті тәуелділікті жоюға мүмкіндік беретін 3-ші
функционалдық тәуелділіктерден қалған аномалияларды жоюға мүмкіндік беретін Бойс- Коддтың
Қатынастардың әр қайсысы ең болмағанда Бойс- Коддтың қалыпты формасында
2.3 қадам. «зат- байланыс» диаграммасын құру
Деректері заттар (зат аймақтары), атрибуттар және байланыстар түрінде көрсетілген
ER-модельдеудің есебі, деректердің қасиеттер спецификацияларын құруда. Сондықтан ER-модельдеу құрамында
Кесте 2.4- Атрибуттардың домендері туралы ақпарат
Доменнің аты Доменнің сипаттамасы Мүмкін мәндерінің мысалы
Rooms
Floor
Plan
State
Toilet
Phone
TV
Door
Price
Payment
Rayon
Street
FIO
Cl_Phone
Want
Staf
Date
Time
Home
Prim Кез-келген бүтін типті сандар
Ұзындығы 10 символ болатын жол
Ұзындығы 20 символ болатын жол
Ұзындығы 20 символ болатын жол
Ұзындығы 20 символ болатын жол Ұзындығы 20 символ болатын
Ұзындығы 20 символ болатын жол
Кез-келген бүтін типті сандар
Ұзындығы 20 символ болатын жол Ұзындығы 20 символ болатын
Кез-келген бүтін типті сандар
Ұзындығы 20 символ болатын жол Ұзындығы 20 символ болатын
Күні
Уақыты
Ұзындығы 20 символ болатын жол
Ұзындығы 20 символ болатын жол 1
2/5
обычная
евроремонт
раздельный
блакиратор
импортный
бронированная
250000
кредит
медеуский
Правда
дүйсенбек
200890
сдать
ID_1
16.04.06
12:06:52
панельный
сдана до 20.04.06
“Зат-байланыс” модельдің негізгі концепциялары бұл – заттар типтері, байланыстар
ER-модельдеудің негізгі концепциясы – шын дүниедегі бірдей қасиеттері бар,
Зат типі тәуелсіз өмір сүрумен мінезделеді және физикалық түрде
Зат – бірегей түрде идентификацияланатын зат типінің данасы. Зат
Әр зат типі, атымен және қасиеттер тізімімен идентифакияланады. Әдетте,
Әлсіз зат типі – оның өмір сүруі басқа бір
Күшті зат типі – оның өмір сүруі басқа бір
Әлсіз заттарды кейде бағынышты (subordinate) деп атайды, ал күштілерді
Әр күшті зат типі, ішінде зат аты жазылған тік
«Зат- байланыс» диаграммасы қосымша Б-да көрсетілген.
2.4.3 Деректер қорының физикалық үлгісін жобалау
Физикалық жобаны жасауға дейін дерек қордың логикалық үлгісін құру
қатынастың аты;
жақшаға кіргізілген қарапайым атрибуттардың тізімі;
алғашқы кілттерді және (егер ондай болса) альтернативті (АК) және
кез келген сыртқы кілт үшін сілтемелік тұтастылықтың талаптарын анықтау.
Әр атрибут үшін деректер сөздігінде келесі ақпарат болу керек:
мәліметтер типі, атрибуттың ұзындығы және рұқсатылған міндерге әр талап
атрибуттың үнсіздіктен алатын мәндер ( міндетті түрде емес);
келтірілген атрибут үшін NULL мәнін рұқсат ету;
келтірілген атрибут есептелетін атрибут бола ма, егер болса, онда
Деректер қорының кестелерінің жобаларын жазылу кезінде мен домендерді анықтау,
3 Жобалау
3.1 Жобаны құру
Осы дипломдық жобада мүлік агенттігінің технико-экономикалық көрсеткіштерін анықтайтын жүйе
3.2 Қолдану варианттар диаграммасын құру
Алғашқы сатыда (талаптарды құру сатысы) прецеденттердің (қолдану варианттарының) бастапқы
Прецеденттер диаграммаларын құруда бірінші кезекте барлық басты тұлғалардың тізімі
жүйені тікелей қолданатын кім?
жүйенің жұмысына кім жауап береді?
жүйеде қандай сыртқы құралдар қолданылады?
берілген жүйемен әсерлесетін басқа жүйелер бар ма?
Қолдану варианттарын анықтау үшін келесі ұйғарымдар алынады: әрбір қолдану
Сонымен қатар, Прецеденттер жүйеге қойылатын талаптарды сипаттауға, ақырғы
Прецеденттер диаграммасында қолдану вариантымен бірге актер деп аталатын тағы
Кез–келген қолдану варианты жүйенің жұмыс істеуіне қойылған сыртқы талаптармен
Актерлер қолдану нұсқасына қатысты түрлі рөлдерді де ойнай алады.
Қолдану варианты иденфикациялаудың көзі болып сыртқы оқиғалар қызмет атқарады.
Актерлер және қолдану варианты арасындағы байланысқа қосымша, ”қамту” (includes)
3.2.1 Қолдану варианттарды анықтау
Пәтерді сату жөніндегі “Оформление заказа на покупку квартиры”, “информация
Кез келген қолдану варианты жүйесінің жұмыс істеуіне қойылған сыртқы
Орындаушының қолдану нұсқасына қатысты түрлі рөльдерде ойнай алады. олар
Қолдану нұсқасы идентификациялаудың көзі болып сыртқы оқиғалар қызмет атқарады.
Орындаушы және қолдану нұсқасын арасындағы байланысқа қосымша, “қолдану” (uses)
Көрсетілген мысалда, Оформить заказ на покупку квартиры негізгі қолдану
“Кеңейту” және “қолдану” байланыстарының арасындағы ұқсастық пен айырмашылықтар бар.
Байланыстың екі типі орындаушымен жасалған байланыстардың әр түрлі мағынасын
Қолдану варианттары программалау қамтамаға талаптарды құру сатысындағы қажетті құрал
Түрлі құрастырушылар әр түрлі дәрежеде бөлшектенген қолдану варианттарын сипаттайды.
Кейіпкерлердің және қолдану варианттардың тізімі таңдалды.
Кейіпкерлер:
маклер;
клиент.
Қолдану варианттары:
төлем туралы ақпарат;
сатып алушыға ақпарат беру;
төлем түрі;
ауданы;
пәтердің күйі;
байланыс түрі;
төлем шарттарын анықтау;
уақытқа төлеу;
кредит;
ақшалай;
2 бөлмелі пәтерді сатып алу;
сатып алуға тапсырысты қабылдау;
есепті жазу;
1 бөлмелі пәтерді сату;
3 бөлмелі пәтерді жалға беру;
1 бөлмелі пәтерді жалға алу.
Әр қолдану сұлбасын дәлірек қарастырайық.
Қолдану варианттар диаграммасының сипатталуы қосымша В келтірілген.
3.3 Кластар диаграммасын құру
Кластар диаграммасы (Class Diagram) құрылатын жүйе моделінің статикалық құрылымын
Кластар диаграммасы төбелері (вершины) “классификатор” типті элементтері болып табылатын
Класс мәліметтері тұжырымдық сипаты және ”не?” деген сұраққа жауап
Бастапқы мәліметтерді сипаттауда класқа кандидаттар ерекшеленеді. Заттың сипаттамасында олар
Жүйедегі кандидаттар рөлі талданады. Әрбір класс белгілі бір әрекет
әрбір операция бір қарапайым функцияны орындауы қажет;
операцияның аты функциялардың нәтижесін бейнелеуі қажет;
Операцияға мысал: белгі мәнін алу, белгі мәнін тағайындау, басқа
Кластар диаграммасы объектілі бағытталған тәсілдің орталық бөлігі болып табылады.
Статикалық байланыстың негізгі екі түрі бар:
- ассоциациялар;
- жалпылау.
Кластар диаграммасында, сонымен қатар, кластардың атрибуттары, кластардың операциялары және
Кластар диаграммасын тұрғызуды әртүрлі көзқараспен қарастыруға болады:
- тұжырымдық аспект – кластар диаграммасы зерттелетін заттық аумақтың
- спецификациялық көзқарас – үлгі программалық қамтама деңгейіне түсіріледі,
- іске асыру көзқарасы – модель программалық қамтама кластарының
Көзқарастар түсінігінің кластар диаграммасын тұрғызумен қатар оны оқып –
Диаграмма тұрғызуда жалғыз көзқарасты таңдап алу керек. Диаграмманы оқу
Кластар диаграммасы UML- дің ресми бөлігіне жатпағанымен, үлгілерді тұрғызу
Әрбір кластың атрибуттар мен функциялары болады. Диаграмманың тетіктеліну дәрежесіне
:=,
мұндағы көріну белгісінің мәні төменірек сипатталатын операцияларына сәйкес болады.
():
{}
мұндағы көріну-белгісі келесі үш мәннің бірін қабылдай алады:”+” (жалпы),
аты - символдық қатарды береді;
параметрлер тізімінде міндетті емес аргументтер болады, олардың синтаксисі белгілер
мәнді-қайтаратын-өрнек-типі міндетті емес спецификация және нақты бір программалау тіліне
қасиеттер-жолы берілен операцияға қолданылатын қасиеттер мәнін көрсетеді.
Кластар күйін өзгертетін операция мен өзгертпейтін операциялар арасында шекара
Тұжырымдық тұрғыдан ассоциация кластардың арасындағы тұжырымдық байланыстарды береді. Әрбір
Жиынтықтың тәжірибеде кең тараған нұсқасы “1”, “*” ,“0..1” (не
Егер сураныс әдістерін атаудың стандартты келісімі бар болса, онда
Спецификация моделі шеңберінде жалпылаудың мәні – ішкі тип
Іске асыру көзқарасында жалпылау программалық тілдердегі мұрагерлену түсінігімен байланысты.
Агрегация дегеніміз ”бүтін-бөлік” байланысы және модельдеудің жиі қолданылатын әдістерінің
Қарапайым агрегацияға қосымша ретінде UML-де композиция деп аталатын агрегацияның
3.1 кестеде жоба класстардың спецификациясы келтірілген.
Класстар диаграммасының сипатталуы қосымша Б келтірілген.
3.4 Тізбек диаграммасын модельдеу
Тізбек диаграммасы хабардың берілу ретін өте көрнекті түрде бейнелейді.
Тізбек диаграммаларда объект астынғы жағында пунктирлі вертикаль сызығы бар
Кесте 3.1- Класстардың спецификациясы
Аты Пәтер
Жауаптылық Пәтерлер туралы ДҚ құрайды.
Атрибуттар Адресі
Күйі
Планировкасы
Кесте 3.1-дің жалғасы
Бөлмелер саны
Есіктері
Теледидар
Дәретхана
Байланыс түрі
Бағасы
Операциялар Сату
Сатып алу
Жалға беру
Жалға алу
Аты Қызметкер
Жауаптылық Желі бойынша деректер шақыру.
Атрибуттар Аты
Телефон
ID_номері
Операциялар Тапсырысты қабылдау
Есепті жазу
Аты Тапсырыс
Жауаптылық -
Атрибуттар Нөмірі
Алу ауқыты
Төлем түрі
Бағасы
Операциялар -
Аты Клиент
Атрибуттар Аты
Телефоны
Желание
Операциялар Тапсырысты беру
Есепті төлеу
Аты Есеп
Жауаптылық -
Атрибуттар Номері
Уақыты
Сомма
Операциялар Төлеуге жіберу
сызығы деп аталып, объектінің өзара әрекеттесу процесіндегі өмірлік цикл
Екі объектінің арасындағы әрбір хабар олардың өмірлік сызықтары арасындағы
Барлық мүмкін болатын басқарушы ақпараттардың ішіндегі келесі екі түрінің
Тізбек диаграммалары өте қарапайым және көрнекті (бұл олардың негізгі
Тізбек диаграммасын параллель процестерді беру үшін де қолдануға болады.
Тізбек диаграммасында (Қосымша В) қолдану варианты шеңберіндегі оқиғаның даму
Енді осы диаграмманы толығырақ қарастырайық. Осы диаграммада бір-біріне хабарларды
«ЖМ:Жүйелік меню» объектісі «ЖК: Жүйеге кіру» объектіге «шақыру» деген
3.5 Кооперативті диаграммалар
Өзара әсер диаграммасының келесі түрі – кооперативті диаграмма. Мұнда
Кооперативті диаграмма үшін нөмірлеудің бірнеше варианттарының бірін қолдануға болады.
3.6 Тізбектік және кооперативті диаграммаларды салыстыру
Тізбектік диаграммаларда хабарлардың тізбегіне зер салынып, ондағы түрлі оқиғалардың
Өзара әсер диаграммасының кез-келген формасының қарапайымдалығы олардың тұғырнамалық қасиетінен
Өзара әсер диаграммалары арқылы қарапайым тәртіптерді бейнелеуге өте ыңғайлы,
Өзара әсер диаграммаларын бір қолдану варианты шеңберінде бірнеше объектінің
Бірнеше қолдану вариантындағы жалғыз объектінің тәртібін сипаттау үшін күй
3.7 Қызмет диаграммасы
Басқа құралдарына қарағанда қызмет диаграммалары өзгешелеу әдістерге негізделген. Атап
Бұл диаграммалар көптеген параллель процестері бар тәртіптерді сипаттауда өте
Қызмет диаграммаларын мынадай жағдайларда қолдануға тиімді:
қолдану вариантын талдау кезінде. Бұл сатыда бізді әрекет пен
түрлі қолдану вариантындағы жұмыс ағымын (workflow) талдау кезінде.
Қызмет диаграммасын келесі жағдайларда қолданбау ұсынылады:
объектілердің өзара әрекеттесуін талдау кезінде. Бұл үшін өзара әрекеттесу
объектінің өмірлік цикліндегі тәртібін талдау кезінде. Бұл үшін күй
Қызмет диаграммасы Қосымша В келтірілген.
4 Программалық іске асыруды сипаттау
4.1 Операциялық жүйені таңдауды негіздеу
Windows операциялық жүйенісін (ОЖ) таңдаудағы себептердің негізісіне оның дүние
көп есептілік, программаны іске қосқанда, сонымен бірге қосымша қолданбаларды
виртуальды жады қолдамасы болғанда жады көлемін тиімді түрде басқару;
пайдаланушыға лайықталған қарапайым, өте түсінікті, тез еске сақтауға болатын
4.2 Программалау тілін таңдауды негіздеу
Қазіргі кезде программа жасау үшін деректерді үлестіріп өңдейтін орталарда
Біз ұсынып отырған программалық комплексті жасау үшін Delphi 7.0.
Delphi-де қолданбаларды жобалауда визуалды құралдары мен оңтайлау жүргізетін компилятордың
Delphi қуатты, икемді ғана емес, объектті-бағытталған программалау принциптері негізінде
4.3 Программа сипаты
Бұл программа әр талғамға байланысты сәйкес автоматты түрде сататын,
Программа мыналарды қамтамасыз етеді:
Пәтерлердің, клиенттердің, қызметкерлердің деректерін енгізуді, өзгертуді, сақтауды, жоюды;
Пәтерлерді клиенттің талғамына байланысты деректерді негізгі дерек қордан іздеу.
Ол есептеу техникасын меңгермеген пайдаланушыға лайықталып жасалған. Жүйемен жұмыс
деректерді енгізу, өзгерту, жою;
пәтерлер дерек қор жазбаларынан іздеу жүргізу;
программадан шығу.
Сурет4.1- “Сату” беті
4.3.1 Беттермен жұмыс істеу
Программа мынадай беттер бар:
Сату
Сатып алу
Жалға беру
Жалға алу
Ақпаратты енгізу
Сурет4.2 - “Сатып алу” беті
Егер “Сату” бетін таңдасаңыз, программа негізгі дерек қордан тек
Егер “Сатып” алу бетін таңдасаңыз, программа негізгі дерек қордан
Егер “Жалға беру” бетін таңдасаңыз, программа негізгі дерек қордан
Сурет 4.3- “Жалға беру” беті
бағасы және қабаты деген барлық өрістер арқылы жүргізіледі.
Егер “Жалға алу” бетін таңдасаңыз, программа негізгі дерек қордан
Жүйемен жұмысты аяқтау үшін әр бір бетте Шығу
Сурет 4.4- “Жалға алу” беті
4.3.2 Жаңа деректерді енгізу
Пәтер туралы жаңадан ақпарат қосу үшін, “Ақпаратты енгізу” панелін
Дерек қорға “Сату” бетіне жаңа мәліметтердің деректерін енгізу үшін,
Дерек қорға “Сатып алу” бетіне жаңа мәліметтердің деректерін енгізу
Дерек қорға “Жалға беру” бетіне жаңа мәліметтердің деректерін енгізу
Дерек қорға “Жалға алу” бетіне жаңа мәліметтердің деректерін енгізу
Дерек қорларды қарау үшін сәйкес беттерге өту керек. Мысалы,
Сурет 4.5- “мәліметтерді енгізу” беті
4.4 Жүйелік программистке нұсқау
Жүйенің қалыпты түрде жұмыс істеуі үшін мынадай оптималды түрдегі
Pentium IV 2800 процессоры негізіндегі компьютер;
Microsoft Windows 2000/XP операциялық жүйесі;
256Мб ОСҚ (оперативтік еске сақтау құрылғысы);
80Гб HDD;
Негізгі орындалатын модуль аты – mainproject.exe. Программа Delphi7.0 ортасын
4.5 Операторға нұсқау
Пайдаланушымен жүйенің өзара қарым-қатынасы клиенттік интерфейс арқылы өтеді. Интерфейс
Программаны іске қосу программалық өнім пиктограммасына курсорды әкеліп, тышқанның
Сурет 2.1- “Жалға беру” бетіндегі тез іздеу
5 Программалық қолданбаның экономикалық тиімділікті есептеу
5.1 Жалақыға кететін шығынды анықтау
Программалық қолданбаны құрумен айналысатын ұйымның жалақысына кететін шығынды анықтау
Сз = Кз х Т ( мың теңге)
Кз – программалық қолданбаны құрастырушы ұйым жұмысшысының орташа тарифтік
Т – еңбек сыйымдылығы;
Кз = ФЗП / (N х ФРБ)
ФЗП – ұйымның жалақы фонды,
N – ұйымның алдыңғы жылға қызметкерлердің орташа тізімдік саны,
ФРБ – алдыңғы жылға осы ұйымның жұмысшысының жұмыс уақытының
ФЗП = ЗП х N х М
ЗП – бір жұмысшының жалақысы;
N – жұмысшылар саны,
М – жылдағы айлар саны, М=12;
Жалақының фондын анықтайық:
ФЗП=35000 x 1 x 12=420 мың теңге
Мұндағы ЗП – 35000 тенге/ай,
N – 1 адам,
ФРВ – 230 күнге сәйкес келеді.
Қызметкердің орташа тарифтік ставкасын анықтайық Кз
Кз =420 000 / (1 х 230)=1,83 мың теңге/
Еңбек сыйымдылығы Т программалық қолданбаға берілген уақыт нормалары бойынша
Программалық қамтаманы жасауға арналған еңбек сыйымдылығына келесі бірнеше факторлар
ПҚ-ның шартты мыңдық машиналық команданың көлемі;
ПҚ-ның күрделілік деңгейі;
ПҚ-ның жаңалық деңгейі;
типтік программалар мен стандартты модульдердің қолданылу деңгейіне байланысты;
Программалық қамтаманың көлемі ПҚ-ның аналогтар каталогына сәйкес құрылымдық аналогия
Кесте 5.1 – ПҚ-ның аналогтар каталогы
ПҚ-ның аты Жаңалық деңгейі Қолдану коэффициенті Күрделілік деңгейі Каталог
Код Ерекшеліктері Кн
ИЖТС ПАҚ А 1) жаңа емес ОЖ
2) жаңа емес ЭЕМ 1 0,9 1 Функ-ционал-дық бағыт
ПҚ-ның сипаттамасы Күрделілік деңгейі
1. ПҚ-ның басқа бір операциялақ ортада қызмет жасауы
2. Күрделі структурада іздеу мен сақтауды ұйымдастыру
3. ПҚ-ның бірнеше ерекше сипаттамасы (3-тен көп):
- интерактивті режимде жұмыс істеуі;
- көп машиналық комплекс;
- оптимизациялық есептер;
- жоғарғы деңгейлі интерфейс; 0,08
0,07
0,26
Барлығы 0,41
Кесте 5.2 – Программалық қамтаманың негізгі функциялары
Функция аты Каталог байынша функция номері Функция көлемі
Функция каталогы бойынша Айқындалған
Ақпаратты енгізуді ұйымдастыру
Бақылау, алдын-ала өңдеу мен ақпаратты енгізу
Ақпараттың кіріс-шығысын интерактивті режимде ұйымдастыру
Деректер қорын қалыптастыру
Дерекқор жазбаларын өңдеу
Дерекқормен интерактивті режимде жұмыс істеу
101
102
109
203
204
206
207
208 600
1810
1085
5350
7900
15770
26300
17270
600
1000
100
1500
400
100
1000
1500
Кесте 5.2-нің жалғасы
Ақпаратты енгізуді ұйымдастыру
Бақылау, алдын-ала өңдеу мен ақпаратты енгізу
Ақпараттың кіріс-шығысын интерактивті режимде ұйымдастыру
Деректер қорын қалыптастыру
Дерекқор жазбаларын өңдеу
Дерекқормен интерактивті режимде жұмыс істеу
Ақпараттармен жұмыс істеу
Дерекқорда іздеуді ұйымдастыру
Файлдарға қызмет көрсету
Файлдарды өңдеу
ПҚ-ның мониторы
Жүйе мониторы
Интерактивті режимде қолданбалы программаларды отладкалау
ПҚ-қа жүйесін ұйымдастыру
Отчеттар процессоры 101
102
109
203
204
206
207
208
304
305
501
502
601
405
704 600
1810
1085
5350
7900
15770
26300
17270
2950
3670
4610
14530
10180
1080
12550 600
1000
100
1500
400
100
1000
1500
500
600
1000
2000
1000
1000
500
Жалпы ПҚ-ның айқындалған көлемі 12300
ПҚ-ны жасаудағы еңбек шығыны 1530
Жалпы еңбек сыйымдылығы Т0=(0,41 х 1530) 627
ПҚ жасауда еңбек сыйымдылығы әрбір кезеңге келесі формулалар арқылы
Т1 = L1 x KH x T0 = 0,11
Т2 = L2 x KH x T0 = 0,09
Т3 = L3 x KH x T0 = 0,11
Т4 = L4xKHxKTxT0 = 0,55 x 0,9 x 627
Т5 = L5 x KH x T0 = 0,14
Мұнда Lі – еңбек сыйымдылықтың әр кезеңге арналған салмағы,
KH – жаңалық деңгейді ескеретін коэффициент;
KT – типтік программалар мен стандартты модульдердің қолданылу деңгейін
Кесте 5.3 – Еңбек сиымдылығы
ПҚ-ның сипаттамасы Кезеңдер
ТТ ЭП ТП ЖЖ ЕН Барлығы
1. Еңбек сыйымдылықтың әр кезеңге арналған салмағы
2. Еңбек сыйымдылық
3. Кезеңге байланысты қызметкерлер саны
4. Реализация уақыты 0,11
69
1
0,11 0,09
56
1
0,09 0,11
69
1
0,11 0,55
310
1
0,52 0,14
88
1
0,15
592
0,98
Сонымен жалақыға шығынды шығаруға арналған формула бойынша:
Сз = 592 х 1,83 = 1083
5.1.2 Салықтарды есептеу
5.1.2.1 Әлеуметтік салықты есептеу
Келесі кестеде әлеуметтік салықты есептеу ставкалары келтірілген (ГПР- жылғы
Кесте 5.4 – Әлеуметтік салықтан алынатын ставкалар көлемі []
Салық алынатын шығынның көлемі Салық ставкасы
15-еселік ГПРға дейін (165 420 теңгеге дейін) Салық алынатын
15-еселік ГПРдан 40-еселік ГПРға дейін (165 420дан 441 120ға
40-еселік ГПРдан 200-еселік ГПРға дейін (441 120дан 2 205
200-еселік ГПРдан 600-еселік ГПРға дейін (2 205 600ден 6
600-еселік ГПРдан бастап және одан да жоғары(6 616 800
1 адам үшін есептелетін жылғы жалақының көлемі ЗП=420 000
Oсн=33 084 + (420 000 – 165 420) х
5.1.2.2 Табыстан алынатын салықты(подоходный налог) есептеу
Келесі кестеде табыстан алынатын салықты есептеу ставкалары келтірілген (ГПР-жылғы
Кесте 5.5 – Табыстық салықтан алынатын ставкалар көлемі []
Салық алынатын шығынның көлемі Салық ставкасы
15-еселік ГПРға дейін (165 420 теңгеге дейін) Салық алынатын
15-еселік ГПРдан 40-еселік ГПРға дейін (165 420дан 441 120ға
40-еселік ГПРдан 200-еселік ГПРға дейін (441 120дан 2 205
200-еселік ГПРдан 600-еселік ГПРға дейін (2 205 600ден 6
600-еселік ГПРдан бастап және одан да жоғары(6 616 800
1 адам үшін есептелетін жылғы жалақының көлемі ЗП=420 000
ТС=8 271 + (420 000 - 165 420) x
5.1.2.3 Пенсиондық алымдар
Пенсиондық алымдар жалақының 10% құрайды, яғни
П=420 000 x 10%=42 000 тенге
5.1.3 Материалдарға жұмсалатын шығындар
Шығынның бұл түріне магниттік дискілер, баспа парақтары мен тағы
дискке жылдық норма 10 дана болып саналады, яғни
баспа парақтарының күн сайынғы нормасы 10-11 дана. Ал ПҚ-ны
Картриджге кететін шығын 13 мың теңге жылына, ал біздің
Сонымен материалдарға кететін шығын 15,7 мың теңгені құрады.
5.1.4 Ғылыми зерттеу жұмыстарына қажет арнайы аппараттарға кететін шығындар
Шығынның бұл түріне техникалық және программалық қамтамаға тікелей қатысы
Техникалық орта:
Pentium IV 2400 / 40Gb / 256Mb / Modem
Принтер – 30 мың теңге;
ПК-ге амортизация нормасын 12,5% деп орнатқанда жылғы амортизация шығыны:
А0=0,125 х 80000 + 0,125 х 30000 = 13750
Сонымен техникалық ортаға кететін шығын:
Стех = 80000 + 30000 + 13750 = 123750
Программалық орта:
Windows XP Professional Edition операциялық жүйесін орнату – 11,4
Сонымен программалық ортаға кететін шығын:
Спрог = 11400 теңге
Ғылыми зерттеу жұмыстарына кететін шығын:
С = 123750 + 11400 = 135150 теңге
5.1.5 Басқа шығындар
Машиналық уақытқа кететін шығын келесі формула бойынша есептеледі:
См = Км х Зм;
См = 35 х 2300= 80,5 мың теңге
Мұндағы:
Км – машиналық уақыттың бір сағатының тарифтік бағасы, пландық
Зм – ПҚ-ны жасауға кететін машиналық уақыт. Ол бізде
Материалдарды табу мен дайындау:
арнайы әдебиетке кеткен қаржы – 3000 теңге;
басқа қосымша әдебиеттерге кеткен қаржы – 2000 теңге;
Басқа шығындар бөліміндегі барлық шығын:
Сб = 28350 + 5000 = 33,55 мың теңге;
Кесте 5.6 – ПҚ-ны жасауға кететін барлық шығындар
Шығын түрі Шығын (мың теңге)
Жалақы
Әлеуметтік салық
ИПН
НПФ
Материалдар
Ғылыми зерттеу жұмыстары
Басқа шығындар 1,083
63,633
28,637
42,000
15,7
135,15
33,55
Қорытынды сметалық баға 319,753
5.2 Программалық қамтаманы енгізудің тиімділігін есептеу
5.2.1 Енгізуге дейін шығынды есептеу
Жасалынып жатқан ПҚ-ның эұмыстар тізбегі:
тұтынушылардан заказ қабылдау;
заказды өңдеу;
заказда пайда болған мәселелерді шешу;
отчеттар шығару;
Дәлірек айтқанда осы жұмыстардың барлығын бір ұйымда 12 адам
Осы барлық жұмыстарды атқаруға кететін шығынды келесі формула бойынша
Здв = Фзп + Здоп;
Фзп –қызметкерлердің жылғы жалақы фонды;
Здоп – қосымша шығындар ( кеңселік шығындар);
Фзп = Зп х 12 х 15 + Осн;
Зп – жалақы (20 000 теңге),
12 – жылдағы айлар саны,
15 – қызметкерлер саны,
Осн - әлеуметтік салық;
Сонымен:
Фзп = 20 х 12 х 15 + 63,6
Здоп = 20 (мың теңге)
Демек программалық қамтаманы енгізуге дейін кететін шығын:
Здв = 3663,6+ 20 = 3683,6 (мың теңге)
5.2.2 Жүйені енгізуден кейін шығынды есептеу
Зпв = Смв + Сп + Фзп + Осн;
Смв – машиналық уақытқа кететін шығын,
Сп – баспаға кететін шығын,
Фзп – қызметкерлердің жылғы жалақы фонды,
Осн - әлеуметтік салық;
Машиналық уақытқа кететін шығын келесі формула бойынша есептеледі:
Смв = Км х 12 х См;
Км – айлық машиналық уақытты қолдану мөлшері;
См – машиналық уақыт бағасы;
Смв = 50 х 12 х 40 = 24
Баспаға кететін шығын келесі формула бойынша анықталады:
Сп = Вп х Кэ х См;
Вп – бір экземплярға кететін уақыт;
Кэ – жылғы экземплярлар саны;
Сп = 0,01 х 2300 х (0,01 х 2300)
Сонымен жүйесні енгізуден кейін шығын:
Зпв = 24 + 21 + 2943,6 + 63,6
5.2.3 Енгізуден кейін экономикалық шығындарды есептеу
5.2.3.1 Енгізуден кейін шығын экономиясы
Енгізуден кейін шығын экономиясы келесі формула бойынша есептеледі:
Э = Здв – Зпв;
Э = 3683,6 –3052,2 = 631,4 (мың теңге)
5.2.3.2 Жүйенің өтеу мерзімі
Жүйенің өтеу мерзімі келесі формула бойынша есептеледі:
Т = С / Э
С – ПҚ-ны жасау мен енгізуге кеткен шығын;
Э – енгізуден кейін шығын экономиясы;
Т = 319,7/631,4 = 0,5 (жыл)
5.2.3.3 Жылдық экономикалық эффект
Жылдық экономикалық эффект келесі формула бойынша есептеледі:
ЭФ = Э – Ен х С;
Ен – капитал қойылымның нормативті тиімділік коэффициенті (0,32);
ЭФ = 631,4 – 0,32 х 319,7 = 529,01
Сонымен жасалынған программалық қамтаманың экономикалық тиімділігін дәлелдеу үшін келесі
Т
Ж – 0,8 –
4
–
–
– 0,8
1,2
0,2
0,1
0,2 1
1,5
0,2
0,1
0,3
6.5.2 Жұмыс орнының табиғи жарықталуын есептеу
Жұмыс орнының өлшемдері: ұзындығы Б=32м, ені А=16,5м, биіктігі h=2,8м,
Жұмыс орнының жарықталуы үшін қабырғада тігінен әйнектелген және металикалық
Жұмыс орны жұмыс разряды бойынша орташа болғандықтан, ол IV
Сонда eu=e x m x c=1,5 x 0,9 x
Қабырғадан түскендегі жарық тесіктерінің қосынды ауданы келесі қатынасқа байланысты
F=( eu x S x k1 x k2)/(100 x
Терезелердің жарықтық сипаттама коэффициенті жұмыс орнының ұзындығы, ені және
B=h-( h1-h2)
В=2,8 - ( 1,2 - 0,8)=2,4 м
мұндағы
h1 =1,2 ( терезенің жоғарғы жағынан потолоққа дейінгі қашықтық)
h2 =0,8м шартты жұмыс бетінің деңгейі
Б/А=32/32=1,9, А/В=32/6=2,75
Мұндай шарттарда жарық сипттамасының коэффициенті мынадай мәнді қабылдайды: k1=18
Терезелерді жауып тұратын көршілес ғимарат болмағандықтан, k2=1
Шаң және түтін аз бөлінетін, тігінен әйнектелген және металикалық
k3=T1 x T2 x T3 x T4. Мұндағы коэффициенттер
T1=0,8 – қос әйнекті терезе үшін, T2=0,75 – балқылған
Енді потолок, еден және қабырғалардың жарықты шағылыстырудың орташа коэффициентін
(5.6)
мұндағы Ппот, Ппол, Пст потолоктың, еденнің және қабырғалардың ауданы.
k4 = (32 x 16,5 x 0,5+16,5 x 2,8
Сонда терезелердің (площадь световых проемов) қосынды жарық ауданы:
F=(eu x S x k1 x k2)/(100 x k3
F =(0,81 x 528 x 18)/(100 x 0,4 x
6.6 Электр қауіпсіздігі
6.6.1 Электр қауіпсіздік техникасы
Жұмыстың элетроқауіпсіздігін қамтамасыз ету үшін келесідей жұмыстар жасалынады:
а) ток көзінің нейтралі жерлеу кедергісі 600мкОм –ден аспайтын
б) барлық құрылғылардың корпустары жерлендіру шинасымен электрлі қосылыспен жақсы
в) 120 мм –ден кем болмайтын қорғамдық жерлендіру шиналары
г) қорғаныс жерлендірудің шинасы мен бірінші ток көзінің –
Электр тогынан қорғанудың ең негізігі шараларының бірі – қорғаныс
6.7 Жерлеуіш контурының жалпы кедергісін анықтау
Жердің меншікті кедергісін φ=2x104 Ом х см (бақ жері).
Сонда жерге тігінен көмілген жерлеуіштің кедергісі мынадай болады [3,7]:
Rз=
Rз
мұндағы t = lз/2+t1 = 200 см – жерлеуіштің
Жерлеуіштердің қажетті саны:
N = ( Rз x Kc) / ( Rд
N = (98 x 1,4) / (4 x 0,6)
мұндағы Kc =1,4 – IV климаттық деңгей бойынша жылдық
ηз=0,6 – бір қатарда қолданылатын жерлеуіштерді қолдану коэффициенті,
Rд =4Ом – жерлеуіштің болатын кедергісі.
Қосылатын тізбектің ұзындығы:
lп=1,05 х 2 х lз х N
lп =1,05 x 2 x 300 x 57=35910см,
ал оның кедергісі
Rп=( 0,366 x φ / lп ) x lg(
Rп = (0,366 x 2 x 104 / 35910)
мұндағы b=0,6см және h=8см қосатын тізбектің қалыңдығы мен ені.
Жерлеуші контурдың жалпы кедергісі:
Rк= (Rз х Rп) / (Rз х ηп +
Rк= ( 98 х 1,7) / ( 98 х
мұндағы ηп – қатар тігінен орналасқан жерлеуіштердің қолданылу коэффициенті.
6.8 Бөлме-жайды желдетуді есептеу
Есептеу орталығының бөлме-жайының өлшемі 32м Х 16,5м Х 2,8м,
Есеп СНиП 11-04-91 жобалау нәтижесінде сәйкес жүргізіледі, сонымен қатар
Бөлме-жайда ауа параметрлері жабдық жұмысының технологиялық талабынан, дәл айтқанда
Жылу көздерінен есептеу орталығының машина залына түсетін жылудың жалпы
Qp – жұмысшылардың жылу бөлуі. Максимальды жұмысшылар саны 15
Qp=15 x 525=7875кДж/с,
Күн сәулесінің жылу бөлуі. Зал 1 қабатта орналасқан, залға
Qok = q x F x A
Qok = 252 x (4 x 1,5 x 1,8)
Мұнда А – айналу түрінің ескеретін коэффициент (екі қабат
F – айналу беті,
q = 60 калорий = 60 х 4,2 Дж
Qиск – жасанды жарықтандырудың жылу бөлуі (жасанды жарықтандыру жүйесінің
Qиск = Т1 x 3612 x Nоу
Qиск = 0,8 x 3612 x 1,2 = 3467,52
Мұнда Т1 – жылуға айналатын (0,8 – 1) электроэнергияның
Nоу – жасанды жарықтандыру жүйесінің пайдалагатын қуаты,
3612 – жылу электрлік эквивалент;
Qэвм – ПЭЕМ-нен бөлінетін жылу:
Qэвм = N х Т1 х Т2 х Т3
Qэвм = 20 х 450 х 0,25 х 3612
Мұнда N – электр қозғалтқыштың қуатының жалпы саны,
Т1 – электр қозғалтқышының орта КПД, кВт/с,
Т2 – пайдалану коэффициенті,
Т3 – электрлік қозғалтқыштарды бір уақытта пайдалану коэффициенті,
Т4 – жылуға айналған механикалық энергияны сипаттау бөлігінің коэффициенті.
Qмах = Qp + Qok + Qиск + Qэвм
Qмах = 7875 + 3129,84 + 3457,62 + 8127
Сыртқы жылу Jн = 86кДж/кг, Jвн49кДж/кг.
Бөлмені тазартуға қажет ауа көлемі, мына формуламен анықталады:
L1=Qmax/( Jн – Jвн) = 752,69 кг/с.
L=L x 1,22 = 918,28м3/с
Суық шығыны:
Qх = Qмах = 22599,36 кДж/с – 6630,8 ккал/с.
Яғни пайдаланатын бөлме-жайда жұмысқа қолайлы жағдай туғыздыру үшін БК255
ҚОРЫТЫНДЫ
Бұл дипломдық жылжымайтын мүлік агенттігінің жұмысын автоматтандыру үшін деректер
деректер қоры жетілдіру кезінде есептің қойлымынан бастап, автоматтандырылған жүйені
жетілдірілген ақпараттық жүйе келесі тиімділіктерді жасауға мүмкіндік береді:
деректерді енгізу, есептеулерді жасауға, іздеуге кететін уақытты
ақпаратты көп уақыт сақтау мүмкіндігі.
жобаның экномикалық тиімділігі есептеліп, бағдарламалық қамтама өзін толығымен 0,58
ақпараттық жүйе құрылған кезде инженер- программистің кәсіпорындағы жұмыс орындағы
Жоғарыда айтылғандардың бәріне негізделіп, жылжымайтын мүлік агенттігінің жұмысын автоматтандыру
ӘДЕБИЕТТЕРДІҢ ТІЗІМІ:
ГОСТ 12.1.003-83. Еңбекті қорғаудың стандарттар жүйесі. Шу. Қауіпсіздіктің
СН и П II-4-79 Естественное и искуственное освещение. 1979г.
Кустов В.Н., Мусин К.А., Джумабеков Б.Д. Охрана труда в
ГОСТ 12.1.004-91. Еңбекті қорғаудың стандарттар жүйесі. Өрт қауіпсіздігі.
ГОСТ 12.1.005-88. Еңбекті қорғаудың стандарттар жүйесі. Жұмыс зонасының
ГОСТ 12.1.006-84. Еңбекті қорғаудың стандарттар жүйесі. Радиожиіліктің электромагниттік
Долин П.А. Справочник по технике безопасности. М: Энергия, 1985г.
О промышленной безопасности на опасных производственных объектах. Закон РК
Законы РК в области ЧС. Алматы издательство Жеті Жарғы
Закон РК О труде. Алматы Ірге тас 2000 г,
О безопасности и охраны труда от 28 февраля 2004
Хавронская А.М. Оценка технико-экономической эффективности программых средств: методические
Гради Буч. Объектно-ориентированный анализ и проектирование. М.: “Бином”, 2000.
Архангельский А. Я. Программирование в среде Delphi6. М.: “Бином”,
А. Леоненков UML, С-П.: “Наука”, 2001г.
Т. Коннолли, К. Бегг, А. Страчан. Базы данных, М.:
С. Бобровский. Delphi6 и Kylix, С-П.: “Питер”, 2002г.
Қосымша А
А1 КОМПЛЕКСТІҢ МАҚСАТЫ
Бұл программалық қолданба агенстводағы пәтерлердің сатылуы мен арендаға берілуін
дерек қорға клиентті тіркеу,
мәліметтерді ортақ базаға енгізу мен оларды рұқсатсыз алудан қорғауды
деректер қорынан сұраныс бойынша ақпаратты іздеу жүйесін ұйымдастыру,
мәліметтерге қолданушылардың класы бойынша қатынас беруге инициалдау, функцияналдау мен
программалық қолданбаның көрінісі стандартты windows ОЖ-ның терезесіндей және әр
Енгізілетін ақпарат – алынатын заказдар форма (қолданбаның өзінен) не
А2 ФУНКЦИЯНАЛДЫҚ ТАЛАПТАР
2.1 Жұмыстың орындалу барысында құжаттарды құру және оларды жүргізу.
2.2 Суъектілер мен объектілер арасында финанстық және мекеменің мүмкіншіліктерін
2.3 Керек пәтерді тез тауып анықтау және шығындарды минимумге
2.4 Отчеттік форманы графика түрінде өнімдерді нүктелеріне жеткізуді орындау
2.5 Өңдірістің қарқындылығын анықтау үшін отчет құру.
2.6 Заказды орындау барысында пайда болған мәселелерді шешудің жолдарын
А Қосымшаның жалғасы
А3 АҚПАРАТ
Мәліметтерді терген кезде клавиатурамен минимальды жұмыс болу керек. Тек
Кіріс мәліметтер ЗАКАЗДАРДЫ ҚАБЫЛДАУ БӨЛІМІНЕН автоматты түрде беріледі. Мәліметтер
Шығарылатын мәліметтер формасы оның қолданушыларымен анықталған және келісіммен программаны
Мәліметтерді сақтау, таңдау, қорғау және жіберу үшін деректер қоры
А4 ПРОГРАММАНЫҢ ҮМІТТІЛІГІНЕ ТАЛАПТАР
ПАК (ПРОГРАМАЛЫҚ АҚПАРАТТЫҚ КОМПЛЕКС) мынандай міндеттерді атқару немесе ұйымдастыру
мәліметтерді оперативті өңдеу мерзімінен көп,
оперативті функцияларда сұранысты өңдеудің шын уақыт режімінде жұмысын,
серверлік қолданбада SQL сұраныстарды орындауды,
қолданушының қателіктерінен сақтау, қате жібергенің білдіру және қатені түзету
шешімдерді қабылдаудың кез келген нүктесінде көмек алу мүмкіндігі.
Программа мынандай мүмкіндіктерді беру керек:
деректерді жоқ деректер қорында жүйені генерациялау және бақылау нүктелерінде
ДҚ элементтерін толтыру, өзгерту мен өшіру. ДҚ-ға тек кілт
Қатынаудың деңгейін анықтай отырып қолданушылардың тізімін құру мен өзгерту,
Қолданушылар жұмысының жүйелік протоколын жүргізу, қолданушылар мен жүйе менеджерінің
Жүйе жұмысының протоколын логикалық немесе физикалық өшірілуіне машиналық өшіру
А Қосымшаның жалғасы
Шығарылаитын мәліметтерді MS OFFICE және т.б. программалық қолданбаның көмегімен
Оперативті мәліметтерді заказ беруші анықтаған форматта құру, өзгерту, сақтау
ПАК-ті орнату мен оны бақылауды ОРЫНДАУШЫ орындайды, эксплуатацияны жүйе
А5 ТЕХНИКАЛЫҚ ЖӘНЕ ПРГРАММАЛЫҚ ҚҰРАЛДАРҒА ТАЛАПТАР
ПАК Pentium және одан жоғары, SVGA типті видиорежимді адаптері,
А6 МӘЛІМЕТТЕРДІҢ ЖӘНЕ ПРОГРАММАНЫҢ СӘЙКЕС КЕЛУІНЕ ТАЛАПТАР
ПАК Borland Delphi қолдану арқылы жасалынады және мынандай мүмкіндіктерді
Borland Delphi-де VCL басқа кітапханаларды қолдану арқылы өзгертулер мен
Графикалық арнайы программалық құралдармен орындалу керек
ЕМ-нің экранында ПАК мәліметтерін келпін қолданушының графикалық және мәтіндік
әр түрлі деңгейлерде жүйе менюінөзгерту мүмкіндігі.
А7 ПРОГРАММАЛЫҚ ҚҰЖАТТАРҒА ТАЛАПТАР БЫЛАЙ БОЛУ КЕРЕК:
қолдану сипаттамасы,
қолданушы мен менеджерге арналған инструкция
демонстрациондық мысал.
Қосымша Б-Диаграммалар.
А) Пайдалану нұсқасының диаграммасы
ә)Кластар диаграммасы
Б)Тізбек диаграммасы
В)Кооперация диаграммасы
Г)Қызмет диаграммасы
Қосымша В
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, DBCtrls, Mask, ComCtrls,
ExtCtrls, Buttons;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
DBGrid1: TDBGrid;
Database1: TDatabase;
Table1: TTable;
DataSource1: TDataSource;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
DBGrid4: TDBGrid;
DBGrid5: TDBGrid;
Panel1: TPanel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label6: TLabel;
Label7: TLabel;
Button1: TButton;
Қосымша В-ның жалғасы
Panel2: TPanel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
DBComboBox4: TDBComboBox;
DBComboBox5: TDBComboBox;
DBComboBox6: TDBComboBox;
DBComboBox7: TDBComboBox;
DBComboBox8: TDBComboBox;
DBComboBox10: TDBComboBox;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Қосымша В-ның жалғасы
Button5: TButton;
Query1: TQuery;
Panel3: TPanel;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
Button6: TButton;
Label1: TLabel;
Label2: TLabel;
Edit7: TEdit;
Edit8: TEdit;
Panel4: TPanel;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
CheckBox13: TCheckBox;
CheckBox14: TCheckBox;
CheckBox15: TCheckBox;
Button7: TButton;
Edit9: TEdit;
Edit10: TEdit;
Label3: TLabel;
Label4: TLabel;
Panel5: TPanel;
CheckBox16: TCheckBox;
CheckBox17: TCheckBox;
CheckBox18: TCheckBox;
CheckBox19: TCheckBox;
CheckBox20: TCheckBox;
Label5: TLabel;
Edit11: TEdit;
Label29: TLabel;
Edit12: TEdit;
Button8: TButton;
DBNavigator1: TDBNavigator;
Query2: TQuery;
Query3: TQuery;
Query4: TQuery;
DataS1: TDataSource;
Қосымша В-ның жалғасы
DataS2: TDataSource;
DataS3: TDataSource;
DataS4: TDataSource;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
DBEdit6: TDBEdit;
Edit25: TEdit;
DateTimePicker1: TDateTimePicker;
Panel6: TPanel;
Timer1: TTimer;
DBComboBox9: TDBComboBox;
procedure FormCreate(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure CheckBox5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure CheckBox6Click(Sender: TObject);
procedure CheckBox7Click(Sender: TObject);
procedure CheckBox8Click(Sender: TObject);
procedure CheckBox9Click(Sender: TObject);
procedure CheckBox10Click(Sender: TObject);
procedure CheckBox11Click(Sender: TObject);
procedure CheckBox12Click(Sender: TObject);
Қосымша В-ның жалғасы
procedure CheckBox13Click(Sender: TObject);
procedure CheckBox14Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure TabSheet1Show(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure TabSheet3Show(Sender: TObject);
procedure TabSheet4Show(Sender: TObject);
procedure TabSheet5Show(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure DBGrid5CellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias('mak', getcurrentdir+'\Base\', 'PARADOX');
finally
ConfigMode := cmAll;
end;
end;
Қосымша В-ның жалғасы
datetimepicker1.Date:=date;
database1.AliasName:='mak';
database1.Connected:=true;
table1.TableName:='home_1.db';
table1.Active:=true;
query1.Active:=true;
dbedit1.DataField:='rooms';
dbedit2.DataField:='floor';
dbcombobox1.DataField:='home';
dbcombobox2.DataField:='plan';
dbcombobox3.DataField:='door';
dbcombobox4.DataField:='state';
dbcombobox5.DataField:='toilet';
dbcombobox6.DataField:='phone';
dbcombobox7.DataField:='tv';
dbedit3.DataField:='price';
dbcombobox8.DataField:='payment';
dbcombobox9.DataField:='rayon';
dbedit5.DataField:='street';
dbedit8.DataField:='fio';
dbedit9.DataField:='cl_phone';
dbcombobox10.DataField:='want';
dbedit6.DataField:='time';
dbedit10.DataField:='date';
dbedit11.DataField:='staf';
width:=800;
height:=600;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
edit1.Enabled:=true;
end;
if checkbox1.Checked=false then
begin
edit1.Enabled:=false;
end;
end;
Қосымша В-ның жалғасы
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then
edit2.Enabled:=true;
if checkbox2.Checked=false then
edit2.Enabled:=false;
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then
edit3.Enabled:=true;
if checkbox3.Checked=false then
edit3.Enabled:=false;
end;
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then
edit4.Enabled:=true;
if checkbox4.Checked=false then
edit4.Enabled:=false;
end;
procedure TForm1.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked then
begin
edit5.Enabled:=true;
edit6.Enabled:=true;
end;
if checkbox5.Checked=false then
begin
edit5.Enabled:=false;
edit6.Enabled:=false;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Қосымша В-ның жалғасы
if (checkbox1.Checked=false) and
(checkbox2.Checked=false) and
(checkbox3.Checked=false) and
(checkbox4.Checked=false) and
(checkbox5.Checked=false) and
(edit1.Enabled=false)and
(edit2.Enabled=false)and
(edit3.Enabled=false)and
(edit4.Enabled=false)and
(edit5.Enabled=false)and
(edit6.Enabled=false)then
MessageDlg('Вы не ввели ни одной записи для поиска', mtInformation,[mbOk],
{1}
if (checkbox1.Checked)and
(checkbox2.Checked=false)and
(checkbox3.Checked=false)and
(checkbox4.Checked=false)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE Rooms='+edit1.Text+' AND want="сдать"';
query1.Active:=true;
end;
{1-2}
if (checkbox1.Checked)and
(checkbox2.Checked)and
(checkbox3.Checked=false)and
(checkbox4.Checked=false)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit1.Text+'" AND rayon="'+edit2.Text+'" AND
query1.Active:=true;
end;
{1-3}
if (checkbox1.Checked)and
(checkbox2.Checked)and
(checkbox3.Checked)and
(checkbox4.Checked=false)and
(checkbox5.Checked=false)then
Қосымша В-ның жалғасы
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit1.Text+'" AND rayon="'+edit2.Text+'" AND
query1.Active:=true;
end;
{1-4}
if (checkbox1.Checked)and
(checkbox2.Checked)and
(checkbox3.Checked)and
(checkbox4.Checked)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit1.Text+'" AND rayon="'+edit2.Text+'" AND
query1.Active:=true;
end;
{1-5}
if (checkbox1.Checked)and
(checkbox2.Checked)and
(checkbox3.Checked)and
(checkbox4.Checked)and
(checkbox5.Checked)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit1.Text+'" AND rayon="'+edit2.Text+'" AND
query1.Active:=true;
end;
{1,3}
if (checkbox1.Checked)and
(checkbox2.Checked=false)and
(checkbox3.Checked)and
(checkbox4.Checked=false)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit1.Text+'" AND street="'+edit3.Text+'" AND
query1.Active:=true;
Қосымша В-ның жалғасы
end;
{1,4}
if (checkbox1.Checked)and
(checkbox2.Checked=false)and
(checkbox3.Checked=false)and
(checkbox4.Checked)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit1.Text+'" AND floor="'+edit4.Text+'" AND
query1.Active:=true;
end;
{1,5}
if (checkbox1.Checked)and
(checkbox2.Checked=false)and
(checkbox3.Checked=false)and
(checkbox4.Checked=false)and
(checkbox5.Checked)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit1.Text+'" AND price BETWEEN
query1.Active:=true;
end;
{2,3}
if (checkbox1.Checked=false)and
(checkbox2.Checked)and
(checkbox3.Checked)and
(checkbox4.Checked=false)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit2.Text+'" AND street="'+edit3.Text+'" AND
query1.Active:=true;
end;
{2,4}
if (checkbox1.Checked=false)and
(checkbox2.Checked)and
(checkbox3.Checked=false)and
Қосымша В-ның жалғасы
(checkbox4.Checked)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit2.Text+'" AND floor="'+edit4.Text+'" AND
query1.Active:=true;
end;
{2,5}
if (checkbox1.Checked=false)and
(checkbox2.Checked)and
(checkbox3.Checked=false)and
(checkbox4.Checked=false)and
(checkbox5.Checked)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit2.Text+'" AND price BETWEEN
query1.Active:=true;
end;
{3,4}
if (checkbox1.Checked=false)and
(checkbox2.Checked=false)and
(checkbox3.Checked)and
(checkbox4.Checked)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE street="'+edit3.Text+'" AND floor="'+edit4.Text+'" AND
query1.Active:=true;
end;
{3,5}
if (checkbox1.Checked=false)and
(checkbox2.Checked=false)and
(checkbox3.Checked)and
(checkbox4.Checked=false)and
(checkbox5.Checked)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE street="'+edit3.Text+'" AND price BETWEEN
Қосымша В-ның жалғасы
query1.Active:=true;
end;
{4,5}
if (checkbox1.Checked=false)and
(checkbox2.Checked=false)and
(checkbox3.Checked=false)and
(checkbox4.Checked=false)and
(checkbox5.Checked)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE floor="'+edit4.Text+'" AND price BETWEEN
query1.Active:=true;
end;
{2}
if (checkbox1.Checked=false)and
(checkbox2.Checked)and
(checkbox3.Checked=false)and
(checkbox4.Checked=false)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit2.Text+'" AND want=" сдать
query1.Active:=true;
end;
{3}
if (checkbox1.Checked=false)and
(checkbox2.Checked=false)and
(checkbox3.Checked)and
(checkbox4.Checked=false)and
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE street="'+edit3.Text+'" AND want=" сдать
query1.Active:=true;
end;
{4}
if (checkbox1.Checked=false)and
(checkbox2.Checked=false)and
(checkbox3.Checked=false)and
(checkbox4.Checked)and
Қосымша В-ның жалғасы
(checkbox5.Checked=false)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE floor="'+edit4.Text+'" AND want=" сдать
query1.Active:=true;
end;
{5}
if (checkbox1.Checked=false)and
(checkbox2.Checked=false)and
(checkbox3.Checked=false)and
(checkbox4.Checked=false)and
(checkbox5.Checked)then
begin
query1.Active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE price BETWEEN '+edit5.Text+' AND
query1.Active:=true;
end;
end;
procedure TForm1.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked then
begin
edit13.Enabled:=true;
end;
if checkbox6.Checked=false then
begin
edit13.Enabled:=false;
end;
end;
procedure TForm1.CheckBox7Click(Sender: TObject);
begin
if checkbox7.Checked then
edit14.Enabled:=true;
if checkbox7.Checked=false then
edit14.Enabled:=false;
end;
procedure TForm1.CheckBox8Click(Sender: TObject);
Қосымша В-ның жалғасы
begin
if checkbox8.Checked then
edit15.Enabled:=true;
if checkbox8.Checked=false then
edit15.Enabled:=false;
end;
procedure TForm1.CheckBox9Click(Sender: TObject);
begin
if checkbox9.Checked then
edit16.Enabled:=true;
if checkbox9.Checked=false then
edit16.Enabled:=false;
end;
procedure TForm1.CheckBox10Click(Sender: TObject);
begin
if checkbox10.Checked then
begin
edit7.Enabled:=true;
edit8.Enabled:=true;
end;
if checkbox10.Checked=false then
begin
edit7.Enabled:=false;
edit8.Enabled:=false;
end;
end;
procedure TForm1.CheckBox11Click(Sender: TObject);
begin
if checkbox11.Checked then
begin
edit17.Enabled:=true;
end;
if checkbox11.Checked=false then
begin
edit17.Enabled:=false;
end;
end;
Қосымша В-ның жалғасы
procedure TForm1.CheckBox12Click(Sender: TObject);
begin
if checkbox12.Checked then
begin
edit18.Enabled:=true;
end;
if checkbox12.Checked=false then
begin
edit18.Enabled:=false;
end;
end;
procedure TForm1.CheckBox13Click(Sender: TObject);
begin
if checkbox13.Checked then
begin
edit19.Enabled:=true;
end;
if checkbox13.Checked=false then
begin
edit19.Enabled:=false;
end;
end;
procedure TForm1.CheckBox14Click(Sender: TObject);
begin
if checkbox14.Checked then
begin
edit20.Enabled:=true;
end;
if checkbox14.Checked=false then
begin
edit20.Enabled:=false;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
if (checkbox6.Checked=false) and
(checkbox7.Checked=false) and
Қосымша В-ның жалғасы
(checkbox8.Checked=false) and
(checkbox9.Checked=false) and
(checkbox10.Checked=false) and
(edit7.Enabled=false)and
(edit8.Enabled=false)and
(edit13.Enabled=false)and
(edit14.Enabled=false)and
(edit15.Enabled=false)and
(edit16.Enabled=false)then
MessageDlg('Вы не ввели ни одной записи для поиска', mtInformation,[mbOk],
{1}
if (checkbox6.Checked)and
(checkbox7.Checked=false)and
(checkbox8.Checked=false)and
(checkbox9.Checked=false)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rooms='+edit13.Text+' AND want="снять"';
query2.Active:=true;
end;
{1-2}
if (checkbox6.Checked)and
(checkbox7.Checked)and
(checkbox8.Checked=false)and
(checkbox9.Checked=false)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit13.Text+'" AND rayon="'+edit14.Text+'" AND
query2.Active:=true;
end;
{1-3}
if (checkbox6.Checked)and
(checkbox7.Checked)and
(checkbox8.Checked)and
(checkbox9.Checked=false)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
Қосымша В-ның жалғасы
query2.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit13.Text+'" AND rayon="'+edit14.Text+'" AND
query2.Active:=true;
end;
{1-4}
if (checkbox6.Checked)and
(checkbox7.Checked)and
(checkbox8.Checked)and
(checkbox9.Checked)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit13.Text+'" AND rayon="'+edit14.Text+'" AND
query2.Active:=true;
end;
{1-5}
if (checkbox6.Checked)and
(checkbox7.Checked)and
(checkbox8.Checked)and
(checkbox9.Checked)and
(checkbox10.Checked)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit13.Text+'" AND rayon="'+edit14.Text+'" AND
query2.Active:=true;
end;
{1,3}
if (checkbox6.Checked)and
(checkbox7.Checked=false)and
(checkbox8.Checked)and
(checkbox9.Checked=false)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit13.Text+'" AND street="'+edit15.Text+'" AND
query2.Active:=true;
end;
{1,4}
Қосымша В-ның жалғасы
if (checkbox6.Checked)and
(checkbox7.Checked=false)and
(checkbox8.Checked=false)and
(checkbox9.Checked)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit13.Text+'" AND state="'+edit16.Text+'" AND
query2.Active:=true;
end;
{1,5}
if (checkbox6.Checked)and
(checkbox7.Checked=false)and
(checkbox8.Checked=false)and
(checkbox9.Checked=false)and
(checkbox10.Checked)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit13.Text+'" AND price BETWEEN
query2.Active:=true;
end;
{2,3}
if (checkbox6.Checked=false)and
(checkbox7.Checked)and
(checkbox8.Checked)and
(checkbox9.Checked=false)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit14.Text+'" AND street="'+edit15.Text+'" AND
query2.Active:=true;
end;
{2,4}
if (checkbox6.Checked=false)and
(checkbox7.Checked)and
(checkbox8.Checked=false)and
(checkbox9.Checked)and
(checkbox10.Checked=false)then
Қосымша В-ның жалғасы
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit14.Text+'" AND state="'+edit16.Text+'" AND
query2.Active:=true;
end;
{2,5}
if (checkbox6.Checked=false)and
(checkbox7.Checked)and
(checkbox8.Checked=false)and
(checkbox9.Checked=false)and
(checkbox10.Checked)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit14.Text+'" AND price BETWEEN
query2.Active:=true;
end;
{3,4}
if (checkbox6.Checked=false)and
(checkbox7.Checked=false)and
(checkbox8.Checked)and
(checkbox9.Checked)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE street="'+edit15.Text+'" AND state="'+edit16.Text+'" AND
query2.Active:=true;
end;
{3,5}
if (checkbox6.Checked=false)and
(checkbox7.Checked=false)and
(checkbox8.Checked)and
(checkbox9.Checked=false)and
(checkbox10.Checked)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE street="'+edit15.Text+'" AND price BETWEEN
query2.Active:=true;
end;
Қосымша В-ның жалғасы
{4,5}
if (checkbox6.Checked=false)and
(checkbox7.Checked=false)and
(checkbox8.Checked=false)and
(checkbox9.Checked=false)and
(checkbox10.Checked)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE state="'+edit16.Text+'" AND price BETWEEN
query2.Active:=true;
end;
{2}
if (checkbox6.Checked=false)and
(checkbox7.Checked)and
(checkbox8.Checked=false)and
(checkbox9.Checked=false)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit14.Text+'" AND want=" снять
query2.Active:=true;
end;
{3}
if (checkbox6.Checked=false)and
(checkbox7.Checked=false)and
(checkbox8.Checked)and
(checkbox9.Checked=false)and
(checkbox10.Checked=false)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE street="'+edit15.Text+'" AND want=" снять
query2.Active:=true;
end;
{4}
if (checkbox6.Checked=false)and
(checkbox7.Checked=false)and
(checkbox8.Checked=false)and
(checkbox9.Checked)and
(checkbox10.Checked=false)then
begin
Қосымша В-ның жалғасы
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE state="'+edit16.Text+'" AND want=" снять
query2.Active:=true;
end;
{5}
if (checkbox6.Checked=false)and
(checkbox7.Checked=false)and
(checkbox8.Checked=false)and
(checkbox9.Checked=false)and
(checkbox10.Checked)then
begin
query2.Active:=false;
query2.SQL.Text:='SELECT * FROM home_1 WHERE price BETWEEN '+edit7.Text+' AND
query2.Active:=true;
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
if (checkbox11.Checked=false) and
(checkbox12.Checked=false) and
(checkbox13.Checked=false) and
(checkbox14.Checked=false) and
(checkbox15.Checked=false) and
(edit17.Enabled=false)and
(edit18.Enabled=false)and
(edit19.Enabled=false)and
(edit20.Enabled=false)and
(edit9.Enabled=false)and
(edit10.Enabled=false)then
MessageDlg('Вы не ввели ни одной записи для поиска', mtInformation,[mbOk],
{1}
if (checkbox11.Checked)and
(checkbox12.Checked=false)and
(checkbox13.Checked=false)and
(checkbox14.Checked=false)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE rooms='+edit17.Text+' AND want="продать"';
Қосымша В-ның жалғасы
query3.Active:=true;
end;
{1-2}
if (checkbox11.Checked)and
(checkbox12.Checked)and
(checkbox13.Checked=false)and
(checkbox14.Checked=false)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit17.Text+'" AND rayon="'+edit18.Text+'" AND
query3.Active:=true;
end;
{1-3}
if (checkbox11.Checked)and
(checkbox12.Checked)and
(checkbox13.Checked)and
(checkbox14.Checked=false)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE Rooms="'+edit17.Text+'" AND rayon="'+edit18.Text+'" AND
query3.Active:=true;
end;
{1-4}
if (checkbox11.Checked)and
(checkbox12.Checked)and
(checkbox13.Checked)and
(checkbox14.Checked)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit17.Text+'" AND rayon="'+edit18.Text+'" AND
query3.Active:=true;
end;
{1-5}
if (checkbox11.Checked)and
(checkbox12.Checked)and
Қосымша В-ның жалғасы
(checkbox13.Checked)and
(checkbox14.Checked)and
(checkbox15.Checked)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE Rooms="'+edit17.Text+'" AND rayon="'+edit18.Text+'" AND
query3.Active:=true;
end;
{1,3}
if (checkbox11.Checked)and
(checkbox12.Checked=false)and
(checkbox13.Checked)and
(checkbox14.Checked=false)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit17.Text+'" AND street="'+edit18.Text+'" AND
query3.Active:=true;
end;
{1,4}
if (checkbox11.Checked)and
(checkbox12.Checked=false)and
(checkbox13.Checked=false)and
(checkbox14.Checked)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit17.Text+'" AND state="'+edit19.Text+'" AND
query3.Active:=true;
end;
{1,5}
if (checkbox11.Checked)and
(checkbox12.Checked=false)and
(checkbox13.Checked=false)and
(checkbox14.Checked=false)and
(checkbox15.Checked)then
begin
query3.Active:=false;
Қосымша В-ның жалғасы
query3.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit17.Text+'" AND price BETWEEN
query3.Active:=true;
end;
{2,3}
if (checkbox11.Checked=false)and
(checkbox12.Checked)and
(checkbox13.Checked)and
(checkbox14.Checked=false)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit17.Text+'" AND patment="'+edit20.Text+'" AND
query3.Active:=true;
end;
{2,4}
if (checkbox11.Checked=false)and
(checkbox12.Checked)and
(checkbox13.Checked=false)and
(checkbox14.Checked)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit17.Text+'" AND patment="'+edit20.Text+'" AND
query3.Active:=true;
end;
{2,5}
if (checkbox11.Checked=false)and
(checkbox12.Checked)and
(checkbox13.Checked=false)and
(checkbox14.Checked=false)and
(checkbox15.Checked)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit17.Text+'" AND price BETWEEN
query3.Active:=true;
end;
{3,4}
if (checkbox11.Checked=false)and
Қосымша В-ның жалғасы
(checkbox12.Checked=false)and
(checkbox13.Checked)and
(checkbox14.Checked)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE state="'+edit19.Text+'" AND payment="'+edit20.Text+'" AND
query3.Active:=true;
end;
{3,5}
if (checkbox11.Checked=false)and
(checkbox12.Checked=false)and
(checkbox13.Checked)and
(checkbox14.Checked=false)and
(checkbox15.Checked)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE state="'+edit19.Text+'" AND price BETWEEN
query3.Active:=true;
end;
{4,5}
if (checkbox11.Checked=false)and
(checkbox12.Checked=false)and
(checkbox13.Checked=false)and
(checkbox14.Checked=false)and
(checkbox15.Checked)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE patment="'+edit20.Text+'" AND price BETWEEN
query3.Active:=true;
end;
{2}
if (checkbox11.Checked=false)and
(checkbox12.Checked)and
(checkbox13.Checked=false)and
(checkbox14.Checked=false)and
(checkbox15.Checked=false)then
begin
Қосымша В-ның жалғасы
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit18.Text+'" AND want=" продать
query3.Active:=true;
end;
{3}
if (checkbox11.Checked=false)and
(checkbox12.Checked=false)and
(checkbox13.Checked)and
(checkbox14.Checked=false)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE state="'+edit19.Text+'" AND want=" продать
query3.Active:=true;
end;
{4}
if (checkbox11.Checked=false)and
(checkbox12.Checked=false)and
(checkbox13.Checked=false)and
(checkbox14.Checked)and
(checkbox15.Checked=false)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE payment="'+edit20.Text+'" AND want=" продать
query3.Active:=true;
end;
{5}
if (checkbox11.Checked=false)and
(checkbox12.Checked=false)and
(checkbox13.Checked=false)and
(checkbox14.Checked=false)and
(checkbox15.Checked)then
begin
query3.Active:=false;
query3.SQL.Text:='SELECT * FROM home_1 WHERE price BETWEEN '+edit9.Text+' AND
query3.Active:=true;
end;
end;
Қосымша В-ның жалғасы
procedure TForm1.Button8Click(Sender: TObject);
begin
if (checkbox16.Checked=false) and
(checkbox17.Checked=false) and
(checkbox18.Checked=false) and
(checkbox19.Checked=false) and
(checkbox20.Checked=false) and
(edit11.Enabled=false)and
(edit12.Enabled=false)and
(edit21.Enabled=false)and
(edit22.Enabled=false)and
(edit23.Enabled=false)and
(edit24.Enabled=false)then
MessageDlg('Вы не ввели ни одной записи для поиска', mtInformation,[mbOk],
{1}
if (checkbox16.Checked)and
(checkbox17.Checked=false)and
(checkbox18.Checked=false)and
(checkbox19.Checked=false)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE rooms='+edit21.Text+' AND want="купить"';
query4.Active:=true;
end;
{1-2}
if (checkbox16.Checked)and
(checkbox17.Checked)and
(checkbox18.Checked=false)and
(checkbox19.Checked=false)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit21.Text+'" AND rayon="'+edit22.Text+'" AND
query4.Active:=true;
end;
{1-3}
if (checkbox16.Checked)and
(checkbox17.Checked)and
(checkbox18.Checked)and
Қосымша В-ның жалғасы
(checkbox19.Checked=false)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit21.Text+'" AND rayon="'+edit22.Text+'" AND
query4.Active:=true;
end;
{1-4}
if (checkbox16.Checked)and
(checkbox17.Checked)and
(checkbox18.Checked)and
(checkbox19.Checked)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit21.Text+'" AND rayon="'+edit22.Text+'" AND
query4.Active:=true;
end;
{1-5}
if (checkbox16.Checked)and
(checkbox17.Checked)and
(checkbox18.Checked)and
(checkbox19.Checked)and
(checkbox20.Checked)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit21.Text+'" AND rayon="'+edit22.Text+'" AND
query4.Active:=true;
end;
{1,3}
if (checkbox16.Checked)and
(checkbox17.Checked=false)and
(checkbox18.Checked)and
(checkbox19.Checked=false)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
Қосымша В-ның жалғасы
query4.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit21.Text+'" AND state="'+edit23.Text+'" AND
query4.Active:=true;
end;
{1,4}
if (checkbox16.Checked)and
(checkbox17.Checked=false)and
(checkbox18.Checked=false)and
(checkbox19.Checked)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home WHERE rooms="'+edit21.Text+'" AND plan="'+edit24.Text+'" AND
query4.Active:=true;
end;
{1,5}
if (checkbox16.Checked)and
(checkbox17.Checked=false)and
(checkbox18.Checked=false)and
(checkbox19.Checked=false)and
(checkbox20.Checked)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE rooms="'+edit21.Text+'" AND price BETWEEN
query4.Active:=true;
end;
{2,3}
if (checkbox16.Checked=false)and
(checkbox17.Checked)and
(checkbox18.Checked)and
(checkbox19.Checked=false)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home WHERE rayon="'+edit22.Text+'" AND state="'+edit23.Text+'" AND
query4.Active:=true;
end;
{2,4}
if (checkbox16.Checked=false)and
Қосымша В-ның жалғасы
(checkbox17.Checked)and
(checkbox18.Checked=false)and
(checkbox19.Checked)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit22.Text+'" AND plan="'+edit24.Text+'" AND
query4.Active:=true;
end;
{2,5}
if (checkbox16.Checked=false)and
(checkbox17.Checked)and
(checkbox18.Checked=false)and
(checkbox19.Checked=false)and
(checkbox20.Checked)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home WHERE rayon="'+edit22.Text+'" AND price BETWEEN
query4.Active:=true;
end;
{3,4}
if (checkbox16.Checked=false)and
(checkbox17.Checked=false)and
(checkbox18.Checked)and
(checkbox19.Checked)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE state="'+edit23.Text+'" AND plan="'+edit24.Text+'" AND
query4.Active:=true;
end;
{3,5}
if (checkbox16.Checked=false)and
(checkbox17.Checked=false)and
(checkbox18.Checked)and
(checkbox19.Checked=false)and
(checkbox20.Checked)then
begin
Қосымша В-ның жалғасы
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home WHERE state="'+edit23.Text+'" AND price BETWEEN
query4.Active:=true;
end;
{4,5}
if (checkbox16.Checked=false)and
(checkbox17.Checked=false)and
(checkbox18.Checked=false)and
(checkbox19.Checked=false)and
(checkbox20.Checked)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE plan="'+edit24.Text+'" AND price BETWEEN
query4.Active:=true;
end;
{2}
if (checkbox16.Checked=false)and
(checkbox17.Checked)and
(checkbox18.Checked=false)and
(checkbox19.Checked=false)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE rayon="'+edit22.Text+'" AND want=" купить
query4.Active:=true;
end;
{3}
if (checkbox16.Checked=false)and
(checkbox17.Checked=false)and
(checkbox18.Checked)and
(checkbox19.Checked=false)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE state="'+edit23.Text+'" AND want=" купить
query4.Active:=true;
end;
{4}
if (checkbox16.Checked=false)and
Қосымша В-ның жалғасы
(checkbox17.Checked=false)and
(checkbox18.Checked=false)and
(checkbox19.Checked)and
(checkbox20.Checked=false)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE plan="'+edit24.Text+'" AND want=" купить
query4.Active:=true;
end;
{5}
if (checkbox16.Checked=false)and
(checkbox17.Checked=false)and
(checkbox18.Checked=false)and
(checkbox19.Checked=false)and
(checkbox20.Checked)then
begin
query4.Active:=false;
query4.SQL.Text:='SELECT * FROM home_1 WHERE price BETWEEN '+edit11.Text+' AND
query4.Active:=true;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.DBNavigator1.BtnClick(nbinsert);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
dbedit10.Field.Text:=datetostr(datetimepicker1.Date);
dbedit6.Field.Text:=edit25.Text;
if (dbedit1.Field.Text='')and
(dbedit2.Field.Text='')and
(dbedit3.Field.Text='')and
(dbcombobox9.Field.Text='')and
(dbedit5.Field.Text='')and
(dbedit8.Field.Text='')and
(dbedit9.Field.Text='')and
(dbedit11.Field.Text='')and
(dbcombobox1.Field.Text='')and
Қосымша В-ның жалғасы
(dbcombobox2.Field.Text='')and
(dbcombobox3.Field.Text='')and
(dbcombobox4.Field.Text='')and
(dbcombobox5.Field.Text='')and
(dbcombobox6.Field.Text='')and
(dbcombobox7.Field.Text='')and
(dbcombobox8.Field.Text='')and
(dbcombobox10.Field.Text='')and
(dbcombobox10.Field.Text='')then
MessageDlg('Вы не ввели ни одной записи', mtInformation,[mbOk], 0)
else
form1.DBNavigator1.BtnClick(nbpost);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
form1.DBNavigator1.BtnClick(nbcancel);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
form1.DBNavigator1.BtnClick(nbdelete);
end;
procedure TForm1.TabSheet1Show(Sender: TObject);
begin
query1.active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE want="снять"';
query1.active:=true;
end;
procedure TForm1.TabSheet2Show(Sender: TObject);
begin
query2.active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE want="сдать"';
query2.active:=true;
end;
procedure TForm1.TabSheet3Show(Sender: TObject);
Қосымша В-ның жалғасы
begin
query3.active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE want="продать"';
query3.active:=true;
end;
procedure TForm1.TabSheet4Show(Sender: TObject);
begin
query4.active:=false;
query1.SQL.Text:='SELECT * FROM home_1 WHERE want="купить"';
query4.active:=true;
end;
procedure TForm1.TabSheet5Show(Sender: TObject);
begin
form1.DBNavigator1.BtnClick(nbinsert);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit25.Text:=timetostr(getTime);
end;
procedure TForm1.DBGrid5CellClick(Column: TColumn);
begin
form1.DBNavigator1.BtnClick(nbedit);
end;
end.
Қосымша Г-Программа жұмысының нәтижелері.
Сурет г.1 жалға берыу
Сурет г.2 жалға алу
Қосымша Г-ның жалғасы
Сурет г.3 сатып алу
Сурет г.4 сатып берыу
Қосымша Г-ның жалғасы
Сурет г.5 мәлыметтерді енгізу
Сурет г.6 жалға беруді тез іздеу
14
P.К.Өскенбаева
Әмірғалиев Е.Н.
Бельдеубаев М. Бельдеубаев
ПҚ қҚабПРҚабылдаған
Какенова Ө. С.
Қадыл Д.
Бақ. н.
Жетекшісі
Орындаған
№ құжат
Өзг.
Бет
Рецензент
Күні
Қолы
Дипломдық жоба
ҚазҰТУ
АТ институты
ЖжЖП кафедрасы
Д
Бет
Парақ
Литер
АҢДАТПА
Дипломдық жоба
Бет
Күні
Қолы
№ құжат
Бет
Өзг.
Дипломдық жоба
Бет
Күні
Қолы
№ құжат
Бет
Өзг.
Дипломдық жоба
Бет
Күні
Қолы
№ құжат
Бет
Өзг.
Дипломдық жоба
Бет
Күні
Қолы
№ құжат
Бет
Өзг.
Has
4
5
6
7
8
Өзг.
Бет
№ құжат
Қолы
Күні
Бет
Дипломдық жоба
9