C = Сктс + Салг + Сотл + Свн

мұндағы: Сктс – комплексті техникалық құралдарға кеткен шығындар;

Салг – алгоритмді өңдеуге кеткен шығындар;

Сотл – жазуға және отладкаға кеткен шығындар;

Свн – енгіздіруге (внедрения) кеткен шығындар.

2. Комплексті техникалық құралдарға кеткен шығынды есептеу:

мұнда Скомп =75000 теңге - компьютердің тұру бағасы;

Сприн = 38000 теңге - принтердің тұру бағасы;

С_др = 1700 теңге – басқа техникалық құралдардың тұру бағасы.

3. 
   Алгоритмді өңдеуге кеткен шығынды есептеу:
   

мұнда, Зп разр – құрастырушының оклады,

В – алгоритмді құруға кеткен уақыт, От - бағдарламаны құрастырумен айналысып жатқан бағдарламашы окладынан әлеу.сақтандыруға 20% бөлінген қаржы.

Құрастырушының оклады Зп разр- күніне 909 тенге ;

Алгоритмді құруға кеткен уақыт В - 10 күн;

Әлеуметтік сақтандыруға бөлінетін қаржы: бағдарламашы оклады 10 күнге 9090 тенгені құрайды: 909 тенге*10 күнге= 9090 тенге, яғни әлеуметтік сақтандыруға бөлінетін қаржы бағдарламашы окладынан 20% тең болады

Мұнан алатынымыз, Салг=909*10+1818=10908 тенге.

3. 
   Бағдарламаны жазуға және отладкаға кеткен шығындарды есептеу:
   

мұнда, Котл – бағдарламаның отладкасына кеткен машина уақытының бағасы; Кз п – жазумен және откладкамен айналасқан программистің фонд айлық төлемі.

Отладкаға жұмсалған машиналық уақыттың бағасы: Котл=күніне 909 тенге.

Кз.п. = K_м * Оразраб. + Отч;

мұнда, K_м = 15 күн – бағдарламаның отладкасына кеткен күндердің саны.

Oразраб. 909 тенге – бағдарламашының бір күндік оклады;

От =20% - бағдарламаны құрастырумен айналысып жатқан бағдарламашы окладынан әлеу.сақтандыруға бөлінген қаржы. = 909 тенге*15 күн*0,20= 2727

Қорытындылай келе: Сотл.= 12600+16362=28962 тенге.

3. 
   Бағдарламаны енгіздіруге кеткен шығынды есептеу:
   

мұнда, Квн. – енгіздіру уақытындағы машина уақытының бағасы;

Зп.вн. - енгіздіру уақытындағы бағдарламашының айлығы.

a) Квн=К*d*q;

мұнда , К = 6 сағат - бір күнде ЭЕМ-де жұмыс істеу уақыты (сағат);

d=3 күн - ЭЕМ-де жұмыс істеу күндерінің саны;

q=250 тенге – машина уақытының бағасы.

мұнда, Q вн. = 20000 тенге – енгіздірумен шұғылданған бағдарламашының оклады;

d=6 күн – ЭЕМ-де жұмыс істеу күндер саны;

Д=2 күн – бір айдағы жұмыс күндерінің саны;

От =20% - бағдарламаны құрастырумен айналысып жатқан бағдарламашы окладынан әлеу.сақтандыруға бөлінген қаржы.

Әлеуметтік сақтандыруға бөлінетін қаржы: бағдарламашы оклады айына 20000 тенгені құрайды, яғни әлеу.сақтандыруға бөлінетін қаржы бағдарламашы окладынан 20% тең болады.

Сонымен, бағдарламаны енгіздіруге кеткен шығын:

Енді алынған барлық мәндерді қоса отырып, жүйені құруға және енгіздіруге кеткен шығынды есептейміз:

1. Бағдарламаны қолданумен байланысқан эксплуатационды шығындарды есептелінуі:

мұнда, Тмв– есептеу кезіндегі ЭЕМ-нің қолданылу уақыты;

Sm – машина сағатының бағасы.

Есептеу кезіндегі ЭЕМ-нің қолданылу уақыты бір сменге күніне 6 сағат, ал бір жылда жұмыс күндері 288 құрайды. Сонда Тмв=6*288=1728 сағат жылына. Машина сағатының бағасы Sm= 140 тенге құрайды.

Сонымен, бағдарламаны қолдануға жұмсалған эксплуатационды шығын: Еэкспл. = 1728 * 140 = 241920 тенге жылына.

2. 
   Жылдық эксплуатациондық шығындарды экономдау:
   

мұнда, Wо = 0,35 – ай сайын берілетін айлық көлемі;

Wq =0,15 – қосымша айлықты есептеу коэффициенті;

Взпр- есепті қолмен шығарған жұмысшылардың негізгі айлығы. Еэкспл-бағдарламаны қолданумен байланысқан эксплуатационды шығындар. Еэкспл 241920 тенгені құрайды. Бұл жұмысты айлық оклады 20000 тенгені құрайтын 3 адам орындайды. Сонда, жұмысшлардың негізгі айлығы жылына құрайды: Вз.пр= 5000*6*12= 360000 тенге жылына. Сонда:

2. Өзінің жемісін беретін уақыт.

мұнда, С - жүйені құруға және енгіздіруге кеткен шығын 173879 тенгеге тең. dЕэкспл- жылдық эксплуатациондық шығындарды экономдау 337140 тенгені құрайды.

3. Бағдарламаның тұру бағасы.

мұнда , S р.п- бағдарламаны құруға кеткен шығындар;

N = 4 - бағдарламаны қолданып жатқан бөлімшелердің саны. Бағдарламаның тұру бағасы құрайды: S = 173879 / 4 = 43469,7 тенге.

Дипломдық жобаны орындау барысында бағдарламалық құралдар комплексінің экономикалық эффективтілігі дәлелденіп, есептелінді. Бағдарламалық қамтамасыздандыруды құруға және енгіздіруге кеткен шығындар есептелініп, олардың қосындысы 173879 теңгені құрады. Бағдарламалық өнімнің бағасы мен қолданылу уақытына байланысты жұмсалатын капитальдық бөлінулердің есептеулері жүргізілді. Электронды - есептеуіш машиналарында шешілетін арнайы есептерге байланысты құралдардың экономдауы есептелінді. Бағдарламаның тұру бағасы 43469,7 тенгені құрады.

Жобаның технико-экономикалық көрсеткіштері

Кесте жалғасы

Программаның құны 43469,7 тенгеге тең. Бұл құрастырылған бағдарламалық пакет автоматтандырылмаған жұмыс үрдісін әлдеқайда жоғарылатып, жұмыс өнімін көтереді, және де экономикалық көзқараспен қарағанда тиімді болып табылады.

5 ТІРШІЛІК ҚАУІПСІЗДІГІ ЖӘНЕ ЕҢБЕКТІ ҚОРҒАУ

5.1. Мекемелерде өртке қарсы қорғаныс

Есептеуіш техниканың өртеніп кетуі, үлкен материялдың жоғалып кетуі мүмкін. Барлығымызға белгілі өрт ыстық заттардың қосылуынан қайнауымен және ток көздерінен шығады. Есептеуіш техникасы мекемелерінде өрт шығуға үш түрлі себеп бар.

Жанатын заттар: кеңсесінің акустикалық және эстетикалық құрлыс материялдары, есік, еден, кабел сырттары. Адамдардың өрткке қарсы қауіпсіздіктерін қамтамасыз ету және өртті тезірек өшіру жолдарын ұйымдастыру.

Өрттің шығу жолдарды, яғни өртенуі мүмкін заттар ЭЕМ- нің электронды сызбаларо, приборлар, техникалық қызметтерді пайдалану, электіңрлік құрылғы, ауа кондиционері,құралдардың дұрыс жұмыс істеуі,эекторліе тұйықтаулар болуы мүмкін.

Соңғы заманда ЭЕМ дер электронды сызбалары өте берік жасалған. Кей жағдайларда электр сымдары бір – біріне өте жақын оналасады.Бұл жағдайда белгілі бір мөлшерде шұнурлардан жылу бөлініп шығады. Оысдан шұнурдың сыртқы қабығы қыза бастайды. Мұндай қызуларды болдырмау үшін ЭЕМ де салқындатушы қондырғылар орнатылған. Ал мұндай жағдай барлық уақытта қайталанады, өрт қауіптілігін тудырады.Энергетикалық қамтамасыз ету транспорматорлық станциялардан негізгі қауіптер маймен салқындайтын траспорматорлар.

Двигателді генерлаторлі агрегаттардың өрт шығару қауіптілігі қысқа тұйықталудан, өшіп қайта қосылудан, электірлік тұйықталулар.Ал қауіпсіз жағдайда жұмыс істеуі үшін дұрыс есептеп қондырғылардың қорғанысын күшейту керек. Қондырғыларға жөндеу профелактикалық жұмысшыларын жүргізу кезінде әртүрлі майлар қолданылады,оңай ауыстырылатын сұйықтықтар уақытша сындар мен ауыстырылады және жеке бөліктерін жалғау және тазалау жұмыстары жүргізіледі. Күйдіріп жалғау жұмыстарын жүргізу кезінде жанбайтын заттармен қамтамасыз ету.

Көптоеген кеңселерде өрт қауіпсіздігін В категориясы белгіленген. Басты шарттардын бірі кеңсенің құрлыс бөлікттерін жоғарыға температуралардан сақтау.

Құрлыс жобасын дайындау үшін кірпіш, темір бетон, айна,темір және басқада жжанбайтын металдар пайдаланылады. Ағашты қолдану мөлшері шектелген, ал қолданылған жағдайда құрамын өртенбейтін ету шараларын жүргізу керек.

