Всё сдал! - помощь студентам онлайн Всё сдал! - помощь студентам онлайн

Реальная база готовых
студенческих работ

Узнайте стоимость индивидуальной работы!

Вы нашли то, что искали?

Вы нашли то, что искали?

Да, спасибо!

0%

Нет, пока не нашел

0%

Узнайте стоимость индивидуальной работы

это быстро и бесплатно

Получите скидку

Оформите заказ сейчас и получите скидку 100 руб.!


Інформаційна система будівельної організації

Тип Реферат
Предмет Информатика и программирование
Просмотров
1411
Размер файла
33 б
Поделиться

Ознакомительный фрагмент работы:

Інформаційна система будівельної організації

Національний Авіаційний Університет

Факультет комп’ютерних систем

Кафедра комп’ютерних систем та мереж

Домашня робота

З дисципліни: Інформаційні системи та структури даних

Київ 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_id int not null, constraint PK_RL_10 primary key (NPlot_id, Machines_id)

)

go

create table rl_11 ( NPlot_id int not null, Workers_id int not null, constraint PK_RL_11 primary key (NPlot_id, Workers_id)

)

go

create table rl_9 ( NPlot_id int not null, Tech_id int not null, constraint PK_RL_9 primary key (NPlot_id, Tech_id)

)

go

create table tblBrigade ( Brigade_id int not null, NPlot_id int null, Grafics_id int null, Overman varchar(255) not null, constraint PK_TBLBRIGADE primary key nonclustered (Brigade_id)

)

go

create table tblChaBuild ( ChaBuild_id int not null, Order_id int null, Floor int not null, MaterialType varchar(255) not null, NApartament int not null, constraint PK_TBLCHABUILD primary key nonclustered (ChaBuild_id)

)

go create table tblChaRoad ( ChaRoad_id int not null, Order_id int null, Structuretype varchar(255) not null, Width int not null, Bands int not null, constraint PK_TBLCHAROAD primary key nonclustered (ChaRoad_id)

)

go

create table tblGrafics ( Grafics_id int not null, Order_id int null, Brigade_id int null, JobType varchar(255) not null, TermPerformance datetime not null, Kyshty money not null, constraint PK_TBLGRAFICS primary key nonclustered (Grafics_id)

)

go

create table tblMachines ( Machines_id int not null, 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 not null, Grafics_id int null, Materials varchar(255) not null, constraint PK_TBLMATERIALS primary key nonclustered (Materials_id)

)

go

create table tblNPlot ( NPlot_id int not null, Order_id int null, Head varchar(255) not null, constraint PK_TBLNPLOT primary key nonclustered (NPlot_id)

)

go

create table tblOrder ( Order_id int not null, NPlot_id int null, ChaRoad_id int null, ChaBuild_id int null, Object varchar(255) not null, Organisetion varchar(255) not null, BuildManagement varchar(255) not null, constraint PK_TBLORDER primary key nonclustered (Order_id)

)

go

create table tblReport ( Report_id int not null, 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, Engeneers varchar(255) null, Technology varchar(255) null, Technics varchar(255) null, constraint PK_TBLTECH primary key nonclustered (Tech_id)

)

go

create table tblWorkers ( Workers_id int not null, 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, constraint PK_TBLWORKERS primary key nonclustered (Workers_id)

)

go


Створення зв’язків:

alter table rl_10 add constraint FK_RL_10_RL_10_TBLNPLOT foreign key (NPlot_id) references tblNPlot (NPlot_id)

go

alter table rl_10 add constraint FK_RL_10_RL_14_TBLMACHI foreign key (Machines_id) references tblMachines (Machines_id)

go

alter table rl_11 add constraint FK_RL_11_RL_11_TBLNPLOT foreign key (NPlot_id) references tblNPlot (NPlot_id)

go

alter table rl_11 add constraint FK_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_TBLNPLOT foreign key (NPlot_id) references tblNPlot (NPlot_id)

go

