НаціональнийАвіаційний Університет
Факультеткомп’ютерних систем
Кафедракомп’ютерних систем та мереж
Домашняробота
Здисципліни: Інформаційні системи та структури даних
Київ2010
Інформаційнасистема будівельної організації
Будівельна організація займається будівництвом різного родуоб'єктів: житлових будинків, лікарень, шкіл, мостів, доріг і т.д. по договорахіз замовниками (міська адміністрація, відомства, приватні фірми й т.д.). Кожназ перерахованих категорій об'єктів має характеристики, властиві тільки цій абодекільком категоріям: наприклад, до характеристик житлових будинків відноситьсяповерховість, тип будівельного матеріалу, число квартир, для мостів унікальнимихарактеристиками є тип пролітної будови, ширина, кількість смуг для руху.
Структурно-будівельна організація складається з будівельнихправлінь, кожне будівельне правління веде роботи на одному або декількохділянках, очолюваних начальниками ділянок, яким підпорядковується групавиконробів, майстрів і техніків. Кожній категорії інженерно-технічногоперсоналу (інженери, технологи, техніки) і робітників (муляри, бетонники,обробники, зварники, електрики, шофери, слюсарі і ін.) також є властивіхарактерні тільки для цієї групи атрибути. Робітники поєднується в бригади,якими керують бригадири. Бригадири вибираються із числа робітників, майстри,виконроби, начальники ділянок і правлінь призначаються із числаінженерно-технічного персоналу.
На кожній ділянці зводиться один або кілька об'єктів, пакожному об'єкті роботу ведуть одна або кілька бригад. Закінчивши роботу, бригада переходить до Іншогооб’єкту на цій, або іншій ділянці.Будівельному правлінню надається будівельна техніка (підйомні крани,екскаватори, бульдозери й т.д.), що розподіляються по об'єктах.
Технологіябудівництва того або Іншого об'єкта припускає виконання певного набору видівробіт, необхідних для спорудження даного типу об'єкта. Наприклад, для житловогобудинку –це зведення фундаменту, цегельні роботи, прокладання водопостачання йт.д. Кожен вид робіт на об'єкті виконується однією бригадою. Дляорганізаціїробіт на об'єкті складаються графіки робіт, що вказують у якому порядку й у якістроки виконуються ті або інші роботи, а також кошторис, що визначає якібудівельні матеріали й у яких кількостях необхідні для спорудження об'єкта. Зарезультатами виконання робіт складається звіт із зазначенням строків виконанняробіт і фактичних витрат матеріалів.
Види запитів в інформаційній системі:
1. Одержати перелік будівельних правлінь й/або ділянок та їх керівників.
2. Одержати список фахівців інженерно-технічного складупозначеної ділянки або будівельного правління із зазначенням їх посад.
3. Одержати перелік об'єктів, що зводяться зазначенимбудівельним правлінням й/або ділянкою, і графіки їхнього зведення.
4. Одержати склад бригад, що працювали (працюють) набудівництві зазначеного об'єкта.
5. Одержати перелік будівельної техніки, наданої зазначеномубудівельному правлінню.
6. Одержати перелік будівельної техніки, виділеної назазначений об’єкт або тієї, що працювала там упродовж зазначеного періоду часу.
7. Одержати графік і кошторис на будівництво зазначеного об'єкта.
8. Одержати звіт про спорудження зазначеного об’єкта.
9. Одержати перелік об’єктів, що зводяться у деякомубудівельному правлінні або в цілому по організації, та на яких у позначенийперіод часу виконувався зазначений вид будівельних робіт.
10. Одержати перелік видів будівельних робіт, по яких маломісце перевищення строків виконання на зазначеній ділянці, будівельномуправлінні або в цілому по організації.
11. Одержати перелік будівельних матеріалів, по яких маломісце перевищення кошторису на зазначеній ділянці, будівельному правлінні або вцілому по організації.
12. Одержати перелік видів будівельних робіт, виконанихзазначеною бригадою протягом позначеного періоду часу із вказівкою об'єктів, деці роботи виконувалися.
13. Одержати перелік бригад, що виконували зазначений видбудівельних робіт протягом позначеного періоду часу із зазначенням об'єктів, деці роботи виконувалися.
Концептуальнамодель бази даних
База даних будівельноїорганізації складається з таблиць:
tblOrder– таблиця що містить інформацію про закази поля:
Order_id – ідентифікатор
Object – рід об’єкту
Organisetion – замовники
BuildManagement – будівельне управління
tblChaBuild – характеристика заказу нажитловий будинок, лікарню та школу поля:
ChaBuild_id – ідентифікатор
Floor – кількість поверхів
MaterialType – тип матеріалу
NApartament – число квартир
tblChaRoad – характеристика заказу намости та дороги поля:
ChaRoad_id – ідентифікатор
StructureType – тип пролітної будови
Width – ширина
Bands – кількість смуг
tblGrafics – графік зведення об’єкта поля:
Grafics_id – ідентифікатор
JobType – вид роботи
TermPerformance – строк завершення
Kyshty – виділенні кошти
tblMaterials – матеріали поля:
Materials_id – ідентифікатор
Materials – назва необхідногоматеріала
tblReport – звіт виконання роботи поля:
Report_id – ідентифікатор
JobType – вид роботи
Completion – реальне завершення роботи
Used – використанні кошти
tblBrigade – бригади поля:
Brigade_id – ідентифікатор
Overman – бригадир
tblNPlot– номер ділянки поля:
NPlot_id – ідентифікатор
Head – начальник ділянки
tblTech– інженерно-технічний персонал поля:
Tech_id – ідентифікатор
Engineers – інженери
Technology – технологи
Technics – техніки
tblMachines – будівельна техніка поля:
Machines_id – ідентифікатор
Bulldozers – бульдозери
Cranes – крани
Excavator – екскаватори
tblWorkers – робітники поля:
Workers_id – ідентифікатор
Bricklayer – муляри
Concrete – бетонники
Handler – обробники
Welders – зварники
Electricity – електрики
Driver – водії
Locksmiths – слюсарі
Фізична модельбази даних
Для побудовифізичної моделі бази даних потрібно вказати типи даних полів таблиць, визначитипервинні та зовнішні ключі, організувати відношення між таблицями. Відношеннятипу „один до одного” організується додаванням первинного ключа однієї ізтаблиць в іншу у якості зовнішнього. Відношення типу „один до багатьох”організується додаванням первинного ключа таблиці зі сторони „один” в таблицю„багато” в якості зовнішнього ключа. Відношення типу „багато до багатьох”організується через таблиці-связки, в які поміщаються первинні ключі двохтаблиць в якості зовнішніх ключів.
Створеннятаблиць та звя’зків
Створення таблиць:
create table rl_10 ( NPlot_id int not null, Machines_idint not null, constraint PK_RL_10 primary key (NPlot_id, Machines_id)
)
go
create table rl_11 ( NPlot_id int not null, Workers_idint not null, constraint PK_RL_11 primary key (NPlot_id, Workers_id)
)
go
create table rl_9 ( NPlot_id int not null, Tech_idint not null, constraint PK_RL_9 primary key (NPlot_id, Tech_id)
)
go
create table tblBrigade ( Brigade_id int notnull, NPlot_id int null, Grafics_id int null, Overman varchar(255) not null, constraintPK_TBLBRIGADE primary key nonclustered (Brigade_id)
)
go
create table tblChaBuild ( ChaBuild_id int notnull, Order_id int null, Floor int not null, MaterialType varchar(255) notnull, NApartament int not null, constraint PK_TBLCHABUILD primary keynonclustered (ChaBuild_id)
)
go create table tblChaRoad ( ChaRoad_id int notnull, Order_id int null, Structuretype varchar(255) not null, Width int notnull, Bands int not null, constraint PK_TBLCHAROAD primary key nonclustered(ChaRoad_id)
)
/>go
create table tblGrafics ( Grafics_id int notnull, Order_id int null, Brigade_id int null, JobType varchar(255) not null, TermPerformancedatetime not null, Kyshty money not null, constraint PK_TBLGRAFICS primary keynonclustered (Grafics_id)
)
go
create tabletblMachines ( Machines_id int notnull, Bulldozers varchar(255) null, Cranes varchar(255) null, Excavator varchar(255)null, constraint PK_TBLMACHINES primary key nonclustered (Machines_id)
)
go
create table tblMaterials ( Materials_id int notnull, Grafics_id int null, Materials varchar(255) not null, constraintPK_TBLMATERIALS primary key nonclustered (Materials_id)
)
go
create table tblNPlot ( NPlot_id int not null, Order_idint null, Head varchar(255) not null, constraint PK_TBLNPLOT primary key nonclustered(NPlot_id)
)
go
create tabletblOrder ( Order_id int not null, NPlot_idint null, ChaRoad_id int null, ChaBuild_id int null, Object varchar(255) notnull, Organisetion varchar(255) not null, BuildManagement varchar(255) notnull, constraint PK_TBLORDER primary key nonclustered (Order_id)
)
go
create table tblReport ( Report_id int notnull, Order_id int null, JobType varchar(255) not null, Completion datetime null,Used money null, constraint PK_TBLREPORT primary key nonclustered (Report_id)
)
go
create table tblTech ( Tech_id int not null, Engeneersvarchar(255) null, Technology varchar(255) null, Technics varchar(255) null, constraintPK_TBLTECH primary key nonclustered (Tech_id)
)
go
create tabletblWorkers ( Workers_id int notnull, Brigade_id int null, Bricklayer varchar(255) null, Concrete varchar(255) null,Handler varchar(255) null, Welders varchar(255) null, Electricity varchar(255) null,Driver varchar(255) null, Locksmiths varchar(255) null, constraintPK_TBLWORKERS primary key nonclustered (Workers_id)
)
go
Створення зв’язків:
alter table rl_10 add constraintFK_RL_10_RL_10_TBLNPLOT foreign key (NPlot_id) references tblNPlot (NPlot_id)
go
alter table rl_10 add constraintFK_RL_10_RL_14_TBLMACHI foreign key (Machines_id) references tblMachines(Machines_id)
go
alter table rl_11 add constraintFK_RL_11_RL_11_TBLNPLOT foreign key (NPlot_id) references tblNPlot (NPlot_id)
go
alter table rl_11 add constraintFK_RL_11_RL_13_TBLWORKE foreign key (Workers_id) references tblWorkers(Workers_id)
go
alter table rl_9 add constraint FK_RL_9_RL_15_TBLNPLOTforeign key (NPlot_id) references tblNPlot (NPlot_id)
go
alter table rl_9 add constraint FK_RL_9_RL_16_TBLTECHforeign key (Tech_id) references tblTech (Tech_id)
go
alter table tblBrigade add constraintFK_TBLBRIGA_RL_7_TBLGRAFI foreign key (Grafics_id) references tblGrafics(Grafics_id)
go
alter table tblBrigade add constraintFK_TBLBRIGA_RL_9_TBLNPLOT foreign key (NPlot_id) references tblNPlot (NPlot_id)
go
alter table tblChaBuild add constraintFK_TBLCHABU_RL_1_TBLORDER foreign key (Order_id) references tblOrder (Order_id)
go
alter table tblChaRoad add constraintFK_TBLCHARO_RL_2_TBLORDER foreign key (Order_id) references tblOrder (Order_id)
go
alter table tblGrafics add constraintFK_TBLGRAFI_RL_5_TBLORDER foreign key (Order_id) references tblOrder (Order_id)
go
alter table tblGrafics add constraintFK_TBLGRAFI_RL_8_TBLBRIGA foreign key (Brigade_id) references tblBrigade(Brigade_id)
go
alter table tblMaterials add constraintFK_TBLMATER_RL_6_TBLGRAFI foreign key (Grafics_id) references tblGrafics(Grafics_id)
go
alter table tblNPlot
add constraint FK_TBLNPLOT_RL_18_TBLORDER foreign key(Order_id) references tblOrder(Order_id)
go
alter table tblOrder add constraintFK_TBLORDER_RL_19_TBLNPLOT foreign key (NPlot_id) references tblNPlot(NPlot_id)
go
alter table tblOrder add constraintFK_TBLORDER_RL_3_TBLCHARO foreign key (ChaRoad_id) references tblChaRoad(ChaRoad_id)
go
alter table tblOrder add constraintFK_TBLORDER_RL_4_TBLCHABU foreign key (ChaBuild_id) references tblChaBuild(ChaBuild_id)
go
alter table tblReport add constraintFK_TBLREPOR_RL_17_TBLORDER foreign key (Order_id) references tblOrder(Order_id)
go
alter table tblWorkers add constraintFK_TBLWORKE_RL_12_TBLBRIGA foreign key (Brigade_id) references tblBrigade(Brigade_id)
go
Виконаннязапитів
1. Одержати перелік будівельних правлінь або ділянок та їхкерівників
selecto.buildmanagement, o.nplot_id, n.head
from tblorderas o, tblnplot as n
whereo.nplot_id=n.nplot_id
2. Одержати список фахівців інженерно-технічного складупозначеної ділянки або будівельного правління із зазначенням їх посад
selectdistinct(o.buildmanagement), o.nplot_id, t.engineers, t.technology, t.technics
from tblorderas o, tblnplot as n, tbltech as t
whereo.nplot_id=3
3. Одержати перелік об'єктів, що зводяться зазначенимбудівельним правлінням або ділянкою, і графіки їхнього зведення
selectdistinct(o.object), o.buildmanagement, o.nplot_id, g.jobtype, g.termperformance
from tblorderas o, tblgrafics as g
whereo.order_id=g.order_id
4. Одержати складбригад, що працювали (працюють) на будівництві зазначеного об'єкта
selecto.object, w.bricklayer, w.concrete, w.handler, w.welders, w.electricity,w.driver, w.locksmiths, w.workers_id
from tblorderas o, tblworkers as w
whereo.nplot_id=w.nplot_id
5. Одержати перелік будівельної техніки, наданої зазначеномубудівельному правлінню
selecto.buildmanagement, m.bulldozers, m.cranes, m.excavator, 3
from tblorder aso, tblmachines as m
whereo.nplot_id=3
order by 3
6. Одержати перелік будівельної техніки, виділеної назазначений об’єкт або тієї, що працювала там упродовж зазначеного періоду часу
select o.object,o.buildmanagement, m.bulldozers, m.cranes, m.excavator, g.termperformance,m.nplot_id
from tblorder aso, tblmachines as m, tblgrafics as g
whereo.nplot_id=m.nplot_id and o.order_id=g.order_id and g.TermPerformance
7. Одержати графік і кошторис на будівництво зазначеного об'єкта
select o.object,g.jobtype, g.kyshty
from tblorder aso, tblgrafics as g
whereo.order_id=g.order_id
8. Одержати звітпро спорудження зазначеного об’єкта
select o.object,r.jobtype, r.used
from tblorder aso, tblreport as r
whereo.order_id=r.order_id and o.object='Дім'
9. Одержати перелік об’єктів, що зводяться у деякомубудівельному правлінні або в цілому по організації, та на яких у позначенийперіод часу виконувався зазначений вид будівельних робіт
select o.object,o.buildmanagement, g.jobtype, g.termperformance from tblorder as o, tblgraficsas g where o.order_id=g.order_id and g.termperformance= 01.01.2012
10. Одержати перелік видів будівельних робіт, по яких маломісце перевищення строків виконання на зазначеній ділянці, будівельному правлінніабо в цілому по організації
select o.object,o.BuildManagement, r.jobtype, g.termperformance, r.completion
from tblorder aso, tblreport as r, tblgrafics as g
whereo.order_id=g.order_id and o.order_id=r.order_id
andg.termperformance
11. Одержати перелік будівельних матеріалів, по яких маломісце перевищення кошторису на зазначеній ділянці, будівельному правлінні або вцілому по організації
select o.object,o.BuildManagement, m.materials, g.kyshty, r.used
from tblorder aso, tblmaterials as m, tblgrafics as g, tblreport as r
whereo.order_id=g.order_id and o.order_id=r.order_id and g.grafics_id=m.grafics_id and
g.kyshty
12. Одержати перелік видів будівельних робіт, виконанихзазначеною бригадою протягом позначеного періоду часу із вказівкою об'єктів, деці роботи виконувалися
select o.object,g.jobtype, g.termperformance, b.brigade_id
from tblorder aso, tblgrafics as g, tblbrigade as b
whereo.nplot_id=b.nplot_id and o.order_id=g.grafics_id and b.brigade_id=3
13. Одержати перелік бригад, що виконували зазначений видбудівельних робіт протягом позначеного періоду часу із зазначенням об'єктів, деці роботи виконувалися
selecto.object, g.jobtype, b.brigade_id, g.termperformance
from tblorderas o, tblgrafics as g, tblbrigade as b
whereo.nplot_id=b.nplot_id and o.order_id=g.grafics_id and g.jobtype='ремонт'
Лістингпрограми
unit Unit1;
interface
uses Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, DBCtrls, StdCtrls, Menus, DB, Grids, DBGrids, ADODB;
type TForm1 =class(TForm) ADOConnection1: TADOConnection; ADOConnection2: TADOConnection; ADOTable1:TADOTable; ADOQuery1: TADOQuery; DBGrid1: TDBGrid; DataSource1: TDataSource; DataSource2:TDataSource; MainMenu1: TMainMenu; ComboBox1: TComboBox; DBNavigator1:TDBNavigator; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; File1:TMenuItem; N1: TMenuItem; N2: TMenuItem; Button6: TButton; Button7: TButton; procedureComboBox1Change(Sender: TObject); procedure N2Click(Sender: TObject); procedureN1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedureButton6Click(Sender: TObject); procedure Button7Click(Sender: TObject); private{ Private declarations } public { Public declarations } end;
var Form1:TForm1;
implementation
uses Unit2,Unit3, Unit4, Unit5;
{$R *.dfm}
procedureTForm1.FormShow(Sender: TObject);
begin
Form2.ShowModal;
end;
procedureTForm1.ComboBox1Change(Sender: TObject);
begin
if(Combobox1.Text='Номер ділянки') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblNPlot';form1.ADOTable1.Active:=true;
end;
if(Combobox1.Text='Характеристика заказу на мости та дороги') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblChaRoad';form1.ADOTable1.Active:=true;
end;
if(Combobox1.Text='Характеристика заказу на житловий будинок') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblChaBuild';form1.ADOTable1.Active:=true;
end;
if(Combobox1.Text='Таблиця що містить інформацію про закази') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblOrder';form1.ADOTable1.Active:=true;
end;
if(Combobox1.Text='Графік зведення обєкта ') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblGrafics';form1.ADOTable1.Active:=true;
end;
if(Combobox1.Text='Звіт виконання роботи') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblReport';form1.ADOTable1.Active:=true;
end;
if(Combobox1.Text='Бригади') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblBrigade';form1.ADOTable1.Active:=true;
end;
if(Combobox1.Text='Інженерно-технічний персонал') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblTech';form1.ADOTable1.Active:=true;
end;
if(Combobox1.Text='будівельна техніка') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblMachines';form1.ADOTable1.Active:=true;
end;
if(Combobox1.Text='Робітники') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblWorkers';form1.ADOTable1.Active:=true;
end;
end;
procedureTForm1.N2Click(Sender: TObject);
begin
close();
end;
procedureTForm1.N1Click(Sender: TObject);
begin ShowMessage('AnisimovAndriy');
end;
procedureTForm1.Button6Click(Sender: TObject);
begin
form5.ShowModal;
if(Form5.modalresult 6) then
begin
ShowMessage('Парольневерный');
end
else
begin
form3.ShowModal;
end;
end;
procedureTForm1.Button7Click(Sender: TObject);
begin
form4.ShowModal;
end;
end.
unit Unit2;
interface
uses Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, StdCtrls, jpeg;
type TForm2 =class(TForm) Image1: TImage; Timer1: TTimer; procedure Image1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;
var Form2:TForm2;
implementation
{$R *.dfm}
procedureTForm2.Image1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit3;
interface
uses Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Menus, DB, ADODB, Grids, DBGrids;
type TForm3 =class(TForm) Label1: TLabel; DBGrid2: TDBGrid; ADOConnection1: TADOConnection; ADOConnection2:TADOConnection;
ADOTable1:TADOTable; ADOQuery1: TADOQuery; DataSource1: TDataSource; DataSource2:TDataSource; MainMenu1: TMainMenu; File1: TMenuItem; N1: TMenuItem; N2:TMenuItem; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; Label2: TLabel; Button1:TButton; Memo1: TMemo; Button2: TButton; Button3: TButton; Button4: TButton; Button5:TButton; procedure Button1Click(Sender: TObject); procedureButton5Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedureButton2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedureN2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private {Private declarations } public { Public declarations } end;
var Form3:TForm3;
implementation
{$R *.dfm}
procedureTForm3.Button1Click(Sender: TObject);
begin
ADOQuery1.close;{Деактивируем запрос в качестве одной из мер предосторожности }
ADOQuery1.SQL.Clear;{Стираем любой предыдущий запрос}
If Memo1.Lines[0] '' {Проверяем на предмет пустого ввода} then
ADOQuery1.SQL.Add(Memo1.Text){Назначаем свойству SQL текст Memo}
else
begin
messageDlg('Введітьsql запрос', mtError, [mbOK], 0);
exit;
end;
try {перехватчикошибок}
ADOQuery1.Open; {Выполняемзапрос и открываем набор данных}
except {секцияобработки ошибок}
On e:EDatabaseError do {e — новый дескриптор ошибки}
messageDlg(e.message,mtError,[mbOK],0);{показываем свойство message объекта e}
end;{окончаниеобработки ошибки}
Memo1.ReadOnly:=false;
end;
procedureTForm3.Button5Click(Sender: TObject);
begin
Memo1.Clear;
end;
procedureTForm3.Button4Click(Sender: TObject);
begin
ifSaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedureTForm3.Button2Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(OpenDialog1.FileName)
end;
procedureTForm3.Button3Click(Sender: TObject);
begin
Memo1.ReadOnly:=true;
openDialog1.Filter:='Текстовіфайли|*.txt';
ifOpenDialog1.Execute and FileExists (OpenDialog1.FileName)
then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedureTForm3.N2Click(Sender: TObject);
begin
close();
end;
procedureTForm3.FormCreate(Sender: TObject);
begin
ShowMessage('AnisimovAndriy');
end;
end.
unit Unit4;
interface
uses Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Menus, DB, ADODB, Grids, DBGrids;
type
TForm4 =class(TForm) Label1: TLabel; DBGrid2: TDBGrid; ADOConnection1: TADOConnection; ADOConnection2:TADOConnection; ADOTable1: TADOTable; ADOQuery1: TADOQuery; DataSource1:TDataSource; DataSource2: TDataSource; MainMenu1: TMainMenu; File1: TMenuItem; N1:TMenuItem; N2: TMenuItem; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; Label2:TLabel; Button1: TButton; Memo1: TMemo; Button3: TButton; procedureButton3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedureN2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private {Private declarations } public { Public declarations } end;
var Form4:TForm4;
implementation
{$R *.dfm}
procedureTForm4.Button3Click(Sender: TObject);
begin
Memo1.ReadOnly:=true;
openDialog1.Filter:='Текстовіфайли|*.txt';
ifOpenDialog1.Execute and FileExists (OpenDialog1.FileName)
then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedureTForm4.Button1Click(Sender: TObject);
begin
ADOQuery1.close;{Деактивируем запрос в качестве одной из мер предосторожности }
ADOQuery1.SQL.Clear;{Стираем любой предыдущий запрос}
If Memo1.Lines[0] '' {Проверяем на предмет пустого ввода} then
ADOQuery1.SQL.Add(Memo1.Text){Назначаем свойству SQL текст Memo}
else
begin
messageDlg('Введітьsql запрос', mtError, [mbOK], 0);
exit;
end;
try {перехватчикошибок}
ADOQuery1.Open; {Выполняемзапрос и открываем набор данных}
except {секцияобработки ошибок}
On e:EDatabaseError do {e — новый дескриптор ошибки}
messageDlg(e.message,mtError,[mbOK],0);{показываем свойство message объекта e}
end;{окончаниеобработки ошибки}
Memo1.ReadOnly:=false;
end;
procedureTForm4.N2Click(Sender: TObject);
begin
close();
end;
procedureTForm4.FormCreate(Sender: TObject);
begin
ShowMessage('AnisimovAndriy');
end;
end.
unit Unit5;
interface
uses Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;
type TForm5 =class(TForm) Button1: TButton; Edit1: TEdit; procedure oK(Sender: TObject); procedureFormClose(Sender: TObject; var Action: TCloseAction); private { Privatedeclarations } public { Public declarations } end;
var Form5:TForm5;
implementation
{$R *.dfm}
procedureTForm5.oK(Sender: TObject);
begin
if (Edit1.Text ='0000') then ModalResult:=6;
close;
end;
procedureTForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (Edit1.Text ='0000') then ModalResult:=6;
end;
end.
Висновок
При виконанні курсовоїроботи я пригадав як створювати: базу даних, концептуальну та фізичну модельБД, SQL запити, запити на створеннятаблиць та зв’язків між ними. Освіжив свої навики в SQL quarry analyzer, SQL Enterprise manager та Power designer. А також написав програму на мові Delphi, яка допомогла б користувачуз легкістю користуватися створеною мною базою даних.
/>