Өрт болған жағдайда оны өшіру үшін құралдар, ішкі өрт сөндіру, су құбырлары, құрғақ құм, асбестік адиялдал т.б қолданылады. Су құбырлары кеңсенің дәліздерінде кіреберістерге орнатылады. Егер прогремистердің, библотекалардың, көмекші қызметтік кеңселерінде өрт шыққан жағдайда сумен өшіріледі. Су арқылы өртті өшіру ақпараттарды сақтау, ЭЕМ залы, бақылау өлшеу құралдарының толық істен шығуы мүмкін. Сондықтан суды қолдану не барынша аз болуы керек және ЭЕМ құрылғылары бризнпен немесе оттан қорғайтын басқада затпен жабылуы керек.Өртті өшіру үшін алғашқы сәттерде шағын өрт сөндіру (огнетушитель) құралымен жүргізіледі. Шағын өрт сөндіру құралдары қолданылу түріне қарай төмендегі негізге топттарға бөлінеді. Пендік шағын өрт сөндіру құралдары.Бұл өрт сөндіру құралы, сұйықтықтар жанған кезде құрал жабдықтардан ток көзіне жалғанбаған электірлік құрылғылардан өрт пайда боланда.

Бұл материал жеке компьютерді, принтерді, сканерді және басқа да техникаларды пайдаланатын қызыметкерлер мен студентерге арналған.

Жеке компьютерді қолданушылар жұмыс істеуден алдын белгіленген тәртіп бойынша және белгілі уақытта міндетті түрде медициналық тексеруден өтуі тиіс. Жеке компьютерде жұмыс істеуге медициналық тексеруден өткен адамдарға рұқсат беріледі.

Егер де компьютерді қолдаушы жүкті болған жағдайды,және емізулі баласы болған жағдайда жұмысқа жіберілмейді.

Компьютерді жоғарғы деңгейде қолданушының жасы 18-ге толған және де электр құрал жабдықтарын қолдануға рұқсаты бар, барлық инструкциясы таныс болуы керек.

Компьютермен жұмыс істейтін кеңседе алғашқы көмек көрсету үшін дәрігерлік қорапша, және өрт сөндіргіш құрал болу керек.

Есептеуіш машинасы жұмыс істеушілердің эксплуатциялық негізгі ережелері.

1. 
   Жұмыс істеуден алдын.
   

• 
  Экранды манитордың жоғары жағын, принтерді, жүйелі блокты сулы матамен сүртуге болмайды.Сүрту үшін компьютер токтан ажыратылып тұруы тиіс.
  
• 
  Құралдарды іштен тексеру керек, шнурларды және интерфисті.
  

Компьютердің құрылғылары қосылып тұрған кезде,ток көзінен ажыратуға болмайды. Өшірген жағдайда олардың қосылуы 1- мин тан артық болмайды.

Кабелдердің интерфейстерінің қосылуы мен ажыратылуы, құрылғылар арасында ток көзінен ажыратылған жағдайда атқарылады.

2. 
   Жұмыс кезінде дискеттердің дисковадқа дұрыс кіруін бақылау қажет. Дискеттердің корпусында көзге көрінетін механикалық ақаулар болмауы тиіс. Дисковадтағы дискеттерден ақау табылған жағдайда компьютер инжинерін шақыру тиіс.
   

Баспаға шығару сапасы төмендесе,таңбалар анық көрінбесе, қосымша дыбыстар пайда болса, компьютер инжинерін шақыру тиіс.

3. 
   Жұмысшы аяқтаған соң маниторды, компьютердің жүйелік блогын, принтерді және де басқа да техникалардың сөндіріп, ток көзінен ажыратуын қолдануға тиіс.
   
4. 
   Техникаларды мынандай жағдайда басқа жерге көшіруге тиым салынады.
   

• 
  Жарамсыз орталықта білім алған маман иесін көшіруі.
  
• 
  Жер астынан контурға жалғанбаған жағдайда.
  
• 
  Floppi – дисковадтарының корпусында механикалық ақаулары болған жағдайда.
  
• 
  Түзетілмеген электр желісі болған жағдайда.
  

1. 
   Компьютер тұрған жерде табиғи және жасанды заттар болуға тиіс.
   
2. 
   Терезе солтүстікке солтүстік шығысқа қарап тұруы тиіс.
   
3. 
   Егер экран күнге шағылысатын болса, оған шек қою тиіс.
   
4. 
   Сөндірілмейтін шырақтармен (свейтилник) экран торларын қолдануға болмайды. Жұмыс орнында жылына екі реттен кем емес тазалық өткізілуі тиіс. Терезелердің рамкаларымен шырақтардың лампыларын сүртіп, күйген жағдайда жедел түрде ауыстыру керек.
   
5. 
   Компьютермен жұмыс істеу орны 6,0кв.м кем емес, ауданы 24,0куб.м кем болмауы тиіс.
   
6. 
   Дыбыс шығаратын құрылғылар гигеналық талаптарға сай болуы тиіс және де САН ПиН – нің 2.2.2542 - 96 талабы бойынша орташа дыбыс 50дБА аспауы тиіс.
   
7. 
   Жұмыс орнында жылу желісі кандиционер немесе желдеткіш болуы шарт.
   
8. 
   Компьютермен жұмыс уақытында бөлме температурасына көңіл бөлу шарт:
   

- Ауа ылғалдығы -10 – 80% желдеткішсіз

- max выбрациясы -0,25 – 55Гц.

9) Техника сақталатын орындарда мынандай ауа температурасына көңіл бөлуі шарт.

Оргинал қаптаманың (упаковка) сақталуы.

