Delphi және BDE негізінде Аптека мәліметтер базасын құру және қолданбаны жобалау
Мазмұны
КІРІСПЕ . . . . . . .
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
Long integer
BCD
Date
Time
Timestampt
Memo
Formatted
қатар құрамында форматталған текст болады.
Graphic
OLE
Logical
Auto increment +
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 парағында деректерге қатынауды ұйымдастыратын визуалды емес
Data Source – деректердің басы
Table – ДБ кестесіне негізделген деректер жинағы
Query – SQL – сұранысқа негізделген деректер жинағы
StoredProc – серверде сақталатын процедураны шақыру
Database – ДБ қосылу
Session – ДБ жұмысының ағымды сеансы
Batch Move – топ жазбалармен операцияларды орындау
Update – деректер жиынтығын модификациялау
Nested Table - қойылған кесте
Data Controls парағында деректерді басқаратын визуалды компоненттер орналасады:
DBGrid – кесте
DBNavigator – навигациялық интерфейс
DBText – жазба
DBEdit – бірқатарлы редактор
DBMemo – көпқатарлы редактор
DBImage – графиктік көрініс
DBListBox – қарапайым тізім
DBComboBox – комбинацияланған тізім
DBCheckBox – тәуелсіз ауыстырғыш
DBRadioGroup – тәуелді ауыстырғыш топтары
DBLookupListBox – басқа өріс деректерінің қарапайым тізімі
DBLookupComboBox – басқа өріс деректерінің комбинацияланған тізімі
DBRichEdit – толық функционалды тестілік редактор
DBCtrlGrid – модификацияланған кесте
DBChart – диаграммма
Midas парағында қашық деректер базасын басқаратын визуалды
Client Dataset – клиенттік деректер жинағы
DCOMConnection – көпқолданбалы режимде қашық сервермен қосылу
SocketConnection - Windows сокеті арқылы қашық
Dataset Provider – деректер жиынының провайдері
SimpleObjectBroker – қарапайым объект брокері
Web Connection – Web-сервермен қосылу
CORBA Connection – Corba-клиенттің қосылуы
Decision Cube парағында шешімді қабылдайтын жүйені қалыптастыратын компоненттер
DecisionCube – көпшекті деректер кубы
DecisionQuery – көпшекті деректерді қамтитын жиынтық
Decision Source – көпшекті деректердің бастамасы
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 серверімен жұмыс істеуге арналған компоненттер
Bitable – Table дерегінің жинағы
IBQuery – Query дерегінің жинағы
IBStoredProc– InterBase серверінде сақталатын процедураны
IBDatabase – деректер базасымен қосылу
IBTransaction – транзакция
IBUpdateSQL – деректер жиынтығын модификациялау
IBDataSet – деректердің бастамасы
IBSQL – SQL- сұранысты орындау
IBDatabaseInfo – деректер базасы туралы ақпарат
IBSQLMonitor – SQL- сұраныс орындалуының мониторы
IBEvents – сервер оқиғасы
InterBase парағының көп компоненттері Data Access компоненттеріне ұқсас
4 Программаның баяндалуы
Жалпы мағлұматтар
Қарастырылып отырған мәліметтер базасы Delphi 6 ортасында құрылды.
Функционалдық тағайындалуы
Мәліметтер базасының көмегімен қолданушы мәліметтерге қатынаудың жолын қысқартады.
Логикалық құрылымның баяндалуы
1) Unit1
1) unit-ке Unit1 деген ат беріледі
2) интерфейсін құру
3-5) модульдерді баяндау
6) типін беру
7) бірінші форманы ашу
8-10) панельдерді қою
11-14) кестелерді қою
15-25) Менюларды қою
26-32) Процедуралар баяндамасы
33-36) декларацисы
37) аяқтау
38) айнымалылар бөлімі
39-43) Form1 құру және unit термен байланыс
44-47) Form3-ға ашу процедурасы
48-52) Form4-ға ашу процедурасы
53-57) Form5-ға ашу процедурасы
58-61) Form6-ға ашу процедурасы
62-65) Form1-ға жабу процедурасы
66-70) Form7-ға ашу процедурасы
71-75) Form8-ға ашу процедурасы
76) соңы
2) Unit2
1) Unit2 атын беру
2) интерфейсін құру
3-4) модульдерді таңдау
5-15) типті беру
16-20) Диклорациялар
21) Айнымалылар
26) Form1 құру және unit термен байланыс
27) соңы
3) Unit3
1) Unit3 атын беру
2) интерфейсін құру
3-5) модульдерді таңдау
6-14) типтерін беру
15-19) Процедураларды баяндау
20-24) Дикларациялар
25) Айнымалылар
26-29) Форма3 құру Unit-термен байланыс
30-34) Form3- ашу процедурасы
35-38) Insert- ашу процедурасы
39-42) edit- ашу процедурасы
43-47) delete- ашу процедурасы
48-52) post- ашу процедурасы
53) соңы
4) Unit4
1) Unit4 атын беру
2) интерфейсін құру
3-5) модульдерді таңдау
6-13) типтерін беру
14-18) Процедураларды баяндау
19-23) Дикларациялар
24) Айнымалылар
25-28) Форма4 құру Unit-термен байланыс
29-33) Form4- ашу процедурасы
34-38) post- ашу процедурасы
39-43) delete- ашу процедурасы
44-47) edit- ашу процедурасы
48-51) insert- ашу процедурасы
52) соңы
5) Unit5
1) Unit5 атын беру
2) интерфейсін құру
3-5) модульдерді таңдау
6-14) типтерін беру
15-19) Процедураларды баяндау
20-24) Дикларациялар
25) Айнымалылар
26-29) Форма3 құру Unit-термен байланыс
30-33) Form5- ашу процедурасы
34-37) Insert- ашу процедурасы
38-41) edit- ашу процедурасы
42-46) delete- ашу процедурасы
47-51) post- ашу процедурасы
52) соңы
6) Unit6
1) Unit6 атын беру
2) интерфейсін құру
3-5) модульдерді таңдау
6-17) типтерін беру
18-24) Процедураларды баяндау
25-29) Дикларациялар
30)Айнымалылар
31-34) Форма6 құру Unit-термен байланыс
35) соңы
7) Unit7
1) Unit7 атын беру
2) интерфейсін құру
3-5) модульдерді таңдау
6-17) типтерін беру
18) Процедураларды баяндау
19-23) Дикларациялар
24) айнымалылар
25-29) Форма7 құру Unit-термен байланыс
30-33) Form7- жабу процедурасы
34) соңы
8) Unit8
1) Unit8 атын беру
2) интерфейсін құру
3-5) модульдерді таңдау
6-13) типтерін беру
14) Процедураларды баяндау
15-19) Дикларациялар
20) айнымалылар
21-25) Форма8 құру Unit-термен байланыс
26-29) Form8- жабу процедурасы
30) соңы
Шақыру және жүктеу
Мәліметтер базасын Delphi-де ашу үшін Пуск|Программы|Borland Delphi7| Delphi7
Қажетті техникалық жабдықтар
МБ жасауда Celeron 1800| 256 Mb| 40 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 – сурет
ҚОСЫМША Б
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
DBNavigator1: TDBNavigator;
MainMenu1: TMainMenu;
RabotacBD1: TMenuItem;
Statictica1: TMenuItem;
Oprogramme1: TMenuItem;
Exit1: TMenuItem;
Klient1: TMenuItem;
Nazvanie1: TMenuItem;
Pradazhza1: TMenuItem;
Otchet1: TMenuItem;
Instrucsia1: TMenuItem;
Obavtore1: TMenuItem;
procedure Klient1Click(Sender: TObject);
procedure Nazvanie1Click(Sender: TObject);
procedure Pradazhza1Click(Sender: TObject);
procedure Otchet1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Instrucsia1Click(Sender: TObject);
procedure Obavtore1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}
procedure TForm1.Klient1Click(Sender: TObject);
begin
form1.Hide;
form3.show;
end;
procedure TForm1.Nazvanie1Click(Sender: TObject);
begin
form1.Hide;
form4.show;
end;
procedure TForm1.Pradazhza1Click(Sender: TObject);
begin
form1.Hide;
form5.show;
end;
procedure TForm1.Otchet1Click(Sender: TObject);
begin
form6.Quickrep1.preview;
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.Instrucsia1Click(Sender: TObject);
begin
form1.Hide;
form7.show;
end;
procedure TForm1.Obavtore1Click(Sender: TObject);
begin
form1.Hide;
form8.show;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, DB, DBTables;
type
TDataModule2 = class(TDataModule)
Database1: TDatabase;
Table1: TTable;
DataSource1: TDataSource;
Table2: TTable;
DataSource2: TDataSource;
Table3: TTable;
DataSource3: TDataSource;
Query1: TQuery;
DataSource4: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
uses Unit1, Unit3, Unit4;
{$R *.dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls;
type
TForm3 = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit2, Unit4;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
form3.hide;
form1.Show;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
DataModule2.Table1.Insert;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
DataModule2.Table1.edit;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
if messagedlg('Udalit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
DataModule2.Table1.delete;
end;
procedure TForm3.Button5Click(Sender: TObject);
begin
if messagedlg('Sohranit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
DataModule2.Table1.post;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2, Unit3;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
form4.Hide;
form1.Show;
end;
procedure TForm4.Button5Click(Sender: TObject);
begin
if messagedlg('Sohranit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
DataModule2.Table2.post;
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
if messagedlg('Udalit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
DataModule2.Table2.delete;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
DataModule2.Table2.Edit;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
DataModule2.Table2.insert;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls;
type
TForm5 = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1, Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
form5.Hide;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
DataModule2.Table3.insert;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
DataModule2.Table3.Edit;
end;
procedure TForm5.Button4Click(Sender: TObject);
begin
if messagedlg('Udalit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
DataModule2.Table3.delete;
end;
procedure TForm5.Button5Click(Sender: TObject);
begin
if messagedlg('Sohranit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
DataModule2.Table3.post;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TForm6 = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRBand2: TQRBand;
QRBand3: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRSysData1: TQRSysData;
QRExpr1: TQRExpr;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5;
{$R *.dfm}
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm7 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
form7.Hide;
form1.Show;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm8 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
begin
form8.Hide;
form1.Show;
end;
end.
1
BDE
қолданба
Деректер базасы
Пікірлер жүктелуде…