Ақпараттық жабдықтау

Мазмұны
1. Проектілерді басқарудың ақпараттық жүйесін тұрғызуды негіздеу........3
Нарық жағдайында бизнес жоспар құру қажеттілігі және оның маңызы
1.2 Ақпараттық жүйені құрудың мақсаты мен тағайындалуы ............................15
1.3 Ақпараттық жүйесіне қойылатын талаптар ....................................................15
1.4 Концептуалдың сызба нұсқасы ........................................................................26
2. Ақпарат жүйесін жобалау................................................................................29
2.1 Ақпараттық жүйедегі есептің орны..................................................................29
2.2 Есеп қойылымы..................................................................................................29
2.3 Кіріс ақпараты.....................................................................................................30
2.4 Шығыс ақпараты.................................................................................................32
2.5 Ақпараттық база.................................................................................................34
2.6 Жобалауды басқару бөлімінің есеп кешенін орындау үшін
Жобалауды басқару бөлімінің есеп кешенін шешуге арналған программа сипаттамасы
3. Ақпараттық жүйе деңгейін бағалау және қолдануы
3.1 Фирма жағдайын талдаудың қпараттық жүйесін тұрғызуға кететін шығынын
3.2 Ақпараттық өнімді коммерциялық сатуға берілетін кеңестер және нәтижесін
Қорытынды.................................................................................................................57
Қолданылған әдебиеттер ..........................................................................................59
Қосымша.....................................................................................................................61
Кіріспе
Елімізде өтіп жатқан нарықтық қатынастар тек экономиканы дамыту үшін
Нарықтық экономика жағдайында экономикалық қызметтің барлық экономикадағы негізгі буыны
Нарықтық экономика жағдайында фирма шаруашылықты жүргізудегі негізгі объективті буынға
Фирма экономикасының даму негізіне қоғамдық өндірістің дамуына объективті экономикалық
Қазіргі кезде фирманың мәртебесі, оны құрудың тәртібі мен жойылуы
кызметтер, фирманың мемлекеттік және
«Кәсіпорын экономикасы» бағамен зерттелуде, оның негізгі міндетін тұжырымдау қажет.
фирма меншік нысанына
қарамастан бірінші
экономикалық негізі болып
фирманың тиімді
шаруашылығының даму деңгейі мен халықтың әл-ауқатының
деңгейіне байланысты болады;
нарықтық экономикаға өту бұрыннан әрекет еткен шаруашылык
тетігін жан-жақты
нысандар енгізуді, атап айтқанда, кәсіпкерлік, бәсеке, бизнес-
жоспар, еңбек мотивациясы, салық салу, т.б. кажет етеді.
Қандай да бір фирма болмасын өзінен-өзі тіршілік ете алмайды,
Ақпараттық жүйе (АЖ) - Экономикалық объектіні басқаруға кажетті ақпаратты
АЖ - ақпараттық жүйе жобасы мен ақпаратты есептеу жүйесінен
толтыруды және шығарып беруді АЖ жобасындағы
Нарықтық экономиканың функционалды кұрылымының ақпарат жүйесіне негізінен экономикадағы ақпарат
Дипломдық жобаны жазудағы басты мақсатым проектілерді басқаруға арналған ақпарат
Диплом жұмысы кіріспеден, теориялык бөлімнен, негізгі бөлімнен, қолданушыға мүмкін
1. ПРОЕКТІЛЕРДІ БАСҚАРУДЫҢ АҚПАРАТТЫҚ ЖҮЙЕСІН ТҰРҒЫЗУДЫ НЕГІЗДЕУ
1.1 Нарық жағдайында бизнес жоспар құру қажеттілігі және оның
маңызы
Бизнес-жоспар инвестицияны негіздейтін қорытынды құжаттардың бірі, ол жоспарланған өнім
Бизнес-жоспар интеллектуалдық меншік объектісі, коммерциялық құпия пәні болып табылады
Қазіргі нарықтық қатынастардың даму жағдайындағы әкономикалық жағдай кәсіпорындарға ішкі
Бизнестің табысты дамуының шешуші әлементі - сауатты басқару және
Жоспарлау - болашақта, белгілі бір уақыт мерзімінде болатын оқиғалардың
Бизнес-жоспар коммерциялық кәсіпорынның барлық негізгі аспектілерін қамтитын құжат, ол
Сонымен, бизнес-жоспар - бұл бизнестегі қол жеткізуді көздеген мақсаттың
мақсаттарға қол жеткізу үшін барлық ресурстарды тиімді пайдалануға жағдай
Жақсы құрылған бизнес-жоспар - жоспарланған іс-әрекеттерінің схемасы. Ол бизнестің
Бизнес-жоспарды құру өнерін меңгеру бүгінде себептерге байланысты қажет:
әкономикаға қазір кәсіпкерлердің жаңа
олардың көпшілігі бұрын коммерциялық құрылымдарды басқарып
көрген емес, сондықтан нарықтық әкономиа жағдайында оларды
күтетін проблемалардың барлық шеңберін олар алдын-ала көріп
біле алмайды;
шаруашылық проблемалар үнемі өзгеріп тұрады және тәжірибелі
жетекшілердің алдында
көзқараспен қарау қажеттілігін тудырады;
Инвестиция алу және әкономиканы көтеру үшін инвесторларға
жоспарлардың өміршендігін және тиімділігін дәлеледеу керек;
Бизнес жоспардың мақсаты – кәсіпорын басқармасына келесі негізгі міндеттерді
Болашақ өткізу
перспективасын айқындау;
Осы нарыққа қажетті
бағалау және оларды товарды қолайлы бағамен сатудан түсетін
түсіммен салыстыру арқылы жоспарланған істің
анықтау;
өнімді өткізу алдында кезедсуі мүмкін кедергілерді алдын ала
айқындау;
өндіріс көлемінің көтерілуі мен құлдырауын анықтауға мүмкіндік
беретін бақылау көрсеткіштерін анықтау;
бизнес-жоспар қазіргі нарықтық әкономикада кәсіпкерлік көлеміне, қызмет ету өрісіне
Батыс елдерімен салыстырғанда Қазақстандағы іскерлік жоспарлаудың бірқатар ерекшелігі бар.
Бизнес-жоспардың қажеттілігін дәлелдейтін бірнеше аргумент:
1. Бизнес-жоспар құру арқылы бизнесменге батыл назарды айналысқалы отырған
Бизнес-жоспар жаңа кәсіпкерлік
көмектеседі. Егер бизнес жоспар жақсы құрылса, ол идеяның жүзеге
асырылуына негіз болады.
Бизнес-жоспар істі жүргізуге көмектесетін құрал болып табылады.
Кәсіпорынды жоспарсыз басқару машинаны құралсыз жөңдеумен
тең. Жоспардың болмағанынан болғаны жақсы.
Бизнес-жоспар фирманың бизнес-идеяларын
тұлғаларға жеткізіділеді, бұл қаржыландырылған көздерін тарту
немесе бірлескен кәсіпорын құру үшін қажет.
Инвесторлар, банкирлер, потенциалдық серіктестер келесі деректерді білгісі келеді:
Сізге қанша ақша қажет?
Ол сізге қашан қажет болады?
Қаражат сізге не үшін қажет?
Оны сіз қайтара аласыз ба
аласыз?
Сіздің жоспарыңыз осы сұрақтарға жауап бере алуы керек.
5. Бизнес-жоспар құру арқылы жүзеге асырылатын істер жоспарсыз
оқиғаларға жауап беру
табысқа әкеледі. Өйткені
салуды, соған қол жеткізу үшін қажетті міндеттерге басты назарды
шоғырландыруға мүмкіндік береді.
Бизнес-жоспардың құрылымы оның мазмұнының ұқсастығына қарамастан ол әр елде,
Жобаның қысқаша сипаттамасы
стратегиясын анықтау). Құрал-жабдықты қою және орналастыру
мерзімдері;
Жобаның алғы шарттары және идеясы;
Нарықты талдау және маркетинг концепциясы
стратегиясы). Нарықтағы сұранысты бағалау;
Жобаның орналасуы, құрылыс участкесі және қоршаған орта;
Техникалық жабдықтау және
технологиясы;
Өндірісті ұйымдастыр және басқару. Өндірістік процесс. Өндіріс
көлемі. Өнімнің стандарттаы мен технологиясы;
Қаржылық жоспар
Қаржылық бағалау негіздері (INPUT).
Жобаның ел әкологиясына және әкономикасына тигізетін әсерін
анықтау;
Енді тауарлардьщ әрқайсынына қысқаша сипаттама берейік.
Жобаның қысқаша сипаттамасы. Бүл тауарда жобаны ұсынып отырған компания
Қажетті ақша құралдарына деген қажеттілікте 2 бағанға бөліп көрсеткен
Жобаның алгышарттары және идеясы. Бүл тарауда үсынып отырған жобаны
Мақсат дегеніміз - бір уақыт аралығында қол жеткізуді көздеп
Компанияның бизнес-жоба алдында қойған мақсаттары оның қол жеткізуді көздеп
Нарьқтьщ талдау және маркентинг конңепңиясы. Бұл тарау потенциалдық инвесторларға
Маркетинг жоспары фирма қызметін ішкі ұйымдастыру үшін, сондай-ақ серіктестер
Бизнес-жоспардың бұл тарауы болашақ серіктестермен өзара арақатынастар негізнде қалыптастырады,
Бұл тарауда, сондай-ақ компанияның қолданылатын баға белгілеу стратегиясы, нарықтық
Компания бұл тарауда потенциалдық инвесторларға өзінің нарыктағы алатын үлесін
Жобаның орналасуы, цүрылыс учаскесі және цоршаган орта. Бұл тарауда
Техникалық жабдықтау және технология. Бұл тарауда жоба шеңберінде қарастырылған
Таңдап алынған құралдардың техникалық сипаттамасы, олардың өндірушілер туралы, құрал-жабдықтың
Өндірісті ұйымдастыру және басқару, ұйымдастырушылық жоспар және менеджмент -
Іскерлік кесте - бизнес-жоспардың қажетті бөлігі. Мұнда өнімді өндіру,
Басқару құрылымын қалыптастыруда мынаны есте сақтаған жөн: ұйымдастырушылық құрылымды
тәжірибе және дәстүр, жетекшілер мен мамандардың біліктілік және әлеуметтік-психологиялық
Сондай-ақ, бұл тарауда өндіріс процесін ұйымдастыру ерекшеліктері, өндіріс көлемі,
Қаржылық жоспар және инвестиция тиімділігін бағалау. Қаржылық багалау негізі
Қаржылық жопарлаудың объектілері болып мыналар табылады: өнімді өткізуден түскен
Жылдық қаржылық жоспардың табыс бөлігінде жоспарланған пайда, әр тоқсанға
Кез-келген экономикалық есептеулер нәтижесі компанияны қоршаған ортадағы көптеген факторлардың
Жобаның ел экологиясына және экономикасына тигізетін әсерін анықтау. Бұл
Ақпараттық жүйені құрудың мақсаты мен тағайындалуы
Ақпараттық жүйені құрудың мақсаты жобаны басқару жұмыс істеу жүйесін
Қазіргі кезде ақпараттық технологиялар қарқынды жылдамдықпен дамуда. Сол дамудан
Бұл талаптар мыналар:
Ақпараттық жүйелер ресурстарына қойылатын талаптар
Ақпараттық жабдықтауға қойылатын талаптар.
Математикалық жабдықтауға қойылатын талаптар
Лингвистикалық жабдықтауға қойылатын талаптар.
Программалық жабдықтауға қойылатын талаптар.
Эргономикалық жабдықтауға қойылатын талаптар.
1.3 Ақпараттық жүйелер ресурстарына қойылатын талаптар
Ақпараттық ресурстарды жиынтық мәліметтер деп атайды, белгілі бір мекеме
Ақпараттық жабдықтауға қойылатын талаптар:
Ақпараттың қолдануысыз басқару процесі мүмкін болмағандықтан, ақпараттық жүйеде ақпаратпен
Ақпараттық жабдықтау (АЖ) – бұл ақпараттық жүйеде қолданатын экономикалық
Ақпараттық жүйені ақпараттық жабдықтау өзіне жүйеде қолданатын экономикалық ақпараттар
Ақпараттық база (АБ) – бұл ақпараттық жүйенің функционерлену кезінде
Машинадан тыс ақпараттық база – ақпараттық жүйені жұмыс істеуде
Машина ішіндегі ақпарат базасы – бұл ақпараттық жүйені жұмыс
1-Кесте. Ақпараттық жабдықтау
Элементтер Сипаттамалар
Ақпараттық технология Мәліметтер базасында негізделген
Мәліметтер базасы типі Реляциондық
Кодтау жүйесі Фасеттік жүйе
Ақпараттық қорғау АЖ-мен жұмыс істеу кезінде парольдер жүйесі қолданылады.
Ұйымдастырумен жабдықтауға қойылатын талаптар:
Автоматтандырылған ақпараттық жүйені тұрғызу мен жұмыс істеудің негізгі шарты
Ақпараттық жүйені тұрғызу – ақпарат кезеңдерін зерттеуді, жобалау шешімдері
Ұйымдастырумен жабдықтау ақпараттық жүйенің тиімді жұмыс істеу үшін өте
Белгілі ережелерге бағындыру құжаттары ақпараттық жүйені тұрғызудың, жұмыс істеу
Техникалық жабдықтауға қойылатын талаптар:
Техникалық жабдықтау – бұл ақпараттық жүйе жұмыс істеуді қолданылатын
Барлық операцияларды үш сатыға топтауға болады:
Ақпаратты алу.
Ақпаратты түрлендіру.
Ақпаратты тұтыну.
Бірінші саты – экономикалық объектілердегі қызмет барысында туындайтын бастапқы
Екінші саты – ақпаратты түрлендіру операцияларының тобы, кеңістік және
Үшінші саты – операциялар тобын және олардың бас қарушылық
Басқарудың ақпараттық кезеңінің негізгі сатысына сәйкес келесі техникалық жабдықтар
ақпаратты жинау және тіркеу;
ақпаратты өткізу;
машиналық тасығыштарды дайындау;
ақпаратты өңдеу;
ұйымдастыру техникасы.
Ақпаратты жинау және тіркеу жабдығы бастапқы мәліметтерді тасығыштарға тіркеуге
Ақпаратты өткізіп беретін жабдық мәліметтерді өңдеу орталықтарына және оны
Машиналық тасығыштарды дайындау жабдығы, мәліметтерді машиналық тасығыштарға, оның ішінде
2-Кесте. Техникалық құралдар кешені
Техникалық құралдар атауы Физикалық модуль Сипаттамалары
ДЭЕМ Іntel Pentіum 4 Процессор
Зерделік сақтаушы құрылғы
МҚДЖ
Монитор
Перне тақтасы
Тышқан Іntel, 1 MHz
128 Mb
10 Gb
17 дюймдік
105 батырмалы
2 баспалы
Принтер Принтер HP LaserJet
Факс – модем Факс – модем Sony – 42S
Телефон Телефон Panasonіk
Программалық жабдықтауға қойылатын талаптар:
Программалық жабдықтау деп – техникалық жабдықтау жүйесі жұмыс істеуде
Жалпы программалық жабдықтау – бұл жабдықтаудың кең көлемдегі қолданушыларға
Операциялық жүйе – ол есептеу кезеңін тиімді ұйымдастырып және
Есептеу кезеңін ұйымдастырудың тиімділігі ақпараттық жүйенің тәсілін, оның генерациясының
Сынаққа арналған программалар (тесттер) ДЭЕМ-нің жұмыс қабілетін тексеріп, егер
Арнаулы программалық жабдықтауға ҚПП мен бөлек функцияларды орындайтын және
Мәліметтерді басқаруда ;
мәліметтерді орындаудың типтік орындалу ретін;
деректі программалық әдістерін;
дискретті программалар әдістерін;
үздіксіз есептерді шешу әдістерін және басқаларды
орындайтын алгоритмдердің, әрі есептердің шешілу әдістерінің ерекшеліктеріне қарай бөлуге
Нақты объектінің ақпараттық жүйесінің арнаулы программалық жабдықтауына функционалды ҚПП
3-Кесте. Программалық жабдықтау
Тип Атауы Мүмкіндіктері
Жалпы программалық жабдықтау
ОЖ Mіcrosoft Wіndows NT Server 4.0 Күшті 32-битті көп
Mіcrosoft Wіndows NT Workstatіon 4.0
MS Offіce XP Дербес ЭЕМ үшін күшті 32-битті көп
Mіcrosoft Wіndows ХР professіonal Дербес ЛЕЖ үшін күшті 32-битті
Арнаулы программалық жабдықтау.
ҚПП Delphі 7 Локальді және желідегі базалармен жұмыс
МББЖ Paradox 7 Локальді база Paradox 7 жұмыс жасау,
Қорғау
ОЖ паролі Желіге енуді бақылайды.
МББЖ паролі МБ кестелеріне ену құқын анықтайды.
Вирусқа қарсы программа Мәліметтерге қауіп төндіретін әр түрлі
Математикалық жабдықтау – бұл ақпаратты өңдеудің математикалық, үлгілері мен
Ақпараттық жүйені математикалық жабдықтау құрамына мыналар кіреді:
Типтік және жасалатын әдістемелер, ақпаратты өңдеу алгоритмі;
Мәліметтерді іздеу және сорттау алгоритмі, шығыс құжаттарын қалыптастыру және
Ақпараттық жүйені математикалық жабдықтаудың жалпы талаптарына мыналар кіреді:
Математикалық әдістер мен алгоритмдердің тиімдісін қолдану ;
ҚПП–н көрсететін типтік әдістерді, алгоритмдерді, модель-дерді және мүмкіндіктерді максималды
Қолданылған математикалық әдістер техникалық және программалық құралдардың мүмкіндігін ескеруді,
Алгоритмдерді көрсетудің барлық түрі жіберіледі: формулалы, сызба, блок-жүйе, сөзбен
Математикалық жабдықтау алгоритмдері келесідей жалпы талаптарға жауап беруі тиіс:
ҚПП –де пайдалануға негізделген стандарттық, іздеушілік және септеулік процедураларын
ақпаратты іздеудің шешімдерінің нақты мәнінің болмауы;
өз сипаттамасында программа тілінің мүмкіндіктерін максималды пайдалану;
есептердің функционалдық байланысын қамтамассыз ету;
қатысты жай блоктарға бөлшектеп байланыстыруды енгізу;
программаның орындауы жолына бақылау енгізу;
Математикалық әдістер мен тәсілдер және олардың шешімдері берілген нақтылықтағы
Бағдарламалық қамтамасыздандыруға қойылатын талаптар
Бағдарламалық қамтамасыздандыру (БҚ) - АЖ-нің техникалық құралдар кешенінің әрекет
БҚ-ге қойылатын жалпы талаптар мына түрде қалыптасады:
- түрлі есте сақтаушы құрылғылар мен сыртқы тасымалдаушыларға
кітапханаларды ұйымдастырудың дамыған
мүмкіндіктері;
қажеттіктің мөлшері бойынша
табысудың мүмкіндіктері;
МБ-да ақпаратқа ыңғайлы және жылдам қол
мүмкіндігі;
Ақпаратты кодтаудың бір мәнділігі.
Ақпараттық жүйеде айналатын, барлық бөлімшелер жөніндегі ақпараттың үлкен көлемдерінің
Операционды жүйе - Місгsoft Windows, Sегvег, Workstation.
Өңдеудің ортасы - Delрһі.
Математикалық қамтамасыздандыруға қойылатын талаптар
Математикалық қамтамасыздандыру – бұл ақпаратты өңдеудің
математикалық әдістерінің, модельдер мен алгоритмдердің жиынтыгы.
«Депозиттік операцияларды
қамтамасыздандырылуы нақты есептерді шығаруға және оның дұрыстығын бақылауға тиімді
АЖ-нің математикалық қамтамасыздандыруына қойылатын жалпы талаптар болып мыналар табылады:
аса тәжірибелі математикалық әдістермен алгоритмдерді пайдалану;
қолданбалы бағдарламалар пакеттермен берілетін, типтік әдістерді,
алгоритмдерді, модельдер мен мүмкіндіктерді максималды пайдалану;
пайдаланылатын математикалық
бағдарламалық құралдардың мүмкіндіктерін ескеруі қажет,
жадының көлемі мен шешу уақыты бойынша минималды мәндерге ие
тиіс;
алгоритмдерді көрсетудің
формулалық, кестелік, блок-схема, сөздік бейнелеу және тағы басқалар.
ЭАЖ математикалық жабдықтауға келесі талаптар қойылады:
1) қолайлы математикалық әдістер мен алгоритмдерді пайдалану;
қосымша программалар пакеті беретін үлгі әдістермен алгоритмдерді
максималды пайдарану;
алгоритмнің кез келген түрі кіргізіледі:
схемалық және т.б;
Математикалық жабдықтау келесі жалпы талаптарға сай келу қажет:
ақпаратты іздеу нақты кілттерінің мәні жоқ болу қажет;
қолданылмалы қосымша
стандартты іздеу және
пайдалану;
программаның орындалу жолын бақылауды қамтамасыз ету;
Лингвистикалык қамтамасыздандыруға койылатын талаптар
Лингвистикалық қамтамасыздандыру - бұл АЖ-нің әрекетінде есептеуіш техникасының құралдарымен
Лингвистикалық жабдықтауға мыналар жатады:
ақпараттық базаның құрылымын бейнелейтін ақпараттық тіл;
мәліметтерді басқару және айла-шарғы жасау тілі;
3)Ақпараттық жүйені жобалау
жүйесінің тіл құралдары;
Бағдарламалардың көптеген пакеттері бағдарламалаудың бірдей тіліне ие. Мұны бағдарламалау
1.4. Концептуалдьң сызба нұсқасы
Концептуалдық сызба бас әдістемелер кезінде ақпараттық жүйенің жұмыс жасауын
Автоматтандырылған ақпараттық жүйелердің жобалы құжаттарының өңделуі кезінде жүйенің әр
Тұтас ақпараттық жүйенің негізгі концептуалды схемасы бүтіндей жүйені құрудың
Ақпараттың жүйенің жабдықтау бөлімі программалық, техникалық, ақпараттық жабдықтаумен берілген.
Ақпараттық жүйенің функционалдық бөлімде мәліметтер базасынан Депозиттік бөлімінің қызметкерлері
Қамтамасыз етуші бөлікті құрайды: техникалық қамтамасыздандыру (ТҚ), математикалық қамтамасыздандыру
Концептуалды схема
Бизнес-проектіні моделдеу және басқару” ақпараттық жүйесін тұрғызу
Жүйе Сипаттамалары
Типі ЭАЖ
ЭАЖ Желілік
Желі Локальді
Локальді желі Шиналы
Ортақ жүйелі құжаттау Құжат
2 Ақпарат жүйесін жобалау
2.1 Ақпараттық жүйедегі есептер кешенінің орны
Бұл Ақпараттық жүйе келесі есептер кешенінен тұрады:
«Жобаларды есепке алу» – ақпараттық жүйенің есептер кешенінің
кәсіпорынның аты
кәсіпорынның атқаратын қызметі
Осы топтастырылған мәліметтерді «Моделдеу және басқару бөліміне өткізу».
«Моделдеу және басқару» - ақпараттық жүйенің есептер кешенінің бұл
2.2. Есептерді орнату
Осы дипломдық жұмыстағы ақпараттық жүйе тұрғызу барысындағы есептер кешені
Өткен жылдардың көрсеткіштерді пайдалана отырып келесі жылға
Бюджетке түскен нақты көресткіштермен болжамдық көрсеткіштерді салыстыру.
Алынған мәліметтерді құжаттардың формасына қарай ретке келтіреді.
Бизнес проектінің дұрыс орындалғандығын, барлық ережелер мен тәртіптер сақталғанын
Есептің мақсаты – Алматы қаласы бойынша Салық Комитетінің осы
2.3 Кіріс құжаттар
Кіріс ақпараты - бүл клавиатурадан түскен сигналдар, мәліметтер, құжаттар
Кіріс қүжаттары және олардың негізінде алынған файлдар өз кезегінде
Қайта өңдеуге түсетін ақпарат бақылаудан өтуі қажет. Ең аз
4-Кесте.
Құжат Түсу Ақпараттың
Иденти-
фикаторы Аты Ұсыну түрі мерзімділігі қайнар көзі
US Ұсыныс құжат Алдын - ала белгіленген уақыт бойынша
JS Жобаның сызбасы құжат Әрбір операцияга Фирма архитекторы
L Лицензия құжат
Басқарма
Ұсыныс туралы кіріс құжатының ақпараттық қүрылымдық бірлігінің
сипаттамасы мен тізімі
5-Кесте.
Құжат атауы Идентификатор
Ұсыныс туралы
Реквизит атауы Есептер кешенінде белгіленуі Реквизит ұзмндмгы
Фирма аты ҒА 15
Суммасы Summa 9
Лицензия L 10
" Жобаның сызбасы" кіріс қүжатының ақпараттық кұрылымдық бірлігінің
сипаттамасы мен тізімі
6-Кесте.
Құжат атауы Идентификатор
Жобаның сызбасы 18
Реквизит атауы Есептер кешенінде белгіленуі Реквизит ұзындығы
Жоба түрі JT 15
Көлемі К 14
Бастау мерзімі Date 5
“Лицензия” кіріс құжатының ақпараттық құрылымдық бірлігінің
сипаттамасы мен тізімі
7-Кесте.
Құжат атауы Идентификатор
Лицензия L
Реквизит атауы Есептер кешенінде белгіленуі Реквизит ұзындығы
Фирма аты ҒА 15
Мекен-жайы Adress 9
Фирма РНН RNN 13
Линцензия L 15
2.4 Шығыс ақпараттары
Шығыс ақпараты - бұл басқару объектісіне, қызметшіге немесе басқа
8-Кесте.
Құжат Жіберу мерзімділігі Ақпараттың қайнар көзі
Иденти-фикаторы Аты Ұсыну түрі
ксн Келісім шарт құжат Басқармалардан түскен мерзімінен кейін Басқарма
8SJJBBE Сызба жобаны жасаған басшыға беретін ескертулер құжат Басқармалардан
ВКСНВ Бизнеске кететін шығьнның бланкісі құжат Басқармалардан түскен мерзімінен
«Келісім шарт» шығыс құжаттарының ақпараттық құрылымдық бірлігінің
сипаттамасы және тізімі.
9-Кесте.
Құжат атауы Идентификатор
Келісім шарт КSН
Реквизит атауы Есептер кешенінде белгіленуі Реквизит ұзындығы
Келісім-шарт күні КSHK 15
Келіскен фирма аты КҒА 15
«Сызба жобаны жасаған басшыға беретін ескертулер» шығыс құжаттарының ақпараттық
10-Кесте.
Құжат атауы Идентификатор
Сызба жобаны жасаган басшыға беретін ескертулер SJJBBE
Реквизит атауы Есептер кешенінде белгіленуі Реквизит ұзындығы
Фирма аты ҒА 15
Құжат номері K_NUM 10
Мерзім Date 5
«Бизнеске кететін шығынның бланкісі» шығыс құжаттарының ақпараттық құрылымдық бірлігінің
11- Кесте.
Құжат атауы Идентификатор
Бизнеске кететін шығынның бланкісі BKSHB
Реквизит атауы Есептер кешенінде белгіленуі Реквизит ұзыпдығы
Суммасы SUMM 10
Кететін шығынның көлемі KSHK 10
Ақпарат базасы
Ақпарат базасы – бұл АЖ-ні жұмыс істеуде қолданылатын реттелген
Жедел ақпарат дегеніміз – ол объектінің күйін осы уақыт
Ақпарат массиві – нақты тәсілмен аталған және ұйымдастырылып өзара
Машина ішіндегі ақпарат массивтері тұрақты, сақтаулы, жедел және қызмет
Сақтаулы массивтер өзара байланысқан басқа есептерді шешу үшін қолданылатын
Жедел массивтер жедел құжаттар негізінде құрылады, яғни біртіндеп жиналған
Қызмет көрсететін массивтер, массивтерді автоматты өңдеуде қажетті қызмет
Машина ішіндегі ақпарат базасы жергілікті есепке, немесе есептер жиынтығына
Мәліметтер базасы, ол тікелей мәлімет алуға болатын жадыда, сақтағыш
Мәліметтер базасын тұрғызудың себептеріне – мәлімет өңдеу уақытын қысқарту,
Мәліметтер базасын қолдану, ондағы мәліметтерді басқарудың программалық жабдығының бар
МББЖ – бұл АЖ-ны қолданушылардың қолданбалы есептерден мәліметтерге енуін
Машинадан тыс ақпараттық база:
Машинадан тыс ақпараттық база – адамның есептеу техникасы құралдарын
Классификация мен кодтауды анықтау жүйесі ақпараттық есептеуіш жүйесінің жадысында
Нормативті-анықтамалық құжаттар шартты-тұрақты ақпарат категориясына жатады, олар ұзақ уақыт
Жедел ақпарат нақты уақыттағы объект жағдайын, яғни алғашқы, өңделген
Кодтау мақсаты мәліметті құжатқа толтыруға, оларды машина тасығыштарына ауыстыруға,
Ақпараттың сыныпталуы ақпаратты мәлімет базасынан өңдеу және іздеуді жеңілдету
Сыныпталудан кейін таңдалған кодтау жүйесіне сәйкес ақпараттық бірлікті кодтау
Кодтау дегенде объектіні ықшамдалған нысанда ұсыну мақсатымен объект сыныпталуына
Кодтау жүйесі деп объект сыныпталуына кодтық мән (кодтарды) беру
Код – белгілі бір ережелер бойынша тұрғызылған шартты белгілеуді
код ұзындығы (код белгілеуіндегі белгілер саны);
код тобы (код белгілеуіндегі белгілердің орны);
код алфавиті (кодтық белгілеудегі болатын белгілер, олар цифрлық, әріптік
код құрылымы (код белгілеуіндегі белгілердің орналасу орны).
Кодтарды қолдану ақпарат өңдеуінің еңбеккөлемдігін төмендетуге, мәліметтер топтамасын жеңілдетуге;
Кодтау жүйесінің тізімдік, сериялық-тізімдік, тізбектей, комбинирленген, шахматтық және басқа
Мәселені шешу үшін кодтаудың тізімдік жүйесі қолданылады да, бағалы
Ішкі машиналық ақпараттық база:
Ішкі машиналық ақпараттық база – белгілі бір белгілер бойынша
АЖ ішкі машиналық ақпараттық базаның құрылымы араларында ақпарат ауыса
АЖ ішкі машиналық ақпараттық базаның құрылымы өзінің функционалды бағытымен
Басқарма АЖ құрамына кіретін МБ C++ Builder – Windows
басқаратын модуль;
экранды нысандағы модуль.
Ішкі машиналық ақпараттық база қатты және икемді магнитті ленталарда
МБ Windows 98/Me/XP ОЖ сәйкес келетін дисктік тасығыштар мен
МБ жұмысының жылдамдығы басқа программалық өнімдердегідей қолданылып отырған жабдықтарға
Жобалауды басқару бөлімінің есеп кешенін орындау үшін қолданылатын программалық
Программалық жабдықтау дегеніміз – экономикалық ақпараттық жүйелердің жұмыс істеуін
Программалық жабдықтау құрамына әмбебап құралдар, пакеттер және бағдарламалар кіреді,
қолданбалы пакеттер және программалар, бұл пайдаланушының жұмысын қажетті түрде
жүйелік программалар, бұл әр түрлі қосалқы функцияларды орындайды (операциялық
аспаптық жүйелер, яғни жүйелік бағдарлама, компьютерге жаңа бағдарлама құру
Қолданбалы программалар персоналды компьютерге өте ыңғайлы құрал ретінде жұмыстарды
Қолданбалы программалық жабдықтау арқылы есепті шешу процесі кезінде программалы
2.7 Жобалауды басқару бөлімінің есеп кешенін шешуге арналған
Жобалауды басқарубөлімінің есептерін Delphі қосымшасында МББЖ Paradox 7
Delphі –ол программалау ортасы, жоғарғы нәтижелі құрал.
Delphі-ең дұрыс жөндеу ортасы, бәрінен бұрын бөлек жұмыс станцияларымен
Delphі ортасының жұмысындағы ерекшілігі мынандай:
Delphі-дің көмегімен құралған приложениенің басым бөлігі өндіріс
қосымшалармен бірге жұмысы күннен күнге маңызды болып
1. Мобильді компиютерлердің көп таралуы;
2. Сандық, мәтіндік, бейнелік және дауыстық ақпараттарды қондырғыға
Қосымша жасаудың өңдірудің интеграциялық ортасы деп аталатын
(Іntegrated Development Envіronment ІDE )
Delphі объективті – бағытталған бағдарламалауға негізделген. Бұл бағдарламалық
Delphі-де дерекқор пайдаланылатын, есеп- беру жолдарын жеңілдететін бизнес –придложение
Delphі-мен жұмыс істегенде BDE (Borland Database Engіne )-ні
-кестелеріне бірден қол жеткізе аламыз.
MS Offіce ( Word, Excel, Outlook) - және
Дерек қор басқаруда жаңа жүйелердің пайда болуына қарамастан, Paradox
Дерек қорында алғашқы кілттер мен кестелер арасындағы байланыстың көмегімен
SQL -бұл оқиғаға байланысты басқарылатын барлық жағынан жаңа талапқа
Paradox-ны әртүрлі дайындық деңгейдегі тұтынушылар пайдалана алады. Paradox жүйесін
Күрделі және үлкен жобалар құру үшін сәйкес конструктор және
Paradox – оны бейнелейтін және редакциялайтын ақпараттар сақтау
Дерек қорға бірден қол жеткізудің ыңғайлы және пайдалы құралы
Бағдарламалық жабдықтау құрылымы жалпы жүйелік және арнайы Бағдарламалық
Жалпы жүйелік Бағдарламалық жүйе – ол есептеу процестерін
Есептеу жүйесінің бүкіл ресурстарын басқарады. ОЖ әдетте қызметші бағдарлама
Демек, ОЖ – аппараттық құралдарды толықтырады және компьютердің
Алматы қаласы бойынша салық және басқа да міндетті төлемдердің
Wіndows XP professіonal файлдармен, дискілермен операция жасауда ыңғайлылығы мен
Wіndows-бағдарламасы ішінде деректер алмастыру жұмыстары тұтынушылар жұмыстарын бірқатар
Wіndows оперативті жүйесімен бірге Offіce 2000 бағдарламасын да қолдануға
Offіce 2000 қосымшаларының құрамы.
Word мәтіндік процессор
Excel электронды кестелер редакторы
Power Poіnt презентациясын дайындау бағдарламасы
Access дерек қор басқару жүйесі
тағы басқа.
Wіndows-пен жұмыс істеу үшін 100 MHZ және одан
Арнайы Бағдарламалық жабдықтау. Бұл нақты Ақпарат
Delphі-бұл өте қуатты жүйенің бірі. Бұл заманға
Delphі –бағдарлама интерфейсін жылдам құруға мүмкіндік беретіндік
Delphі бағдарламасын құру объективті-бағытталған технологияға негізделеді.Объективті-бағытталған бағдарлама –біздің заманымызда
Wіndows бағдарламасын ашқан кезде экранда көптеген ұяшықтар, редакторлық ұяшықтар,
Объектілерді екі әдіспен бағдарламаға қосуға болады: сәйкес операторларды
Визуалды бағдарламалау тұтынушылық интерфейс жобалауларын қарапайым жұмыс етті.
Delphі-дің интеграцияланған өңдеу ортасы өңдеушіге компоненттер орналасқан форма береді.
Жобалау кезінде өңдеуші әруақыт өзінің нәтижесін көріп отырады.
Визуалды бағдарламалаудың ең негізгі жобалау кезінде Delphі
Delphі-дің негізгі есептерінің бірі дерек қормен жұмыс істеуде
Компьютерлер локальді есептеуіш желісіне Ethernet желісінің принципі арқылы біріккен.
Ethernet ең қолайлы, белгілі және әйгілі желілік технологиялардың бірі
Ethernet-ің жақсы жақтары мен жетіспеушіліктері.
Ethernet-ің жақсы жақтары өте көп: ол тұрақты және сенімді,
Ethernet кабельдік қосулардың негізгі түрлерімен жұмыс істей алады, сонымен
Кабельдік қосулардың негізгі түрлері волоконно – оптикалық кабель, коаксиальдік
Корпоративті желі бірнеше локальді желілерді бір бірімен байланыстыру, яғни
Жалпы жүйелік бағдарламалық қамтамасыз ету – бұл ұйымның шығару
Операциондық жүйелер барлық басқару шығару жүйелерінің қорларына жауап береді.
Персоналды компьютердің әр түрлі модельдері мүмкіншілігі және архитектурасы әр
Бұл ОЖ өзіне енгізілген мультимедиа құралдары, енгізілген тасымал компьютерлері
- Mіcrosoft Word – 2000 XP Professіonal мәтіндік редакторы;
- Mіcrosoft Excel – 2000 XP Professіonal электрондық таблицасы;
- Mіcrosoft PowerPoіnt – 2000 XP Professіonal презентациялық редакторы;
- Mіcrosoft Access – 2000 XP Professіonal мәліметтер базасын
Сонымен қатар Wіndows – 98 құрамына қызмет бағдарламалары мен
- 486DX процессоры немесе одан жоғары;
- 16Мб кем болмайтын оперативті жады;
- VGA видеоадаптері.
3 Ақпараттық жүйе деңгейін бағалау және қолдануы мүмкін
3.1 Фирма жағдайын талдаудың ақпараттық жүйесін тұрғызуға кететін шығынын
Ақпараттық жүйені жасап шығаруға кететін шығындарды бағалау жүйені жасаудың
12-кесте
Есептеуге арналған алғашқы мәліметтер
№ Көрсеткіштер атауы белгіленуі өлшем
бірлігі Көрсеткіштердің мәні түсініктеме
1 2 3 4 5 6
Өндіріс алдындағы шығындар Кп Мың тг 35,8
1 Жобаны енгізу және байланыстыру шығындары.
Жобаны сатып алу
шығындары Кп1
Кп2 Мың тг 10,0
25,8
2 Дербес компьютер
дің (ДК) құны Кэвм Мың тг 108,0
3 Жылдық пайдалану шығындары Зэ
21,6
4 Бөлімде жұмыс істейтін жұмысшылар саны Ч адам 5
5 Жұмысшылардың орташа тарифтік мөлшерлемесі З тг 0,85
6 Қосымша жалақыны ескеретін коэффициент G
Өндіріс алдындағы шығындар Кп Мың тг 35,8
7 Зейнет ақы қорлар
ына аударуларды ескеретін коэффициент С
0,14
8 Қосымша шығындарды ескеретін коэффициент Н
0,33
9 ДК –ді пайдалану коэффициенті V
0,0875
10 ДК-ға берілетін ал
ғашқы жұмыс көлемі
нен пайыз ескеру
коэффициенті Р % 75,0
11 ДК-дің жұмыс уақы тының жылдық қоры Тэвм
мәліметтер
12 Есепті шығару уақыты Тшығ сағат 30,0 Алдын ала
есептеу
13 Енгізілетін ақпарат
көлемі Овв Мың
символ
Есепті мәліметтер
14 Өңделетін ақпарат көлемі Ообр Мың
символ
Есепті мәліметтер
15 Шығыс ақпаратының
Көлемі Овых Мың
символ
Есепті мәліметтер
16 Нақты есептелінетін жылдық уақыт қоры Фвр сағат 11022,0
17 Әр уақыттағы шы-
ғынды уақыт фактор
ына келтіру
нормативі Енп сағат 0,11
12-кестеге анықтама
Сатып алуға кететін шығындарды құрушы есептейді және ол техникалық
дербес компьютерлердің құны “Прайст-лист” құжатынан алынады;
жылдық пайдалану шығындары (13-кесте );
берілген есептеумен шұғылданатын жұмысшылар саны;
жұмысшылардың орташа жылдық мөлшерлемесі;
жобаны енгізілетін кәсіпорынның бухгалтериясы есептейді;
дербес коипьютерді пайдалану коэффициенті жасалатын есептер үшін 1-ден аспауы
дербес компьютерге берілетін жұмыстардың алғашқы көлемінен пайыз ескеретін коэффициенті
дербес компьютердің жылдық жұмыс уақытының қоры 14-кестеде есептелінген;
13-кесте. Дербес компьютердің жылдық жұмыс уақытының қоры
Дербес компьютер түрі 1 ауысымда
ғы жұмыс сағатының саны Ауысымдар саны Жылдық жұмыс ауысым
Pentium 8.2 1 270 2214
есептердің шығарылу уақыты эмприкалық түрде өңделетін формалар санын ескерумен
енгізілетін ақпарат көлемі әрбір енгізілген форма бойынша ақпарат көлемінің
белгілердегі өңделетін ақпарат көлемі енгізілетін ақпарат көлемі мен есептер
шығатын ақпарат көлемі әрбір форма бойынша шығатын ақпараттар көлемінің
14-кесте. Бір жұмысшының жылдық жұмыс уақытын есептеу
Көрсеткіштер өлшем бірлігі Саны
Күнтізбелік уақыт Күн 366
Демалыс күндер Күн 53
Мейрам күндер Күн 8
Номиналды күндер Күн 305
Жұмысқа келмеу Күн
Еңбек демалысы Күн 24
Ауырған күндер Күн 11
Мемлекеттік міндет Күн 0
Жылдағы нақты жұмыс күндерінің саны Күн 270
Мейрам алдындағы күндер Күн 7
Нақты есепті жылдың жұмыс қоры сағат 2204,4
Фбр = (жылдағы жұмыс күндерінің нақты саны – мейрам
Жұмысшылардың жобаны енгізбестен бұрын істейтін жұмыстарының еңбек сыйымдылығы (До)
До = Ч * Фбр
Мұндағы, Ч – жұмысшылар саны, адам
Фбр – бір жұмысшының жылдық жұмыс уақытының қоры, сағат
Со = До * З [(1+д) * (1+с) +
Мұндағы, До – жоба енгізбестен бұрын жұмысшының жұмыстарының еңбек
З – бір жұмысшының орташа сағаттық тарифтік мөлшерлемесі;
Д – қосымша жалақыны ескеретін коэффициент;
С – зейнетақы қорларына аударымдарды ескеретін коэффициент;
Н – қосымша шығындарды ескеретін коэффициент.
Со = 11022,0 * 0,85 * [(1+0,7) * (1+0,14)
Жобаны енгізуден кейін жұмысшыларға қалған жұмыстардың жылдық еңбек сыйымдылығы
Дост = До * (1 – р / 100)
Мұндағы, До – жұмысшылардың автоматты жұмыс орнын енгізуден бұрын
Р – бастапқы көлемнен ДЭЕМ-ге берілетін жұмыстардың процентін
Дост = 11022,0 * (- - 75 / 100)
Жобаны енгізгеннен кейін жұмысшыларға қалған жұмыстар құны (Сост) келесі
Сост = Дост * 3 * [(1 + д)
Сост = 2755,5 * 0,85 * [(1+1,7) * (1+1,14)
ДЭЕМ-ның жылдық пайдалану шығындары 15-кестеде келтірілген.
ДЭЕМ-ның жылдық пайдалану шығындары
№ Шығын баптарының атауы Құны (мың тг)
1 Ағымдағы және алдын ала жөндеудегі шығындар 5,4
Жөндеулер (ДЭЕМ құнының 5%) 12,96
2 ДЭЕМ тозуы (ДЭЕМ құнының 12%) 2,16
3 Материалдарға кететін шығын 0,54
4 Басқа шығындар
Жалпы пайдалану шығындары 21,06
Автоматты жұмыс орны жобаның жұмыс істеуімен байланысты жылдық пайдалану
Свц = Р реш * Т реш * Зэ
Мұндағы, Р реш – жыл ішіндегі есептер шешілуінің периоды;
Зэ – жылдық пайдалану шығындары, мың тг;
Тэем – ДК жылдық жұмыс уақытының қоры, сағат;
Т реш – есепті шешу уақыты.
Егер жобадағы есептерді шешу периоды әртүрлі болса, онда ол
Свц = Свц1 + Свц2
Свц1 = (60 * 15 * 21,060) / 2214
Свц2 = (17 * 15 * 21,060) 2214 =
Свц = 8,5609 + 2,4256 = 10,9856 мың тг
Жобаны енгізген жағдайда ақпаратты өңдеуге шығатын жылдық шығын (Савт)
Савт = Свц + Сост
Мұндағы, Свц – жобаны енгізу жағдайында ақпаратты өңдеудің пайдалану
Савт = 10,9856 +5,3 = 16,2865 мың тг
Автоматтандырылған жұмыс орнын енгізуден түсетін жылдық үнем (Сажо):
Сажо = Со – Савт
Мұндағы, Со – автоматтандырылған жұмыс орнын енгізуден бұрынғы ақпаратты
Савт – автоматтандырылған жұмыс орнын енгізген жағдайдағы ақпаратты өңдеу
Сажо = 21,25 – 16,2865 = 4,9635 мың тг
3.2 Ақпараттық өнімді коммерциалық сатуға берілетін кеңестер және нәтижесін
Ақпараттық жүйесінің тиімділігі ретінде оның тағайындалуына сәйкестік дәрежесі мен
Ақпараттық жүйенің тиімділігі кезінде келесі көрсеткіштердің анықтамасын қамтиды: өнімділік,
Ақпаратты іздеу жүйесінің жұмыс істеу жағдайлары үздіксіз өзгеруі мүмкін,
Сондай-ақ ақпараттық жүйенің тақырыптық ауданының мазмұнын өзгертуге қабілетін атап
Осы ақпараттық жүйенің сенімділігі жұмыс кезінде өз қасиеттерін ұзақ
Пайдаланылған әдебиеттер
Қ.С. Байшоланова Ақпараттық жүйелер теориясы, Алматы: Экономика -2002ж.
Ақпараттандыру туралы Қазақстан Республикасының заңдары. 1 маусым 2003 жыл.
«Практикум по эконометрикең - п.р. И.И. Елисеевой, Москва 2004.
«Математическое программирование в примерах и задачахң - И.Л. Акулич,
«Эконометрия» - Е.И. Куулинич, Москва – 1999ж.
«Статистиканың жалпы теориясың Ызғарбек Әміреұлы, Алматы-1998ж.
Системы управления базами данных и знаний: Справочное издание./ Под
Стороженко Л.А., Матвеева И.А. Информационно-компьютерные системы учета в
Неверова Е.Г. Технология проектирования баз данных и знаний,
Н. Назарбаев Қазақстан – 2030, ел президентінің Қазақстан халқына
Указ Президента Республики Казахстан № 359 от 14 марта
Н.Б.Бралиева, Қ.С.Байшоланова, Н.Л.Гагарина “Экономикадағы ақпараттық жүйелері”. Оқу құралы. Алматы,
Н.Б.Бралиева, Л.А.Байбөлекова, Қ.Т.Балашов “Ақпараттық менеджмент негіздері”. Оқу құралы. Алматы:
Н.Б.Бралиева, В.Ф.Тимошенко, Н.Л.Гагарина “Информационные системы бизнеса”. Алматы, 1994
Қазақстан Республикасының Президентінің №359 14 маусым-нан 2000 жыл. “2000-2003
Н.Г.Семенова “Автомотизированные информационные технологий в экономике”. Москва, 2000
Бралиева Н.Б., Куличихин А.А. “Информационные аспекты создания и функционирования
Қазақстан Республикасының Президентінің №359 14 маусымнан 2000 жыл. “2000-2003
“Информационные системы в экономике”. Учебник под редакцией Дика В.В.,
Н.Г.Семенова “Автомотизированные информационные технологий в экономике”. Москва, 2000
А.Ө.Биярова “Экономикалық кибернетика”. Оқу құралы. Алматы, 2001
Қ О С Ы М Ш А
Қосымша 1
unit UnitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, Menus, ComCtrls, ExtCtrls, Buttons, ActnList;
type
TFrmMain = class(TForm)
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
ImageList1: TImageList;
ActionList1: TActionList;
StatusBar1: TStatusBar;
DateTimePicker1: TDateTimePicker;
procedure N6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmMain: TFrmMain;
implementation
uses UnitModul, UnitObch, UnitIPN, UnitOPB, UnitCO, UnitAbout, UnitPass;
{$R *.dfm}
procedure TFrmMain.N6Click(Sender: TObject);
begin
if FrmObch=nil then FrmObch:=TFrmObch.Create(Self)
else FrmObch.Show;
end;
procedure TFrmMain.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Text:=DateToStr(DateTimePicker1.DateTime);
StatusBar1.Panels[1].Text:='Вход: Не выполнен!';
end;
procedure TFrmMain.N12Click(Sender: TObject);
begin
WinExec('C:\Program Files\Outlook Express\msimn.exe',SW_RESTORE);
end;
procedure TFrmMain.N11Click(Sender: TObject);
var f1,f2:TextFile;
s:string;
begin
AssignFile(f1,'C:\Kanat\Base\basa1.db');
AssignFile(f2,'C:\Kanat\Export\basa1.lnk');
Reset(f1);
Rewrite(f2);
while not eof(f1) do
begin
readln(f1,s);
writeln(f2,s);
end;
CloseFile(f1);
CloseFile(f2);
N11.Enabled:=false;
MessageDlg('Файл заблокирован!',mtWarning,[mbOK],0);
end;
procedure TFrmMain.N7Click(Sender: TObject);
begin
if FrmIPN=nil then FrmIPN:=TFrmIPN.Create(Self)
else FrmIPN.Show;
end;
procedure TFrmMain.N8Click(Sender: TObject);
begin
if Frmopb=nil then Frmopb:=TFrmopb.Create(Self)
else Frmopb.Show;
end;
procedure TFrmMain.N9Click(Sender: TObject);
begin
if FrmCO=nil then FrmCO:=TFrmCO.Create(Self)
else FrmCO.Show;
end;
procedure TFrmMain.N15Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TFrmMain.N2Click(Sender: TObject);
begin
PasswordDlg.ShowModal;
end;
procedure TFrmMain.N3Click(Sender: TObject);
begin
ActiveMDIChild.Free;
end;
procedure TFrmMain.N4Click(Sender: TObject);
begin
close;
end;
end.
unit UnitCO;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, Menus;
type
TFrmCO = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
Label13: TLabel;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
Label6: TLabel;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
Label8: TLabel;
Edit6: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure FormDestroy(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmCO: TFrmCO;
implementation
uses UnitMain, UnitModul;
{$R *.dfm}
procedure TFrmCO.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TFrmCO.FormCreate(Sender: TObject);
begin
DataModule1.TabCO.Open;
DataModule1.TabOPB.Open;
DataModule1.TabIPN.Open;
DataModule1.TabAbout.Open;
DataModule1.TabAbout.First;
ComboBox1.Clear;
while not (DataModule1.TabAbout.Eof) do
begin
ComboBox1.Items.Add(DataModule1.TabAboutRNN.Value);
DataModule1.TabAbout.Next;
end;
end;
procedure TFrmCO.BitBtn1Click(Sender: TObject);
begin
DataModule1.TabCO.Append;
DataModule1.TabCO.FieldByName('RNN').AsString:=ComboBox1.Text;
DataModule1.TabCO.FieldByName('r1a1').AsString:=Edit1.Text;
DataModule1.TabCO.FieldByName('r1b1').AsString:=Edit2.Text;
DataModule1.TabCO.FieldByName('r1c1').AsString:=Edit3.Text;
DataModule1.TabCO.FieldByName('r1a2').AsString:=Edit4.Text;
DataModule1.TabCO.FieldByName('r1b2').AsString:=Edit5.Text;
DataModule1.TabCO.FieldByName('r1c2').AsString:=Edit6.Text;
DataModule1.TabCO.Post;
end;
procedure TFrmCO.BitBtn2Click(Sender: TObject);
begin
DataModule1.TabCO.Delete;
end;
procedure TFrmCO.BitBtn3Click(Sender: TObject);
begin
DataModule1.TabCO.Edit;
DataModule1.TabCO.Post;
end;
procedure TFrmCO.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit2.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit1.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmCO.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit3.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit2.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmCO.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit4.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit3.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmCO.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit4.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit4.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmCO.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit6.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit5.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmCO.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :BitBtn1.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit6.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmCO.FormDestroy(Sender: TObject);
begin
DataModule1.TabIPN.Close;
DataModule1.TabCO.Close;
DataModule1.TabAbout.close;
DataModule1.TabOPB.Close;
FrmCO:=nil;
end;
procedure TFrmCO.N2Click(Sender: TObject);
begin
DataModule1.RvProject2.Execute;
end;
procedure TFrmCO.N3Click(Sender: TObject);
begin
DataModule1.RvProject1.Execute;
end;
end.
unit UnitAbout;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
procedure OKButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
uses UnitMain;
{$R *.dfm}
procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
close;
end;
end.
unit UnitIPN;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids, ExtCtrls;
type
TFrmIPN = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label5: TLabel;
BitBtn1: TBitBtn;
ComboBox1: TComboBox;
Panel2: TPanel;
DBGrid1: TDBGrid;
BitBtn2: TBitBtn;
Label6: TLabel;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
Label8: TLabel;
Edit6: TEdit;
Label9: TLabel;
Edit7: TEdit;
Label10: TLabel;
Edit8: TEdit;
Label11: TLabel;
Edit9: TEdit;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Edit10: TEdit;
Label16: TLabel;
Edit11: TEdit;
Label17: TLabel;
Edit12: TEdit;
Label18: TLabel;
Label19: TLabel;
Edit13: TEdit;
Label20: TLabel;
Edit14: TEdit;
Label21: TLabel;
Edit15: TEdit;
BitBtn3: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn3Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure Edit9KeyPress(Sender: TObject; var Key: Char);
procedure Edit10KeyPress(Sender: TObject; var Key: Char);
procedure Edit11KeyPress(Sender: TObject; var Key: Char);
procedure Edit12KeyPress(Sender: TObject; var Key: Char);
procedure Edit13KeyPress(Sender: TObject; var Key: Char);
procedure Edit14KeyPress(Sender: TObject; var Key: Char);
procedure Edit15KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmIPN: TFrmIPN;
implementation
uses UnitMain, UnitModul;
{$R *.dfm}
procedure TFrmIPN.FormCreate(Sender: TObject);
begin
DataModule1.TabAbout.Open;
DataModule1.TabAbout.First;
while not(DataModule1.TabAbout.Eof) do
begin
ComboBox1.Items.Add(DataModule1.TabAboutRNN.Value);
DataModule1.TabAbout.Next;
end;
DataModule1.TabAbout.close;
DataModule1.TabIPN.Open;
end;
procedure TFrmIPN.FormDestroy(Sender: TObject);
begin
DataModule1.TabIPN.close;
FrmIPN:=nil;
end;
procedure TFrmIPN.BitBtn1Click(Sender: TObject);
begin
DataModule1.TabIPN.Append;
DataModule1.TabIPN.FieldByName('RNN').AsString:=ComboBox1.Text;
DataModule1.TabIPN.FieldByName('r1a1').AsString:=Edit1.Text;
DataModule1.TabIPN.FieldByName('r1b1').AsString:=Edit2.Text;
DataModule1.TabIPN.FieldByName('r1c1').AsString:=Edit3.Text;
DataModule1.TabIPN.FieldByName('r1a2').AsString:=Edit4.Text;
DataModule1.TabIPN.FieldByName('r1b2').AsString:=Edit5.Text;
DataModule1.TabIPN.FieldByName('r1c2').AsString:=Edit6.Text;
DataModule1.TabIPN.FieldByName('r1a3').AsString:=Edit7.Text;
DataModule1.TabIPN.FieldByName('r1b3').AsString:=Edit8.Text;
DataModule1.TabIPN.FieldByName('r1c3').AsString:=Edit9.Text;
DataModule1.TabIPN.FieldByName('r1a4').AsString:=Edit10.Text;
DataModule1.TabIPN.FieldByName('r1b4').AsString:=Edit11.Text;
DataModule1.TabIPN.FieldByName('r1c4').AsString:=Edit12.Text;
DataModule1.TabIPN.FieldByName('r1a5').AsString:=Edit13.Text;
DataModule1.TabIPN.FieldByName('r1b5').AsString:=Edit14.Text;
DataModule1.TabIPN.FieldByName('r1c5').AsString:=Edit15.Text;
DataModule1.TabIPN.Post;
end;
procedure TFrmIPN.BitBtn2Click(Sender: TObject);
begin
DataModule1.TabIPN.Delete;
end;
procedure TFrmIPN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TFrmIPN.BitBtn3Click(Sender: TObject);
begin
DataModule1.TabIPN.Edit;
DataModule1.TabIPN.Post;
end;
procedure TFrmIPN.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit2.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit1.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit3.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit2.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit4.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit3.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit5.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit4.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit6.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit5.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit7.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit6.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit8.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit7.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit9.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit8.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit10.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit9.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit11.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit10.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit11KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit12.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit11.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit13.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit12.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit14.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit13.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit15.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit14.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmIPN.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :BitBtn1.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit15.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
end.
unit UnitModul;
interface
uses
SysUtils, Classes, DB, DBTables, RpCon, RpConDS, RpDefine, RpRave;
type
TDataModule1 = class(TDataModule)
TabAbout: TTable;
DataSource1: TDataSource;
TabAboutRNN: TStringField;
TabAboutKbartal: TSmallintField;
TabAboutGod: TIntegerField;
TabAboutFam: TStringField;
TabAboutName: TStringField;
TabAboutPar: TStringField;
TabAboutOKEDA: TStringField;
TabAboutOKEDB: TStringField;
TabAboutOKEDC: TStringField;
TabAboutUDBec1: TFloatField;
TabAboutUDBec2: TFloatField;
TabAboutUDBec3: TFloatField;
TabAboutBidRas1: TBooleanField;
TabAboutBidRas2: TBooleanField;
TabAboutBidRas3: TBooleanField;
TabAboutBidRas4: TBooleanField;
TabAboutBidRas5: TBooleanField;
TabAboutNomerUbed: TStringField;
TabAboutDataUbed: TDateField;
TabAboutNomerKontr: TStringField;
TabAboutDataZakKontr: TDateField;
TabAboutNalogRej: TStringField;
RvProject1: TRvProject;
RvDataSetConnection1: TRvDataSetConnection;
RvDataSetConnection2: TRvDataSetConnection;
TabIPN: TTable;
DataSource2: TDataSource;
TabIPNRNN: TStringField;
TabIPNR1A1: TFloatField;
TabIPNR1B1: TFloatField;
TabIPNR1C1: TFloatField;
TabIPNR1D1: TFloatField;
TabIPNR1E1: TFloatField;
TabIPNR1A2: TFloatField;
TabIPNR1B2: TFloatField;
TabIPNR1C2: TFloatField;
TabIPNR1A3: TFloatField;
TabIPNR1B3: TFloatField;
TabIPNR1C3: TFloatField;
TabIPNR1A4: TFloatField;
TabIPNR1B4: TFloatField;
TabIPNR1C4: TFloatField;
TabIPNR1A5: TFloatField;
TabIPNR1B5: TFloatField;
TabIPNR1C5: TFloatField;
TabIPNR1D2: TFloatField;
TabIPNR1E2: TFloatField;
TabIPNR1D3: TFloatField;
TabIPNR1E3: TFloatField;
TabIPNR1D4: TFloatField;
TabIPNR1E4: TFloatField;
TabIPNR1D5: TFloatField;
TabIPNR1E5: TFloatField;
TabOPB: TTable;
DataSource3: TDataSource;
TabOPBRNN: TStringField;
TabOPBR1A1: TFloatField;
TabOPBR1B1: TFloatField;
TabOPBR1C1: TFloatField;
TabOPBR1A2: TFloatField;
TabOPBR1B2: TFloatField;
TabOPBR1C2: TFloatField;
TabOPBR1D1: TFloatField;
TabOPBR1E1: TFloatField;
TabOPBR1D2: TFloatField;
TabOPBR1E2: TFloatField;
TabCO: TTable;
DataSource4: TDataSource;
TabCOR1D1: TFloatField;
TabCOR1E1: TFloatField;
TabCOR1D2: TFloatField;
TabCOR1E2: TFloatField;
TabCORNN: TStringField;
TabCOR1A1: TFloatField;
TabCOR1B1: TFloatField;
TabCOR1C1: TFloatField;
TabCOR1A2: TFloatField;
TabCOR1B2: TFloatField;
TabCOR1C2: TFloatField;
RvDataSetConnection3: TRvDataSetConnection;
RvDataSetConnection4: TRvDataSetConnection;
RvProject2: TRvProject;
RvDataSetConnection5: TRvDataSetConnection;
procedure TabIPNCalcFields(DataSet: TDataSet);
procedure TabOPBCalcFields(DataSet: TDataSet);
procedure TabCOCalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
implementation
uses UnitMain, UnitObch, UnitIPN, UnitOPB, UnitCO;
{$R *.dfm}
procedure TDataModule1.TabIPNCalcFields(DataSet: TDataSet);
begin
TabIPNR1D1.Value:=TabIPNR1A1.Value+TabIPNR1B1.Value+TabIPNR1C1.Value;
TabIPNR1e1.Value:=TabIPNR1D1.Value;
TabIPNR1D2.Value:=TabIPNR1A2.Value+TabIPNR1B2.Value+TabIPNR1C2.Value;
TabIPNR1e2.Value:=TabIPNR1D2.Value;
TabIPNR1D3.Value:=TabIPNR1A3.Value+TabIPNR1B3.Value+TabIPNR1C3.Value;
TabIPNR1e3.Value:=TabIPNR1D3.Value;
TabIPNR1D4.Value:=TabIPNR1A4.Value+TabIPNR1B4.Value+TabIPNR1C4.Value;
TabIPNR1e4.Value:=TabIPNR1D4.Value;
TabIPNR1D5.Value:=TabIPNR1A5.Value+TabIPNR1B5.Value+TabIPNR1C5.Value;
TabIPNR1e5.Value:=TabIPNR1D5.Value;
end;
procedure TDataModule1.TabOPBCalcFields(DataSet: TDataSet);
begin
TabOPBR1D1.Value:=TabOPBR1A1.Value+TabOPBR1B1.Value+TabOPBR1C1.Value;
TabOPBR1e1.Value:=TabOPBR1D1.Value;
TabOPBR1D2.Value:=TabOPBR1A2.Value+TabOPBR1B2.Value+TabOPBR1C2.Value;
TabOPBR1e2.Value:=TabOPBR1D2.Value;
end;
procedure TDataModule1.TabCOCalcFields(DataSet: TDataSet);
begin
TabCOR1D1.Value:=TabCOR1A1.Value+TabCOR1B1.Value+TabCOR1C1.Value;
TabCOR1e1.Value:=TabCOR1D1.Value;
TabCOR1D2.Value:=TabCOR1A2.Value+TabCOR1B2.Value+TabCOR1C2.Value;
TabCOR1e2.Value:=TabCOR1D2.Value;
end;
end.
unit UnitObch;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls;
type
TFrmObch = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
Label4: TLabel;
Label2: TLabel;
DBEdit2: TDBEdit;
Label5: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
GroupBox1: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
GroupBox2: TGroupBox;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
GroupBox3: TGroupBox;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox5: TDBCheckBox;
GroupBox4: TGroupBox;
Label12: TLabel;
Label13: TLabel;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
Label14: TLabel;
DBEdit12: TDBEdit;
Label15: TLabel;
DBEdit13: TDBEdit;
Label16: TLabel;
DBEdit14: TDBEdit;
Panel2: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmObch: TFrmObch;
implementation
uses UnitMain, UnitModul;
{$R *.dfm}
procedure TFrmObch.SpeedButton1Click(Sender: TObject);
begin
DataModule1.TabAbout.Append;
end;
procedure TFrmObch.SpeedButton2Click(Sender: TObject);
begin
DataModule1.TabAbout.First;
end;
procedure TFrmObch.SpeedButton3Click(Sender: TObject);
begin
DataModule1.TabAbout.Prior;
end;
procedure TFrmObch.SpeedButton4Click(Sender: TObject);
begin
DataModule1.TabAbout.Next;
end;
procedure TFrmObch.SpeedButton6Click(Sender: TObject);
begin
DataModule1.TabAbout.last;
end;
procedure TFrmObch.SpeedButton7Click(Sender: TObject);
begin
DataModule1.TabAbout.Edit;
DataModule1.TabAbout.Post;
end;
procedure TFrmObch.SpeedButton5Click(Sender: TObject);
begin
DataModule1.TabAbout.Delete;
end;
procedure TFrmObch.FormCreate(Sender: TObject);
begin
DataModule1.TabAbout.Active:=true;
end;
procedure TFrmObch.FormDestroy(Sender: TObject);
begin
DataModule1.TabAbout.Close;
FrmObch:=nil;
end;
procedure TFrmObch.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
end.
unit UnitOPB;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons;
type
TFrmOPB = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Label13: TLabel;
ComboBox1: TComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmOPB: TFrmOPB;
implementation
uses UnitMain, UnitModul;
{$R *.dfm}
procedure TFrmOPB.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;
procedure TFrmOPB.FormCreate(Sender: TObject);
begin
DataModule1.TabAbout.Open;
DataModule1.TabAbout.First;
ComboBox1.Clear;
while not (DataModule1.TabAbout.Eof) do
begin
ComboBox1.Items.Add(DataModule1.TabAboutRNN.Value);
DataModule1.TabAbout.Next;
end;
DataModule1.TabAbout.close;
DataModule1.TabOPB.Open;
end;
procedure TFrmOPB.FormDestroy(Sender: TObject);
begin
DataModule1.TabOPB.close;
FrmOPB:=nil;
end;
procedure TFrmOPB.BitBtn1Click(Sender: TObject);
begin
DataModule1.TabOPB.Append;
DataModule1.TabOPB.FieldByName('RNN').AsString:=ComboBox1.Text;
DataModule1.Tabopb.FieldByName('r1a1').AsString:=Edit1.Text;
DataModule1.TabOPB.FieldByName('r1b1').AsString:=Edit2.Text;
DataModule1.TabOPB.FieldByName('r1c1').AsString:=Edit3.Text;
DataModule1.TabOPB.FieldByName('r1a2').AsString:=Edit4.Text;
DataModule1.TabOPB.FieldByName('r1b2').AsString:=Edit5.Text;
DataModule1.TabOPB.FieldByName('r1c2').AsString:=Edit6.Text;
DataModule1.TabOPB.Post;
end;
procedure TFrmOPB.BitBtn2Click(Sender: TObject);
begin
DataModule1.TabOPB.Delete;
end;
procedure TFrmOPB.BitBtn3Click(Sender: TObject);
begin
DataModule1.TabOPB.Edit;
DataModule1.TabOPB.Post;
end;
procedure TFrmOPB.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit2.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit1.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmOPB.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit3.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit2.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmOPB.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit4.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit3.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmOPB.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit5.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit4.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmOPB.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :edit6.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit5.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
procedure TFrmOPB.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8: ;
#13 :BitBtn1.SetFocus;
'.',',': begin
key:=DecimalSeparator;
if pos(DecimalSeparator,Edit6.Text)0 then key:=char(0);
end;
else key:=char(0);
end;
end;
end.
unit UnitPass;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons;
type
TPasswordDlg = class(TForm)
Label1: TLabel;
Password: TEdit;
OKBtn: TButton;
CancelBtn: TButton;
procedure OKBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PasswordDlg: TPasswordDlg;
implementation
uses UnitMain;
{$R *.dfm}
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
if Password.Text='111' then begin
FrmMain.N5.Visible:=true;
FrmMain.N10.Visible:=true;
FrmMain.N2.Visible:=false;
FrmMain.SpeedButton1.Enabled:=true;
FrmMain.SpeedButton2.Enabled:=true;
FrmMain.SpeedButton3.Enabled:=true;
FrmMain.SpeedButton4.Enabled:=true;
FrmMain.SpeedButton5.Enabled:=true;
FrmMain.SpeedButton6.Enabled:=true;
end;
end;
end.
Қосымша 2
2
Функционалдық бөлім
Жабдықтау бөлімі
Келісім-шарт
Күні
Келіскен фирма аты
Фирма аты
Құжат номері
Мерзімі
Суммасы
Кететін шығын көлемі
Бизнеске кететін шығын бланкісі
Келісім шарттартардың саны бойынша есеп беру
Сызба жобаны жасаған басшыға беретін ескертулер
саны бойынша есеп беру
Сызба жобаны жасаған басшыға беретін ескертулер
Бизнеске кететін шығындарды қалыптастыру
Келісім - шарттарды қалыптастыру
Бизнесті басқарудың мәліметтер базасы
Ұсыныс, Жобаның сызбасы, лицензия, Құрал-жабдықтар
Бизнес-жоспарды басқару бөлімі
Ақпараттық база
АЖ (2-кесте)
ПЖ (4-кесте)
ТЖ (3-кесте)