C = Сктс + Салг + Сотл + Свн;
мұндағы: Сктс – комплексті техникалық құралдарға кеткен шығындар;
Салг – алгоритмді өңдеуге кеткен шығындар;
Сотл – жазуға және отладкаға кеткен шығындар;
Свн – енгіздіруге (внедрения) кеткен шығындар.
2. Комплексті техникалық құралдарға кеткен шығынды есептеу:
Сктс= Скомп. + Сприн. + Сдр;
мұнда Скомп =75000 теңге - компьютердің тұру бағасы;
Сприн = 38000 теңге - принтердің тұру бағасы;
Сдр = 1700 теңге – басқа техникалық құралдардың тұру бағасы.
Сктс =75000+38000+1700=114700 тенге
Алгоритмді өңдеуге кеткен шығынды есептеу:
Салг= Зп разр * В + От;
мұнда, Зп разр – құрастырушының оклады,
В – алгоритмді құруға кеткен уақыт, От - бағдарламаны құрастырумен айналысып жатқан бағдарламашы окладынан әлеу.сақтандыруға 20% бөлінген қаржы.
Құрастырушының оклады Зп разр- күніне 909 тенге ;
Алгоритмді құруға кеткен уақыт В - 10 күн;
Әлеуметтік сақтандыруға бөлінетін қаржы: бағдарламашы оклады 10 күнге 9090 тенгені құрайды: 909 тенге*10 күнге= 9090 тенге, яғни әлеуметтік сақтандыруға бөлінетін қаржы бағдарламашы окладынан 20% тең болады
От= 9090*0,20=1818 тенге.
Мұнан алатынымыз, Салг=909*10+1818=10908 тенге.
Бағдарламаны жазуға және отладкаға кеткен шығындарды есептеу:
Сотл = Котл + Кз п;
мұнда, Котл – бағдарламаның отладкасына кеткен машина уақытының бағасы; Кз п – жазумен және откладкамен айналасқан программистің фонд айлық төлемі.
Отладкаға жұмсалған машиналық уақыттың бағасы: Котл=күніне 909 тенге.
Кз.п. = Kм * Оразраб. + Отч;
мұнда, Kм = 15 күн – бағдарламаның отладкасына кеткен күндердің саны.
Oразраб. 909 тенге – бағдарламашының бір күндік оклады;
От =20% - бағдарламаны құрастырумен айналысып жатқан бағдарламашы окладынан әлеу.сақтандыруға бөлінген қаржы. = 909 тенге*15 күн*0,20= 2727
Кз.п.=15*909 +2727=16362 тенге.
Қорытындылай келе: Сотл.= 12600+16362=28962 тенге.
Бағдарламаны енгіздіруге кеткен шығынды есептеу:
Свн= Квн + Зп.вн;
мұнда, Квн. – енгіздіру уақытындағы машина уақытының бағасы;
Зп.вн. - енгіздіру уақытындағы бағдарламашының айлығы.
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 тенге жылына.
Жылдық эксплуатациондық шығындарды экономдау:
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- мин тан артық болмайды.
Кабелдердің интерфейстерінің қосылуы мен ажыратылуы, құрылғылар арасында ток көзінен ажыратылған жағдайда атқарылады.
Жұмыс кезінде дискеттердің дисковадқа дұрыс кіруін бақылау қажет. Дискеттердің корпусында көзге көрінетін механикалық ақаулар болмауы тиіс. Дисковадтағы дискеттерден ақау табылған жағдайда компьютер инжинерін шақыру тиіс.
Принтердің жұмысы кезінде бояу пентасы мен жазуды баспаға шығару сапасына көңіл бөлу керек.
Баспаға шығару сапасы төмендесе,таңбалар анық көрінбесе, қосымша дыбыстар пайда болса, компьютер инжинерін шақыру тиіс.
Жұмысшы аяқтаған соң маниторды, компьютердің жүйелік блогын, принтерді және де басқа да техникалардың сөндіріп, ток көзінен ажыратуын қолдануға тиіс.
Техникаларды мынандай жағдайда басқа жерге көшіруге тиым салынады.
Жарамсыз орталықта білім алған маман иесін көшіруі.
Жер астынан контурға жалғанбаған жағдайда.
Floppi – дисковадтарының корпусында механикалық ақаулары болған жағдайда.
Түзетілмеген электр желісі болған жағдайда.
Компьютердің орнын ауыстырған жағдайда қойылатын талаптар.
Компьютер тұрған жерде табиғи және жасанды заттар болуға тиіс.
Терезе солтүстікке солтүстік шығысқа қарап тұруы тиіс.
Егер экран күнге шағылысатын болса, оған шек қою тиіс.
Сөндірілмейтін шырақтармен (свейтилник) экран торларын қолдануға болмайды. Жұмыс орнында жылына екі реттен кем емес тазалық өткізілуі тиіс. Терезелердің рамкаларымен шырақтардың лампыларын сүртіп, күйген жағдайда жедел түрде ауыстыру керек.
Компьютермен жұмыс істеу орны 6,0кв.м кем емес, ауданы 24,0куб.м кем болмауы тиіс.
Дыбыс шығаратын құрылғылар гигеналық талаптарға сай болуы тиіс және де САН ПиН – нің 2.2.2542 - 96 талабы бойынша орташа дыбыс 50дБА аспауы тиіс.
Жұмыс орнында жылу желісі кандиционер немесе желдеткіш болуы шарт.
Компьютермен жұмыс уақытында бөлме температурасына көңіл бөлу шарт:
- Ауа температурасы +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. қолданылған әдебиеттер тізімі
А.Я. Архангельский. Интегрированная среда разработки Delphi. От версии 1 до версии 5. Москва, ЗАО «Издательство БИНОМ» , 1999.
А.Я. Архангельский. Работа с локальными базами данных в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.
А.Я. Архангельский. Язык SQL в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.
В.Гофман, А.Хомоненко, Delphi 5, Наиболее полное руководство. Изд-во "БХВ- Санкт-Петербург", 1999 г.
Бобровский С., DELPHI 5: учебный курс. С.-П., «Питер», 2000.
Атре Ш. Структурный подход к организации баз данных. – М.: Финансы и статистика, 1983. – 320 с.
Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. – М.: Финансы и статистика, 1989. – 351 с.
Дейт К. Руководство по реляционной СУБД DB2. – М.: Финансы и статистика, 1988. – 320 с.
Джексон Г. Проектирование реляционных баз данных для использования с микроЭВМ. -М.: Мир, 1991. – 252 с.
Кириллов В.В. Структуризованный язык запросов (SQL). – СПб.: ИТМО, 1994. – 80 с.
Мартин Дж. Планирование развития автоматизированных систем. – М.: Финансы и статистика, 1984. – 196 с.
Мейер М. Теория реляционных баз данных. – М.: Мир, 1987. – 608 с.
Тиори Т., Фрай Дж. Проектирование структур баз данных. В 2 кн., – М.: Мир, 1985. Кн. 1. – 287 с.: Кн. 2. – 320 с.
Ульман Дж. Базы данных на Паскале. – М.: Машиностроение, 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 К
160>12>1500>1100>
Достарыңызбен бөлісу: |