• 
  Ауа температурасы -20+60⁰ аралығы.
  
• 
  Ауа ылғалдылығы -5-85% желдеткішсіз.
  
• 
  Max выбрациясы -0,5-55Гц.
  

11) Техникаға тура түсетін күн сәулесінен қорғанған болуы тиіс.

12) Компьютермен жұмыс орнында күн сайын ылғал мен тазалау керек.

Компьютермен жұмыс кезінде Ж.О.О-ның студенттеріне жұмыс уақытысында қойылатын талаптар.

1. 1-курс студенттері үшін жұмыс уақыты 1-сағатты құрайды, Ал жоғарғы курс студенттері үшін 2-сағат, академиялық 2-сағатпен қоса арасындағы үзіліс 15-20мин. Жұмыс уақытын 1-сағатқа ұзартуға болады, берілетін уақыт барлық жұмыс уақытының 50% құрауы тиіс. Прафилактикалық шараларын көзге жаттығу, фискультпауза и фискултьминутка жасалуын қолдау тиіс. Қамтамасыз ету шараларын жұмыс уақытында есте сақтау тиіс.

- Әр 20-25минут сайын көзге жаттығу жасау қажет.

- Әр академиялық сағаттан соң 15минут үзіліс жасау.

- Экран видио манитордағы құжаттардың дұрыс өшірілуі.

- Үзіліс кезінде студенттердің шығып кетпесімен бөлме ішін терезені ашып желдету керек.

- Үзіліс кезінде 3-4мин физикалық жаттығу жасау керек.

- Фискултьминутка жаттығуын 1-2мин жасауын қадағалау тиіс.

- Жаттығу көпшіліктерін 2-3апта сайын ауыстыру керек.

3. Фискультура үзілістерін физрук оқытушысы немесе радиодан берілген анықтама бойынша жүргізу керек. Фискультура жаттығуы кезінде төмен қарау керек. Қызметкерлерге күніне 8-сағат компьютерлерде жұмыс істеуге рұқсат беріледі, ол жәй күндері 6-сағаттан артық уақыт отыруға болмайды.

Компьютер алдында үзіліссіз 2-сағаттан артық отыруға болмайды. 8-сағаттық жұмыс уақыты кезінде әр 1,5 – 2сағат сайын жұмыс уақыты басталысымен және түскі үзіліс уақытынан кейін әр 1,5-2сағат сайын 15-20минут. Үзіліс кезінде арнайы жаттығулар жасалады.

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

7. қолданылған әдебиеттер тізімі

1. 
   А.Я. Архангельский. Интегрированная среда разработки Delphi. От версии 1 до версии 5. Москва, ЗАО «Издательство БИНОМ» , 1999.
   
2. 
   А.Я. Архангельский. Работа с локальными базами данных в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.
   
3. 
   А.Я. Архангельский. Язык SQL в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.
   
4. 
   В.Гофман, А.Хомоненко, Delphi 5, Наиболее полное руководство. Изд-во "БХВ- Санкт-Петербург", 1999 г.
   
5. 
   Бобровский С., DELPHI 5: учебный курс. С.-П., «Питер», 2000.
   

6. 
   Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. – М.: Финансы и статистика, 1989. – 351 с.
   
7. 
   Дейт К. Руководство по реляционной СУБД DB2. – М.: Финансы и статистика, 1988. – 320 с.
   
8. 
   Джексон Г. Проектирование реляционных баз данных для использования с микроЭВМ. -М.: Мир, 1991. – 252 с.
   
9. 
   Кириллов В.В. Структуризованный язык запросов (SQL). – СПб.: ИТМО, 1994. – 80 с.
   
10. 
    Мартин Дж. Планирование развития автоматизированных систем. – М.: Финансы и статистика, 1984. – 196 с.
    
11. 
    Мейер М. Теория реляционных баз данных. – М.: Мир, 1987. – 608 с.
    
12. 
    Тиори Т., Фрай Дж. Проектирование структур баз данных. В 2 кн., – М.: Мир, 1985. Кн. 1. – 287 с.: Кн. 2. – 320 с.
    
13. 
    Ульман Дж. Базы данных на Паскале. – М.: Машиностроение, 1990. –386с.
    

15. Уркумбаев М.Ф., Терещенко С.А., Уркумбаева Т.Н. «Алгебра власти».-Тараз, 2005 г.

16. Уркумбаев М.Ф., Уркумбаев Б.Ф., Аманбаев Б.Б., Уркумбаева М.М. «Бизнес-план в дипломной работе».- Шымкент, 2005 г., 217 стр.

17. Алан Вест Бизнес - план: учеб. пр. пособие (перевод с английского Н.И.Аклозовой и И.Ю.Букиной - 3-е изд. - Москва: издательство Проспект, 2005 - 232 с.)

18. Алексеева М.М, «Планирование деятельности фирмы» - М.: Финансы и статистика, 2001г.

19. Бизнес-план. Под редакцией проф. Р.Г.Маниловского. Москва «Финансы и статистика», 1996.

20. «Бизнес-планирование» / Под ред. В.М. Попова, С.И. Ляпунова - М.: Финансы и статистика, 2000г.

21. Бригхем Ю., Гапенски Л. Финансовый менеджмент. Полный курс. В 2-х т. / пер. с английского под ред. В.В. Ковалева - СПб.: Экономическая школа, 1997г.

8 ҚОСЫМШАЛАР
8.1 Бағдарлама листингісі

unit Unit1;

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

Dialogs, StdCtrls, ComCtrls, Grids, ValEdit, ExtCtrls, Buttons;
type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

ScrollBox1: TScrollBox;

Cbcheck: TCheckBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Cb_gr: TRadioGroup;

Memo1: TMemo;

Label1: TLabel;

Label7: TLabel;

LabeledEdit3: TLabeledEdit;

LabeledEdit4: TLabeledEdit;

LabeledEdit5: TLabeledEdit;

Label8: TLabel;

Label9: TLabel;

RadioGroup2: TRadioGroup;

CheckBox2: TCheckBox;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

RadioGroup3: TRadioGroup;

RadioGroup4: TRadioGroup;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

RadioGroup5: TRadioGroup;

RadioGroup6: TRadioGroup;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

LabeledEdit6: TLabeledEdit;

LabeledEdit7: TLabeledEdit;

SpeedButton1: TSpeedButton;

Label24: TLabel;

Spol: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

Label25: TLabel;

Image1: TImage;

ScrollBox3: TScrollBox;

Image2: TImage;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

mrp: TLabeledEdit;

transport: TRadioGroup;

procedure Cb_grClick(Sender: TObject);

procedure SpolChange(Sender: TObject);

procedure LabeledEdit3Change(Sender: TObject);

procedure RadioGroup3Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure RadioGroup4Click(Sender: TObject);

procedure RadioGroup5Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure RadioGroup6Click(Sender: TObject);

