Кітапхана

Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...5

1. Есептің алгоритмі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..6

2. Теориялық бөлім
2.1.Database Desktop ... ... ... ... ... ... ... ... ... ... ... ... ... .7
2.2.BDE Administrator ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..15
2.3.Компоненттер палитрасы ... ... ... ... ... ... ... ... ... ... ... ... ... ..17

3. Программаның баяндалуы ... ... ... ... ... ... ... ... ... ... ... ... ... ..20
3.1.Жалпы мағлұматтар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...21
3.2.Шақыру және жүктеу ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .21
3.3.Қажетті техникалық жабдықтар ... ... ... ... ... ... ... ... ... ... ... 21
3.4.Кіріс мәліметтер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..21
3.5.Шығыс мәліметтер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..22
3.6.Бақылау мысалдарын баяндау ... ... ... ... ... ... ... ... ... ... ... ...22

4. Листинг ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .23

Қорытынды ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..31
Қолданылған әдебиеттер тізімі ... ... ... ... ... ... ... ... ... ... ... ... ... .32
Қосымша ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...33
        
        Мазмұны
Кіріспе.....................................................................
..........................5
1. Есептің
алгоритмі...................................................................
...6
2. Теориялық бөлім
2.1.Database Desktop……………………………………………..7
2.2.BDE
Administrator...............................................................
...15
2.3.Компоненттер
палитрасы......................................................17
3. Программаның
баяндалуы......................................................20
3.1.Жалпы
мағлұматтар...............................................................21
3.2.Шақыру және
жүктеу.............................................................21
3.3.Қажетті техникалық
жабдықтар............................................21
3.4.Кіріс
мәліметтер..................................................................
....21
3.5.Шығыс
мәліметтер..................................................................
22
3.6.Бақылау мысалдарын
баяндау...............................................22
4.
Листинг.....................................................................
....................23
Қорытынды...................................................................
...................31
Қолданылған әдебиеттер
тізімі.....................................................32
Қосымша.....................................................................
......................33
Кіріспе
Әртүрлі ... ... ... ... үшін ... жүйенің
дамығанын талап етеді. Сонда сол мәліметтермен ... ... және ... іске ... ... деп, мәліметтердің электрондық сақтаушысын айтады.
Оларға қатынас, бір немесе бірнеше компьютерлер ... іске ... ... ... ... ... үшін жасалады.
DELPHI жүйесі мәліметтер базасын басқару жүйесі болып ... ... тура ... алатын болсақ, бірақ толық МББЖ (мәліметтер
база–сын басқару жүйесі ) ... ие. ... ... DELPHI
құралы локальдік және клиент-серверлік мәліметтер базасын құрып, және оның
ішінде жұмыс істеуге және кез-келген ... ... ... ... қолданба құруға мүмкіндік береді .
DELPHI-ді кәдімгі МББЖ деп айтуға, оның ... ... ... ... сипаттау тілі ) бөгет жасайды.Сондықтан ол басқа ... ... ... . ... : dBase, Paradox, InterBase.
Бұны бірақ та жетіспеушілігі деп те айтуға болмайды, себебі ... ... ... ... ... ... ... да DELPHI
мүмкіншіліктері арнайы МББЖ мүмкіншіліктерінен ... ... асып та ... ... ... ... ашатын «Кітап» және «Заказ» объектілерін таңдау;
2.Таңдалған объектілерге сәйкес мәліметтер жинау;
3.Объектілерді зерттеп, ... ... ... ... ... ... ету ... және
статистикалық мәліметтері бойынша есеп беруді құрамыз.
5.Мәліметтер базасымен тез әрі эффективті жұмыс істеу ... ... ... ... ... ... ... мәлімметтер базасын құру.
2. Теориялық бөлім
2.1. Database Desktop
Мәліметтер базасының кестелерін құру үшін Database Desktop (DBD) ... ... | Borland Delphi 6| Database Desktop ) ... ... ... ... ... жұмысшы жалған аты утилитін орнатамыз.
Бұл жалған аты автоматты түрде жұмыс істейін утилит. Егер ... ... ... онда DBD ... істеген сайын жалған атты көрсетіп отыру
керек, бұл уақытты көп алады.
Жұмысшы жалған атын орнату үшін бас менюдан File | Working ... ... ... және Aliases ... тізімінде жалған атын
Constant1-ді таңдау , одан кейін Ok батырмасын басу ... Бас ... | New | Table ... осыдан кейін МБ кесте структурасының
анықтама терезесі пайда болады.(1-сурет)
Сурет.1 – Database Desktop ... МБ ... ... ... - Өріс ... ... кестесіне кіруші өрістерін анықтаймыз. Field Name бағанына
материалдар ... Өріс ... ... ... Type ... ... жақ батырмасын басыңыздар. Бұған жауап ретінде керек өріс типін таңдау
үшін өріс типінің ... ... ( ... Paradox ... ... типтері 2-суретінде келтірілген.
Paradox пішімінің өрістер типі.
● Alpha – кез келген ... ... ... ... ... ... Number – мағынасы оң және теріс болуы мүмкін, ұзындығы 8 байттық ... ... ... – 10- нен 10- ге ... $ Money - ... оң және ... ... мүмкін сандық өріс. Ондық нүкте
мен ақша белгісін бейнелеу үшін келісім бойынша пішімделген болып ... Short – тек қана - 32768- ден 32767- ге ... ... ... тұратын, ұзындығы 2 байттық сандық өріс.
● Long Integer – ... ден ... ге ... диапазоныдағы
бүтін сандардан тұратын және ұзындығы 4 байт болатын сандық өріс.
● # BCD – BCD (Binary Coded Decimal) ... ... ... ... Басқа сандық өрістерге қарағанда есептеу жылдамдығы аз, бірақ
нақтылығы ... ... ... ... 0 мен 32 ... аралығындағы
сандарды қабылдауы мүмкін.
● Date – біздің заманымызға дейінгі 9999- шы ... 1- ші ... ... 9999- шы ... 31- ші ... ... ... , ұзындығы төрт байттық даталар өрісі.
● Time – миллисекундтан түнжарымына дейінгі уақыттан тұратын және де ... ... ... төрт ... ... ... @ ... – уақыт пен даталардан тұратын, ұзындығы 8 ... ... ... Memo – ... ... 255 ... аспайтын және де символдарды
сақтау үшін қолданылатын өріс. Бұл өріс кез ... ... ... ... құру кезінде көрсетілетін өлшемдер кестеде сақталынған барлық
символдардың санын қайтарады, ал ... MB. ... ... ... ... Memo – бұл Memo- ға өте ұқсас өріс. Өрістің Memo- дан ...... ... беру ... Binary – кез ... ... ... тұратын өріс. Бұл өріс ... ... ... ... ... құру ... ... өлшемдер
кестеде сақталынған барлық символдардың санын ... ал ... ... жеке файлдарда сақталады. Бұл өріс Inter Base- ... ... өте ... Bytes – кез ... ... тұратын, ұзындығы 1-255 байттық ... dBase ... ... ... ... ... ... мүмкін:
● Character (Alpha) – кез келген баспалық символдардан тұратын,
ұзындығы 1-254 ... ... Float ...... оң және теріс болуы мүмкін пішімдегі
өлшемі 1-120 ... ... ... Бұл өте ... ... ... бұл өрістермен жұмыс жасаған ... ... ... болатын қателерді қадағалап отыру керек. Ондық ... ... саны ... ... ... қарағанда 2-ге кем ... Number (BCD) – BCD ... ... тұратын өлшемі 1-20
байттық сандық өріс. Сандық өлшемдерге қарағанда бұл ... ... ... ... ... нақтылығы біршама жоғары. ... ... ... саны ... ... өлшеміне қарағанда 2-ге
кем болу керек;
● Date – ұзындығы 8 байттық даталар ... ... ... қысқа
даталар пішімі қолданылады (Short Date Format);
● Memo – ұзындықтарының ... ... 255 ... ... ... ... үшін ... өріс. Өріс кез келген ұзындықты қабылдауы
мүмкін. Бұл өріс жеке ... ... DateBase ... Memo ... өріске қоюға мүмкіндігі жоқ;
● OLE - өзінің өңделуі кезінде өзін құраған қолданбаларды шақыратын
дыбыс, бейне, ... яғни OLE ... ... (Object Linking
and Embedding) тұратын өріс. Бұл өріс те жеке файлдарда сақталады және ... ... ... ... Binary – кез ... ... мәліметтерден тұратын өріс. Берілген өріс DBT
кеңейтілуіндегі жеке ... ... және кез ... ... ... Бұл InterBase-тегі Blob өрісінің толық аналогы;
●InterBase пішімінің кестелер өрісі төмендегідей типтерді қабылдауы ... – тек қана ... ... ... ... ... ... ұзындығы 4 байттық сандар өрісі;
●Long – -2147483648-ден 2147483648-ге ... ... ... ... ұзындығы 4 байттық сандар өрісі;
●Float – мәндері оң және теріс болуы мүмкін, ұзындығы 4 ... ... ... ... ... ... ... мәні 7
символдық сандарды қамтиды;
●Double – мәндері оң және теріс болуы мүмкін, ұзындығы 8 ... ... Бұл ... ұзындығы пиктограммаға байланысты және ... ... ... ... мәні 15 ... ... – деректер жиымдарынан тұратын өріс. InterBase 16-лық ... ... ... ... Өріс кез ... ... қабылдауы
мүмкін. DateBase Desktop-тың Array типті өрістерді редакциялауға, сонымен
қатар оларды құруға да мүмкіншілігі жоқ;
●TextBlob – тек қана ... ... ... Blob ... ... ... Өріс кез ... ұзындықты қабылдауы мүмкін. DateBase Desktop-
тың TextBlob типті өрісті редакциялауға мүмкіншілігі бар.
KodKn өрісінің ... ... ... Alpha таңдаймыз. Key бағанына
жұлдызшаны қоямыз. Осы өрістің құрамына алғашқы кілттің енетінін білдіреді.
Ол үшін клавиатурадан кез ... ... ... ... ... ... және ... кестесінің басқа бағаналарына анықтамалар
енгіземіз ... 3 - ... ... ... ... 4 - ... ... құрылымын анықтау
Есеп шарттарына сәйкес берілген кестенің барлық өрістері
толтырылуы тиісті. Бір ... ... ... өту үшін Required ... іске ... ... ... мағынасына шек салу үшін
қызмет етеді:
• Minimum value - ... ең аз ... ... Maximum value - ... ... ... ... анықтайды;
• Default value – өріс мәнін келісім бойынша анықтайды
Picture – ... ... ... ... . ... құру үшін ... басу ... Бір өрісте мәннің болмауы өрістің шектелген мәнінің
қойылмағанын білдіреді.
Кестелерді толтыру және есте ... ... ... Database ... кестені толтыруға болады. ... ... ... ... болмауы мүмкін, онда латын алфавитін пайдалануға
болатынын атап ... соң С:\Base ... ... ... ... аты ... Kniga.db файлы құрылады.
Сурет 5 - Кестені сақтау терезесі
Құрылған кесте реструктурлануы. Егер МБ бар кестелерге ... ... ... File|Open|Table меню элементін таңдау керек, пайда болған
диалогты терезеден кесте атын ... Ок ... басу ... ... ... (6-суретте 1 кестесінде жазуларды жоқ болады, өйткені
біз оған мәліметтерді енгізген жоқпыз ).
Келесі қадамда индекс құрамыз. Ол үшін біз ... Table ... ... Indexes ... ... . ... кейін диалогты
терезе 13-суретте көрсетілгендей көрініс береді.
Сурет 6 - ... оң ... ... Indexes ... пайда болды
Жаңа индексті анықтау үшін , Define батырмасын басамыз. Көрінген диалогтық
терезеде Fields өрісінде біз ... ... ... мазмұны көрсетіледі.
Index Fields өрісінде құрылған индекске кірушілерді сақтау ... Fields ... Index Fields ... ... ... алу үшін оң ... бейнелеуі бар батырманы басу керек. Өріске
тізімді жүйелілі қосу маңызды, өйткені ол ... ... ... ретін
анықтайды. Index Fields тізіміне керек өрістерді таңдаған соң ( сурет.7),
Ok батырмасын басамыз ... - ... ... ... өрістерді анықтау
Көрінген терезеде индекс аты сұралады. Атын енгізіп, Ok батырмасын ... ... - ... ... кіретін өрістерді анықтау
Индекс атын өріс атымен қою рұқсат етілмейді. Өйткені келесіде көрініп
тұрғандай жаңа ... ... ... оның аты ... ... ... көрсетілген, жаңа индексті қосқанан кейін оның аты индекстар
тізіміне пайда болады.
Сурет 9 –«Kniga» кестесі үшін ... ... ... аты ... шертіп , біз оны өшіре аламыз (Erase батырмасы) немесе
өзгерту ( Modify ... ... ... ... ... ... ... конструкциялау. Енді МБ-н кестеден ... ... ... ... ... Есептің
қойылымынан белгілі болғандай "Kniga.db" және "Zakaz.db" кестесі “бірдің-
көпке” деген қатынасында, олай ... Kniga.db ... бір ... ... сол ... бірнеше жазба сәйкес келеді. Байланыс
өрісі болып 2 ... бар KodKn ... ... ... ( Save ... ) ... өзгерістерді сақтап, Kniga ( Table
| Restructure ) кестесінің реструкизациясы режіміне қайта кіреміз. ... ... ... Indexes элементін таңдаймыз индекстер
тізімінде namefio атымен пайда болған жаңа индексті ... Бұл ... ... ... ... ... ... тұрғызылған ( сурет 19).
Осымен МБ ... ... ... ... ... ... ... кейін құрылған кестелермен жұмыс істеу үшін
қарапайым қосымшаларды өңдеуге көшеміз.
2.2. BDE Administrator
Құрылатын мәліметтер ... ... ... болуы керек.
Директорияны компьютерде, серверде, түбір ... ... ішкі ... ... мысалы :
1) C :\ Constant ;
2) C :\ \ \…..\ Constant ... dBase және FoxPro ... ... ... ... ... ) МББЖ -нің ... режимінде жұмыс істейді.
МББЖ технологиясында МБ атауына жалған аты ... ... ... ... аты ... іске ... Administrator утилиті Delphi – мен байланыста болуы тиісті.
МБ – ... ... ... ... С:\ немесе D:\ дискілерінде
өзіміздің жұмысымызды сақтау үшін ... ... –де МБ ... BDE Administrator утилитінің көмегімен іске
асырылады. Сондықтан біздің "C :\ Constant " BDE ... - да ... ... екі ... ... ... :
1. Windows ... столына тікелей :
Пуск / Программы / Borland Delphi 7 / BDE Administrator
2. Алдымен Delphі-дің негізгі ... ... ол ... IDE-нің
жоғарғы қатарында Delphі-дің басты менюінде орналасқан.
DateBase ... ... және одан Exproler ... таңдаймыз. Осы
командамен BDE Administrator утилитін жібереміз. Жібергеннен кейін келесі
амалдар орындалады:
Негізгі менюден Object | New ... ... ... терезеде (Сурет –
10) МБ – ның құрылған типін (Standard) өзгеріссіз қалдырып ОК батырмасын
басамыз. Администратормен ... сол ... ... ... Оны Kiidir ... өзгертеміз. Ол үшін МБ атына тышқанды ... ... ... – 10 Мәліметтер базасының драйвер типін таңдау терезесі
Оң жақ терезеде МБ параметрлері келтірілген. Оларды өзгеріссіз қалдырамыз
да, тек ... ... ... Бұл ... МБ ... ... ... үшін жол сілтейді. Жолды енгізу үшін PATH өрісін шертіп оң
жақта пайда болған ... ... ... каталогын таңдап ОК
батырмасын басамыз ... 11). Енді ... ... ... ... ... ол үшін сол жақ ... тышқанның оң жақ батырмасымен
жалған аты атын ... және Apply ... ... ... ... диалогты терезеде жалған атының өзгертулерін сақтаймыз да, ... ... ... BDE Administrator утилитінен шығуымыз керек. Содан соң ... ... ... Енді оған ... утилиттерден хабарласуға болады. Бірақ МБ
жалған аты бар каталог әлі бос. Сондықтан ... ... ... ... - ... базасының жалған аты параметрлерінің терезесі
2.3. Компоненттер палитрасы
Delphi-де ... ... үшін ... тәсіл пайдаланылған:
пайдаланушы программаларының кітапханасы ... ... ... бір ... ... ... программалар үзінділерінен
тұратын) компоненттерден жинақталады, ал олар форма терезесіне ... ... ... технологиясында нағыз төңкеріс жасады деуге
болады, себебі, компоненттерді пайдалану программа ... ... ... ... ... ... ... ( Visual
Component Library, VCL) деп атайды. ... ...... ие ... ... ... арқылы бағдарламаның
негізі қаланады. Компоненттер палитрасында келесі парақтар болады:
• Standard – жиі ... ... ... ... парақ.
Standard бетіне енгізілген кейбір ... ... MainMenu - ... мәзірін құру;
- PopupMenu - Тышқанның оң түймесін шерткен кезде ... ... ... ... Edit - ... ... ... редакциялау (мәтіндік редактор);
- Label - Бір жолдық мәтінді (жазбаны) ... Button - ... ... Оның OnClick ... ... бір іс- ... ... ScroоlBar - Басқару белдеушесі (Windows терезесіндегі сияқты).
- Frame – Туындау мүмкіндіктері бар панель. Жеке терезе ... Memo – Көп ... ... бейнелеу және енгізу үшін
қолданылады;
- Checkbox – ... ... ... қосу және ... ... ... (Қосымша) бетіне енгізілген компоненттер сұхбаттық
терезелердің көрінісін ... үшін ... BitBtn - ... ... ... ... ... жасайды;
- SpeedButton – (тез шақыру батырмасы) тек қана сурет ұстай алатын
батырманы құрады;
- StringEdit – таблицаны ... Бұл ... ... ... ... жолдар болады;
- Image – суреттер файлдарын, пиктограммалар немесе метафайлдарды
шығару үшін қолданылады;
- Bevel – үш өлшемді ... ... ... ... ... Data Access – ... қатынас.
• Qreport - есеп берулерді жедел дайындау:
- QuickRep – есеп беру;
- QRSubDetail – кестелік есеп беру;
- QRStringsBand – ... есеп ... QRBand – есеп беру ... ...... есеп беру ... QRGroup – топ;
- QRLabel – жазба;
- QRDBText – ... ... ... өрісі;
- QRExpr – мәтін;
- QRSysData – ақпараттық жүйе;
- QRMemo – көпқатарлы ... ...... мәтін;
- QRRichText – форматталған текст;
- QRDBRichText – деректер жиынтығының форматталған текст ... QRShape – ... ... QRImage – графиктік көрініс;
- QRDBImage – деректер жиынтығының графиктік көрініс өрісі;
- QRCompositeReport – құрамдық есеп беру;
- ... – есеп ... көру ... QRTextFilter – текстік фильтр;
- QRCSVFilter – SCV – фильтрі;
- QRHTMLFilter – HTNL – ... QRChart – ... ... Data Controls – ... ... және ... компоненттері:
- DBGrid – тор ( кесте );
- DBNavigator – навигациялы интерфейс;
- DBText – ... ... DBEdit – бір ... ... DBImage – ... ... DBListBox – қарапайым тізім;
- DBComboBox – қиыстырылған тізім;
- DBCheckBox – тәуелсіз ауыстырып- қосқыш;
• BDE (Borland DataBase Engine) мәліметтерге қатынас:
- DataSourse – ... көзі ;
- Table – МБ ... ... ... ... ;
- Query – SQL ... ... мәліметтер жиыны ;
- StoredProc – серверде сақталған процедураға негізі мәліметтер жиыны;
- DataBase МБ - мен ... – МБ - да ... ... сеансы .
• Timer (Таймер) – нақты уақыт аралықтарын есептеу;
• System (Жүйе) ... OLE ... және ... ... ... түрлі программалар арасында алмастыратын және
т.б. іс-әрекеттерді ... ... ... ... PaintBox (Сурет қорабы) – графикалық кескіндер енгізілген төртбұрышты
облыс құру;
• OLEContainer (OLE ...... және ... ... ... ...... құрылғылармен жұмысты басқару;
• Win32-бетіне -32-разрядты операциялық жүйелермен ... ... ... ... ;
• Animate (жандандыру, қозғалыс әсерін ұйымдастыру)-қозғалыс әсерін
ұйымдастырады. Компонент формаға орнатылған кезде ... ... ... атауын алады.
• Samples (Модель) бетіне енгізілген компоненттер:
• ColorGrid (Түстер торы) –түстер ... Ол 16 ... ... және фон ... ... Calendar ... – ағымдық күн белгіленген ай календарын ... ... Win32 ... MonthCalendar компонентін формада
орнату арқылы шығаруға болады), т.б.
• Interfase – Borland Database Engine (BDE) және Active Data ... (ADO) ... пен ... ... Midas – паралель ағымдармен деректер базасының қосымшасын тұрғызу;
• Internet Express – Internet Express қосымшаларын құру;
• Internet – Internet- пен бірге ... ... ... үшін арналған
компоненттер;
• FastNet – Internet- ке жетудің әртүрлі хаттамалары;
• Decision Cube – мәліметтерді талдау;
• Dialogs – « Файлды ашу » ... ... ... сұхбаттар;
• Win 3.1 – Windows 3.x стиліндегі компоненттер;
• Samples – аяқталмаған құжаттық компоненттер үлгілері;
• ActiveX – ActiveX- тің активті ... Servers – кең ... COM ... ... VCL ... ... ... Жалпы мағлұматтар
Delphi ортасы – бағдарламаушының жоғары әрі тиімді жұмысын қамтамасыз
ететін күрделі механизм. Ол визуалды ... бір ... ... ... жұмыс атқарады. Терезелер экранда толық ... ... бір- ... жаба отырып жылжи алады, бұл Word ... ... Exsel ... ... ... ... үйренген
қолданушының дисккомфорт сезімін оятуы мүмкін.
Delphi-дің бірінші нұсқасы 1994 жылы ... ... ... ... ... кеңейтілген 2, 3, 4, 5, 6, 7 – нұсқалары жарық көрді. 5, 6
– нұсқаулардың бір-бірінен ... жоқ ... ... ... де ... операциялық жүйесінің негізінде дайындалған. Delphi 6-да интернет үшін
қосымшаларды дайындау мүмкіндігі кеңейтілген және ... ... ... өзгешеліктер енгізілген.
Delphi-дің негізгі ерекшелігі – онда қосымша құруда компоненттік және
объектілік тәсілдер пайдаланылады. ... ... ... ... әр
қосымша арнайы іс-әрекеттерді орындайтын компоненттерден жинақталады. ... ... ... ... ... үстеме бағдарлама құрылады.
Компоненттер визуальды компоненттер кітапханасында (VCL – Visual Component
Library) ... ... ... ... кластарға тиісті
стандартты компоненттер өте көп. Пайдаланушы жаңа компонент дайындап, оны
осы панельге ... да ... ... ... ... ... ... анимация,
мультимедиа үрдістерін ұйымдастыру, OLE технологиясын пайдаланып, басқа
офистік қосымшаларды шақыру, олармен жұмыс істеу жене т.б. ... ... Delphi ... есептерді шешуге мүмкіндік береді, оның
ішінде:
• Әртүрлі ... ... ... Windows үшін ... Кез ... тілде кез келген қосымшалар үшін профессионалды
көрінетін интерфейсті тез құру. ... ... ... ... және ... ... жүйеге автоматты түрде ыңғайланады. Өйткені Windows-
тың көптеген функцияларын, кітапханаларын қолданады;
• Бағдарламалаудың басқа түрлерінде ... ... ... ... ... ... ... құру;
• Кез келген типтегі жергілікті және жойылған мәліметтер базасымен
жұмыс істеудің қуатты жүйесін құру;
... ... бар ... есеп ... құру ... ... Қосымшалардан Windows арқылы жұмыс істеуге болатын өз қосымшалары
үшін ... ... (hlp ... ... Windows- тың барлық ... және ... ... тың ... үшін ... профессионалды
бағдарламаларын құру.
Көптеген операторлардың жазылуы ... ... ... ... ... үйрену үшін объект, оқиға, ... ... ... еркін танысып, компоненттерді пайдалану және ... ... ... білу ... ... ... ... ортасы
1. Delphi 7-нің негізгі терезесі.
2. Форма (Form1).
3. Объект инспекторы терезесі (Object Inspecteor).
4. ... ... ... код ... Негізгі мәзір.
6. Аспаптар панелі.
7. Компоненттер палитрасы.
3. 2. Шақыру және жүктеу
Мәліметтер базасын ұйымдастыру үшін BDE ... – ды іске ... қосу | ... | Borland Delphi 7 | BDE Administrator;
Мәліметтер базасының кестелерін құру үшін DataBase Desktop – ты іске қосу:
Іске қосу | ... | Borland Delphi 7 | DataBase ... Windows ... іске қосу ... қосу – ... – Borland Delphi 7– Delphi ... Мәліметтер базасының дұрыстығын тексеру үшін F9 пернесі арқылы
жүктейміз.
3.3. Қажетті техникалық жабдықтар
Берілген курстық ... Delphi ... ... үшін Pentium ... ... ... ... пайдаландық.
Орындалған жұмысты қағаз бетіне түсіру HP LaserJet 1200 ... ... ... ... Кіріс мәліметтер
«Кітапхана» құжатына белгілі кітап авторын, кітаптың шыққан жылын, баспасын
және т.б. береміз.
3.5. Шығыс мәліметтер
«Кітаптар туралы мәліметтерді» құжат түрінде ... ... ... ... ... ... мен 2 кесте құрдым, олар:
❖ Kniga.db
❖ Zakaz.db
(ол кестелерді Қосымшада қарауға болады). Біздің бас формамыз құрылған 2
кестеден және 5 ... ... Әр бір ... ішкі ... бар, ... «ДБ-мен жұмыс істеу» менюі, оның ішкі менюлері «Kniga» және «Zakaz».
Мұнда біз ... ... жоя және ... ... ... менюі, оның ішкі менюлері ... ... біз ... көре ... UMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, Menus, ComCtrls, ToolWin, ImgList, ActnList;
type
TFrmMain = ... ... ... TImageList;
StatusBar1: TStatusBar;
ToolBar1: TToolBar;
TBStart: TToolButton;
TBExit: TToolButton;
ToolButton4: TToolButton;
TBKniga: TToolButton;
TBHelp: TToolButton;
N1: TMenuItem;
N2: TMenuItem;
AcClose: TAction;
AcKniga: TAction;
MMStart: TMenuItem;
MMKniga: TMenuItem;
N3: ... ... ... ... ... ... ... AcCloseExecute(Sender: TObject);
procedure AcKnigaExecute(Sender: TObject);
procedure AcHideExecute(Sender: TObject);
procedure AcHelpExecute(Sender: TObject);
procedure ... ... ... TObject; Shift: ... X,
Y: Integer);
procedure TBExitMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure TBKnigaMouseMove(Sender: TObject; Shift: TShiftState; ... ... ... TObject; Shift: ... X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure MMStartClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... UModul, UKniga, UAbout, ... ... ... ... Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, DBCtrls, StdCtrls, ... = ... ... ... ... ... ... TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBImage1: TDBImage;
DBNavigator1: TDBNavigator;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmNew: ... UKniga, ... ... ... Windows, ... Classes, ... Forms, Controls, StdCtrls,
Buttons;
type
TPasswordDlg = class(TForm)
Label1: TLabel;
Password: TEdit;
OKBtn: TButton;
CancelBtn: ... ... ... Private ... }
public
{ Public declarations }
end;
var
PasswordDlg: TPasswordDlg;
implementation
uses UMain;
{$R *.dfm}
unit UAbout;
interface
uses Windows, ... Classes, ... Forms, ... ... ... = ... ... TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
OKButton: TButton;
procedure OKButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
uses UMain;
{$R *.dfm}
unit ... Classes, DB, ... = ... ... ... ... ... TStringField;
TblKnigaName: TStringField;
TblKnigaAvtor: TStringField;
TblKnigaIaz: TStringField;
TblKnigaGodB: TIntegerField;
TblKnigaCena: TCurrencyField;
TblKnigaIzdat: TStringField;
TblKnigaPhoto: TGraphicField;
TblZakazPnZ: TAutoIncField;
TblZakazKodKn: TStringField;
TblZakazKodSh: TStringField;
TblZakazFio: ... ... ... ... TObject);
procedure DataModuleDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DMTables: TDMTables;
implementation
uses UMain, UKniga, UNew, ... ... ... ... ... ... Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses UMain;
{$R *.dfm}
unit ... ... ... ... Classes, ... ... StdCtrls, DB, DBTables, ExtCtrls;
type
TFrmFind = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations ... ... UKniga, UModul, UAbout, UBlank, ULoad, UMain, UNew, ... ... ... ... ... Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DBCtrls, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DB,
DBTables;
type
TFrmKniga = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
DBNavigator1: ... ... ... TBitBtn;
BitBtn5: TBitBtn;
Label1: TLabel;
ComboBox1: TComboBox;
Edit1: TEdit;
Button1: TButton;
procedure BitBtn2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: ... ... ... ... TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... UMain, UModul, UNew, ... *.dfm}
Қорытынды
Қорыта келгенде, мен осы курстық жұмысымды орындау барысында ... ... ... қол ... отырған, қызықты да күрделі
программа – Delphi ортасы ... ... ... ала ... бұл тілдің
басқа программалау тілдерінің ішіндегі ең ... озық ... ... сай өз ... ... өз
мүмкіншіліктері де бар ... көз ... - де ... ... мәліметтер базасын басқару жүйелері
құру, программа мәзірін құру, ... ... ... ... офистік қосымшаларды шақыру, олармен жұмыс істеу және т.б. іс-
әрекеттерді ... ... Delphi ... ... ... ... бар ... есеп берулерді құру және баспаға шығаруға мүмкіндік
береді. Сонымен қатар ғаламның түкпір- түкпіріндегі бұрышында болып ... ... ... ... ... ... болып жатқан
жетістіктерді, яғни барлық мәліметтерді бүкіл дүниежүзілік компьютер желісі
... ... ... ... осы мүмкіндіктерге одан да әрі қарай қол
жеткізуге Delphi программасы да өз үлесін қоса алады.
Delphi ... ... ... пайдалана отырып, өзіміздің
өндірістік тәжірибе жобамыздың тақырыбын ашатын мәліметтер базасын құрудық
және сол ... ... ... мен есеп ... ... ... SQL тілінде программалауды игердік.
Тоқсан ауыз сөздің тобықтай түйінін айтатын ... ... ... өте зор және ... ... кең ... күрделі
жүйелік программа болып табылады.
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
1. А.Я. Архангельский Програмирование в Delphi 7. ... ... ... ... А.Хомоненко Работа с базами данных в ... «БХВ – ... ...... ... В. Понамарев Delphi 7 Studio ... ... ... ... ... В.В.Фаронов DELPHI 5. Руководство программиста. ... ... ... Б. ... База данных. Издательство «КазНТУ», Алматы 2003
Қосымша
procedure TFrmMain.AcCloseExecute(Sender: TObject);
begin
Close;
end;
procedure TFrmMain.AcKnigaExecute(Sender: TObject);
begin
TFrmKniga.Create(Self);
MMKniga.Enabled:=false;
TBKniga.Enabled:=false;
end;
procedure TFrmMain.AcHideExecute(Sender: TObject);
begin
ActiveMDIChild.Free;
MMKniga.Enabled:=true;
TBKniga.Enabled:=true;
end;
procedure TFrmMain.AcHelpExecute(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TFrmMain.FormCreate(Sender: ... ... ... TObject; Shift: ... X,
Y: Integer);
begin
StatusBar1.Panels[1].Text:='Êíîïêà "Çàïóñê"';
end;
procedure TFrmMain.TBExitMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.Panels[1].Text:='Êíîïêà "Âûõîä"';
end;
procedure TFrmMain.TBKnigaMouseMove(Sender: TObject; Shift: TShiftState; ... ... ... ... TObject; Shift: ... X,
Y: Integer);
begin
StatusBar1.Panels[1].Text:='Êíîïêà "Î ïðîãðàììå"';
end;
procedure TFrmMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.Panels[1].Text:='Ãëàâíàÿ ôîðìà';
end;
procedure TFrmMain.MMStartClick(Sender: TObject);
begin
PasswordDlg.ShowModal;
end;
procedure TFrmMain.FormShow(Sender: TObject);
begin
Form1.ShowModal;
end;
end.
procedure TPasswordDlg.OKBtnClick(Sender: ... ... then ... ... ... ... ... TDMTables.DataModuleDestroy(Sender: TObject);
begin
TblKniga.Close;
end;
end.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not(Form1.AlphaBlendValue=255) then
Form1.AlphaBlendValue:=AlphaBlendValue+3 else
begin
Timer1.Enabled:=False;
close;
end;
end;
end.
procedure TFrmFind.Button1Click(Sender: TObject);
begin
DMTables.TblKniga.Locate('Avtor',Edit1.Text,[loCaseInsensitive,
loPartialKey]);
end;
end.
procedure TFrmKniga.BitBtn2Click(Sender: TObject);
begin
DMTables.TblKniga.Delete;
end;
procedure TFrmKniga.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
FrmMain.MMKniga.Enabled:=true;
FrmMain.TBKniga.Enabled:=true;
end;
procedure ... ... ... TObject);
begin
DMTables.TblKniga.Edit;
FrmNew.ShowModal;
end;
procedure TFrmKniga.BitBtn4Click(Sender: TObject);
begin
FrmFind.ShowModal;
end;
procedure TFrmKniga.Button1Click(Sender: TObject);
begin
DMTables.TblKniga.Filtered:=false;
DMTables.TblKniga.Filter:='(Iaz='''+Edit1.Text+''')';
DMTables.TblKniga.Filtered:=true;
end;
procedure TFrmKniga.BitBtn5Click(Sender: TObject);
begin
close;
end;
procedure TFrmKniga.ComboBox1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex ... ... ... dmtables.TblKniga.IndexName:='namefio';
end;
end;
end.

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









Ұқсас жұмыстар
Тақырыб Бет саны
"Кітапхана" деректер базасы (Delphi тілінде)14 бет
"Кітапхана" жұмысын автоматтандыру21 бет
Delphi ортасында «Кітапхана» ақпараттық жүйесін құру23 бет
Delphi ортасында кітапхана жұмысына МБ құру20 бет
Graph кітапханасын қолдану21 бет
«Кітапхана бөлімінің Мәліметтер Базасын құру(ұйымдастыру)»15 бет
Абайдың ақындық кітапханасы20 бет
Балалар кітапханаларында оқырмандарға қызмет көрсетудегі қарым-қатынас аспектілері және оны шешу жолдары88 бет
Енгізу/шығару функциялары. енгізу/шығару стандартты кітапханасы20 бет
Кітапхана жұмысын автоматтандыру14 бет


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


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

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

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

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

Email: info@stud.kz

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

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