Деректер базасы

Мазмұны
КІРІСПЕ . . . . . . .
1 Есептің қойылымы . . . . .
2 Есептің алгоритмі . . . . .
3 Теориялық бөлім . . . . .
3.1 Мәліметтер базасын ұйымдастыру . . . .
3.2 BDE Administrator . . . . .
3.3 Мәліметтер базасының кестесін құру . . .
3.4 Кестенің қасиетін беру . . . .
3.5 Paradox форматының кестелері . . . .
3.6 Компоненттер парағы . . . . .
4 Программаның баяндалуы . . . . .
4.1 Жалпы мағлұматтар . . . . .
4.2 Функционалдық тағайындалуы . . . . .
4.3 Логикалық құрылымның баяндалуы . . . .
4.4 Шақыру және жүктеу . . . .
4.5 Қажетті техникалық жабдықтар . . . .
4.6 Кіріс мәліметтер. . . . . .
4.7 Шығыс мәліметтер . . . . .
5 Бақылау мысалдарын баяндау . . . .
Қорытынды . . . . . . .
Қосымша А . . . . . .
Қосымша Б . . . . . .
КІРІСПЕ
Әртүрлі ұйымдардың табысты жұмыс жасауы үшін ақпаратты жүйенің
Мәліметтер базасы деп, деректердің электрондық сақтаушысын айтады. Оларға
Мәліметтер базасы – ақпаратты сақтауды және де мәліметтерге
қайшылықсыз
артықсыз
тұтас
болуы керек.
Мәліметтер базасын басқару жүйесі деректер базасын құруға, толтыруға,
DELPHI жүйесі деректер базасын басқару жүйесі болып табылмайды,
Локальді МББЖ барлық бөліктері қолданушы компьютерінің деректер базасында
Тораптық МББЖ-ге файл-серверлік, клиент-серверлік, бөлінген МББЖ-лар жатады. Осы
Көпқолданбалы МББЖ ақпараттық жүйе құруға мүмкіндік береді. Көпқолданбалы
InterBase және т.б жатады.
DELPHI-ді кәдімгі МББЖ деп айтуға, оның өзінің кестелік
Бұны бірақ та жетіспеушілігі деп те айтуға болмайды,
1 Есептің қойылымы.
Бұл курстық жұмыстың мақсаты−деректер базасын құру және онымен
2 Есептің алгоритмі
1.BDE Administrator – ды ашып, біздің мәліметтер базасына
2.Деректер базасын құру үшін ең алдымен Database Desktop
3.Содан кейін Delphi – ге кіріп, кестелер және
4.Delphi – де кестелерді байланыстыру үшін DataModule –
5.Әр бір кестеге формаларды жасаймыз, проектте сақтаймыз.
6.Кестені және SQL тілін пайдаланып, құжаттар мен есеп
7.Жаңа формаларға инструкцины және автор туралы мәліметтерді енгіземіз.
8.Барлық жасалған формаларды проектің ішіне сақтаймыз.
3 Теориялық бөлім
Мәліметтер базасын ұйымдастыру
Мәліметтер базасы кейбір қолданбалы ақпараттық жүйеде қолданылатын деректерді
иерархиялық
желілік
реляциялық
объекті-бағытталған
Иерархиялық модельде деректер ағаштәріздес (иерархиялық) құрылым түрінде беріледі.
Желілік модельде деректер ерікті граф түрінде ұйымдастырылады. Желілік
Объекті-бағытталған модельде мәліметтер базасының жазбасы объект түрінде беріледі.
BDE Administrator
DELPHI қолданбасы деректер базасына қатынауды BDE ( Borland
Жергілікті деректер базасы және онымен жұмыс істейтін қолданба
Сурет 1.1. Дербес сәулет
Деректер базасымен жұмыс, ережеге сай, бірқолданушылық режимде жұмыс
STANDART типті драйверлерді тек Paradox, dBASE, FoxPro кестелері
Жергілікті деректер базасына қатынау үшін BDE деректер
Мәліметтер базасының кестесін құру
Деректер базасын құрайтын кестелер қатты дискідегі каталогта тұрады.
Өріс мүмкін болатын типтің деректерін қамтиды. Кестенің негізін
өріс сипаты
кілт
индекс
өрістің мәтініне шек қою
кестелер арсындағы біртұтастықты сақтау
парлольдер
кіреді. Кестені құрғанда кестенің аты және құрылымы беріледі.
Ал енді мәліметтер базасымен жұмыс жасамас бұрын, біз
Жаңа кестені құру келесі команда бойынша іске асады:
ОК-ді басып, біз осы форматты аламыз. Экранда келесідей
Сурет1. Кестенің құрылымын құру суреті
Құрылып жатқан кестенің әрбір өрісіне бір жазба сәйкес
Кестенің қасиетін беру
Validity Checks – бұл қасиет кестенің мәндерінің дұрыстығын
2 – кесте Validity Checks қасиеттері.
Required Field
Бұл индекаторда әрбір жазбада керекті жолдар белгілену керек.
Minimum Мәннің минимумы. Бұл қасиет сандық өріске берілу
Maximum Мәннің максимумы. Бұл қасиет сандық өріске берілу
Default Бұл қасиетті сандық және логикалық өрістерге, ал
Picture Енгізілетін мәннің түрін корсетуге болады. Мысалы, телефон
Assist Бұл батырма Picture түрін құруға көмектесетін диалогтық
Table Lookup – бұл бөлім берлген кестенің өрісін
Secondary Index – бұл бөлім ары қарай жұмыс
Жаңа индекс құру үшін Define – анықтау батырмасын
Index Options радиобатырма панелі келесідей қасиеттерді құруға мүмкіндік
Unique Бұл опция екінші индекс болатын өрісті болдырмайды,
Descending Бұл опция кестені кему бойынша реттейді.
Case Sensitive Бұл опция енгізілген символдардың регистріне назар
Maintained Егер бұл опция тұрса, онда кестеде өзгерістерден
Индексі таңдалғаннан кейін, оның индексін беретін терезе ашылады.
Referential Integrity – бұл бөлім әртүрлі кестелердің арасында
Update rule – радиобатырмалар тобы егер бас кестеде
Strict Referential индекаторын орнатқанда Paradox – тың алғашқы
Барлық операциялар біткеннен кейін құрылған сілтеме атын беру
Password Security бөлімі Paradox – та құрылған кестелерге
Current Password (ағымдағы пароль) терезесінде сіз парольді көрсетесіз
All Барлық операциялар қабылданады, кестені өшіру, құрылымын өзгерту,
Insert & Delete Кестедегі жазбаларға барлық операциялар қолданылады
Data Entry Мәліметтерді редактерлеуге және жазбаларды қоюға болады,
Update Кестені көруге және кілті жоқ өрістерді өзгертуге
Read Only Тек кестені көруге болады.
Table Language – бұл бөлім BDE Administrator арқылы
Dependent Tables – бұл бөлім Referential Integrity сілтемелі
Барлық керекті құрылымдық мәліметтер кестеге енгізілгеннен кейін Save
Paradox форматының кестелері
Delphi – дің өзіндік кестелік форматы жоқ, бірақ
Paradox кестесі деректер базасын құруға және онымен жұмыс
Оның негізгі артықшылықтарын атап өтейік :
деректердің тұтастығын
әртүрлі типті деректерді ұсынуға арналған өрістік типті
енгізілген деректерді тексеруді
кестенің парольдық қорғанысын
қамтамасыз етеді .
кестесінде Paradox 7 кестесінің өрістік типі тізімі берілген
Тип
Alpha
Number
Money
Short
Longinteger
BCD
Date
Time
Timestampt
Memo
Formatted
қатар құрамында форматталған текст болады.
Graphic
OLE
Logical
Autoincrement +
Binary
Bytes
Кесте1.2. Paradox7 кестесінің өрістік типі тізімі
Ескерту !
Database Desktop программалық ортасында жұмыс істегенде Graphic,
Memo және OLE өрістік типінің мәні көрсетілмейді.
Paradox кестесінде өріс аты әріптен басталып, әріптер мен
Paradox кестесінің кемшілігі болып, кестелік деректерді сақтайтын типтік
Paradox кестесінің файлдарының келесі кеңейтінділері бар :
DB – деректі кесте
MB – BLOB-деректер
PX – негізгі индекс
XG* және YG* – екінші индекстер
VAL – деректердің және сілтемелік тұтастықты тексеретін параметрлер
TV және FAM – Database Desktop программасында кестені
Delphi-дің өзіндік деректер базасының кестелік форматы болмаса да,
аспаптық құрал
компоненттер
Аспаптық құралдарға арнайы программалар мен пакеттер жатады. Олар
Компоненттер, деректер базасымен операция жасайтын қолданбаларды құруға арналған.
Компоненттер парағы
Деректер базасының қолданбасын құруда қолданылатын компоненттерді қарастырайық.
Деректер базасымен жұмыс істегенде қолданылатын компоненттер Data Access,
Data Access парағында деректерге қатынауды ұйымдастыратын визуалды емес
DataSource – деректердің басы
Table – ДБ кестесіне негізделген деректер жинағы
Query – SQL – сұранысқа негізделген деректер жинағы
StoredProc – серверде сақталатын процедураны шақыру
DataBase – ДБ қосылу
Session – ДБ жұмысының ағымды сеансы
BatchMove – топ жазбалармен операцияларды орындау
Update – деректер жиынтығын модификациялау
NestedTable - қойылған кесте
Data Controls парағында деректерді басқаратын визуалды компоненттер орналасады:
DBGrid – кесте
DBNavigator – навигациялық интерфейс
DBText – жазба
DBEdit – бірқатарлы редактор
DBMemo – көпқатарлы редактор
DBImage – графиктік көрініс
DBListBox – қарапайым тізім
DBComboBox – комбинацияланған тізім
DBCheckBox – тәуелсіз ауыстырғыш
DBRadioGroup – тәуелді ауыстырғыш топтары
DBLookupListBox – басқа өріс деректерінің қарапайым тізімі
DBLookupComboBox – басқа өріс деректерінің комбинацияланған тізімі
DBRichEdit – толық функционалды тестілік редактор
DBCtrlGrid – модификацияланған кесте
DBChart – диаграммма
Midas парағында қашық деректер базасын басқаратын визуалды
ClientDataSet – клиенттік деректер жинағы
DCOMConnection – көпқолданбалы режимде қашық сервермен қосылу
SocketConnection - Windows сокеті арқылы қашық
DataSetProvider – деректер жиынының провайдері
SimpleObjectBroker – қарапайым объект брокері
WebConnection – Web-сервермен қосылу
CorbaConnection – Corba-клиенттің қосылуы
Decision Cube парағында шешімді қабылдайтын жүйені қалыптастыратын компоненттер
DecisionCube – көпшекті деректер кубы
DecisionQuery – көпшекті деректерді қамтитын жиынтық
DecisionSource – көпшекті деректердің бастамасы
DecisionPivot – көпшекті деректердің көпөлшемді проекциясы
DecisionGrid – көпшекті деректердің кестесі
DecisionGraph – көпөлшемді деректердің графиктік ұсынысы
Rave парағында есеп берудің ретіне арналған визуалды компоненттер
RvProject – проектің басты компоненті, Rave – пен
RvSystem – уневирсалды компонент, есеп беруді қарауды және
RvNDRWriter – есеп беруді арнайы форматтағы файлға жазады
RvCustomConnection – мәліметтері жоқ есеп берумен байланыстырады
RvDataSetConnection – мәліметтермен байланыстырады
RvTableConnection – Table компаненті бар мәліметтермен байланыстырады
TRvQueryConnection – Query компоненті бар мәліметтермен байланыстырады
RvRenderPreview–RvNDRWriter арқылы құрылған файлдағы мәліметтерді экранда мүмкіндік береді
RvRenderPrinter–RvNDRWriter арқылы құрылған файлдағы мәліметтерді баспа құрылғысына жібереді
RvRenderPDF – есеп беруді PDF форматына ауыстырады
RvRenderRTF – есеп беруді RTF форматына ауыстырады
RvRenderHTML – есеп беруді HTML форматына ауыстырады
RvRenderText – есеп беруді мәтіндік файлға ауыстырады
InterBase парағында InterBase серверімен жұмыс істеуге арналған компоненттер
IBTable – Table дерегінің жинағы
IBQuery – Query дерегінің жинағы
IBStoredProc– InterBase серверінде сақталатын процедураны
IBDatabase – деректер базасымен қосылу
IBTransaction – транзакция
IBUpdateSQL – деректер жиынтығын модификациялау
IBDataSet – деректердің бастамасы
IBSQL – SQL- сұранысты орындау
IBDatabaseInfo – деректер базасы туралы ақпарат
IBSQLMonitor – SQL- сұраныс орындалуының мониторы
IBEvents – сервер оқиғасы
InterBase парағының көп компоненттері Data Access компоненттеріне ұқсас
4 Программаның баяндалуы
Жалпы мағлұматтар
Қарастырылып отырған мәліметтер базасы Delphi 7 ортасында құрылды.
Функционалдық тағайындалуы
Мәліметтер базасының көмегімен қолданушы мәліметтерге қатынаудың жолын қысқартады.
Логикалық құрылымның баяндалуы
1) Unit1
1) unit-ке Unit1 деген ат беріледі
2) интерфейсін құру
3-5) модульдерді баяндау
6) типін беру
7) бірінші форманы ашу
8-16) Компонентер қою
17-30)Менюларды қою
31-40) Процедуралар баяндамасы
41-45) декларациясы
46) айнымалылар бөлімі
47-51) Form1 құру және unit термен байланыс
52-55) Form1-ға жабу процедурасы
56-59) Form3-ға ашу процедурасы
60-63) Form4-ға ашу процедурасы
64-67) Form5-ға ашу процедурасы
68-71) Form6-ға ашу процедурасы
72-75) Form7-ға ашу процедурасы
76-79) Form8-ға ашу процедурасы
80-83) Form9-ға ашу процедурасы
84-87) Form10-ға ашу процедурасы
89-91) Form11-ға ашу процедурасы
92) соңы
2) Unit3
1) Unit3 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-10) Компонентерді белгілеу
11-13) процедураларды баяндау
14-18) Диклорациялар
19) Айнымалылар бөлімі
20-23) Form3 құру
24-27) Insert ашу программасы
28-31) Cancel программасы
32-35) Form3- жабу процедурасы
36) соңы
3) Unit4
1) Unit4 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-10) типтерін беру
11-13) процедураларды баяндау
14-18) Дикларациялар
19) Айнымалылар бөлімі
20-23) Form5 құру және unit термен байланыс
24-27) Insert ашу программасы
28-31) Cancel программасы
32-35) Form4- жабу процедурасы
36) соңы
4) Unit5
1) Unit5 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-10) типтерін беру
11-13) процедураларды баяндау
14-18) Дикларациялар
19) айнымалылар бөлімі
20-23) Форма5 құру Unit-термен байланыс
24-27) Insert ашу программасы
28-31) Cancel программасы
32-35) Form5- жабу процедурасы
36) соңы
5) Unit6
1) Unit6 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-13) типтерін беру
14) процедураларды баяндау
15-19) Дикларациялар
20) айнымалылар бөлімі
21-24) Форма6 құру Unit-термен байланыс
25-29) Form6- жабу процедурасы
31) соңы
6) Unit7
1) Unit7 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-16) типтерін беру
17) процедураларды баяндау
18-22) Дикларациялар
23) Айнымалылар бөлімі
24-27) Форма7 құру Unit-термен байланыс
28-32) Form7- жабу процедурасы
33) соңы
7) Unit8
1) Unit8 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-25) типтерін беру
26-30) Дикларациялар
31) айнымалылар бөлімі
32-35) Форма8 құру Unit-термен байланыс
36) соңы
8) Unit9
1) Unit9 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-21) типтерін беру
22-24) процедураларды баяндау
25-29) Дикларациялар
30) айнымалылар бөлімі
31-34) Форма9 құру Unit-термен байланыс
35-38) Next программасы
39-42) Prior программасы
43-46) Form9- жабу процедурасы
47) соңы
9) Unit10
1) Unit10 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-34) типтерін беру
35-39) Дикларациялар
40) айнымалылар бөлімі
41-44) форма 11құру
45) соңы
10) Unit11
1) Unit11 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-23) типтерін беру
24-26) Процедураларды баяндау
27-31) Дикларациялар
32) айнымалылар бөлімі
33-36) форма 11 құру
37-40) Next программасы
41-44) Query1.Prior программасы
45-48) Form11- жабу процедурасы
49) соңы
11) Unit13
1) Unit13 атын беру
2) интерфейсін құру
3-5) модульдерді таңдау
6-23) типтерін беру
24-26) Процедураларды баяндау
27-31) Дикларациялар
32) айнымалылар бөлімі
33-36) форма 13 құру
37-40) Query1.Next программасы
41-44) Query1.Prior программасы
45-48) Form13- жабу процедурасы
49) соңы
Шақыру және жүктеу
Мәліметтер базасын Delphi-де ашу үшін Пуск|Программы|Borland Delphi7| Delphi7
Қажетті техникалық жабдықтар
МБ жасауда Pentium 2660| 512 Mb| 80 Gb|
Кіріс мәліметтер
Мәліметтер базасындағы мәліметтер толығымен кестеде көрсетілген. Ол үшін
Шығыс мәліметтер
МБ қолдана отырып, екі документ жасадым. Оларды Қосымша
Бақылау мысалдарын баяндау
Алдымен, осы курстық жобаны сақтайтын бір папка құрып
DBD-да байланыстырған кестелерімді, Delphi-де қайта байланыстырдым. Ол File|New|Others|DataModule
Data Access парағындағы DataSource,яғни деректердің басын тастадым.
Негізгі менюдағы Rabota s BD ішіндегі үш кетеге
Келесі Documenty менюінің ішіне екі документ жасадым. Біреуі
Statistica менюіне отчеттарды жасадым. Отчеттарды жасау барысында отчет
O Programme менюына инструкция Form9 (Сурет 16) және
Vyhod менюына Delphi –дан шығу терезесін құрдым
ҚОРЫТЫНДЫ
Қорыта келгенде, осы курстық жұмысты жаза отырып мен
Қазіргі кезде DELPHI құралының мүмкіншіліктері күннен – күнге
Қорыта келсек, әрбір программист үшін DELPHI құралын білген
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
1. В.В.Фаронов DELPHI 5 . Руководство
Издательство «Нолидж», Москва 2001 г.
2. В.Гофман, А.Хомоненко Работа с базами
Издательство «БХВ – Петербург», Санкт – Петербург 2000
3. А.М. Епанешников , В.А. Епанешников DELPHI
Издательство «ДИАЛОГ – МИФИ», Москва 2000 г.
4. А.Я. Архангельский Програмирование в Delphi 7.
Издательство «Бином», Москва 2004 г.
5. Электронный учебник по Delphi 6.
ҚОСЫМША А
сурет – 1
сурет – 2
ҚОСЫМША А
сурет – 3
сурет – 4
ҚОСЫМША А
сурет – 5
сурет – 6
ҚОСЫМША А
сурет – 7
сурет – 8
ҚОСЫМША А
сурет – 9
сурет – 10
ҚОСЫМША А
сурет – 11
сурет – 12
сурет – 13
сурет – 14
ҚОСЫМША Б
1)unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
DBNavigator1: TDBNavigator;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
procedure N5Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N14Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,unit8,
unit9,unit10,unit11;
{$R *.dfm}
procedure TForm1.N5Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
form4.Show;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form5.Show;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form6.Show;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
form7.show;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
Form8.QuickRep1.Preview;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
form9.show;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form10.QuickRep1.Preview;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
Form11.show;
end;
end.
2)unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
DataModule2.Table1.Insert;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
DataModule2.Table1.cancel;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
form3.Close;
end;
end.
3) unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
DataModule2.Table2.Insert;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
DataModule2.Table2.cancel;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
form4.Close;
end;
end.
4) unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
DataModule2.Table3.Insert;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
DataModule2.Table3.cancel;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
form5.Close;
end;
end.
5) unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm6 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses unit1;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
form1.Show;
form6.Close;
end;
end.
6) unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm7 = class(TForm)
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Foкm7: TForm7;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
form1.show;
form7.Close;
end;
end.
7) unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, QRCtrls, QuickRpt, DBTables, ExtCtrls;
type
TForm8 = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRBand3: TQRBand;
QRBand4: TQRBand;
Table1: TTable;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
DataSource1: TDataSource;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRSysData1: TQRSysData;
QRSysData2: TQRSysData;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1, Unit2;
{$R *.dfm}
end.
8) unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
type
TForm9 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Table1: TTable;
DataSource1: TDataSource;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses unit1,unit2;
{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);
begin
table1.Next;
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
table1.prior;
end;
procedure TForm9.Button3Click(Sender: TObject);
begin
form9.hide;
end;
end.
9) unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, DB, QuickRpt, DBTables, ExtCtrls;
type
TForm10 = class(TForm)
QuickRep1: TQuickRep;
Table1: TTable;
Table2: TTable;
QRBand1: TQRBand;
QRBand2: TQRBand;
QRBand3: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRBand4: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRLabel7: TQRLabel;
QRSysData1: TQRSysData;
QRSysData2: TQRSysData;
DataSource1: TDataSource;
DataSource2: TDataSource;
QRExpr1: TQRExpr;
QRLabel8: TQRLabel;
QRExpr2: TQRExpr;
QRExpr3: TQRExpr;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
uses unit1;
{$R *.dfm}
end.
11) unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
type
TForm11 = class(TForm)
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Table2: TTable;
DBEdit6: TDBEdit;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DBEdit7: TDBEdit;
Label7: TLabel;
Button1: TButton;
Button3: TButton;
DataSource1: TDataSource;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
uses unit1;
{$R *.dfm}
procedure TForm11.Button1Click(Sender: TObject);
begin
table2.next;
end;
procedure TForm11.Button2Click(Sender: TObject);
begin
table2.Prior;
end;
procedure TForm11.Button3Click(Sender: TObject);
begin
form11.hide;
end;
end.
35
BDE
қолданба
Деректер базасы