procedure LabeledEdit6Change(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure transportClick(Sender: TObject);

private

public

Ket, Kugl,Kmat,Kblag,Kotopl :Extended;

Cnalog:Extended;
{ Public declarations }

end;
var

Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.Cb_grClick(Sender: TObject);

begin

if cbcheck.Checked=true then begin

0: cb:=30000*25/100;

1: cb:=18000*25/100;

2: cb:=18000*25/100;

3: cb:=12000*25/100;

4: cb:=6000*25/100;

5: cb:=4200*25/100;

6: cb:=2700*25/100;

end;

showmessage('Базовая стоимость c учетом 25% = '+floattostr(cb));

case cb_gr.ItemIndex of

0: cb:=30000;

1: cb:=18000;

2: cb:=18000;

3: cb:=12000;

4: cb:=6000;

5: cb:=4200;

6: cb:=2700;

end;

end;

begin

spolezn:=strtofloat(spol.Text);

form1.Caption:=floattostr(spolezn);

end;

begin

(labelededit5.Text<>'') then begin

Iphiz:=(strtofloat(labelededit3.Text)-strtofloat(labelededit4.Text))

* strtofloat(labelededit5.Text)/100;

form1.Caption:='Физический износ имущества= '+floattostr(Iphiz);

Kphiz:=1-Iphiz;

showmessage('Коэффициент Физического износа имущества= '+floattostr(Kphiz));

end;
if (labelededit3.Text='') or (labelededit4.Text='') or

(labelededit5.Text='') then

showmessage('Не все поля заполнены');

end;
procedure TForm1.RadioGroup3Click(Sender: TObject);

begin

0: Kugl:=0.95;

1: Kugl:=1;

end;

end;

begin
case radiogroup2.ItemIndex of

0: Ket:=0.95;

1: Ket:=1.00;

2: Ket:=0.9;

end;

end;
procedure TForm1.RadioGroup4Click(Sender: TObject);

begin

case radiogroup4.ItemIndex of

1: Kmat:=1.0;

2: Kmat:=1.05;

3: Kmat:=1.0;

4: Kmat:=1.05;

5: Kmat:=0.5;

6: Kmat:=0.6;

7: Kmat:=0.7;

8: Kmat:=1.0;

9: Kmat:=0.6;

10: Kmat:=0.75;

11: Kmat:=0.85;

12: Kmat:=0.75;

13: Kmat:=0.95;

14: Kmat:=0.6;

end;

begin
case radiogroup5.ItemIndex of

0: Kotopl:=1.0;

1: Kotopl:=0.98;

2: Kotopl:=0.95;

3: Kotopl:=0.9;

end;

showmessage('Поправочный коэффициент отопления '+floattostr(Kotopl));

begin

if checkbox2.Checked=true then begin

radiogroup2.Enabled:=false;

Ket:=1;

end;
end;

begin

0: Kblag:=1;

1: Kblag:=0.8;

end;

end;
procedure TForm1.LabeledEdit6Change(Sender: TObject);

begin

if (labelededit6.Text<>'') and (labelededit7.Text<>'')

Kizm_mrp:= strtofloat(labelededit6.Text)/strtofloat(labelededit7.Text);

form1.Caption:='Коэффициент изменения месячного расчетного показателя '+

floattostr(Kizm_mrp);

end;
procedure TForm1.SpeedButton1Click(Sender: TObject);

var stavka:extended;

begin

kzon:=strtofloat(labelededit2.Text);

showmessage ('К функционал='+floattostr(Kfunc));

showmessage ('Cb '+floattostr(cb));

showmessage ('Spolezn '+floattostr(Spolezn));

showmessage ('Kphiz '+floattostr(Kphiz));

showmessage ('Kfunc '+floattostr(Kfunc));

showmessage ('Kzon '+floattostr(Kzon));

showmessage ('Kizm_mrp '+floattostr(Kizm_mrp));

Cnalog:=Cb*Spolezn*Kphiz*Kfunc*Kzon*Kizm_mrp;

showmessage ('Наконец-то посчитали стоимость имущества для целей налогообложения='+floattostr(Cnalog));

then begin

stavka:= (Cnalog*0.15/100)+1000;

showmessage ('Ставка налога составило'+floattostr(stavka)+'тенге');

end;
if (Cnalog<1000000)

then begin

stavka:= Cnalog*0.1/100;

showmessage ('Ставка налога составило '+floattostr(stavka)+' тенге');

end;
if (Cnalog>=2000000) and (Cnalog<3000000)

then begin

stavka:= (Cnalog*0.2/100)+2500;

showmessage ('Ставка налога составило '+floattostr(stavka)+' тенге');

end;
if (Cnalog>=3000000) and (Cnalog<4000000)

then begin

stavka:= (Cnalog*0.3/100)+4500;

showmessage ('Ставка налога составило '+floattostr(stavka)+' тенге');

end;
end;
procedure TForm1.transportClick(Sender: TObject);

var m3:string; mrpauto:extended;

begin

mrpauto:=strtofloat(mrp.Text);

0: begin

if strtofloat(m3)<1100 then showmessage ('Ставка налога = '+floattostr(mrpauto*4));

if (strtofloat(m3)>=1100) and (strtofloat(m3)<1500)

then showmessage ('Ставка налога = '+floattostr(mrpauto*6));

then showmessage ('Ставка налога = '+floattostr(mrpauto*7));

if (strtofloat(m3)>=2000) and (strtofloat(m3)<4000)

then showmessage ('Ставка налога = '+floattostr(mrpauto*22));

then showmessage ('Ставка налога = '+floattostr(mrpauto*117));

end;
1: begin

m3:=InputBox('Введите грузоподъемность', 'тонны', 'Вот сюда');

if strtofloat(m3)<1500 then showmessage ('Ставка налога = '+floattostr(mrpauto*9));

if (strtofloat(m3)>=1500) and (strtofloat(m3)<5000)

then showmessage ('Ставка налога = '+floattostr(mrpauto*12));
if strtofloat(m3)>=5000

then showmessage ('Ставка налога = '+floattostr(mrpauto*15));

3: begin

if strtofloat(m3)<12 then showmessage ('Ставка налога = '+floattostr(mrpauto*9));

if (strtofloat(m3)>=12) and (strtofloat(m3)<25)

then showmessage ('Ставка налога = '+floattostr(mrpauto*14));

if strtofloat(m3)>=25

then showmessage ('Ставка налога = '+floattostr(mrpauto*20));

end;
4: showmessage ('Ставка налога = '+floattostr(mrpauto*1));
5: begin

m3:=InputBox('Введите мощность лошадиных сил', 'л.с.', 'Вот сюда');

if strtofloat(m3)<160 then showmessage ('Ставка налога = '+floattostr(mrpauto*6));

if (strtofloat(m3)>=160) and (strtofloat(m3)<500)

then showmessage ('Ставка налога = '+floattostr(mrpauto*18));
if (strtofloat(m3)>=500) and (strtofloat(m3)<1000)

then showmessage ('Ставка налога = '+floattostr(mrpauto*32));

if strtofloat(m3)>=1000

then showmessage ('Ставка налога = '+floattostr(mrpauto*55));

end;
6: showmessage ('Ставка налога = '+floattostr(mrpauto*8));
end;

end;

unit Unit2;

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

Dialogs, StdCtrls, Buttons, XPMan, jpeg, ExtCtrls;
type

TForm2 = class(TForm)

XPManifest1: TXPManifest;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Image1: TImage;

Image2: TImage;

Label1: TLabel;

Label2: TLabel;

BitBtn5: TBitBtn;

procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;
var

Form2: TForm2;

function currency2Str (value: double): string;

ones: array [0..19] of string = ('','','',' три',' четыре',' пять',' шесть',' семь',' восемь',' девять',' десять',' одиннадцать',' двенадцать',' тринадцать',' четырнадцать',' пятнадцать',' шестнадцать',' семнадцать',' восемнадцать',' девятнадцать');

razryad: array [0..6] of string = ('',' тысяч',' миллион',' миллиард',' триллион',' квадриллион',' квинтиллион');
var s: string; i: integer; val: int64;

function shortNum(s: string; raz: integer): string;

begin

Result:=hundreds[StrToInt(s[1])]; if StrToInt(s)=0 then Exit;

Result:=Result+tens[StrToInt(s[2])];

case StrToInt(s[3]) of

1: if raz=1 then Result:=Result+' одна' else Result:=Result+' один';

2: if raz=1 then Result:=Result+' две' else Result:=Result+' два';

else Result:=Result+ones[StrToInt(s[3])];

end;

Result:=Result+razryad[raz];

0,5,6,7,8,9: if raz>1 then Result:=Result+'ов';

1: if raz=1 then Result:=Result+'а';

2,3,4: if raz=1 then Result:=Result+'и' else if raz>1 then Result:=Result+'а';

end;

end else begin

Result:=Result+razryad[raz];

if raz>1 then Result:=Result+'ов';

end;

if val=0 then begin Result:='ноль'; Exit; end;

s:=IntToStr(val); Result:=''; i:=0;

while Length(s)>0 do begin

Result:=shortNum(Copy('00'+s,Length('00'+s)-2,3),i)+Result;

if Length(s)>3 then s:=Copy(s,1,Length(s)-3) else s:='';

inc(i);

end;

Result:=Result+' тенге '+s+' тиын';

end;

{$R *.dfm}

Y: Integer);