alter table rl_9 add constraint FK_RL_9_RL_16_TBLTECH foreign key (Tech_id) references tblTech (Tech_id)

go

alter table tblBrigade add constraint FK_TBLBRIGA_RL_7_TBLGRAFI foreign key (Grafics_id) references tblGrafics (Grafics_id)

go

alter table tblBrigade add constraint FK_TBLBRIGA_RL_9_TBLNPLOT foreign key (NPlot_id) references tblNPlot (NPlot_id)

go

alter table tblChaBuild add constraint FK_TBLCHABU_RL_1_TBLORDER foreign key (Order_id) references tblOrder (Order_id)

go

alter table tblChaRoad add constraint FK_TBLCHARO_RL_2_TBLORDER foreign key (Order_id) references tblOrder (Order_id)

go

alter table tblGrafics add constraint FK_TBLGRAFI_RL_5_TBLORDER foreign key (Order_id) references tblOrder (Order_id)

go

alter table tblGrafics add constraint FK_TBLGRAFI_RL_8_TBLBRIGA foreign key (Brigade_id) references tblBrigade (Brigade_id)

go

alter table tblMaterials add constraint FK_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 constraint FK_TBLORDER_RL_19_TBLNPLOT foreign key (NPlot_id) references tblNPlot (NPlot_id)

go

alter table tblOrder add constraint FK_TBLORDER_RL_3_TBLCHARO foreign key (ChaRoad_id) references tblChaRoad (ChaRoad_id)

go

alter table tblOrder add constraint FK_TBLORDER_RL_4_TBLCHABU foreign key (ChaBuild_id) references tblChaBuild (ChaBuild_id)

go

alter table tblReport add constraint FK_TBLREPOR_RL_17_TBLORDER foreign key (Order_id) references tblOrder (Order_id)

go

alter table tblWorkers add constraint FK_TBLWORKE_RL_12_TBLBRIGA foreign key (Brigade_id) references tblBrigade (Brigade_id)

go

Виконання запитів

1. Одержати перелік будівельних правлінь або ділянок та їх керівників

select o.buildmanagement, o.nplot_id, n.head

from tblorder as o, tblnplot as n

where o.nplot_id=n.nplot_id

2. Одержати список фахівців інженерно-технічного складу позначеної ділянки або будівельного правління із зазначенням їх посад

select distinct(o.buildmanagement), o.nplot_id, t.engineers, t.technology, t.technics

from tblorder as o, tblnplot as n, tbltech as t

where o.nplot_id=3

3. Одержати перелік об'єктів, що зводяться зазначеним будівельним правлінням або ділянкою, і графіки їхнього зведення

select distinct(o.object), o.buildmanagement, o.nplot_id, g.jobtype, g.termperformance

from tblorder as o, tblgrafics as g

where o.order_id=g.order_id


4. Одержати склад бригад, що працювали (працюють) на будівництві зазначеного об'єкта

select o.object, w.bricklayer, w.concrete, w.handler, w.welders, w.electricity, w.driver, w.locksmiths, w.workers_id

from tblorder as o, tblworkers as w

where o.nplot_id=w.nplot_id

5. Одержати перелік будівельної техніки, наданої зазначеному будівельному правлінню

select o.buildmanagement, m.bulldozers, m.cranes, m.excavator, 3

from tblorder as o, tblmachines as m

where o.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 as o, tblmachines as m, tblgrafics as g

where o.nplot_id=m.nplot_id and o.order_id=g.order_id and g.TermPerformance<'01.01.2012'

7. Одержати графік і кошторис на будівництво зазначеного об'єкта

select o.object, g.jobtype, g.kyshty

from tblorder as o, tblgrafics as g

where o.order_id=g.order_id


8. Одержати звіт про спорудження зазначеного об’єкта

select o.object, r.jobtype, r.used

from tblorder as o, tblreport as r

where o.order_id=r.order_id and o.object='Дім'

9. Одержати перелік об’єктів, що зводяться у деякому будівельному правлінні або в цілому по організації, та на яких у позначений період часу виконувався зазначений вид будівельнихробіт

