Xxi ғасыр ақпараттандырылған кезең болғандықтан


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



жүктеу 1,94 Mb.
бет7/7
Дата07.12.2017
өлшемі1,94 Mb.
#3493
1   2   3   4   5   6   7

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

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

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

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

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

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



Сктс= Скомп. + Сприн. + Сдр;

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

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

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



Сктс =75000+38000+1700=114700 тенге

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

Салг= Зп разр * В + От;

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

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

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

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

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



От= 9090*0,20=1818 тенге.

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



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

Сотл = Котл + Кз п;

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

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

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

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

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

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



Кз.п.=15*909 +2727=16362 тенге.

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



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

Свн= Квн + Зп.вн;

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

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

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

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

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

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



Квн=6*10*140=8400 тенге

б) Зп.вн. = Q. вн * d/ДОтч;

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

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

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

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

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



От= 20000*10/22*0,2=1818 тенге.

Зп.вн. =20000 * 10/22 +1818=10909 тенге

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



С вн = 4500 +4090.9=8590.9 тенге

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



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

С= 114700 + 10908 + 28962 + 19309 =173879 тенге.
4.2 Экономикалық эффективтілікті есептеу жолы

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



Еэкспл = Тмв * Sm

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

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

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

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


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

d Еэкспл. = (1+Wо) * (1+ Wq)* Вз.пр – Еэкспл;

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

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

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



d Еэкспл. = 1,35 * 1,15 * 360000 - 241920 = 337140 тенге жылына.

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



Т = С / dЕэкспл

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



Т = 173879 / 337140 = 0,5, бұдан шығатыны, өзінің жемісін беретін уақыт құрайды.

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



S=S р.п/N

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



S р.п = С = 173879 тенге,

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

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

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



Көрсеткіштер

Мәні

Дерек

Өлшем бірлігі

Формула

Соңғы мәні

Жүйені ендіру мен құрастыруға кеткен шығындар

С




Тенге

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

=114700+10908+28962+19309



173879

Техникалық комплекстік құралдар

Сктс




Тенге

Сктскомпприндр

=75000+38000+1700



114700

Компьютера бағасы

Скомп

75000

Тенге







Принтер бағасы

Сприн

38000

Тенге







Басқа құралдар бағасы

Сдр

1700

Тенге







Алгоритмді құруға кеткен шығындар

Салг




Тенге

Салгп разр*В+От

=909*10+1818



10908

Программист жалақысы

Зп разр

500

Тенге







Алгоритмді құруға кеткен уақыт

В

10

Күндер







Соц.сақтандыру бөлшегі

Отч

20

%







Программаны құрастыру мен тексеруге кеткен шығындар

Сотл




Тенге

Сотлотлз.п

=12600+16362



28962

ЭЕМ уақыты

Котл




Тенге

Котл=К*Км*q

=140*15*6



12600

Компьютерде жұмыс уақыты

К

6

Сағат







Компьютерде жұмыс күндері

Км

15

Күн







Машиналық уақыт бағамы

q

140

Тенге







Программист жалақы фонды

Кзп




Тенге

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

=15*909+2727



16362

Программистер саны

Кол




Адам







Программистің күндік жалақысы

Оразраб

500

Тенге







Ендіру уақытындағы машиналық уақыт бағамы

Квн




Тенге

Квн=К*d*q

=6*10*140



8400

Күндік ЭЕМ-дегі жұмыс уақыты

К

6

Сағат







Компьютердегі жұмыс күндер саны

d

10

День







Ендіру кездегі программист жалақысы

Зп.вн




Тенге

Зп.вн=Qвн*d/Д+От

=20000*10/22+1818



10909

Программист жалақысы

Qвн

20000

Тенге







Программаны ендірумен байланысты шығындар

СВн




Тенге




19309

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



Көрсеткіштер

Мәні

Дерек

Өлшем бірлігі

Формула

Соңғы мәні

Айлық жұмыс күндер саны

Д

22

День







Программаны қолданудағы эксплуатациялық шығындар

Еэкспл




Тенге

Еэкспл = Тмв*Sм

=1584*140



221760

Жұмыс кезіндегі ЭЕМ пайдалану уақыт саны

Тмв

22*6*12

Сағат




1584

Жалақыға айлық төлемдер

W0

0.35

%







Қосымша жалақыны есептейтін коэффициент

Wq

0.15

%







Қолмен жұмыс істеудегі жұмысшылар жалақысы

Вз.пр

5000*12*6