begin

bitbtn1.Font.Color:=clgreen;

end;
procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn1.Font.Size:=12;

bitbtn2.Font.Color:=clblack;

bitbtn2.Font.Size:=12;

bitbtn3.Font.Size:=12;

bitbtn4.Font.Size:=12;

bitbtn5.Font.Size:=12;

Y: Integer);

begin

bitbtn2.Font.Color:=clgreen;

end;
procedure TForm2.BitBtn3Click(Sender: TObject);

begin

form1.Show;

Y: Integer);

begin

bitbtn3.Font.Color:=clgreen;

end;
procedure TForm2.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn4.Font.Size:=18;

end;
procedure TForm2.FormShow(Sender: TObject);

begin

end;
procedure TForm2.BitBtn1Click(Sender: TObject);

begin

form3.main_t.Filtered:=false;

end;
procedure TForm2.BitBtn2Click(Sender: TObject);

begin

form5.Show;

begin

end;
procedure TForm2.BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn5.Font.Size:=18;

end;
procedure TForm2.BitBtn5Click(Sender: TObject);

var sss,s:string;

begin
s:=inputbox('Печать квитанций','Введите РНН','Вот сюда');

form3.main_t.Filter:='rnn='+''''+s+'''';

form3.main_t.Filtered:=true;
form7.qrlabel35.Caption:=form3.ADOTable1Summ.Text;

if form7.qrlabel35.Caption='' then form7.qrlabel35.Caption:='0';

if form7.qrlabel36.Caption='' then form7.qrlabel36.Caption:='0';

if form7.qrlabel37.Caption='' then form7.qrlabel37.Caption:='0';

strtoint(form7.qrlabel37.Caption));

sss:= currency2Str(strtoint(form7.QRLabel34.Caption));

//showmessage(sss);

form7.QRLabel4.Caption:=sss{strtoint(form7.QRLabel34.Caption)); } ;

form7.QuickRep1.Preview;

unit Unit3;

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

Dialogs, DB, StdCtrls, Mask, DBCtrls, XPMan, ExtCtrls, Grids, DBGrids,

ADODB, Buttons;

TForm3 = class(TForm)

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOTable1code: TAutoIncField;

ADOTable1code_fio: TIntegerField;

ADOTable1Summ: TIntegerField;

ADOTable1nedoimki: TIntegerField;

ADOTable1peni: TIntegerField;

ADOTable1S_plosh: TWideStringField;

DataSource2: TDataSource;

DataSource3: TDataSource;

ADOTable2: TADOTable;

XPManifest1: TXPManifest;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

DBEdit5: TDBEdit;

Label5: TLabel;

DBEdit4: TDBEdit;

Label4: TLabel;

DBEdit3: TDBEdit;

Label3: TLabel;

DBEdit2: TDBEdit;

Label2: TLabel;

DBEdit1: TDBEdit;

Label1: TLabel;

Label6: TLabel;

Panel2: TPanel;

DBGrid1: TDBGrid;

Label7: TLabel;

Panel3: TPanel;

DBGrid2: TDBGrid;

Label8: TLabel;

Panel4: TPanel;

Label9: TLabel;

DBGrid3: TDBGrid;

DataSource4: TDataSource;

ADOTable3: TADOTable;

DBNavigator2: TDBNavigator;

DBNavigator3: TDBNavigator;

DBNavigator4: TDBNavigator;

ADOConnection1: TADOConnection;

main_t: TADOTable;

main_tCode_N: TAutoIncField;

main_tFIO: TWideStringField;

main_tRNN: TWideStringField;

main_tAdress: TWideStringField;

main_ttelephon: TWideStringField;

ADOTable2code: TAutoIncField;

ADOTable2code_fio: TIntegerField;

ADOTable2kadastr_number: TWideStringField;

ADOTable2mesto: TWideStringField;

ADOTable2summ: TIntegerField;

ADOTable2nedoim: TIntegerField;

ADOTable2peni: TIntegerField;

ADOTable2S_plosh: TWideStringField;

ADOTable3code: TAutoIncField;

ADOTable3code_fio: TIntegerField;

ADOTable3naimenovanie_auto: TWideStringField;

ADOTable3year: TWideStringField;

ADOTable3summ: TIntegerField;

ADOTable3nedoim: TIntegerField;

ADOTable3peni: TIntegerField;

private

public

end;
var

Form3: TForm3;
implementation
uses Unit4;
{$R *.dfm}

end.

SysUtils, Classes, ADODB, DB;

TDataModule4 = class(TDataModule)

private

{ Private declarations }

{ Public declarations }

end;
var

DataModule4: TDataModule4;

unit Unit5;

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

Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB, ExtCtrls;
type

TForm5 = class(TForm)

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

BitBtn1: TBitBtn;

LabeledEdit1: TLabeledEdit;

RadioGroup1: TRadioGroup;

ADOTable1Code_N: TAutoIncField;

ADOTable1FIO: TWideStringField;

ADOTable1RNN: TWideStringField;

ADOTable1Adress: TWideStringField;

ADOTable1telephon: TWideStringField;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);
procedure LabeledEdit1Change(Sender: TObject);

private

public

end;
var

Form5: TForm5;
implementation
uses Unit3;
{$R *.dfm}
procedure TForm5.BitBtn1Click(Sender: TObject);

begin

end;

procedure TForm5.LabeledEdit1Change(Sender: TObject);

var s:string;

begin

case radiogroup1.ItemIndex of

1: adotable1.Filter:='adress='+''''+labelededit1.Text+'''';

2: adotable1.Filter:='rnn='+''''+labelededit1.Text+'''';
end;
form5.Caption:=adotable1.Filter;

Adotable1.filtered:=true;

end;
end.

unit Unit6;

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

Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls;
type

TForm6 = class(TForm)

QuickRep1: TQuickRep;

PageFooterBand1: TQRBand;

QRExpr1: TQRExpr;

ColumnHeaderBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel3: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRLabel12: TQRLabel;

DetailBand1: TQRBand;

QRExpr2: TQRExpr;

QRExpr4: TQRExpr;

QRExpr9: TQRExpr;

QRExpr10: TQRExpr;

QRExpr11: TQRExpr;

QRExpr12: TQRExpr;

QRExpr13: TQRExpr;

QRBand1: TQRBand;

QRLabel2: TQRLabel;

ADOTable1: TADOTable;

ADOTable1Code_N: TAutoIncField;

ADOTable1FIO: TWideStringField;

ADOTable1RNN: TWideStringField;

ADOTable1Adress: TWideStringField;

ADOTable1telephon: TWideStringField;

QRExpr3: TQRExpr;

QRLabel4: TQRLabel;
private

{ Private declarations }

public

{ Public declarations }

Form6: TForm6;

end.

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

QuickRep1: TQuickRep;

PageFooterBand1: TQRBand;

ColumnHeaderBand1: TQRBand;

QRLabel9: TQRLabel;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRLabel12: TQRLabel;

DetailBand1: TQRBand;

QRExpr10: TQRExpr;

QRExpr11: TQRExpr;

QRExpr12: TQRExpr;

QRExpr13: TQRExpr;

QRBand1: TQRBand;

QRLabel5: TQRLabel;

QRLabel2: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel13: TQRLabel;

QRLabel14: TQRLabel;

QRLabel15: TQRLabel;

QRDBText1: TQRDBText;

QRShape1: TQRShape;

QRDBText2: TQRDBText;

QRShape2: TQRShape;

QRShape3: TQRShape;

QRShape4: TQRShape;

QRShape5: TQRShape;

QRShape6: TQRShape;

QRShape7: TQRShape;

QRDBText3: TQRDBText;

QRShape8: TQRShape;

QRShape9: TQRShape;

QRShape10: TQRShape;

QRShape11: TQRShape;

QRShape12: TQRShape;

QRLabel16: TQRLabel;

QRLabel17: TQRLabel;

QRLabel18: TQRLabel;

QRLabel19: TQRLabel;

QRLabel20: TQRLabel;

QRLabel21: TQRLabel;

QRLabel22: TQRLabel;

QRLabel23: TQRLabel;

QRLabel24: TQRLabel;

QRLabel25: TQRLabel;

QRLabel26: TQRLabel;

QRLabel27: TQRLabel;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

QRDBText8: TQRDBText;

QRDBText9: TQRDBText;

QRShape13: TQRShape;

QRLabel28: TQRLabel;

QRShape14: TQRShape;

QRShape15: TQRShape;

QRShape16: TQRShape;

QRLabel29: TQRLabel;

QRLabel30: TQRLabel;

QRLabel31: TQRLabel;

QRLabel32: TQRLabel;

QRLabel33: TQRLabel;

QRLabel34: TQRLabel;

QRLabel35: TQRLabel;

QRLabel36: TQRLabel;

QRLabel37: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

private

{ Private declarations }

{ Public declarations }

end;
var

Form7: TForm7;

QRDBText5: TQRDBText;

QRMemo8: TQRMemo;

QRExpr4: TQRExpr;

QRExpr5: TQRExpr;

QRMemo9: TQRMemo;

QRMemo10: TQRMemo;

QRExpr6: TQRExpr;

QRMemo11: TQRMemo;

QRMemo12: TQRMemo;

private

{ Private declarations }

{ Public declarations }

end;

var

implementation

uses Unit7;

{$R *.dfm}

end