Delphi-дің 7 версиясымен танысу

Мазмұны

І. Кіріспе

Есептегіш машинаның шыққан жылдары

ІІ. Негізгі бөлім:
1. Delphi.дің 7 версиясымен танысу
2. Delphi ортасымен танысу
3. Құрал саймандар батырмалары
4. Программалар код терезесі
5. Есептің алгоритмі
6. Деканат программасы

ІІІ. Қорытынды

Есепті қорытындылау

Пайдаланылған әдебиеттер

Программа листингісі
Кіріспе
50-жылдардың басында жарыққа шыға бастаған негізгі өңдеу құралы – бірінші буын ЭЕМ-дерінің ішкі құрылымы элементтері жеке бөлшектерден дайындалған электрондық-логикалық схемаларға негізделген болатын. Бұл бөлшектің негізгілері вакумдық электрондық шамдар еді. Мұндай компьютерлердің көлемі үлкен, сенімділігі жоғары емес, тездік жылдамдықтары бір секундта 5-6 мың қарапайым операция шамасынан аспайтын (екі санды қосу, көбейту не символдарды салыстыру сияқты бір әрекет қарапайым операция деп аталады да, оны орындайтын команда машиналық команда деп аталды. Оның үстіне, мұндай машиналар үшін құрылатын программалар машиналық командалардан тұратын да, программалау жұмысы көп еңбекті қажет еткен. Ал, ЭЕМ-нің өзі тек есептеу жұмыстарын жүргізу үшін пайдаланған).
Транзисторды ойлап шығарғанға байланысты, 50-жылдардың соғы кездері техникалық негіздері түгелдей алмастырылған, негізгі элементтері жартылай өткізгішті транзисторлардан тұратын екінші буын ЭЕМ-дері жарыққа шықты. Мұндай элементтер машинаның әрекет тездігін және сенімділігін елеулі түрде арттыруға мүмкіндік береді. Екінші буын машиналарының сырт аумағы, масасы, энергия пайдалану шамасы көп төмендегендіктен, олардың өзіндік құны да бірінші буын машиналарына қарағанда көп төмендетілді. Оның үстіне, бұл ЭЕМ-дерде жоғарғы деңгейлі (Алгол, Фортран, Бейсик, т.б) программалау тілдерінде операторлардан тұратын программалармен жұмыс істеу мүмкіндігі туды.
Информация өзінің хабары мен мазмұны арқылы сипатталатындығы және хабар жіберушіден қабылдаушыға материалды – энергетикалық (электр, жарық, дыбыс және т.с.с сигналдар) түрінде берілетіндігі белгілі. Хабарды қабылдау қабылдаушының жағдайын сипаттайтын қандай-да бір шаманың уақытқа байланысты өзгерісімен тікелей байланысты. Демек, информациялық хабарды информациялық процесс жүретін физикалық ортаның материалдық – энергетикалық параметрлерін уақытқы байланысты өзгертетін Х(t) функциясымен бейнелеуге болады. Осы функция үздіксіз де (мысалы, уақытқа байланысты өзгеретін дененің жылдамдығы, ауаның температурасы және электр тогының күші сияқтылар), үздікті де (мысалы, уақытқа байланысты белгілі бір қатынас тіліндегі таңбалар тізбектері немесе дыбыстар тіркестері арқылы құрылатын сөздер мен сөйлемдер) болуы мүмкін. Үздіксіз функциялар арқылы бейнеленетін хабар – аналогты сигнал, ал үздікті функциялар арқылы берілетін хабар – дискретті сигнал деп аталады. Адамның сезім мүшелерінің мүмкіндігі шектеулі болғандықтан үздіксіз информацияны дискретті түрде қабылдайды.
Ең алғаш ДЭЕМ тек сандық информацияларды өңдеу, яғни ғылыми-техникалық, соның ішінде көбінесе математикалықесептерді шешу үшін ғана қолданылған. Сондықтан оның атындағы «дискреттік» деген сөздің орнына «цифрлық» деген
        
        ҚАЗАҚСТАН РЕСПУБЛИКАСЫ БІЛІМ ЖӘНЕ ҒЫЛЫМ МИНИСТРЛІГІ
