Дипломдық ЖҰмыс тақырыбы: «Мәліметттер базасы»



бет3/3
Дата11.06.2016
өлшемі0.85 Mb.
#128271
түріДиплом
1   2   3

«Инвестор 4.1» пакеті

«Инвестор 4.1» жүйесі (ИНЭК фирмасының өнімі) MS DOS операциялық ортасында жүзеге асырылған «жабық» программалық пакет.

«Инвестор 4.1» пакеті инвестициялық жобаның бизнес-жоспарын дайындауға және шетелдік қаржы институттарының талаптарына сәйкес түрлі есептерді жүргізуге арналады.

Осы кешеннің негізіне ұсынылатын программалар сыныбының көбінде қолданылатын, дисконттау тәсілдерін пайдаланатын ақша ағымдарының имитациялық моделі салынған.

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

Талдау екі режимде (қолмен және автоматты түрде) жүргізіледі, бұл анализге қойылатын талаптарға байланысты болады. Автоматтандырылған анализ кезінде берілген алгоритм бойынша инвестициялық жобаның барлық аспектілері бойынша толық қаржылық-экономикалық зерттеу жүргізіледі, бұл зерттеу қаржыландырудың шарттарынан басталып, жобаның коммерциялық тұрақтылығының жалпы бағалануымен аяқталады. Талдау бизнес-жоспардың қаржылық бөлімін түгелдей де, жеке нақтыланған түрде де қамтып отырады. Ол графикалық түрде жүргізіледі және мәтіндік түсініктемелермен толықтырылады, соның көмегімен жобаның бастапқы күйін безендіруге болады. Анализдің негізінде құрастырушылар үшін жобаның бірнеше альтернативалы (баламалы) нұсқауын жасауға мүмкіндік бар болады, мысалы, қаржыландырудың түрлі қайнар көзімен немесе инвестициялық шығындардың түрлі құрылымымен және т.с.с.

Болжаулы стандартты нысандағы баланстың есептелуі және құрастырылуы арнайы алгоритм бойынша өткізіледі, бұл алгоритм инвестициялық жобаның жүзеге асуы кезіндегі қаржылық қызметтің дәлді жоспарлануына және қаржылық нәтижелердің қалыптасу ерекшеліктерінің есепке алынуына әсер етеді. Оның көмегімен тура және жанама тәсілдермен ақша ағымдары түзетіліп қалыптастырылады. Нәтижесінде фирманың қызметкерлері жасаған әдістеме бойынша 80-нен астам абсолютті және салыстырмалы көрсеткіштер есептелініп, автоматты түрде аналитикалық «нетто» балансы, GAAP (Generally Accepted Accounting Principles, FASB, USA) стандарттарына сәйкес келетін есептер мен баланстар құрастырылады. Олардың барлығы ағылшын және орыс тілінде ұсынылады. Қабылданған әдістемелерге сай келетін инвестициялық жобаның қаржылық бағалануының жалпыланған көрсеткіштері де қатар есептелінеді. Осылайша шетелдік инвестолар жоба туралы барлық қаржылық ақпаратты халықаралық стандарттарға сәйкес келетін және оларға ыңғайлы түрде ала алады.

«Инвестор 4.1» пакеті түрлі қаржылық институттарға арналған инвестициялық бағдарламаларды нысандайды. Бұл режим инвестициялық жобалар туралы барлық ақпараттарды магниттік сақтағыштарда алуды көздейді. Ол үшін кешеннің құрамына арнаулы программа енгізілген. Программа көшіруден сақталынбаған, кешеннің «ашық» бөлігі болып есептелінеді және ол жұмыс орындарының санына ешқандай шектеу қоймайды. Оның көмегімен кешеннің аналитикалық блогында инвестициялық жобалар туралы түрлі ақпаратты қамтитын (соның ішінде ақпараттық меморандум, қаржылық ақпарат, экономикалық ақпарат және т.б.) өзіндік деректер банкісі қалыптасады.

«Инвестор» пакетінің ерекшелігі оның әмбебаптылығы болып табылады. Ол жұмыс істейтін немесе салынып жатқан кәсіпорындарға және құрылыстарға жұмсалатын инвестициялыарды бағалауда қолданыс тапты. Сонымен бірге бұл программалық өнім экономиканың кез келген саласының спецификасын, яғни өзіндік ерекшеліктерін ескеріп отыруға мүмкіндік береді. «Инвестор» инвестициялық жобаны есептеуді және жоспарлауды жүзеге асыратын мамандарға да (экономистер, инженерлер), инвестициялық бағдарламаларды қалыптастыратындарға (коммерциялық банктердің басқарушылары, инвестициялық және лизингтік компаниялар және басқа да қаржы институттары) да арналады.

Өз кезегінде инвестициялық анализ төмендегілерді қамтиды:



  • түрлі дисконттау мөлшерлеіндегі тиімділік көрсеткіштерін есептеу (NPV, IRR, PI, PB);

  • сезімталдылық анализі;

  • жоба нұсқауларының интеграциясы;

  • жобаның автоматты экспресс-анализі.

Экономикалық талдауға кіретіндер:

  • қызмет ету көресеткіштерінің анализі;

  • индексті анализ;

  • ресурстарды қолданудың тиімділігін анықтайтын талдау;

  • қаржылық беріктілік қорын есептеу (шығынсыздық нүктесі);

  • коммерциялық тәуекелді бағалау;

  • операциялық және қаржылық қызметтің автомматы анализі.

Қаржылық талдау қамтиды:

  • 80 көрсеткіш бойынша бастапқы және болжаулы қаржылық құжаттардың анализі;

  • инвестициялық жобаның жалпыланған қаржылық бағалау көрсеткіштерінің есебі;

  • қаржылық көрсеткіштер бойынша жобалардың рейтингі;

  • кәсіпорынның несиелік мүмкіндігінің сыныбын анықтау;

  • коммерциялық бағалау алдындағы жобалардың экспертті бағалануы;

  • инвестициялық жоба нұсқауларын салыстырмалы бағалау және ең рентабельдісін таңдау.

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

Пайдаланушылардың барлық категориялары жобаның барлық кезеңдерінде шешімдерді қабылдау немесе инвестициялық бағдарламаны қалыптастыру үшін кешеннің деректер базасын қолдана алады.

«Инвестор» пакетінің, басқа программалық өнімдерден оны өзгеше ететін, басты ерекшеліктері:


  • кез келген квалификациялы пайдаланушы үшін жұмыс істеудің жеңілділігі және түсініктілігі;

  • спецификалық құрылым, пакеттін екі бөлімге бөлінуі – «Баламалы (альтернативті) жобалар» (реципиенттің есебі және анализі) және «Тәуелсіз жобалар» (инвестордың анализі);

  • электронды бухгалтерлік жүйелермен сәйкес;

  • инвесторға реципиенттің қаржылық қалпы туралы деректерді беру мүмкіндігі;

  • болжаулы қаржылық құжаттарды қалыптастыру;

  • аналогтары жоқ аналитикалық бөлім;

  • экономикалық және қаржылық көрсеткіштерін, инвестициялық экспертизаның нәтижелерін ескере отырып, инвестициялық жобалардың салыстырмалы анализін жасау мүмкіндігі;

  • пайдаланушыға инвестициялық жоспарлау және талдау аспектілері бойынша жүйелік көмекті беру және соның негізінде пакетті оқыту үрдісінде қолданудың мүмкіндігі;

  • компьютерлік қамтамасыздандыруға қойылатын талаптардың қарапайым болуы.


3. ИННОВАЦИЯЛЫ ИНВЕСТИЦИЯЛАРДЫ ТАЛДАУДЫҢ КОМПЬЮТЕРЛІК МОДЕЛІ
3.1. Құрастыру ортасы

Құрастыру ортасы ретінде негізге Delphi программалау ортасы алынған. Delphi BORLAND корпорациясының өнімі. Қазіргі уақытта бұл программалық өнімнің 8 нұсқасы бар. Дипломдық жұмыста қолданылған версия – алтыншы. Delphi 6 ортасының программалау тілі – объектілі-бағытталған Delphi программалау тілі болып келеді (алдыңғы версияларда Object Pascal программалау тілі). Бұл құрал өзінің мүмкіндіктері бойынша кең және түсінікті. Программалау ортасының жұмыс облысының жалпы түрі төмендегі суретте келтірілген.


Сурет 1. Программалау ортасы


Функционалдық мүмкіндіктер келесілерді қамтиды:

  • шынайы ақша ағынына негізделетін есептеудің қазіргі әдістемесін қолдану;

  • есептеудің көкжиегіне және қадамына шектеулерді минимизациялау;

  • өнімдер көлеміне шектеулерді минимизациялау;

  • жобаны бағалауда қолданылатын қаржылық экономикалық көрсеткіштерінің көп болуы;

  • жобаны жүзеге асыру сценарийлерінің әртүрлілігі;

  • инфляцияны есептеудің тәсілдері мен мүмкіндіктері;

  • белгісіздікті және тәуекелдерді есепке алудың тәсілдері мен мүмкіндіктері;

  • ЭЕМ жадысында есептеудің жарамды нұсқауларының келешек салыстырулар мен таңдамалар үшін сақталынуы.

Программалық реализациялаудың сапасы төмендегі шарттармен анықталады:

  • ЭЕМ – ң кең таралған түрлерінде пакеттің жүзеге асу мүмкіндігімен (қажетті операциялық ортаны қолдану шартымен);

  • жұмыстағы сенімділікпен;

  • шапшаң әрекеттілікпен (қажетті көлемде және қолайлы мерзімдерде түрлі есептеу үрдістерін жүргізу, оларды салыстыру және т.б. мүмкіндіктер);

  • рұқсатсыз қолдану мен көшіруден пакеттің қорғалғандығымен.

Қолданушы интерфейсі қолайлылығының сипаттамалары:

  • ақпаратты енгізудің еңбексыйымдылығын қарапайымдау және минимизациялау;

  • енгізу кезінде жіберілетін қателіктерден және мүмкін болмайтын деректерден қорғану мүмкіндігі;

  • нәтижелердің көрнекі түрде берілуі;

  • графикалық ақпараттың жеткілікті және әртүрлі болуы және т.б.

Жалпы алғанда, пакет үш блоктан тұрады (деректерді енгізу, есептеу, деректерді шығару). Осының арқасында бұрын саналынған нұсқаулардың шығарма деректеріне тікелей рұқсат қамтамасыз етіледі.

Коммерциялық тиімділік шынайы ақша ағынын имитациялаудың негізінде бағаланады. Есептеу екі валютамен жүргізілуі мүмкін – ұлттық және шетелдік. Тек тұрақты (уақыт бойынша) инфляция есепке алынуы мүмкін. Шығындар мен табыстар баптарына еқандай шектеулер салынбайды.


3.2. Талдау деректері

Инвестициялық анализ төмендегілерді қамтиды:



  • түрлі дисконттау мөлшерлеіндегі тиімділік көрсеткіштерін есептеу (NPV, IRR, PI, PB);

  • сезімталдылық анализі;

  • жоба нұсқауларының интеграциясы;

  • жобаның автоматты экспресс-анализі.

Экономикалық талдауға кіретіндер:

  • қызмет ету көресеткіштерінің анализі;

  • индексті анализ;

  • ресурстарды қолданудың тиімділігін анықтайтын талдау;

  • қаржылық беріктілік қорын есептеу (шығынсыздық нүктесі);

  • коммерциялық тәуекелді бағалау;

  • операциялық және қаржылық қызметтің автомматы анализі.

Қаржылық талдау қамтиды:

  • көрсеткіш бойынша бастапқы және болжаулы қаржылық құжаттардың анализі;

  • инвестициялық жобаның жалпыланған қаржылық бағалау көрсеткіштерінің есебі;

  • қаржылық көрсеткіштер бойынша жобалардың рейтингі;

  • кәсіпорынның несиелік мүмкіндігінің сыныбын анықтау;

  • коммерциялық бағалау алдындағы жобалардың экспертті бағалануы;

  • инвестициялық жоба нұсқауларын салыстырмалы бағалау және ең рентабельдісін таңдау.

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

Пайдаланушылардың барлық категориялары жобаның барлық кезеңдерінде шешімдерді қабылдау немесе инвестициялық бағдарламаны қалыптастыру үшін кешеннің деректер базасын қолдана алады.

Пакеттің басқа программалық өнімдерден оны өзгеше ететін, басты ерекшеліктері:


  • кез келген квалификациялы пайдаланушы үшін жұмыс істеудің жеңілділігі және түсініктілігі;

  • электронды бухгалтерлік жүйелермен сәйкес;

  • инвесторға реципиенттің қаржылық қалпы туралы деректерді беру мүмкіндігі;

  • болжаулы қаржылық құжаттарды қалыптастыру;

  • аналогтары жоқ аналитикалық бөлім;

  • экономикалық және қаржылық көрсеткіштерін, инвестициялық экспертизаның нәтижелерін ескере отырып, инвестициялық жобалардың салыстырмалы анализін жасау мүмкіндігі;

  • пайдаланушыға инвестициялық жоспарлау және талдау аспектілері бойынша жүйелік көмекті беру және соның негізінде пакетті оқыту үрдісінде қолданудың мүмкіндігі;

  • компьютерлік қамтамасыздандыруға қойылатын талаптардың қарапайым болуы.


3.3. Негізгі жұмыс істеу қағидалары

Сурет 2.


Суретте «Пароль енгізу терезесі» деп аталатын программаның функционалды терезесі көрсетілген. Оның қажеттілігі айқын: рұқсатсыз пайдаланудан қорғау және жалпы деректердің сақталуын қамтамасыз ету. Қажетті пароль енгізілген жағдайда программа өзінің орындалуын жалғастырады.

Одан кейінгі қадамда презентациялық терезе ашылады. Бұл форма тек таныстыру функциясын орындайды. Оның бейнесі төменде келтірілген.



Сурет 2.