select o.object, o.buildmanagement, g.jobtype, g.termperformance from tblorder as o, tblgrafics as 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 as o, tblreport as r, tblgrafics as g

where o.order_id=g.order_id and o.order_id=r.order_id

and g.termperformance < r.completion and g.jobtype=r.jobtype

11. Одержати перелік будівельних матеріалів, по яких мало місце перевищення кошторису на зазначеній ділянці, будівельному правлінні або в цілому по організації

select o.object, o.BuildManagement, m.materials, g.kyshty, r.used

from tblorder as o, tblmaterials as m, tblgrafics as g, tblreport as r

where o.order_id=g.order_id and o.order_id=r.order_id and g.grafics_id=m.grafics_id and

g.kyshty<r.used and g.jobtype=r.jobtype

12. Одержати перелік видів будівельних робіт, виконаних зазначеною бригадою протягом позначеного періоду часу із вказівкою об'єктів, де ці роботи виконувалися

select o.object, g.jobtype, g.termperformance, b.brigade_id

from tblorder as o, tblgrafics as g, tblbrigade as b

where o.nplot_id=b.nplot_id and o.order_id=g.grafics_id and b.brigade_id=3

13. Одержати перелік бригад, що виконували зазначений вид будівельних робіт протягом позначеного періоду часу із зазначенням об'єктів, де ці роботи виконувалися

select o.object, g.jobtype, b.brigade_id, g.termperformance

from tblorder as o, tblgrafics as g, tblbrigade as b

where o.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; procedure ComboBox1Change(Sender: TObject); procedure N2Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.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;

procedure TForm1.N2Click(Sender: TObject);

begin

close();

end;

procedure TForm1.N1Click(Sender: TObject);

begin ShowMessage('Anisimov Andriy');

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

form5.ShowModal;

if (Form5.modalresult <> 6) then

begin

ShowMessage('Пароль неверный');

end

else

begin

form3.ShowModal;

end;

end;

procedure TForm1.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}

procedure TForm2.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); procedure Button5Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.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;

procedure TForm3.Button5Click(Sender: TObject);

begin

Memo1.Clear;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

if SaveDialog1.Execute then

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Memo1.Lines.SaveToFile(OpenDialog1.FileName)

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Memo1.ReadOnly:=true;

openDialog1.Filter:='Текстові файли|*.txt';

if OpenDialog1.Execute and FileExists (OpenDialog1.FileName)

then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm3.N2Click(Sender: TObject);

begin

close();

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

ShowMessage('Anisimov Andriy');

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; procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button3Click(Sender: TObject);

begin

Memo1.ReadOnly:=true;

openDialog1.Filter:='Текстові файли|*.txt';

if OpenDialog1.Execute and FileExists (OpenDialog1.FileName)

then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm4.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;

procedure TForm4.N2Click(Sender: TObject);

begin

close();

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

ShowMessage('Anisimov Andriy');

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); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end;

var Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.oK(Sender: TObject);

begin

if (Edit1.Text = '0000') then ModalResult:=6;

close;

end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if (Edit1.Text = '0000') then ModalResult:=6;

end;

end.


Висновок

При виконанні курсової роботи я пригадав як створювати: базу даних, концептуальну та фізичну модель БД, SQL запити, запити на створення таблиць та зв’язків між ними. Освіжив свої навики в SQLquarryanalyzer, SQL Enterprise manager та Powerdesigner. А також написав програму на мові Delphi, яка допомогла б користувачу з легкістю користуватися створеною мною базою даних.


Нет нужной работы в каталоге?

Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.

Цены ниже, чем в агентствах и у конкурентов

Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит

Бесплатные доработки и консультации

Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки

Гарантируем возврат

Если работа вас не устроит – мы вернем 100% суммы заказа

Техподдержка 7 дней в неделю

Наши менеджеры всегда на связи и оперативно решат любую проблему

Строгий отбор экспертов

К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»

1 000 +
Новых работ ежедневно
computer