Тенге




360000

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

dEэкспл




Тенге

dEэкспл = ((1+W0)*(1+Wq)*Bз.прэкспл)

=((1+0,35)*(1+0,15)*360000-221760)



337140

Өтеу мерзімі

Т




Жыл

Т=С/dЕэкспл

=173879/337140



0,5

Программа бағасы

S




Тенге

S=С/N

=173879/4



43469,7

Керек ету аймақтар саны

N

4









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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

  • Құралдарды іштен тексеру керек, шнурларды және интерфисті.

Егерде корпуста манитордың экранында шнурдың, интерфейсте қолданушы механика ақтау сезсе, жедел түрде жөндету керек.

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

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


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

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

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



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

  2. Техникаларды мынандай жағдайда басқа жерге көшіруге тиым салынады.

  • Жарамсыз орталықта білім алған маман иесін көшіруі.

  • Жер астынан контурға жалғанбаған жағдайда.

  • Floppi – дисковадтарының корпусында механикалық ақаулары болған жағдайда.

  • Түзетілмеген электр желісі болған жағдайда.

Компьютердің орнын ауыстырған жағдайда қойылатын талаптар.

  1. Компьютер тұрған жерде табиғи және жасанды заттар болуға тиіс.

  2. Терезе солтүстікке солтүстік шығысқа қарап тұруы тиіс.

  3. Егер экран күнге шағылысатын болса, оған шек қою тиіс.

  4. Сөндірілмейтін шырақтармен (свейтилник) экран торларын қолдануға болмайды. Жұмыс орнында жылына екі реттен кем емес тазалық өткізілуі тиіс. Терезелердің рамкаларымен шырақтардың лампыларын сүртіп, күйген жағдайда жедел түрде ауыстыру керек.

  5. Компьютермен жұмыс істеу орны 6,0кв.м кем емес, ауданы 24,0куб.м кем болмауы тиіс.

  6. Дыбыс шығаратын құрылғылар гигеналық талаптарға сай болуы тиіс және де САН ПиН – нің 2.2.2542 - 96 талабы бойынша орташа дыбыс 50дБА аспауы тиіс.

  7. Жұмыс орнында жылу желісі кандиционер немесе желдеткіш болуы шарт.

  8. Компьютермен жұмыс уақытында бөлме температурасына көңіл бөлу шарт:

- Ауа температурасы +150 +350с аралығы

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

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

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

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


  • Ауа температурасы -20+600 аралығы.

  • Ауа ылғалдылығы -5-85% желдеткішсіз.

  • Max выбрациясы -0,5-55Гц.

10) Компьютерлер немесе құрылғыларды көшіру кезінде терезе форточкаларымен рамкалары жабық болуы шарт.

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минут. Үзіліс кезінде арнайы жаттығулар жасалады.


6. ҚОРЫТЫНДЫ
Соңғы кездегі компьютерлік технологиялардың қолданылуы экономика мен әлеуметтік салаларға көптеген жаңа мүмкіндіктер жаратып отыр. Кез-келген авотматтандырылған жүйе өзара байланысқан көптеген модульдерден тұратын күрделі аппараттық программалық комплекстерді сипаттайды. Жаңа технологиялардың дұрыс пайдаланылуы қазіргі таңда барлық берілгендер қорымен жұмыс жасайтын кезкелген мекеменің жұмысын жеңілдетуде. Ақпараттық-іздеу жүйелеріне қойылатын кейбір талаптарға қарамастан, әрбір мекеме өзінің ішкі мәліметтерін өңдеудің өзіндік ерекшеліктерімен дараланады. Бірақ көбінше мұндай іс-әрекеттерді орындауға арналған құралдар олардың өздерінде табыла бермейді. Сондықтан, мен өз дипломдық жұмысымды балабақшада балаларды қабылдауға, балалар жайлы мәліметтерді толығымен алуға арналған бағдарлама құрдым. Қазіргі дамыған заманда отбасының жақсы өмір сүруі үшін отбасыдағы ата-ана бірігіа еңбек етуге міндетті. Ал олардың балаларын тәрбиелеу бала-бақшаға тапсырылады. Сондықтан мекеме басшыс біріншіден бала тәрбиесін өз мойындарына алады. Балаға арнайы тәрбиешілер бөлінеді. Болашақ Қазақтан жастарын шет елдерге үлгі ретінде көрсету үшін біз елімізде балаларды тәрбиелейтін бала-бақшаларды көбейтуіміз керек. Мекеме баланың тәрбиесіне, оның дұрыс тамақтануына, көңіл күйіне, дұрыс бағытпен өсіп жетілуіне жауапты болып есептелінеді. Мекемге балаларды қабылдау және оның айлық төлемақыларын есептеу жұмыстарын жеңілдету мақсатымен құрылып отырған бұл дипломдық жұмыстың келешекте көптеген мекемелерге көмегі тиеді деп ойлаймын.

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


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




  1. А.Я. Архангельский. Интегрированная среда разработки Delphi. От версии 1 до версии 5. Москва, ЗАО «Издательство БИНОМ» , 1999.

  2. А.Я. Архангельский. Работа с локальными базами данных в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.

  3. А.Я. Архангельский. Язык SQL в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.

  4. В.Гофман, А.Хомоненко, Delphi 5, Наиболее полное руководство. Изд-во "БХВ- Санкт-Петербург", 1999 г.

  5. Бобровский С., DELPHI 5: учебный курс. С.-П., «Питер», 2000.

