Кестені сақтау терезесі

 ҚАЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ ҒЫЛЫМ ЖӘНЕ БІЛІМ МИНИСТРЛІГІ
Қ.И. Сәтбаев атындағы Қазақ ұлттық техникалық университеті
Техникалық кибернетика кафедрасы
Курстық жұмысқа
ТҮСІНДІРМЕ ЖАЗБА
Тақырыбы Турагенстволар
Жетекші
_________________________
Доцент Л. Ш. Балғабаева
«__» _________________2004ж.
Норма бақылаушы
_________________________
Доцент Л.Ш. Балғабаева
«__» _________________2004ж.
Студент ____Құрманова А.Н.
Мамандығы 370140 (АӨБКЖ)
Тобы КСУ-02-02қ
Алматы 2004
МАЗМҰНЫ
КІРІСПЕ.................................................................................................................3
1 Есептің қойылымы...........................................................................................4
2 Есептің алгоритмі.............................................................................................5
3 Теориялық бөлім ..............................................................................................6
3.1 BDE Administrator ................................................................………….....7
3.2 Database Desktop .......................................................................................8
3.3 Компоненттер палитрасы .......................................................................17
4 Программаның баяндалуы..............................................................................22
4.1 Жалпы мағлұмат.......................................................................................22
4.2 Функционалдық тағайындалуы ..............................................................23
4.3 Логикалық құрылымның баяндалуы......................................................24
4.4 Шақыру және жүктеу..............................................................................25
4.5 Қажетті техникалық жабдықтар ............................................................25
4.6 Кіріс мәліметтер ......................................................................................26
4.7 Шығыс мәліметтер .................................................................................26
5 Бақылау мысалдарын баяндау......................................................................26
ҚОРТЫНДЫ........................................................................................................27
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ.....................................................28
Қосымша А........................................................................................................29
Қосымша Ә........................................................................................................41
Курстық жұмысты орындауға арналған тапсырма:
Студент: Құрманова А.Н.
Жұмыс тақырыбы: Турагенстволар
Аяқталған жұмысты тапсыру уақыты: «___» қараша 2004
Жұмыс барысында қолданылатын бастапқы мәліметтер (мазмұны, жұмысты сипаттайтын
Delphi ортасында мәліметтер базасын құрып үйрену, оның мүмкіндіктерін
Сызба материалдар саны: 0
Жұмыс жетекшісі:
Доцент Балғабаева Л. Ш. /_________/
Тапсырманы орындауға қабылдап алған студент:
Құрманова А.Н. /_________/
« » қараша 2004
Кіріспе
Әртүрлі ұйымдардың табысты жұмыс жасауы үшін ақпаратты жүйенің
Мәліметтер базасы деп, деректердің электрондық сақтаушысын айтады. Оларға
Мәліметтер базасы – ақпаратты сақтауды және де мәліметтерге
қайшылықсыз
артықсыз
тұтас
болуы керек.
Мәліметтер базасын басқару жүйесі деректер базасын құруға, толтыруға,
DELPHI жүйесі деректер базасын басқару жүйесі болып табылмайды,
Локальді МББЖ барлық бөліктері қолданушы компьютерінің деректер базасында
Тораптық МББЖ-ге файл-серверлік, клиент-серверлік, бөлінген МББЖ-лар жатады. Осы
Көпқолданбалы МББЖ ақпараттық жүйе құруға мүмкіндік береді. Көпқолданбалы
DELPHI-ді кәдімгі МББЖ деп айтуға, оның өзінің кестелік
1 ЕСЕПТІҢ ҚОЙЫЛымы ЛОРгшщзшг
“Мәліметтер базасы” пәні бойынша курстық жұмысқа
Тақырыбы: “Турагенстволар”
“Турагенстволар” пәндік облысында жұмыс жасауға мүмкіндік беретін қосымша
Жұмыс жетекшісі _________ Л.Ш. Балғабаева
Жұмысты орындауға қабылдаған студент _______ Құрманова А.Н.
Тапсырманы орындауға қабылдап алған күні "___" ___________ 2004
Аяқталған жұмысты қорғау күні "____"___________2004ж.
2 ЕСЕПТІҢ АЛГОРИТМІ
Берілген тақырыбымызды ашатын “Турагенства”, “Сервис” объектілерін таңдау;
Таңдалған объектілерге сәйкес мәліметтер жинау;
Объектілердің қасиеттерін зерттеп, (турагенствоның аты, туры, елі,
Зерттелген ортаны сипаттайтын “Путевка”, “Билет” құжаттарын дайындау;
Объектілердің статистикалық мәліметтері бойынша “Путевканың орташа бағасы”, “Онбескүндік
Delphi ортасында зерттелген “Турагенство”, “Сервис” объектілері арқылы
3 Теориялық бөлім
3.1 BDE Administrator
Құрылатын мәліметтер базасы компьютердің директориясында болуы керек.
Paradox, dBase және FoxPro форматында құрылған МБ-сы
МББЖ технологиясында МБ атауына псевдоним беріледі, сонда
BDE Administrator утилиті Delphi – мен
МБ – құруда алғашқы қадам компьютердің С:\ немесе
басталады.
Delphi –де МБ тіркеуі BDE Administrator утилитінің
BDE Administrator екі варианттың қолдауында жүреді
Windows жұмысшы столына тікелей :
Пуск / Программы / Borland Delphi 6/ BDE
2. Алдымен Delphі-дің негізгі модулі жіберіледі, ол экранның
DateBase менюін ашамыз және одан Exproler командасын таңдаймыз.
Негізгі менюден Object | New элементін таңдаймыз. Көрінген
Сурет 1- Мәліметтер базасының драйвер типін таңдау терезесі
Оң жақ терезеде МБ параметрлері келтірілген. Оларды өзгеріссіз
Сонымен BDE Administrator утилитінен шығуымыз керек. Содан
Сурет 2 – Мәліметтер базасының псевдоним параметрлерінің
3.2 Database Desktop
Мәліметтер базасының кестелерін құру үшін Database Desktop
Жұмысшы псевдонимін орнату үшін бас менюдан File
Сурет 3 – Database Desktop утилиті: МБ кестесінің
Сурет 4 – Өріс алаңын таңдау
"Турагенства" кестесіне кіруші өрістерін анықтаймыз. Field Name бағанасына
СУБД Paradox барлық мүмкін типтері Сурет 4
Paradox пішімінің өрістер типі.
Alpha – кез келген басылатын символдан тұратын, ұзындығы
Number – мағынасы оң және теріс болуы мүмкін,
$ Money - мағынасы оң және теріс болуы
Short – тек қана - 32768- ден
Long Integer – -2147483648- ден 2147483648- ге
# BCD – BCD (Binary Coded Decimal) пішімінің
Date – біздің заманымызға дейінгі 9999- шы
Time – миллисекундтан түнжарымына дейінгі уақыттан тұратын және
@ Timestamp – уақыт пен даталардан тұратын, ұзындығы
Memo – ұзындықтарының қосындысы 255 байттан аспайтын және
Formatted Memo – бұл Memo- ға өте
Binary – кез келген екілік мәліметтерден тұратын өріс.
Bytes – кез келген деректерден тұратын, ұзындығы
dBase пішімінің кестелер өрісі келесідей өрістерді қабылдауы мүмкін:
Character (Alpha) – кез келген баспалық символдардан тұратын,
Float (Numeric) – мәндері оң және теріс болуы
Number (BCD) – BCD пішіміндегі деректерден тұратын өлшемі
Date – ұзындығы 8 байттық даталар өрісі. Келісім
Memo – ұзындықтарының жалпы қосындысы 255 байттан аспайтын
OLE - өзінің өңделуі кезінде өзін құраған қолданбаларды
Binary – кез келген екілік мәліметтерден тұратын өріс.
InterBase пішімінің кестелер өрісі төмендегідей типтерді қабылдауы мүмкін:
Short – тек қана -32768-ден 32767-ге дейінгі
Long – -2147483648-ден 2147483648-ге дейінгі диапазонындағы
Float – мәндері оң және теріс болуы мүмкін,
Double – мәндері оң және теріс болуы мүмкін,
Array – деректер жиымдарынан тұратын өріс. InterBase 16-лық
TextBlob – тек қана мәтіндік мәліметтерден тұратын Blob
Назв-Турагенства өрісінің типін анықтау үшін, Alpha таңдаймыз
Кесте-мастері алғашқы кілтіпен индекстеледі. Турагенства кестесінің
Сурет 5 – Турагенства кестесінің құрылымын
Есеп шарттарына сәйкес берілген кестенің барлық өрістері
Minimum value - өрістің ең аз мәнін анықтайды;
Maximum value - өрістің барынша үлкен мәнін анықтайды;
Default value – өріс мәнін келісім бойынша анықтайды
Picture – өрістің бейнелеу шаблонын анықтайды . Шаблон
Кесте құрлымын конструкциялағаннан кейін Database Desktop-та кестені толтыруға
Содан соң D:\Проект каталогында құрылған кесте (Турагенства)
Сурет 6 - Кестені сақтау терезесі
Құрылған кесте реструктурлануы. Егер МБ бар кестелерге
Біз DBD-дан (бірнеше жазбаға өзгеріс енгізіп немесе өшіргіміз
Кесте құрлымын өзгерткіміз келсе Table|Restructure меню элементін таңдаймыз.
Кесте деталі болып табылатын "Сервис" екінші кестесінің құрылымын
Сурет 8 - Тураенства кестесінің құрылымы
Барлық өрістерге Тур өрісінен басқасына Required атрибутін тағайындаймыз,
“Назв-Турагенства” өрісіне индекс құрамыз. Ол үшін біз қиылысатын
Сурет 10 - Терезенің оң жағына Secondary
болады
Жаңа индексті анықтау үшін , Define батырмасын басамыз.
Сурет 11 - Индекс құрамына кіретін өрістерді анықтау
Көрінген терезеде индекс аты сұралады (Сурет 12). Атын
Сурет 12 - Индексті сақтау терезесі
Индекс атын өріс атымен қою рұқсат етілмейді.
Сурет 12 – де көрсетілген, жаңа индексті
Сурет 13 - Сервис кестесі үшін анықталған
Индекс аты бойынша шертіп , біз оны
Енді МБ -н кестеден тұтас конструкциялаймыз. Олардың
Paradox –те сілтемелік бүтінділік, біріншіден кесте арасындағы байланысты
Prihod кестесін ( элемент File менюі |
Сурет 14 - Сілтемелік бүтіндікті құруға арналған
Tables тізімінде Сервис кестесін таңдаймыз және сол жақ
Update rules айырып қосқыштар Турагенства кестесінде жазбаларды жою
Cascade – Сервис кестесінде бағынышты жазуларды жою немесе
Prohibit - Сервис кестесінде жазбаны жою немесе байланыс
Сурет 15 - Сілтемелік бүтіндік шартын анықтау
Paradox –те атау сұралып –сілтегішті бүтіндік аталынады. Атын
Турагенства (Save кнопкасын) кестесіндегі өзгерістерді сақтап, Сервис
Осымен МБ процесін құруы аяқталады, реструктуризациялау режимінен жылжыуымызға
3.3 Компоненттер палитрасы
Delphi-де программа дайындау үшін компоненттік тәсіл пайдаланылған: пайдаланушы
Компоненттер кітапханасын визуальды компоненттер кітапханасы ( Visual Component
Компоненттер палитрасында келесі парақтар болады:
Standard – жиі қолданылатын құраушылардан тұратын стандартты парақ.
Сурет 16 – Standard бетіне енгізілген компоненттер
Frame – Туындау мүмкіндіктері бар панель. Жеке терезе
MainMenu - Программа мәзірін құру. Ол программаға меню
PopupMenu - Windows-тың әрбір дұрыс құрылған қолданбасында
Label – Бұл визуалды компонент формада тек қана
Edit – Жолдық мәнді енгізу, редакциялау (мәтіндік редактор);
Memo – Көп жолдық мәтіндерді бейнелеу және енгізу
Button - Командалық түйме. Оның OnClick оқиғасын өңдеуіш
Checkbox – Қолданушыға әртүрлі операцияларды қосу және өшіруге
RadioButton – Жалаушадан өзгешелігі айырып-қосқыш мүмкіндіктер қатарынан бір
ListBox – Тізім компоненті тізімдегі бір немесе бірнеше
ComboBox – тізімнің таңдалған элементін көрсететін қщсымша өрісі
ScroоlBar – Басқару белдеушесі (Windows терезесіндегі сияқты);
GroupBox – Формадағы байланыстары бар топтар опцияларына арналған
RadioGroup - Форманың үстіне радио батырмаларын
Panel – Форманың үстіне басқа компоненттерді қамтитын панельдерді
ActionList – Бұл компонент бағдарлама көптеген өңдеген кезде
Data Access – Мәліметтерге қатынас, мәліметтер базаларының және
Сурет 17 - Data Access бетіне енгізілген компоненттер
DataSource – Мәліметтерді көрсететін компоненттермен Table және Query
ClientDataSet – Жадыда мәліметтерді көрсетеді;
DataSetProvider – Тасымалдау үшін қолданылады;
XMLTransform – XML құжаттарды жадыға немесе жадыны XML
XMLTransformProvider – Алдыңғы операторлар сияқты , тек XML
XMLTransformClient – XML құжатын provider-ге ауыстырады;
Data Controls – Мәліметтерді редакциялау және бейнелеу компоненттері;
Сурет 18 - Data Controls бетіне енгізілген компоненттер
DBGrid – тор ( кесте );
DBNavigator – навигациялы интерфейс;
Text – мәтінді жазу;
DBEdit – бір жолдық редактор;
DBMemo – жазбаның екілік өрісінің құрамы көрсетіледі.
DBImage – графикалық бейне;
DBListBox – қарапайым тізім;
DBComboBox – қиыстырылған тізім;
DBCheckBox – тәуелсіз ауыстырып- қосқыш
DBRadioGroup - шектеулі түрде өріс мәндерінің топтарын шығаруға
LookupListBox – Тізімнің өрістен жаңа мәнін таңдауға арналған;
LookupComboBox – Ашылатын тізім мәндерінен өрістің мәнін таңдауға
DBRichEdit – Екілік өрістің құрамын форматталған мәтін түрінде
DBCtrlGrid – Жазбалар кестесі;
DBChart – мәліметтер негізінде графиктер мен диаграммалар тұрғызады;
BDE (Borland DataBase Engine) мәліметтерге қатынас:
Сурет 19 - BDE (Borland DataBase Engine) бетіне
Table – МБ кестесіне негізделген мәліметтер жиыны
Query – SQL сұрауына негізделген мәліметтер жиыны ;
StoredProc – серверде сақталған процедураға негізі мәліметтер
DataBase – МБ - мен байланысуы;
Session – Кез ө келген колданбаға стандартты сеанс
BatchMove – Жазбалар тобында және кестемен жұмыс істейді;
UpdateSQL – Деректер жиынына жаңа мәлімет енгізу;
NestedTable – Бір жазба өрісіне кесте салады.
Qreport - есеп берулерді жедел дайындау:
- QuckRep – есептеу;
- QRSubDetail – байланысқан кестелерге арналған есеп
- QRBand – есеп беру жолағы;
- QRGroup – топ;
- QRLabel – мәлімет жазу;
Timer (Таймер) – нақты уақыт аралықтарын есептеу;
System (Жүйе) бетіне OLE (байланыстыру және орнату) течнологиясы
PaintBox (Сурет қорабы) – графикалық кескіндер енгізілген төртбұрышты
OLEContainer (OLE контейнер) – байланыстыратын және орнатылатын объектілерді
MediaPlayer – Мультимедиалық құрылғылармен жұмысты басқару;
Win32-бетіне -32-разрядты операциялық жүйелермен жұмыс жасауға арналған компонентер
Animate (жандандыру, қозғалыс әсерін ұйымдастыру)-қозғалыс әсерін ұйымдастырады. Компонент
Samples (Модель) бетіне енгізілген компоненттер:
ColorGrid (Түстер торы) –түстер кестесі. Ол 16 түстік
Calendar (Календарь) – ағымдық күн белгіленген ай календарын
Interfase – Borland Database Engine (BDE) және Active
Midas – паралель ағымдармен деректер базасының қосымшасын тұрғызу;
Internet Express – Internet Express қосымшаларын құру;
Internet – Internet- пен бірге жұмыс істейтін қосымшалар
FastNet – Internet- ке жетудің әртүрлі хаттамалары;
Decision Cube – мәліметтерді талдау;
Dialogs – « Файлды ашу » типіндегі сұхбаттар,
Win 3.1 – Windows 3.x стиліндегі компоненттер;
Samples – аяқталмаған құжаттық компоненттер үлгілері;
ActiveX – ActiveX- тің активті элементтері;
Servers – кең таралған COM серверлеріне арналған VCL
Additional (Қосымша) бетіне енгізілген компоненттер сұхбаттық терезелердің көрінісін
4 Программаның баяндалуы
4.1 Жалпы мағлұматтар
Delphi ортасы – бағдарламаушының жоғары әрі тиімді жұмысын
Delphi-дің бірінші нұсқасы 1994 жылы жарыққа шығып, кейінгі
Delphi-дің негізгі ерекшелігі – онда қосымша құруда компоненттік
Delphi-де программа дайындау, программа мәзірін құру, анимация, мультимедиа
Әртүрлі бағыттағы аяқталған қосымшаларды Windows үшін құру;
Кез келген тілде кез келген қосымшалар үшін профессионалды
Бағдарламалаудың басқа түрлерінде қолдануға болатын функция, форма, компоненттердің
Кез келген типтегі жергілікті және жойылған мәліметтер
Кестелері, графиктері бар күрделі есеп берулерді құру және
Қосымшалардан Windows арқылы жұмыс істеуге болатын өз қосымшалары
Windows- тың барлық талаптарын және спецификасын ескеретін
Көптеген операторлардың жазылуы Турбо Паскальдағы сияқты. Бірақ, мұнда
Сурет 20 – Delphi ортасы
Мұндағы 1. Delphi 7-нің негізгі терезесі.
2. Форма (Form1).
3. Объект инспекторы терезесі (Object
4. Модуль терезесі (программалық код терезесі).
5. Негізгі мәзір.
6. Аспаптар панелі.
7. Компоненттер палитрасы.
4.2 Функционалдық тағайындалуы
Турагенстволардың ұсынатын елдерге путевкалары мен билеттерін құрастыру.
4.3 Логикалық құрылымның баяндалуы
1) unit-ке Unit1 деген ат беріледі
2) интерфейсін құру
3-5) модульдерді баяндау
6) типін беру
7) бірінші форманы ашу
8-20) Меню жасауж
21-22) Панельдерді қою
23-24) Кестелерді қою
25-26) Менюді жасау
27-36) Формалар құру процедуралары
37-38) Жекеше деклорациялар
39-40) Публикалық деклорациялар
41) Аяқтау
42-46) Айнымалылар бөлімін құру
47-92) Формаларды менюмен байланыстырып, ашу процедуралары
92-96) 1 – формадан шығу
97) Unit1 – дің соңы.
98) unit-ке Unit2 деген ат беріледі
99) интерфейсін құру
100-101) Модульдерді анықтау
102-110) типтерді алу бөлімі
111-112) өзіндік декларациясы
113-114) публистистикалық декларациясы
115-116) аяқтау
117-120) айнымалылар
121-124) Айнымалылар бөлімі
125) Аяқтау
Unit3, сәйкесінше Unit4
126) unit-ке Unit3 деген ат беріледі
127) интерфейсін құру
128-130) модульдерді баяндау
131-134) 3-форманы құру процедурасы
135-140) Формаға кнопкаларды қою прцедуралары
141-142) өзіндік декларациясы
143-144) публистистикалық декларациясы
145-158) Айнымалыларды сипаттау
159) Форманы жабу
163) Соңы
164-202) Сәйкесінше 2-кестенің формасын шығарады
203-207) Алдыңғыдай программаның басы
208-228) Құжатқа терезелер қойып, сөздерін жазып, кестемен байланыстрады
238) Соңы
239-270) Сәйкесінше 2-ші құжатты дайындап, Query арқылы байланыстыру
271) Форманың басы
278-279) Панель тастау
280) Тор тастау
282) Отчеттің сөздерін шығару
300) Батырма тастау
301) Есептеу
313) Соңы
314-371) және 372-418) сәйкесінше келесі есеп берулердің формаларын
419-425) Форманың басы
426-442) Жол тастап бағдарлама анықтамасын жасау
443) Соңы
444-452) Форманың басы
453-466) Автор туралы формаға жол тастап, жасау
467) Бағдарлама соңы
4.4 Шақыру және жүктеу
Мәліметтер базасын ұйымдастыру үшін BDE Administrator – ды
Іске қосу | Программалар | Borland Delphi 6
Мәліметтер базасының кестелерін құру үшін DataBase Desktop –
Іске қосу | Программалар | Borland Delphi 6
Delphi-ді Windows арқылы іске қосу командасы:
Іске қосу – Программалар – Borland Delphi 6
Құрылған Мәліметтер базасының дұрыстығын тексеру үшін F9 пернесі
4.5 Қажетті техникалық жабдықтар
Берілген курстық жобамызды Delphi ортасында орындау үшін Pentium4
4.6 Кіріс мәліметтер
Турагенствоның ұсынып отырған сервисі: тур, елдер, баруға болатын
4.7 Шығыс мәліметтер
Ұсынылған елдерге қараша айындағы путевкалар мен самолетке билеттерінің
5 Бақылау мысалдарын баяндау
Delphi 6 ортасында жасалған проектімізді F9 арқылы жүктейміз.
ҚОРЫТЫНДЫ
Қорыта келгенде, мен осы курстық жұмысымды орындау барысында
Delphi - де программа дайындау, мәліметтер базасын басқару
Delphi ортасының осындай мүмкіндіктерін пайдалана отырып, өзіміздің курстық
Тоқсан ауыз сөздің тобықтай түйінін айтатын болсам, Delphi
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
1. В.В. Фаронов. DELPHI 5 . Руководство
Издательство «Нолидж», Москва, 2001 г.
2. В. Гофман, А. Хомоненко. Работа
Издательство «БХВ – Петербург», Санкт – Петербург, 2000
3. А.М. Епанешников, В.А. Епанешников. DELPHI база
Издательство «ДИАЛОГ – МИФИ», Москва, 2000 г.
4. А.Я. Архангельский. Програмирование в Delphi 7.
Издательство «Бином», Москва, 2004 г.
Электронный учебник по Delphi 6.
Стандарт предприятия работы учебные. СТП 164-08-98, КазНТУ, 1998г.
Қосымша А
Unit - тер
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, Grids, DBGrids, ExtCtrls, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N11: TMenuItem;
N21: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
N5: TMenuItem;
N31: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N13Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit3, Unit4, Unit5, Unit6, Unit8, Unit10, Unit11,
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Visible:=true;
Form3.Show;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form1.Visible:=true;
Form4.Show;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form1.Visible:=true;
Form5.Show;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form1.Visible:=true;
Form6.Show;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
Form1.Visible:=true;
Form8.Show;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Form1.Visible:=true;
Form11.Show;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Form1.Visible:=true;
Form10.Show;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
Form1.Visible:=true;
Form7.Show;
end;
procedure TForm1.N31Click(Sender: TObject);
begin
Form1.Visible:=True;
Form9.Show;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
Form1.Visible:=False;
Form1.Hide;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, DB, DBTables;
type
TDataModule2 = class(TDataModule)
Database1: TDatabase;
Table1: TTable;
Table2: TTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
Query1: TQuery;
DataSource3: TDataSource;
Query2: TQuery;
DataSource4: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
{$R *.dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, Grids, DBGrids, ExtCtrls, StdCtrls;
type
TForm3 = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
DataModule2.Table1.Insert;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
DataModule2.Table1.Cancel;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
Form3.Visible:=False;
Form3.Hide;
end;
end.
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, Grids, DBGrids, ExtCtrls, StdCtrls;
type
TForm4 = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit3;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
DataModule2.Table2.Insert;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
DataModule2.Table2.Cancel;
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
Form4.Visible:=False;
Form4.Hide;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit2, StdCtrls, Mask, DBCtrls, DB, DBTables;
type
TForm5 = class(TForm)
Table1: TTable;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit2, StdCtrls, Mask, DBCtrls, ExtCtrls;
type
TForm6 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, QRCtrls, QuickRpt, StdCtrls;
type
TForm7 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRBand2: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRBand3: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRBand4: TQRBand;
Button1: TButton;
QRExpr1: TQRExpr;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel4: TQRLabel;
QRSysData1: TQRSysData;
QRSysData2: TQRSysData;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
Form7.QuickRep1.Preview;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, QRCtrls, QuickRpt, Grids, DBGrids, ExtCtrls,
DB, DBTables;
type
TForm8 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRBand2: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRBand3: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRBand4: TQRBand;
QRExpr1: TQRExpr;
QRLabel7: TQRLabel;
QRSysData1: TQRSysData;
QRSysData2: TQRSysData;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *.dfm}
procedure TForm8.BitBtn1Click(Sender: TObject);
begin
Form8.QuickRep1.Preview;
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit2, Grids, DBGrids, ExtCtrls, QRCtrls, QuickRpt, StdCtrls;
type
TForm9 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
Button1: TButton;
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRBand2: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRBand3: TQRBand;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRLabel6: TQRLabel;
QRBand4: TQRBand;
QRExpr1: TQRExpr;
QRSysData1: TQRSysData;
QRSysData2: TQRSysData;
QRLabel7: TQRLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);
begin
Form9.QuickRep1.Preview;
end;
end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm10 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
{$R *.dfm}
end.
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm11 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label7: TLabel;
Label5: TLabel;
Label6: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
{$R *.dfm}
end.
Қосымша Ә
Сурет 1
Сурет 2
Сурет 3
Сурет 4
Сурет 5
Сурет 6
Сурет 7
Сурет 8
Сурет 9
Сурет 10
Сурет 11
Сурет 12
47
4