Требуются доработки?
Они включены в стоимость работы

Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован

avatar
Математика
Физика
История
icon
137048
рейтинг
icon
5827
работ сдано
icon
2637
отзывов
avatar
Математика
История
Экономика
icon
135900
рейтинг
icon
3029
работ сдано
icon
1325
отзывов
avatar
Химия
Экономика
Биология
icon
90136
рейтинг
icon
1996
работ сдано
icon
1255
отзывов
avatar
Высшая математика
Информатика
Геодезия
icon
62710
рейтинг
icon
1046
работ сдано
icon
598
отзывов
Отзывы студентов о нашей работе
50 929 оценок star star star star star
среднее 4.9 из 5
ГАУГН
Очень хорошо помог с актуальность для исследования, смело обращайтесь к исполнителю?
star star star star star
СПбГУПТД
Хороший текст. Антиплагиат прошел с первого раза. Были небольшие недочеты со стороны ГОСТа...
star star star star star
СИБГиУ
Всё выполнено очень здорово, исполнителя рекомендую. Первый раз, кто то сделал шаблон титу...
star star star star star

Последние размещённые задания

Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн

Современные экономические кластеры России.

Реферат, основы российской государственности

Срок сдачи к 31 мар.

только что

Решить 14 задач

Решение задач, Логистика

Срок сдачи к 6 апр.

2 минуты назад

Выполнить 2 лабораторные работы

Лабораторная, Лакокрасочные, клеевые материалы и гальванические покрытия при изготовлении машин лесного комплекса,

Срок сдачи к 12 апр.

5 минут назад

Расчет электрической цепи для всепогодной цифровой метеостанции

Решение задач, ИИС, электротехника

Срок сдачи к 2 апр.

6 минут назад

Тема может быть любой, но только в рамках предмета: ниже расписал примерные темы

Статья, Эффективные деловые коммуникации

Срок сдачи к 2 апр.

7 минут назад

Сучасні принципи навчання інформатики в початковій школі

Реферат, Інформатика в початкових класах, информатика

Срок сдачи к 4 апр.

9 минут назад

Надо заполнить это практически работы.

Другое, Мдк.03.01. теоретические основы организации обучения в разных возрастных группах пм.03 организация з

Срок сдачи к 31 мар.

9 минут назад

Диплом БЖД

Диплом, Техносферная безопасность

Срок сдачи к 25 апр.

10 минут назад

Доделать ИАР

Курсовая, Нутрициология, медицина

Срок сдачи к 30 мар.

10 минут назад

Решить 2 типовых расёчета

Решение задач, Высшая математика

Срок сдачи к 3 апр.

10 минут назад

решать

Контрольная, статистика

Срок сдачи к 4 апр.

10 минут назад

Провести анализ платежеспособности любого предприятия апк

Контрольная, Бухгалтерская отчетность и анализ

Срок сдачи к 30 мар.

11 минут назад

решать

Контрольная, страхование

Срок сдачи к 4 апр.

11 минут назад

решать

Контрольная, мировая экономика

Срок сдачи к 4 апр.

11 минут назад

Написать теоретическую часть к диплому

Диплом, Экономика

Срок сдачи к 14 апр.

11 минут назад

Здравствуйте, нужна помощь с решением задач по линалу

Решение задач, Линейная алгебра

Срок сдачи к 31 мар.

11 минут назад

Написать научную статью, основываясь на черновике

Статья, Литературоведение

Срок сдачи к 31 мар.

11 минут назад
planes planes
Закажи индивидуальную работу за 1 минуту!

Размещенные на сайт контрольные, курсовые и иные категории работ (далее — Работы) и их содержимое предназначены исключительно для ознакомления, без целей коммерческого использования. Все права в отношении Работ и их содержимого принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие в связи с использованием Работ и их содержимого.

«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами

Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:

Вход
Регистрация или
Не нашли, что искали?

Заполните форму и узнайте цену на индивидуальную работу!

Файлы (при наличии)

    это быстро и бесплатно