Автоматтандырылған «Банкоматты басқару» банктық жүйесі

Жоспар

КІРІСПЕ
1. МОДЕЛЬДЕУ ОБЪЕКТІСІНІҢ КОМПЬЮТЕРЛІК ЗЕРТТЕУ
1.1 Компьтерлік модельдеудің мақсаты мен тағайындалуы
1.2 Техникалық есеп
2. ЗЕРТТЕЛЕТІН ЖҮЙЕНІ КОМПЬЮТЕРЛІК МОДЕЛЬДЕУ
2.1 Модельденетін жүйенің матеметикалық моделі
2.2 Жүйенің концептуалдық моделі және формулалары
2.3 Жүйенің модельдеуші алгоритмді компьтерде жүргізу
ҚОРЫТЫНДЫ
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
        
        МАЗМҰНЫ
|КІРІСПЕ | ... ... ... ... зерттеу | ... ... ... ... мен ... | |
| 1.2 ... есеп | ... ... ... ... модельдеу | ... ... ... матеметикалық моделі | ... ... ... ... және ... | ... Жүйенің модельдеуші алгоритмді компьтерде жүргізу | ... | ... ... ... | ... өндіріс тиімділігін арттыру мәселесін шешу жолы – ғылымның
жетістіктерін ... ... ... ... және ... техниканы қолдану болып табылады.
Математикалық экономикаға енуі жоспарлау мен басқарудың ... ... ... аса ... ... ... ауқымының кеңеюі, мамандандырудын тереңдеуі, кооперацияның
дамуы, ... ... ... және ... ... өзгерістер басқарылуын көптеген істерінің арасынан ең тиімдісін
таңдап алуды қажет етеді.
Жоспарлы тапсырма ... ... ... ... ... ... – экономика мен математика
пәндерінің жиынтығы.
Жоспарлау есептері көпнұсқаулы болып келеді. Ал ... ... ең ... шешімін табу өте көп шығынды қажет ... ал ... да ... Сондықтан оптимальды шешімдерді қысқа жолмен табу үшін
экономикалық-математикалық әдістерді ... ... ... Ал
экономикалық-математикалық әдістермен оптимальды шешім табу – кең ... ... ... сөз. Мұндай есептерді компленксті түрде шешуге
дербес ... ... ... қажет.
Қазіргі кезде жосапрлаудың экономикалық-математикалық әдістері мен
дербес компьтерлерді қолдауну ... ... ... ... ... ... ... деңгейін көтеруге, ... ... ... ... МОдельдеу объектісінің компьютерлік зерттеу
Автоматтандырылған «Банкоматты басқару» банктық жүйесін ... ... ... болады:
Клиент жүйеге өзінің кредиттік картасын парольді және ақша лимитін
автоматты оқу үшін ұсынады және өз кілттік ...... ... ... көрсету үшін сұраныс береді. Жүйе келесі үлгіде әрекет ... ... ... ... сұрау, ақша беру, қызмет көрсетуі бойынша
көшірме шығару, компьютерден клиент есепшоты бойынша ... ... ... ... бойынша есеп беру.
Прецеденттер диаграммасы
Әрекет етуші тұлғалар.
Банктік жүйеде келесі әрекет етуші тұлғаларды бөлуге болады:
Клиент, Банк қызметкері, Кредиттік жүйе
Прецеденттердің қысқаша ... ... – бұл ... ... көрсетілетін адам
• Банковский служащий – банкте қызмет ететін адам
• Кредитная система – клиенттің ... ... ... ішкі ... ... ... ... келесі талаптар қамтамасыз етілуі тиіс:
• ДЛ Клиент жүйені келесі банктік операцияларды орындау үшін қолданады:
ақша аудару, ... ақша ... ... ... ақша ... Идентификациялық номерді өзгерту кезінде клиентке банк ... ... ... ДЛ ... жүйе ... ... жауап береді.
1.2 Техникалық есеп
Қолдану варианттары диаграммасы
Тіркеу жүйесінің қолдану варианттары модельін құру
1. ... Use Case View ... «+» ... тышқанмен шертіңіз
2. Негізгі Main диаграммасын екі рет шертіңіз. ... ... ... ... ... ... Негізгі/Қолдану варианттарын
ұсыну)
3. Тышқанның оң батырмасымен қолдану Диаграммасын ұсыну пакетін шертіңіз
(Use Case View) ( New(Use Case ... New Diagram ... және жаңа ... Система атын беріңіз
(оны браузерде екі рет шерту арқылы ашыңыз.
5. Әрекет ... ... құру ... ... оң ... ... ... пакетін шертіңіз (New( Actor(Әрекет етуші тұлғаның
атын ... ... ... ... ... әрекет етуші тұлғаларды құрыңыз (Банковский
служащий, Кредитная система)
7. Файлды ... ... ... ... ... үшін ... әрекеттерді жасаңыз:
тышқанның оң батырмасымен қолдану Диаграммасын ұсыну пакетін ... ... ... ... Перевести деньги. Осындай
әдіспен қалған қолдану ... ... ... ... на ... ... со счета, Показать баланс, Произвести ... ... ... Браузердегі Банковская система диаграммасын екі рет шерту арқылы оны
ашыңыз және қолдану варианты диаграммасын құрыңыз: ... ... ... ... мен ... ... тышқанмен тасыңыз.
10. Коммуникация байланысы – бұл ... ... ... мен ... ... ... Ол стрелка түрінде бейнеленеді.
Стрелканың бағыты коммуникацияны кім ... ... ... ... (Undirectional Association)
стрелкасын қолдана отырып ... ... ... мен ... арасында байланыс орнатыңыз (әрекет етуші тұлғадан сол
батырманы басып тұрып қолдану вариантына ... ... ... ... ... ... ... ... ... ... ... ... на ... |
| ... деньги со счета, Показать баланс, |
| ... ... ... идентификационный |
| ... ... ... ... ... номер ... ... ... ... ... ... ... ... ... Браузерде Снять деньги со счета
қолдану вариантын ерекшелеңіз. Құжаттаманың төменгі ... ... ... «Бұл ... ... клиентке есепшоттан ақша
алуға мүмкіндік береді»
12. Word бағдарламасы көмегімен ... ... со ... ... ... бар текстік файл құрыңыз және оны С:\Мои документы
папкасында ... ... со ... ... ... өз карточкасын банкоматқа салған кезде қолдану ... ... ... ... ... және ... PIN –код енгізуді ұсынады
2. Клиент PIN –код енгізеді
3. Банкомат енгізілген кодты растайды. Егер код расталмаса ... ... ағым ... ... Банкомат мүмкін әрекеттер тізімін шығарады:
• Салымды көру
• Салым жасау
• Есепшоттан ақша ... Ақша ... ... ... ... ақша алу» ... таңдайды
6. Банкомат қанша сумма ақша алу қажеттігін сұрайды
7. Клиент қажет сумманы енгізеді
8. Банкомат есепшоттағы ақшаның қажет суммаға жететіндігін ... ... ... онда А2 ... ағым ... ... Егер сумманы
растау кезінде қате пайда болса, онда Если Е1 қателер ағымы орындалады.
9. Банкомат қажет сумманы клиент есепшотынан шегереді
10. ... ... ... ... береді
11. Банкомат клиентке карточканы қайтарады
12. Банкомат клиент үшін чек басып шығарады
13. ... ... ... ... ағым ... PIN ... енгізу
1. Банкомат клиентке кодтың қате енгізілгедігін хабарлайды.
2. Банкомат клиентке карточканы қайтарады.
3. ... ... ... ... ағым ... ақшаның жетпеуі
1. Банкомат клиентке есепшотта ақшаның жетпейтіндігін хабарлайды.
2. Банкомат клиентке карточканы қайтарады.
Е1 қате ағымы.
Қажет сумманы растау ... ... ... ... сумманы растау кезінде қате болғандығын клиентке
хабарлайды.
2. Банкомат қате туралы ... ... ... ... ... ... ... және уақытын, клиент атын, оның есеп шотын және қате кодын
қамтиды.
3. Банкомат клиентке карточканы қайтарады.
4. ... ... ... Снять деньги со счета қолдану вариантты оң ... ... ... терезеде Files вкладкасына өтіңіз (Вкладканың
жұмыс аймағында оң ... ... және Insert file ... ( ... ... ... со счета (Open (OK
14. Қолдану варианты байланысын көру үшін Жүйеге кіру вариантын ерекшелеңіз
( ... меню (Open ... ... ... ... ... денег қолдану вариантын қосыңыз және оны
Снять деньги со счета қолдану вариантымен байланыстырыңыз. Осы байланыста
тышқанның оң ... ... ... команданы таңдаңыз: ... ... ... ... вариантын қосыңыз және оны Снять деньги
со счета ... ... ... Осы ... тышқанның оң
батырмасын басыңыз, ... ... ... ... ... ... Зерттелетін жүйені компьютерлік модельдеу
Диаграммалар бірізділігі.
1. Logical View-ді оң батырмамен шертіңіз(New( Sequence diagram(
Диаграмма последовательности атын ... ... ... ... ... ... тұлғаны ерекшелеңіз және оны
бірізділік диаграммасына тасыңыз
2. Құрал-саймандар панельінде Object батырмасын шертіңіз ( диаграммада
объектті ... ... ... ( ... ... ... (Open ... Name жиегіне объект атын
енгізіңіз Устройство Чтения Карточек(Apply(OK
3. Дәл ... ... ... ... құрыңыз: Экран АТ, Менеджер
АТМ, Счет, Кассовое устройство
4. Object Message батырмасын шертіңіз ... ... ( ... ... ... ... ... (хабарлама стрелканы алушы
объектке Устройство Чтения Карточек апарыңыз
5. Хабарламаны ерекшелеңіз (келесі команданы орындаңыз: Browsr(Open
specification( General вкладкасының Name жиегіне ... ... ... (Аpply ... ... ... |Объект-жіберуші |Объект-алушы |Хабарлама ... | | ... | | | |
|N ... | | |
|1 ... |УстройствоЧтения|Картаны салу |
| | ... | |
|2 ... оқу |
| ... ... | |
|3 ... ... ... |
| ... | | |
|4 ... ... ... ... |
|5 ... ... ... ... |
|6 ... ... ... ашу |
|7 ... ... ... ашу |
|8 ... ... |PIN-код тексеру |
|9 ... ... ... ... ... ... ... ... ... таңдау |
| | | ... ақша алу) ... ... ... ... сұрау ... ... ... ... енгізу ... ... ... ... алу ... ... ... |Сумманы алу ... ... ... ... ақшаның |
| | | ... ... ... ... ... ... есепшоттан шегеру |
|17 |МенеджерАТМ ... ... беру ... ... ... ... |
| | ... | |
6. ... ... орнату үшін, келесі команданы ... ... ... ... ... ұзындығын орнату үшін, келесі ... ... of Control ... ... Кооперативті диаграмма құру үшін ... ... ... ... diagram ... F5 ... диаграммасы
1. Браузерде Use Case ... ... ... ... атын ... ... Құрал-саймандар батырмасында Start State
батырмасын ... ( ... ... ... ... орынды тышқанмен шертіңіз
3. Әрекет құрыңыз (құрал-саймандар панелінде State
батырмасын басыңыз, содан кейін диаграмма аймағын
басыңыз):
|N ... |Аты ... (из ( в) |
|1 |State ... салу |Бастапқы(1 |
|2 |state ... ... оқу |1(2 |
|3 |state ... ... ... |2(3 |
|4 |state ... ... |3(4 |
|5 ... |Код ... ... ме? |4(5 |
|6 ... ... тізімін шығару |“ия” 5(6 |
|7 |state ... ... ... ... 6(7 |
| | ... ... | |
|8 |state ... қайтару |7(8 |
|9 |End State ... ... |8(9 ... |State ... ... ақша алу» |6(10 |
| | ... ... | ... ... ... ... ақша ... |10(11 |
| | |ме? | ... |State ... ... ... ... 11(12 |
| | ... ... | |
| | ... | ... |State ... ... |12(13 ... |End State | |13(14 ... |State ... беру ... 11(15 ... |State |Карточканы ... |15(13 |
4. Счет ... үшін жаңа ... ... ... ... |Атауы ... (из ( в) |
|1 |Start State ... ... | |
|2 |State |Ашу |1(2 |
|3 |state ... |2(3 |
|4 ... ... өсуі |2(4 |
| ... ... өсуі |4(2 |
| ... ... өсуі |4(3 |
|5 |End State ... жағдай |3(5 |
5. Ашу және Жабу ... ... оң ... (Open specification(General вкладкасын
ашыңыз(Event жиегіне “Клиентесепшотты жабуды талап
етеді” ... ... Ашу ... Кредиттің өсуіне деінгі байланысты
оң батырмамен шертіңіз(Open specification(General
вкладкасын ашыңыз(Event жиегіне “Ақша алу (кері
баланс)” сөзін енгізіңіз
7. Кредиттің өсуі жағдайынан Ашуға ... ... ... ... (Open ... ... (Event жиегіне “Ақша салу (кері
баланс)” сөзін енгізіңіз
8. Кредиттің өсуі жағдайынан Жабуға дейінгі
байланысты оң батырмамен шертіңіз (Open
specification(General ... ... ... тексеру (30 күн мерзіміндегі
кері баланс)” сөзін енгізіңіз
9. Кредиттің өсуі әрекетінің контекстное менюін
шақырыңыз (Open ... оң ... ... ... ... екі рет ... (When
тізіміндегі Detail вкладкасынан On entry-ді
таңдаңыз (Name жиегіне «есепшотты уақытша тоқтату»-
ды енгізіңіз(Apply(OK
10. Кредиттің өсуі ... ... ... (Open ... терезе
аймағында оң батырманы басыңыз (Insert( Type
калонкасында Entry-ді екі рет шертіңіз ( When
тізіміндегі Detail ... Do-ді ... Name ... «клиентке ескерту жіберу»-ді
енгізіңіз (Apply(OK
11. Кредиттің өсуі әрекетінің контекстное менюін
шақырыңыз (Open specification(Actions( ... оң ... ... (Insert( ... ... екі рет ... ( When
тізіміндегі Detail вкладкасынан On Exit-ті
таңдаңыз ( Name жиегінде «есепшотты тоқтату» сөзін
енгізіңіз (Apply(OK
12. Диаграмманы сақтаңыз.
2.1 Модельденетін ... ... ... ... ... ... көруді оң
батырмамен шертіңіз
2. Ашылған менюден New(Class Diagram
пунктін таңдаңыз
3. Жаңа диаграмма атын ... ... ... диаграмманы екі рет
шертіп, оны ашыңыз
5. Диаграммада жаңа ... ... ... панелінде Class
батырмасын басыңыз немесе келесі
команданы ... ... ... ... шертіңіз. Жаңа класс New
Class деп аталады. ... ... ... ... ... ... кластарды
құрыңыз: МенеджерАТМ, ЭкранАТМ,
КассовыйАппарат,Счет.
8. Клас ерекшеліктерін орнатыңыз.
УстройствоЧтенияКарточек класының
контекстік менюін шақырыңыз(Open
specification(откройте ... ... ... ... ... ... ... ... ... ... ... ... ... |Entity ... |Boundary ... ... ... ... ... ... (Detail ... ашыңыз
( Multiplicity тізімінде класс
көптігін көрсетіңіз (берілген
класста қанша дана ... ... ... ... ... ... |1…n |Бір ... ... |0..1 ... ... бір |
|МенеджерАТМ |1..1 |Бір ... |1..1 |Бір ... |1..n |Бір ... ... ... тұрақтылығы тапсырмасы:
класс ерекшеліктері терезесін
ашыңыз ( Detail ... ... ... ... ... ... (Тұрақты)
ауыстырып қосқышын орнатыңыз, бұл
қосымша жұмысы аяқталғаннан кейін
де ... Ал ... ... ... ... орналасқан
ақпарат қосымша ... ... ... ... ... |Persistence ... ... ... ... |
|Счет ... ... ... ... Класс параллелдігі тапсырмасы.
класс ерекшеліктері терезесін
ашыңыз ( Detail вкладкасын ашыңыз
( Сoncurency тобында ауыстырып-
қосқыштарды қосыңыз: Sequenral
(Тізбектелген) – бір ағынды
басқару кезінде ... ... ... ... ... ағын ... ... жағдайына кепілдік
берілмейді; Guarded (Арашалау) –
бірнеше басқару ағына кезінде
класс өзін-өзі қалыпты ұстайды,
әртүрлі ағындар класы бір-біріне
кедергі ... үшін олар ... ... ... Active
(Активті) класс жеке басқару
ағынына ие болады; Synchronous
(Синхронды) – бірнеше басқару
ағыны кезінде класс өзін күтілген
жағдайда ұстайды, класс ортақ
ерекшеліктерді өзі өңдей ... ... ... |Sequental ... ... ... ... |
|Счет |Guarded ... ... ... ... құру. Браузерде
Логикалық ұсынуды оң ... ... атын ... ... Entity және Control
пакеттерін құрыңыз.
14. ... ... ... Entity ... ... классын
Control пакетіне, ЭкранАтм ... ... ... ... ... Main ... ... ашыңыз
және оған құрылған пакеттерді
тасыңыз.Сәйкес пакетті ашыңыз
және ... ... ... Boundaries пакетін ашыңыз (
УстройствоЧтения Карточек ... ... ... ... құрылғы Номері.
17. Атрибуттың көрінуі үшін атрибутты
оң батырмамен шертіңіз ... Control ... ... ... ... Атрибуттың мәліметтер типін
орнату үшін ... ... ... ... ... ... Type ... Осындай әдіспен класстарға келесі
атрибуттарды меншіктеңіз:
|Класс ... ... |Тип ... ... ... ... |Private |Integer ... ... |Private |Integer ... ... |Private |Long ... |Баланс кассы |Private |Long ... ... ... байланыстыру. Класспен біраттас мәтіндік файл
құрыңыз және оны ... ... ... ... Бұл ... класстың
мәтіндік сипаттамасын сақтауға болады. Файлды классқа жалғау үшін: файла
ерекшеліктері терезесін ашыңыз ( Files вкладкасын ашыңыз ( осы ... ... ... оң батырмасын басыңыз (Insert ... ... ... ... ... Операциялар қосу. Браузерде класты тышқанның оң батырмасымен шертіңіз
(New(Operation(операция атын енгізіңіз. ... ... ... ... ... |Қайтарушы |
| | | ... типі ... салу |Public |Integer ... | | | |
| ... ... |Public |Integer |
| ... оқу |Public |Integer ... ... ... |Public |Integer |
| ... ... |Public |Integer |
| ... |Public |Integer |
| ... | | |
| ... ... |Public |String |
| ... | | |
| ... ... |Public |Integer ... ... ашу |Private |Integer |
| ... алу |Private |Integer ... |Ашу |Public |Integer |
| ... тексеру |Public |Integer |
| ... ... |Private |Long |
| ... ... |Private |Integer ... |Кассаны жабдықтау |Public |Integer |
| ... беру |Public |Integer |
3. ... ... тапсырмасы: Public (Жалпы) – операция қалған барлық
классқа қол жетерлік
Private (Жабық) – ... ... ... классқа қол жетерліксіз
Protected (Қорғалған) – операцияға қол жеткізу тек сол класс үшін және
оның серіктестері үшін ғана мүмкін
Package or ... ...... ... ... үшін ... ... операцияны оң батырмамен шертіңіз(Open specification(Export
Control тобында қажет көріну қосқышын қосыңыз
4. Операцияның мән қайтару тапсырмасы: браузерде ... оң ... ... ... Return Type ... типті таңдаңыз (Apply(OK
5. Операцияға атрибут қосу: браузерде операцияның контекстік менюін
шақырыңыз(Open ... ... ... ... ... атын ... колонкасын
тышқанмен шертіңіз және аргументтің мәліметтер типін енгізіңіз(қажет
болған жағдайда тышқанмен Default колонкасын шертіңіз және ... ... ... ... ... ... |аргумент ... типі ... ... алу |Счет |Integer ... |Ашу ... |Integer |
| ... ... ... |Integer |
6. ... ... ... қандай операцияларды қандай тәртіппен
орындауға болады – браузерде ... ... ... шақырыңыз
(Open specification(Detail(Protocol( шектеулерді енгізіңіз, мысалы, Есеп
класының жеткіліктігін тексеру классы үшін – «Ашу() операциясынан кейін
орындалады» шектеуін ... ... ... ... ... ... ... ашыңыз. КарточкаОқуҚұрылғысы объектін ерекшелеңіз ( Open
specification(General(Class тізімінен қажет классты таңдаңыз.
8. Операцияның хабарламамен қатынасы. Жүйелік диаграммасында ... оң ... ... (Open ... ... ... таңдаңыз. Мысалы, Карта енгізіңіз
хабарламасы үшін Карта енгізіңіз() операциясын бекітіңіз.
9. Байланыстарды орнату. Жүйелілік карточкасын қарап шығыңыз. Егер А
объекті В объектінен ... ... онда бұл ... ... ... ... ... А-ға) байланысы орнатылады. Егер А
объекті В объектіне хабарлама жіберсе, онда екібағытты ассоциация
орнатылады (Tools(Create(Association).
10. Класстар арасына екібағытты ассоциация ... және ... ... ... ... ... |Көпшілік |
|КарточкаОқуҚұрылғысы |0..1 ... |0..1 ... |0..1 ... |0..n ... |1 ... |0..1 |
| | ... | ... МенеджерАТМ және Есеп класстары арасында тәуелділік орнатыңыз: оларды
АТММенеджері-нен ... ... ... ... жалғаңыз.
12. Байланыс көпшілігі тапсырмасы. Байланыс ұшының бірін оң батырмамен
шертіңіз(Multiplicity командасын таңдаңыз(қажет көпшілікті орнатыңыз
Жағдай диаграммасын құру
1. Браузерде Use Case View ... оң ... New ... Diagram (диаграммаға
«Жағдай» атын беріңіз
2. Құрал-саймандар панелінде Start State батырмасын басыңыз және
диаграмманың бос ... ... ... ... құрыңыз (State), құрал-саймандар панелінде State
батырмасын басыңыз, содан кейін диаграммада келесілерді шертіңіз:
ашу
жабу,
кредиттің өсуі
4. Ауысуларды құрыңыз:
|From |To |Event ... ... |Ашу | ... ... ... ... ... |
| | ... жабу |
| | ... ... |
|Ашу ... өсуі ... алу ... ... ... өсуі |Ашу ... салу (оң ... ... өсуі ... |Балансты тексеру (30 |
| | ... аса ... |
| | ... ... ... ... ... | |
5. ... көрсету үшін ауысудың контексттік менюін шақырыңыз( General
вкладкасында event жиегіне жағдай атын ... ... ... жағдайының қасиеті терезесін ашыңыз.
7. Actions вкладкасына өтіңіз(терезеде оң батырманы шертіңіз(Insert
8. Жаңа ... екі рет ... ... On ... таңдаңыз( Name
жиегіне кіру әрекеті атын “Есепшотты уақытша тоқтату” енгізіңіз(
Apply(OK
9. Осыған ұқсас Әрекетті енгізіңіз: When тізімінде Do-ді таңдаңыз (Name
жиегіне кіру ... атын ... ... ... ... ... ... шығу әрекетін енгізіңіз: When тізімінде On exit-ті
таңдаңыз(Name жиегіне шығу әрекеті атын “Есепшотты тоқтату” енгізіңіз(
Apply(OK
11. Жабу жағдайы үшін «Кредиттік картаны беру» кіру ... ... ... ... ... және формулалары
Компоненттер диаграммасын құру
Барлық класстарды, оның атрибуттарын және операцияларды ағылшын тілінде
жазған дұрыс. Осыған ұқсас жүйелік диаграмма үшін ... ... ... ... ... ... оң ... New(Component Diagram(диаграмма атын
енгізіңіз «Клиенттік аймақ» (диаграмманы ашыңыз
2. Менюде Tools пунктін
таңдаңыз(Create(Component(диаграммада компонент
орнататын орынды тышқанмен шертіңіз
3. компонент қасиеттері терезесін ... ( ... ... ... ... тізімінен Task Specification-ді
таңдаңыз( Apply(OK
4. Диаграммада Package Specification (тақырыпша файлдар
үшін) стереотипті “Card Reader”, “ATM ... ... , “Cash ... атаулы 4 жаңа компонент
құрыңыз
5. Диаграммада Package Body (жүргізу файлдары үшін)
стереотипті“Card Reader”, “ATM Screen”, “ATM Manager”
, “Cash Dispenser” атаулы 4 жаңа ... ... ... ... тәуелділіктерді орнатыңыз:
|From |To ... |Card ... |
| ... ... |Cash ... |
| ... |
| ... ... Reader (body) |Card Reader (Package |
| ... ... ... |ATM Screen (Package |
| ... ... manager(body) |ATM manager (Package |
| ... ... ... |Cash ... |
| ... |
| ... ... Reader (Package |ATM Screen (Package ... ... |
|ATM Screen (Package |ATM manager ... | |
7. ... ... ... ... оң ... ... Diagram(диаграмма атын
енгізіңіз «Серверлік аймақ» (диаграмманы ашыңыз
8. Менюде Tools пунктін таңдаңыз(Create(Component(
диаграммада компонент ... ... ... ... ... терезесін ашыңыз(General
вкладкасында компонент атын енгізіңіз
«ATMserver.exe»( Stereotype тізімінде Task
Specification-ді таңдаңыз ( ... ... Package ... ... файлдары
үшін) стереотипті, “Account”атты жаңа компонент
құрыңыз
10. Диаграммада Package Body (жүргізу файлдары үшін)
стереотипті, “Account”атты жаңа компонент ... ... ... ... ... |To ... |Account (Package |
| ... ... (body) ... |
| ... ... Диаграмманы сақтаңыз
13. Класстардың компоненттермен қатынасы. Компоненттер
қасиеті стандартты терезесін ... ... ... ... оң ... ... ... Reader (body) |Card Reader ... Reader (Package |Card Reader ... | ... Screen (body) |ATM Screen ... Screen (Package |ATM Screen ... | ... manager(body) |ATM manager ... ... |ATM manager ... | ... ... |Cash Dispenser ... ... (Package |Cash ... ... | ... (body) |Account ... (Package |Account ... | ... ... ... ... ... View-ді екі рет
шертіңіз.
2. Құрал-саймандар панелінде Prossesor
батырмасын басыңыз( Орналастыру
диаграммасында процессорды ... ... ( ... ... ... «Банктік мәліметтер
қоры сервері».
3. Осындай әдіспен келесі
процессорларды қосыңыз:
Аймақтық сервер АТМ
Клиенттік ... ... АТМ ... ... ... АТМ ... Құрал-саймандар панельінде Device
батырмасын басыңыз( құрылғыны
диаграммға орналастырыңыз( «Принтер»
атын енгізіңіз
5. Құрал-саймандар панельінде
Сonnection ... ... ... қоры ... ... ... ... байланыс сызығын
жүргізіңіз. Байланыс қасиеті
терезесін ашыңыз және Stereotype
жиегіне «Локальді желі» стереотипін
енгізіңіз
6. Осындай әдіспен байланыстарды
орнатыңыз:
|From |To ... ... ... АТМ ... жұмыс |Жабық желі |
| ... №1 | ... ... АТМ |Клиенттік жұмыс ... желі |
| ... №2 | ... ... АТМ ... | |
7. ... сервер АТМ процессорының
қасиеттер терезесін ашыңыз(Detail
вкладкасын ашыңыз (Processes жиегін
оң батырмамен шертіңіз (Insert
командасын таңдаңыз( “ATMserver.exe”
атын ... ... ... Клиенттік жұмыс
станциясы №1 және №2 процессорларына
«ATMClient.exe» атты процессорлар
қосыңыз
С++ -те программалық ... ... ... ... үшін ... орындаңыз: Tools(Check
Model
2. Қол жеткізу ережелерінің дұрыстығын
тексеру үшін келесі команданы
орындаңыз: Report( Show Access
Violations .
3. ... ... ... ... ол үшін ... ... Класс немесе компоненттер
диаграммасында генерациялау үшін
классты немесе компонентті таңдаңыз.
ALT пернесін ... ... ... болады.
5. Команданы орындаңыз: Tools(C++(Code
Generation
6. Тақырыпша файлды көру үшін (. h)
мына команданы орындаңыз:
Tools(C++(Browse Header
7. Жүргізу файлын көру үшін ... ... ... ... ... модельдеуші алгоритмді компьтерде жүргізу
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, FWTrayIcon, ... ... ... ... ... sMemo, ... sGroupBox, sEdit, Buttons,
sBitBtn, sLabel, mmsystem, ShellAPI, sHintManager;
type
TCredits = class(TForm)
sLabelFX1: TsLabelFX;
sLabelFX2: TsLabelFX;
button_s1: TsBitBtn;
button_s2: TsBitBtn;
button_s3: TsBitBtn;
button_s4: ... ... ... ... ... ... ... TsEdit;
sEdit3: TsEdit;
sEdit4: TsEdit;
sEdit5: TsEdit;
sEdit6: TsEdit;
sEdit7: TsEdit;
sEdit8: TsEdit;
sEdit9: TsEdit;
sEdit10: ... ... ... ... ... ... ... TsRadioButton;
sRadioButton6: TsRadioButton;
sMemo1: TsMemo;
sStatusBar1: TsStatusBar;
sSkinManager1: TsSkinManager;
Timer1: TTimer;
Timer2: TTimer;
Timer3: TTimer;
Timer4: TTimer;
Timer5: TTimer;
sSkinProvider1: ... ... ... button_s1Click(Sender: TObject);
procedure button_s2Click(Sender: TObject);
procedure button_s3Click(Sender: TObject);
procedure button_s4Click(Sender: TObject);
procedure button_s5Click(Sender: TObject);
procedure button_stretClick(Sender: TObject);
procedure sEdit1KeyPress(Sender: TObject; var Key: Char);
procedure sEdit3KeyPress(Sender: TObject; var Key: ... ... ... ... TObject);
procedure sRadioButton2Click(Sender: TObject);
procedure sRadioButton3Click(Sender: TObject);
procedure sRadioButton4Click(Sender: TObject);
procedure sRadioButton5Click(Sender: TObject);
procedure sRadioButton6Click(Sender: TObject);
procedure sEdit1DblClick(Sender: ... ... TObject; var Key: ... ... ... ... TObject);
procedure FormPaint(Sender: TObject);
procedure button_CalcClick(Sender: TObject);
procedure button_winampClick(Sender: TObject);
procedure button_solClick(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ShowTime;
procedure sEdit12KeyPress(Sender: TObject; var Key: Char);
procedure sEdit3DblClick(Sender: ... ... ... ... TObject; var Action: ... ... ... sMemo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormShow(Sender: TObject);
procedure sLabelFX1Click(Sender: ... ... TObject; Shift: ... ... ... FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure sLabelFX2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ... ... ... ... sEdit13KeyPress(Sender: TObject; var Key: Char);
procedure Timer2Timer(Sender: TObject);
procedure button_noteClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Credits: TCredits;
a: ... ... ... ... *.dfm}
{$R resfile.res}
const
stDay : array[1..7] of string[11] =
('воскресенье','понедельник','вторник',
'среда','четверг','пятница','суббота');
stMonth : array[1..12] of string[8] =
('января','февраля','марта',
'апреля','мая','июня','июля',
'августа','сентября','октября',
'ноября','декабря');
var
sRect,dRect: TRect; // ... ... ... Word;
function EraMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
aMsgDlg: TForm;
i: Integer;
dlgButton: ... ... ... ... }
aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
captionIndex := 0;
{ Соедините через Объекты в Диалоге }
for i := 0 to aMsgDlg.ComponentCount - 1 ... Если ... - типа TButton, ... }
if ... is TButton) ... := ... CaptionIndex > High(Captions) then Break;
{ Дайте новый заголовок из нашего массива Заголовков }
dlgButton.Caption := ... ... := ... ... real; // ... ... integer; // срок ... real; // Сумма основного займа
mes1: string[255]; // ... ... // ... string[255]; // сообщение
begin
zarp := StrToFloat(Credits.sEdit1.Text);
srok := StrToInt(Credits.sEdit2.Text);
if s=0 then
s := zarp * 0.3 * ... s > 0 ... := zarp * 0.3 * ... := ' ... ... ... ... :=' I. Сумма основного займа ' + '[' + FloatToStrF(s,
ffFixed,11,0) + ']' + ' ... ... := ... ... mes1;
Credits.sEdit6.Text:= mes1;
Credits.sMemo1.Lines.Add(mes2);
Credits.sMemo1.Lines.Add('');
Credits.sMemo1.Lines.Add(mes);
PlaySound('C:\Program Files\Dynasty\media\online.wav',0,0);
begin
if s=0 then
begin
MessageBox(0, 'Введенные данные не должены равны нулю', ... ... ... ', MB_OK + ... ... real; // ... ... real; // ... ... ... integer; // срок ... real; // ... ... // сообщение
mes2: string[255]; // сообщение
begin
s := StrToFloat ... := ... ... := StrToInt ... := (s * (22/100 * god)+s)/srok;
if s1 > 0.7 then
begin
s1 := (s * (0.22 * god)+ ... := ' II. ... внос ' + '[' + ... + ']'+' тенге ';
mes2 := FloatToStrF(s1, ffFixed,9,0);
Credits.sEdit8.Text := mes2;
Credits.sEdit10.Text := mes2;
Credits.sMemo1.Lines.Add('');
Credits.sMemo1.Lines.Add(mes);
PlaySound('C:\Program ... ... real; // ... ... ... ... real; // Сумма ... ... integer; // срок ... ... // сообщение
mes3: string[255]; // сообщение
begin
s := StrToFloat (Credits.sEdit6.Text);
srok := StrToInt ... := s ... s2 > 0 ... := s/srok;
end
else ShowMessage('Введенные данные не должены равны нулю.');
mes3 := FloatToStrF(s2, ffFixed,9,0);
mes := ' III. Сумма основного ежемесячного долго ' + ... ... + ']'+' ... ... := ... ... s2=0 ... данные не должены равны нулю');
exit;
end;
end;
end;
procedure summa4;
var
s3: real; // Сумма ежемесячного комиссионого
вознограждения
s1: real; // ... ... real; // ... ... ... долго
mes: string[255]; // сообщение
begin
s1 := StrToFloat (Credits.sEdit8.Text);
s2 := StrToInt (Credits.sEdit9.Text);
s3 := s1 - s2;
if s3 >0 then
begin
s3 := s1 - ... ... ... не должены равны нулю.');
mes := ' IV. Сумма ежемесячного комиссионого вознограждения ' +
'['+ FloatToStrF(s3, ffFixed,11,0) + ']'+' ... ... ... s3=0 ... ... не ... ... нулю');
exit;
end;
end;
end;
procedure summa5;
var
s4: real; // ... ... ... ... ... с ... real; // ... основного займа
srok: integer; // срок кредита
mes: string[255]; // сообщение
mes3: String[255];
begin
s1 := StrToFloat (Credits.sEdit10.Text);
srok := StrToInt (Credits.sEdit11.Text);
s4 := s1 * ... s4 > 0 ... := s1 * ... := '' + ... ... ... не ... равны нулю.');
mes := ' V. Сумма погошения через ... месяца с рассчетом
вознограждения ' + '['+ ... ... + ']'+' ... ... := ... ... Credits.sEdit12.Text:=mes3;
Credits.sMemo1.Lines.Add('');
Credits.sMemo1.Lines.Add(mes);
PlaySound('C:\Program Files\Dynasty\media\starting.wav',0,0);
begin
if s4=0 then
begin
ShowMessage('Введенные данные не должены равны нулю');
exit;
end;
end;
end;
procedure ... ... real; // ... ... ... ... // ... s := StrToFloat (Credits.sEdit12.Text);
ss := s/255000;
if ss > 0 then
begin
ss := ... := '' + ... ... ... не должены равны нулю.');
mes := ' Коэффициент ' + '['+ FloatToStrF(ss, ffFixed,9,0) + ']'+ '
--> Я В ШОКЕ';
Credits.sMemo1.Lines.Add('');
Credits.sMemo1.Lines.Add(mes);
PlaySound('C:\Program ... ... ... ... ... ... ... '') and (sEdit2.Text '')then summa1
else MessageBox (0, 'Выберите срок кредита и введите данные', 'Салем!
Нашему Альянсу', MB_OK + ... ... ... (sEdit4.Text '') and (sEdit5.Text '') and (sEdit3.Text '') then
summa2
else MessageBox (0, ... срок ... и ... ... ... ... MB_OK + ... TCredits.button_s3Click(Sender: TObject);
begin
if (sEdit6.Text '') and (sEdit7.Text ',')then summa3
else MessageBox (0, ... срок ... и ... данные', 'Салем!
Нашему Альянсу', MB_OK + MB_ICONINFORMATION);
end;
procedure TCredits.button_s4Click(Sender: TObject);
begin
if (sEdit8.Text '') and (sEdit9.Text '')then summa4
else MessageBox (0, ... срок ... и ... ... ... ... MB_OK + ... TCredits.button_s5Click(Sender: TObject);
begin
if (sEdit10.Text '') and (sEdit11.Text ',')then Summa5
else MessageBox (0, 'Выберите срок ... и ... ... ... ... MB_OK + ... ... TObject);
begin
PlaySound('WC:\Program Files\Dynasty\media\offline.wav',0,0);
sEdit1.Clear;
sEdit2.Clear;
sEdit3.Clear;
sEdit4.Clear;
sEdit5.Clear;
sEdit6.Clear;
sEdit7.Clear;
sEdit8.Clear;
sEdit9.Clear;
sEdit10.Clear;
sEdit11.Clear;
//sEdit12.Clear;
sMemo1.Clear;
end;
procedure TCredits.sEdit1KeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then button_s1Click(Sender);
case Key of
'0' .. '9', #8 : ; // ... и ... ... ... // ... ... ',':
begin
if Key = '.'
then Key := ',';
If Pos(',',sEdit1.Text) 0
then Key:= Chr(0);
end;
else // все остальные символы ... := ... ... TObject; var Key: ... Key ... ..'9',#8: ; // цифры и клавиша
#13: Summa2; // ... ... ... := Chr(0); // символ не отображать
end;
end;
procedure TCredits.FormCreate(Sender: TObject);
var
Present: TDateTime; // текущая дата и ... Month, Day : Word; // год, ... и ... как
// отдельные числа
i:integer;
begin
tutup := True;
timer5.Enabled := False;
Present:= Now; // получить текущую дату
DecodeDate(Present, Year, Month, Day);
sStatusBar1.Panels[1].Text := ... ' ' + ... + ' ... ' '+ stDay[DayOfWeek(Present)];
// настроить и запустить таймер
Timer2.Enabled := True; // пуск ... ' (c) 2006 ... ... Все права
защищены ';
Credits.sMemo1.Enabled:=true;
a := 'Кредиты через Альянс Банк Казахстана. Курсавая работа 2007 год.
Автор: Маймаков Ержан ИС-24-1 *** ';
PlaySound('Вход в Windows ... ... ... ... ... '3';
Credits.sEdit4.Text := mes;
Credits.sEdit2.Text := mes1;
Credits.sEdit5.Text := mes1;
Credits.sEdit11.Text := mes1;
Credits.sEdit7.Text := mes1;
sRadioButton1.Font.Color:=clActiveCaption;
sRadioButton2.Font.Color:=clWindowText;
sRadioButton3.Font.Color:=clWindowText;
sRadioButton4.Font.Color:=clWindowText;
sRadioButton5.Font.Color:=clWindowText;
sRadioButton6.Font.Color:=clWindowText;
sRadioButton1.Font.Style:=[fsBold];
sRadioButton2.Font.Style:=[];
sRadioButton3.Font.Style:=[];
sRadioButton4.Font.Style:=[];
sRadioButton5.Font.Style:=[];
sRadioButton6.Font.Style:=[];
end;
procedure TCredits.sRadioButton2Click(Sender: TObject);
var
mes: string[255];
mes1: string[255];
begin
mes:='0,6';
mes1:= '6';
Credits.sEdit4.Text := ... := ... := ... := ... := ... TCredits.sRadioButton3Click(Sender: TObject);
var
mes: string[255];
mes1: string[255];
begin
mes:='1';
mes1:= '12';
Credits.sEdit4.Text := mes;
Credits.sEdit2.Text := mes1;
Credits.sEdit5.Text := mes1;
Credits.sEdit11.Text := mes1;
Credits.sEdit7.Text := mes1;
sRadioButton3.Font.Color:=clActiveCaption;
sRadioButton2.Font.Color:=clWindowText;
sRadioButton1.Font.Color:=clWindowText;
sRadioButton4.Font.Color:=clWindowText;
sRadioButton5.Font.Color:=clWindowText;
sRadioButton6.Font.Color:=clWindowText;
sRadioButton3.Font.Style:=[fsBold];
sRadioButton2.Font.Style:=[];
sRadioButton1.Font.Style:=[];
sRadioButton4.Font.Style:=[];
sRadioButton5.Font.Style:=[];
sRadioButton6.Font.Style:=[];
end;
procedure TCredits.sRadioButton4Click(Sender: TObject);
var
mes: string[255];
mes1: string[255];
begin
mes:='1.8';
mes1:= '18';
Credits.sEdit4.Text := ... := ... := ... := ... := mes1;
sRadioButton4.Font.Color:=clActiveCaption;
sRadioButton2.Font.Color:=clWindowText;
sRadioButton3.Font.Color:=clWindowText;
sRadioButton1.Font.Color:=clWindowText;
sRadioButton5.Font.Color:=clWindowText;
sRadioButton6.Font.Color:=clWindowText;
sRadioButton4.Font.Style:=[fsBold];
sRadioButton2.Font.Style:=[];
sRadioButton3.Font.Style:=[];
sRadioButton1.Font.Style:=[];
sRadioButton5.Font.Style:=[];
sRadioButton6.Font.Style:=[];
end;
procedure TCredits.sRadioButton5Click(Sender: TObject);
var
mes: string[255];
mes1: string[255];
begin
mes:= '2';
mes1:= '24';
Credits.sEdit4.Text := mes;
Credits.sEdit2.Text := mes1;
Credits.sEdit5.Text := mes1;
Credits.sEdit11.Text := mes1;
Credits.sEdit7.Text := mes1;
sRadioButton5.Font.Color:=clActiveCaption;
sRadioButton2.Font.Color:=clWindowText;
sRadioButton3.Font.Color:=clWindowText;
sRadioButton4.Font.Color:=clWindowText;
sRadioButton1.Font.Color:=clWindowText;
sRadioButton6.Font.Color:=clWindowText;
sRadioButton5.Font.Style:=[fsBold];
sRadioButton2.Font.Style:=[];
sRadioButton3.Font.Style:=[];
sRadioButton4.Font.Style:=[];
sRadioButton1.Font.Style:=[];
sRadioButton6.Font.Style:=[];
end;
procedure TCredits.sRadioButton6Click(Sender: ... ... ... ... := ... := ... := mes1;
Credits.sEdit11.Text := mes1;
Credits.sEdit7.Text := mes1;
sRadioButton6.Font.Color:=clActiveCaption;
sRadioButton2.Font.Color:=clWindowText;
sRadioButton3.Font.Color:=clWindowText;
sRadioButton4.Font.Color:=clWindowText;
sRadioButton5.Font.Color:=clWindowText;
sRadioButton1.Font.Color:=clWindowText;
sRadioButton6.Font.Style:=[fsBold];
sRadioButton2.Font.Style:=[];
sRadioButton3.Font.Style:=[];
sRadioButton4.Font.Style:=[];
sRadioButton5.Font.Style:=[];
sRadioButton1.Font.Style:=[];
end;
procedure TCredits.sEdit1DblClick(Sender: TObject);
begin
sEdit1.Text:='Альянс';
sedit1.Font.Style:=[fsBold];
end;
procedure TCredits.sEdit6KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0' .. '9', #8 : ; // ... и ... ... summa3; // ... ... ... Key = '.'
then Key := ',';
If Pos(',',sEdit6.Text) 0
then Key:= Chr(0);
end;
else // все остальные символы ... := ... ... ... ... '') then ... ... (0, 'Вы забыли ввести данные', 'Салем! Нашему Альянсу',
MB_OK + MB_ICONINFORMATION);
end;
procedure ... ... ... TDateTime; // текущее время
begin
Time := Now(); // ... ... ... ... ... TCredits.FormPaint(Sender: TObject);
begin
ShowTime;
end;
procedure TCredits.button_CalcClick(Sender: TObject);
var
H:hWnd;
begin
// поиск программы 'Калькулятор'
H:=FindWindow('SciCalc','Калькулятор');
// активизация программы 'Калькулятор'
SetForegroundWindow(H);
// если 'Калькулятор' не ... (H = ... ... ... 'Калькулятор'
then ShellExecute(Handle,'open','calc',nil,nil,SW_RESTORE);
end;
procedure TCredits.button_winampClick(Sender: TObject);
var
H:hWnd;
begin
// поиск 'Winamp'
H:=FindWindow('SciCalc','Winamp');
// активизация 'Winamp'
SetForegroundWindow(H);
// если 'Winamp' не ... (H = ... ... ... ... ... ... TObject);
var
H:hWnd;
begin
// поиск игры 'Косынка'
H:=FindWindow('SciCalc','Косынка');
// активизация игры 'Косынка'
SetForegroundWindow(H);
// если 'Косынка' не выполняется
if (H = ... ... ... ... ... ... ... (tar mod 2)=0 then sStatusBar1.Panels[2].Text:=' Программа для подсчета
кредита через Альянс Банк'
else sStatusBar1.Panels[2].Text:=' Эта программа является бесплатным
продуктом';
end;
procedure TCredits.Timer1Timer(Sender: ... ... ... ... ... ... ... миллисекунд,
прошедших с момента старта Windows}
sec := GetTickCount;
{Чтобы получить дни, необходимо разделить на количество
миллисекунд в дне, 24*60*60*1000=86400000}
dni := ... ... из ... даты ... ... работы Windows}
time := now-dni;
{показываем диалоговое окошко с сообщением}
Credits.sStatusBar1.Panels[3].Text:=FormatDateTime(' hh:nn:ss', time) + '
' + ... + ' дни,' ... ... ... TCredits.sEdit12KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0' .. '9', #8 : ; // ... и ... ... summa6; // ... ... ... Key = '.'
then Key := ',';
// If ... 0
// then Key:= ... // все ... символы запрещены
Key := Chr(0);
end;
end;
procedure TCredits.sEdit3DblClick(Sender: TObject);
begin
sEdit3.Text:='Банк';
sedit3.Font.Style:=[fsBold];
end;
procedure TCredits.sEdit6DblClick(Sender: TObject);
begin
sEdit3.Text:='Тараз';
sedit3.Font.Style:=[fsBold];
end;
procedure TCredits.FormClose(Sender: TObject; var Action: ... : ... 500, AW_BLEND or ... из Windows XP',0,0);
begin
with nidata do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle;
uID := 1;
end;
Shell_NotifyIcon(NIM_DELETE, @nidata);
end;
end;
procedure TCredits.Timer4Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := 'город Тараз';
Credits.Caption := ... i := 1 to ... - 1) ... := ... + ... := ... ... TObject; Shift: TShiftState; X,
Y: Integer);
begin
Inc(me);
if (me mod 2)0 then
begin
sMemo1.BevelKind:=bkFlat;
end;
end;
procedure TCredits.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: ... ... ... sw_Hide);
end;
procedure TCredits.sLabelFX1Click(Sender: TObject);
begin
ShellExecute(Credits.Handle, 'open', 'http://www.alb.kz',
nil, nil, SW_SHOWNORMAL);
end;
procedure TCredits.sLabelFX1MouseMove(Sender: TObject; Shift: ... Y: ... ... TObject; var ... ... ... ... точно этого хотите...?', mtCustom, mbOKCancel,
['&Да', '&Нет']) = mrOk ... ... TObject; Shift: ... Y: ... ... TObject);
begin
ShellExecute(Handle, nil, 'mailto:m_erzhik_b@mail.ru', nil, nil, SW_SHOW);
end;
procedure TCredits.button_zapisatClick(Sender: TObject);
begin
// if (sEdit13.Text '') and ... '') then ... ... (0, ... что ни будь', 'Салем! от Ержана',
MB_OK);
end;
procedure TCredits.sEdit13KeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then button_zapisatClick(sender);
end;
procedure TCredits.Timer2Timer(Sender: TObject);
begin
ShowTime;
end;
procedure ... ... ... мен ... ... ... бара жатқан шағында
көптеген бағдарламалық жүйелердің алуан түрлері шығуда. Осылар қатарына
Delphi 7 объетілік ортасын жатқызуға болады. Бұл жүйе өте ... ... ... пен ... мекемелерде Delphi 7 кеңінен қолданады.
Қазіргі заманғы ақпараттық жүйелер басқарудың кез-келген сатысында
ақпаратты тапсыру және өңдеуге мүмкіндік беретін Delphi 7 ... ... ... Және де ... ... ... Delphi 7 ... жазылды.
Әрбір кәсіпорынға тиімді шикізатты қолдану басты мәселе болғандықтан,
осы қосымшаның ... өте зор ... ... ... жұмыста анықталған мақсаттары бойынша келесі мәселелер
шешілген:
❖ өндірістік қорлардың фунционалдық ролі
❖ өндірістік қорларды тиімді пайдалану
❖ өндірістік ... ... ... есептер жүйесі құрылған
❖ алынған шешімдерді қолданып өндірістік қор жүйесі оптимал шешімге
байланысты қайта құрастырылған
Симплекс әдісі экономикалық есептерді шешуде өте ыңғайлы ... ... ... ... ... ... ол өте ... яғни бірнеше минутта немесе секундта керекті шешімді табу ... ... ... ... , ... ... 2001.
2. Б.Я.Советов, С.А.Яковлев.
«Моделирование систем» , М.:Высшая школа, 2001.
3. В.П.Романов.
«Интеллектуальные информационные системы в ... ... ... ... ... ... в ... М.: ЮНИТИ, 2000.
5. Б.Я.Советов, С.А.Яковлев.
«Моделирование систем», М.:Высшая школа, 2003.
6. Компьютерная пресса Компьютерpа, Компьютер-пресс
http://www.cterra.ru
http://www.cpress.ru
7. Н.Ш.Әлжанова
«Инвестициялық жобалау», Алматы,2006ж.
8. Кузнецов
«Математическое моделирование», Алматы, ... ... ...

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 19 бет
Бұл жұмыстың бағасы: 400 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
"жаңажол" кен орнының автоматтандырылуын жобалау24 бет
Delphi туралы мәлімет38 бет
SCADA жүйесіне түсініктеме6 бет
Topological router6 бет
Visual Basic-те компьютерлік логикалық ойын26 бет
«Батыс-2» шағын ауданындағы бу қазандығының автоматтандыру жүйесін жобалау24 бет
«батыс-2» шағын ауданындағы бу қазандығының автоматтандыру жүйесін жобалау туралы37 бет
«Деканат» - автоматтандырылған ақпараттық жүйе44 бет
«Офис -тіpкеуші» акпараттық жүйесін құру40 бет
«Теміржолдық касса» мәліметтер базасы95 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь