Автобекет автобустарының жүру кестесіне мәліметтер базасын құру

Кіріспе
Есептің қойылымы
1 Есептің алгоритмі
2 Теориялық бөлім
2.1 Мәліметтер базасын құруға арналған құралдар
2.2 BDE Administrator. Мәліметтер базасын тіркеу
2.3 Database Desktop аспаптық құралында мәліметтер базасын құру
3 Программаның баяндалуы
3.1 Жалпы мағлұматтар
3.2 Функционалдық тағайындар
3.3 Логикалық структураның баяндалуы
3.4 Бағдарламаны жуктеу және іске қосу
3.5 Техникалық жабдықтар
3.6 Кіріс деректер
3.7 Шығыс деректер
4 Бақылау мысалдарының баяндалуы
Қорытынды
Пайдаланылған әдебиеттер тізімі
ҚОСЫМША А
ҚОСЫМША Ә
        
        ҚАЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ ҒЫЛЫМ ЖӘНЕ БІЛІМ МИНИСТРЛІГІ
Қ.И. Сатпаев атындағы қазақ ұлттық ... ... ... ... жобаға
ТҮСІНІКТЕМЕЛІК ЖАЗБА
Тақырыбы Автобекет автобустарының жүру кестесіне ... ... Л.Ш. ... ... _____________
“___”___________2004 ж.
Студент____Куспангалиева А.
Мамандық
370140(КЖАӨжБ)
Тобы КСУ-02-2қ
Алматы 2004
Курстық жұмысты орындауға арналған тапсырма:
Студент: Куспангалиева А.
Жұмыс тақырыбы: Автобустардың жүру ... ... ... уақыты: «___» қараша 2004 ж.
Жұмыс барысында ... ... ... ... кіріспе, жұмысты
сипаттайтын негізгі бөлім, қорытынды, қосымшалар):
Delphi ортасында мәліметтер базасын құрып үйрену, оның ... ... есеп ... істеу арқылы игеру.
Сызба материалдар саны: 0
Жұмыс жетекшісі:
Доцент Балғабаева Л. Ш. /_________/
Тапсырманы орындауға қабылдап алған студент:
Куспангалиева А. ... » ... 2004 ... ... ... ... ... бөлім
2.1 Мәліметтер базасын құруға арналған құралдар
2.2 BDE Administrator. Мәліметтер базасын тіркеу
2.3 Database Desktop аспаптық құралында ... ... ... ... ... Жалпы мағлұматтар
3.2 Функционалдық тағайындар
3.3 Логикалық структураның баяндалуы
3.4 ... ... және іске ... ... ... Кіріс деректер
3.7 Шығыс деректер
4 Бақылау мысалдарының баяндалуы
Қорытынды
Пайдаланылған әдебиеттер тізімі
ҚОСЫМША А
ҚОСЫМША Ә
КІРІСПЕ
Өндірістік қызметте қазіргі ... ... ... және ... ала білу үшін, экономика мен саясатты басқара алу ... ... және ... құралдры арқылы деректерді қабылдап,
жинастырып, сақтап және оны ... ... ... ... ... ... ... электрондық сақтаушысын мәліметтер базасы деп атайды.
Оларға қатынас, бір немесе ... ... ... ... ... ...... сақтауды және де мәліметтерге
ыңғайлы, тез кіруді ... ... ... ... ... белгілі бір
ережелерге сай құрылған деректер жиынтығын құрайды. Мәліметтер базасындағы
ақпарат қайшылықсыз, артықсыз және тұтас болуы ... ... ... жүйесі (МББЖ) өзінен тілдік және программалық құралдар жиынтығын
ұсынады, олар деректер базасын құруға және ... ... ... ... ... ... оны ... және көп қолданбалы етіп екіге
бөлеміз.
Дербес МББЖ бір ... ... ... ... деректер базасын
құруға мүмкіндік береді. Дербес МББЖ-леріне dBase, Paradox, FoxPro және ... ... бұл ... ... ... ... ... басқаруға
арналған Delphi программалау тілі болып табылады.
DELPHI құралы локальдік және клиент-серверлік деректер базасын құрып
, және оның ішінде жұмыс ... және кез ... ... ... ... ... қолданба құруға мүмкіндік береді .
DELPHI-ді кәдімгі МББЖ деп ... ... оның ... ... болмауы ( деректерді сипаттау тілі ) бөгет жасайды. Сондықтан ол
басқа МББЖ кестелік форматын қолданады. Мысалы: dBase, Paradox, ... ... та ... деп те айтуға болмайды, өйткені ... ... ... ... қабілетін көрсетті.
Есептің қойылымы
Бұл курстық жұмыста Алматы қаласының мемлекеттік және жеке меншік
автобекеттердегі автобустардың жүру ... ... ... ... ... ... Л.Ш. ... орындауға қабылдаған студент _______ Куспангалиева А.
Тапсырманы орындауға ... ... күні "___" ... 2004 ж.
Аяқталған жұмысты қорғау күні "____"___________2004ж.
1 Есептің алгоритмі
1. ... ... ... ... ... және «Станции»
объектілерін құру;
2. Таңдалған объектілерге сәйкес мәліметтерді жинау;
3. Объектілерді зерттеу және ... ... ... рөлінде болу және барлық ақпараттарды құрастыру, жүктеу.
5. Мәліметтер базасымен жұмыс істеуді ыңғайлы ету үшін ... және ... ... бойынша есеп беруді құру.
6. Мәліметтер базасымен тез, әрі эффективті ... ... ... қолда- нушы
менюін құрастыру.
7. Delphi ортасында зерттелген объектілер бойынша мәлімметтер базасын
құру.
2 Теорилық бөлім
2.1 Мәліметтер базасын құруға ... ... МБ ... ... ... ... көптеген МББЖ-
мен қатынас жасайды, жергілікті dBase Paradox және ... ... ... ... ... ... Delphi құралдарына жатады.
Аспаптық құралдар (арнайы ... және ... мен ... ненттер
МБ-да қосымшаларды құруға арналған операцияны жүзеге асырады.
Delphi ДҚ операцияларына арналған аспаптық құралдарға мыналар жатады:
- BDE ( Borland DataBase Engine )– ... ... ... ... ... және деректер базасының өзара орналасуына байланысты
деректер базасы - жергілікті ... ... және ... ... базасы
болып екіге бөлінеді.
Жергілікті мәліметтер базасы жұмыс ... ... ... қолданылады, ал қашық мәліметтер базасы жұмыс жасағанда –
клиент-серверлік қолданба ... DELPHI ... ... ... BDE (Borland DataBase Engine - Borland ... ... ... арқылы жүзеге асырады. BDE ... ... ... ... және ... ... ... BDE
деректер базасымен жұмыс істейтін барлық компьютерлерге орнатылуы тиіс.
Деректер ... BDE ... ... ... ... ... алады.
- BDE Administrator – күйге келтіруге арналған утилит.
- ... – SQL және QBE ... ... ... түзеуге
арналған программа.
- SQL Explorer – МБ жол бастаушысы, МБ параметрлерін жөндеуге ... SQL Monitor ... ... ... ... ... SQL Links – МББЖ ... программалар драйвері мыс: MS SQL Server,
Oracle.
- Data Pump – деректер базасы арасында деректерді ауыстыру программасы.
Компоненттер:
Мәліметтер ... ... ... көп ... ... Data Access, Data ... Midas, Decision Cube, QReport ... парақтарында орналасады.
BDE парағында деректерге қатынауды ... ... ... ... Table – ДБ ... ... деректер жинағы;
- Query – SQL – сұранысқа негізделген деректер жинағы;
- StoredProc – ... ... ... шақыру;
- DataBase – ДБ қосылу;
- Session – ДБ жұмысының ағымды сеансы;
- BatchMove – топ жазбалармен операцияларды орындау;
- Update – ... ... ... ... - қойылған кесте;
Data Controls парағында деректерді ... ... ... DBGrid – ... ...... ... DBText – жазба;
- DBEdit – бірқатарлы редактор;
- DBMemo – көпқатарлы редактор;
- DBImage – графиктік көрініс;
- DBListBox – қарапайым ... ...... ... ... – тәуелсіз ауыстырғыш;
- DBRadioGroup – тәуелді ауыстырғыш топтары;
- DBLookupListBox – басқа өріс ... ... ... ... – басқа өріс деректерінің комбинацияланған тізімі;
- DBRichEdit – ... ... ... ... ... – модификацияланған кесте;
- DBChart – диаграммма;
Data Access парағында деректерге қатынауды ұйымдастыратын визуалды емес
компоненттер орналасады:
- Datasource – мәліметтер ... Bitbtn – ... ... MainMenu – меню ... Label – ... ... арқылы сұраныс терезесін құрастыруға болады.
- RvProject – Rave designer терезесінде ... ... ... байланыстырады.
- RvTableConnection – сұранысты кесте арқылы құруға арналған.
- RvQueryConnection – ... ... ... BDE ... ... базасын тіркеу
ДБ орналасуын береміз. ДҚ белгілі бір компьютерде директо- рияда болуы
мүмкін.
Мына директория бөлістері ... ... ... ... ... ... ДҚ ... арналған.
Осы директорияны бөлу жолымен жасауға болады. Директорияны өзінің
компьютерде, ... ... ... ... ... ... болады,
мысалы:
1) D :\ Asel_delphi;
2) D :\ \ \…..\ Asel_delphi.
Әдеттегі мәліметтер базасының жергілікті режимде МББЖ Paradox, ... FoxPro ... ... ДҚ ... ... (немесе ДҚ кестелері).
Delphi–де ДБ тіркеуі BDE Administrator утилиттің ... ... ... ... "D :\Asel_delphi" BDE Administrator ... ... екі ... ... ... :
1. Windows жұмысшы столына тікелей :
(Пуск/Программы/Borland Delphi 7/BDE Administrator).
2. Алдымен Delphі-дің ... ... ... ... ... қатарында Delphі-дің басты менюі орналасқан.
DateBase менюін ашамыз және одан Exproler командасын ... BDE ... ... ... ... ... келесі
амалдар орындалады:
Негізгі менюден Object | New элементі таңдаймыз. Көрінген терезеде ДБ
құрылған ... ... ... ... ОК ... (1-Сурет).
Администратормен терезенің сол жағында STANDARD1 терезесін ... ... ... ... Ол үшін ДБ ... тышқанды шертіп жаңа текст
енгіземіз.
1-Сурет
2-Сурет
Оң жақ терезеде ДБ ... ... ... ... тек атын өзгертеміз. Бұл параметр ДҚ орналасқан катологқа жолды
енгізу үшін жол сілтейді.Жолды енгізу үшін PATH ... ... оң ... ... ... басып D:\Asel_delphi каталогын таңдап ОК
батырмасын басамыз (2-Сурет).
Енді псевдонимнің анықталуын есте сақтауымыз керек, ол үшін сол ... ... оң жақ ... ... атын шертеміз және Apply
элементін менюде таңдаймыз. Пайда болған диалогты терезеде ... есте ... да, ОК ... басуымыз керек.
Сонымен BDE Administrator утилитінен шығуымыз керек. Содан соң
псевдоним құру аяқталды. Енді оған ... ... ... ласуға болады.
Бірақ ДҚ псевдонимі бар каталог әлі бос мәліметтер базасының кестесін ... Database Desktop ... ... ... ... ... кестесін құру үшін Database Desktop ... ... | Borland Delphi 7| Database Desktop) ... жіберу
қажетті. Утилит жіберілуінен кейін жұмысшы псевдонимі ... ... ... ... жұмыс істейін утилит. Егер жұмысшы ... онда DBD ... ... ... ... ... отыру
керек, бұл уақытты көп алады.
Жұмысшы псевдонимін орнату үшінбас менюдан File | Working Directory
элементін ... ... және Aliases ... тізімінде псевдоним атын Zhan-
ды таңдау керек, одан кейін Ok ... басу ... ... құру үшін бас ... File | New | Table ... ... Create Table терезесінде (3-Сурет) көрінген (Paradox7)
құрылған кесте үлгісі өзгертусіз ... және Ok ... ... ... ... ... ДҚ кесте құрылымы терезесі көрінеді (3-Сурет).
3-Сурет
Кестенің ... жолы ... ... ... ... тағайындаулары
:
- Fields Name - алаң аты ;
- Type - алаң типі ;
- Size - алаң өлшемі ... ... үшін );
- Key - ... құралады, егер алаң алғашқы ... ... Егер ... ... ... алаң ... ... онда олар
алғашқы кілтте қатысудағы жүйелілікпен анықталуы тиісті. Сонымен
қатар, ... ... ... ... кіруші алаңдар, басқа
алаңдар алдында анықталу тиісті, яғни жоғары алаң тізімінде болу.
Есеп шарттарына ... ... ... барлық алаңдары толтырылауы
тиісті . Сондықтан әрбір алаңды мәндермен міндетті түрде толтыру ... ... ... ... өту үшін Required Field ... қосамы. Басқа алаңдар мағынасына шек салу үшін қызмет етеді :
- Minimum value - алаңның ең аз мәнін анықтайды
- Maximum value - ... ... ... ... ... Default value – алаң ... ... анықтайды
- Picture – алаңның бейнелеуінің шаблонын анықтайды . Шаблон құру
үшін Assist батырмасын басу Бір алаңда ... ... ... ... ... білдіреді.
Кесте үлгісі таңдалғаннан кейін кесте құрылым ... ... Table ... (кесте қасиеттері):
- Secondary Indexes – индекс тапсырмасы ;
- Validity Checks – алаң мәнін енгізуге шек қою;
- Password Security – ... ... ;
- ... ...... ... ... бүтіндігін анықтау.
Қолайлы Secondary Indexes таңдауында Define (анықтау) - Define
Secondary Indexes (екінші индексті беру) батырмасы мүмкіндіріек болады. Оң
тізімде бейнеленген және индекс ... осы ... ... алаңдары
беріледі, негізгілері келесі фактілер көмегімен өзгереді:
- Unigue – алаңдарды құратын индекске кіретін уникальді мәндер .
- Case ... – жол ... ... ... ... .
- ...... кемуі ретінде сорттау орындалады .
ОК және индексті алаң құрамы, Save IndexAs терезесі көрінеді, онда
индекс аты ... . Save As ... ... 7 ... ... типі ... ... Мәннің ... A ... ... ... ... ... N ... нүкте саны .
Money $ ... ... ... S ... сан ... ... I ... сан . ... ... # ...... жүйедегі
сан .
Date D Күн ... T ... @ Күн мен ... M ... ... шенелмеген.
Formatted F ... ... ... ... ... ... болады.
Graphic G ... ... O OLE ... ... ... L ... ... + ... ... B ... ... шенелмеген .
Bytes Y ... ... ... ... кестесінде өріс аты әріптен басталып, әріптер мен сандар
құрылуы тиіс. Өріс ... ... ... 25 ... ... ... атын бергенде пробел ," # " ," $ " символдарын қолдануға болады.
Бірақ , "." , " ! " , " | " ... ... ... ... бұл
символдар DELPHI – де басқа мақсаттарда қолданылады.
Мысал: Fio_vedushego алаңы типін анықтау үшін, Alpha таңдаймыз ... ... 25 ... көрсетеміз (4-сурет). Key бағанына ... осы алаң ... ... ... ... білдіреді. Ол үшін
мынаның клавиатурада кез келген символды ... ... ... ... Ал ... ... жазбасы кілтті құрамына енбейді.
4-Сурет
Кесте құрлымын конструкциялағаннан кейін Database ... ... ... ... орыс ... толтыру мүмкін болмауы мүмкін
онда латын алфавитін пайдалануға болады (5-Сурет).
5-Сурет
Содан соң D:\Asel_delphi каталогында құрылған кесте (Raspisanie) ... ... ... ... ... ... Кестені сақтау терезесі.
Paradox кестесінің кемшілігі болып, кестелік деректерді сақтайтын
типтік файлдардың көптігі болып ... Бір ... ... ... да бір кестенің орнын ауыстырғанда немесе ... осы ... ... ... ... ... ... ауыстыру керек .
Paradox кестесінің файлдарының келесі кеңейтінділері ... DB – ... ... ;
- MB – ... ;
- PX – негізгі индекс ;
- XG* және YG* – ... ... ;
- VAL – ... және ... ... ... ;
- TV және FAM – Database Desktop ... кестені шығару
форматы ;
3 Программаның баяндалуы
3.1 Жалпы мағлұматтар
Осы жасалған бағдарлама Borland Delphi 7.0 ... ... Borland Delphi ... Borland Software ... ... ... ... программада кесте түрінде 3 кесте, форма түрінде 2
документ және 2 есеп беру ... ... ... ... ... Юнит ... 1;
2 ... Интерфейсі;
3-5 Стандартты модульдерді қолдану;
6-45 Форма 1-ге жасалған кнопкалар, менюлер, ... dbmenu, ... ... меншіктеу;
48-51 Байланыстырылған юниттер;
52-91 Процедуралардың командалары;
92 Юнит 1 соңы.
93 Юнит номері 2;
94 Датамодуль Интерфейсі;
95-96 Стандартты модульдерді қолдану;
97-114 ... 2-ге ... ... ... ... ... ... меншіктеу;
119 Датамодуль 2 соңы.
120 Юнит номері 3;
121 Форма Интерфейсі;
122-124 Стандартты модульдерді қолдану;
125-144 Форма 3-ке ... ... мен ... ... ... Меншіктелген айнымалылар;
147-149 1-ші Юнитпен байланыстыру;
150-169 Процедуралардың командалары;
170 Юнит 3 ... Юнит ... ... ... ... Стандартты модульдерді қолдану;
176-195 Форма 4-ке енгізілген компоненталар мен процедуралар ... ... ... ... Юниттерді байланыстыру;
201-220 Процедуралардың командалары;
221 Юнит 4 соңы.
222 Юнит номері 5;
223Форма Интерфейсі;
224-226 ... ... ... ... 5-ке ... ... мен процедуралар (panel.
Bitbtn, dbgrid);
247-248 Меншіктелген айнымалылар;
249-251 Юниттерді байланыстыру;
252-271 Процедуралардың командалары;
272 Юнит 5 ... Юнит ... ... ... ... ... қолдану;
278-297 Форма 6-ға енгізілген компоненталар мен процедуралар ... ... ... ... ... Юнит 6 соңы.
304 Юнит номері 7;
305Форма Интерфейсі;
306-308 Стандартты модульдерді қолдану;
309-330 Форма 7-ге ... ... мен ... ... ... ... Юниттерді байланыстыру;
336 Форма 7 соңы
337 Юнит номері 8;
338Форма Интерфейсі;
339-342 Стандартты модульдерді қолдану;
343-356 Форма 8-ге енгізілген компоненталар мен ... ... dbgrid, ... rvproject);
357-358 Меншіктелген айнымалылар;
359-361 Юниттерді байланыстыру;
362-365 Процедуралардың командалары;
366 Форма 8 соңы.
367 Юнит номері ... ... ... Стандартты модульдерді қолдану;
373-386 Форма 9-ге енгізілген ... мен ... ... dbgrid, ... ... ... ... Юниттерді байланыстыру;
392-395 Процедуралардың командалары;
396 Форма 9 соңы.
397 Юнит номері 10;
398 Форма Интерфейсі;
399-401 Стандартты модульдерді қолдану;
402-420 Формаға 10-ға ... ... ... ... ... ... 10 ... Юнит номері 11;
427 Форма Интерфейсі;
428-430 Стандартты модульдерді қолдану;
431-448 Форма 11-ге енгізілген компоненталар (label);
449-452 Меншіктелген айнымалылар;
453 Форма 11 ... Юнит ... ... ... ... ... модульдерді қолдану;
459-470 Форма 12-ге енгізілген ... мен ... ... ... ... ... ... Процедуралардың командалары;
484 Форма 12 соңы.
3.4 Бағдарламаны жүктеу және іске ... ... үшін ... Delphi 7 ... ... ... Іске ... кейін File | open арқылы ... ... Ол үшін ... ... ... көрсетеміз.
Файл ашылғаннан кейін программаны іске қосу үшін F9 пернесін басамыз.
3.5 Техникалық жабдықтар
Курстық жоба Pentium® 3 ... XP ... ... ... жасалды (Cpu 1.0Ghz, 128 Mb ОЗУ). Орындалған жұмысты
қағаз бетіне түсіру Samsung ML-1200 баспа құрылғысы арқылы жүзеге ... ... ... ... «Автобусы», «Расписание» және «Станции» кестелері
жатады. (Қосымша Ә-1, Ә-2, Ә-3-тен көруіңізге болады).
3.7 ... ... ... ... ... ... «Билет» және «Водитель»
документтері мен ... ... және ... ... есеп беру кестелері
жатады. (Қосымша Ә-4, Ә-5, Ә-6, Ә-7 ... ... ... ... 1 ... меню құрамыз. Меню «Работа с БД»,«Документы»,
«Статистика», «О программе» және ... ... ... ... ... с БД» ... 3 ... енгізілген (Қосымшада Ә-9 қараңыз).
Олар: автобусы, расписание, станции. Ол жерден керек ... ... ... ... ... Яғни ... ... жазба қосуға,
жазбаны өзгертуге және оны өшіруге болады. Жасалған ... ... ... ... Ә-10, Ә-11, Ә-12 ... менюіне «Билет» және «водител» атты 2 документ енгізілді.
(Қосымша Ә-4, Ә-5, Ә-13 ... ... ... ... ... сатылған
билеттерден түскен ақшаның көлемі ... және сол ... ... саны ... есеп беру ... Олар
сәйкесінше «Сумма денег» және «количество ... деп ... ... ... Ә-16 қараңыз).
«О программе» менюінде ... ... ... ... және
программаны құрастырған студент жайлы мәліметтер ... ... Ә-18, Ә-19 ... ... ... ... ... жабуға болады. Ол үшін
«Выход» менюін астындағы «Закрыть программу» подменюін ... ... ... ба ... ... ... Онда «ия» және ... деген екі
батырма болады. «Ия» батырмасын басып бағдарламадан шығамыз. (Қосымша Ә-20,
Ә-21 қараңыз).
ҚОРЫТЫНДЫ
Осы курстық жұмыста DELPHI ... ... ... ... ... үйрендім. DELPHI құралы үлкен бір программалық орта
болып саналады. Соған қарамастан DELPHI ... ... ... онша қиын
емес және де өте қолайлы. DELPHI – ... ... ... ... да, ... ... жұмыс істегенде жоғарғы дәрежеде жұмыс
істейді. Реляциялық және локальді деректер ... ... ... дің ... ... өте көп .
Қазіргі кезде DELPHI құралының мүмкіншіліктері күннен – ... ... күні DELPHI – дің ... деректер базасын интернетте де
жариялауға болады.
Өмір сүріп жатқан ғасырымыз ... ... ... кез ... программалаушы болашақта өз мамандығының алдынғы
қатарлы маманы болғысы келсе ... ... ... ... ... ... қосымша түрлі күрделі программалау тілдерін де ... ... ... ... ... ... әрбір программалаушы үшін DELPHI құралын білген ... әрі ... деп ... ... ... Гофман В.Э., Хомоненко А.Д. Работа с базами данных в DELPHI.
Санкт – Петербург: БХВ – Петербург, 2000.
2. Епанешников А.М., ... В.А. DELPHI база ... ...... ... ... В.В. DELPHI 5 . Руководство программиста . М.:
Нолидж, 2001.
4. ... А.Д., ... В. В. Delphi для ... ... ...... 2000.
5. А.Я. Архангельский Програмирование в Delphi 7.
Издательство «Бином», ... 2004 ... ... unit Unit1;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
5. Dialogs, Menus, DBCtrls, Grids, DBGrids, ExtCtrls;
6. type
7. TForm1 = ... Panel1: ... Panel2: ... Panel3: ... DBGrid1: ... DBGrid2: ... DBGrid3: ... DBNavigator1: TDBNavigator;
15. MainMenu1: TMainMenu;
16. N1: TMenuItem;
17. N2: TMenuItem;
18. N3: ... N4: ... N5: ... N6: ... N7: ... N8: ... N9: ... N10: TMenuItem;
26. N11: TMenuItem;
27. N12: TMenuItem;
28. N13: TMenuItem;
29. N14: TMenuItem;
30. N15: TMenuItem;
31. procedure N2Click(Sender: TObject);
32. procedure ... ... ... ... ... ... ... TObject);
35. procedure N7Click(Sender: TObject);
36. procedure N9Click(Sender: TObject);
37. procedure N10Click(Sender: TObject);
38. procedure N12Click(Sender: TObject);
39. procedure N13Click(Sender: TObject);
40. ... ... ... ... { Private ... }
ҚОСЫМША А
(жалғасы)
43. public
44. { Public declarations }
45. end;
46. ... Form1: ... ... uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, ... Unit11, ... {$R ... ... TForm1.N2Click(Sender: TObject);
53. begin
54. form3.Show;
55. end;
56. procedure TForm1.N3Click(Sender: TObject);
57. begin
58. form4.show;
59. end;
60. procedure TForm1.N4Click(Sender: TObject);
61. begin
62. form5.Show;
63. end;
64. procedure ... ... ... ... ... ... TForm1.N7Click(Sender: TObject);
69. begin
70. form7.show;
71. end;
72. procedure TForm1.N9Click(Sender: TObject);
73. begin
74. form9.Show;
75. end;
76. procedure TForm1.N10Click(Sender: TObject);
77. ... ... ... procedure TForm1.N12Click(Sender: TObject);
81. begin
82. Form10.Show;
83. end;
84. procedure TForm1.N13Click(Sender: TObject);
ҚОСЫМША А
(жалғасы)
85. begin
86. form11.Show;
87. ... ... ... ... ... form12.Show;
91. end;
92. end.
93. unit Unit2;
94. interface
95. uses
96. ... Classes, DB, ... ... ... = ... Database1: TDatabase;
100. Table1: TTable;
101. Table2: TTable;
102. Table3: TTable;
103. DataSource1: TDataSource;
104. DataSource2: TDataSource;
105. DataSource3: TDataSource;
106. Query1: TQuery;
107. DataSource4: TDataSource;
108. Query2: ... ... ... ... { Private declarations }
112. public
113. { Public declarations }
114. ... ... ... ... ... {$R ... ... unit Unit3;
121. interface
122. uses
123. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
ҚОСЫМША А
(жалғасы)
124. Dialogs, StdCtrls, Buttons, Grids, DBGrids, ... ... TForm3 = ... Panel1: TPanel;
128. Panel2: TPanel;
129. DBGrid1: TDBGrid;
130. BitBtn1: TBitBtn;
131. BitBtn2: ... BitBtn3: ... BitBtn4: ... BitBtn5: ... ... ... ... procedure BitBtn2Click(Sender: TObject);
137. procedure BitBtn3Click(Sender: TObject);
138. procedure BitBtn4Click(Sender: TObject);
139. procedure BitBtn5Click(Sender: TObject);
140. private
141. { Private ... ... ... { Public ... ... ... var
146. Form3: TForm3;
147. implementation
148. uses Unit2;
149. {$R *.dfm}
150. procedure TForm3.BitBtn1Click(Sender: TObject);
151. begin
152. ... ... ... ... TObject);
155. begin
156. datamodule2.Table1.Edit;
157. end;
158. procedure TForm3.BitBtn3Click(Sender: TObject);
159. begin
160. if messagedlg ('Удалить запись?',mtconfirmation,[mbyes,mbno],0)=mryes
then datamodule2.table1.Delete;
161. end;
162. procedure TForm3.BitBtn4Click(Sender: TObject);
163. ... ... if ... ... ... end;
166. procedure TForm3.BitBtn5Click(Sender: TObject);
167. begin
168. form3.Close;
169. end;
170. end.
171. unit Unit4;
172. interface
173. uses
174. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
175. Dialogs, ... Buttons, Grids, DBGrids, ... ... TForm4 = ... Panel1: ... Panel2: ... DBGrid1: TDBGrid;
181. BitBtn1: TBitBtn;
182. BitBtn2: TBitBtn;
183. BitBtn3: TBitBtn;
184. BitBtn4: TBitBtn;
185. BitBtn5: TBitBtn;
186. ... ... ... procedure BitBtn2Click(Sender: TObject);
188. procedure BitBtn3Click(Sender: TObject);
189. procedure BitBtn4Click(Sender: TObject);
190. procedure BitBtn5Click(Sender: TObject);
191. private
192. { Private declarations }
193. public
194. { Public ... ... ... ... Form4: ... ... uses ... {$R *.dfm}
201. procedure TForm4.BitBtn1Click(Sender: TObject);
ҚОСЫМША А
(жалғасы)
202. begin
203. datamodule2.Table2.Insert;
204. end;
205. procedure TForm4.BitBtn2Click(Sender: TObject);
206. begin
207. datamodule2.Table2.Edit;
208. ... ... ... ... ... if messagedlg ('Удалить запись?',mtconfirmation,[mbyes,mbno],0)=mryes
then datamodule2.table2.Delete;
212. end;
213. procedure TForm4.BitBtn4Click(Sender: TObject);
214. begin
215. if messagedlg ('Сохранить
запись?',mtconfirmation,[mbyes,mbno],0)=mryes then
datamodule2.table2.post;
216. end;
217. procedure ... ... ... ... ... end.
222. unit Unit5;
223. interface
224. uses
225. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
226. Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;
227. type
228. TForm5 = ... Panel1: ... Panel2: ... DBGrid1: ... BitBtn1: ... BitBtn2: ... BitBtn3: ... BitBtn4: TBitBtn;
236. BitBtn5: TBitBtn;
237. procedure BitBtn1Click(Sender: TObject);
ҚОСЫМША А
(жалғасы)
238. procedure BitBtn2Click(Sender: TObject);
239. ... ... ... ... ... ... procedure BitBtn5Click(Sender: TObject);
242. private
243. { Private declarations }
244. public
245. { Public ... ... ... ... Form5: ... implementation
250. uses Unit2;
251. {$R *.dfm}
252. procedure TForm5.BitBtn1Click(Sender: ... ... ... ... ... TForm5.BitBtn2Click(Sender: TObject);
257. begin
258. datamodule2.Table3.Edit;
259. end;
260. procedure TForm5.BitBtn3Click(Sender: ... ... if ... ... запись?',mtconfirmation,[mbyes,mbno],0)=mryes
then datamodule2.table3.Delete;
263. end;
264. procedure TForm5.BitBtn4Click(Sender: TObject);
265. begin
266. if messagedlg ('Сохранить
запись?',mtconfirmation,[mbyes,mbno],0)=mryes then
datamodule2.table3.post;
267. end;
268. ... ... ... ... ... ... end.
273. unit Unit6;
274. interface
ҚОСЫМША А
(жалғасы)
275. uses
276. Windows, ... ... ... Classes, ... Controls,
Forms,
277. Dialogs, StdCtrls, Mask, DBCtrls;
278. type
279. TForm6 = class(TForm)
280. Label1: TLabel;
281. DBEdit1: TDBEdit;
282. DBEdit2: TDBEdit;
283. DBEdit3: TDBEdit;
284. DBEdit4: TDBEdit;
285. DBEdit5: ... DBEdit6: ... Label2: ... Label3: TLabel;
289. Label4: TLabel;
290. Label5: TLabel;
291. Label6: TLabel;
292. Label7: TLabel;
293. private
294. { Private declarations }
295. public
296. { Public declarations ... ... ... Form6: ... implementation
301. uses Unit2;
302. {$R *.dfm}
303. end.
304. unit Unit7;
305. interface
306. uses
307. Windows, Messages, SysUtils, Variants, Classes, ... ... Dialogs, ... Mask, ... ... TForm7 = ... Label1: ... DBEdit1: TDBEdit;
313. DBEdit2: TDBEdit;
ҚОСЫМША А
(жалғасы)
314. DBEdit3: TDBEdit;
315. DBEdit4: ... DBEdit5: ... DBEdit6: ... DBEdit7: ... Label2: TLabel;
320. Label3: TLabel;
321. Label4: TLabel;
322. Label5: TLabel;
323. Label6: TLabel;
324. Label7: TLabel;
325. Label8: TLabel;
326. private
327. { Private ... ... ... { Public ... }
330. end;
331. var
332. Form7: TForm7;
333. implementation
334. uses Unit2;
335. {$R *.dfm}
336. end.
337. unit Unit8;
338. interface
339. ... Windows, ... ... ... Classes, ... ... Dialogs, RpRave, ... RpCon, RpConDS, RpConBDE, Grids, DBGrids,
342. StdCtrls, Buttons, ExtCtrls;
343. type
344. TForm8 = class(TForm)
345. Panel1: TPanel;
346. Panel2: TPanel;
347. BitBtn1: ... DBGrid1: ... ... ... RvProject1: TRvProject;
351. procedure BitBtn1Click(Sender: TObject);
352. private
ҚОСЫМША А
(жалғасы)
353. { Private declarations }
354. public
355. { Public declarations ... ... ... Form8: TForm8;
359. implementation
360. uses Unit2;
361. {$R *.dfm}
362. procedure TForm8.BitBtn1Click(Sender: TObject);
363. begin
364. rvproject1.Execute;
365. end;
366. end.
367. unit Unit9;
368. interface
369. uses
370. Windows, ... ... ... Classes, ... ... Dialogs, RpRave, ... RpCon, RpConDS, ... StdCtrls,
Buttons,
372. Grids, DBGrids, ExtCtrls;
373. type
374. TForm9 = class(TForm)
375. Panel1: TPanel;
376. Panel2: TPanel;
377. DBGrid1: TDBGrid;
378. BitBtn1: ... ... ... ... TRvProject;
381. procedure BitBtn1Click(Sender: TObject);
382. private
383. { Private declarations }
384. public
385. { Public ... ... ... var
388. Form9: TForm9;
389. implementation
390. uses Unit2;
391. {$R *.dfm}
ҚОСЫМША А
(жалғасы)
392. procedure TForm9.BitBtn1Click(Sender: TObject);
393. ... ... ... end.
397. unit Unit10;
398. interface
399. uses
400. Windows, Messages, SysUtils, ... Classes, ... ... Dialogs, ... ... TForm10 = class(TForm)
404. Label1: TLabel;
405. Label2: TLabel;
406. Label3: TLabel;
407. Label4: TLabel;
408. Label5: TLabel;
409. Label6: ... Label7: ... Label8: ... Label9: ... Label10: ... Label11: ... Label12: ... private
417. { Private declarations }
418. public
419. { Public declarations }
420. end;
421. var
422. Form10: ... ... {$R ... ... unit ... interface
428. uses
429. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
ҚОСЫМША А
(жалғасы)
430. Dialogs, StdCtrls;
431. ... TForm11 = ... Label1: ... Label2: ... Label3: ... Label4: TLabel;
437. Label5: TLabel;
438. Label6: TLabel;
439. Label7: TLabel;
440. Label8: TLabel;
441. Label9: TLabel;
442. Label10: TLabel;
443. Label11: TLabel;
444. private
445. { Private declarations ... ... { Public ... ... ... ... Form11: ... implementation
452. {$R *.dfm}
453. end.
454. unit Unit12;
455. interface
456. uses
457. Windows, Messages, SysUtils, Variants, Classes, Graphics, ... Dialogs, ... ... TForm12 = ... Label1: ... Button1: TButton;
463. Button2: TButton;
464. procedure Button1Click(Sender: TObject);
465. procedure Button2Click(Sender: TObject);
466. private
467. { Private declarations }
468. public
469. { Public declarations ... ... ... Form12: TForm12;
473. implementation
474. uses Unit1;
475. {$R *.dfm}
476. ... ... ... ... ... ... procedure TForm12.Button2Click(Sender: TObject);
481. begin
482. form12.Close;
483. end;
484. end.
ҚОСЫМША Ә
Ә-1
Ә-2
Ә-3
ҚОСЫМША Ә
(жалғасы)
Ә-4
Ә-5
ҚОСЫМША Ә
(жалғасы)
Ә-6
Ә-7
ҚОСЫМША Ә
(жалғасы)
Ә-8
Ә-9
Ә-10
ҚОСЫМША Ә
(жалғасы)
Ә-11
Ә-12
Ә-13
Ә-14
Ә-15
Ә-16
ҚОСЫМША Ә
(жалғасы)
Ә-17
Ә-18
ҚОСЫМША Ә
(жалғасы)
Ә-19
Ә-20
Ә-21

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









Ұқсас жұмыстар
Тақырыб Бет саны
Қазіргі қазақ жарнамаларының тілдік ерекшеліктері5 бет
Кітапхана қоры негізінде мәліметтерге BDE технологиясы арқылы қатынау40 бет
СУБД Access-те деректер базасын құру және оны өңдеу9 бет
Microsoft Access арқылы деректер базасын құру12 бет
Microsoft Access жүйесінің мәліметтер базасын жобалау7 бет
Ms access-деректер базасын басқару жүйесі50 бет
Mіcrosoft Access арқылы деректер базасын құру туралы16 бет
SQL тілінде деректерді өңдеудің негізгі операторлары. Деректер базасын құру13 бет
SQL-дің жүйелік құрылым және мәліметтер базасында қолданылуы20 бет
«Kazzinc» АҚ Өскемен МК базасында «Special high grade» маркалы катодтық мырыш өндіру цехын жобалау54 бет


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


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

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

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

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

Email: info@stud.kz

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

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