Информатика және қолдаңбалы математика кафедрасы
Курстық жұмыс
Мазмұны
І. Кіріспе
Есептегіш машинаның шыққан жылдары
ІІ. Негізгі бөлім:
1. Delphi-дің 7 ... ... Delphi ... ... ... ... батырмалары
4. Программалар код терезесі
5. Есептің алгоритмі
6. Деканат программасы
ІІІ. Қорытынды
Есепті қорытындылау
Пайдаланылған әдебиеттер
Программа листингісі
Кіріспе
50-жылдардың басында жарыққа шыға бастаған негізгі өңдеу құралы ... буын ... ішкі ... ... жеке ... ... ... негізделген болатын. Бұл
бөлшектің негізгілері вакумдық электрондық ... еді. ... ... ... сенімділігі жоғары емес, тездік жылдамдықтары
бір секундта 5-6 мың ... ... ... ... (екі ... ... не символдарды салыстыру сияқты бір әрекет қарапайым операция деп
аталады да, оны орындайтын команда ... ... деп ... ... ... ... үшін ... программалар машиналық
командалардан тұратын да, программалау жұмысы көп еңбекті қажет еткен. ... өзі тек ... ... жүргізу үшін пайдаланған).
Транзисторды ойлап шығарғанға байланысты, 50-жылдардың соғы кездері
техникалық негіздері түгелдей алмастырылған, негізгі элементтері ... ... ... ... буын ... жарыққа шықты.
Мұндай элементтер машинаның әрекет тездігін және сенімділігін елеулі түрде
арттыруға мүмкіндік береді. Екінші буын машиналарының сырт ... ... ... ... көп ... ... өзіндік құны да
бірінші буын машиналарына қарағанда көп төмендетілді. Оның үстіне, бұл ... ... ... (Алгол, Фортран, Бейсик, т.б) ... ... ... ... ... істеу мүмкіндігі
туды.
Информация өзінің хабары мен мазмұны арқылы ... ... ... ... материалды – энергетикалық (электр, жарық,
дыбыс және т.с.с сигналдар) түрінде берілетіндігі ... ... ... ... ... қандай-да бір шаманың уақытқа байланысты
өзгерісімен тікелей байланысты. Демек, информациялық ... ... ... ... ... материалдық – энергетикалық параметрлерін
уақытқы байланысты ... Х(t) ... ... ... Осы
функция үздіксіз де (мысалы, ... ... ... ... ... температурасы және электр тогының күші ... де ... ... ... ... бір ... ... тізбектері немесе дыбыстар тіркестері арқылы құрылатын сөздер мен
сөйлемдер) болуы мүмкін. Үздіксіз функциялар арқылы бейнеленетін ... ... ... ал ... функциялар арқылы берілетін хабар – ... деп ... ... ... мүшелерінің мүмкіндігі шектеулі
болғандықтан үздіксіз информацияны дискретті түрде қабылдайды.
Ең алғаш ДЭЕМ тек ... ... ... яғни ... ... ... ... математикалықесептерді шешу үшін ғана
қолданылған. Сондықтан оның атындағы «дискреттік» деген ... ... ... ... ... ... есептегіш машина (ЦЕМ) деп
аталып кетті.
Қазіргі кезде ЦЕМ арқылы ... кез ... ... ... типін өңдеуге, яғни әр ... ... ... ... бір тілден екінші тілге аудару,
басқару, жасанды зерде және т.б.) ... ... ... Оның ... ... өңдеу және сақтау үшін екі тұрақты жағдайлары ... ... ... Бұл ... “ 0 ” және “ 1 ... ... ... өңдеуге қажет информациялар және оларға
қатысты алгоритмдер “ 0 ” және “ 1 ” – ден ... ... ... ... Ал қандайда болмасын алгоритмдік тілде жазылған алгоритмді
және кезкелген таңбалардың тізбектері арқылы ... ... ... мазмұндарын өзгертпей “ 0 ” мен “ 1 ” –ден ... ... ... ... ғана ... әртүрлі хабар арқылы
беріледі). Яғни, ЦЕМ әмбебап есептегіш (өңдегіш) ... ... ... тек ЦЕМ.
Ең алғаш 1946 жылы АҚШ ғалымы Джон фон Нейман әмбебап ЦЕМ ... ... ... Осы ... ... жүзеге асырып
жасалынған ең бірінші ЦЕМ “EDSAC” деген атпен 1949 жылы Англияда Кембридж
университетінде жасалынды. Бір ... ... 1950 жылы ... атты ... АҚШ-та шықты. Бұл елдерде оларды ағылшын тілінде «компьютер» деп атады.
Сондықтан осы терминді ... ... ... ... ... тіліне
өзгертпей ендіріп қолдануымыз керек. Бұрынғы Кеңес ... ең ... ... ... ... 1947 жылы ... 1951 жылы ... жылдары келесі “БЭСМ - 1” компьютері жасалынды.
Алгоритмнің “ 0 ” мен “ 1 ” – ден ... ... ... ... деп атайды. Ал ондағы нұсқаулар мен ... ... ЦЕМ ... ... ... бұйрықтар жиынын машиналық тіл
деп атайды. Қазіргі машиналық тілдің әліпбилері тек “ 0 ” мен “ 1 ” – ... ғана ... 7 ... ... ... ... бұның алдындағы версиялардың(түрі)
мүмкіншіліктері мұнда жоқ болып ... 7 ... ... 6 ... ... ... және ... ортасы мен қатты ұқсас. Оның
ерекшелігі – интернет жүйесіне ... ... ... үшін жаңа
технологияларды енгізу. 7 версияның тағы да ерекшелігі – ... ... CASE атты ... ... ... Modal Moker.
Modal Moker.құарлы барлық жұмысқа да ыңғайлы. Мысалы ол компьютерде
жұмыс жасаған адамға мағыналы мысалдарды ... ... ... ... қара ... ... отырады.
Интернетке арналған қосымша технологиялары да әлдеқайда өзгерген.
Intra Web ... ... ... көмек сұрамайтын жаңа технология
дайындауға болады.
Кроссплатформалық көмекшіні ... одан әрі ... үшін ... мен Kylix 3 арналған тіл айырмашылығы жойылған.
VCL және CLX жүйесінің жұмысын жеңілдеткен кезде VCL-дан ... Past Net ... ... ... ... ... 7 ... ең басты ерекшелігі
– кроссплатформалық көмекші құралдардың жақсы деңгейде ұсталуы және де CASE
құралдарын енгізу туралы.
VCL бағдарламасын жасаудағы 26 ... 325 ... ... ... жасаудың біріңғай жүйесі болып келеді. Басқа ... ... жүйе ... Delphi жаңадан бағдарлама жасауға арналған. Delphi
жүйесінің өте бір жақсы екі ерекшелігі бар, олар: ол ... ... ... Windows ... ... жасап тұрмайды, ал өзі ... ... ... ... ... ... жүйесі Visual Basic тілінен айырмашылығы ... ... Бұл ... ... ... жатқанда ақ,
компеляторға ... ... ... ... ... ... Бұл жүйе өзінің
көрсеткіштері арқылы СОМ ... және ... ... ... ... Ал Visual Basic пен Java ... СОМ технологиясымен
жұмыс жасағанда онымен жәй әрі кештеу байланысады.
Айта кету керек: Delph
жүй
түрлері(версиясы)нің мүмкіншіліктері мол: рет саны ... ең ... ... ең биікітегісі де жасай алады, бірақ қарсы ... бола ... ... танысу
Delphi-ді іске қосқан кезде осындай терезе алдыңызға шығады. Оның
ішінде:
1) негізгі терезе;
2) обьектілер тармағының терезесі;
3) обьектілер инспекторының ... ... ... ... ... программа кодының терезесі
Программа кодының терезесін көру үшін F12 клавишасын басу
жеткілікті. Delphi-ді алғаш ... ... ... ... Direct» ... барлық терезенің үстіне шығады. Осы терезенің
көмегімен Intprise коорпарациясының Web-беттеріне кіруге ... ... ... ... ... ... программаның жобаларын
басқаратын негізгі қызметті атқарады.Бұл терезе экранда барлық ... және ең ... ... ... ... ... ... бас менюіб пиктографиялық командалық батырмалар жиынтығы,
компоненттер палитрасы орналасқан.
Бас меню ... ... ... ... қажетті командалардан
тұрады. Бас менюдің барлық операциялары екінші деңгейде ашылатын опциялар
тақырыбын қамтиды. Бас терезенің ... ... ... ... оның сол жақ бөлігінде басқару батырмалары орналасқан.
Панельде ... ... ... ... үшін оған ... тышқанның оң жақ батырмасын басу жеткілікті. Бұдан ашылған
көмекші меню ... ... ... ... ... және
олардың статусы көрсетілген (жалаушалар). Олардың ішінен ... ... ... ... баптау терезесі пайда болады. Енді
қажет емес батырмаларды алып тастауға болады, Commands ... ... ... ... оны ... ... апаруға болады.
Негізгі терезеге жиі пайдаланылатын пиктограммаларды
орналастырған ыңғайлы: ... Chek – ... ... ... ... ... ... режимді
бақылау терезесіне кіру және т.б.
Пикторафикалық батырмалар бас менюдің негізгі опцияларына жылдам
кіруге мүмкіндік ... Олар ... ... ... 7 топқп бөлінген.
Әрбір топ бір панельде орналасады:
1. Standard тобы;
2. View тобы;
3. Debug ... Custom ... Desktops ... Internet ... ... ... ... форманы құру. Команда эквиваленті File-New-Other.
Сақталынған файлды ашу. Команда эквиваленті File-Open.
Дискіге файлды ... ... ... ... ... файл ... сақтайды. Команда эквиваленті File-Save
All.
Сақталынған проектілерді ашу. Команда эквиваленті File-Open
Project .
Жаңа проетіні қояды. Команда эквиваленті Project-Add to Project.
Проектіні жояды. Команда эквиваленті ... from ... ... ... ... ... модуль қояды. Команда
эквиваленті View-Units.
Форма тізіміндегі ашылған проектіге ... ... ... ... ... ... коды терезесімен ауысу. Команда
эквиваленті View-Toggle Form/Unit.
Ашылған проетіге жаңа форма қою. ... ... ... ... және ... ... Команда
эквиваленті Run-Run.
Программа ортасында пауза жасайды. Команда эквиваленті Run-
Program Pause.
Біртіндеп программаны алға қарай іске қосады. Команда ... ... ... ... ... іске ... Команда
эквиваленті Run-Step Over.
Custom тобы:
Анықтама қызметін ашады. Команда эквиваленті Help-Delphi Help.
Desktops тобы:
Қалған терезерді реттеу мүмкіндігінің тізімі.
Реттеу терезесін сақтау.
Реттеу терезесін таңдау.
Internet ... Web Snap жаңа ... ... Web Snap ... құрады.
Қосымша Web Snap модулін құрады.
Программалар код терезесі
Код терезесі – программа мәтінін құрып, жөндеугк ... ... ... ... ... ... және программаның жұмыс алгоритмін
сипаттайды. Мәтінді жазу ... ... ... тілі ... Delphi ... ... Paskal ... тілі пайдаланылады. Ол
кеңінен таралған Paskal ... ... ... ... оны
алғаш рет швейцариялық ғалым Н.Вирт 1970 жылы ... және оны ... ... ... ... код ... толыққанды Windows терезесі ретінде бос
форманы басқаруды жүзеге асыратын алғашқы толықтырулар жасайды.
Тіпті қарапайым программа құру үшін ... ... ... ... тура ... ... код ... жұмыс істеудің
негізгі тәсілдері келтірілген. Жаңа жобаны ашқаннан кейін төмендегідей
жолдар көрінеді:
Unit ... Windows, ... ... Classes, Graphics,
Controls, Forms, Dialogs;
Type
Tform 1=class(Tform)
Private {Private Declarations}
Public {Public ... ... бұл ... жаңа форма үшін код терезесіне автоматты түрде
қояды. Код терезесі программаның ... ... ... ... Ал ... ... оның сыртқы көрінісі. Екі терезе бір-бірімен
тығыз байланысты, Delphi ортасы
Unit Unit1;
және
Implementation
Жолдарының арасына қажетті жолдарды қояды.
Әзір бұл ... ... ... ... ... мәтін терезесіне
{SR*.DFM}
және
End.
Жолдарының арасына қажетті мәтінді енгіземіз. Терезеге жаңа жол
енгізу үшін ... ... ... ... ... ... ... элементті тышқанмен екі рет белгілеу сәйкес
объектіні сипаттау үшін код терезесіне курсорды орналастырады ... ... ... ... ... Аса ... емес оқу ... браузер браузер терезесін жауып қоюға болады. Браузер терезесін
шығару үшін View Explorer терезесін ... ... ... BS және Delete клавиштарының көмегімен жүзеге асады.
Есептің алгоритмі
Программа деканат туралы жазылған. Бұл программада тоғыз форма
болады. ... ... ... ... ... ... ... суретін қоямын. ВТ-305К және ИС-304 тобы туралы толық ... Осы ... ... ... формаларға кіруге болатындай ... және ... ... ИС мен ... ... тізімі мен оқу
түрі көрседі. Осы формалар арқылы студенттердің толық мәліметтерін көрсету
керек.
Төртінші және бесінші формада Access-пен байланыс-тырамын. Онда ИС-
304К мен ... ... ... ... жері, туған жылы, телефон нөмірі,
студенттік нөмірі көрсетемін. Олардың мекен жайын өзгертуге және оқудан
шығып кетсе ... ... алып және ... ... ... ауысып келген студентті осы базаға енгізуге тастауға болатындай
қылып жасаймын. Осы формада куратор мен старостаның аты-жөні ... , ... ... ... оқу ... (грант немесе
платный) көрсетемін. Сегізінші формада программаны кім орындаған және
тексергені туралы көрсетіледі. Ал ... ... ... ... яғни ия немесе жоқ деген сообшение шығатындай етіп жасаймын.
Delphi программасын ... ... ... ... орындау: Деканат
программасын құрамыз.
Жоспарлау: Бұл программаны былай жобалайық. Алдымен бірінші
форманы ашамыз. Оларды белгілі ... ... ... оған ... ... Деканатты мысалға ала отырып, методисттің
жұмысын берілген тапсырма бойынша орындаймыз. Delphi ... іске ... ... бірінші форманы File→New→Application командаларын орындау
арқылы ашамыз. Осы ашылған формаға 1 ... 2 Label, 2 Button және ... ... біздің формамыз суреттегідей болады.
Осы формада орналасқан мына ... екі рет ... ... форманы осы батырманы басқанда ашылатындай етіп, кодтар терезесіне
мына программаны жазамыз.
form5:=tform5.Create(form1);
form5.ShowModal
Яғни, осы ... ... ... ... ... Енді ... ... компоненттерді орналастырайық. Бұл форма Caption қасиеті
бойынша «ВТ-305 К» деп өзгертеміз. ... ... ... бойынша студенттер
тізімі және оқу түрі шығады. Ол келесі суретте көрсетілген:
Студенттер тізімін басқан кезде ВТ-305 К топ студенттерінің толық ... ... аты, ... ... мекен-жайы, қазір тұратын жері,
телефон нөмірі және студенттің нөмірі көрсетілген. Осы ... рет ... ... ашылған кодтар терезесіне мына программаны жазамыз.:
form2:=tform2.Create(form5);
form2.ShowModal
батырмасынан шығатын форма астында көрсетілген:
Бұл формада 3 Bevel, 1 ADO Connection, 1 ADO Table, 1 Data Source, ... 3 Label, 1 Shape және 1 MainMenu ... ... ... Access-пен байланысқан. Оны құрастыру үшін ең
алдымен:
1. ADO Connection-ді қойып екі рет ... ... мына ... ... ... Build ... шертсек OLE провайдерін таңдаймыз. Ал бізге
керектігі Microsoft Jet 4.0 OLE DB ... ... Access ... ... істей алады.
Далее батырмасын шерткен кезде келесі терезе шығады. Бұл ... ... ... ... біз жасаған базаны көрсетеміз.
Мысалы: C:\ Мои документы \ студенты ВТ .mdb таңдаймыз. Пустой ... ... ... ... алып ... да ... подключение батырмасын
басамыз. Егер қате шықса бізге компьютер хабарлайды. Ал қате жоқ ... ... ... ... ... ... сұрамау үшін Properties-
тегі Login Prompt-қа False ... ADO ... ... ... ... ADO Connection1
деп қоямыз. Содан Table Name-ға ... ВТ-305 К ... ... ... Data Source-ты алып Properties-тегі Data Set-қа ADO ... ... ... ... ... Data Source-қа Data
Source1 қоямыз.
Ал енді Негізгі ... ... үшін оған ... ... Оны ... ... бос ... болады. Содан оған керекті сөздер теріп жабамыз.
Мысалы мына суретке қарайық:
Бұл жерде Файл-Закрыть батырмасына құр жабу ... ... ... ... студентов-ті ашсақ, оның ішінде Добавить, Сохранить және
Удалить тұр.
Добавить: ... ... ... кезде бізде үстінде көрсетілген сурет шығады.
Из них грант/платный батырмасын басқан кезде студенттердің қаншасы
грантта және ... ... ... бұл ... ВТ ... 21 ... 4 грантта, ал 17 ақылы оқитыны
көрсетілген. Осы формада 1 Button және 28 Label бар. ... ... ... 1 Label-ға сыйдыруға болатын, бірақ кейбір студенттердің аты-жөні
ұзын болғанымен сыймай ... ... ... да осылай жасалынған.
Ал енді 1-ші формаға қайтадан оралайық. Біз мұнда MainMenu ... ... Ол ... ең ... ... Сондықтан біз оған
ең соңында тоқталдық.
? О программе ... ... ... бұл программаны кім жасағанын және
тексергенін көрсетеді. Оны орындау үшін біз оған программасын ... Ең ... ... ... ... екі рет шертеміз.
Файл ... тағы бір ... ... Ол ... ... ... close;
? О программе
form3:=tform3.create(form1);
form3.showmodal
Осы батырманы шерткен кезде шыққан формада 8 Label, 1 BitBtn, 1 ... 1 Timer ... ... ең бірінші Timer ... Ол ... ... іске қосу ... оны екі рет ... оған image1.Free;
деп жазу керек.
Қорытынды
Сонымен қорытындылай кететін ... біз ... ... ... ... ... Delphi ... – программист жұмысының
өте жоғары тиімділігін қамтамасыз ететін орта.
Программалау іскерлігін үйрену үшін ... ... ... жаза білу ... Ол үш ... тілі ... құру ... керек. Обьектілі бағдарланған ... ... ... ... ... ... синтаксисі мен
компоненттерді пайдалануды үйренуде болып табылады.
Қазіргі заман талабына сай ... ... өте ... қандай да болса да жұмыс орны компьютерсіз жұмыс атқара алмайды.
Ал оны оқып үйрену инемен құдық ... ... ... ... ... бұл ... кез ... жұмысты орындай алу мүмкіндігін береді.
Қазіргі таңда көп программалардың ... ... көп ... етеді. Бұл программистердің басты мақсаты.
Ақпараттық коммуникациялық технологиялардың қарқынмен ... ... ... ... соңғы кездері программалауға деген
қызығушылықтың арта түскені белгілі. Қазіргі уақытта компьютерсіз қандай да
бір жұмысты орындауды көз ... ... ... Бұл компьютермен жұмыс
істейтін адамға қандайда бір ұмтылысты тудыруы мүмкін.
Пайдаланылған әдебиеттер
1. Халықова К.З., Тұрғанбаева А.Р. ... ... ... ... ... О. Информатика. Оқу құралы. Алматы: «Қарасай» баспасы,
2006.
3. Халықова К.З., Паскаль тілінде программалау: Оқу құралы. – ... им. ... ... Культин Н. Delphi. Программирование на Object Paskal. ... ... М. ... ... Delphi. ... 2004.
6. Орлик С.В Секреты Delphi на примерах. М.:Бином, 1996
Программа листингісі
1-ші форма
unit Unit1;
interface
uses
Windows, Messages, ... ... Classes, ... ... ... Menus, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Label2: TLabel;
Image1: TImage;
Bevel1: ... ... ... ... ... TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... Unit3, Unit2, Unit4, Unit5, ... ... TForm1.N2Click(Sender: TObject);
begin
form4:=tform4.Create(form1);
form4.ShowModal
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form3:=tform3.create(form1);
form3.showmodal
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form5:=tform5.Create(form1);
form5.ShowModal
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form7:=tform7.create(form1);
form7.showmodal;
end;
end.
2-ші форма
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Buttons, ... DB, Grids, DBGrids, ... = ... ... ... ... ... TDBGrid;
ADOTable1DSDesigner: TAutoIncField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
ADOTable1DSDesigner5: TWideStringField;
ADOTable1DSDesigner6: TWideStringField;
ADOTable1DSDesigner7: TWideStringField;
ADOTable1DSDesigner8: TWideStringField;
ADOTable1DSDesigner9: TWideStringField;
ADOTable1DSDesigner10: TWideStringField;
ADOTable1DSDesigner11: ... ... ... ... ... ... TMenuItem;
N8: TMenuItem;
Label8: TLabel;
Label9: TLabel;
Shape1: TShape;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: ... ... ... N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... ... TForm2.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TForm2.N6Click(Sender: TObject);
begin
Adotable1.Insert;
dbgrid1.SetFocus;
end;
procedure TForm2.N8Click(Sender: TObject);
begin
adotable1.Delete;
end;
procedure TForm2.N2Click(Sender: TObject);
begin
close;
end;
end.
3-ші форма
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Buttons, ... ... = ... ... TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private ... ... Public ... ... ... ... ... TObject);
begin
image1.Free;
end;
end.
4-ші форма
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Buttons;
type
TForm4 = class(TForm)
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure ... ... Private ... ... Public ... ... ... Unit2, Unit3, Unit1;
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
5-ші форма
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, ... ... = ... ... ... ... TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit2, ... ... ... TObject);
begin
form2:=tform2.Create(form5);
form2.ShowModal
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
form6:=tform6.create(form5);
form6.showmodal
end;
end.
6-ші форма
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ... = ... ... ... ... ... ... TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: ... ... ... ... ... TButton;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
close;
end;
end.
7-ші форма
unit ... ... ... Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm7 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations ... Public ... ... TForm7;
implementation
uses Unit8, Unit9;
{$R *.dfm}
procedure TForm7.Button2Click(Sender: TObject);
begin
form8:=tform8.create(form7);
form8.showmodal;
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
form9:=tform9.create(form7);
form9.showmodal;
end;
end.
8-ші форма
unit Unit8;
interface
uses
Windows, Messages, SysUtils, ... Classes, ... ... ... = ... ... ... TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Button1: TButton;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: ... ... ... ... TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... ... ... ... ... Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, ... Menus, DB, ADODB, Grids, DBGrids, ... ... = ... ... ... ... TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable1DSDesigner: TAutoIncField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
ADOTable1DSDesigner5: TWideStringField;
ADOTable1DSDesigner6: TWideStringField;
ADOTable1DSDesigner7: TWideStringField;
ADOTable1DSDesigner8: TWideStringField;
ADOTable1DSDesigner9: ... ... ... ... ... ... TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
Bevel1: TBevel;
Shape1: TShape;
Bevel2: TBevel;
Bevel3: TBevel;
procedure N6Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... ... TForm9.N6Click(Sender: TObject);
begin
Adotable1.Insert;
dbgrid1.SetFocus;
end;
procedure TForm9.N2Click(Sender: TObject);
begin
close;
end;
procedure TForm9.N8Click(Sender: TObject);
begin
adotable1.Delete;
end;
end.

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









Ұқсас жұмыстар
Тақырыб Бет саны
Delphi 7 ортасында Калькулятор бағдарламасын құру23 бет
Delphi программалау тілі36 бет
”Библиотекарь” программасы12 бет
«Теміржолдық касса» мәліметтер базасы95 бет
«Фудмастер» компаниясы18 бет
Маркетингтік ақпарат жүйесі26 бет
Шеңбермен танысу әдістемесі2 бет
"Delphi ортасымен танысу."26 бет
Delphi ортасымен танысу7 бет
Delphi ортасымен танысу жайлы16 бет


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


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

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

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

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

Email: info@stud.kz

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

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