Атре Ш. Структурный подход к организации баз данных. – М.: Финансы и статистика, 1983. – 320 с.

  1. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. – М.: Финансы и статистика, 1989. – 351 с.

  2. Дейт К. Руководство по реляционной СУБД DB2. – М.: Финансы и статистика, 1988. – 320 с.

  3. Джексон Г. Проектирование реляционных баз данных для использования с микроЭВМ. -М.: Мир, 1991. – 252 с.

  4. Кириллов В.В. Структуризованный язык запросов (SQL). – СПб.: ИТМО, 1994. – 80 с.

  5. Мартин Дж. Планирование развития автоматизированных систем. – М.: Финансы и статистика, 1984. – 196 с.

  6. Мейер М. Теория реляционных баз данных. – М.: Мир, 1987. – 608 с.

  7. Тиори Т., Фрай Дж. Проектирование структур баз данных. В 2 кн., – М.: Мир, 1985. Кн. 1. – 287 с.: Кн. 2. – 320 с.

  8. Ульман Дж. Базы данных на Паскале. – М.: Машиностроение, 1990. –386с.

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

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

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

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

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

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

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

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

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

unit Unit1;


interface
uses

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


{ Private declarations }

public


Cb,Spolezn,Kphiz, Kfunc, Kzon, Kizm_mrp, Iphiz:Extended;

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



case cb_gr.ItemIndex of

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));



end;
if cbcheck.Checked=false then begin

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;


showmessage('Базовая стоимость = '+floattostr(cb));

end;


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

begin


if spol.Text<>'' then

spolezn:=strtofloat(spol.Text);

form1.Caption:=floattostr(spolezn);

end;


procedure TForm1.LabeledEdit3Change(Sender: TObject);

begin


if (labelededit3.Text<>'') and (labelededit4.Text<>'') and

(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


case radiogroup3.ItemIndex of

0: Kugl:=0.95;

1: Kugl:=1;

end;


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

end;


procedure TForm1.RadioGroup2Click(Sender: TObject);

begin
case radiogroup2.ItemIndex of

0: Ket:=0.95;

1: Ket:=1.00;

2: Ket:=0.9;

end;


showmessage('Коэффициент этажности '+floattostr(Ket));

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

begin

case radiogroup4.ItemIndex of



0: Kmat:=1.1;

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;


showmessage('Поправочный коэффициент материал стен (К мат.ст) '+floattostr(Kmat));
end;
procedure TForm1.RadioGroup5Click(Sender: TObject);

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));



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

begin


radiogroup2.Enabled:=true;

if checkbox2.Checked=true then begin

radiogroup2.Enabled:=false;

Ket:=1;


showmessage('Коэффициент этажности '+floattostr(Ket));

end;
end;


procedure TForm1.RadioGroup6Click(Sender: TObject);

begin


case radiogroup6.ItemIndex of

0: Kblag:=1;

1: Kblag:=0.8;

end;


showmessage('Поправочный коэффициент благоустройства '+floattostr(Kblag));

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

begin

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



then

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);



Kfunc:=Ket*Kugl*Kmat*Kblag*Kotopl;

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));


if (Cnalog>=1000000) and (Cnalog<2000000)

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);



case transport.ItemIndex of

0: begin


m3:=InputBox('Введите объем двигателя', 'м3', 'Вот сюда');

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

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

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


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

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

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

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


if strtofloat(m3)>=4000

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));


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

3: begin