Келесі қадамда негізгі терезе пайда болады. Ол бүкіл жұмыс аумағые қамтиды. Бастапқы қалпында форманың бетінде жобалар туралы ақпарат болмайды. Егер нақты іс-әрекет таңдалса, мысалы «жаңа жобаны құрастыру», онда негізгі терезе өзінің бастапқы күйін өзгертеді. Оның бетінде жаңа элементтер пайда болып, жаңа функцияларды орындауға мүмкіндік туады.

Сурет 4. Жобаның сезімталдылық анализі.



Сурет 5. Деректерді енгізу формасы



Қорытынды

Дипломдық жұмысымды қорытындылай келе, мынадай маңызды аспектілерге тоқталғым келіп отыр. Қазіргі уақытта қазақстандық экономика дамудың жаңа сатыларына өтіп жатыр. Осы кезеңде оның кез келген саласынының дамуы жалпы отандық жағдайға үлкен әсер етеді. Бүгінгі күні тез әрі перспективалы түрде дамып отырған сала – құрылыс. Әсіресе қалыптасқан жағдайларда, жаңа құрылыстарды, ғимараттарды, үйлерді салудың қажеттілігі күннен күнге өсуде. Қазақстан экономикасына инвестицияларды тарту өте өзекті мәселе. Оны жүзеге асыру Қазақстан Республикасының жалпы және ағымдағы даму стратегияларының маңызды басымдығы болып табылады. Сондықтан бұл бағытта жасалынатын жұмыс қажетті және актуалды. Инвестициялар – экономикалық дамуды қамтамасыз ететін және болашаққа бағытталып белгілі бір өндіріске немесе құрылысқа салынатын құралдар. Инновация – түрлі нысандағы және түрлі саладағы жаңалық: жаңа технология, жаңа модель, жаңа типті құрылыс, жаңа шешім, т.с.с Инновациялар, бір жағынан, инвестицияларды қажет етеді, ал, басқа жағынан, инвестициялардың сапасын және тиімділігін қамтамасыз етеді. Қазіргі таңда инновациялы инвестициялар қарапайым инвестицияларға қарағанда саланың дамуы үшін де, жалпы экономиканың дамуы үшін де басымды ықпал етеді. Кез келген экономикалық сала, соның ішінде құрылыс саласы, терең әрі сапалы талдауды қажет етеді. Негізінен бизнес-талдау жаңа жобаларды жүзеге асыруды сенімділікпен қамтамасыз ету үшін талап етіледі. Инвестициялық жобаларды жүзеге асыру мақсатында жүргізілетін талдау бірнеше бөлімнен тұрады. Олардың ең маңыздылары: алдын-ала талдау, экономикалық және қаржылық талдау, техникалық және технологиялық талдау, тәуекелді талдау. Экономикадағы жалпы талдау мүмкіндіктерді анықтап отыруға және болжауды құрастыруға көмектеседі.

«Қазақстан - 2030» стратегиясының үшінші ұзақ мерзімді басымдығы: шетел инвестицияларының деңгейі жоғары, дамыған нарықтық экономикаға негізделген экономикалық өсу. «Қазақстан - 2030» стратегиясы көздейтін бағытта жұмыс жасау көкейтесті мәселе болып табылады, себебі ол Қазақстанның жалпы өркендеуіне, экономикалық әл-ауқатының артуына, халықаралық қауымдастыққа кірігуіне ықпал етеді.

Қазіргі уақытта қаржы саласындағы модельдеу нақтылықты баламалы сипаттай алатын модельдерді құру жолымен дамып келеді. Ақпараттық технологиялардың және есептеуіш техникасының қарқынды дамуы тиімді қаржы модельдерін құрастыру мүмкіндіктерін кеңейтеді. Компьютерлік модельдеуде қолданылатын динамикалық тәсілдер өте тиімді құралдар болып табылады, олардың арқасында көптеген факторларды есепке ала отырып нақты жобаларды құрастыруға болады. Бұл модельдер кәсіпорынның немесе мекеменің нақты қызметін, түрлі уақыт кезеңдерінде жүзеге асқан жағдайлар ретінде қарастырылатын, ақша ағымдары (түсімдер мен төленімдер) арқылы сипаттайды.

Қазақстан шеңберінде инвестициялар тиімділігін жоспарлау және талдау мәселесі мамандардан ақша ағымдарының қалыптасу үрдісін сыпайы сипаттай алатын модельдердің қолданылуын талап етеді.

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

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

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



Қосымшалар

(программаның мәтіні)

unit UnitVD;


interface

uses


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

Dialogs, StdCtrls, Buttons, ExtCtrls, AppEvnts;


type

TFormVD = class(TForm)

BtnOK: TBitBtn;

BtnCancel: TBitBtn;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

Panel1: TPanel;

Panel2: TPanel;

procedure BitBtn8Click(Sender: TObject);

procedure BtnCancelClick(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;
var

FormVD: TFormVD;

VV: Boolean;
implementation
{$R *.dfm}
procedure TFormVD.BitBtn8Click(Sender: TObject);

var k: Integer;


begin

if VV = true then

begin

BitBtn1.Show;



BitBtn2.Show;

BitBtn3.Show;

BitBtn4.Show;

BitBtn5.Show;

BitBtn6.Show;

BitBtn7.Show;

VV := false;

Panel1.Caption:='';


FormVD.Canvas.Create;

FormVD.Canvas.Pen.Color := clWhite;

FormVD.Canvas.Pen.Style := psSolid;

FormVD.Canvas.Pen.Width:= 2;

FormVD.Canvas.MoveTo(250, 60);

FormVD.Canvas.LineTo(250, 270);

FormVD.Canvas.MoveTo(200, 165);

FormVD.Canvas.LineTo(250, 165);


for k := 1 to 7 do

begin


FormVD.Canvas.MoveTo(250, 35*k+25);

FormVD.Canvas.LineTo(300, 35*k+25);

end;
end else

begin


BitBtn1.Hide;

BitBtn2.Hide;

BitBtn3.Hide;

BitBtn4.Hide;

BitBtn5.Hide;

BitBtn6.Hide;

BitBtn7.Hide;

VV := true;

Panel1.Caption:= 'ЭЛЕМЕНТЫ';
FormVD.Canvas.Create;

FormVD.Canvas.Pen.Color := clMoneyGreen;

FormVD.Canvas.Pen.Style := psSolid;

FormVD.Canvas.Pen.Width:= 2;

FormVD.Canvas.MoveTo(250, 60);

FormVD.Canvas.LineTo(250, 270);

FormVD.Canvas.MoveTo(200, 165);

FormVD.Canvas.LineTo(250, 165);


for k := 1 to 7 do

begin


FormVD.Canvas.MoveTo(250, 35*k+25);

FormVD.Canvas.LineTo(300, 35*k+25);

end;
end;

end;
procedure TFormVD.BtnCancelClick(Sender: TObject);

begin

FormVD.Close



end;

end.


unit UnitPS;
interface
uses

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

Dialogs, StdCtrls, Buttons, Mask;
type

TFormPS = class(TForm)

MaskEdit1: TMaskEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FormPS: TFormPS;
implementation
uses UnitMain, UnitDP;
{$R *.dfm}
procedure TFormPS.BitBtn1Click(Sender: TObject);

begin


if FormPS.MaskEdit1.Text = 'DIPLOM' then

begin


FormDP.Show;

FormPS.Hide;

end else

begin


ShowMessage(' Пароль неверен!');

FormPS.MaskEdit1.SetFocus;

end;

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



begin

FormPS.Close;

end;
end.

program ProjectDP;


uses

Forms,


Dialogs,

UnitDP in 'UnitDP.pas' {FormDP},

UnitMain in 'UnitMain.pas' {FormMain},

UnitNP in 'UnitNP.pas' {FormNP},

UnitVD in 'UnitVD.pas' {FormVD},

UnitPS in 'UnitPS.pas' {FormPS},

UnitAChP in 'UnitAChP.pas' {FormAChP},

UnitGChP in 'UnitGChP.pas' {FormGChP},

UnitINV in 'UnitINV.pas' {FormINV},

UnitNG in 'UnitNG.pas' {FormNG},

UnitPrognoz in 'UnitPrognoz.pas' {FormPrognoz};
begin

Application.Initialize;

Application.CreateForm(TFormPS, FormPS);

Application.CreateForm(TFormDP, FormDP);

Application.CreateForm(TFormMain, FormMain);

Application.CreateForm(TFormINV, FormINV);

Application.CreateForm(TFormNG, FormNG);

Application.CreateForm(TFormPrognoz, FormPrognoz);

FormMain.BB1_Main.Hide;

FormMain.BB2_Main.Hide;

FormMain.BB3_Main.Hide;

FormMain.BB4_Main.Hide;

FormMain.BB5_Main.Hide;

FormMain.BB6_Main.Hide;

FormMain.BB7_Main.Hide;

FormMain.BB8_Main.Hide;

FormMain.BB9_Main.Hide;

FormMain.BB10_Main.Hide;

FormMain.BB11_Main.Hide;

VV_Main := true;


Application.Run;

end.


unit UnitAChP;
interface
uses

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

Dialogs, StdCtrls, Buttons, UnitGChP;
type

TFormAChP = class(TForm)

Lab1AChP: TLabel;

Lab2AChP: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

EdNPV_AChP: TEdit;

EdIRR_AChP: TEdit;

EdOSB_AChP: TEdit;

EdPI_AChP: TEdit;

EdSChP_AChP: TEdit;

EdMOD_AChP: TEdit;

EdPBP_AChP: TEdit;

EdDIZ_AChP: TEdit;

SpeedButton1: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;
var

FormAChP: TFormAChP;


implementation

{$R *.dfm}


procedure TFormAChP.SpeedButton1Click(Sender: TObject);

begin


Application.CreateForm(TFormGChP, FormGChP);

FormGChP.Show;

end;

end.


unit UnitDP;
interface
uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons, UnitPS;
type

TFormDP = class(TForm)

PanelDP: TPanel;

LabDP: TLabel;

LabFacultet: TLabel;

LabKafedra: TLabel;

LabFIO: TLabel;

LabKazEU: TLabel;

BtnOK: TBitBtn;

BtnCancel: TBitBtn;

procedure BtnCancelClick(Sender: TObject);

procedure BtnOKClick(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;
var

FormDP: TFormDP;


implementation
uses UnitMain;

{$R *.dfm}


procedure TFormDP.BtnCancelClick(Sender: TObject);

begin


FormDP.Close;

FormPS.Close;


end;
procedure TFormDP.BtnOKClick(Sender: TObject);

begin


FormMain.Show

end;


end.

unit UnitGChP;


interface
uses

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

Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Buttons;
type

TFormGChP = class(TForm)

Chart1: TChart;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FormGChP: TFormGChP;
implementation
{$R *.dfm}
procedure TFormGChP.BitBtn1Click(Sender: TObject);

begin


Chart1.BackColor:= clBackground;

end;
end.

unit UnitINV;
interface
uses

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

Dialogs, Grids;
type

TFormINV = class(TForm)

private

{ Private declarations }



public

{ Public declarations }

end;
var

FormINV: TFormINV;


implementation
{$R *.dfm}
end.

unit UnitMain;


interface
uses

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

Dialogs, Menus, UnitDP, UnitNP, UnitVD, jpeg, ExtCtrls, UnitAChP,

OleServer, Excel2000, Buttons, StdCtrls, ComCtrls;


type

TFormMain = class(TForm)

MainMenu1: TMainMenu;

A: TMenuItem;

A1: TMenuItem;

A2: TMenuItem;

A3: TMenuItem;

A4: TMenuItem;

A5: TMenuItem;

B: TMenuItem;

B1: TMenuItem;

B2: TMenuItem;

B3: TMenuItem;

B4: TMenuItem;

B5: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

PrintDialog1: TPrintDialog;

Image1: TImage;

Bevel1: TBevel;

Bevel2: TBevel;

BB2_Main: TBitBtn;

BB_OP_Main: TBitBtn;

BB3_Main: TBitBtn;

BB4_Main: TBitBtn;

BB5_Main: TBitBtn;

BB6_Main: TBitBtn;

BB11_Main: TBitBtn;

BB7_Main: TBitBtn;

BB8_Main: TBitBtn;

BB9_Main: TBitBtn;

BB10_Main: TBitBtn;

BB1_Main: TBitBtn;

G1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

BitBtn2: TBitBtn;

BitBtn5: TBitBtn;

BitBtn8: TBitBtn;

BitBtn3: TBitBtn;

BitBtn6: TBitBtn;

BitBtn9: TBitBtn;

BitBtn4: TBitBtn;

BitBtn7: TBitBtn;

BitBtn10: TBitBtn;

BitBtn1: TBitBtn;

BitBtn12: TBitBtn;

BitBtn13: TBitBtn;

BitBtn16: TBitBtn;

BitBtn17: TBitBtn;

BitBtn18: TBitBtn;

BitBtn19: TBitBtn;

BitBtn20: TBitBtn;

BitBtn25: TBitBtn;

BitBtn30: TBitBtn;

BitBtn11: TBitBtn;

Edit1: TEdit;

Panel1: TPanel;

Panel2: TPanel;

MonthCalendar1: TMonthCalendar;

Panel3: TPanel;

procedure A5Click(Sender: TObject);

procedure A2Click(Sender: TObject);

procedure A4Click(Sender: TObject);

procedure A1Click(Sender: TObject);

procedure A3Click(Sender: TObject);

procedure B1Click(Sender: TObject);

procedure B3Click(Sender: TObject);

procedure BB_OP_MainClick(Sender: TObject);

procedure BB1_MainClick(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FormMain: TFormMain;

VV_Main: Boolean;

VD_F: Boolean;

NP_F: Boolean;


implementation
{$R *.dfm}

procedure TFormMain.A5Click(Sender: TObject);

begin

FormMain.Close;



end;
procedure TFormMain.A2Click(Sender: TObject);

begin


OpenDialog1.InitialDir:= 'c:\';

OpenDialog1.Execute

end;
procedure TFormMain.A4Click(Sender: TObject);

begin


SaveDialog1.Execute

end;
procedure TFormMain.A1Click(Sender: TObject);

begin

FormMain.Image1.Hide;



Bevel1.Visible := True;

Bevel2.Visible := True;

BB_OP_Main.Visible:= True;
end;

procedure TFormMain.A3Click(Sender: TObject);

begin

Application.MessageBox('Сохранить изменения в проекте?', 'Информация',



MB_ICONINFORMATION + MB_YESNOCANCEL)

end;
procedure TFormMain.B1Click(Sender: TObject);

var m: Integer;

begin


BB1_Main.Hide;

BB2_Main.Hide;

BB3_Main.Hide;

BB4_Main.Hide;

BB5_Main.Hide;

BB6_Main.Hide;

BB7_Main.Hide;

BB8_Main.Hide;

BB9_Main.Hide;

BB10_Main.Hide;

BB11_Main.Hide;

VV_Main := true;


FormMain.Canvas.Create;

FormMain.Canvas.Pen.Color := clMoneyGreen;

FormMain.Canvas.Pen.Style := psSolid;

FormMain.Canvas.Pen.Width:= 2;

FormMain.Canvas.MoveTo(420, 120);

FormMain.Canvas.LineTo(420, 520);

FormMain.Canvas.MoveTo(350, 320);

FormMain.Canvas.LineTo(420, 320);


for m := 1 to 11 do

begin


FormMain.Canvas.MoveTo(420, 40*m+80);

FormMain.Canvas.LineTo(450, 40*m+80);

end;

if VD_F = False then



begin

Application.CreateForm(TFormVD, FormVD);

FormVD.Show;

FormVD.BitBtn1.Hide;

FormVD.BitBtn2.Hide;

FormVD.BitBtn3.Hide;

FormVD.BitBtn4.Hide;

FormVD.BitBtn5.Hide;

FormVD.BitBtn6.Hide;

FormVD.BitBtn7.Hide;

VV := True;

VD_F := True;

end else

FormVD.Show;

end;
procedure TFormMain.B3Click(Sender: TObject);

begin


Application.CreateForm(TFormAChP, FormAChP);

FormAChP.Show;

FormAChP.Lab2AChP.Caption:= NP;

end;
procedure TFormMain.BB_OP_MainClick(Sender: TObject);

var

m: Integer;



begin

if VV_Main = true then

begin

BB1_Main.Show;



BB2_Main.Show;

BB3_Main.Show;

BB4_Main.Show;

BB5_Main.Show;

BB6_Main.Show;

BB7_Main.Show;

BB8_Main.Show;

BB9_Main.Show;

BB10_Main.Show;

BB11_Main.Show;

VV_Main := false;
FormMain.Canvas.Create;

FormMain.Canvas.Pen.Color := clWhite;

FormMain.Canvas.Pen.Style := psSolid;

FormMain.Canvas.Pen.Width:= 2;

FormMain.Canvas.MoveTo(420, 120);

FormMain.Canvas.LineTo(420, 520);

FormMain.Canvas.MoveTo(350, 320);

FormMain.Canvas.LineTo(420, 320);

for m := 1 to 11 do

begin


FormMain.Canvas.MoveTo(420, 40*m+80);

FormMain.Canvas.LineTo(450, 40*m+80);

end;

end else
begin



BB1_Main.Hide;

BB2_Main.Hide;

BB3_Main.Hide;

BB4_Main.Hide;

BB5_Main.Hide;

BB6_Main.Hide;

BB7_Main.Hide;

BB8_Main.Hide;

BB9_Main.Hide;

BB10_Main.Hide;

BB11_Main.Hide;

VV_Main := true;


FormMain.Canvas.Create;

FormMain.Canvas.Pen.Color := clMoneyGreen;

FormMain.Canvas.Pen.Style := psSolid;

FormMain.Canvas.Pen.Width:= 2;

FormMain.Canvas.MoveTo(420, 120);

FormMain.Canvas.LineTo(420, 520);

FormMain.Canvas.MoveTo(350, 320);

FormMain.Canvas.LineTo(420, 320);


for m := 1 to 11 do

begin


FormMain.Canvas.MoveTo(420, 40*m+80);

FormMain.Canvas.LineTo(450, 40*m+80);

end;
end;

end;


procedure TFormMain.BB1_MainClick(Sender: TObject);

begin


if NP_F = False then

begin


Application.CreateForm(TFormNP, FormNP);

FormNP.Show;

NP_F := True;

end else


FormNP.Show;

end;
end.

unit UnitNG;
interface
uses

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

Dialogs, StdCtrls, Grids;
type

TFormNG = class(TForm)

StringGrid1: TStringGrid;

private


{ Private declarations }

public


{ Public declarations }

end;
var

FormNG: TFormNG;
implementation
{$R *.dfm}
end.

unit UnitNP;


interface
uses

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

Dialogs, StdCtrls, ExtCtrls, Buttons, Mask, ComCtrls;
type

TFormNP = class(TForm)

LabEdNP: TLabeledEdit;

MemoNP: TMemo;

LabNP: TLabel;

BBtn1NP: TBitBtn;

BBtn2NP: TBitBtn;

MaskEdNP: TMaskEdit;

Label1: TLabel;

procedure BBtn2NPClick(Sender: TObject);

procedure BBtn1NPClick(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FormNP: TFormNP;

NP: String;

KO: String;

DS: String;

implementation
{$R *.dfm}

uses


UnitMain;
procedure TFormNP.BBtn2NPClick(Sender: TObject);

begin


FormNP.Close

end;
procedure TFormNP.BBtn1NPClick(Sender: TObject);

begin

if LabEdNP.Text = '' then



ShowMessage('Заполните поле "Название проекта"!')

else


begin

NP:= LabEdNP.Text;

KO:= MemoNP.Text;

DS:= MaskEdNP.Text;

end;

end;
end.


unit UnitPrognoz;
interface
uses

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

Dialogs;
type

TFormPrognoz = class(TForm)

private

{ Private declarations }



public

{ Public declarations }

end;
var

FormPrognoz: TFormPrognoz;


implementation
{$R *.dfm}
end.

Қолданылған әдебиет тізімі


  1. Әмірқанов Р.Ә., Тұрғұлова А.Қ. Қаржы менеджменті: Оқу құралы. – Алматы: Т. Рысқұлов атындағы ҚазЭУ, 2002.

  2. Аньшин В.М. Инвестиционный анализ. – М.: Дело, 2002.

  3. Архангельский А.Я. Программирование в Delphi 6. – М.: Издательство БИНОМ, 2001.

  4. Баскаков В.Н., Карташов Г.Д. Введение в актуарную математику. – М.: МГТУ имени Н.Э. Баумана, 1998.

  5. Богатин Ю.В., Швандар В.А. Инвестиционный анализ. – М.: ЮНИТИ, 2000.

  6. Валдайцев С.В. Оценка бизнеса и инноваций. Современные тенденции. – М.: Филинъ, 1997.

  7. Джон Э. Ханк, Дин У. Уичерн, Артур Дж. Райтс. Бизнес-прогнозирование с применением Excel и Minitab. – М.: Издательский дом «Вильямс», 2003.

  8. Есипов В.Е. Ипотечно-инвестиционный анализ. – СПб: Экономическая школа, 1998.

  9. Ильдеменов С.В. Инновационный менеджмент в отраслях. – М.: Инфра-М, 2004.

  10. Ильенкова С.Д. Инновационный менеджмент. – М.: Банки и биржи, 1997.

  11. Инвестиционная деятельность в Республике Казахстан: статистический сборник. – Алматы: Агентство РК по статистике, 2004.

  12. Информационные технологии – совместимость методов. – М.: РЭА, 1999.

  13. Информационая среда – совместимость информационных ресурсов, систем формирования, распределения и использования информации. – М.: РФА, 2000.

  14. Исабекова А.И. Совершенствование управления деятельностью ремонтно-строительных предприятий на базе новых информационных технологий. – Костанай: ЭКП, 2003.

  15. Карлберг Конрад. Бизнес-анализ с помощью Microsoft Excel. – М.: Издательский дом «Вильямс», 2003.

  16. Ковалев В.В. Методы оценки инвестиционных проектов. – М.: Финансы и статистика, 1998.

  17. Қазақстан Республикасындағы құрылыс: 2002 – 2004. Статистикалық анықтамалық. – Алматы: ҚР статистика агенттігі, 2005.

  18. Лимитовский М.А. Основы оценки инвестиционных и финансовых решений. – М.: ДЕКА, 1998.

  19. Мамыров Н.К., Кубаев К.Е., Камшибаев Р.А. Инвестиции в Казахстане: материалы научно-практической конференции. – Алматы: Экономика, 1997.

  20. Нурмаганбетова К.Е. Экономико-математическое моделирование строительного производства в условиях рынка. – Алматы: КазГАУ, 1999.

  21. Под ред. Смаилова А.А. Инвестиционная деятельность в Республике Казахстан: статистический сборник. – Алматы: Агентство РК по статистике, 2001.

  22. Полковникова Е.В., Полковникова А.В. Планирование и управление проектами с использованием Time Line. – М.: Диалог-Мифи, 1994.

  23. Программный комплекс Альт-Инвест. Руководство пользователя. – СПб.: ИКФ «Альт», 1996.

  24. Фаронов В.В. Система программирования Delphi. – СПб.: БХВ - Петербург, 2003.

  25. Шумилин С.Б. Инвестиционное проектирование: практическое руководство по экономическому обоснованию инвестиционных проектов. – М.: Финстатинформ, 1995.



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




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

    Басты бет