m3:=InputBox('Введите число посадочных мест', 'кол', 'Вот сюда');

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;


end.

unit Unit2;


interface
uses

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

{ Public declarations }

end;
var

Form2: TForm2;


implementation
uses Unit1, Unit3, Unit5, Unit6, Unit7;

function currency2Str (value: double): string;


const hundreds: array [0..9] of string = ('',' сто',' двести',' триста',' четыреста',' пятьсот',' шестьсот',' семьсот',' восемьсот',' девятьсот');
tens: array [0..9] of 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;



if s[2]<>'1' then begin

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];



case StrToInt(s[3]) of

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+ones[StrToInt(Copy(s,2,2))];

Result:=Result+razryad[raz];

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

end;


end;
begin
val:=Trunc(value);

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;


s:=IntToStr(Trunc((value-val)*100+0.5));

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

end;

{$R *.dfm}


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

Y: Integer);

begin

bitbtn1.Font.Color:=clgreen;



bitbtn1.Font.Size:=18;

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

Y: Integer);

begin


bitbtn1.Font.Color:=clblack;

bitbtn1.Font.Size:=12;

bitbtn2.Font.Color:=clblack;

bitbtn2.Font.Size:=12;


bitbtn3.Font.Color:=clblack;

bitbtn3.Font.Size:=12;


bitbtn4.Font.Color:=clblack;

bitbtn4.Font.Size:=12;


bitbtn5.Font.Color:=clblack;

bitbtn5.Font.Size:=12;


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

Y: Integer);

begin

bitbtn2.Font.Color:=clgreen;



bitbtn2.Font.Size:=18;

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

begin

form1.Show;



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

Y: Integer);

begin

bitbtn3.Font.Color:=clgreen;



bitbtn3.Font.Size:=18;

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

Y: Integer);

begin


bitbtn4.Font.Color:=clgreen;

bitbtn4.Font.Size:=18;

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

begin


form1.Close;

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

begin

form3.main_t.Filtered:=false;



form3.show;

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

begin

form5.Show;



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

begin


FORM6.QuickRep1.Preview;

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

Y: Integer);

begin


bitbtn5.Font.Color:=clgreen;

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';


form7.qrlabel36.Caption:=form3.ADOTable2Summ.Text;

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


form7.qrlabel37.Caption:=form3.ADOTable3Summ.Text;

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


form7.QRLabel34.Caption:=inttostr(strtoint(form7.qrlabel35.Caption)+strtoint(form7.qrlabel36.Caption)+

strtoint(form7.qrlabel37.Caption));

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

//showmessage(sss);

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

form7.QuickRep1.Preview;


end;
end.

unit Unit3;


interface
uses

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

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

ADODB, Buttons;


type

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


{ Private declarations }

public


{ Public declarations }

end;
var

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

end.


unit Unit4;
interface
uses

SysUtils, Classes, ADODB, DB;


type

TDataModule4 = class(TDataModule)

private

{ Private declarations }



public

{ Public declarations }

end;
var

DataModule4: TDataModule4;


implementation
{$R *.dfm}
end.

unit Unit5;


interface
uses

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


{ Private declarations }

public


{ Public declarations }

end;
var

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

begin


adotable1.Filtered:=false;

end;

procedure TForm5.LabeledEdit1Change(Sender: TObject);

var s:string;

begin

case radiogroup1.ItemIndex of


0: adotable1.Filter:='FIO='+''''+labelededit1.Text+'''';

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

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

Adotable1.filtered:=true;

end;
end.

unit Unit6;


interface
uses

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 }



end;
var

Form6: TForm6;


implementation
uses Unit3;
{$R *.dfm}

end.


unit Unit7;
interface
uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type


TForm7 = class(TForm)

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

{ Public declarations }

end;
var

Form7: TForm7;


implementation
uses Unit3;
{$R *.dfm}
end.

QRDBText5: TQRDBText;

QRMemo8: TQRMemo;

QRExpr4: TQRExpr;

QRExpr5: TQRExpr;

QRMemo9: TQRMemo;

QRMemo10: TQRMemo;

QRExpr6: TQRExpr;

QRMemo11: TQRMemo;

QRMemo12: TQRMemo;

private

{ Private declarations }



public

{ Public declarations }

end;

var


Form14: TForm14;

implementation

uses Unit7;

{$R *.dfm}

end




Лист

Изм

№ докум

Лист

Подпись

Дата

ДЖ 3706 ПР-061 К




жүктеу 1,94 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5   6   7




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау